學(xué)生信息管理系統(tǒng)報告+VB+SQL

1、課 程 設(shè) 計設(shè)計題目：學(xué)生信息管理系統(tǒng)的設(shè)計 系 別： 計算機科學(xué)與技術(shù) 班 級：1104學(xué) 號：04111116姓 名：李新旸指 導(dǎo) 教 師：周元哲2009年1月11日課程設(shè)計任務(wù)書 計算機科學(xué)與技術(shù) 系 計算機科學(xué)與技術(shù) 專業(yè) 06計對本 班 姓名： 韓建鑫 課程設(shè)計時間：2009 年 01 月 5 日 至 2009 年 1 月 11 日課程設(shè)計題目： 學(xué)生信息管理系統(tǒng) 課程設(shè)計任務(wù)與要求1.任選VFP 、VB、PB、SQL Server2000等軟件設(shè)計一個數(shù)據(jù)庫管理系統(tǒng)。參考題目為學(xué)生成績管理系統(tǒng)的設(shè)計，也可設(shè)計其他系統(tǒng)。2.所設(shè)計的系統(tǒng)可實現(xiàn)數(shù)據(jù)錄入、查詢、信息維護（修改、刪除）等

2、功能，設(shè)計菜單并編譯連編生成.exe文件。3.設(shè)計合理，功能完備，代碼簡潔，界面友好。4.設(shè)計說明書工整規(guī)范。課程設(shè)計進度計劃安排2009年1月5日： 查閱資料，確定方向2009年1月6日： 構(gòu)造流程圖2009年1月7日： 設(shè)計界面2009年1月8日： 編寫代碼2009年1月9日至10日：程序的調(diào)試2009年1月11日： 寫課程設(shè)計說明書指導(dǎo)教師（簽名）： 日期：2009 年 1 月 11 日課程設(shè)計指導(dǎo)教師評閱書課程設(shè)計指導(dǎo)教師評語課程設(shè)計成績評定指導(dǎo)教師（簽名）： 日期： 年 月 日目 錄1 引 言12 簡 介22.1 Visual Basic簡介22.1.1主窗口22.1.2 屬性窗口3

3、2.1.3工程資源管理器窗口32.1.4代碼窗口32.1.5窗體布局窗口32.1.6工具箱窗口32.2 數(shù)據(jù)庫系統(tǒng)簡介32.2.1 數(shù)據(jù)庫的基本結(jié)構(gòu)32.2.2 數(shù)據(jù)庫的主要特點42.2.3 數(shù)據(jù)庫發(fā)展階段大致劃分為如下幾個階段52.2.4數(shù)據(jù)庫結(jié)構(gòu)與數(shù)據(jù)庫種類52.3 SQL語言介紹62.3.1 SQL簡介62.3.2 SQL語言的數(shù)據(jù)查詢73 需求分析83.1提出問題83.2項目開發(fā)目標(biāo)83.3系統(tǒng)的運行環(huán)境84 系統(tǒng)總體設(shè)計94.1系統(tǒng)總體設(shè)計框圖94.2系統(tǒng)功能模塊設(shè)計95 數(shù)據(jù)庫設(shè)計115.1 ER模型的設(shè)計115.2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計125.3 數(shù)據(jù)庫物理設(shè)計126 系統(tǒng)詳細(xì)設(shè)計

4、146.1 數(shù)據(jù)庫及表創(chuàng)建146.2 創(chuàng)建工程項目156.3主窗體的建立156.3.1 用戶登陸模塊176.3.2 新生注冊窗體186.3.3 成績修改窗體196.3.4 成績輸入窗體216.3.5 學(xué)生檔案管理216.3.6 學(xué)生課程管理227 系統(tǒng)測試與分析237.1 測試實例研究與選擇237.2性能分析23結(jié)束語24謝 辭25參考文獻26附 錄271 引 言學(xué)生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生學(xué)生成績管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件學(xué)生成績，這種管理方式存在著許

5、多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難1。隨著科學(xué)技術(shù)的不斷提高,計算機科學(xué)日漸成熟,其強大的功能已為人們深刻認(rèn)識,它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。 作為計算機應(yīng)用的一部分,使用計算機對學(xué)生學(xué)生成績信息進行管理,具有著手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生學(xué)生成績管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情。結(jié)合上述要求，在基于SQL2000數(shù)據(jù)庫技術(shù)以

6、及面向?qū)ο蟮木幊碳夹g(shù)的基礎(chǔ)上，研究了這套學(xué)生信息管理系統(tǒng)。該系統(tǒng)可以實現(xiàn)學(xué)生基本信息的管理和成績管理，并可實現(xiàn)多用戶登陸。由于時間緊迫、掌握技術(shù)有限等條件限制，本系統(tǒng)可能還存在著一些不足之外，敬請老師同學(xué)批評指導(dǎo)。2 簡 介2.1 Visual Basic簡介41991年，美國微軟公司推出了Visual Basic(可簡稱VB），目前的最新版本是VB 2008 Beta2(VB9)中文版。Visual 意即可視的、可見的，指的是開發(fā)像Windows操作系統(tǒng)的圖形用戶界面（Graphic User Interface,GUI）的方法，它不需要編寫大量代碼去描述界面元素的外觀和位置，只要把預(yù)先建立

7、好的對象拖放到屏幕上相應(yīng)的位置即可。Basic 實際上是一個短語的縮寫，這個短語就是 Beginners all_purpose symbolic instruction code ，其中文意思為“初始者通用符號指令代碼語言”。Visual Basic 6 有學(xué)習(xí)版、專業(yè)版和企業(yè)版三種版本，以滿足不同的開發(fā)需要。學(xué)習(xí)版適用于普通學(xué)習(xí)者及大多數(shù)使用 Visual Basic 開發(fā)一般 Windows 應(yīng)用程序的人員，但是；專業(yè)版適用于計算機專業(yè)開發(fā)人員，包括了學(xué)習(xí)版的全部內(nèi)容功能以及Internet控件開發(fā)工具之類的高級特性；企業(yè)版除包含專業(yè)版全部的內(nèi)容外，還有自動化構(gòu)件管理器等工具，使得專業(yè)編

8、程人員能夠開發(fā)功能強大的組骨子里分布式應(yīng)用程序。Visual Basic 是一種可視化的、面向?qū)ο蠛筒捎檬录?qū)動方式的結(jié)構(gòu)化高級程序設(shè)計語言，可用于開發(fā) Windows 環(huán)境下的各類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強大可以與 Windows 專業(yè)開發(fā)工具SDK相媲美。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的廣泛應(yīng)用程序接口（API）函數(shù)，以用動態(tài)鏈接庫（DLL）、對象的鏈接與世隔嵌入（OLE）、開放式數(shù)據(jù)連接（ODBC）等技術(shù)，可以高效、快速地開發(fā)Windows環(huán)境下功能強大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。隨著版本的提高，V

