1、系統(tǒng)主界面的設(shè)計(jì)啟動系統(tǒng)后，主界面設(shè)計(jì)效果圖如下: 公用模塊的設(shè)計(jì)代碼分析如下:Option ExplicitPublic conn As New ADODB.Connection定義全局變量queryhouse 作為判斷frmHouse 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryhouse As Boolean定義全局變量sqlqh 作為查詢房屋信息時的sql語句Public sqlqh As String定義全局變量querycf 作為判斷frmClient 窗體家庭租戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycf As Boolean定義全局變量sqlqcf

2、作為查詢家庭租戶信息時的sql語句Public sqlqcf As String定義全局變量querycg 作為判斷frmClient 窗體家公司戶選項(xiàng)卡顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycg As Boolean定義全局變量sqlqcg 作為查詢公司租戶信息時的sql語句Public sqlqcg As String定義全局變量queryemp 作為判斷frmEmp 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryemp As Boolean定義全局變量sqlqe 作為查詢員工信息時的sql語句Public sqlqe As String定義全局變量queryqzc 作

3、為判斷frmQZClient 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryqzc As Boolean定義全局變量sqlqzc 作為查詢求租客戶信息時的sql語句Public sqlqzc As String定義全局變量querycon 作為判斷frmAdminContract 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public querycon As Boolean定義全局變量sqlqcon 作為查詢合同信息時的sql語句Public sqlqcon As String定義全局變量sqlqyd 作為查詢預(yù)定單信息時的sql語句Public sqlqyd As String定義全局變量fro

4、mqzc 作為判斷frmYuDing 窗體是從frmQZClient窗體中單擊下定金預(yù)定調(diào)用的還是直接菜單調(diào)用的Public fromqzc As Boolean定義全局變量fromYuding 作為判斷frmPayDingJin 窗體是從frmYuDing窗體中單擊收取定金調(diào)用的還是直接菜單調(diào)用的Public fromYuding As Boolean定義全局變量fromContract 作為判斷frmPayYaJin 窗體是從frmSignContract窗體中單擊收取押金調(diào)用的還是直接菜單調(diào)用的Public fromContract As Boolean定義全局變量ZuJinfromCo

5、ntract 作為判斷frmPayZuJin 窗體是從frmSignContract窗體中單擊收取租金調(diào)用的還是直接菜單調(diào)用的Public ZuJinfromContract As Boolean定義全局變量queryZuJin 作為判斷frmAdminZuJin 窗體顯示查詢的數(shù)據(jù)還是全體數(shù)據(jù)Public queryZuJin As Boolean定義全局變量sqlqzj 作為查詢合同信息時的sql語句Public sqlqzj As String定義全局變量sqlqdj 作為查詢定金信息時的sql語句Public sqlqdj As String定義全局變量sqlqyj 作為查詢押金信息時

6、的sql語句Public sqlqyj As String1.各主要功能模塊的設(shè)計(jì)與實(shí)現(xiàn)11基本資料管理模塊設(shè)計(jì)房屋基本資料管理的運(yùn)行效果圖如下:其表單界面的屬性設(shè)計(jì)比較直觀,在此重點(diǎn)分析新增,修改,刪除,保存四個命令按鈕的源代碼設(shè)計(jì)：新增按鈕源碼:Private Sub cmdAdd_Click() 設(shè)置除保存和取消按鈕外的其他按鈕不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.E

7、nabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要清空所有text框，并且設(shè)置它們可寫 For i = 0 To 7 Text1(i).Text = Text1(i).Enabled = True Next i Combo1.Enabled = True add變量用于保存時判斷是從添加還是修改后保存 add = 1 Text1(0).SetFocus End SubPrivate Sub cmdCancel_Clic

8、k() 取消按鈕用于用戶添加或修改過程中放棄添加或修改操作 cmdSave.Enabled = False cmdCancel.Enabled = False cmdAdd.Enabled = True cmdQuery.Enabled = True 如果是從添加后取消 If add = 1 Then 如果當(dāng)前House表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not rs_house.EOF And Not rs_house.BOF Then For i = 0 To 7 Text1(i).Text = rs_house.Fields(i) Next i If rs_house.Fields(8)

9、= 已租 Then Combo1.ListIndex = 0 ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1 ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2 End If cmdEdit.Enabled = True cmdDel.Enabled = True cmdFirst.Enabled = True cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True 如果沒有數(shù)據(jù)，則顯示

