【正文】 先移動(dòng)rs_tousu記錄到后一條 I。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。刪除當(dāng)前記錄 39。當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶 Dim answer As String answer = MsgBox(確定要?jiǎng)h除嗎？, vbYesNo, 注意) 39。住戶投訴管理窗體如圖513 所示。添加、修改、刪除這些操作必須保存后才能生效。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf addy = 0 Then For i = 0 To 12 Text1(i + k).Text = (i) Next i End If End If 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。如果沒有數(shù)據(jù)，則顯示空 Else For i = 0 To 12 Text1(i + k).Text = Next i End If 39。圖512 收費(fèi)管理窗體收費(fèi)管理界面，主要代碼如下所示：Private Sub cmdCancel_Click() If = 0 Then k = 0 If addw = 1 Then 39。簡(jiǎn)單查詢可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。是對(duì)小區(qū)內(nèi)物業(yè)設(shè)備和儀表收費(fèi)的總管理，主要功能也是對(duì)如 (收費(fèi)編號(hào)、住戶姓名、物業(yè)地址、年份、月份、收費(fèi)項(xiàng)目、收費(fèi)方式、應(yīng)收總額、已交金額、欠費(fèi)金額、交費(fèi)日期、辦理人、備注) 的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。 Set rs_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。 (Text1(0).Text) amp。檢測(cè)房間編號(hào)這個(gè)主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from tc where 車位編號(hào)= 39。圖511 停車管理窗體停車管理窗體界面，修改資料后，點(diǎn)擊保存按鈕，實(shí)現(xiàn)保存功能的主要代碼，如下所示：If Text1(0).Text = Then MsgBox 車位編號(hào)不可為空！, 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 日期書寫不對(duì)，應(yīng)為200011這樣的格式！, vbOKOnly + vbInformation, 注意 Text1(4).SetFocus Exit Sub ElseIf Not Text1(5).Text = And IsDate(Text1(5).Text) = False Then MsgBox 日期書寫不對(duì)，應(yīng)為200011這樣的格式！, vbOKOnly + vbInformation, 注意 Text1(5).SetFocus Exit Sub End If 39。添加、修改、刪除這些操作必須保存后才能生效。如果已經(jīng)是第一條記錄，則提示用戶 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_power記錄到第一條 39。如果已經(jīng)是第一條記錄，則提示用戶 If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。圖510 儀表數(shù)據(jù)管理窗體儀表數(shù)據(jù)管理界面主要代碼，如下所示：If = 0 Then 39。簡(jiǎn)單查詢可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。保存后需要設(shè)置其他按鈕可用，以及各個(gè)text框不可寫 = 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ào)、住戶姓名、物業(yè)地址、年份、月份、上月數(shù)據(jù)、本月用量、單價(jià)、本月費(fèi)用、上月抄表日期、本月抄表日期、本月交費(fèi)日期、辦理人) 的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 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。 (Text1(0).Text) amp。 圖59 物業(yè)設(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。簡(jiǎn)單查詢可使用“前一條”、“后一條”、“第一條”、“最后一條”這些功能進(jìn)行查找。修改數(shù)據(jù)后的保存 Else (房間編號(hào)) = Text1(0).Text For i = 1 To 6 (i) = Text1(i).Text Next i (總價(jià)) = Text1(7).Text For j = 8 To 10 (j) = Text1(j).Text Next j (11) = End If (3) 物業(yè)管理①物業(yè)設(shè)備管理物業(yè)設(shè)備管理主要是對(duì)除儀表外的小區(qū)內(nèi)的所有物業(yè)設(shè)備基本信息如 (設(shè)備編號(hào)、設(shè)備名稱、型號(hào)、品牌、所屬部門、購買日期、事故記錄) 的添加、修改、刪除、查詢及統(tǒng)計(jì)記錄個(gè)數(shù)。主鍵不重復(fù)，可以加入表中 For i = 0 To 10 (i) = Text1(i).Text Next i (11) = 39。 39。 amp。房產(chǎn)資料窗體如圖58所示。添加、修改、刪除這些操作必須保存后才能生效。 order by amp。因查詢而調(diào)用，只顯示符合查詢的數(shù)據(jù) ElseIf query = True Then If = adStateOpen Then End If sql = select * from zh amp。 = adUseClient Set rs_order = ExecuteSQL(sql, MsgText) 39。圖57 查詢結(jié)果界面查詢結(jié)果界面代碼如下所示：Private Sub cmdOrder_Click() 39。并且設(shè)置“后一條”和最后一條按鈕不可用 = False = False Exit Sub 39。設(shè)置前一條和第一條按鈕可用 = True = True 39。圖56 住戶資料窗體界面住戶資料窗體界面部分代碼，如下所示：Private Sub cmdn_Click() 39。添加、修改、刪除這些操作必須保存后才能生效。 Set xgsql = ExecuteSQL(sql, MsgText) If = True Then MsgBox 原用名或密碼錯(cuò)誤！, vbOKOnly + vbInformation, 注意 = = Exit Sub Else (1) = MsgBox 修改密碼成功！, vbOKOnly + vbInformation, 注意 Unload Me End If③退出點(diǎn)擊“退出”后系統(tǒng)將自動(dòng)退出。 amp。 userPwd= 39。 39。 amp。界面如圖55所示。圖54 新用戶注冊(cè)界面新用戶注冊(cè)界面部分代碼，如下所示：Set rs_check = ExecuteSQL(strsql, MsgText)If = False ThenMsgBox 此用戶名已存在,請(qǐng)選擇其他用戶！, vbOKOnly + vbInformation, 注意 = Exit Sub End If Dim sqladd As String sqladd = select * from UserTable Set rs_add = ExecuteSQL(sqladd, MsgText) (0) = (1) = (2) = (3) = MsgBox 新用戶已注冊(cè)成功！, vbOKOnly + vbInformation, 注意 Unload Me②修改密碼界面在“系統(tǒng)管理”菜單中選擇“修改密碼”，可以進(jìn)入修改用戶密碼界面。用戶輸入信息完畢后，單擊“確定”按鈕就可以將所輸入的資料寫入后臺(tái)數(shù)據(jù)庫中，從而完成添加用戶的操作。在這個(gè)界面中用戶需要輸入兩次密碼，用來保證所輸入密碼的正確性，最大可能地減少因?yàn)槊艽a輸入錯(cuò)誤造成的麻煩。圖53 主窗體界面主窗體界面部分代碼：Private Sub Call_