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