10、空 Else For i = 0 To 7 Text1(i).Text = Next i cmdEdit.Enabled = False cmdDel.Enabled = False cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False End If 如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf add = 0 Then For i = 0 To 7 Text1(i).Text = rs_house.Fields(i) Next i If rs_h

11、ouse.Fields(8) = 已租 Then Combo1.ListIndex = 0 ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1 ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2 End If End If 開始時設(shè)置各個text框不可寫 For i = 0 To 7 Text1(i).Enabled = False Next i 先設(shè)置ComboBox的默認(rèn)值及不可改 Combo1.Enabled = FalseEnd SubPrivate Sub cm

12、dClose_Click() Unload MeEnd Sub刪除按鈕的源代碼：Private Sub cmdDel_Click() 當(dāng)單擊刪除記錄時，需要彈出一個提示框，警告用戶 Dim answer As String answer = MsgBox(確定要刪除嗎？, vbYesNo, ) 確實(shí)刪除 If answer = vbYes Then rs_house.Delete 刪除當(dāng)前記錄 rs_house.Update 更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, Else Exit Sub End If 刪除之后，顯示總信息條數(shù)需要減 1 T

13、ext2.Text = Val(Text2.Text) - 1 刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 先移動rs_house記錄到后一條 rs_house.MoveNext If rs_house.EOF Then rs_house.MovePrevious 如果沒有到記錄首則顯示該記錄 If Not rs_house.BOF Then For i = 0 To 7 Text1(i).Text = rs_house.Fields(i) Next i If rs_house.Fields(8) = 已租 Then Combo1.ListIndex = 0

14、 ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1 ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2 End If 如果到記錄首，則表格已經(jīng)為空，置所有text框顯示為空 ElseIf rs_house.BOF Then For i = 0 To 7 Text1(i).Text = Next i cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enable

15、d = False End If 如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 Else For i = 0 To 7 Text1(i).Text = rs_house.Fields(i) Next i If rs_house.Fields(8) = 已租 Then Combo1.ListIndex = 0 ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1 ElseIf rs_house.Fields(8) = 意向 Then Combo1.ListIndex = 2 End If End IfEnd Sub保存按鈕的源代碼：Pri

16、vate Sub cmdEdit_Click() 設(shè)置除保存和取消按鈕外的其他按鈕不可用 cmdAdd.Enabled = False cmdEdit.Enabled = False cmdDel.Enabled = False cmdSave.Enabled = True cmdCancel.Enabled = True cmdFirst.Enabled = False cmdPrev.Enabled = False cmdNext.Enabled = False cmdLast.Enabled = False cmdQuery.Enabled = False 需要設(shè)置除主鍵之外的text框

17、可寫 For i = 1 To 7 Text1(i).Enabled = True Next i Combo1.Enabled = True add = 0End SubPrivate Sub cmdFirst_Click() 先移動rs_house記錄到第一條 rs_house.MoveFirst 同時需要設(shè)置相應(yīng)按鈕為不可用和不可用 cmdPrev.Enabled = False cmdFirst.Enabled = False cmdNext.Enabled = True cmdLast.Enabled = True 如果已經(jīng)是第一條記錄，則提示用戶 If rs_house.BOF =

18、True Then MsgBox 對不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 如果不是，則個數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 7 Text1(i).Text = rs_house.Fields(i) Next i If rs_house.Fields(8) = 已租 Then Combo1.ListIndex = 0 ElseIf rs_house.Fields(8) = 未租 Then Combo1.ListIndex = 1 ElseIf rs_house.Fields(8) =

19、意向 Then Combo1.ListIndex = 2 End If End IfEnd SubPREV檢索按鈕的源代碼：12 客戶資料管理模塊的設(shè)計(jì)121租戶基本資料的設(shè)計(jì)運(yùn)行效果圖如下所示:在租戶基本資料中，我們重點(diǎn)分析查找家庭租戶功能的源碼，如下:Private Sub cmdQuery_Click() If Text1.Text = Then MsgBox 查詢條件不可為空！, vbOKOnly + vbInformation, 注意 Text1.SetFocus Exit Sub End If 設(shè)置查詢家庭租戶變量為真 querycf = True sqlqcf = where &

20、 Combo1.Text & = & & Text1.Text & frmClient.Show 關(guān)閉本窗體 Unload MeEnd Sub122求租戶基本資料的設(shè)計(jì)其保存按鈕的源碼分析如下：Private Sub cmdSave_Click() 檢測數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 求租客戶編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 求租客戶姓名不可為空！, vbOKOnly + vbInfor

