【正文】 amp。 amp。 39。 = strsql n = 1End If“全部 ”按鈕代碼：strsql = select * from jiaoxue = strsql“添加 ”按鈕代碼：ask = MsgBox(添加否 ?, vbYesNo)If ask = 6 ThenIf Then End If“修改 ”按鈕代碼：ask = MsgBox(修改否 ?, vbYesNo)If ask = 6 ThenEnd If“刪除 ”按鈕代碼：ask = MsgBox(刪除否 ?, vbYesNo)If ask = 6 ThenIf Then End If教學(xué)日歷信息統(tǒng)計(jì)窗體中 “按學(xué)期統(tǒng)計(jì)課程數(shù) ”按鈕代碼： = select 學(xué)期 ,count(*) as 課程數(shù) from jiaoxue group by 學(xué)期 “按課程類別統(tǒng)計(jì)課程數(shù) ”按鈕代碼： = select 課程類別 ,count(*) as 課程數(shù) from jiaoxue group by 課程類別 “考核方式統(tǒng)計(jì)課程數(shù) ”按鈕代碼： = select 考核方式 ,count(*) as 課程數(shù) from jiaoxue group by 考核方式“恢復(fù)原表內(nèi)容 ”按鈕代碼： = select * from jiaoxue附錄Ⅳ 系統(tǒng)管理程序代碼系統(tǒng)初始化窗體中的 “全部選中 ”按鈕代碼： = 1 = 1 = 1 = 1 = 1 = 1 = 1 = 1 = 1系統(tǒng)初始化窗體中的 “確認(rèn)初始化 ”按鈕代碼：Dim rs As New Dim sql As String Dim connter As Integer 39。 Set rs = TransactSQL(sql) If iflag = 1 Then If = True Then MsgBox 沒有這個(gè)用戶，請(qǐng)重新輸入 , vbOKOnly + vbExclamation, 警告 Else If Trim((2)) = Trim() Then Unload Me Else MsgBox 密碼錯(cuò)誤，重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If Else Unload Me End If End If pwdcount = pwdcount + 1 If pwdcount = 3 Then MsgBox 錯(cuò)誤次數(shù)已達(dá) 3 次，系統(tǒng)退出！ , vbOKOnly + vbExclamation, 警告 Unload Me Exit Sub End If附錄Ⅲ 教學(xué)日歷管理程序代碼教學(xué)日歷信息瀏覽窗體中 “首記錄 ”按鈕代碼：“上一條 ”按鈕代碼： If Then “下一條 ”按鈕代碼： If Then “末記錄 ”按鈕代碼：教學(xué)日歷信息查詢窗體中 “查詢 ”按鈕代碼：strsql = select * from jiaoxue where n = 0If = Checked Then strsql = strsql + 學(xué)期 =39。txm39。標(biāo)示要修改的信息Public ModifyBkFlag2 As Boolean 39。 管理系教學(xué)文檔管理系統(tǒng)是針對(duì)管理系的實(shí)際情況開發(fā)的，根據(jù)對(duì)該系統(tǒng)實(shí)際應(yīng)用環(huán)境和用戶實(shí)際情況的分析，本系統(tǒng)采用 Windows 2022 Professional 操作系統(tǒng)，以中文版 Visual Basic 為前臺(tái)開發(fā)工具, 用 Access2022 為后臺(tái)數(shù)據(jù)庫。圖 41 工程的項(xiàng)目屬性最后選擇“文件”下拉菜單里的“”命令選項(xiàng)，編譯開始。(1) 模塊測(cè)試本系統(tǒng)由多個(gè)功能模塊組成，每一個(gè)模塊由多個(gè)程序組成。權(quán)限設(shè)置窗體運(yùn)行結(jié)果（見圖 353） 。密碼修改界面主要實(shí)現(xiàn)功能：修改系統(tǒng)用戶密碼。(2) 實(shí)現(xiàn)過程首先判斷輸入是否為空，進(jìn)而判斷添加的用戶名是否存在，都通過的話，再檢驗(yàn)兩次輸入的密碼是否一致，防止誤操作。具體實(shí)現(xiàn)如下：在“全部選中”按鈕的 Click 事件中添加代碼（見附錄Ⅳ） 。系統(tǒng)初始化界面主要對(duì)系統(tǒng)數(shù)據(jù)的初始化。(2) 運(yùn)行結(jié)果（見圖 339）圖 339 實(shí)習(xí)報(bào)告信息查詢窗體3． 實(shí)習(xí)報(bào)告信息修改窗體設(shè)計(jì)(1) 功能介紹可以添加、修改、刪除實(shí)習(xí)報(bào)告信息。② 可在一欄表中概看課設(shè)報(bào)告信息。(2) 運(yùn)行結(jié)果（見圖 324）圖 324 實(shí)驗(yàn)報(bào)告信息查詢窗體3．實(shí)驗(yàn)報(bào)告信息修改窗體設(shè)計(jì)(1) 功能介紹可以添加、修改、刪除實(shí)驗(yàn)報(bào)告信息。(2) 運(yùn)行結(jié)果（見圖 316） 圖 316 實(shí)驗(yàn)教學(xué)日歷信息統(tǒng)計(jì)窗體5． 實(shí)驗(yàn)教學(xué)日歷信息打印窗體設(shè)計(jì)(1) 功能介紹可打印或?qū)С鰧?shí)驗(yàn)教學(xué)日歷信息表(2) 運(yùn)行結(jié)果（見圖 317） 圖 317 實(shí)驗(yàn)教學(xué)日歷信息打印窗體（五）課程小結(jié)管理設(shè)計(jì)1． 課程小結(jié)信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽課程小結(jié)信息。③ 將 Command1 中的字段拖進(jìn)數(shù)據(jù)報(bào)表 DataReprt1 中，設(shè)置字段大小等使其美觀。在“按考核方式統(tǒng)計(jì)課程數(shù)”按鈕的 Click 事件中添加代碼（見附錄Ⅲ） 。教學(xué)日歷信息統(tǒng)計(jì)窗體（見圖 311） 。② 添加程序代碼單擊“添加”按鈕，彈出一個(gè)對(duì)話框（見圖 38） ，點(diǎn)擊對(duì)話框中的“是”按鈕，則可以在 Text 控件中添加信息；點(diǎn)擊對(duì)話框中的“否”按鈕，則對(duì)話框消失。單擊“全部”按鈕后，Datagrid 控件中顯示出所有教學(xué)日歷信息。在“一覽表”按鈕的 Click 事件中添加代碼： 在“結(jié)束”按鈕的 Click 事件中添加代碼：Unload Me圖 34 教學(xué)日歷信息瀏覽窗體圖 35 教學(xué)日歷信息一覽表窗體2． 教學(xué)日歷信息查詢窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶單擊快捷工具欄上的“教學(xué)日歷管理”按鈕，在彈出的功能列表中選擇“教學(xué)日歷信息查詢”選項(xiàng)，進(jìn)入教學(xué)日歷信息查詢界面。單擊“下一條”按鈕，則表格內(nèi)指針指向當(dāng)前記錄的下一條。各功能選項(xiàng)由圖標(biāo)和標(biāo)識(shí)性文字組成。在“取消”按鈕的 Click 事件中添加代碼：Unload Me // 退出登錄用戶忘記密碼時(shí),通過點(diǎn)擊“忘記了密碼？”可以尋找密碼。② 支持鍵盤、鼠標(biāo)操作。Access數(shù)據(jù)庫給用戶提供了編寫界面程序的可視化編程環(huán)境具有如 Delphi、Visual Basic、Borland C++等可視化開發(fā)環(huán)境一樣的快速開發(fā)功能。 包括了新版的 Microsoft 可視化開發(fā)工具，幫助開發(fā)人員創(chuàng)建基于部件的解決方案。屬性是對(duì)象的特征，每個(gè)對(duì)象都有一組特定的屬性，有些是公共的，有些則是對(duì)象專有的。教 學(xué) 日 歷學(xué)期 課程編號(hào) 主講教師 存儲(chǔ)位置…… 圖 25 教學(xué)日歷信息實(shí)體 ER 圖3．?dāng)?shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)教學(xué)日歷表（jiaoxue）用來存儲(chǔ)教學(xué)日歷信息。課程小結(jié)表（kechengxiaojie）基本信息包括：學(xué)期、課程名稱、授課班級(jí)、授課總時(shí)數(shù)、 講課時(shí)數(shù)、實(shí)驗(yàn)時(shí)數(shù)、上機(jī)時(shí)數(shù)、習(xí)題課時(shí)數(shù)、討論課時(shí)數(shù)、大作業(yè)時(shí)數(shù)、任課老師、輔導(dǎo)老師、存儲(chǔ)位置。教學(xué)日歷管理教學(xué)日歷信息瀏覽教學(xué)日歷信息修改教學(xué)日歷信息查詢教學(xué)日歷信息統(tǒng)計(jì)教學(xué)日歷信息打印 圖 22 教學(xué)日歷管理模塊 系 統(tǒng) 管 理系統(tǒng)初始化數(shù)據(jù)備份用戶管理權(quán)限設(shè)置退出添加新用戶刪除舊用戶密碼修改圖 23 系統(tǒng)管理模塊 3．系統(tǒng)流程圖 根據(jù)管理系教學(xué)文檔管理的特點(diǎn)和實(shí)際情況，本管理系統(tǒng)流程圖如下(見圖 24)。(8) 數(shù)據(jù)初始化：對(duì)系統(tǒng)初始化，清空數(shù)據(jù)庫中數(shù)據(jù)。（二）系統(tǒng)模塊設(shè)計(jì)管理系教學(xué)文檔管理系統(tǒng)是基于 MDI 窗體以及 VB 自帶的 JET 引擎連接 Access數(shù)據(jù)庫進(jìn)行開發(fā)的文檔管理系統(tǒng)，力求與管理系教學(xué)文檔管理實(shí)際相結(jié)合具有查詢、統(tǒng)計(jì)、管理等功能，旨在達(dá)到文檔的管理數(shù)字化使之更加方便快捷，以提高工作效率。（三）系統(tǒng)的實(shí)現(xiàn)目標(biāo)針對(duì)管理系教學(xué)文檔管理過程中實(shí)際出現(xiàn)的問題，在本系統(tǒng)實(shí)施后，應(yīng)達(dá)到以下目標(biāo)：（1）系統(tǒng)運(yùn)行穩(wěn)定，安全可靠。(2) 實(shí)驗(yàn)教學(xué)日歷管理：包括實(shí)驗(yàn)教學(xué)日歷信息的瀏覽、查詢、修改、統(tǒng)計(jì)和打印。管理系專業(yè)齊全、學(xué)生人數(shù)眾多，這些情況給文檔管理工作者帶來沉重的工作負(fù)擔(dān)。1VB 與數(shù)據(jù)庫應(yīng)用課程設(shè)計(jì)報(bào)告摸板畢業(yè)論文目 錄一、系統(tǒng)分析 .....................................................................................................................................................3（一）系統(tǒng)的開發(fā)背景 .................................................................................................................................3（二）系統(tǒng)的需求分析 .................................................................................................................................3（三）系統(tǒng)的實(shí)現(xiàn)目標(biāo) .................................................................................................................................4二、 總體設(shè)計(jì) ...................................................................................................................................................5（一）系統(tǒng)功能分析 .....................................................................................................................................5（二）系統(tǒng)模塊設(shè)計(jì) .....................................................................................................................................5（三）系統(tǒng)結(jié)構(gòu)圖 .........................................................................................................................................6（四） 系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì) ...........................................................................................................................8（五）開發(fā)工具介紹 ...................................................................................................................................10三、 詳細(xì)設(shè)計(jì) .................................................................................................................................................13（一）系統(tǒng)登錄界面設(shè)計(jì) ...........................................................................................................................13（二）系統(tǒng)首界面設(shè)計(jì) .............................