9、isual Basic的功能也越來越強。5.0版以后，Visual Basic 推出了中文版，與前個版本相比，其功能有了很大提升。2.1.1主窗口與其他的Windows窗口類似，Visual Basic的主窗口也由標(biāo)題欄、菜單欄、工具欄等項組成。 1標(biāo)題欄標(biāo)題欄中的標(biāo)題為“工程1-Microsoft Visual Basic設(shè)計”，說明此時集成開發(fā)環(huán)境入于設(shè)計模式，在進入基他狀態(tài)時，方括號的文字將作相應(yīng)的變化。VB有3種工作模式：設(shè)計（Design）模式、運行（Run）模式和中斷(Break)模式。 2菜單欄Visual Basic的菜單欄中除了提供標(biāo)準(zhǔn)的“文件”、“編輯”、“視圖”、“窗口”

10、和“幫助”等菜單外，還提供了編程專用的一些功能菜單，如“工程”、“格式“、“調(diào)試”、“運行”等，程序開發(fā)過程中所需要的命令和功能均包含在這些菜單中。 3工具欄工具欄集中了最常用的操作，利用工具欄按鈕可以迅速地訪問常用的菜單命令。2.1.2 屬性窗口設(shè)置窗體或控件的屬性，如 顏色、字體、大小等。屬性窗口由以下部分組成：(1)對象列表框(2)屬性顯示排列方式(3)屬性列表2.1.3工程資源管理器窗口在該窗口中可以對當(dāng)前使有的工程中所有部件進行管理，它的主要功能是：添加、刪除各個組成部分；在代碼和界面設(shè)計之間進行切換；宏觀地對整個工程進行控制。2.1.4代碼窗口代碼窗口的主要功能是編輯事件驅(qū)動程序及

11、其他代碼，它是專門用來進行程序設(shè)計的窗口，可在其中顯示和編輯程序代碼。2.1.5窗體布局窗口窗體布局窗口用于表明程序運行時程序窗口出現(xiàn)的初始位置。2.1.6工具箱窗口剛安裝Visual Basic時，它由21個被繪制成按鈕的圖標(biāo)構(gòu)成，顯示了各種控件的制作工具。利用這些工具，用戶可以在窗體上設(shè)計各種控件。2.2 數(shù)據(jù)庫系統(tǒng)簡介2.2.1 數(shù)據(jù)庫的基本結(jié)構(gòu)數(shù)據(jù)庫的基本結(jié)構(gòu)分三個層次，反映了觀察數(shù)據(jù)庫的三種不同角度。 (1)物理數(shù)據(jù)層。它是數(shù)據(jù)庫的最內(nèi)層，是物理存貯設(shè)備上實際存儲的數(shù)據(jù)的集合。這些數(shù)據(jù)是原始數(shù)據(jù)，是用戶加工的對象，由內(nèi)部模式描述的指令操作處理的位串、字符和字組成。(2)概念數(shù)據(jù)層。它

12、是數(shù)據(jù)庫的中間一層，是數(shù)據(jù)庫的整體邏輯表示。指出了每個數(shù)據(jù)的邏輯定義及數(shù)據(jù)間的邏輯聯(lián)系，是存貯記錄的集合。它所涉及的是數(shù)據(jù)庫所有對象的邏輯關(guān)系，而不是它們的物理情況，是數(shù)據(jù)庫管理員概念下的數(shù)據(jù)庫。 (3)邏輯數(shù)據(jù)層。它是用戶所看到和使用的數(shù)據(jù)庫，表示了一個或一些特定用戶使用的數(shù)據(jù)集合，即邏輯記錄的集合。 數(shù)據(jù)庫不同層次之間的聯(lián)系是通過映射進行轉(zhuǎn)換的。2.2.2 數(shù)據(jù)庫的主要特點(1)實現(xiàn)數(shù)據(jù)共享。數(shù)據(jù)共享包含所有用戶可同時存取數(shù)據(jù)庫中的數(shù)據(jù)，也包括用戶可以用各種方式通過接口使用數(shù)據(jù)庫，并提供數(shù)據(jù)共享。 (2)減少數(shù)據(jù)的冗余度。同文件系統(tǒng)相比，由于數(shù)據(jù)庫實現(xiàn)了數(shù)據(jù)共享，從而避免了用戶各自建立應(yīng)用

13、文件。減少了大量重復(fù)數(shù)據(jù)，減少了數(shù)據(jù)冗余，維護了數(shù)據(jù)的一致性。 (3)數(shù)據(jù)的獨立性。數(shù)據(jù)的獨立性包括數(shù)據(jù)庫中數(shù)據(jù)庫的邏輯結(jié)構(gòu)和應(yīng)用程序相互獨立，也包括數(shù)據(jù)物理結(jié)構(gòu)的變化不影響數(shù)據(jù)的邏輯結(jié)構(gòu)。 (4)數(shù)據(jù)實現(xiàn)集中控制。文件管理方式中，數(shù)據(jù)處于一種分散的狀態(tài)，不同的用戶或同一用戶在不同處理中其文件之間毫無關(guān)系。利用數(shù)據(jù)庫可對數(shù)據(jù)進行集中控制和管理，并通過數(shù)據(jù)模型表示各種數(shù)據(jù)的組織以及數(shù)據(jù)間的聯(lián)系。(5)數(shù)據(jù)一致性和可維護性，以確保數(shù)據(jù)的安全性和可靠性。主要包括：安全性控制：以防止數(shù)據(jù)丟失、錯誤更新和越權(quán)使用；完整性控制：保證數(shù)據(jù)的正確性、有效性和相容性；并發(fā)控制：使在同一時間周期內(nèi)，允許對數(shù)據(jù)實現(xiàn)

