【正文】 sql = backup DATABASE db_Goods TO disk=39。 + DataCombo3 + 39。 amp。 strConnection = strConnection amp。本系統(tǒng)如果在未來(lái)研究中對(duì)其功能進(jìn)一步完善，可以更加實(shí)用。其功能基本符合用戶需求，能夠完成各種教學(xué)文檔的瀏覽、查詢、修改、統(tǒng)計(jì)和打印等功能。（三）系統(tǒng)的編譯與發(fā)行在完成了管理系教學(xué)文檔管理系統(tǒng)的編程和調(diào)試工作之后，最后一步就是系統(tǒng)的編譯與發(fā)行。(2) 使用不合法數(shù)據(jù)進(jìn)行調(diào)試在提交時(shí)輸入一些不符合要求的數(shù)據(jù)，如在時(shí)間的地方輸入不是時(shí)間型的數(shù)據(jù)，在數(shù)字輸入的地方輸入非數(shù)字?jǐn)?shù)據(jù)等等，進(jìn)行結(jié)果調(diào)試，確保系統(tǒng)識(shí)別該數(shù)據(jù)不合法，予以拒絕并給出提示。對(duì)應(yīng)代碼(見(jiàn)代碼Ⅳ)。(2) 實(shí)現(xiàn)過(guò)程在 DataGrid 控件中選中所要?jiǎng)h除的用戶記錄，然后單擊“刪除”按鈕。圖 349 數(shù)據(jù)備份窗體3．添加用戶窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶進(jìn)入系統(tǒng)后，單擊快捷工具欄上的“系統(tǒng)管理”按鈕，在彈出的功能列表中選擇“添加用戶”選項(xiàng)，進(jìn)入添加用戶界面。② 添加程序代碼單擊“全部選中”按鈕，則可選中全部數(shù)據(jù)表。(2) 運(yùn)行結(jié)果（見(jiàn)圖 344）圖 344 畢設(shè)(論文)信息查詢窗體3． 畢設(shè)(論文)信息修改窗體設(shè)計(jì)(1) 功能介紹可以添加、修改、刪除畢設(shè)(論文)報(bào)告信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 337）圖 337 課設(shè)報(bào)告信息打印窗體（九）實(shí)習(xí)報(bào)告管理設(shè)計(jì)1． 實(shí)習(xí)報(bào)告信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽實(shí)習(xí)報(bào)告信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 329）圖 329 試卷信息查詢窗體3．試卷信息修改窗體設(shè)計(jì)(1) 功能介紹可以添加、修改、刪除試卷信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 321） 圖 321 課程小結(jié)信息統(tǒng)計(jì)窗體 5． 課程小結(jié)信息打印窗體設(shè)計(jì)(1) 功能介紹可打印或?qū)С稣n程小結(jié)信息表(2) 運(yùn)行結(jié)果（見(jiàn)圖 322）圖 322 課程小結(jié)信息打印窗體（六）實(shí)驗(yàn)報(bào)告管理設(shè)計(jì)1． 實(shí)驗(yàn)報(bào)告信息瀏覽窗體設(shè)計(jì)(1) 功能介紹① 可逐條瀏覽實(shí)驗(yàn)報(bào)告信息。 (2) 運(yùn)行結(jié)果（見(jiàn)圖 314） 圖 314 實(shí)驗(yàn)教學(xué)日歷信息查詢窗體3．實(shí)驗(yàn)教學(xué)日歷信息修改窗體設(shè)計(jì)(1) 功能介紹可添加、修改、刪除實(shí)驗(yàn)教學(xué)日歷信息表中的記錄。(2) 實(shí)現(xiàn)過(guò)程① 添加一個(gè)數(shù)據(jù)環(huán)境設(shè)計(jì)器，命名為 DataEnviroment1，設(shè)置其數(shù)據(jù)庫(kù)為Connection1。單擊“恢復(fù)原表內(nèi)容”按鈕，則 DataGrid 控件中顯示所有記錄。在“刪除”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。教學(xué)日歷信息修改界面主要實(shí)現(xiàn)添加、修改、刪除教學(xué)日歷信息的功能。(2) 實(shí)現(xiàn)過(guò)程① 窗體中的 Datagrid 控件用于顯示教學(xué)日歷信息,并與相應(yīng)的數(shù)據(jù)庫(kù)相連。在“上一條”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。(2) 實(shí)現(xiàn)過(guò)程① 窗體中 Command 命令對(duì)象用于瀏覽教學(xué)日歷信息，Adodc 控件用于連接數(shù)據(jù)庫(kù)來(lái)獲得 Text 控件中的內(nèi)容。(2) 實(shí)現(xiàn)過(guò)程① 系統(tǒng)主窗體使用 MDI 窗體，并使用菜單來(lái)集成各個(gè)系統(tǒng)功能模塊。在窗體通用聲明部分定義整型變量 pwdcount 用于判斷操作員或密碼輸入次數(shù)，當(dāng) pwdcount 大于 3 時(shí)，將自動(dòng)退出系統(tǒng)。 在系統(tǒng)中，通過(guò) TransactSQL 函數(shù)，減少數(shù)據(jù)庫(kù)連接，取結(jié)果和數(shù)據(jù)庫(kù)的關(guān)閉等類(lèi)似操作的代碼，做到了程序的模塊化。Access 已經(jīng)不是單一桌面數(shù)據(jù)庫(kù)管理軟件，而是綜合性的數(shù)據(jù)庫(kù)管理及應(yīng)用集成的一體化系統(tǒng)，具有功能強(qiáng)大、界面友好、操作簡(jiǎn)單、易學(xué)易懂等優(yōu)點(diǎn)，是中、小型管理系統(tǒng)理想的開(kāi)發(fā)環(huán)境。它是目前最流行的可視化編程工具之一。每一個(gè)對(duì)象以圖形方式顯示在界面上，都是可視的。畢業(yè)設(shè)計(jì)（論文）表（bishe）基本信息包括：畢設(shè)題目、畢設(shè)類(lèi)型、畢設(shè)來(lái)源、指導(dǎo)老師姓名、指導(dǎo)老師職稱、學(xué)生姓名、專(zhuān)業(yè)、學(xué)號(hào)、成績(jī)、負(fù)責(zé)老師、存儲(chǔ)位置。用戶表（user）基本信息包括：姓名、密碼、權(quán)限級(jí)別。（三）系統(tǒng)結(jié)構(gòu)圖1．系統(tǒng)總體功能模塊結(jié)構(gòu)圖根據(jù)系統(tǒng)開(kāi)發(fā)對(duì)象的實(shí)際情況和需要,本系統(tǒng)共分 9 個(gè)大部分、45 個(gè)完整的功能模塊。(5) 教學(xué)日歷信息打印模塊：包括整個(gè)教學(xué)日歷信息的打印。二、 總體設(shè)計(jì)（一）系統(tǒng)功能分析管理系教學(xué)文檔管理系統(tǒng)是為了對(duì)該系教學(xué)文檔實(shí)行計(jì)算機(jī)化的管理，以提高工作效率而設(shè)計(jì)的。(7) 實(shí)習(xí)報(bào)告管理：包括實(shí)習(xí)報(bào)告信息的瀏覽、查詢、修改、統(tǒng)計(jì)和打印。該系統(tǒng)是基于 MDI 窗體以及 VB 自帶的 JET 引擎連接 Access 數(shù)據(jù)庫(kù)進(jìn)行開(kāi)發(fā)的教學(xué)文檔管理系統(tǒng)，力求與管理系的實(shí)際相結(jié)合具有查詢、統(tǒng)計(jì)、管理等功能，旨在達(dá)到使文檔的管理趨于計(jì)算機(jī)化，使之更加方便、快捷以提高工作效率。為了提高文檔的管理效率，節(jié)省人力、物力、財(cái)力，管理系應(yīng)該開(kāi)發(fā)一個(gè)適合當(dāng)前使用的教學(xué)文檔管理系統(tǒng)，以使管理系的文檔管理趨于自動(dòng)化管理。而這些工作在當(dāng)前管理系文檔手工操作的時(shí)代，需要手工記錄這些事情，不但麻煩、處理時(shí)間長(zhǎng)、反饋動(dòng)作慢，而且差錯(cuò)率高，給管理者帶來(lái)很多不便。這個(gè)系統(tǒng)為管理系日后的教學(xué)文檔工作奠定良好的基礎(chǔ)。(6) 課程設(shè)計(jì)報(bào)告管理：包括課程設(shè)計(jì)報(bào)告信息的瀏覽、查詢、修改、統(tǒng)計(jì)和打印。（5）數(shù)據(jù)保密性強(qiáng)，為每個(gè)用戶設(shè)置相應(yīng)的權(quán)限級(jí)別。(4) 教學(xué)日歷信息統(tǒng)計(jì)模塊：包括按不同統(tǒng)計(jì)條件對(duì)信息進(jìn)行統(tǒng)計(jì)。 實(shí)驗(yàn)教學(xué)日歷管理模塊、課程小結(jié)管理模塊、試卷管理模塊、實(shí)驗(yàn)報(bào)告管理模塊、實(shí)習(xí)報(bào)告管理模塊、課程設(shè)計(jì)報(bào)告管理模塊、畢業(yè)設(shè)計(jì)（論文）報(bào)告管理模塊與教學(xué)日歷管理模塊類(lèi)似，這里就不一一說(shuō)明了。數(shù)據(jù)庫(kù)名為 db2，通過(guò)對(duì)管理系教學(xué)文檔的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如下數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)，數(shù)據(jù)項(xiàng)包括以下 9 個(gè)表：用戶表（user） 、教學(xué)日歷表（jiaoxue） 、實(shí)驗(yàn)教學(xué)日歷表（jiaoxuerili ） 、課程小結(jié)表（kechengxiaojie） 、試卷表（shijuan） 、課程設(shè)計(jì)報(bào)告表（keshe） 、實(shí)驗(yàn)報(bào)告表（shiyan） 、實(shí)習(xí)報(bào)告表（shixi） 、畢業(yè)設(shè)計(jì)（論文）表（bishe） 。實(shí)習(xí)報(bào)告表（shixi）基本信息包括：實(shí)習(xí)名稱、實(shí)習(xí)地點(diǎn)、指導(dǎo)老師、實(shí)習(xí)時(shí)間、專(zhuān)業(yè)、姓名、班級(jí)、學(xué)號(hào)、成績(jī)、存儲(chǔ)位置。在設(shè)計(jì)對(duì)象時(shí)，不必建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫(huà)在界面上，Visual Basic 自動(dòng)生成對(duì)象的程序代碼并封裝起來(lái)。它繼承了 Basic 語(yǔ)言易學(xué)，易用的優(yōu)點(diǎn)，編程系統(tǒng)引入了面向?qū)ο蟮臋C(jī)制和可視化設(shè)計(jì)方法，降低了開(kāi)發(fā) Windows 應(yīng)用程序的難度，提高了程序開(kāi)發(fā)的效率。Access 數(shù)據(jù)庫(kù)是 Microsoft Office 中一個(gè)極為重要的組成部分，隨著微軟公司對(duì) Office 套件不斷升級(jí)，Access 數(shù)據(jù)庫(kù)軟件也相應(yīng)完善和發(fā)展，如 COM、ActiveX、XML 等網(wǎng)絡(luò)技術(shù)不斷引入到 Access 中。由于系統(tǒng)中各個(gè)功能模塊中都將頻繁的使用數(shù)據(jù)庫(kù)中的各種數(shù)據(jù),因此為系統(tǒng)添加一個(gè)公共的數(shù)據(jù)操作函數(shù),用以執(zhí)行各種 SQL TransactSQL,代碼（見(jiàn)附錄Ⅰ） 。每一次操作都設(shè)置記數(shù)，若錯(cuò)誤數(shù)達(dá)到 3 次，系統(tǒng)自動(dòng)退出。系統(tǒng)首界面（見(jiàn)圖 32） 。教學(xué)日歷信息瀏覽窗體設(shè)計(jì)（見(jiàn)圖 34） 。具體實(shí)現(xiàn)如下：在“首記錄”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。教學(xué)日歷信息瀏覽窗體設(shè)計(jì)（見(jiàn)圖 36） 。在“關(guān)閉”按鈕的 Click 事件中添加代碼：Unload Me圖 36 教學(xué)日歷信息查詢窗體3． 教學(xué)日歷信息修改窗體設(shè)計(jì)(1) 實(shí)現(xiàn)目標(biāo)用戶單擊快捷工具欄上的“教學(xué)日歷管理”按鈕，在彈出的功能列表中選擇“教學(xué)日歷信息修改”選項(xiàng)，進(jìn)入教學(xué)日歷信息修改界面。在“修改”按鈕的 Click 事件中添加代碼（見(jiàn)附錄Ⅲ） 。單擊“按考核方式統(tǒng)計(jì)課程數(shù)”按鈕，則 DataGrid 控件中顯示統(tǒng)計(jì)結(jié)果。教學(xué)日歷信息打印窗體運(yùn)行結(jié)果（見(jiàn)圖 312） 。(2) 運(yùn)行結(jié)果（見(jiàn)圖 313）圖 313 實(shí)驗(yàn)教學(xué)日歷信息瀏覽窗體2．實(shí)驗(yàn)教學(xué)日歷信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。 (2) 運(yùn)行結(jié)果（見(jiàn)圖 320） 圖 320 課程小結(jié)信息修改窗體4． 課程小結(jié)信息統(tǒng)計(jì)窗體設(shè)計(jì)(1) 功能介紹可按不同條件條件對(duì)課程小結(jié)信息進(jìn)行統(tǒng)計(jì)，統(tǒng)計(jì)結(jié)束后可恢復(fù)原表內(nèi)容。(2) 運(yùn)行結(jié)果（見(jiàn)圖 328）圖 328 試卷信息瀏覽窗體2． 實(shí)驗(yàn)報(bào)告信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。(2) 運(yùn)行結(jié)果（見(jiàn)圖 336）圖 336 課設(shè)報(bào)告信息統(tǒng)計(jì)窗體5． 課設(shè)報(bào)告信息打印窗體設(shè)計(jì)(1) 功能介紹可打印或?qū)С稣n設(shè)報(bào)告信息表。(2) 運(yùn)行結(jié)果（見(jiàn)圖 343）圖 343 畢設(shè)(論文)信息瀏覽窗體2． 畢設(shè)(論文) 信息查詢窗體設(shè)計(jì)(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。添加 3 個(gè) Command 命令對(duì)象，Caption 屬性分別設(shè)為“全部選中” 、 “確認(rèn)初始化” 、 “退出” 。對(duì)應(yīng)代碼（見(jiàn)附錄Ⅳ） 。刪除用戶界面主要實(shí)現(xiàn)功能：① 以列表形式瀏覽用戶信息② 刪除用戶信息刪除用戶窗體運(yùn)行結(jié)果（見(jiàn)圖 351） 。首先判斷用戶名和原密碼是否匹配，如果不匹配，則彈出提示對(duì)話框；如果匹配，則進(jìn)一步判斷輸入的兩次新密碼是否一致，防止誤操作，進(jìn)而進(jìn)行修改。(1) 使用合法數(shù)據(jù)進(jìn)行測(cè)試提交數(shù)據(jù)時(shí)輸入符合要求的數(shù)據(jù)，進(jìn)行調(diào)試檢驗(yàn)結(jié)果，確保系統(tǒng)對(duì)于接收正常數(shù)據(jù)的無(wú)誤性。針對(duì)這些情況，我進(jìn)行了仔細(xì)的修改和最終的測(cè)試。45總結(jié)經(jīng)過(guò)二周的設(shè)計(jì)和開(kāi)發(fā)，管理系教學(xué)文檔管理系統(tǒng)基本開(kāi)發(fā)完畢。 隨著計(jì)算機(jī)的普及和計(jì)算機(jī)水平的飛速發(fā)展，教學(xué)文檔管理系統(tǒng)對(duì)教學(xué)單位的重要性也會(huì)進(jìn)一步提高。Data Source=D:\畢業(yè)設(shè)計(jì)系統(tǒng) \數(shù)據(jù)庫(kù) \。 iflag = 2 Resume transactsql_exitEnd Function附錄Ⅱ 登錄程序代碼Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒(méi)有輸入用戶名稱，請(qǐng)重新輸入！ , vbOKOnly + vbExclamation, 警告 Else sql = select * from user where 姓名 =39。 = strsql n = 1 End IfIf = Checked Then If n = 1 Then strsql = strsql + and End If strsql = strsql + 課程類(lèi)別 =39。清空選定的表中的數(shù)據(jù) If = 1 Then sql = delete from user TransactSQL (sql) End If If = 1 Then sql = delete from jiaoxue TransactSQL (sql) End If If = 1 Then sql = delete from shiyan TransactSQL (sql) End If If = 1 Then sql = delete from shijuan TransactSQL (sql) End If If = 1 Then sql = delete from shixi TransactSQL (sql) End If If = 1 Then sql = delete from bishe TransactSQL (sql) End If If = 1 Then sql = delete from keshe TransactSQL (sql) End If If = 1 Then sql = delete from kechengxiaojie TransactSQL (sql) End If If = 1 Then sql = delete from shiyanjiaoxue TransactSQL (sql) End If Next Counter = False = = False數(shù)據(jù)備份窗體中 “開(kāi)始備份 ”按鈕代碼： = False = 11If = Then MsgBox 請(qǐng)您選擇數(shù)據(jù)庫(kù)備份的路徑 !, 64, 提示信息 ElseDim connter As IntegerDim sql, workarea(12) As String = True = UBound(workarea) = For connter = LBound(workarea) To UBound(workarea) workarea(connter) = initial value amp。 amp。