VB學(xué)生信息管理(整理)

1、學(xué)生信息管理系統(tǒng)1課程設(shè)計(jì)目的目的是進(jìn)一步培養(yǎng)我們綜合應(yīng)用Visual Basic 的各種編程知識(shí)和技巧進(jìn)行程序設(shè)計(jì)的能力。通過課程設(shè)計(jì)，我們能達(dá)到具備設(shè)計(jì)功能較為復(fù)雜的Windows 應(yīng)用程序的能力。同時(shí)，通過課程設(shè)計(jì)，培養(yǎng)我們自主學(xué)習(xí)和獨(dú)立創(chuàng)新的精神，是人才培養(yǎng)體系中極為重要 的一環(huán)。隨著高校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長， 龐大學(xué)生信息的管理工作成了高校教案管理工作中的一項(xiàng)重要任務(wù)，一方面，假如遵從以 往舊式的工作方式，該工作的工作量大，管理繁瑣，既耗人力，又耗物力；另一方面，由 于計(jì)算機(jī)技術(shù)的飛速發(fā)展及應(yīng)用的普及，學(xué)生信息管理這樣煩瑣的工作更需要由計(jì)算

2、機(jī)來 完成。因此開發(fā)一套對學(xué)生信息進(jìn)行管理的軟件是極其重要的，而且是必需的，通過這樣 的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作 量。學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS）,其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù) 據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。針對高?，F(xiàn)在存在的學(xué)生成績管理的弊端和基本流程，設(shè)計(jì)了學(xué)生成績管理系統(tǒng)，實(shí) 現(xiàn)學(xué)生成績管理的電子化，減輕管理人員的負(fù)擔(dān)。利用這一系統(tǒng)，管理人員能夠更好的對 現(xiàn)有的學(xué)生成績進(jìn)行管理，也方便了學(xué)生自己查詢成績，同

3、時(shí)可以避免人為錯(cuò)誤。本模塊 實(shí)現(xiàn)的主要功能有專業(yè)信息、班級信息、學(xué)生信息及課程安排、成績查詢的功能。系統(tǒng)采 用 Visual basic 高級語言進(jìn)行程序編制，以 SQL Server 2000 數(shù)據(jù)庫為后臺(tái)數(shù)據(jù)庫。希望通過這次課程更清楚地了解自己的知識(shí)水平。充分的認(rèn)識(shí)到自己真實(shí)情況。都說 要想把學(xué)到的理論知識(shí)徹底的變成自己的東西就要不斷地學(xué)習(xí)不停的實(shí)踐，只有徹底明白 的道理和它的一切結(jié)構(gòu)才不至于學(xué)的一知半解。通過這次學(xué)生信息系統(tǒng)的設(shè)計(jì)，希望自己 能把以前不會(huì)的東西學(xué)會(huì)，然后把自己會(huì)的東西能充分的運(yùn)用到實(shí)際課程設(shè)計(jì)當(dāng)中，做出 理想的效果。徹底的把知識(shí)學(xué)透而不是把知識(shí)學(xué)死板了，自己做這次課程設(shè)計(jì)

4、一定會(huì)讓我 得到很多我在課堂上多學(xué)不到的東西。更好的完善自己，為以后的學(xué)習(xí)生活以及工作奠定 良好的基礎(chǔ)。2學(xué)生信息管理系統(tǒng)分析與設(shè)計(jì)2.1 可行性分析由于本系統(tǒng)管理的對象單一，都是在校學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉 及的計(jì)算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微 機(jī)都是奔騰 3以上的機(jī)器，在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度 方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的 功能，因此完全可以實(shí)現(xiàn)。數(shù)據(jù)庫是 MIS 中的重要支持技術(shù)，在 MIS 開發(fā)過程中，如何 選擇數(shù)據(jù)庫管理是一個(gè)重要的問題，目前，數(shù)據(jù)