14、多路存取，又能防止用戶之間的不正常交互作用；故障的發(fā)現(xiàn)和恢復(fù)：由數(shù)據(jù)庫管理系統(tǒng)提供一套方法，可及時發(fā)現(xiàn)故障和修復(fù)故障，從而防止數(shù)據(jù)被破壞。2.2.3數(shù)據(jù)庫發(fā)展階段大致劃分為如下幾個階段人工管理階段；文件系統(tǒng)階段；數(shù)據(jù)庫系統(tǒng)階段；高級數(shù)據(jù)庫階段。2.2.4數(shù)據(jù)庫結(jié)構(gòu)與數(shù)據(jù)庫種類2數(shù)據(jù)庫通常分為層次式數(shù)據(jù)庫、網(wǎng)絡(luò)式數(shù)據(jù)庫和關(guān)系式數(shù)據(jù)庫三種。而不同的數(shù)據(jù)庫是按不同的數(shù)據(jù)結(jié)構(gòu)來聯(lián)系和組織的。1.數(shù)據(jù)結(jié)構(gòu)模型(1)數(shù)據(jù)結(jié)構(gòu)所謂數(shù)據(jù)結(jié)構(gòu)是指數(shù)據(jù)的組織形式或數(shù)據(jù)之間的聯(lián)系。如果用D表示數(shù)據(jù)，用R表示數(shù)據(jù)對象之間存在的關(guān)系集合，則將DS(D，R)稱為數(shù)據(jù)結(jié)構(gòu)。例如，設(shè)有一個電話號碼簿，它記錄了n個人的名字和相

15、應(yīng)的電話號碼。為了方便地查找某人的電話號碼，將人名和號碼按字典順序排列，并在名字的后面跟隨著對應(yīng)的電話號碼。這樣，若要查找某人的電話號碼(假定他的名字的第一個字母是Y)，那么只須查找以Y開頭的那些名字就可以了。該例中，數(shù)據(jù)的集合D就是人名和電話號碼，它們之間的聯(lián)系R就是按字典順序的排列，其相應(yīng)的數(shù)據(jù)結(jié)構(gòu)就是DS(D，R)，即一個數(shù)組。(2)數(shù)據(jù)結(jié)構(gòu)種類 數(shù)據(jù)結(jié)構(gòu)又分為數(shù)據(jù)的邏輯結(jié)構(gòu)和數(shù)據(jù)的物理結(jié)構(gòu)。數(shù)據(jù)的邏輯結(jié)構(gòu)是從邏輯的角度(即數(shù)據(jù)間的聯(lián)系和組織方式)來觀察數(shù)據(jù)，分析數(shù)據(jù)，與數(shù)據(jù)的存儲位置無關(guān)。數(shù)據(jù)的物理結(jié)構(gòu)是指數(shù)據(jù)在計算機中存放的結(jié)構(gòu)，即數(shù)據(jù)的邏輯結(jié)構(gòu)在計算機中的實現(xiàn)形式，所以物理結(jié)構(gòu)也被

16、稱為存儲結(jié)構(gòu)。這里只研究數(shù)據(jù)的邏輯結(jié)構(gòu)，并將反映和實現(xiàn)數(shù)據(jù)聯(lián)系的方法稱為數(shù)據(jù)模型。目前，比較流行的數(shù)據(jù)模型有三種，即按圖論理論建立的層次結(jié)構(gòu)模型和網(wǎng)狀結(jié)構(gòu)模型以及按關(guān)系理論建立的關(guān)系結(jié)構(gòu)模型。2.層次、網(wǎng)狀和關(guān)系數(shù)據(jù)庫系統(tǒng)(1)層次結(jié)構(gòu)模型層次結(jié)構(gòu)模型實質(zhì)上是一種有根結(jié)點的定向有序樹(在數(shù)學(xué)中"樹"被定義為一個無回的連通圖)。例如圖20.6.4是一個高等學(xué)校的組織結(jié)構(gòu)圖。這個組織結(jié)構(gòu)圖像一棵樹，校部就是樹根(稱為根結(jié)點)，各系、專業(yè)、教師、學(xué)生等為枝點(稱為結(jié)點)，樹根與枝點之間的聯(lián)系稱為邊，樹根與邊之比為1:N，即樹根只有一個，樹枝有N個。按照層次模型建立的數(shù)據(jù)庫系統(tǒng)稱為

17、層次模型數(shù)據(jù)庫系統(tǒng)。IMS(Information Manage-mentSystem)是其典型代表。(2)網(wǎng)狀結(jié)構(gòu)模型按照網(wǎng)狀數(shù)據(jù)結(jié)構(gòu)建立的數(shù)據(jù)庫系統(tǒng)稱為網(wǎng)狀數(shù)據(jù)庫系統(tǒng)，其典型代表是DBTG(Data Base Task Group)。用數(shù)學(xué)方法可將網(wǎng)狀數(shù)據(jù)結(jié)構(gòu)轉(zhuǎn)化為層次數(shù)據(jù)結(jié)構(gòu)。(3)關(guān)系結(jié)構(gòu)模型關(guān)系式數(shù)據(jù)結(jié)構(gòu)把一些復(fù)雜的數(shù)據(jù)結(jié)構(gòu)歸結(jié)為簡單的二元關(guān)系(即二維表格形式)。例如某單位的職工關(guān)系就是一個二元關(guān)系。由關(guān)系數(shù)據(jù)結(jié)構(gòu)組成的數(shù)據(jù)庫系統(tǒng)被稱為關(guān)系數(shù)據(jù)庫系統(tǒng)。在關(guān)系數(shù)據(jù)庫中，對數(shù)據(jù)的操作幾乎全部建立在一個或多個關(guān)系表格上，通過對這些關(guān)系表格的分類、合并、連接或選取等運算來實現(xiàn)數(shù)據(jù)的管理。dB

