【導(dǎo)讀】如何利用先進的管理手段，提高房屋租憑管理水平，是當(dāng)今社會所面臨的一。本文通過用房屋租賃管理系統(tǒng)，利用軟件工程原理，采用面向?qū)ο?。的編程方法，其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面，理、客戶資料管理、租憑合同管理、財務(wù)管理、統(tǒng)計報表管理等功能.經(jīng)過實際測試證明，論文主要介紹了本課題的開發(fā)背景，所要完成的功能和開發(fā)的全過程。統(tǒng)設(shè)計的重點、設(shè)計思想、難點技術(shù)和解決方案。

　　

【正文】 注意 Text1(0).SetFocus 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 27 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 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)在表中存在 28 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 = 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 29 = False = True = True = True = True = True = True For i = 0 To 9 Text1(i).Enabled = False Next i End Sub 4． 3． 3 租賃管理 模 塊的設(shè)計 4． 3． 3 .1 簽訂合同 的設(shè)計 因租賃管理，財務(wù)管理和統(tǒng)計報表三個模塊的窗體設(shè)計比較多，無法一一描述，故選擇有代表性的窗體設(shè)計加以分析， 其 合同簽訂窗體的運行 效果圖如下 : 30 如圖所示 ,簽訂的源碼 設(shè)計如下 : Private Sub cmdSign_Click() 39。先檢查輸入數(shù)據(jù)完整性 For i = 0 To 2 If Text1(i).Text = Then MsgBox 除備注外的所有項不可為空！ , vbOKOnly + vbInformation, 注意 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)為這樣的格式： 2020715！ , vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exit Sub End If Next i 31 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)為這樣的格式： 2020715！ , vbOKOnly + vbInformation, 注意 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), 32 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。 sqlh, conn, adOpenStatic, adLockOptimistic If = True Then MsgBox 該房屋編號不存在，請重新輸入一個！ , vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub ElseIf (8) = 已租 Then MsgBox 該房屋已經(jīng)出租了，請選擇另一房屋！ , vbOKOnly + vbInformation, 注意 Exit Sub 39。如果該房屋狀態(tài)為預(yù)定，則需要看預(yù)定人是否為該客戶，如果不是，需要彈出對話框提示用戶 ElseIf (8) = 預(yù)定 Then 39。檢查該客戶是否為預(yù)定客戶 33 sqlyd = select * from YuDing where 預(yù)定房屋編號 = 39。 amp。 Text1(2).Text amp。 39。 sqlyd, conn, adOpenStatic, adLockOptimistic 39。如果該客戶不是預(yù)定客戶，檢查預(yù)定有效期 If Not (1) = Text1(1).Text Then 39。如果已經(jīng)過了預(yù)定有效期，別的用戶可以承租 If (Date DateAdd(d, (4), (8))) Then 39。出租，加入合同表 sqlcon = select * from Contract sqlcon, conn, adOpenStatic, adLockOptimistic For i = 0 To 11 (i) = Text1(i).Text Next i 39。修改房屋狀態(tài) rs_hcheck(8) = 已租 39。檢查求租客戶表中是否有該客戶，如果有，則刪除之 sqlqzc = select * from QZClient where 求租客戶姓名 = 39。 amp。 Text1(1).Text amp。 39。 sqlqzc, conn, adOpenStatic, adLockOptimistic If = False Then End If 39。顯示簽訂合同成功 MsgBox 簽 訂合同成功！ , vbOKOnly + vbInformation, 注意