【正文】 后取消 If add = 1 Then 39。如果當(dāng)前 Equipment 表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 9 Text1(i).Text = (i) Next i 39。如果沒(méi)有數(shù)據(jù)，則顯示空 Else For i = 0 To 9 Text1(i).Text = Next i End If 39。如果是修改后取消，則恢復(fù)到修改前的數(shù)據(jù) ElseIf add = 0 Then For i = 0 To 9 Text1(i).Text = (i) Next i End If 39。開(kāi)始時(shí)設(shè)置各個(gè) text 框不可寫 For i = 0 To 9 Text1(i).Enabled = False Next i End SubPrivate Sub cmdClose_Click() Unload MeEnd SubPrivate Sub cmdDel_Click() 39。當(dāng)單擊刪除記錄時(shí)，需要彈出一個(gè)提示框，警告用戶 Dim answer As String answer = MsgBox(確定要?jiǎng)h除嗎？ , vbYesNo, ) 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 32 頁(yè) 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 記錄到后一條 If Then 39。如果沒(méi)有到記錄首則顯示該記錄 If Not Then For i = 0 To 9 Text1(i).Text = (i) Next i 39。如果到記錄首，則表格已經(jīng)為空，置所有 text 框顯示為空 ElseIf Then For i = 0 To 9 Text1(i).Text = Next i End If 39。如果刪除的不是首尾記錄，則顯示當(dāng)前記錄即可 Else For i = 0 To 9 Text1(i).Text = (i) 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 33 頁(yè) Next i End IfEnd SubPrivate Sub cmdEdit_Click() 39。設(shè)置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。需要設(shè)置除主鍵之外的 text 框可寫 For i = 1 To 9 Text1(i).Enabled = True Next i 39。設(shè)置 add 變量為 0 add = 0End SubPrivate Sub cmdFirst_Click() 39。先移動(dòng) rs_tousu 記錄到第一條 39。同時(shí)需要設(shè)置相應(yīng)按鈕為不可用和不可用 = False = False = True = True 39。如果已經(jīng)是第一條記錄，則提示用戶 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 34 頁(yè) If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！ , vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdLast_Click() 39。移動(dòng) rs_tousu 記錄到最后一條 = True = True = False = False 39。如果已經(jīng)是最后一條記錄，則提示用戶 If = True Then MsgBox 對(duì)不起，已經(jīng)是最后一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。如果不是最后一條，則個(gè)數(shù)據(jù)表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdNext_Click() 39。先移動(dòng) rs_tousu 記錄到后一條 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 35 頁(yè) 39。設(shè)置前一條和第一條按鈕可用 = True = True 39。如果已經(jīng)是最后一條記錄，則提示用戶 If = True Then MsgBox 對(duì)不起，已經(jīng)是最后一條記錄了！, vbOKOnly + vbInformation, 注意 39。并且設(shè)置“后一條”和最后一條按鈕不可用 = False = False Exit Sub 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdPrev_Click() 39。先移動(dòng) rs_tousu 記錄到前一條 39。設(shè)置后一條和最后一條按鈕可用 = True = True 39。如果已經(jīng)是第一條記錄，則提示用戶 If = True Then MsgBox 對(duì)不起，已經(jīng)是第一條記錄了！ , vbOKOnly + vbInformation, 注意 39。并且設(shè)置“前一條”和第一條按鈕不可用 = False 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 36 頁(yè) = False Exit Sub 39。如果不是，則個(gè)數(shù)據(jù)表的記錄位置移到前一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdQuery_Click() End SubPrivate Sub cmdSave_Click() 39。檢測(cè)數(shù)據(jù)是否完整 If Text1(0).Text = Then MsgBox 投訴編號(hào)不可為空！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Exit Sub ElseIf IsDate(Text1(1).Text) = False Then MsgBox 投訴日期書寫不對(duì)，應(yīng)為 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 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 37 頁(yè) MsgBox 投訴內(nèi)容不可為空！, vbOKOnly + vbInformation, 注意 Text1(8).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 TouSu where 投訴編號(hào)= 39。 amp。 (Text1(0).Text) amp。 39。 sqlCheck, conn, adOpenStatic, adLockOptimistic 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。主鍵不重復(fù)，可以加入表中 For i = 0 To 9 (i) = Text1(i).Text Next i 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 39。修改數(shù)據(jù)后的保存 Else End If 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 38 頁(yè) MsgBox 保存數(shù)據(jù)成功！, vbOKOnly + vbInformation, 祝賀 39。保存后需要設(shè)置其他按鈕可用，以及各個(gè) 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。設(shè)置顯示記錄條數(shù)的 Text2 不可寫 = False 39。如果不是查詢顯示,則顯示第一條記錄 If queryTs = False Then 39。在 from_laod()方法中打開(kāi)住戶信息表 黃河科技學(xué)院畢業(yè)設(shè)計(jì)說(shuō)明書 第 39 頁(yè) 39。如果 rs_count rs_tousu 當(dāng)前狀態(tài)是打開(kāi)的，則先關(guān)閉之 If = adStateOpen Then End If If = adStateOpen Then End If 39。計(jì)算總共數(shù)據(jù)條數(shù) Dim sqlcount As String sqlcount = select count(*) from TouSu sqlcount, conn, adOpenStatic, adLockOptimistic If Then = 0 Else