5、庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點(diǎn) 和適用范圍，因此，在選擇數(shù)據(jù)庫時(shí)，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點(diǎn)及適用范圍，本系統(tǒng)選用 的數(shù)據(jù)庫語言介紹如下： Visual Basic 是一種可視化的、面對對象和調(diào)用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級程序設(shè)計(jì)，可用于開發(fā)Win dows 環(huán)境下的種類應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大。在 Visual Basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化 設(shè)計(jì)工具，可以高效、快速地開發(fā)出Win dows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。2.2 系統(tǒng)功能分析此學(xué)生信息管理信息系統(tǒng)是面向大學(xué)的管理系統(tǒng)，其目的是對學(xué)校內(nèi)的學(xué)生，班級，和其它信息進(jìn)行統(tǒng)一

6、有序的管理。班級管理信息的輸入，包括班級設(shè)置、年級的設(shè)置等；班級管理信息管理的查詢；班 級管理信息的修改；學(xué)?；菊n程信息的輸入；基本課程信息的修改；學(xué)生課程信息的設(shè) 置和修改；學(xué)生成績信息的輸入；學(xué)生成績信息的修改；學(xué)生成績信息的查詢；學(xué)生成績 信息的統(tǒng)計(jì)。1） 系統(tǒng)安全性操作員在登錄界面輸入操作員帳號(hào)及密碼進(jìn)入主頁面進(jìn)行相應(yīng)操作，加強(qiáng)了此系統(tǒng)的 安全可靠性。2） 主頁界面采用視窗的風(fēng)格，點(diǎn)擊菜單可以進(jìn)入相應(yīng)的界面，對其進(jìn)行相應(yīng)的操作。既方便又實(shí)用3） 專業(yè)信息管理對所有專業(yè)信息查詢，并能直接實(shí)現(xiàn)添加記錄、刪除記錄、刷新、打印報(bào)表等功能。專業(yè)信息表包括的字段：專業(yè)號(hào)、專業(yè)名。4） 班級信息管

7、理對所有班級信息查詢，并能直接實(shí)現(xiàn)添加記錄、刪除記錄、打印報(bào)表及刷新等功能。班級信息表包括的字段：班級號(hào)，專業(yè)號(hào)5） 學(xué)生信息管理對全體學(xué)生信息查詢，或某個(gè)學(xué)生信息查詢，并能直接實(shí)現(xiàn)添加記錄、刪除記錄、打印 報(bào)表及刷新等功能。學(xué)生表包括的字段：學(xué)號(hào)、姓名、性別、出生日期、政治面貌、專 業(yè)號(hào)、班級號(hào)。6） 課程安排管理對所有課程具體安排信息進(jìn)行查詢或某一科單獨(dú)查詢，且也能夠?qū)崿F(xiàn)添加、刪除記錄、 打印報(bào)表及刷新等功能。課程表包括的字段：課程號(hào)、課程名、專業(yè)號(hào)、開課學(xué)期、學(xué) 時(shí)、教師編號(hào)。7） 成績查詢管理對全體的學(xué)生所有的科目成績進(jìn)行查詢，也能單獨(dú)對某一個(gè)學(xué)生某一科進(jìn)行查詢并能實(shí) 現(xiàn)添加、刪除記錄

8、、打印報(bào)表及刷新，還有就是能統(tǒng)計(jì)出補(bǔ)考的學(xué)生的名單及數(shù)量。成 績表包括的字段：學(xué)號(hào)、姓名、課程號(hào)、課程名、成績、考核、教師編號(hào)、專業(yè)號(hào)、班 級號(hào)。2.3 系統(tǒng)功能模塊分析上述各功能的系統(tǒng)功能模塊圖如圖 1圖 1 系統(tǒng)功能模塊2.4 數(shù)據(jù)庫分析數(shù)據(jù)庫在一個(gè)信息管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的好壞將直接對 應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效果產(chǎn)生影響。合理的數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)可提高數(shù)據(jù)存儲(chǔ)的效 率，保證數(shù)據(jù)的完整和一致。同時(shí)，合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。數(shù)據(jù)庫需求分析用戶的需求具體體現(xiàn)在各種信息的提供、保證、更新和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能 夠充分滿足各種信息的輸出和輸入。針對一般學(xué)生

