【正文】 amp。清空選定的表中的數(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ù)備份窗體中 “開始備份 ”按鈕代碼： = False = 11If = Then MsgBox 請您選擇數(shù)據(jù)庫備份的路徑 !, 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。 iflag = 2 Resume transactsql_exitEnd Function附錄Ⅱ 登錄程序代碼Dim sql As String Dim rs As If Trim( = ) Then MsgBox 沒有輸入用戶名稱，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else sql = select * from user where 姓名 =39。 隨著計算機(jī)的普及和計算機(jī)水平的飛速發(fā)展，教學(xué)文檔管理系統(tǒng)對教學(xué)單位的重要性也會進(jìn)一步提高。針對這些情況，我進(jìn)行了仔細(xì)的修改和最終的測試。首先判斷用戶名和原密碼是否匹配，如果不匹配，則彈出提示對話框；如果匹配，則進(jìn)一步判斷輸入的兩次新密碼是否一致，防止誤操作，進(jìn)而進(jìn)行修改。對應(yīng)代碼（見附錄Ⅳ） 。(2) 運(yùn)行結(jié)果（見圖 343）圖 343 畢設(shè)(論文)信息瀏覽窗體2． 畢設(shè)(論文) 信息查詢窗體設(shè)計(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。(2) 運(yùn)行結(jié)果（見圖 328）圖 328 試卷信息瀏覽窗體2． 實(shí)驗(yàn)報告信息查詢窗體設(shè)計(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。(2) 運(yùn)行結(jié)果（見圖 313）圖 313 實(shí)驗(yàn)教學(xué)日歷信息瀏覽窗體2．實(shí)驗(yàn)教學(xué)日歷信息查詢窗體設(shè)計(1) 功能介紹可以組合選項(xiàng)查詢信息，查詢完畢后，可恢復(fù)原表信息。單擊“按考核方式統(tǒng)計課程數(shù)”按鈕，則 DataGrid 控件中顯示統(tǒng)計結(jié)果。在“關(guān)閉”按鈕的 Click 事件中添加代碼：Unload Me圖 36 教學(xué)日歷信息查詢窗體3． 教學(xué)日歷信息修改窗體設(shè)計(1) 實(shí)現(xiàn)目標(biāo)用戶單擊快捷工具欄上的“教學(xué)日歷管理”按鈕，在彈出的功能列表中選擇“教學(xué)日歷信息修改”選項(xiàng)，進(jìn)入教學(xué)日歷信息修改界面。具體實(shí)現(xiàn)如下：在“首記錄”按鈕的 Click 事件中添加代碼（見附錄Ⅲ） 。系統(tǒng)首界面（見圖 32） 。由于系統(tǒng)中各個功能模塊中都將頻繁的使用數(shù)據(jù)庫中的各種數(shù)據(jù),因此為系統(tǒng)添加一個公共的數(shù)據(jù)操作函數(shù),用以執(zhí)行各種 SQL TransactSQL,代碼（見附錄Ⅰ） 。它繼承了 Basic 語言易學(xué)，易用的優(yōu)點(diǎn)，編程系統(tǒng)引入了面向?qū)ο蟮臋C(jī)制和可視化設(shè)計方法，降低了開發(fā) Windows 應(yīng)用程序的難度，提高了程序開發(fā)的效率。實(shí)習(xí)報告表（shixi）基本信息包括：實(shí)習(xí)名稱、實(shí)習(xí)地點(diǎn)、指導(dǎo)老師、實(shí)習(xí)時間、專業(yè)、姓名、班級、學(xué)號、成績、存儲位置。 實(shí)驗(yàn)教學(xué)日歷管理模塊、課程小結(jié)管理模塊、試卷管理模塊、實(shí)驗(yàn)報告管理模塊、實(shí)習(xí)報告管理模塊、課程設(shè)計報告管理模塊、畢業(yè)設(shè)計（論文）報告管理模塊與教學(xué)日歷管理模塊類似，這里就不一一說明了。（5）數(shù)據(jù)保密性強(qiáng)，為每個用戶設(shè)置相應(yīng)的權(quán)限級別。這個系統(tǒng)為管理系日后的教學(xué)文檔工作奠定良好的基礎(chǔ)。為了提高文檔的管理效率，節(jié)省人力、物力、財力，管理系應(yīng)該開發(fā)一個適合當(dāng)前使用的教學(xué)文檔管理系統(tǒng)，以使管理系的文檔管理趨于自動化管理。(7) 實(shí)習(xí)報告管理：包括實(shí)習(xí)報告信息的瀏覽、查詢、修改、統(tǒng)計和打印。(5) 教學(xué)日歷信息打印模塊：包括整個教學(xué)日歷信息的打印。用戶表（user）基本信息包括：姓名、密碼、權(quán)限級別。每一個對象以圖形方式顯示在界面上，都是可視的。Access 已經(jīng)不是單一桌面數(shù)據(jù)庫管理軟件，而是綜合性的數(shù)據(jù)庫管理及應(yīng)用集成的一體化系統(tǒng)，具有功能強(qiáng)大、界面友好、操作簡單、易學(xué)易懂等優(yōu)點(diǎn)，是中、小型管理系統(tǒng)理想的開發(fā)環(huán)境。在窗體通用聲明部分定義整型變量 pwdcount 用于判斷操作員或密碼輸入次數(shù)，當(dāng) pwdcount 大于 3 時，將自動退出系統(tǒng)。(2) 實(shí)現(xiàn)過程① 窗體中 Command 命令對象用于瀏覽教學(xué)日歷信息，Adodc 控件用于連接數(shù)據(jù)庫來獲得 Text 控件中的內(nèi)容。(2) 實(shí)現(xiàn)過程① 窗體中的 Datagrid 控件用于顯示教學(xué)日歷信息,并與相應(yīng)的數(shù)據(jù)庫相連。在“刪除”按鈕的 Click 事件中添加代碼（見附錄Ⅲ） 。(2) 實(shí)現(xiàn)過程① 添加一個數(shù)據(jù)環(huán)境設(shè)計器，命名為 DataEnviroment1，設(shè)置其數(shù)據(jù)庫為Connection1。(2) 運(yùn)行結(jié)果（見圖 321） 圖 321 課程小結(jié)信息統(tǒng)計窗體 5． 課程小結(jié)信息打印窗體設(shè)計(1) 功能介紹可打印或?qū)С稣n程小結(jié)信息表(2) 運(yùn)行結(jié)果（見圖 322）圖 322 課程小結(jié)信息打印窗體（六）實(shí)驗(yàn)報告管理設(shè)計1． 實(shí)驗(yàn)報告信息瀏覽窗體設(shè)計(1) 功能介紹① 可逐條瀏覽實(shí)驗(yàn)報告信息。(2) 運(yùn)行結(jié)果（見圖 337）圖 337 課設(shè)報告信息打印窗體（九）實(shí)習(xí)報告管理設(shè)計1． 實(shí)習(xí)報告信息瀏覽窗體設(shè)計(1) 功能介紹① 可逐條瀏覽實(shí)習(xí)報告信息。② 添加程序代碼單擊“全部選中”按鈕，則可選中全部數(shù)據(jù)表。(2) 實(shí)現(xiàn)過程在 DataGrid 控件中選中所要刪除的用戶記錄，然后單擊“刪除”按鈕。(2) 使用不合法數(shù)據(jù)進(jìn)行調(diào)試在提交時輸入一些不符合要求的數(shù)據(jù)，如在時間的地方輸入不是時間型的數(shù)據(jù)，在數(shù)字輸入的地方輸入非數(shù)字?jǐn)?shù)據(jù)等等，進(jìn)行結(jié)果調(diào)試，確保系統(tǒng)識別該數(shù)據(jù)不合法，予以拒絕并給出提示。其功能基本符合用戶需求，能夠完成各種教學(xué)文檔的瀏覽、查詢、修改、統(tǒng)計和打印等功能。 strConnection = strConnection amp。 + DataCombo3 + 39。 39。 Set rs = TransactSQL(sql) If = True Then MsgBox 用戶密碼不匹配，無權(quán)更改！ , vbOKOnly + vbExclamation, 警告 Else If = Then MsgBo。 amp。 + DataCombo2 + 39。創(chuàng)建連接 Set rs = New On Error GoTo transactsql_error strConnection = Provider=。其優(yōu)點(diǎn)在于不需要安裝 VB 環(huán)境就可以使用該系統(tǒng)了。（一）代碼測試在系統(tǒng)具體實(shí)現(xiàn)時進(jìn)行仔細(xì)測試，在各個模塊編寫時就開始測試，有利于盡早的發(fā)現(xiàn)問題，以減少集成測試的出現(xiàn)的機(jī)率，減少集成測試中的發(fā)現(xiàn)問題后修改源程序的難度。 圖 350 添加用戶窗體4． 刪除用戶窗體設(shè)計(1) 實(shí)現(xiàn)目標(biāo)用戶進(jìn)入系統(tǒng)后，單擊快捷工具欄上的“系統(tǒng)管理”按鈕，在彈出的功能列表中選擇“刪除用戶”選項(xiàng)，進(jìn)入刪除用戶界面。添加 ProgressBar 控件，用以顯示初始化進(jìn)度。(2) 運(yùn)行結(jié)果（見圖 335）圖 335 課設(shè)報告信息修改窗體4．課設(shè)報告信息統(tǒng)計窗體設(shè)計(1) 功能介紹可按不同條件對課設(shè)報告信息進(jìn)行統(tǒng)計，統(tǒng)計結(jié)束后可恢復(fù)原表內(nèi)容。(2) 運(yùn)行結(jié)果（見圖 319） 圖 319 課程小結(jié)信息查詢窗體3． 課程小結(jié)信息修改窗體設(shè)計(1) 功能介紹可以添加、修改、刪除課程小結(jié)信息。該界面主要是實(shí)現(xiàn)對教學(xué)日歷信息的打印功能。具體實(shí)現(xiàn)如下：在“添加”按鈕的 Click 事件中添加代碼（見附錄Ⅲ） 。③ 查詢結(jié)束后恢復(fù)原表內(nèi)容。② 概看全部教學(xué)日歷信息。圖 31 系統(tǒng)登錄界面窗體(2) 實(shí)現(xiàn)過程 ① 重要控件屬性(見表 31)表 31 登錄界面重要控件屬性控件 屬性 屬性設(shè)置 屬性 屬性設(shè)置Text2 PasswordChar * Caption Txtpassword② 添加程序代碼首先判斷用戶名輸入是否為空，若為空，則提醒用戶從新輸入；不為空，則檢查有無此用戶，若輸入用戶名不存在，則返回重新進(jìn)行登錄，若存在，則進(jìn)一步驗(yàn)證該用戶密碼，根據(jù)是否匹配來判斷進(jìn)入系統(tǒng)還是返回。2． Microsoft Access 簡介Microsoft Access 作為一種關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，是目前最流行的桌面型數(shù)據(jù)庫管理系統(tǒng)之一。1．Visual Basic 簡介Visual 支持面向?qū)ο蟮某绦蛟O(shè)計，但它與一般的面向?qū)ο蟮某绦蛟O(shè)計語言（如 C++）不完全相同，在一般的面向?qū)ο蟮某绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每一個對象賦予應(yīng)有的屬性，使對象成為實(shí)在的東西。（四） 系統(tǒng)的數(shù)據(jù)庫設(shè)計 1．?dāng)?shù)據(jù)庫的需求分析根據(jù)管理系教學(xué)文檔管理的實(shí)際情況和需要，本系統(tǒng)采用了 Access 這一中、小型數(shù)據(jù)庫為后臺數(shù)據(jù)庫。(3) 教學(xué)日歷信息修改模塊：包括添加、修改、刪除教學(xué)日歷信息以及在一覽表里查看全部教學(xué)日歷信息。(5) 實(shí)驗(yàn)報告管理：包括實(shí)驗(yàn)報告信息的瀏覽、查詢、修改、統(tǒng)計和打印。當(dāng)前管理系的教學(xué)文檔管理主要依賴手工處理，其工作非常繁瑣，需要大量的人力、物力和財力，極大的浪費(fèi)了該系的資源，對于文檔的管理人員來說，文檔管理包括教學(xué)日歷管理、實(shí)驗(yàn)教學(xué)日歷管理、試卷管理、課程設(shè)計報告管理、實(shí)驗(yàn)報告管理、實(shí)習(xí)報告管理、畢業(yè)設(shè)計（論文）報告管理等等。根據(jù)管理系教學(xué)文檔管理的具體情況，系統(tǒng)主要的功能包括九大模塊，45 個具體的功能模塊設(shè)計。系統(tǒng)主要功能有用戶對教學(xué)日歷、實(shí)驗(yàn)教學(xué)日歷、課程小結(jié)、試卷、課程設(shè)計報告、實(shí)驗(yàn)報告、實(shí)習(xí)報告、畢業(yè)設(shè)計（論文）報告等各種教學(xué)文檔的信息瀏覽、查詢、錄入、修改、刪除、統(tǒng)計、打印等功能。系統(tǒng)總體功能模塊（見圖 21） 。2． 數(shù)據(jù)庫的概念結(jié)構(gòu)設(shè)計利用上面的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)，設(shè)計滿足用戶需求的各種實(shí)體以及他們之間的關(guān)系，為以后的邏輯結(jié)構(gòu)設(shè)計做準(zhǔn)備。Visual 指的是開發(fā)圖形用戶界面的方法，Basic 指的是 Basic 語言——計算機(jī)技術(shù)發(fā)展史上應(yīng)用最廣泛的計算機(jī)語言。以后添加、刪除、查詢和修改等操作都可以調(diào)用該函數(shù)來完成，得到相應(yīng)的結(jié)果。在 MDI 窗體中點(diǎn)擊右鍵選擇“菜單編輯器”編輯主窗體中菜單（見圖 33） 。在“下一條”按鈕的 Click 事件中添加代碼（見附錄Ⅲ） 。教學(xué)日歷信息修改窗體設(shè)計（見圖 37） 。具體實(shí)現(xiàn)如下：在“按學(xué)期統(tǒng)計課程數(shù)”按鈕的 Click 事件中添加代碼（見附錄Ⅲ） 。 (2) 運(yùn)行結(jié)果（見圖 315） 圖 315 實(shí)驗(yàn)教學(xué)日歷信息修改窗體4． 實(shí)驗(yàn)教學(xué)日歷信息統(tǒng)計窗體設(shè)計(1) 功能介紹① 可按不同統(tǒng)計條件統(tǒng)計。(2) 運(yùn)行結(jié)果（見圖 330）圖 330 試卷信息修改窗體4． 試卷信息統(tǒng)計窗體設(shè)計(1) 功能介紹可按不同條件條件對試卷信息進(jìn)行統(tǒng)計，統(tǒng)計結(jié)束后可恢復(fù)原表內(nèi)容。(2) 運(yùn)行結(jié)果（見圖 345）圖 345 畢設(shè)(論文)信息修改窗體4． 畢設(shè)(論文)信息統(tǒng)計