【正文】 39。 39。 39。 If Trim() = Or Trim() = Or Trim() = Or Trim() = Then MsgBox 用戶名和密碼不能為空！ , vbOKOnly Else Set rs = TransactSQL(sql2) If = False Then MsgBox 該用戶姓名已經(jīng)存在！ , vbOKOnly + vbExclamation, 提示 Exit Sub Else If Then MsgBox 兩次輸入密碼不同！ , vbOKOnly Else Set rs = TransactSQL(sql) 39。執(zhí)行 SQL 語(yǔ)句 Next connter = MsgBox 數(shù)據(jù)庫(kù)備份成功 !!, 64, 提示信息 = True = 0 End If添加用戶窗體中的 “添加 ”按鈕代碼：Dim rs As New Dim sql As String Dim sql2 As String If = 添加 Then = = = = = 確定 Else sql = select * from user sql2 = select * from user where 姓名 =39。 amp。定義字符串變量 = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。 = strsql n = 1 End IfIf = Checked Then If n = 1 Then strsql = strsql + and End If strsql = strsql + 考核方式 =39。 = strsql n = 1 End IfIf = Checked Then If n = 1 Then strsql = strsql + and End If strsql = strsql + 課程編號(hào) =39。 amp。Split() 返回一個(gè)下標(biāo)從零開(kāi)始的一維數(shù)組 strConnection 39。 Persist Security Info=False。執(zhí)行 sql 語(yǔ)句的函數(shù) Dim rs As Dim strConnection As String Dim strArray() As String Set cont = New 39。46參考文獻(xiàn)[1] 吳昌平,Visual 程序設(shè)計(jì)[M].北京：人民郵電出版社,20228.[2] 東岳工作室,Visual 基礎(chǔ)教程[M].北京：人民郵電出版社,199812.[3] 徐安東 李飛 荊曉怡 , Visual 數(shù)據(jù)庫(kù)應(yīng)用開(kāi)發(fā)教程[M].北京：清華大學(xué)出版社,20228.[4] 白康生,Visual Basic 程序設(shè)計(jì)[M].北京：清華大學(xué)出版社,20229.[5] 龔沛曾 楊志強(qiáng) 陸慰民,Visual Basic 程序設(shè)計(jì)基礎(chǔ) (第 3 版)[M].北京：高等教育出版社,20223.[6] 吳權(quán)威 王緒溢,Access 2022 應(yīng)用基礎(chǔ)教程 [M]. 北京: 中國(guó)鐵道出版社, 20221.[7] 李海兵 楊曉亮, Access 2022 數(shù)據(jù)庫(kù)管理從入門到精通[M]. 北京：中國(guó)青年電子出版社,20222.[8] 何博, Access 開(kāi)發(fā)實(shí)例完全解剖[M]. 北京：中國(guó)電力出版社,20221.[9] 李玉東 李罡 李雷,Visual [M]. 北京：電子工業(yè)出版社,20223.[10] 伍俊良,Visual Basic 應(yīng)用與開(kāi)發(fā)教程[M]. 北京：機(jī)械出版社出版，2022.[11] 劉炳文,Visual 程序設(shè)計(jì)—數(shù)據(jù)庫(kù)篇[M].北京：人民郵電出版社,1999.[12] 王萍 聶偉強(qiáng),Visual Basic 程序設(shè)計(jì)基礎(chǔ)教程[M].北京：清華大學(xué)出版社,20226.[13] 張路平 喻波 邵謙謙, Visual 編程案例精解[M].北京:電子工業(yè)出版社，20224.[14] 徐謖, Visual Basic 應(yīng)用與開(kāi)發(fā)案例教程[M].北京:清華大學(xué)出版社，20224.[15] 張德強(qiáng) 李云嶺 易向東, Visual Basic 案例開(kāi)發(fā)[M].北京:中國(guó)水利水電出版社，20221.附錄Ⅰ 公用函數(shù)程序代碼Public iflag As Integer 39。由于時(shí)間的限制和本人的知識(shí)掌握尚有欠缺，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。并提供部分系統(tǒng)維護(hù)功能,使用戶方便進(jìn)行數(shù)據(jù)備份和恢復(fù)、數(shù)據(jù)刪除。在發(fā)布之前對(duì)其進(jìn)行測(cè)試，通過(guò)測(cè)試之后就可以發(fā)布了。這一步涉及工程的屬性設(shè)置、可執(zhí)行應(yīng)用程序的生成。(2) 確認(rèn)測(cè)試這一階段主要是針對(duì)系統(tǒng)的功能、特性及穩(wěn)定性和適用性進(jìn)行進(jìn)一步的測(cè)試。（二）程序功能測(cè)試經(jīng)過(guò)代碼測(cè)試正確的程序在邏輯上符合要求，并不能驗(yàn)證是否符合具體功能。圖 353 權(quán)限設(shè)置窗體四、系統(tǒng)測(cè)試、編譯與發(fā)行本系統(tǒng)采取的測(cè)試方法是先進(jìn)行各模塊測(cè)試,經(jīng)過(guò)修改和調(diào)整通過(guò)后,進(jìn)行總體。 圖 352 修改密碼窗體6． 權(quán)限設(shè)置窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶進(jìn)入系統(tǒng)后，單擊快捷工具欄上的“系統(tǒng)管理”按鈕，在彈出的功能列表中選擇“權(quán)限設(shè)置”選項(xiàng)，進(jìn)入權(quán)限設(shè)置界面。(2) 實(shí)現(xiàn)過(guò)程在此窗體中，要先輸入原用戶姓名和密碼，再輸入新密碼和確認(rèn)密碼。對(duì)應(yīng)代碼（見(jiàn)附錄Ⅳ） 。對(duì)應(yīng)代碼（見(jiàn)附錄Ⅳ） 。添加用戶界面主要實(shí)現(xiàn)功能：添加用戶名和權(quán)限級(jí)別，設(shè)置密碼。在“退出”按鈕的 Click 事件中添加代碼： Unload me 圖 348 系統(tǒng)初始化窗體2．?dāng)?shù)據(jù)備份窗體(1) 實(shí)現(xiàn)目標(biāo)對(duì)數(shù)據(jù)進(jìn)行備份，防止意外情況造成數(shù)據(jù)的損失。 單擊“確認(rèn)初始化”按鈕，則數(shù)據(jù)開(kāi)始初始化，ProgressBar 控件顯示初始化進(jìn)度。(2) 實(shí)現(xiàn)過(guò)程① 添加 CheckBox 控件，Caption 屬性設(shè)為表名。(2) 運(yùn)行結(jié)果（見(jiàn)圖 345）圖 345 畢設(shè)(論文)信息修改窗體4． 畢設(shè)(論文)信息統(tǒng)計(jì)窗體設(shè)計(jì)(1) 功能介紹可按不同條件對(duì)畢設(shè)(論文)信息進(jìn)行統(tǒng)計(jì)，統(tǒng)計(jì)結(jié)束后可恢復(fù)原表內(nèi)容。(2) 運(yùn)行結(jié)果（見(jiàn)圖 341）圖 341 實(shí)習(xí)報(bào)告信息統(tǒng)計(jì)窗體5． 實(shí)習(xí)報(bào)告信息打印窗體設(shè)計(jì)(1) 功能介紹可打印或?qū)С鰧?shí)習(xí)報(bào)告信息表(2) 運(yùn)行結(jié)果（見(jiàn)圖 342）圖 342 實(shí)習(xí)報(bào)告信息打印窗體（十）畢設(shè)(論文) 管理設(shè)計(jì)1． 畢設(shè)(論文) 信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽畢設(shè)(論文)信息。② 可在一欄表中概看實(shí)習(xí)報(bào)告信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 334）圖 334 課設(shè)報(bào)告信息查詢窗體3． 課設(shè)報(bào)告信息修改窗體設(shè)計(jì)(1) 功能介紹可以添加、修改、刪除課程設(shè)計(jì)報(bào)告信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 330）圖 330 試卷信息修改窗體4． 試卷信息統(tǒng)計(jì)窗體設(shè)計(jì)(1) 功能介紹可按不同條件條件對(duì)試卷信息進(jìn)行統(tǒng)計(jì)，統(tǒng)計(jì)結(jié)束后可恢復(fù)原表內(nèi)容。(2) 運(yùn)行結(jié)果（見(jiàn)圖 326）圖 326 實(shí)驗(yàn)報(bào)告信息統(tǒng)計(jì)窗體5． 實(shí)驗(yàn)報(bào)告信息打印窗體設(shè)計(jì)(1) 功能介紹可打印或?qū)С鰧?shí)驗(yàn)報(bào)告信息表(2) 運(yùn)行結(jié)果（見(jiàn)圖 327）圖 327 實(shí)驗(yàn)報(bào)告信息打印窗體（七）試卷管理設(shè)計(jì)1．試卷信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽試卷信息。② 可在一欄表中概看實(shí)驗(yàn)報(bào)告信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 318） 圖 318 課程小結(jié)信息瀏覽窗體2． 課程小結(jié)信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。 (2) 運(yùn)行結(jié)果（見(jiàn)圖 315） 圖 315 實(shí)驗(yàn)教學(xué)日歷信息修改窗體4． 實(shí)驗(yàn)教學(xué)日歷信息統(tǒng)計(jì)窗體設(shè)計(jì)(1) 功能介紹① 可按不同統(tǒng)計(jì)條件統(tǒng)計(jì)。（四）實(shí)驗(yàn)教學(xué)日歷管理設(shè)計(jì)1． 實(shí)驗(yàn)教學(xué)日歷信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽實(shí)驗(yàn)教學(xué)日歷信息。添加一個(gè) Command 命令對(duì)象,命名為 Command1,設(shè)置其屬性數(shù)據(jù)源對(duì)象為表，對(duì)象名稱為 jiaoxue。圖 311 教學(xué)日歷信息統(tǒng)計(jì)窗體5． 教學(xué)日歷信息打印窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶單擊快捷工具欄上的“教學(xué)日歷”按鈕，在彈出的功能列表中選擇“教學(xué)日歷信息打印”選項(xiàng)，進(jìn)入教學(xué)日歷信息打印界面。具體實(shí)現(xiàn)如下：在“按學(xué)期統(tǒng)計(jì)課程數(shù)”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。② 添加程序代碼單擊“按學(xué)期統(tǒng)計(jì)課程數(shù)”按鈕，則 DataGrid 控件中顯示統(tǒng)計(jì)結(jié)果。圖 37 教學(xué)日歷信息修改窗體圖 38 添加對(duì)話框圖 39 修改對(duì)話框圖 310 刪除對(duì)話框4．教學(xué)日歷信息統(tǒng)計(jì)窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶單擊快捷工具欄上的“教學(xué)日歷管理”按鈕，在彈出的功能列表中選擇“教學(xué)日歷管理信息統(tǒng)計(jì)”選項(xiàng)，進(jìn)入教學(xué)日歷信息統(tǒng)計(jì)界面。單擊“刪除”按鈕，彈出一個(gè)對(duì)話框（見(jiàn)圖 310） ，點(diǎn)擊對(duì)話框中的“是”按鈕，則刪除 Datagrid 控件中當(dāng)前記錄；點(diǎn)擊對(duì)話框中的“否”按鈕，則對(duì)話框消失。教學(xué)日歷信息修改窗體設(shè)計(jì)（見(jiàn)圖 37） 。 具體實(shí)現(xiàn)如下：在“查詢”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。下拉列表框 DataCombo 和相應(yīng)的數(shù)據(jù)庫(kù)相連,并選擇相應(yīng)信息。② 多條件組合查詢教學(xué)日歷信息。在“下一條”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。單擊“一覽表”按鈕，則彈出含有所有記錄的一個(gè)界面（見(jiàn)圖 35） 。② 添加程序代碼單擊“首記錄”按鈕，則表格內(nèi)指針指向第一條記錄。教學(xué)日歷信息瀏覽界面主要實(shí)現(xiàn)以下功能：① 逐條瀏覽教學(xué)日歷信息。在 MDI 窗體中點(diǎn)擊右鍵選擇“菜單編輯器”編輯主窗體中菜單（見(jiàn)圖 33） 。系統(tǒng)首界面主要實(shí)現(xiàn)如下功能:① 選擇主界面菜單或按紐時(shí),調(diào)用相應(yīng)程序,進(jìn)行相應(yīng)操作。在窗體 Load 事件中初始化該變量 pwdcount=0。系統(tǒng)登錄界面設(shè)計(jì)（見(jiàn)圖 31） 。以后添加、刪除、查詢和修改等操作都可以調(diào)用該函數(shù)來(lái)完成，得到相應(yīng)的結(jié)果。三、 詳細(xì)設(shè)計(jì)首先，創(chuàng)建一個(gè)標(biāo)準(zhǔn)的 EXE 工程，將工程命名為“管理系教學(xué)文檔管理系統(tǒng)” ，工程文件保存為“” 。Access 數(shù)據(jù)庫(kù)提供了數(shù)據(jù)庫(kù)系統(tǒng)所能提供的快速檢索、統(tǒng)計(jì)報(bào)表等功能，支持SQL 語(yǔ)言，支持事物處理等。 可用于快速創(chuàng)建基于 Windows 環(huán)境的客戶/服務(wù)器模式應(yīng)用系統(tǒng)，Web 應(yīng)用系統(tǒng)和中等規(guī)模的應(yīng)用系統(tǒng)。Visual 指的是開(kāi)發(fā)圖形用戶界面的方法，Basic 指的是 Basic 語(yǔ)言——計(jì)算機(jī)技術(shù)發(fā)展史上應(yīng)用最廣泛的計(jì)算機(jī)語(yǔ)言。事件可由用戶引發(fā)（如單擊鼠標(biāo)） ，可由系統(tǒng)引發(fā)（如定時(shí)器事件） ，也可由代碼間接引發(fā)，不同類型的對(duì)象能識(shí)別不同的事件，常用事件有鼠標(biāo)和鍵盤兩個(gè)。對(duì)象是 VB 應(yīng)用程序的基礎(chǔ)構(gòu)件。表 21 教學(xué)日歷表（jiaoxue）字段名稱 數(shù)據(jù)類型 字段大小學(xué)期 文本 20課程編號(hào) 文本 10課程名稱 文本 20課程類別 文本 20課程學(xué)時(shí) 文本 10考核方式 文本 10教研室 文本 50學(xué)生專業(yè) 文本 50班級(jí) 文本 10主講教師 文本 20存儲(chǔ)位置 文本 20（五）開(kāi)發(fā)工具介紹本系統(tǒng)是在 Windows 2022 Professional 操作系統(tǒng)下，以中文版 Visual Basic 為前臺(tái)開(kāi)發(fā)工具, 用 Access2022 為后臺(tái)數(shù)據(jù)庫(kù)而實(shí)現(xiàn)的，其中通過(guò) ADO 技術(shù)訪問(wèn)數(shù)據(jù)庫(kù)。2． 數(shù)據(jù)庫(kù)的概念結(jié)構(gòu)設(shè)計(jì)利用上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)，設(shè)計(jì)滿足用戶需求的各種實(shí)體以及他們之間的關(guān)系，為以后的邏輯結(jié)構(gòu)設(shè)計(jì)做準(zhǔn)備。課程設(shè)計(jì)報(bào)告表（keshe）基本信息包括：學(xué)期、課設(shè)名稱、題目、學(xué)號(hào)、姓名、班級(jí)、成績(jī)、指導(dǎo)老師、存儲(chǔ)位置。教學(xué)日歷表（jiaoxue）基本信息包括：學(xué)期、課程編號(hào)、課程名稱、課程類別、課程學(xué)時(shí)、考核方式、教研室、學(xué)生專業(yè)、班級(jí)、主講教師、存儲(chǔ)位置。如果 3 次輸入用戶名和密碼都無(wú)法與數(shù)據(jù)庫(kù)中的數(shù)據(jù)匹配，則強(qiáng)制退出系統(tǒng)。系統(tǒng)總體功能模塊（見(jiàn)圖 21） 。(10) 用戶刪除模塊：刪除舊用戶。(6) 添加新用戶模塊：包括為系統(tǒng)新用戶設(shè)置用戶名和密碼。(2) 教學(xué)日歷信息查詢模塊：包括按不同查詢條件查詢和組合條件查詢教學(xué)日歷信息。系統(tǒng)主要功能有用戶對(duì)教