【正文】 Text = Then MsgBox 業(yè)務員不可為空！, vbOKOnly + vbInformation, 注意 Text1(9).SetFocus Exit Sub End If If Text1(10).Text = Or IsDate(Text1(10).Text) = False ThenMsgBox 簽訂日期應為這樣的格式：2003715！, vbOKOnly + vbInformation, 注意 Text1(10).SetFocus Exit Sub End If 39。租期等于起租日期和止租日期之差，結尾不足一月，按一月計。使用datediff 函數(shù)計算日期之差 Text1(5).Text = Int(DateDiff(d, DateValue(Text1(3).Text), DateValue(Text1(4).Text)) / 31) + 1 39。檢查完數(shù)據(jù)完整性后，還需要檢查該客戶是否已存入租戶表中，以及該房屋是否為未出租或預定狀態(tài) sqlc = select * from Client where 租戶姓名 = 39。 Text1(1).Text amp。 sqlc, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該客戶資料還未存入租戶資料表中，請先錄入該客戶資料！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。 amp。 39。如果該房屋狀態(tài)為預定，則需要看預定人是否為該客戶，如果不是，需要彈出對話框提示用戶 ElseIf (8) = 預定 Then 39。 amp。 39。如果該客戶不是預定客戶，檢查預定有效期 If Not (1) = Text1(1).Text Then 39。出租，加入合同表 sqlcon = select * from Contract sqlcon, conn, adOpenStatic, adLockOptimistic For i = 0 To 11 (i) = Text1(i).Text Next i 39。檢查求租客戶表中是否有該客戶，如果有，則刪除之sqlqzc = select * from QZClient where 求租客戶姓名 = 39。 Text1(1).Text amp。 sqlqzc, conn, adOpenStatic, adLockOptimistic If = False Then End If 39。設置簽訂按鈕不可用 = False = True = True 39。該客戶即為預定客戶，可以出租 ElseIf (1) = Text1(1).Text Then 39。修改房屋狀態(tài) rs_hcheck(8) = 已租 39。檢查求租客戶表中是否有該客戶，如果有，則刪除之sqlqzc = select * from QZClient where 求租客戶姓名 = 39。 Text1(1).Text amp。 sqlqzc, conn, adOpenStatic, adLockOptimistic If = False Then End If 39。設置簽訂按鈕不可用 = False = True = True 39。如果該房屋狀態(tài)為未租，則可以順利出租 ElseIf (8) = 未租 Then 39。修改房屋狀態(tài) rs_hcheck(8) = 已租 39。 amp。 39。顯示簽訂合同成功 MsgBox 簽訂合同成功！, vbOKOnly + vbInformation, 注意 39。關閉所有打開的記錄集 Exit Sub End If1．3 .2預定租房的設計 其收取定金的設計如下：Private Sub cmdDingJin_Click() fromYuding = True = False End Sub1．4財務管理模塊的設計1．4 .1定金收取的設計系統(tǒng)維護的運行效果圖如下: 其收取定金按鈕的源碼設計如下:Private Sub cmdAdd_Click() 39。檢測該收費編號是否已存在 sqlch = select * from DingJin where 收費編號 = 39。 Text1(0).Text amp。 sqlch, conn, adOpenStatic, adLockOptimistic If = False ThenMsgBox 該收費編號已經(jīng)存在，請重新輸入一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub End If 39。 amp。 39。加入定金收費表 sqlpay = select * from DingJin sqlpay, conn, adOpenStatic, adLockOptimistic For i = 0 To 6 (i) = Text1(i) Next i MsgBox 收取定金成功！, vbOKOnly + vbInformation, 注意 39。1．5 統(tǒng)計報表模塊的設計在該模塊中不作按鈕的源碼分析1．5．1 房屋統(tǒng)計報表的設計其運行圖如下:1．5．2 租戶信息表1．5．3 求租客戶信息表1．5．4 租金統(tǒng)計表的設計統(tǒng)計按鈕的源碼分析如下:Private Sub cmdTg_Click() 39。sqltg = select amp。 , sum(應交租金) as 應交租金總額, sum(已交租金) as amp。 _ amp。 If = adStateOpen Then End If = adUseClient sqltg, conn, adOpenStatic, adLockOptimistic 39