【正文】 設(shè)備管理窗體物業(yè)設(shè)備管理界面主要代碼，如下所示：Dim rs_check As New Dim sqlCheck As String Dim MsgText As String sqlCheck = select * from wysb where 設(shè)備編號(hào)= 39。 amp。 (Text1(0).Text) amp。 39。 Set rs_check = ExecuteSQL(sqlCheck, MsgText) If Not And Not Then MsgBox 該設(shè)備編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復(fù)，可以加入表中 For i = 0 To 6 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。修改數(shù)據(jù)后的保存 Else For i = 0 To 6 (i) = Text1(i).Text Next i End If MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫(xiě) = True = True = True = False = False = True = True = True = True = True For i = 0 To 6 Text1(i).Enabled = False Next i End Sub②儀表數(shù)據(jù)管理儀表數(shù)據(jù)管理主要是對(duì)住戶(hù)的水表、電表、氣表基本信息如 (儀表編號(hào)、住戶(hù)姓名、物業(yè)地址、年份、月份、上月數(shù)據(jù)、本月用量、單價(jià)、本月費(fèi)用、上月抄表日期、本月抄表日期、本月交費(fèi)日期、辦理人) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。添加、修改、刪除這些操作必須保存后才能生效。簡(jiǎn)單查詢(xún)可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。儀表管理資料窗體如圖510所示。圖510 儀表數(shù)據(jù)管理窗體儀表數(shù)據(jù)管理界面主要代碼，如下所示：If = 0 Then 39。移動(dòng)rs_water記錄到第一條 39。如果已經(jīng)是第一條記錄，則提示用戶(hù) If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 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。移動(dòng)rs_power記錄到第一條 39。如果已經(jīng)是第一條記錄，則提示用戶(hù) If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 13 If IsNull((i)) = True Then Text1(i + 14).Text = Else Text1(i + 14).Text = (i) End If Next i End If ElseIf = 2 Then 39。移動(dòng)rs_gas記錄到第一條 39。如果已經(jīng)是第一條記錄，則提示用戶(hù) If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 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所示。圖511 停車(chē)管理窗體停車(chē)管理窗體界面，修改資料后，點(diǎn)擊保存按鈕，實(shí)現(xiàn)保存功能的主要代碼，如下所示：If Text1(0).Text = Then MsgBox 車(chē)位編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf Text1(1).Text = Then MsgBox 車(chē)位位置不可為空！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Not Text1(4).Text = And IsDate(Text1(4).Text) = False Then MsgBox 日期書(shū)寫(xiě)不對(duì)，應(yīng)為200011這樣的格式！, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Not Text1(5).Text = And IsDate(Text1(5).Text) = False Then MsgBox 日期書(shū)寫(xiě)不對(duì)，應(yīng)為200011這樣的格式！, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 39。添加數(shù)據(jù)后保存 If add = 1 Then 39。檢測(cè)房間編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from tc where 車(chē)位編號(hào)= 39。 amp。 (Text1(0).Text) amp。 39。 Set rs_check = ExecuteSQL(sqlCheck, MsgText) If Not And Not Then MsgBox 該車(chē)位編號(hào)已經(jīng)存在，請(qǐng)重填一個(gè)！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復(fù)，可以加入表中 ④物業(yè)收費(fèi)管理物業(yè)收費(fèi)管理用兩個(gè)標(biāo)簽分別顯示物業(yè)設(shè)備和儀表收費(fèi)的情況。是對(duì)小區(qū)內(nèi)物業(yè)設(shè)備和儀表收費(fèi)的總管理，主要功能也是對(duì)如 (收費(fèi)編號(hào)、住戶(hù)姓名、物業(yè)地址、年份、月份、收費(fèi)項(xiàng)目、收費(fèi)方式、應(yīng)收總額、已交金額、欠費(fèi)金額、交費(fèi)日期、辦理人、備注) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。添加、修改、刪除這些操作必須保存后才能生效。簡(jiǎn)單查詢(xún)可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。收費(fèi)管理窗體如圖512所示 。圖512 收費(fèi)管理窗體收費(fèi)管理界面，主要代碼如下所示：Private Sub cmdCancel_Click() If = 0 Then k = 0 If addw = 1 Then 39。如果當(dāng)前表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 12 Text1(i + k).Text = (i) Next i 39。如果沒(méi)有數(shù)據(jù)，則顯示空 Else For i = 0 To 12 Text1(i + k).Text = Next i End If 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。如果當(dāng)前表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 12 Text1(i + k).Text = (i) Next i 39。如果沒(méi)有數(shù)據(jù)，則顯示空 Else For i = 0 To 12 Text1(i + k).Text = Next i End If 39。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf addy = 0 Then For i = 0 To 12 Text1(i + k).Text = (i) Next i End If 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è)地址、電話、處理日期、處理人員、投訴內(nèi)容、處理情況) 的添加、修改、刪除、查詢(xún)及統(tǒng)計(jì)記錄個(gè)數(shù)。添加、修改、刪除這些操作必須保存后才能生效。簡(jiǎn)單查詢(xún)可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。住戶(hù)投訴管理窗體如圖513 所示。圖513 住戶(hù)投訴管理窗體住戶(hù)投訴管理界面主要代碼，如下所示：Private Sub cmdDel_Click() 39。當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶(hù) Dim answer As String answer = MsgBox(確定要?jiǎng)h除嗎？, vbYesNo, 注意) 39。確實(shí)刪除 If answer = vbYes Then 39。刪除當(dāng)前記錄 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, 注意 Else Exit Sub End If 39。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。刪除當(dāng)前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。先移動(dòng)rs_tousu記錄到后一條