18、ASEII就是這類數(shù)據(jù)庫管理系統(tǒng)的典型代表。對于一個實際的應(yīng)用問題(如人事管理問題)，有時需要多個關(guān)系才能實現(xiàn)。用dBASEII建立起來的一個關(guān)系稱為一個數(shù)據(jù)庫(或稱數(shù)據(jù)庫文件)，而把對應(yīng)多個關(guān)系建立起來的多個數(shù)據(jù)庫稱為數(shù)據(jù)庫系統(tǒng)。dBASEII的另一個重要功能是通過建立命令文件來實現(xiàn)對數(shù)據(jù)庫的使用和管理，對于一個數(shù)據(jù)庫系統(tǒng)相應(yīng)的命令序列文件，稱為該數(shù)據(jù)庫的應(yīng)用系統(tǒng)。因此，可以概括地說，一個關(guān)系稱為一個數(shù)據(jù)庫，若干個數(shù)據(jù)庫可以構(gòu)成一個數(shù)據(jù)庫系統(tǒng)。數(shù)據(jù)庫系統(tǒng)可以派生出各種不同類型的輔助文件和建立它的應(yīng)用系統(tǒng)。2.3 SQL語言介紹2.3.1 SQL簡介SQL是英文Structured Query

19、 Language的縮寫，意思為結(jié)構(gòu)化查詢語言,是訪問數(shù)據(jù)庫的標(biāo)準(zhǔn)語言。SQL語言的主要功能就是同各種數(shù)據(jù)庫建立聯(lián)系，進行溝通。按照ANSI（美國國家標(biāo)準(zhǔn)協(xié)會）的規(guī)定，SQL被作為關(guān)系型數(shù)據(jù)庫管理系統(tǒng)的標(biāo)準(zhǔn)語言。SQL語句可以用來執(zhí)行各種各樣的操作，例如更新數(shù)據(jù)庫中的數(shù)據(jù)，從數(shù)據(jù)庫中提取數(shù)據(jù)等。 目前，絕大多數(shù)流行的關(guān)系型數(shù)據(jù)庫管理系統(tǒng)，如Oracle, Sybase, Microsoft SQL Server, Access等都采用了SQL語言標(biāo)準(zhǔn)。雖然很多數(shù)據(jù)庫都對SQL語句進行了再開發(fā)和擴展，但是包括Select, Insert, Update, Delete, Create, 以及Dr

20、op在內(nèi)的標(biāo)準(zhǔn)的SQL命令仍然可以被用來完成幾乎所有的數(shù)據(jù)庫操作1。SQL語言是一種非過程化語言，它一次處理一個記錄集合，對數(shù)據(jù)提供自動導(dǎo)航。SQL語言允許用戶在高層的數(shù)據(jù)結(jié)構(gòu)上工作，而不對單個記錄進行操作。SQL語言不要求用戶指定數(shù)據(jù)的存取方法，而是使用查詢優(yōu)化器，由系統(tǒng)決定對指定數(shù)據(jù)存取的最快速手段。當(dāng)設(shè)計者在關(guān)系表上定義了索引時，系統(tǒng)會自動利用索引進行快速檢索，用戶不需知道表上是否有索引或者有什么類型的索引等細(xì)節(jié)。SQL語言可以完成許多功能，例如：(1)查詢數(shù)據(jù)；(2)在數(shù)據(jù)庫表格中插入、修改和刪除記錄；(3)建立、修改和刪除數(shù)據(jù)對象；(4)控制對數(shù)據(jù)和數(shù)據(jù)對象的存?。?5)確保數(shù)據(jù)庫的

21、一致性和完整性等。2.3.2 SQL語言的數(shù)據(jù)查詢使用數(shù)據(jù)庫的目的是為了有效地管理數(shù)據(jù)，而數(shù)據(jù)的插入、刪除和修改則是必不可少的功能。在本系統(tǒng)中就大量地使用了數(shù)據(jù)插入、刪除和修改這三種操作，現(xiàn)在對它們做一個簡單地介紹1。(1)數(shù)據(jù)插入 往數(shù)據(jù)庫的基本表中插入數(shù)據(jù)使用的是INSERT語句，其方式有兩種：一種是元組值的插入，另一種是查詢結(jié)果的插入。在本系統(tǒng)中使用的是前一種方式，其句法如下：INSERT INTO 基本表名（列表名）VALUES（元組值）(2)數(shù)據(jù)刪除從數(shù)據(jù)庫的基本表中刪除數(shù)據(jù)使用的是DELETE語句，其句法如下：DELETE FROM 基本表名 WHERE 條件表達(dá)式(3)數(shù)據(jù)修改當(dāng)

22、需要修改基本表中元組的某些列值時，可以用UPDATE語句實現(xiàn)，其句法如下：UPDATE基本表名SET列名=值表達(dá)式，列名=值表達(dá)式WHERE條件表達(dá)式3 需求分析3.1提出問題數(shù)據(jù)庫是一門研究數(shù)據(jù)管理的技術(shù)，始于20世紀(jì)60年代，經(jīng)過40多年的發(fā)展，現(xiàn)在已經(jīng)形成了理論體系，成為計算機軟件的一個重要分支。數(shù)據(jù)庫技術(shù)體現(xiàn)了當(dāng)代先進的數(shù)據(jù)管理方法，使計算機的應(yīng)用真正滲透到國民經(jīng)濟各個部門，在數(shù)據(jù)處理領(lǐng)域發(fā)揮著越來越大的作用。  隨著社會的發(fā)展和經(jīng)濟時代的到來，管理信息系統(tǒng)在各行各業(yè)都占據(jù)著越來越重要的地位，特別是教育事業(yè)。在經(jīng)濟發(fā)達(dá)的國家，許多教育機構(gòu)（如公辦、私立、培訓(xùn)機構(gòu)等），都投入了

23、大量的資金開發(fā)MIS系統(tǒng)，以求在將來激烈的競爭中立于不敗之地。因此，開發(fā)一套能夠為此提供規(guī)范化的事務(wù)管理、充足的信息和快捷的查詢手段的學(xué)生信息管理系統(tǒng)是非常必要的。3.2項目開發(fā)目標(biāo)學(xué)生信息管理系統(tǒng)是面向教育部門的學(xué)生管理事務(wù)，包括學(xué)生基本信息管理，學(xué)生成績管理等工作，是利用計算機進行集中管理而開發(fā)的系統(tǒng)。該系統(tǒng)是以SQL 2000為后臺數(shù)據(jù)庫進行開發(fā)的畢業(yè)生就業(yè)管理系統(tǒng)，力求與實際相結(jié)合具有查詢、管理等功能，使教育的管理趨于計算機化，使之更加方便、快捷以提高工作效率。根據(jù)學(xué)生信息管理的需求和特點，該系統(tǒng)實施后，應(yīng)達(dá)到以下目標(biāo)：(1)靈活地運用表格輸入數(shù)據(jù)，使信息傳遞更快捷；(2)系統(tǒng)采用人機

