【正文】 (12) 物業(yè)收費(fèi)表(wysf)物業(yè)收費(fèi)表存放小區(qū)內(nèi)住戶(hù)的各種除儀表以外設(shè)備的各種收費(fèi)信息，如表412所示。表413　 儀表收費(fèi)表字段名數(shù)據(jù)類(lèi)型可否為空收費(fèi)編號(hào)(主鍵)Char(10)NOT NULL住戶(hù)姓名Char(10)NOT NULL物業(yè)地址Varchar(50)NOT NULL收費(fèi)項(xiàng)目Varchar(50)NOT NULL收費(fèi)方式Varchar(50)NOT NULL應(yīng)收總額Float(8)NOT NULL已交金額Float(8)NOT NULL欠費(fèi)金額Float(8)NOT NULL交費(fèi)日期DatetimeNOT NULL辦理人Char(10)NULL備注Varchar(50)NULL第五章 系統(tǒng)的界面及編碼的實(shí)現(xiàn)經(jīng)過(guò)以上的分析及建模，已經(jīng)完成了數(shù)據(jù)庫(kù)的后臺(tái)工作。本系統(tǒng)分為以下三部分：(1) 加載系統(tǒng)及用戶(hù)登錄；(2) 系統(tǒng)主體平臺(tái)；(3) 通過(guò)主體平臺(tái)調(diào)用的功能模塊。 圖5１　加載系統(tǒng)界面 加載系統(tǒng)部分代碼如下：Private Sub Timer1_Timer()If dlaytime = 100 Then 39。在登錄進(jìn)入主體平臺(tái)的時(shí)候，系統(tǒng)會(huì)要求用戶(hù)輸入用戶(hù)名及密碼作為驗(yàn)證信息，為了防止非用戶(hù)在使用時(shí)重復(fù)試探登錄信息,在登錄時(shí)系統(tǒng)限制添加次數(shù)為三次,如果超出三次,將自動(dòng)退出。圖52 系統(tǒng)登錄界面系統(tǒng)登錄界面部分代碼如下所示：Private Sub cmdLogin_Click()Dim rs_user As New Dim txtSQL As StringDim MsgText As StringIf = Then MsgBox 用戶(hù)名不能為空,請(qǐng)輸入用戶(hù)名！, vbOKOnly + vbInformation, 注意 Exit SubElse If = Then MsgBox 請(qǐng)輸入密碼！, vbOKOnly + vbInformation, 注意 Exit Sub Else txtSQL = select * from UserTable where userId=39。 amp。 Set rs_user = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒(méi)有這個(gè)用戶(hù),請(qǐng)重新輸入你的用戶(hù)名！, vbOKOnly + vbInformation, 注意 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確,請(qǐng)重新輸入！, vbOKOnly + vbInformation, 注意 = End If End If End If miCount = miCount + 1 If miCount = 3 Then End IfEnd IfEnd Sub主窗口，是一個(gè)多文檔窗口，提供了對(duì)于各個(gè)模塊和各種操作的接口。系統(tǒng)主體平臺(tái)的四個(gè)功能模塊，分別是系統(tǒng)管理、資料管理、物業(yè)管理、數(shù)據(jù)報(bào)表管理。如圖53所示。① 新用戶(hù)注冊(cè)新用戶(hù)注冊(cè)模塊主要完成對(duì)新用戶(hù)信息的錄入，包括：用戶(hù)名、密碼、密碼確認(rèn)、真實(shí)姓名和注冊(cè)日期。然后添加真實(shí)姓名和注冊(cè)日期。界面如圖54所示。本窗體中仍然采用密碼驗(yàn)證的方法，目的同樣是為了減少錯(cuò)誤輸入所造成的麻煩。圖55 修改密碼界面修改密碼界面部分代碼，如下所示：If Then MsgBox 兩次輸入的密碼不同,請(qǐng)重新輸入！, vbOKOnly + vbInformation, 注意 Exit SubEnd If sql = select * from UserTable where userId= 39。 amp。and amp。 amp。 39。(2)資料管理①住戶(hù)資料住戶(hù)資料主要是對(duì)住戶(hù)的基本信息和另外兩個(gè)標(biāo)簽的信息進(jìn)行添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。住戶(hù)資料窗體界面如圖56所示。先移動(dòng)rs_client記錄到后一條 39。如果已經(jīng)是最后一條記錄，則提示用戶(hù) If = True Then MsgBox 對(duì)不起，已經(jīng)是最后一條記錄了！, vbOKOnly + vbInformation, 注意 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 12 Text1(i).Text = (i) Next i If (13) = 男 Then = 0 Else = 1 End If End IfEnd Sub以表格形式查詢(xún)住戶(hù)資料，可以查詢(xún)住戶(hù)編號(hào)、住戶(hù)姓名、性別、籍貫、房型、建筑面積、使用面積、工作單位及地址、郵編、身份證號(hào)、電話(huà)、入住時(shí)間、遷出時(shí)間、物業(yè)地址，查詢(xún)窗體界面，如圖57所示。排序顯示全部數(shù)據(jù)，而不是查詢(xún)結(jié)果數(shù)據(jù) Dim sql As String Dim MsgText As String If query = False Then If = adStateOpen Then End If sql = select * from zh order by amp。設(shè)置DataGrid1的數(shù)據(jù)源 Set = rs_order 39。 sqlqc amp。 = adUseClient Set rs_order = ExecuteSQL(sql, MsgText) Set = rs_order End IfEnd Sub②房產(chǎn)資料房產(chǎn)資料主要是對(duì)住戶(hù)的基本信息如 (房間編號(hào)、物業(yè)地址、建筑面積、使用面積、房型、單價(jià)、總價(jià)、是否已出售，買(mǎi)主編號(hào)、買(mǎi)主姓名、備注)的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。簡(jiǎn)單查詢(xún)可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。圖58 房產(chǎn)資料窗體房產(chǎn)資料窗體：Dim rs_check As New Dim sqlCheck As String Dim MsgText As String sqlCheck = select * from fc where 房間編號(hào)= 39。 (Text1(0).Text) amp。 setrs_check = ExecuteSQL(sqlCheck, MsgText) If Not And Not Then MsgBox 該房間編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。添加、修改、刪除這些操作必須保存后才能生效。物業(yè)設(shè)備管理資料窗體如圖59所示。 amp。 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。修改數(shù)據(jù)后的保存 Else For i = 0 To 6 (i) = Text1(i).Text Next i End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。添加、修改、刪除這些操作必須保存后才能生效。儀表管理資料窗體如圖510所示。移動(dòng)rs_water記錄到第一條 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 13 If IsNull((i)) = True Then Text1(i).Text = Else Text1(i).Text = (i) End If Next i End If ElseIf = 1 Then 39。如果已經(jīng)是第一條記錄，則提示用戶(hù) If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。移動(dòng)rs_gas記錄到第一條 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 13 If IsNull((i)) = True Then Text1(i + 28).Text = Else Text1(i + 28).Text = (i) End If Next i End If End If③停車(chē)管理停車(chē)管理主要是對(duì)住戶(hù)的停車(chē)場(chǎng)基本信息如 (車(chē)位編號(hào)、車(chē)位位置、停車(chē)住戶(hù)、物業(yè)地址、使用日期、備注) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。停車(chē)場(chǎng)管理資料窗體如圖511所示。添加數(shù)據(jù)后保存 If add = 1 Then 39。 amp。 39。主鍵不重復(fù)，可以加入表中 ④物業(yè)收費(fèi)管理物業(yè)收費(fèi)管理用兩個(gè)標(biāo)簽分別顯示物業(yè)設(shè)備和儀表收費(fèi)的情況。添加、修改、刪除這些操作必須保存后才能生效。收費(fèi)管理窗體如圖512所示 。如果當(dāng)前表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 12 Text1(i + k).Text = (i) Next i 39。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf addw = 0 Then For i = 0 To 12 Text1(i + k).Text = (i) Next i End If ElseIf = 1 Then k = 14 If addy = 1 Then 39。如果沒(méi)有數(shù)據(jù)，則顯示空 Else For i = 0 To 12 Text1(i + k).Text = Next i End If 39。設(shè)置各個(gè)text框不可寫(xiě) For i = 0 To 12 Text1(i + k).Enabled = False Next i End Sub⑤住戶(hù)投訴管理住戶(hù)投訴管理主要是對(duì)住戶(hù)投訴的基本信息如 (投訴編號(hào)、投訴日期、接待人員、投訴住戶(hù)、物業(yè)地址、電話(huà)、處理日期、處理人員、投訴內(nèi)容、處理情況) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。簡(jiǎn)單查詢(xún)可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。圖513 住戶(hù)投訴管理窗體住戶(hù)投訴管理界面主要代碼，如下所示：Private Sub cmdDel_Click() 39。確實(shí)刪除 If answer = vbYes Then 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, 注意 Else Exit Sub End If 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