9、信息管理系統(tǒng)的要求，通過對學(xué)生學(xué)習(xí)過程的內(nèi)容和數(shù)據(jù)流程分析，設(shè)計(jì)如 下的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)：1) .學(xué)生基本信息：包括的數(shù)據(jù)項(xiàng)有：學(xué)生學(xué)號(hào)、學(xué)生姓名、性別、出身日期、班號(hào)、聯(lián)系 電話、入校日期、家庭地址、備注等。2).班級信息：包括的數(shù)據(jù)項(xiàng)有：班號(hào)、所在年級、班主任姓名、所在教室等。3) .課程基本信息：包括的數(shù)據(jù)項(xiàng)有：課程號(hào)、課程名稱、課程類別、課程描述等。4) .課程設(shè)置信息：包括數(shù)據(jù)項(xiàng)有：年級信息、所學(xué)課程等。5) .學(xué)生成績信息：包括數(shù)據(jù)項(xiàng)有：考試編號(hào)、所在班號(hào)、學(xué)生學(xué)號(hào)、學(xué)生姓名、所學(xué)課 程、考試分?jǐn)?shù)等。根據(jù)上面的數(shù)據(jù)結(jié)構(gòu)、數(shù)據(jù)項(xiàng)和數(shù)據(jù)流程，進(jìn)行數(shù)據(jù)庫設(shè)計(jì)。3詳細(xì)設(shè)計(jì)3.1 學(xué)生信息管

10、理系統(tǒng)主窗體的創(chuàng)建(1) .創(chuàng)建一個(gè)工程名為 Student_Mis 的工程文件 Student_Mis.vbp。(2) .創(chuàng)建學(xué)生信息管理系統(tǒng)的主窗體MID 窗體，窗體名為 frmMain，窗體文件名為:frmMain.frm。創(chuàng)建主窗體的菜單，利用菜單設(shè)計(jì)器來設(shè)置住窗體如下圖所示。圖2主窗體菜單表 1 主菜單結(jié)果表對象屬性屬性值對象屬性屬性值主菜單項(xiàng)1名稱sysMe nu子菜單項(xiàng)2名稱modifyci on foMe nu標(biāo)題系統(tǒng)標(biāo)題修改班級信息子菜單項(xiàng)1名稱adduserMenu主菜單項(xiàng)4名稱courseMe nu標(biāo)題添加用戶標(biāo)題課程設(shè)置子菜單項(xiàng)2名稱modifypwdMe nu子菜單項(xiàng)

11、1名稱addcourseMe nu標(biāo)題修改密碼標(biāo)題添加課程設(shè)計(jì)子菜單項(xiàng)3名稱exitMe nu子菜單項(xiàng)2名稱modifycourseMe nu標(biāo)題退出系統(tǒng)標(biāo)題修改課程信息主菜單項(xiàng)2名稱sin foMe nu子菜單項(xiàng)3名稱gradecourseMe nu標(biāo)題學(xué)籍信息標(biāo)題設(shè)計(jì)年級課程子菜單項(xiàng)1名稱adds in foMe nu主菜單項(xiàng)5名稱resultMe nu標(biāo)題添加學(xué)籍信息標(biāo)題成績管理子菜單項(xiàng)2名稱modifysi nfoMe nu子菜單項(xiàng)1名稱addresultMe nu標(biāo)題修改學(xué)籍信息標(biāo)題添加成績信息子菜單項(xiàng)3名稱inq uires in foMe nu 子菜單項(xiàng)2名稱modifyresu

12、ltMe nu標(biāo)題查詢學(xué)籍信息標(biāo)題修好學(xué)籍信息主菜單項(xiàng)3名稱class in foMe nu子菜單項(xiàng)3名稱inq uireresultMe nu標(biāo)題班級管理標(biāo)題查詢成績信息子菜單項(xiàng)1名稱addci nfoMe nu標(biāo)題添加班級信息3.2 系統(tǒng)用戶管理模塊的創(chuàng)建系統(tǒng)用戶管理模塊主頁實(shí)現(xiàn)：用戶登陸；用戶添加；修改用戶密碼3.2.1 用戶登陸窗體的創(chuàng)建進(jìn)入系統(tǒng)后出現(xiàn)如圖 3 所示用戶登陸窗體，用戶首先輸入用戶名，然后輸入密碼。如果用 戶 3 次輸入密碼不正確，將退出程序。圖 3 系統(tǒng)登錄界面3.2.2 成績管理模塊的創(chuàng)建(1) 成績管理模塊功能分析成績管理模塊主要實(shí)現(xiàn)如下功能：添加成績信息；修改成績