24、對話方式，界面美觀友好、數(shù)據(jù)存儲安全可靠；(3)鍵盤操作，快速響應(yīng)；(4)實現(xiàn)各種信息的添加、刪除、修改、查詢等；(5)系統(tǒng)運行穩(wěn)定、安全可靠。3.3系統(tǒng)的運行環(huán)境此系統(tǒng)，代碼使用VB語言編寫，數(shù)據(jù)庫管理系統(tǒng)采用SQL2000數(shù)據(jù)庫管理系統(tǒng)，運行在Windows98/ME/2000/XP系統(tǒng)下。 系統(tǒng)總體設(shè)計1系統(tǒng)總體設(shè)計框圖畢業(yè)生就業(yè)管理系統(tǒng)實現(xiàn)了對用戶的管理、系別信息的管理、學(xué)生基本信息的管理、學(xué)生就業(yè)信息的管理、招聘單位信息的管理等功能?？傮w設(shè)計框圖如圖4.1所示。學(xué)生信息管理學(xué)生信息添加學(xué)生信息修改學(xué)生信息刪除學(xué)生信息查詢學(xué)生成績管理學(xué)生成績添加學(xué)生成績修改學(xué)生成績刪除學(xué)生成績查詢課程

25、信息管理課程信息添加課程信息修改課程信息刪除課程信息查詢用戶信息管理用戶信息添加用戶密碼修改學(xué)生信息管理系統(tǒng)2系統(tǒng)功能模塊設(shè)計系統(tǒng)功能包括可視化窗口，對各種信息的添加、修改、刪除和查詢等具體功能如圖4.2所示。學(xué)生信息管理系統(tǒng)學(xué)生成績管理學(xué)生信息管理課程信息管理用戶信息管理 數(shù)據(jù)庫設(shè)計1 ER模型的設(shè)計畢業(yè)生就業(yè)管理系統(tǒng)概念結(jié)構(gòu)設(shè)計是在系統(tǒng)的需求分析、數(shù)據(jù)流程圖和數(shù)據(jù)字典基礎(chǔ)上的抽象，結(jié)合聯(lián)系ER模型的設(shè)計方法，進行如下概要結(jié)構(gòu)設(shè)計。為了使ER圖表示得更加清晰，將E-R圖分成實體屬性ER圖及實體聯(lián)系ER圖。(1) 用實體及其屬性的部分ER圖表示數(shù)據(jù)庫系統(tǒng)的概念模型。學(xué)生信息實體ER圖，如圖5.

26、1所示：學(xué)生信息實體學(xué)號姓名性別年齡系別班級信息實體ER圖，如圖5.2所示：學(xué)生成績實體學(xué)號課程號成績班級信息實體ER圖，如圖5.3所示：課程信息實體課程號課程名先行課學(xué)分用戶名用戶信息實體密碼用戶實體ER圖，如圖5.4所示：(2)用實體及其聯(lián)系的部分ER圖表示數(shù)據(jù)庫系統(tǒng)的概念模型，實體之間ER圖，如圖5.5所示：1n所屬11學(xué)生考試選修課程mn成績2 數(shù)據(jù)庫邏輯結(jié)構(gòu)設(shè)計3邏輯設(shè)計的目的是把概念數(shù)據(jù)模型轉(zhuǎn)化為數(shù)據(jù)庫管理系統(tǒng)可以處理的邏輯模型。也即將由ER圖表示的概念模型轉(zhuǎn)換為DBMS通用的邏輯模型，如關(guān)系模型，然后對其進行優(yōu)化。以關(guān)系模型為目標(biāo)的邏輯結(jié)構(gòu)設(shè)計方法是將ER實體圖中概念模型映射為關(guān)

27、系模型，并且包括一組關(guān)系定義，映射的步驟如下：(1)把ER實體圖中的每個實體變換為一個關(guān)系模型。(2)變換每個關(guān)系：多對多模型需要加一個單獨的關(guān)系模型；而一對一的或者一對多的聯(lián)系可用在實體中增加屬性（此處為外鍵）來模型化。(3)ER圖中的屬性可轉(zhuǎn)換為關(guān)系的屬性。3 數(shù)據(jù)庫物理設(shè)計系統(tǒng)中的數(shù)據(jù)表如下所示： (1)系統(tǒng)用戶數(shù)據(jù)表（用戶表）記錄系統(tǒng)所有用戶名和密碼信息，表中的各個字段以及各個字段的說明如表5.1所示：字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明用戶名文本6主鍵密 碼文本6非空(2)學(xué)生信息表記錄學(xué)生學(xué)號、姓名等基本信息，表中的各個字段以及各個字段的說明如表5.2所示：字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明學(xué) 號文

28、本9主 鍵姓 名文本10允許空性 別文本2允許空年 齡數(shù)值4允許空系 別文本20允許空字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明學(xué) 號文本6主 鍵課程號文本4主 鍵成 績數(shù)值4允許空(3)學(xué)生成績表記錄學(xué)生學(xué)號、課程號及相關(guān)的成績，表中各個字段以及各個字段的說明如表5.3所示：(4)課程信息表記錄課程號、課程名等相關(guān)信息，表中各個字段以及各個字段的說明如表5.4所示：字段名稱數(shù)據(jù)類型字節(jié)數(shù)說明課程號文本4主 鍵課程名文本20允許空先行課文本4允許空學(xué) 分?jǐn)?shù)值2允許空 系統(tǒng)詳細(xì)設(shè)計1 數(shù)據(jù)庫及表創(chuàng)建啟動SQL2000 Server，右擊“數(shù)據(jù)庫”點擊“新建數(shù)據(jù)庫”，在彈出的“數(shù)據(jù)庫屬性”對話框中可鍵入數(shù)據(jù)庫名及

