【正文】 被別人預(yù)定了，請選擇另一房屋！, vbOKOnly + vbInformation, 注意 Exit Sub End If 39。顯示簽訂合同成功 MsgBox 簽訂合同成功！, vbOKOnly + vbInformation, 注意 39。 39。 amp。修改房屋狀態(tài) rs_hcheck(8) = 已租 39。如果已經(jīng)過了預(yù)定有效期，別的用戶可以承租 If (Date DateAdd(d, (4), (8))) Then 39。 sqlyd, conn, adOpenStatic, adLockOptimistic 39。 Text1(2).Text amp。檢查該客戶是否為預(yù)定客戶sqlyd = select * from YuDing where 預(yù)定房屋編號 = 39。 sqlh, conn, adOpenStatic, adLockOptimistic If = True ThenMsgBox 該房屋編號不存在，請重新輸入一個！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub ElseIf (8) = 已租 ThenMsgBox 該房屋已經(jīng)出租了，請選擇另一房屋！, vbOKOnly + vbInformation, 注意 Exit Sub39。 Text1(2).Text amp。檢測房屋狀態(tài) sqlh = select * from House where 房屋編號 = 39。 39。 amp?？傋饨鸬扔谠伦饨鸪艘宰馄? Text1(7).Text = Val(Text1(5).Text) * Val(Text1(6).Text) 39。 39。止租日期不能前于起租日期 If DateValue(Text1(4).Text) DateValue(Text1(3).Text) Then MsgBox 止租日期不能前于起租日期, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub End If 39。保存后需要設(shè)置其他按鈕可用，以及各個text框不可寫 = True = True = True = False = False = True = True = True = True = True = True For i = 0 To 9 Text1(i).Enabled = False Next i End Sub1．3 租賃管理模塊的設(shè)計1．3 .1簽訂合同的設(shè)計因租賃管理，財務(wù)管理和統(tǒng)計報表三個模塊的窗體設(shè)計比較多，無法一一描述，故選擇有代表性的窗體設(shè)計加以分析，其合同簽訂窗體的運行效果圖如下:如圖所示,簽訂的源碼設(shè)計如下:Private Sub cmdSign_Click() 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該求租客戶編號已經(jīng)存在，請重填一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。 (Text1(0).Text) amp。檢測房屋編號這個主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from QZClient where 求租客戶編號= 39。 sqlhcheck, conn, adOpenStatic, adLockOptimistic If ThenMsgBox 該房屋編號不存在，請重填或清空！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If End If 39。 Text1(8).Text amp。如果意向房屋編號不為空，需要檢查是否存在 If Not Text1(8).Text = Then Dim sqlhcheck As String Dim rs_hcheck As New sqlhcheck = select * from House where 房屋編號 = 39。關(guān)閉本窗體 Unload MeEnd Sub1．2．2求租戶基本資料的設(shè)計其保存按鈕的源碼分析如下：Private Sub cmdSave_Click() 39。 39。 amp。 = amp。設(shè)置查詢家庭租戶變量為真 querycf = True sqlqcf = where amp。如果已經(jīng)是第一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。先移動rs_house記錄到第一條 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。如果到記錄首，則表格已經(jīng)為空，置所有text框顯示為空 ElseIf Then For i = 0 To 7 Text1(i).Text = Next i = False = False = False = False End If 39。先移動rs_house記錄到后一條 If Then 39。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。刪除當(dāng)前記錄 39。當(dāng)單擊刪除記錄時，需要彈出一個提示框，警告用戶 Dim answer As String answer = MsgBox(確定要刪除嗎？, vbYesNo, ) 39。開始時設(shè)置各個text框不可寫 For i = 0 To 7 Text1(i).Enabled = False Next i 39。如果沒有數(shù)據(jù)，