13、信 息；查詢成績信息。成績信息管理模塊圖如下圖所示。圖 4 成績信息管理模塊界面設(shè)計(jì)時(shí)添加窗體，添加相關(guān)控件，設(shè)置控件的相關(guān)屬性來完成界面的設(shè)計(jì)要求， 然后調(diào)整控件的排版問題，讓整體達(dá)到美觀的效果。界面的設(shè)計(jì)以及屬性的設(shè)置如下圖所 示。圖 5 界面設(shè)計(jì)及屬性設(shè)置3.2.3 添加成績信息窗體的創(chuàng)建選擇成績管理添加成績信息”菜單，將出現(xiàn)如圖所示的窗體。圖 6 添加成績信息打開添加成績界面之后，可以通過系統(tǒng)添加考試編號(hào)、選擇學(xué)生所在的班級、添加學(xué) 生的學(xué)號(hào)、姓名、考試的課程科目以及考試所得的分?jǐn)?shù)。添加完事之后如果沒有錯(cuò)誤和實(shí) 際相符合就可以單擊 確認(rèn)添加”按鈕把剛剛錄入的成績及學(xué)生信息保存到系統(tǒng)當(dāng)中

14、。方便 以后用戶的查詢。如果發(fā)現(xiàn)在錄入信息的時(shí)候不小心錄入了錯(cuò)誤信息，可以修改錄入的信 息，或者用戶單擊取消添加”按鈕取消添加信息?？丶傩缘脑O(shè)置：根據(jù)以上的操作界面，在設(shè)計(jì)時(shí)候創(chuàng)建窗體，往窗體當(dāng)中添加相關(guān)的控件，調(diào)整控件 的位置以達(dá)到美觀優(yōu)雅的設(shè)計(jì)效果，添加控件的同時(shí)也要在設(shè)計(jì)界面把把各個(gè)控件的相關(guān) 屬性按照設(shè)計(jì)要求目的來設(shè)置好，窗體中各種控件的屬性列成表格的形式，如下表所示。表 2 控件屬性控件屬性屬性取值控件屬性屬性取值FrmAddgradeNameFrmAddgradeLabel1Capti on考試編號(hào)(Form)Capti on添加成績信息Comma nd2NameComma nd

15、2MIDChil d TrueCapti on取消添加txtTest noNametxtTest noLabel2Capti on選擇班號(hào)comboGradeNamecomboGradeLabel3Capti on選擇學(xué)號(hào)txtDirectorNametxtDirectorLabel4Capti on姓名txtn ameNametxt nameLable15Capti on選擇課程Comma nd1NameComma nd1Lable16Capti on輸入分?jǐn)?shù)Capti on確定添加3 2 4 修改成績信息窗體的創(chuàng)建這個(gè)窗體在添加成績信息窗體的基礎(chǔ)上又增加了兩排按鈕，查看成績信息和修改成績信

16、息。如 7 圖所示。方便了用戶的相關(guān)操作。圖 7 修改成績信息控件的屬性設(shè)置：在設(shè)計(jì)操作界面的時(shí)候來設(shè)置相關(guān)控件的屬性設(shè)置，修改框架的標(biāo)題，讓人看了之后就 知道該操作界面是用來做什么的，設(shè)置該框架的 Caption 屬性為修改成績信息”其他一些空 間的屬性按照設(shè)計(jì)要求和目的來分別設(shè)置。具體控件的屬性設(shè)置如下表所示。表 3 控件屬性控件屬性屬性取值控件屬性屬性取值FrmCha ngeNameFrmCha ngeLabel1Capti on考試編號(hào)(Form)Capti on修改成績信息Comma ndNameComma nd3MIDChil dTrue3Capti on取消修改記錄txtTest

