【正文】 rue 39。定義全局變量sqlqzj 作為查詢合同信息時的sql語句Public sqlqzj As String39。還是直接菜單調用的Public fromqzc As Boolean39。定義全局變量queryemp 作為判斷frmEmp 窗體顯示查詢的數據還是全體數據Public queryemp As Boolean39。系統(tǒng)主界面的設計啟動系統(tǒng)后，主界面設計效果圖如下: 公用模塊的設計代碼分析如下:Option ExplicitPublic conn As New 39。定義全局變量sqlqe 作為查詢員工信息時的sql語句Public sqlqe As String39。定義全局變量fromYuding 作為判斷frmPayDingJin 窗體是從frmYuDing窗體中單擊收取定金調用的39。定義全局變量sqlqdj 作為查詢定金信息時的sql語句Public sqlqdj As String39。如果沒有數據，則顯示空 Else For i = 0 To 7 Text1(i).Text = Next i = False = False = False = False = False = False End If 39。刪除之后，顯示總信息條數需要減 1 = Val() 1 39。先移動rs_house記錄到第一條 39。 amp。 Text1(8).Text amp。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該求租客戶編號已經存在，請重填一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。 39。檢測房屋狀態(tài) sqlh = select * from House where 房屋編號 = 39。 Text1(2).Text amp。 amp。出租，加入合同表 sqlcon = select * from Contract sqlcon, conn, adOpenStatic, adLockOptimistic For i = 0 To 11 (i) = Text1(i).Text Next i 39。顯示簽訂合同成功 MsgBox 簽訂合同成功！！, vbOKOnly + vbInformation, 注意 39。 Text1(1).Text amp。 amp。 sqlyd, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該預定單編號不存在！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub Else Text1(1).Text = (3) Text1(4).Text = (1) Text1(5).Text = (2) End If 39。 _ 已交租金總額, sum (欠費金額) as 欠費總額 from ZuJin group by amp。 order by amp。添加完后，需要設置收取定金按鈕不可用 = False End Sub押金跟租金的收取跟定金收取的設計雷同，故不作重點描述。 39。 sqlqzc, conn, adOpenStatic, adLockOptimistic If = False Then End If 39。關閉所有打開的記錄集 Exit Sub End If 39。刪除預定表中該項 39。 39。 sqlyd, conn, adOpenStatic, adLockOptimistic 39。 Text1(2).Text amp。總租金等于月租金乘以租期 Text1(7).Text = Val(Text1(5).Text) * Val(Text1(6).Text) 39。添加之后顯示總共條數信息加 1 = Val() + 1 39。 sqlhcheck, conn, adOpenStatic, adLockOptimistic If ThenMsgBox 該房屋編號不存在，請重填或清空！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If End If 39。 39。如果已經是第一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。先移動rs_house記錄到后一條 If Then 39。開始時設置各個text框不可寫 For i = 0 To 7 Text1(i).Enabled = False Next i 39。設置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。定義全局變量fromContract 作為判斷frmPayYaJin 窗體是從frmSignContract窗體中單擊收取押金調用的39。定義全局變量sqlqzc 作為查詢求租客戶信息時的sql語句Public sqlqzc As String39。定義全局變量sqlqh 作為查詢房屋信息時的sql語句Public sqlqh As String39。定義全局變量querycg 作為判斷frmClient 窗體家公司戶選項卡顯示查詢的數據還是全體數據Public querycg As Boolean39。定義全局變量sqlqyd 作為查詢預定單信息時的sql語句Public sqlqyd As String39。還是直接菜單調