【正文】 Sub cmdFirst_Click() 39。先移動 rs_house 記錄到第一條 39。同時需要設(shè)置相應(yīng)按鈕為不可用和不可用 = False = False = True = True 39。如果已經(jīng)是第一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經(jīng)是第一條記錄了！ , vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是，則個數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else 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 29 End If End SubPREV 檢索按鈕的源代碼： 5． 3． 2 客戶資料管理 模塊的設(shè)計 5． 3． 2． 1租戶基本資料的設(shè)計 運行效果圖如下所示 : 圖 53租戶基本資料 說明：通過這個界面我們可以對租戶的資料修改，查詢，添加等指令。 在租戶基本資料中，我們重點分析查找家庭租戶功能的 源碼 ， 如下 : Private Sub cmdQuery_Click() If = Then MsgBox 查詢條件不可為空！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 30 39。設(shè)置查詢家庭租戶變量為真 querycf = True sqlqcf = where amp。 amp。 = amp。 39。 amp。 amp。 39。 39。關(guān)閉本窗體 Unload Me End Sub 5． 3． 2． 2求租戶基本資料的設(shè)計 圖 54 求租戶基本資料 說明：通過這個界面我可以對那些需要租房的人有所了解，并及時給他們所想要的房屋和安排看房 其保存按鈕的源碼分析如下： Private Sub cmdSave_Click() 39。檢測數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 求租客戶編號不可為空！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus 31 Exit Sub ElseIf Text1(1).Text = Then MsgBox 求租客戶姓名不可為空！ , vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(2).Text = Then MsgBox 求租客戶電話不可為空！ , vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub ElseIf Not Text1(4).Text = And IsNumeric(Text1(4).Text) = False Then MsgBox 面積要求不為空則應(yīng)為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Not Text1(6).Text = And IsNumeric(Text1(6).Text) = False Then MsgBox 意向價位不為空則應(yīng)為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(6).SetFocus Exit Sub ElseIf Not Text1(7).Text = And IsNumeric(Text1(7).Text) = False Then MsgBox 意向租期不為空則應(yīng)為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(7).SetFocus Exit Sub End If 32 39。如果意向房屋編號不為空，需要檢查是否存在 If Not Text1(8).Text = Then Dim sqlhcheck As String Dim rs_hcheck As New sqlhcheck = select * from House where 房屋編號 = 39。 amp。 Text1(8).Text amp。 39。 sqlhcheck, conn, adOpenStatic, adLockOptimistic If Then MsgBox 該房屋編號不存在，請重填或清空！ , vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If End If 39。添加數(shù)據(jù)后保存 If add = 1 Then 39。檢測房屋編號這個主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from QZClient where 求租客戶編號 = 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該求租客戶編號已經(jīng)存在，請重填一個！ , vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = 33 Exit Sub End If 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 9 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。修改數(shù)據(jù)后的保存 Else End If MsgBox 保存數(shù)據(jù)成功！ , vbOKOnly + vbInformation, 祝賀 39。保存后需要設(shè)置其他按鈕可用，以及各個 text框不可寫 = True = True = True = False = False = True = True = True = True = True = True For i = 0 To 9 Text1(i).Enabled = False 34 Next i End Sub 5． 3． 3 租賃管理 模塊的設(shè)計 5． 3． 3 .1簽訂合同的設(shè)計 因租賃管理，財務(wù)管理和統(tǒng)計報表三個模塊的窗體設(shè)計比較多，無法一一描述，故選擇有代表性的窗體設(shè)計加以分析， 其 合同簽訂窗體的運行 效果圖如下 : 圖 55簽訂合同 說明：通過這個界面我們可以對簽訂合同修改并最終確定。 如圖所示 ,簽訂的源碼 設(shè)計如下 : Private Sub cmdSign_Click() 39。先檢查輸入數(shù)據(jù)完整性 For i = 0 To 2 If Text1(i).Text = Then MsgBox 除備注外的所有項不可為空！ , vbOKOnly + vbInformation, 注意 35 Text1(i).SetFocus Exit Sub End If Next i For i = 3 To 4 If Text1(i).Text = Or IsDate(Text1(i).Text) = False Then MsgBox 日期應(yīng)為這樣的格式： 2022715！ , vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i If Text1(6).Text = Or IsNumeric(Text1(6).Text) = False Then MsgBox 月租金 應(yīng)為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(6).SetFocus Exit Sub End If If Text1(8).Text = Or IsNumeric(Text1(8).Text) = False Then MsgBox 押金應(yīng)為數(shù)字！ , vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If If Text1(9).Text = Then MsgBox 業(yè)務(wù)員不可為空！ , vbOKOnly + vbInformation, 注意 Text1(9).SetFocus Exit Sub End If If Text1(10).Text = Or IsDate(Text1(10).Text) = False Then MsgBox 簽訂日期應(yīng)為這樣的格式： 2022715！ , vbOKOnly + vbInformation, 注意 36 Text1(10).SetFocus Exit Sub End If 39。止租日期不能前于起租日期 If DateValue(Text1(4).Text) DateValue(Text1(3).Text) Then MsgBox 止租日期不能前于起租日期 , vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub End If 39。租期等于起租日期和止租日期之差，結(jié)尾不足一月，按一月計。 39。使用 datediff 函數(shù)計算日期之差 Text1(5).Text = Int(DateDiff(d, DateValue(Text1(3).Text), DateValue(Text1(4).Text)) / 31) + 1 39。總租金等于月租金乘以租期 Text1(7).Text = Val(Text1(5).Text) * Val(Text1(6).Text) 39。檢查完數(shù)據(jù)完整性后，還需要檢 查該客戶是否已存入租戶表中，以及該房屋是否為未出租或預(yù)定狀態(tài) sqlc = select * from Client where 租戶姓名 = 39。 amp。 Text1(1).Text amp。 39。 sqlc, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該客戶資料還未存入租戶資料表中，請先錄入該客戶資料！ , vbOKOnly + vbInformation, 注意 Exit Sub End If 39。檢測房屋狀態(tài) sqlh = select * from House where 房屋編號 = 39。 amp。 Text1(2).Text amp。 39。 37 sqlh, conn, ad