17、 noNametxtTest noComma ng4Capti on刪除記錄comboGradeNamecomboGradeLabel2Capti on選擇班號(hào)txtDirectorNametxtDirectorLabel3Capti on選擇學(xué)號(hào)txtn ameNamext nameLabel4Capti on姓名Comma nd1Capti on修改記錄Lable15Capti on選擇課程Comma nd2Capti on更新數(shù)據(jù) vLable16Capti on輸入分?jǐn)?shù)當(dāng)需要修改學(xué)生成績信息的時(shí)候可以通過打開系統(tǒng)的如上界面來對成績信息進(jìn)行查看 和修改，點(diǎn)擊查看成績信息欄里面的第一條記錄

18、”按鈕或者其他幾個(gè)按鈕可以根據(jù)點(diǎn)擊按鈕的不同來跳轉(zhuǎn)到相關(guān)的界面來顯示想要的信息。如果系統(tǒng)當(dāng)中的數(shù)據(jù)需要做相關(guān)的修改 時(shí)，點(diǎn)擊修改成績信息欄里面的按鈕來修改當(dāng)前系統(tǒng)當(dāng)中的記錄，更新數(shù)據(jù)，刪除不想保 存在數(shù)據(jù)庫中的信息，如果不是想要修改數(shù)據(jù)和更新數(shù)據(jù)庫信息可以單擊取消修改記錄”按鈕來放棄剛剛所作出的操作。3 2 5 查詢成績信息窗體的創(chuàng)建新建一個(gè) Form 窗體，在窗體上加入一個(gè) Data 控件，其 DatabaseName 屬性設(shè)置連接 到數(shù)庫，RecordSource 屬性連接到數(shù)據(jù)庫中的相關(guān)表。在窗體上加入兩個(gè) Frame 控件，在 一個(gè)上放置 3wh TextBox 控件，3 個(gè) Labe

19、l 控件，其 Caption 屬性分別設(shè)為 按學(xué)號(hào)”按姓 名”按課程”。設(shè)置有復(fù)選框。在另一個(gè) Frame 控件上放置 2 個(gè) CommandButton 控件，其 Caption 屬性分別設(shè)置為 查詢”、退出查詢”。完成后的整個(gè)界面如下圖所示。圖 8 查詢成績信息進(jìn)入系統(tǒng)的查詢成績信息界面以后， 可以按照不同的方式來查詢想要查看的同學(xué)的成 績信息。該系統(tǒng)分為按學(xué)號(hào)查詢學(xué)生的成績信息，輸入學(xué)生的學(xué)號(hào)之后，然后單擊查詢”按鈕跳轉(zhuǎn)到下一界面，即為查詢學(xué)生的成績信息。按姓名查詢學(xué)生成績信息，如截圖當(dāng)中 顯示的即為通過按姓名的方式來查詢數(shù)據(jù)庫中已有的學(xué)生成績信息。在按姓名文本框當(dāng)中 輸入 張三”然后單

20、擊 查詢”按鈕即可以跳到張三的成績相關(guān)信息界面。查詢完畢之后通過 單擊 退出查詢”按鈕來退出該模塊。圖中即為數(shù)據(jù)庫中有的關(guān)于張三的成績信息，考試編 號(hào)、張三的學(xué)號(hào)、班級號(hào)、所考試的課程名稱，和該科目的考試成績。再有按課程名稱來 查看學(xué)生成績信息。手動(dòng)輸入課程名稱來查詢相關(guān)的成績信息。4設(shè)計(jì)體會(huì)在本系統(tǒng)的開發(fā)過程中，由于本人是初次開發(fā)軟件，在知識(shí)、經(jīng)驗(yàn)方面都存在著不 足。因此，該系統(tǒng)必然會(huì)存在一些缺陷。因?yàn)閷W(xué)生信息管理的整個(gè)流程的熟悉程度還不 夠深刻，在需求分析時(shí)未能做到完全滿足用戶的需求。雖然網(wǎng)絡(luò)在學(xué)生成績管理系統(tǒng)中的 應(yīng)用不是很多，在本次開發(fā)過程由于硬件的限制，未能實(shí)現(xiàn)網(wǎng)絡(luò)功能。盡管本管理