29、其它其它信息，如圖6.1所示：數(shù)據(jù)庫創(chuàng)建完畢后，點擊可打開。右擊“表”選擇“新建表”，可以進行表的創(chuàng)建以及進行相關(guān)的表屬性設(shè)置，如圖6.2所示：創(chuàng)建完表后右擊對應(yīng)表名“打開表”“返回所有行”，可對表進行添加、修改、插入、刪除等相應(yīng)編輯操作，如圖6.3所示：2 創(chuàng)建工程項目VB6.0界面(1) 啟動VB 6.0，出現(xiàn)VB6.0運行界面，如圖6.4所示：(2) 點擊“文件”“保存工程”保存當(dāng)前工程文件。3主窗體的建立 工程主窗體在VB程序設(shè)計中，主界面負(fù)責(zé)應(yīng)用程序的主界面，由它調(diào)用其它模塊。因此，主界面應(yīng)該具有操作性好、界面清晰、使用戶能夠很方便地找到所需功能的特點。本系統(tǒng)的主界面部在相應(yīng)的系統(tǒng)菜

30、單組成，用戶只需要點擊相應(yīng)的菜單使可調(diào)出對應(yīng)的系統(tǒng)模塊。相應(yīng)代碼：Private Sub changecj_Click()Form6.ShowEnd SubPrivate Sub cjshuru_Click()Form7.ShowEnd SubPrivate Sub dispcj_Click()Form5.ShowEnd SubPrivate Sub exit_Click()EndEnd SubPrivate Sub newuser_Click()Form11.ShowEnd SubPrivate Sub newusr_Click()Form10.ShowEnd SubPrivate Sub

31、stucase_Click()Form3.ShowEnd SubPrivate Sub xskcgl_Click()Form9.ShowEnd SubPrivate Sub xueshendagl_Click()Form8.ShowEnd SubPrivate Sub xueshengcx_Click()Form4.ShowEnd Sub3.1 用戶登陸模塊本模塊共有三個部分組成：用戶登陸窗體、密碼修改窗體、新用戶注冊窗體。用戶登陸窗體主要由文本框及命令按鈕組成，利用Adodc控件及DataGrid控件實現(xiàn)程序代碼與SQL數(shù)據(jù)的連接（如圖6.6所示）。用戶鍵入用戶名及密碼后點擊“確定”按鈕系統(tǒng)

32、會通過上述兩個控件與數(shù)據(jù)庫進行連接并進行數(shù)據(jù)的比較，如果存在該用戶及密碼正確則會進行系統(tǒng)跳轉(zhuǎn)進行主控制界面，否則會提示用戶出錯，重新輸入用戶名及密碼，次數(shù)無限制。默認(rèn)用戶名為：admin，默認(rèn)密碼為：123456 用戶登陸窗口密碼修改窗體及新用戶注冊窗體及登陸窗體的控件組成大致相同，這里不再詳述。用戶登陸代碼：Dim username As String, userpass As StringPrivate Sub Command1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find ("userID='"

33、& Text1 & "'")If Adodc1.Recordset.EOF ThenMsgBox "無此用戶，請重新輸入！"Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = Trim(abc) ThenMsgBox "歡迎使用本系統(tǒng)，點擊進入！", vbOKOnly, "登陸"Me.HideForm2.ShowElseMsgBox "用戶名或密碼不正確，請重新輸入！"Text1 = ""Tex

34、t2 = ""Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Sub3.2 新生注冊窗體新生注冊窗口點擊“新生注冊”“學(xué)生檔案”可打開本窗體，本窗體專門為新生注冊使用。通過ADODC控件實現(xiàn)本窗體與數(shù)據(jù)庫學(xué)生表的連接，文本框默認(rèn)不可編輯，用戶點擊“添加記錄”按系統(tǒng)提示可自動完成添加。如圖6.7所示對應(yīng)代碼：Private Sub Command1_Click()Adodc1.Recordset.AddNewText1 = InputBox("請輸入學(xué)生學(xué)號", "添加學(xué)

35、號")Text2 = InputBox("請輸入學(xué)生姓名", "添加姓名")Text3 = InputBox("請輸入學(xué)生性別", "添加性別")Text4 = InputBox("請輸入學(xué)生年齡", "添加年齡")If Not IsNumeric(Text4) ThenMsgBox "請輸入數(shù)值"Text4.SetFocusEnd IfText5 = InputBox("請輸入學(xué)生系別", "添加系別")

36、resu = MsgBox("確認(rèn)添加到數(shù)據(jù)庫", vbOKCancel, "確認(rèn)添加")If resu = vbOK ThenAdodc1.Recordset.UpdateElseAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command2_Click()Me.HideForm2.ShowEnd Sub3.3 成績修改窗體成績修改窗體本窗體通過ADODC控件連接數(shù)據(jù)庫的成績表，默認(rèn)條件下文本都不可編輯，用戶可以點擊上一條、下一條進行表的瀏覽操作。點擊“確認(rèn)修改記錄”按鈕，成績文本框變?yōu)榭删庉嫚顟B(tài)，用戶

37、根據(jù)系統(tǒng)提示可完成記錄修改操作。如果鍵入的成績小0，則系統(tǒng)提示出錯，并自動將出錯成績重置為60分。相應(yīng)代碼：Private Sub Adodc1_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)Adodc1.Caption = Adodc1.Recordset.AbsolutePosition & "/" &a

38、mp; Adodc1.Recordset.RecordCountEnd SubPrivate Sub Command1_Click(Index As Integer) Select Case Index Case 0 Adodc1.Recordset.MoveFirst ' 第一條 Case 1 Adodc1.Recordset.MovePrevious ' 上一條 If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext ' 下一條 If Adodc

39、1.Recordset.EOF Then Adodc1.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast ' 最后一條 Case 4 Dim mno As String mno = InputBox("請輸入學(xué)號", "查找窗") ' 將輸入值存到變量內(nèi) Adodc1.Recordset.MoveFirst ' 移動記錄指針到第一條記錄上 Adodc1.Recordset.Find ("sno='" & mno & "

40、9;") '用.Find方法查找指定科目 If Adodc1.Recordset.EOF Then MsgBox "無此學(xué)號!" & Adodc1.Recordset.AbsolutePosition, , "提示" End SelectEnd SubPrivate Sub Command2_Click()Adodc1.Recordset.UpdateEnd Sub3.4 成績輸入窗體 添加成績窗體本窗體通過控件與文本框與數(shù)據(jù)庫成績表實現(xiàn)連接，文本框默認(rèn)不可編輯，但可以實現(xiàn)成績的瀏覽功能。用戶點擊“添加成績”按鈕，按照系統(tǒng)提示可

