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