21、mation, 注意 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

22、Text1(6).Text = And IsNumeric(Text1(6).Text) = False Then MsgBox 意向價(jià)位不為空則應(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 如果意向房屋編號不為

23、空，需要檢查是否存在 If Not Text1(8).Text = Then Dim sqlhcheck As String Dim rs_hcheck As New ADODB.Recordset sqlhcheck = select * from House where 房屋編號 = & Text1(8).Text & rs_hcheck.Open sqlhcheck, conn, adOpenStatic, adLockOptimistic If rs_hcheck.EOF ThenMsgBox 該房屋編號不存在，請重填或清空！, vbOKOnly + vbInformation, 注意

24、 Text1(8).SetFocus rs_hcheck.Close Exit Sub End If rs_hcheck.Close End If 添加數(shù)據(jù)后保存 If add = 1 Then 檢測房屋編號這個主鍵是否已經(jīng)在表中存在 Dim rs_check As New ADODB.Recordset Dim sqlCheck As String sqlCheck = select * from QZClient where 求租客戶編號= & (Text1(0).Text) & rs_check.Open sqlCheck, conn, adOpenStatic, adLockOptim

25、istic If Not rs_check.EOF And Not rs_check.BOF Then MsgBox 該求租客戶編號已經(jīng)存在，請重填一個！, vbOKOnly + vbInformation, 注意 rs_check.Close Text1(0).SetFocus Text1(0).Text = Exit Sub End If rs_check.Close 主鍵不重復(fù)，可以加入表中 rs_QZClient.AddNew For i = 0 To 9 rs_QZClient.Fields(i) = Text1(i).Text Next i rs_QZClient.Update 添

26、加之后顯示總共條數(shù)信息加 1 Text2.Text = Val(Text2.Text) + 1 修改數(shù)據(jù)后的保存 Else rs_QZClient.Update End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 保存后需要設(shè)置其他按鈕可用，以及各個text框不可寫 cmdAdd.Enabled = True cmdEdit.Enabled = True cmdDel.Enabled = True cmdSave.Enabled = False cmdCancel.Enabled = False cmdFirst.Enabled = True

27、 cmdPrev.Enabled = True cmdNext.Enabled = True cmdLast.Enabled = True cmdQuery.Enabled = True cmdYuDing.Enabled = True For i = 0 To 9 Text1(i).Enabled = False Next i End Sub13 租賃管理模塊的設(shè)計(jì)13 .1簽訂合同的設(shè)計(jì)因租賃管理，財(cái)務(wù)管理和統(tǒng)計(jì)報(bào)表三個模塊的窗體設(shè)計(jì)比較多，無法一一描述，故選擇有代表性的窗體設(shè)計(jì)加以分析，其合同簽訂窗體的運(yùn)行效果圖如下:如圖所示,簽訂的源碼設(shè)計(jì)如下:Private Sub cmdSign_

28、Click() 先檢查輸入數(shù)據(jù)完整性 For i = 0 To 2 If Text1(i).Text = Then MsgBox 除備注外的所有項(xiàng)不可為空！, 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 ThenMsgBox 日期應(yīng)為這樣的格式：2003-7-15！, vbOKOnly + vbInformation, 注意 Text1(i).SetFocus Exi

29、t 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 I

30、f 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 ThenMsgBox 簽訂日期應(yīng)為這樣的格式：2003-7-15！, vbOKOnly + vbInformation, 注意 Text1(10).SetFocus Exit Sub End If 止租日期不能前于起租日期 If DateValue(Text1(4).Text) Dat

31、eAdd(d, rs_yd.Fields(4), rs_yd.Fields(8) Then 出租，加入合同表 sqlcon = select * from Contract rs_contract.Open sqlcon, conn, adOpenStatic, adLockOptimistic rs_contract.AddNew For i = 0 To 11 rs_contract.Fields(i) = Text1(i).Text Next i rs_contract.Update 修改房屋狀態(tài) rs_hcheck(8) = 已租 rs_hcheck.Update 檢查求租客戶表中是否

32、有該客戶，如果有，則刪除之sqlqzc = select * from QZClient where 求租客戶姓名 = & Text1(1).Text & rs_qzc.Open sqlqzc, conn, adOpenStatic, adLockOptimistic If rs_qzc.EOF = False Then rs_qzc.Delete rs_qzc.Update End If 顯示簽訂合同成功 MsgBox 簽訂合同成功！, vbOKOnly + vbInformation, 注意 設(shè)置簽訂按鈕不可用 cmdSign.Enabled = False cmdYaJin.Enable

33、d = True cmdZuJin.Enabled = True 關(guān)閉所有打開的記錄集 rs_qzc.Close rs_yd.Close rs_hcheck.Close rs_contract.Close Exit Sub ElseMsgBox 該房屋已經(jīng)被別人預(yù)定了，請選擇另一房屋！, vbOKOnly + vbInformation, 注意 rs_hcheck.Close rs_yd.Close Exit Sub End If 該客戶即為預(yù)定客戶，可以出租 ElseIf rs_yd.Fields(1) = Text1(1).Text Then 出租，加入合同表 sqlcon = selec

34、t * from Contract rs_contract.Open sqlcon, conn, adOpenStatic, adLockOptimistic rs_contract.AddNew For i = 0 To 11 rs_contract.Fields(i) = Text1(i).Text Next i rs_contract.Update 修改房屋狀態(tài) rs_hcheck(8) = 已租 rs_hcheck.Update 刪除預(yù)定表中該項(xiàng) rs_yd.Delete rs_yd.Update 檢查求租客戶表中是否有該客戶，如果有，則刪除之sqlqzc = select * fro

35、m QZClient where 求租客戶姓名 = & Text1(1).Text & rs_qzc.Open sqlqzc, conn, adOpenStatic, adLockOptimistic If rs_qzc.EOF = False Then rs_qzc.Delete rs_qzc.Update End If 顯示簽訂合同成功 MsgBox 簽訂合同成功！, vbOKOnly + vbInformation, 注意 設(shè)置簽訂按鈕不可用 cmdSign.Enabled = False cmdYaJin.Enabled = True cmdZuJin.Enabled = True 關(guān)

36、閉所有打開的記錄集 rs_qzc.Close rs_yd.Close rs_hcheck.Close rs_contract.Close Exit Sub End If 如果該房屋狀態(tài)為未租，則可以順利出租 ElseIf rs_hcheck.Fields(8) = 未租 Then 出租，加入合同表 sqlcon = select * from Contract rs_contract.Open sqlcon, conn, adOpenStatic, adLockOptimistic rs_contract.AddNew For i = 0 To 11 rs_contract.Fields(i)

37、 = Text1(i).Text Next i rs_contract.Update 修改房屋狀態(tài) rs_hcheck(8) = 已租 rs_hcheck.Update 檢查求租客戶表中是否有該客戶，如果有，則刪除之sqlqzc = select * from QZClient where 求租客戶姓名 = & Text1(1).Text & rs_qzc.Open sqlqzc, conn, adOpenStatic, adLockOptimistic If rs_qzc.EOF = False Then rs_qzc.Delete rs_qzc.Update End If 顯示簽訂合同成功

38、 MsgBox 簽訂合同成功！, vbOKOnly + vbInformation, 注意 設(shè)置簽訂按鈕不可用 cmdSign.Enabled = False cmdYaJin.Enabled = True cmdZuJin.Enabled = True 關(guān)閉所有打開的記錄集 rs_qzc.Close rs_hcheck.Close rs_contract.Close Exit Sub End If13 .2預(yù)定租房的設(shè)計(jì) 其收取定金的設(shè)計(jì)如下：Private Sub cmdDingJin_Click() fromYuding = True cmdDingJin.Enabled = False

39、 frmPayDingJin.ShowEnd Sub14財(cái)務(wù)管理模塊的設(shè)計(jì)14 .1定金收取的設(shè)計(jì)系統(tǒng)維護(hù)的運(yùn)行效果圖如下: 其收取定金按鈕的源碼設(shè)計(jì)如下:Private Sub cmdAdd_Click() 先檢測數(shù)據(jù)完整性 If Text1(0).Text = Then MsgBox 收費(fèi)編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub End If If Text1(2).Text = Or IsDate(Text1(2).Text) = False Then MsgBox 收費(fèi)日期應(yīng)為這樣的日期格式：200

40、3-8-3！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub End If If Text1(3).Text = Then MsgBox 預(yù)定單編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub End If 檢測該收費(fèi)編號是否已存在 sqlch = select * from DingJin where 收費(fèi)編號 = & Text1(0).Text & rs_ch.Open sqlch, conn, adOpenStatic, adLockOptimistic If rs_ch.EOF = False ThenMsgBox 該收費(fèi)編號已經(jīng)存在，請重新輸入一個