21、系統(tǒng)存在著很多不足，但其功能還是比較全面的、易于日后程序更新、數(shù) 據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是本管理系統(tǒng)所必需的。 相信本學(xué)生管理系統(tǒng)是一套學(xué)校在日常管理中必不可少的管理軟件，通過開發(fā)這個(gè)系統(tǒng)， 掌握了信息管理設(shè)計(jì)過程。加強(qiáng)了對Visual Basic 6.0 的學(xué)習(xí)，鞏固了基本知識(shí)，提高了自學(xué)能力。在這次畢業(yè)設(shè)計(jì)中的最大收獲并不僅是掌握了開發(fā)工具的應(yīng)用，而是學(xué)會(huì)了設(shè) 計(jì)系統(tǒng)的思維方法，以及與同學(xué)們之間相互幫助的精神?？傊谶@次設(shè)計(jì)中我知道了很 多，獲得了很多。有了這次的學(xué)生系統(tǒng)的課程設(shè)計(jì)，讓我在課堂上學(xué)到的書本理論知識(shí)得到了更好理 解。更進(jìn)一步鞏固了自己的知識(shí)，

22、沒有這次課程設(shè)計(jì)，自己一直以為自己學(xué)的還算很好一 半知識(shí)自己都會(huì)，但是在做課設(shè)的時(shí)候發(fā)現(xiàn)有很多東西運(yùn)用到實(shí)踐當(dāng)中還不我所達(dá)不到的 水平，這才發(fā)現(xiàn)自己會(huì)得東西只是一知半解。運(yùn)用到實(shí)際當(dāng)中自己的欠缺還是很大。幸好 很多熱心的室友和同學(xué)以及老師的幫助，自己通過查閱豐富的圖書資源，搜索豐富的網(wǎng)絡(luò) 資源，設(shè)計(jì)界面，設(shè)置各種控件的屬性，編寫相關(guān)的代碼。反復(fù)的調(diào)試程序才算把這個(gè)學(xué) 生信息管理的系統(tǒng)做完。雖然剛開始時(shí)候因?yàn)楹芏鄸|西不會(huì)煩躁，無從下手。但是程序最 后調(diào)試出來那一瞬間，真的很高興。課程設(shè)計(jì)完成了，首先非常感謝學(xué)校給我們這次機(jī)會(huì)，讓我們擴(kuò)大了知識(shí)量，彌補(bǔ) 了知識(shí)的欠缺，進(jìn)一步完善了自我。忠心的感謝老

23、師在設(shè)計(jì)過程中對我孜孜不倦的教導(dǎo)， 使我的設(shè)計(jì)順利完成。我還要感謝我的同學(xué)們，在這一階段給了我極大的幫助。參考文獻(xiàn)1 劉天慧等編著.Visual Basic 程序設(shè)計(jì)教程M.北京:清華大學(xué)出版社，20062156-1852 薩師煊，王珊.數(shù)據(jù)庫系統(tǒng)概論M,（第三版）.北京：高等教育出版社，2006.5:198-2333 梁偉等編.Visual Basic 管理信息系統(tǒng)工程開發(fā)實(shí)踐，北京：科學(xué)出版社，2003:127-2114 程斌等編.Visual Basic 6.數(shù)據(jù)庫開發(fā)指南，西安：電子科技大學(xué)出版社，2000:232-254武馬群.Visual Basic 程序設(shè)計(jì)M.北京：北京工業(yè)大學(xué)

24、出版社，2005.03: 67-906 陳元春.Visual Basic 數(shù)據(jù)庫編程M.北京：清華大學(xué)出版社，2007.07: 37-707 蔣加伏.Visual Basic 程序設(shè)計(jì)教程M.北京：北京郵電大學(xué)出版社，2003.11： 10-568 王國榮,VisualBasic6.0 與 Windows API 講座M.北京:人民郵電出版社.2007.4:100-1309 劉新民，蔡瓊,白康生編著.Visual Basic 6.0 程序設(shè)計(jì)M.北京:清華大學(xué)出版社.2004.3 202510 李春葆，曾平編著.數(shù)據(jù)庫原理與應(yīng)用M.北京：清華大學(xué)出版社.2006.1 41-7411 A Blo