41、完成成績的添加操作。由于成績表已經(jīng)與學(xué)生表以及課程表建立了完整性約束，所以如果用戶鍵入的學(xué)號或者課程號不存在則將會提示用戶出錯，并且重新輸入。3.5 學(xué)生檔案管理 學(xué)生檔案管理本窗體通過ADODC控件連接數(shù)據(jù)庫的學(xué)生表，可以實現(xiàn)對學(xué)生檔案的添加、刪除、修改、查詢以及瀏覽操作。控件在程序運行時不可見，但卻必不可少。用戶點擊上一條、下一條可以實現(xiàn)記錄的瀏覽，且內(nèi)容不可編輯。查詢記錄時，只有查詢條件及查詢內(nèi)容都有修改的時候，查詢按鈕才可用，否則不可用。修改或者刪除記錄選項與確定按鈕相連接，由于采用單選按鈕，故某一時刻只能實現(xiàn)某一種操作。執(zhí)行該操作時記錄內(nèi)容不可編輯。3.6 學(xué)生課程管理 學(xué)生成績管理

42、本窗體通過ADODC控件連接數(shù)據(jù)庫的課程表，可以實現(xiàn)對課程系統(tǒng)的添加、刪除、修改、查詢以及瀏覽操作?？丶诔绦蜻\行時不可見，但卻必不可少。用戶點擊上一條、下一條可以實現(xiàn)記錄的瀏覽，且內(nèi)容不可編輯。查詢記錄時，只有查詢條件及查詢內(nèi)容都有修改的時候，查詢按鈕才可用，否則不可用。修改或者刪除記錄選項與確定按鈕相連接，由于采用單選按鈕，故某一時刻只能實現(xiàn)某一種操作。執(zhí)行該操作時記錄內(nèi)容不可編輯。 系統(tǒng)測試與分析軟件測試是為了發(fā)現(xiàn)錯誤而執(zhí)行程序的過程，其目的在于以最少的時間和人力系統(tǒng)地找出軟件中潛在的各種錯誤和缺陷。測試主要是由人而不是由機器執(zhí)行，因而存在心理學(xué)的問題。1 測試實例研究與選擇由于軟件錯誤

43、的復(fù)雜性，軟件測試需要綜合應(yīng)用測試技術(shù)，軟件測試步驟為單元測試、集成測試、確認(rèn)測試和系統(tǒng)測試。 單元測試是對源程序中每一個程序單元進行測試，檢查各個模塊是否正確實現(xiàn)了規(guī)定的功能，從而發(fā)現(xiàn)模塊在編碼中或算法中的錯誤。該階段涉及編碼和詳細(xì)設(shè)計的文檔。各模塊經(jīng)過單元測試后，將各模塊組裝起來進行集成測試，以檢查與設(shè)計相關(guān)的軟件體系結(jié)構(gòu)的有關(guān)問題。確認(rèn)測試主要檢查已實現(xiàn)的軟件是否滿足需求規(guī)格說明書中確定的各種需求。系統(tǒng)測試將已確定的軟件與其他系統(tǒng)元素（如硬件、其他支持軟件、數(shù)據(jù)和人工等）結(jié)合在一起進行測試。本系統(tǒng)是管理系統(tǒng)，主要是從數(shù)據(jù)庫中讀取數(shù)據(jù)，因而測試的實例主要是實現(xiàn)與數(shù)據(jù)相關(guān)的各種操作。應(yīng)用白盒

44、測試法中的語句覆蓋方法使得程序中的每條語句都執(zhí)行一次。2性能分析測試過程中發(fā)現(xiàn)了不合適或不相容的類型說明；有的變量無初值；有的變量初始化或缺省值有錯；有的變量名不正確的（拼錯或不正確地截斷）；出現(xiàn)上溢、下溢和地址異常等問題，并逐個予以解決，保證了臨時存儲在模塊內(nèi)的數(shù)據(jù)在程序執(zhí)行過程中完整、正確。本系統(tǒng)長時間不間斷連續(xù)運行不會出現(xiàn)錯誤，系統(tǒng)不會出現(xiàn)系統(tǒng)故障，不會出現(xiàn)嚴(yán)重的錯誤，并且由于有較高的容錯技術(shù)，能較快的糾正意外錯誤，使系統(tǒng)穩(wěn)定可靠。本系統(tǒng)能夠準(zhǔn)確，快速的處理學(xué)生信息管理的操作事務(wù)，能夠滿足管理者的需求，并大大減少了教務(wù)管理者的信息查詢及維護的麻煩，實現(xiàn)日常處理計算機化，使系統(tǒng)簡單實用。系

45、統(tǒng)程序代碼中設(shè)計了判斷語句，用來判斷操作錯誤時彈出報錯對話框，在系統(tǒng)中設(shè)置了權(quán)限判斷，使數(shù)據(jù)具有一定的保密性，增加了系統(tǒng)的安全性。本系統(tǒng)的功能還不是很完善，系統(tǒng)的界面設(shè)計的還有些簡單，樣式還不是特別美觀，有待于進一步設(shè)計；系統(tǒng)設(shè)計中后臺數(shù)據(jù)庫應(yīng)用SQL server，結(jié)合VB程序設(shè)計使操作更簡單，理解更方便。經(jīng)過系統(tǒng)的性能測試得出，本系統(tǒng)雖然有一定的缺陷和限制，但本系統(tǒng)的具體功能能夠完整實現(xiàn)，所以本系統(tǒng)可以投入到現(xiàn)實應(yīng)用中。8 結(jié)束語本次課程設(shè)計是我第一次系統(tǒng)的、完整的接觸軟件設(shè)計的過程。我做的是學(xué)生信息管理系統(tǒng)。在這次課程設(shè)計中，我體會很深，也學(xué)會了很多東西，懂得很多以前不懂的東西，也明白了

