【正文】 則顯示空 Else For i = 0 To 7 Text1(i).Text = Next i = False = False = False = False = False = False End If 39。如果是從添加后取消 If add = 1 Then 39。add變量用于保存時(shí)判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus End SubPrivate Sub cmdCancel_Click() 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。定義全局變量sqlqdj 作為查詢定金信息時(shí)的sql語句Public sqlqdj As String39。定義全局變量queryZuJin 作為判斷frmAdminZuJin 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryZuJin As Boolean39。定義全局變量ZuJinfromContract 作為判斷frmPayZuJin 窗體是從frmSignContract窗體中單擊收取租金調(diào)用的39。定義全局變量fromContract 作為判斷frmPayYaJin 窗體是從frmSignContract窗體中單擊收取押金調(diào)用的39。定義全局變量fromYuding 作為判斷frmPayDingJin 窗體是從frmYuDing窗體中單擊收取定金調(diào)用的39。定義全局變量fromqzc 作為判斷frmYuDing 窗體是從frmQZClient窗體中單擊下定金預(yù)定調(diào)用的39。定義全局變量sqlqcon 作為查詢合同信息時(shí)的sql語句Public sqlqcon As String39。定義全局變量sqlqzc 作為查詢求租客戶信息時(shí)的sql語句Public sqlqzc As String39。定義全局變量sqlqe 作為查詢員工信息時(shí)的sql語句Public sqlqe As String39。定義全局變量sqlqcg 作為查詢公司租戶信息時(shí)的sql語句Public sqlqcg As String39。定義全局變量sqlqcf 作為查詢家庭租戶信息時(shí)的sql語句Public sqlqcf As String39。定義全局變量sqlqh 作為查詢房屋信息時(shí)的sql語句Public sqlqh As String39。系統(tǒng)主界面的設(shè)計(jì)啟動(dòng)系統(tǒng)后，主界面設(shè)計(jì)效果圖如下: 公用模塊的設(shè)計(jì)代碼分析如下:Option ExplicitPublic conn As New 39。定義全局變量queryhouse 作為判斷frmHouse 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryhouse As Boolean39。定義全局變量querycf 作為判斷frmClient 窗體家庭租戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycf As Boolean39。定義全局變量querycg 作為判斷frmClient 窗體家公司戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycg As Boolean39。定義全局變量queryemp 作為判斷frmEmp 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryemp As Boolean39。定義全局變量queryqzc 作為判斷frmQZClient 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryqzc As Boolean39。定義全局變量querycon 作為判斷frmAdminContract 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycon As Boolean39。定義全局變量sqlqyd 作為查詢預(yù)定單信息時(shí)的sql語句Public sqlqyd As String39。還是直接菜單調(diào)用的Public fromqzc As Boolean39。還是直接菜單調(diào)用的Public fromYuding As Boolean39。還是直接菜單調(diào)用的Public fromContract As Boolean39。還是直接菜單調(diào)用的Public ZuJinfromContract As Boolean39。定義全局變量sqlqzj 作為查詢合同信息時(shí)的sql語句Public sqlqzj As String39。定義全局變量sqlqyj 作為查詢押金信息時(shí)的sql語句Public sqlqyj As String1．1基本資料管理模塊設(shè)計(jì)房屋基本資料管理的運(yùn)行效果圖如下:其表單界面的屬性設(shè)計(jì)比較直觀,在此重點(diǎn)分析新增,修改,刪除,保存四個(gè)命令按鈕的源代碼設(shè)計(jì)：新增按鈕源碼:Private Sub cmdAdd_Click() 39。需要清空所有text框，并且設(shè)置它們可寫 For i = 0 To 7 Text1(i).Text = Text1(i).Enabled = True Next i = True 39。取消按鈕用于用戶添加或修改過程中放棄添加或修改操作 = False = False = True = True 39。如果當(dāng)前House表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If = True = True = True = True = True = True 39。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf add = 0 Then For i = 0 To 7 Text1(i).Text = (i) Next i If (8) = 已租 Then = 0 ElseIf (8) = 未租 Then = 1 ElseIf (8) = 意向 Then = 2 End If End If 39。先設(shè)置ComboBox的默認(rèn)值及不可改 = FalseEnd SubPrivate Sub cmdClose_Click() Unload MeEnd Sub刪除按鈕的源代碼：Private Sub cmdDel_Click() 39。確實(shí)刪除 If answer = vbYes Then 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, Else Exit