【正文】 窗體設(shè)計(jì)(1) 功能介紹可按不同條件對(duì)畢設(shè)(論文)信息進(jìn)行統(tǒng)計(jì)，統(tǒng)計(jì)結(jié)束后可恢復(fù)原表內(nèi)容。添加用戶界面主要實(shí)現(xiàn)功能：添加用戶名和權(quán)限級(jí)別，設(shè)置密碼。 圖 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è)置界面。這一步涉及工程的屬性設(shè)置、可執(zhí)行應(yīng)用程序的生成。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én)到精通[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。 amp。 amp。 39。 39。定義字符串變量 = True = UBound(workarea) = For Counter = LBound(workarea) To UBound(workarea) workarea(Counter) = initial value amp。Split() 返回一個(gè)下標(biāo)從零開(kāi)始的一維數(shù)組 strConnection 39。由于時(shí)間的限制和本人的知識(shí)掌握尚有欠缺，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機(jī)文檔比較少，用戶界面不夠美觀，出錯(cuò)處理不夠等多方面問(wèn)題。(2) 確認(rèn)測(cè)試這一階段主要是針對(duì)系統(tǒng)的功能、特性及穩(wěn)定性和適用性進(jìn)行進(jìn)一步的測(cè)試。(2) 實(shí)現(xiàn)過(guò)程在此窗體中，要先輸入原用戶姓名和密碼，再輸入新密碼和確認(rèn)密碼。在“退出”按鈕的 Click 事件中添加代碼： Unload me 圖 348 系統(tǒng)初始化窗體2．?dāng)?shù)據(jù)備份窗體(1) 實(shí)現(xiàn)目標(biāo)對(duì)數(shù)據(jù)進(jìn)行備份，防止意外情況造成數(shù)據(jù)的損失。(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è)(論文)信息。(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)教學(xué)日歷管理設(shè)計(jì)1． 實(shí)驗(yàn)教學(xué)日歷信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽實(shí)驗(yàn)教學(xué)日歷信息。② 添加程序代碼單擊“按學(xué)期統(tǒng)計(jì)課程數(shù)”按鈕，則 DataGrid 控件中顯示統(tǒng)計(jì)結(jié)果。 具體實(shí)現(xiàn)如下：在“查詢”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。單擊“一覽表”按鈕，則彈出含有所有記錄的一個(gè)界面（見(jiàn)圖 35） 。系統(tǒng)首界面主要實(shí)現(xiàn)如下功能:① 選擇主界面菜單或按紐時(shí),調(diào)用相應(yīng)程序,進(jìn)行相應(yīng)操作。三、 詳細(xì)設(shè)計(jì)首先，創(chuàng)建一個(gè)標(biāo)準(zhǔn)的 EXE 工程，將工程命名為“管理系教學(xué)文檔管理系統(tǒng)” ，工程文件保存為“” 。事件可由用戶引發(fā)（如單擊鼠標(biāo)） ，可由系統(tǒng)引發(fā)（如定時(shí)器事件） ，也可由代碼間接引發(fā)，不同類(lèi)型的對(duì)象能識(shí)別不同的事件，常用事件有鼠標(biāo)和鍵盤(pán)兩個(gè)。課程設(shè)計(jì)報(bào)告表（keshe）基本信息包括：學(xué)期、課設(shè)名稱(chēng)、題目、學(xué)號(hào)、姓名、班級(jí)、成績(jī)、指導(dǎo)老師、存儲(chǔ)位置。(10) 用戶刪除模塊：刪除舊用戶。（3）信息查詢靈活、方便、快捷、準(zhǔn)確，數(shù)據(jù)存儲(chǔ)安全可靠。所以，管理系決定采用計(jì)算機(jī)對(duì)教學(xué)文檔進(jìn)行管理?，F(xiàn)有本科生 940 人。(9) 系統(tǒng)管理：添加新用戶、密碼修改、刪除用戶、權(quán)限設(shè)置、數(shù)據(jù)備份、數(shù)據(jù)初始化。(7) 數(shù)據(jù)備份：對(duì)數(shù)據(jù)進(jìn)行備份，防止意外情況造成數(shù)據(jù)的丟失。實(shí)驗(yàn)教學(xué)日歷表（shiyanjiaoxue）基本信息包括：學(xué)期、實(shí)驗(yàn)室名稱(chēng)、課程名稱(chēng)、實(shí)驗(yàn)名稱(chēng)、學(xué)時(shí)、實(shí)驗(yàn)班級(jí)、人數(shù)、實(shí)驗(yàn)時(shí)間、存儲(chǔ)位置。窗體和控件都是對(duì)象，還包括數(shù)據(jù)庫(kù)、圖表等，對(duì)象具有屬性和方法，并響應(yīng)外部事件，開(kāi)發(fā)應(yīng)用程序時(shí)，先建立各種對(duì)象，在圍繞對(duì)象進(jìn)行各種程序設(shè)計(jì)。它以單文件形式存在，容易生成使用和管理。在“登錄”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅱ） ，經(jīng)過(guò)驗(yàn)證后進(jìn)入系統(tǒng)主頁(yè)面，對(duì)系統(tǒng)進(jìn)行操作。單擊“上一條”按鈕，則表格內(nèi)指針指向當(dāng)前記錄的前一條。② 重要控件屬性(見(jiàn)表 32)表 32 教學(xué)日歷信息查詢窗體重要控件屬性控件名 屬性 屬性設(shè)置DataCombo1 RowSource/ListField Adodc2/學(xué)期DataCombo2 RowSource/ListField Adodc3/課程編號(hào)DataCombo3 RowSource/ListField Adodc4/課程類(lèi)別DataCombo4 RowSource/ListField Adodc5/考核方式③ 添加程序代碼單擊“查詢”按鈕后（先選擇查詢條件） ，Datagrid 控件中顯示出所要查詢的結(jié)果。教學(xué)日歷信息統(tǒng)計(jì)界面主要實(shí)現(xiàn)功能：按各種不同統(tǒng)計(jì)條件統(tǒng)計(jì)有關(guān)信息。② 設(shè)計(jì)數(shù)據(jù)報(bào)表，命名為 DataReport1,設(shè)置其 DataSource 屬性為DataEnviroment1，DataMember 屬性為 jiaoxue。(2) 運(yùn)行結(jié)果（見(jiàn)圖 323）圖 323 實(shí)驗(yàn)報(bào)告信息瀏覽窗體2． 實(shí)驗(yàn)報(bào)告信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 338）圖 338 實(shí)習(xí)報(bào)告信息瀏覽窗體2．實(shí)習(xí)報(bào)告信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。單擊“退出”按鈕，則該窗體關(guān)閉。 圖 351 刪除用戶窗體5． 密碼修改窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶進(jìn)入系統(tǒng)后，單擊快捷工具欄上的“系統(tǒng)管理”按鈕，在彈出的功能列表中選擇“密碼修改”選項(xiàng)，進(jìn)入密碼修改界面。所以還要進(jìn)行功能測(cè)試。對(duì)于數(shù)據(jù)的一致性的問(wèn)題也通過(guò)程序進(jìn)行了有效的解決。Jet OLEDB:Database Password=39。 + DataCombo4 + 39。添加新紀(jì)錄 (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() If 4 Then MsgBox 級(jí)別不能大于 4！ , vbOKOnly Exit Sub End If MsgBox 用戶添加成功！ , vbOKOnly = 添加 = = = = End If End If End If End If刪除用戶窗體中的 “刪除 ”按鈕代碼：ask = MsgBox(真的要?jiǎng)h除該用戶的信息嗎 ?, vbYesNo)If ask = 6 ThenIf Then End If密碼修改窗體中的 “修改 ”按鈕代碼：Dim rs As New Dim rs2 As New Dim sql As String Dim sql2 As String If = 修改 Then sql = select * from user where 姓名 =39。 amp。 (sql) 39。 + DataCombo1 + 39。是否修改Public Function TransactSQL(ByVal sql As String) As Dim cont As 39。編譯完畢后，即生成可執(zhí)行文件。(2) 實(shí)現(xiàn)過(guò)程在 Datalist 控件中選擇用戶姓名，在“權(quán)限級(jí)別”下拉框中選擇用戶的權(quán)限級(jí)別，點(diǎn)擊確定，則設(shè)置成功。如果都符合檢驗(yàn)，用戶添加成功。系統(tǒng)初始化窗體運(yùn)行結(jié)果（見(jiàn)圖 348） 。(2) 運(yùn)行結(jié)果（見(jiàn)圖 333）圖 333 課設(shè)報(bào)告信息瀏覽窗體2． 課設(shè)報(bào)告信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。② 可在一欄表中概看課程小結(jié)信息。在“恢復(fù)原表內(nèi)容”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。單擊“修改”按鈕，彈出一個(gè)對(duì)話框（見(jiàn)圖 39） ，點(diǎn)擊對(duì)話框中的“是”按鈕，則可以在 Text 控件中添加信息；點(diǎn)擊對(duì)話框中的“否”按鈕，則對(duì)話框消失。教學(xué)日歷信息查詢界面主要實(shí)現(xiàn)以下功能：① 單項(xiàng)條件查詢教學(xué)日歷信息。圖 32 系統(tǒng)首界面窗體圖 33 菜單設(shè)置（三）教學(xué)日歷管理設(shè)計(jì)1． 教學(xué)日歷信息瀏覽窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶單擊快捷工具欄上的“教學(xué)日歷管理”按鈕，在彈出的功能列表中選擇“教學(xué)日歷信息瀏覽”選項(xiàng)，進(jìn)入教學(xué)日歷信息瀏覽界面。③ 對(duì)于忘記密碼的用戶可以點(diǎn)擊“忘記了密碼？？？”進(jìn)入密碼查詢界面。這些工具可用于創(chuàng)建基于 Microsoft DNA 體系的應(yīng)用系統(tǒng)，包括提供創(chuàng)建交叉平臺(tái)的 Web 應(yīng)用程序，Windows 的客戶/服務(wù)器模式的應(yīng)用系統(tǒng)。表 jiaoxue 的結(jié)構(gòu)（見(jiàn)表 21） ，系統(tǒng)所需的其他數(shù)據(jù)表結(jié)構(gòu)類(lèi)似，在這里不做詳細(xì)說(shuō)明。 登錄進(jìn)入系統(tǒng)開(kāi) 始失敗達(dá)三次 退出重試失敗 是教學(xué)日歷管理實(shí)驗(yàn)教學(xué)日歷管理 課程小結(jié)管理試卷管理課程設(shè)計(jì)管理試驗(yàn)報(bào)告管理實(shí)習(xí)報(bào)告管理畢業(yè)設(shè)計(jì)管理系統(tǒng)管理 圖 24 系統(tǒng)流程圖在系統(tǒng)流程圖中可以看到，每個(gè)用戶有 3 次機(jī)會(huì)進(jìn)行身份認(rèn)證。(1) 教學(xué)日歷信息瀏覽模塊：包括逐條瀏覽教學(xué)日歷信息以及在一覽表里查看全部教學(xué)日歷信息。(3) 課程小結(jié)管理：包括課程小結(jié)信息的瀏覽、查詢、修改、統(tǒng)計(jì)和打印。1VB 與數(shù)據(jù)庫(kù)應(yīng)用課程設(shè)計(jì)報(bào)告摸板畢業(yè)論文目 錄一、系統(tǒng)分析 .....................................................................................................................................................3（一）系統(tǒng)的開(kāi)發(fā)背景 .................................................................................................................................3（二）系統(tǒng)的需求分析 .................................................................................................................................3（