【正文】 先需要設置 DataGrid2 可見 = True 39。下面的 sql 語句已用戶選擇的 分組、排序，并且統(tǒng)計同一個 的數(shù)量 sql2 = select amp。 , count( amp。 _ ) as 數(shù)量統(tǒng)計 from Equipment group by amp。 order by amp。設置 DataGrid2 的數(shù)據(jù)源 Set = rs_tg End Sub其它幾個窗同的設計與該窗體設計雷同，排序按鈕的設計參照物業(yè)設備統(tǒng)計按鈕的設計?！肮ぞ摺辈藛沃?選取“菜單編輯器”建立如下圖 所示的系統(tǒng)主菜單: 黃河科技學院畢業(yè)設計說明書 第 24 頁圖 系統(tǒng)主菜單可以看出菜單系統(tǒng)的建立比較直觀,因此不作重點描述一個典型的數(shù)據(jù)庫應用程序由數(shù)據(jù)結(jié)構(gòu)，操作界面，查詢選項和報表打印等組成。設計好的功能模塊制作完畢后，單擊全編譯執(zhí)行在確認無誤后,單擊文件菜單下的生成工 的可執(zhí)行程序 .到此一個完整的系統(tǒng)設計完成。系統(tǒng)測試是保證系統(tǒng)質(zhì)量和可靠性的關鍵步驟，是對系統(tǒng)開開過程的系統(tǒng)分析，系統(tǒng)設計和實施的最后檢查。本測試計劃的主要內(nèi)容，集中測試系統(tǒng)的各個功能是否完成、是否正確、完成后的系統(tǒng)測試。系統(tǒng)在開發(fā)過程本身也是遵循一個嚴謹?shù)倪^程，所以為了保證產(chǎn)品的質(zhì)量，我們必須嚴格按照需求說明書和測試說明書來測試各個功能模塊。表 測試結(jié)果表輸入 CHeck Conndbe Search Insert Closedb 輸出正確信息 True True True True True 成功不正確信息 True True False False True 失敗不完善信息 False False False False 為使用 失敗由表 我們看出在此模塊中我們必須輸入完善的正確的信息才能通過系統(tǒng)，從而可以看出系統(tǒng)的安全機制很高，對信息的驗證效率十分高。所以此模塊的功能是完善的。通過整個系統(tǒng)的測試，我發(fā)現(xiàn)整個系統(tǒng)的功能還是比較穩(wěn)定，雖然在某些地方還不盡如人意，但是我們開發(fā)的目的還是達到了，作為第一次開發(fā)軟件，第一次做畢業(yè)設計，我們從中還是學到了不少的知識，通過這次開發(fā)，我們?yōu)橐院筮M入計算機行業(yè)做開發(fā)工作積累了一定的經(jīng)驗。對書本的學習完成以后，開始著手對數(shù)據(jù)庫系統(tǒng)開始制作?？偟膩碚f，做完一個數(shù)據(jù)庫的收獲不僅僅是技術上的，對事情的宏觀的控制有了更深的看法。首先便是調(diào)研的不充分。其次是軟件的編程問題，由于以前沒有學習過 VB，所以在畢業(yè)設計期間進行了苦讀，終于可以基本掌握了常用控件的用法和語句編程。然后，會用了兩種軟件，如何把它們連接在一起還真是一件困難的事：選擇連接的方法就很重要，通過各方面的比較，我選擇了 ADO，通過 ADO 控件與數(shù)據(jù)庫中各表進行連接，同時也用到少數(shù)編程實現(xiàn) VB 和 ACCESS 數(shù)據(jù)庫的連接。隨后便是整體設計的問題，只是軟件工程的重要部分，一個好的軟件的開發(fā)必須要全面而實用，盡量把所有的問題都考慮進去，記得當時我們的軟件工程老師就說過，一個制作好的軟件和差一些的軟件最大的區(qū)別就在于好的軟件把所有的可能性，自然實用性也就上去了。最后就是從一而終的問題了，在開發(fā)過程中我遇到了許許多多的問題，我經(jīng)常的請教同學和晁老師，最后的成果雖然不很完美，但我盡力了，并有所收獲。導師淵博的專業(yè)知識，嚴謹?shù)闹螌W態(tài)度，精益求精的工作作風，誨人不倦的高尚師德，嚴以律己、寬以待人的風范，樸實無華、平易近人的人格魅力對我影響深遠。本論文從選題到完成，每一步都是在導師的指導下完成的，傾注了導師大量的心血。老師認真負責的 黃河科技學院畢業(yè)設計說明書 第 28 頁工作態(tài)度，嚴謹?shù)闹螌W精神和深厚的理論水平都使我收益匪淺。在此，向晁學鵬導師表示崇高的敬意和衷心的感謝！另外，在系統(tǒng)開發(fā)過程中我的同學也給于我很大的幫助，幫助我解決了不少的難點，在我有困難的時候，大家都伸出友誼的手，在大家的幫助下，使得系統(tǒng)能及時開發(fā)完成，還有同組的同學同樣給與我不少幫助，特別是張慧分，高陽，白曉婧同學，這里一并表示感謝。 2022 [M]. USA:McGrawHill，2022.[12] [N] .北京:中央廣播電視大學出版社,1997.附 錄因為系統(tǒng)涉及代碼過多，故選擇模塊部分代碼如下所示。設置一個 add 變量用于保存時判斷是從添加還是修改后保存Dim addPrivate Sub cmdAdd_Click() 黃河科技學院畢業(yè)設計說明書 第 30 頁 39。需要清空所有 text 框，并且設置它們可寫 For i = 0 To 9 Text1(i).Text = Text1(i).Enabled = True Next i 39。取消按鈕用于用戶添加或修改過程中放棄添加或修改操作 = False = False = True = True = True = True = True = True = True 黃河科技學院畢業(yè)設計說明書 第 31 頁 = True 39。如果當前 Equipment 表中有數(shù)據(jù)則顯示第一條數(shù)據(jù) If Not And Not Then For i = 0 To 9 Text1(i).Text = (i) Next i 39。如果是修改后取消，則恢復到修改前的數(shù)據(jù) ElseIf add = 0 Then For i = 0 To 9 Text1(i).Text = (i) Next i End If 39。當單擊刪除記錄時，需要彈出一個提示框，警告用戶 Dim answer As String answer = MsgBox(確定要刪除嗎？ , vbYesNo, ) 黃河科技學院畢業(yè)設計說明書 第 32 頁 39。刪除當前記錄 39。刪除之后，顯示總信息條數(shù)需要減 1 = Val() 1 39。先移動 rs_tousu 記錄到后一條 If Then 39。如果到記錄首，則表格已經(jīng)為空，置所有 text 框顯示為空 ElseIf Then For i = 0 To 9 Text1(i).Text = Next i End If 39。設置除保存和取消按鈕外的其他按鈕不可用 = False = False = False = True = True = False = False = False = False = False 39。設置 add 變量為 0 add = 0End SubPrivate Sub cmdFirst_Click() 39。同時需要設置相應按鈕為不可用和不可用 = False = False = True = True 39。如果不是，則個數(shù)據(jù)表的記錄位置移到第一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdLast_Click() 39。如果已經(jīng)是最后一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經(jīng)是最后一條記錄了！, vbOKOnly + vbInformation, 注意 Exit Sub 39。先移動 rs_tousu 記錄到后一條 黃河科技學院畢業(yè)設計說明書 第 35 頁 39。如果已經(jīng)是最后一條記錄，則提示用戶 If = True Then MsgBox 對不起，已經(jīng)是最后一條記錄了！, vbOKOnly + vbInformation, 注意 39。如果不是，則個數(shù)據(jù)表的記錄位置移到后一條記錄，并且顯示之 Else For i = 0 To 9 Text1(i).Text = (i) Next i End IfEnd SubPrivate Sub cmdPrev_Click() 39。設置后一條和最后一條按鈕可用 = True = True 39。并且設置“前一條”和第一條按鈕不可用 = False 黃河科技學院畢業(yè)設計說明書 第 36 頁 = False Exit Sub 39。檢測數(shù)據(jù)是否完整 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 黃河科技學院畢業(yè)設計說明書 第 37 頁 MsgBox 投訴內(nèi)容不可為空！, vbOKOnly + vbInformation, 注意 Text1(8).SetFocus Exit Sub End If 39。檢測房間編號這個主鍵是否已經(jīng)在表中存在 Dim rs_check As New Dim sqlCheck As String sqlCheck = select * from TouSu where 投訴編號= 39。 (Text1(0).Text) amp。 sqlCheck, conn, adOpenStatic, adLockOptimistic If Not And Not Then MsgBox 該投訴編號已經(jīng)存在，請重填一個！, vbOKOnly + vbInformation, 注意 Text1(0).SetFocus Text1(0).Text = Exit Sub End If 39。添加之后顯示總共條數(shù)信息加 1 = Val() + 1 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。設置顯示記錄條數(shù)的 Text2 不可寫 = False 39。在 from_laod()方法中打開住戶信息表 黃河科技學院畢業(yè)設計說明書 第 39 頁 39。計算總共數(shù)據(jù)條數(shù) Dim sqlcount As String sqlcount = select count(*) from TouSu sqlcount, conn, adOpenStatic, adLockOptimistic If Then = 0 Else