25、g Mining Framework IT Professional J.卷次：11 刊期：1 January 2009 .附錄：源代碼學(xué)生信息管理系統(tǒng)主窗體代碼如下：Private Sub MDIForm_Load()Me Left = GetSett in g(App.Title, Setti ngs, Mai nLeft, 1000)Me.Top = GetSett in g(App.Title, Setti ngs, Ma in Top, 1000)Me.Width = GetSetti ng(App.Title, Setti ngs, Mai nWidth, 6500)Me.Heig

26、ht = GetSetti ng(App.Title, Setti ngs, Mai nHeight, 6500)End SubPrivate Sub MDIForm_U nl oad(Ca ncel As In teger)If Me.Wi ndowState vbMi ni mized The nSaveSetti ng App.Title, Setti ngs, Mai nLeft, Me LeftSaveSetti ng App.Title, Setti ngs, Mai nTop, Me.TopSaveSetting App.Title, Settings, MainWidth, M

27、e.WidthSaveSetti ng App.Title, Setti ngs, Mai nHeight, Me.HeightEnd IfEnd SubPrivate Sub modifyci nfoMe nu_Click()frmModifyclassi nfo.ShowEnd SubPrivate Sub modifycourseMe nu _Click()frmModifycoursei nfo.ShowEnd SubPrivate Sub modifypwdMe nu_Click()frmModifyuseri nfo.ShowEnd SubPrivate Sub modifyres

28、ultMe nu_Click()frmModifyresult.ShowEnd SubPrivate Sub modifysi nfo_Me nu_Click()frmModifysi nfo.ShowEnd Sub創(chuàng)建公共模塊。在工程資源管理器中為工程添加一個(gè)名稱為Module 的標(biāo)準(zhǔn)模塊文件Module.bas。代碼如下：Public fMai nForm As frmMa inPublic UserName As Stri ngSub Mai n()Dim fLog in As New frmLogi nfLogi n.Show vbModalIf Not fLog in .OK The

