小區物業管理系統-資料下載頁

　　

【正文】 后取消 If add = 1 Then 39。如果當前 Equipment 表中有數據則顯示第一條數據 If Not And Not Then For i = 0 To 9 Text1(i).Text = (i) Next i 39。如果沒有數據，則顯示空 Else For i = 0 To 9 Text1(i).Text = Next i End If 39。如果是修改后取消，則恢復到修改前的數據 ElseIf add = 0 Then For i = 0 To 9 Text1(i).Text = (i) Next i End If 39。開始時設置各個 text 框不可寫 For i = 0 To 9 Text1(i).Enabled = False Next i End SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdDel_Click() 39。當單擊刪除記錄時，需要彈出一個提示框，警告用戶 Dim answer As String answer = MsgBox(確定要刪除嗎？ , vbYesNo, ) 黃河科技學院畢業設計說明書 第 32 頁 39。確實刪除 If answer = vbYes Then 39。刪除當前記錄 39。更新刪除 MsgBox 成功刪除！, vbOKOnly + vbExclamation, Else Exit Sub End If 39。刪除之后，顯示總信息條數需要減 1 = Val() 1 39。刪除當前記錄后，需要顯示下一條記錄，如果刪除的是最后一條記錄，則顯示上一條記錄 39。先移動 rs_tousu 記錄到后一條 If Then 39。如果沒有到記錄首則顯示該記錄 If Not Then For i = 0 To 9 Text1(i).Text = (i) Next i 39。如果到記錄首，則表格已經為空，置所有 text 框顯示為空 ElseIf Then For i = 0 To 9 Text1(i).Text = Next i End If 39。如果刪除的不是首尾記錄，則顯示當前記錄即可 Else For i = 0 To 9 Text1(i).Text = (i) 黃河科技學院畢業設計說明書 第 33 頁 Next i End IfEnd SubPrivate Sub cmdEdit_Click() 39。設置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。需要設置除主鍵之外的 text 框可寫 For i = 1 To 9 Text1(i).Enabled = True Next i 39。設置 add 變量為 0 add = 0End SubPrivate Sub cmdFirst_Click() 39。先移動 rs_tousu 記錄到第一條 39。同時需要設置相應按鈕為不可用和不可用 = False = False = True = True 39。如果已經是第一條記錄，則提示用戶 黃河科技學院畢業設計說明書 第 34 頁 If = True Then MsgBox 對不起，已經是第一條記錄了！ , vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是，則個數據表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdLast_Click() 39。移動 rs_tousu 記錄到最后一條 = True = True = False = False 39。如果已經是最后一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經是最后一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是最后一條，則個數據表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdNext_Click() 39。先移動 rs_tousu 記錄到后一條 黃河科技學院畢業設計說明書 第 35 頁 39。設置前一條和第一條按鈕可用 = True = True 39。如果已經是最后一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經是最后一條記錄了！, vbOKOnly + vbInformation, 注意 39。并且設置“后一條”和最后一條按鈕不可用 = False = False Exit Sub 39。如果不是，則個數據表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdPrev_Click() 39。先移動 rs_tousu 記錄到前一條 39。設置后一條和最后一條按鈕可用 = True = True 39。如果已經是第一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經是第一條記錄了！ , vbOKOnly + vbInformation, 注意 39。并且設置“前一條”和第一條按鈕不可用 = False 黃河科技學院畢業設計說明書 第 36 頁 = False Exit Sub 39。如果不是，則個數據表的記錄位置移到前一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdQuery_Click() End SubPrivate Sub cmdSave_Click() 39。檢測數據是否完整 If Text1(0).Text = Then MsgBox 投訴編號不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf IsDate(Text1(1).Text) = False Then MsgBox 投訴日期書寫不對，應為 202211 這樣的格式！, vbOKOnly + vbInformation, 注意 Text1(1).SetFocus Exit Sub ElseIf Text1(2).Text = Then MsgBox 接待人員不可為空！, vbOKOnly + vbInformation, 注意 Text1(2).SetFocus Exit Sub ElseIf Text1(3).Text = Then MsgBox 投訴住戶不可為空！, vbOKOnly + vbInformation, 注意 Text1(3).SetFocus Exit Sub ElseIf Text1(8).Text = Then 黃河科技學院畢業設計說明書 第 37 頁 MsgBox 投訴內容不可為空！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If 39。添加數據后保存 If add = 1 Then 39。檢測房間編號這個主鍵是否已經在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from TouSu where 投訴編號= 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該投訴編號已經存在，請重填一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。主鍵不重復，可以加入表中 For i = 0 To 9 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數信息加 1 = Val() + 1 39。修改數據后的保存 Else End If 黃河科技學院畢業設計說明書 第 38 頁 MsgBox 保存數據成功！, vbOKOnly + vbInformation, 祝賀 39。保存后需要設置其他按鈕可用，以及各個 text 框不可寫 = True = True = True = False = False = True = True = True = True = True For i = 0 To 9 Text1(i).Enabled = False Next i End SubPrivate Sub Form_activate() Dim X0 As Long Dim Y0 As Long 39。讓窗體居中 X0 = Y0 = X0 = (X0 ) / 2 Y0 = (Y0 ) / 2 X0, Y0 = False = False 39。設置顯示記錄條數的 Text2 不可寫 = False 39。如果不是查詢顯示,則顯示第一條記錄 If queryTs = False Then 39。在 from_laod()方法中打開住戶信息表 黃河科技學院畢業設計說明書 第 39 頁 39。如果 rs_count rs_tousu 當前狀態是打開的，則先關閉之 If = adStateOpen Then End If If = adStateOpen Then End If 39。計算總共數據條數 Dim sqlcount As String sqlcount = select count(*) from TouSu sqlcount, conn, adOpenStatic, adLockOptimistic If Then = 0 Else