46、一些事情。通過此次數(shù)據(jù)庫的課程設(shè)計，真正達(dá)到了學(xué)與用的結(jié)合，增強了對數(shù)據(jù)庫方面應(yīng)用的理解，對自己今后參與開發(fā)數(shù)據(jù)庫系統(tǒng)積累了不少經(jīng)驗，在實驗過程中，從建立數(shù)據(jù)開始，對數(shù)據(jù)庫設(shè)計理念及思想上有更高的認(rèn)識，從需求分析，到概念設(shè)計和邏輯設(shè)計，E-R圖的表示，數(shù)據(jù)字典的創(chuàng)建，懂得了不少有關(guān)數(shù)據(jù)庫開發(fā)過程中的知識，在實驗中建表，及其關(guān)系模式，關(guān)系代數(shù)的建立及理解，將SQL語言的查詢語句用得淋漓盡致，增強了自己在數(shù)據(jù)庫中應(yīng)用SQL語言的靈活性，其中包括插入、刪除、修改、查詢,牽涉表和表之間的聯(lián)系，主建與外鍵的定義，約束項的設(shè)置，使邏輯更嚴(yán)密，在學(xué)習(xí)過程中，我也上網(wǎng)查了不少資料，也看了一些別人設(shè)計的圖書館管

47、理信息系統(tǒng)的設(shè)計報告，學(xué)以致用，自我創(chuàng)新，獨立完成了這份自己的報告，從學(xué)到用，從用又到學(xué)，不斷修改，系統(tǒng)更新。在本系統(tǒng)的開發(fā)過程中，由于我是初次開發(fā)軟件，在知識、經(jīng)驗方面都存在著不足。另外，在整個開發(fā)的過程中，時間也比較倉促。因此，該系統(tǒng)必然會存在一些缺陷和不足。管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本管理系統(tǒng)所必需的。相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過開發(fā)這個系統(tǒng)，了解了基本知識鞏固了我對Visual Basic 6.0的學(xué)習(xí)，但在這次畢業(yè)設(shè)計中的最大收獲并不是掌握這幾門開發(fā)工具的應(yīng)用

48、，而是學(xué)會了設(shè)計系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神。課程設(shè)計結(jié)束了，但我不會忘記在這次課程設(shè)計中我所得到的。我深深的體會到了這幾句話：認(rèn)真做事只是把事情做對，用心做事才能把事情做好。把每一件簡單的事情做好就是不簡單，把第一件平凡的事情做好就是不平凡。在以后的學(xué)習(xí)中我會不斷的在實際中應(yīng)用這幾句話，我要不斷的總結(jié)，不斷的改進，不斷的努力，使自己的成績提高。謝 辭在將近一周的課程設(shè)計里，首先我很感謝馬桂英老師的悉心指導(dǎo)。在整個設(shè)計過程中，馬老師給了我很多的指導(dǎo)和支持，才使得些次設(shè)計圓滿結(jié)束。在此，真誠的對馬老師說一聲：“謝謝，老師，您辛苦了”。此次設(shè)計的順利完成還要感謝給予我?guī)椭耐瑢W(xué)們

49、，我們討論所遇到的問題，并一起解決。在討論中解決問題，并且在交流的過程中，我們也可以學(xué)到更多的東西。通過這次課設(shè)讓我學(xué)到許多。在學(xué)習(xí)專業(yè)課的時候要注意理論聯(lián)系實際。注意將課本上的知識應(yīng)用到日常的操作中，真正做到學(xué)以致用。只有這樣，才能做到目的明確，才能有足夠的學(xué)習(xí)動力。課程設(shè)計已經(jīng)結(jié)束了，這次課程設(shè)計帶給自己很多體會，在以后的學(xué)習(xí)中要不斷總結(jié)，不斷改進，使自己的成績有新的提高。參考文獻1 薩師煊，王珊，數(shù)據(jù)庫系統(tǒng)概論，高等教育出版社，2002，2：1-1502 張來寅，譚明勇，數(shù)據(jù)庫系統(tǒng)原理與應(yīng)用，冶金工業(yè)出版社，2003，7：27-503 梁燦，趙艷澤，SQL數(shù)據(jù)庫應(yīng)用基礎(chǔ)教程，清華大學(xué)出版

50、社，2005，11：10-304 柴欣，武優(yōu)西，Visual Basic程序設(shè)計基礎(chǔ)（第三版），北京：中國鐵道出版社，2005附 錄用戶登陸窗口代碼：Dim username As String, userpass As StringPrivate Sub Command1_Click()Adodc1.Recordset.MoveFirstAdodc1.Recordset.Find ("userID='" & Text1 & "'")If Adodc1.Recordset.EOF ThenMsgBox "無此用戶

51、，請重新輸入！"Exit SubElseabc = Adodc1.Recordset.Fields(1)If Text2 = Trim(abc) ThenMsgBox "歡迎使用本系統(tǒng)，點擊進入！", vbOKOnly, "登陸"Me.HideForm2.ShowElseMsgBox "用戶名或密碼不正確，請重新輸入！"Text1 = ""Text2 = ""Exit SubEnd IfEnd IfEnd SubPrivate Sub Command2_Click()EndEnd Su

52、b添加記錄代碼：Private Sub Command1_Click()Adodc1.Recordset.AddNewText1 = InputBox("請輸入學(xué)生學(xué)號", "添加學(xué)號")Text2 = InputBox("請輸入學(xué)生姓名", "添加姓名")Text3 = InputBox("請輸入學(xué)生性別", "添加性別")Text4 = InputBox("請輸入學(xué)生年齡", "添加年齡")If Not IsNumeric(Text

53、4) ThenMsgBox "請輸入數(shù)值"Text4.SetFocusEnd IfText5 = InputBox("請輸入學(xué)生系別", "添加系別")resu = MsgBox("確認(rèn)添加到數(shù)據(jù)庫", vbOKCancel, "確認(rèn)添加")If resu = vbOK ThenAdodc1.Recordset.UpdateElseAdodc1.Recordset.DeleteEnd IfEnd SubPrivate Sub Command2_Click()Me.HideForm2.ShowEn

54、d Sub學(xué)生查詢代碼：Private Sub Command1_Click()If Text1 = "" ThenMsgBox "請輸入查詢條件"Text1.SetFocusEnd IfIf Option1.Value = True ThenAdodc1.Recordset.Find ("sno='" & Text1 & " '")If Adodc1.Recordset.EOF Then MsgBox "沒有該學(xué)生"ElseIf Option2.Value = True ThenAdodc1.Recordset.Find ("sname='" & Text1 & " '")If Adodc1.Recordset.EOF Then MsgBox "沒有該學(xué)生"End IfEnd SubPrivate Sub Option1_Click()Text2 = ""Adodc1.Recordset.MoveFirstEnd SubPrivate Sub Option