29、 nLog in Failed so exit appEndEnd IfUni oad fLog inSet fMai nForm = New frmMa infMai nForm.ShowEnd SubPublic Function Conn ectStri ng() _As Stri ngreturns a DB Conn ectStri ngConn ectStri ng = FileDSN=stude nti nfo.ds n End Fun cti onPublic Fun ction ExecuteSQL(ByVal SQL _As Stri ng, MsgStri ng As S

30、tri ng) _As ADODB.Recordsetexecutes SQL and retur ns RecordsetDim cnn As ADODB.Co nn ectio nDim rst As ADODB. RecordsetDim sToke ns() As Stri ngOn Error GoTo ExecuteSQL_Error sToke ns = Split(SQL)Set cn n = New ADODB.Co nn ectio n cnn. Ope n Conn ectStri ngIf In Str(INSERT,DELETE,UPDATE, _ UCase$(sT

31、oke ns(0) Then cnn .Execute SQLMsgStri ng = sToke ns(0) & _query successfulElseSet rst = New ADODB. Recordset rst.Ope n Trim$(SQL), cnn, _ adOpe nKeyset, _adLockOptimisticrst.MoveLast get RecordCo untSet ExecuteSQL = rstMsgString =查詢到& rst.RecordCount & _ 條記錄End IfExecuteSQL_Exit:Set rst = Noth ingS

32、et cnn = Noth ing Exit Fun cti onExecuteSQL_Error:MsgString =查詢錯(cuò)誤：& _Err.Descripti onResume ExecuteSQL_ExitEnd Fun cti onPublic Fu nction Testtxt(txt As Stri ng) As Boolean If Trim(txt) = ” The nTesttxt = FalseElseTesttxt = TrueEnd IfEnd Fun cti on系統(tǒng)用戶管理模塊的創(chuàng)建代碼如下：Option ExplicitPublic OK As Boolea n

33、記錄確定次數(shù)Dim miCo unt As In tegerPrivate Sub Form_Load()OK = FalsemiCo unt = 0End SubPrivate Sub cmdCa ncel_Click()OK = FalseMe.HideEnd SubPrivate Sub cmdOK_Click()Dim txtSQL As Stri ngDim mrc As ADODB.RecordsetDim MsgText As Stri ngToDo: create test for correct passwordcheck for correct passwordUserNa

34、me =If Trim(txtUserName.Text = ) The nMsgBox 沒有這個(gè)用戶，請重新輸入用戶名！, vbOKOnly + vbExclamation,警告txtUserName.SetFocusElsetxtSQL = select * from user_I nfo where user_ID = & txtUserName.Text & ”Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF = True The nMsgBox 沒有這個(gè)用戶，請重新輸入用戶名!, vbOKOnly + vbExclamation,警告tx

35、tUserName.SetFocusElseIf Trim(mrc.Fields(1) = Trim(txtPassword.Text) The nOK = Truemrc.CloseMe.HideUserName = Trim(txtUserName.Text)ElseMsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation,警告txtPassword.SetFocustxtPassword.Text =End IfEnd IfEnd IfmiCo unt = miCo unt + 1If miCou nt = 3 The nMe.HideEnd If

36、Exit SubEnd Sub成績管理模塊的創(chuàng)建代碼如下：Private Sub Comma nd1_Click()Dim mrc As ADODB.RecordsetDim MsgText As Stri ngDim txtSQL As Stri ngIf Not Testtxt(txtClassno.Text) ThenMsgBox 請輸入考試編號(hào)！ , vbOKOnly + vbExclamation,警告 txtClass no .SetFocusExit SubEnd IfIf Not Testtxt(comboGrade.Text) The nMsgBox 請選擇班號(hào)！ , vbO

37、KOnly + vbExclamation,警告comboGrade.SetFocusExit SubEnd IfIf Not Testtxt(txtDirector.Text) The nMsgBox 請輸入姓名！ , vbOKOnly + vbExclamation,警告txtDirector.SetFocusExit SubEnd Ifif Not Testtxt(txtClassroom.Text) The nMsgBox 請輸入教室房間號(hào)！ , vbOKOnly + vbExclamation,警告txtClassroom.SetFocusExit SubEnd IfIf Not I

38、sNumeric(Trim(txtClass no.Text) The nMsgBox 請輸入數(shù)字！ , vbOKOnly + vbExclamation,警告Exit SubtxtClass no .SetFocusEnd IftxtSQL = select * from class_I nfo Set mrc = ExecuteSQL(txtSQL, MsgText)mrc.MoveFirstWhile (mrc.EOF = False)If (Trim(mrc.Fields(O) = Trim(txtClass no .Text) The nMsgBox 班號(hào)已經(jīng)存在，請重新輸入班號(hào)！

39、, vbOKOnly + vbExclamation,警告Exit Sub txtClass no.Text = txtClass no .SetFocusElsemrc.MoveNextEnd IfWendmrc.AddNewmrc.Fields(O) = Trim(txtClass no .Text)mrc.Fields(1) = Trim(comboGrade.Text)mrc.Fields(2) = Trim(txtDirector.Text)mrc.Fields(3) = Trim(txtClassroom.Text)mrc.Updatemrc.CloseMsgBox 添加成績信息成

40、功！ , vbOKOnly + vbExclamation,添加成績信息End SubPrivate Sub Comma nd2_Click()Un load MeEnd Sub修改查詢成績模塊代碼如下：Private Sub Comma nd1_Click()If Text1.Text = The nMsgBox 請輸入內(nèi)容！Else輸入內(nèi)容不能為空Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields (2)

41、= text4.TextData1.Recordset.Fields (3) = Text5.TextData1.Recordset.Fields=Text6.TextData1.Recordset.Fields (5) = Text7.TextData1.Recordset.Fields (6) = Text8.TextText9.Text = Str(Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields=Text9.TextData1.Recordset.UpdateMsgBox 修改成功對數(shù)據(jù)庫進(jìn)行修改，并將修改后的數(shù)據(jù)存入數(shù)據(jù)庫End IfEnd SubPrivate Sub Comma nd10_Click()If Trim(Text1.Text) = The nMsgBox 學(xué)號(hào)不能為空，請重新輸入！, vbOKOnly + vbExclamation,警告Text1.SetFocusElse輸入學(xué)號(hào)不能為空Datal.RecordSource = select * from 成績表 where 學(xué)號(hào)=& Textl.Text & ”Datal. RefreshIf Data1.Recordset.EOF The n