管理信息系統(tǒng)課程設(shè)計

1、 管理信息系統(tǒng)課程設(shè)計設(shè)計報告設(shè)計名稱： 學(xué)生管理系統(tǒng) 班 級： 信 管 031 學(xué) 號： 2003075006 姓 名： 施 日 華 指導(dǎo)老師： 陳 朝 暉 日 期：2006年1月4日 至 2006年 1月12日摘 要隨著計算機(jī)技術(shù)的飛速發(fā)展，計算機(jī)在學(xué)生管理中應(yīng)用的普及，利用計算機(jī)實現(xiàn)管理勢在必行。我作為一個信息管理專業(yè)的大學(xué)生，希望能有所貢獻(xiàn)。用我三年的所學(xué)編制了一個實用的程序來幫助教師們進(jìn)行更有效的學(xué)生信息管理。本系統(tǒng)采用面向?qū)ο蟮某绦蛟O(shè)計思想進(jìn)行編制，整個系統(tǒng)數(shù)據(jù)存在表格文件中，由數(shù)據(jù)庫文件進(jìn)行管理。并且運(yùn)用信息系統(tǒng)分析與設(shè)計方法，應(yīng)用Access數(shù)據(jù)庫，Visual Basic發(fā)工

2、具等開發(fā)出來的基于WINDOWS系列的學(xué)生管理系統(tǒng)。該系統(tǒng)面向?qū)W校和學(xué)生，實現(xiàn)對學(xué)生成績管理、班級管理、獎懲管理、學(xué)籍管理。系統(tǒng)支持學(xué)生工作管理部門和各系工作人員、全校學(xué)生使用，支持按權(quán)限管理的查詢和數(shù)十種統(tǒng)計報表的輸出打印功能。減少了部門之間工作的中間環(huán)節(jié)，提高了跨部門管理的效率。 文章介紹了學(xué)生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計部分主要介紹了系統(tǒng)功能設(shè)計和數(shù)據(jù)庫設(shè)計及代碼設(shè)計；系統(tǒng)實現(xiàn)部分說明了幾個主要模塊的算法，本系統(tǒng)界面友好，操作簡單，比較實用?！娟P(guān)鍵字】：學(xué)生管理系統(tǒng)，學(xué)生管理，數(shù)據(jù)庫，信息系統(tǒng)分析，Visual Basic應(yīng)用。30 / 30文檔可

3、自由編輯打印目錄摘 要. . . . . . . . . . . . . . . . .II1.系統(tǒng)概述. . . . . . . . . . . . . . . . .41.1系統(tǒng)及需求分析41.1.1 系統(tǒng)需求41.1.2 可行性分析41.2系統(tǒng)設(shè)計的背景51.3系統(tǒng)的功能簡介61.3.1用戶管理模塊(CTRL+A):61.3.2班級管理模塊（CTRL+C）:61.3.3學(xué)生檔案管理模塊（CTRL+D）：71.3.4課程管理模塊（CTRL+E）：71.3.5成績管理模塊（CTRL+F）：71.3.6獎懲管理模塊（CTRL+G）：71.3.7報表打印模塊（CTRL+J）：71.3.8幫助模塊

4、71.4系統(tǒng)開發(fā)的目標(biāo)72. 系統(tǒng)分析. . . . . . . . . . . . . . . .82.1業(yè)務(wù)流程分析82.2數(shù)據(jù)流程分析：82.3數(shù)據(jù)存儲分析：實體聯(lián)系圖92.4功能分析：功能層次圖113.系統(tǒng)設(shè)計. . . . . . . . . . . . . . . .123.1軟件模塊結(jié)構(gòu)設(shè)計12311系統(tǒng)方案確定12312軟件結(jié)構(gòu)設(shè)計123.2數(shù)據(jù)庫設(shè)計144.系統(tǒng)的功能. . . . . . . . . . . . . . .1641系統(tǒng)登陸界面：1642用戶管理模塊：1843學(xué)藉管理模塊：245. 運(yùn)行及調(diào)試. . . . . . . . . . . . . . .276.全

5、文總結(jié). . . . . . . . . . . . . . . .28致 謝. . . . . . . . . . . . . . . . .28參考文獻(xiàn). . . . . . . . . . . . . . . .291.系統(tǒng)概述本學(xué)生信息管理系統(tǒng)可以說是一個綜合性的學(xué)校學(xué)生管理系統(tǒng)，它集成了班級管理、學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)、學(xué)生獎懲管理，因而具有較強(qiáng)的實用性和先進(jìn)性。1.1系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過調(diào)查,要求系統(tǒng)需要有以下功能: 界面友好，易于操作； 針對不同的使用對象,要求有較好的權(quán)限管理； 能按學(xué)期、按班級完成對學(xué)生成績的錄入、修改； 能

6、查詢學(xué)生成績，及學(xué)生名單； 能對各班級信息進(jìn)行錄入修改； 能按班級輸出學(xué)生的成績；1.1.2 可行性分析經(jīng)濟(jì)上可行性：現(xiàn)在，計算機(jī)的價格已經(jīng)十分低廉，性能卻有了長足的進(jìn)步。而本系統(tǒng)的開發(fā)，為學(xué)校的工作效率帶來了一個質(zhì)的飛躍，為此主要表現(xiàn)有以下幾個方面：第一，本系統(tǒng)的運(yùn)行可以代替人工進(jìn)行許多繁雜的勞動；第二，本系統(tǒng)的運(yùn)行可以節(jié)省許多資源；第三，本系統(tǒng)的運(yùn)行可以大大的提高學(xué)校的工作效率；第四，本系統(tǒng)可以使敏感文檔更加安全，等等。所以，本系統(tǒng)在經(jīng)濟(jì)上是可行的。技術(shù)上可行性：為本系統(tǒng)的開發(fā)我特對我校管理系進(jìn)行了深入的調(diào)查研究。現(xiàn)我校管理系有33個班，其中05級有7個班，04級10個班，03級有10個班

7、,02級6個班，共有學(xué)生人數(shù)為1500多人。并且對用戶的要求也都能夠滿足。 本系統(tǒng)的開發(fā)我利用Access作為本系統(tǒng)的數(shù)據(jù)庫，它是一個支持多用戶的新型數(shù)據(jù)庫，適用于中小規(guī)模的數(shù)據(jù)量需求。學(xué)校的硬件建設(shè)也為新系統(tǒng)提供了硬件的支持。使用Visual Basic6.0作為系統(tǒng)開發(fā)的開發(fā)環(huán)境，它作為一種現(xiàn)代的編程語言，提供完善的指令控制語句、類與對象的支持及豐富的數(shù)據(jù)類型，給開發(fā)高性能系統(tǒng)提供的保障為開發(fā)滿足客戶要求的系統(tǒng)，保證了代碼的模塊化要求，而代碼模塊化的提高，非常有利于以后對新系統(tǒng)的擴(kuò)展與修改。綜上所述，本系統(tǒng)的設(shè)計與開發(fā)在技術(shù)上和硬件設(shè)備上的條件都是滿足的，因此，它在技術(shù)上是可行的。運(yùn)行上可

8、行性：本系統(tǒng)為一個小型的學(xué)生管理系統(tǒng)，所耗費的資源非常的小，學(xué)校的電腦無論是硬件還是軟件都能夠滿足條件，因此，本系統(tǒng)在運(yùn)行上是可行的。法律可行性：本系統(tǒng)純?yōu)樗饺嗽O(shè)計，在開發(fā)過程中沒有涉及合同、責(zé)任等與法律相抵觸的方面。因此，本系統(tǒng)在法律上是可行的。由于本系統(tǒng)管理的對象單一,都是在校學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。且學(xué)校用于學(xué)生管理的微機(jī)都是PIII以上的機(jī)器，在存儲量、速度方面都能滿足數(shù)據(jù)庫運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。1.2系統(tǒng)設(shè)計的背

9、景本系統(tǒng)的設(shè)計是在Windows 98中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 6.0中文版開發(fā)成功的。數(shù)據(jù)庫是MIS中的重要支持技術(shù)，在MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此，在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下：Visual Basic語言Visual Basic是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā)Windows環(huán)境下的多種應(yīng)用程序。它簡單易學(xué)、效率高，且功能強(qiáng)大，可以與Windows的專業(yè)開發(fā)工具SDK相媲美，而且程序開

10、發(fā)人員不必具有C/C+編程基礎(chǔ)。在Visual Basic環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用Windows內(nèi)部的應(yīng)用程序接口(API)函數(shù)，以及動態(tài)鏈接庫(DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入(OLE)、開放式數(shù)據(jù)訪問(ODBC)等技術(shù)，可以高效、快速地開發(fā)出Windows環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。電腦已經(jīng)成為掛在我們嘴角的一句口頭禪，它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息管理、輔助設(shè)計、圖形圖像處理、教育培訓(xùn)以及游戲娛樂等。Windows系統(tǒng)的推出使電腦從高雅的學(xué)術(shù)殿堂走入了尋常百姓家，各行各業(yè)的人們無須經(jīng)過特別的

11、訓(xùn)練就能夠使用電腦完成許許多多復(fù)雜的工作。然而，雖然現(xiàn)在世界上已經(jīng)充滿了多如牛毛的各種軟件，但它們依然不能滿足用戶的各種特殊需要，人們還不得不開發(fā)適合自己特殊需求的軟件。我們都知道，學(xué)生管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生管理系統(tǒng)應(yīng)該能夠為用戶提供充足的信息和快捷的查詢手段。但一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點,如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。而使用計算機(jī)對學(xué)生信息進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點.例如:檢索迅速、查找方便、可

12、靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高學(xué)生管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理的重要途徑。因此開發(fā)這樣一套管理軟件很有必要,在下面的各章中我將就這一套學(xué)生檔案管理系統(tǒng)的開發(fā),談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。1.3系統(tǒng)的功能簡介本系統(tǒng)主要可以實現(xiàn)以下的管理功能：學(xué)生檔案管理、課程管理、成績管理、獎懲管理等。學(xué)生管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序,由學(xué)生檔案管理、課程管理、成績管理、獎懲管理等模塊組成,特規(guī)劃如下:1.3.1用戶管理模塊(CTRL+A):該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置,包括添加用戶、修改密碼、刪除用戶等等。1.3.2班級

13、管理模塊（CTRL+C）:該模塊的功能是實現(xiàn)對全系班級的管理工作，包括：班級信息添加、班級信息修改、班級信息刪除，這三個功能模塊各自獨立，完成班級信息的管理。1.3.3學(xué)生檔案管理模塊（CTRL+D）：該模塊的主要功能是實現(xiàn)對學(xué)生的個人信息的管理工作，包括檔案添加、檔案修改、檔案查詢、刪除等功能，從而方便學(xué)校管理部門對學(xué)校的基本情況的快速查詢和了解。1.3.4課程管理模塊（CTRL+E）：該模塊對各個班級的課程進(jìn)行設(shè)置，方便了學(xué)校教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程添加和班級課程設(shè)置兩個模塊。1.3.5成績管理模塊（CTRL+F）：學(xué)校的成績管理工作是檢驗學(xué)生學(xué)習(xí)情況的一個主要手段，

14、本模塊包括成績添加、成績修改、成績查詢、刪除等功能模塊。1.3.6獎懲管理模塊（CTRL+G）：獎懲管理工作是檢驗學(xué)生在校綜合表現(xiàn)的一個方式，本模塊包括獎項添加、學(xué)生獲獎設(shè)置等到功能模塊。1.3.7報表打印模塊（CTRL+J）：該模塊是方便管理人員打印相關(guān)信息，包括打印班級信息、學(xué)生學(xué)藉信息、學(xué)生成績、學(xué)生獲獎情況等模塊。1.3.8幫助模塊 該模塊為首次操作該系統(tǒng)的人員提供了方便，它提供了有關(guān)操作的信息以及系統(tǒng)的版權(quán)。1.4系統(tǒng)開發(fā)的目標(biāo)出于本系統(tǒng)是學(xué)校學(xué)生管理的一個綜合性的系統(tǒng)，系統(tǒng)開發(fā)的總體任務(wù)是實現(xiàn)學(xué)生管理系統(tǒng)化、規(guī)范化，系統(tǒng)設(shè)計目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。以

15、提高工作效率為目的。2. 系統(tǒng)分析2.1業(yè)務(wù)流程分析班級管理業(yè)務(wù)流程圖：學(xué)生班級班級輸出教務(wù)處輸入計算機(jī)班主任圖21檔案管理業(yè)務(wù)流程圖：輸出檔案學(xué)生檔案教務(wù)處輸入計算機(jī)班主任圖22課程管理業(yè)務(wù)流程圖：輸出教務(wù)處輸入計算機(jī)教師學(xué)生課程課程圖23成績管理業(yè)務(wù)流程圖：輸出教務(wù)處輸入計算機(jī)教師學(xué)生成績教師圖242.2數(shù)據(jù)流程分析：數(shù)據(jù)流程圖：由于本系統(tǒng)的數(shù)據(jù)模塊較多，下面僅以學(xué)生成績管理模塊為例來進(jìn)行編制。學(xué)生成績管理系統(tǒng)0層數(shù)據(jù)流程圖：查詢統(tǒng)計分析學(xué)生成績管理系統(tǒng)學(xué)生情況學(xué)籍管理部門學(xué)生成績教師教務(wù)處學(xué)生教師圖25學(xué)生成績管理系統(tǒng)1層數(shù)據(jù)流程圖：成績1.0學(xué)生管理2.0課程管理3.0成績管理4.0統(tǒng)

16、計分析學(xué)生D1課程D2D3管理部門教務(wù)教師查詢管理圖262.3數(shù)據(jù)存儲分析：實體聯(lián)系圖1、數(shù)據(jù)模型設(shè)計。首先來做出學(xué)生成績管理系統(tǒng)的E-R圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學(xué)生的成績是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個系統(tǒng)的三個實體。2、再分析三個實體之間的聯(lián)系。首先，這三個實體不是一個統(tǒng)一體，學(xué)生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實體才能與學(xué)生建立聯(lián)系，因而先不考慮。課程與學(xué)生這兩個實體是多對多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程，一門課程有多位學(xué)生共同學(xué)習(xí)。而學(xué)習(xí)成績是這兩個實體“學(xué)生”和“成績”共有的屬性，應(yīng)填在二者的聯(lián)系“學(xué)習(xí)”邊。因為成績既不是學(xué)生獨有的，也

17、不是課程獨有的而是學(xué)生和課程二者共有的。這個E-R圖可畫成下圖。學(xué)生管理系統(tǒng)中學(xué)生與課程的E-R圖：mn學(xué)生課程成績學(xué)習(xí)圖27學(xué)生與班級的E-R圖:mn學(xué)生班級學(xué)生人員組成圖28 教師與課程的E-R圖：n教師課程教學(xué)l圖29 實體之間關(guān)系E-R圖:nl班級組成組成人員nlmn課程成績選修教學(xué)教師學(xué)生圖210教師與課程的E-R圖組合到一起，得到最后的E-R圖，有了E-R圖，就可以設(shè)計數(shù)據(jù)庫。下圖為數(shù)據(jù)模型圖。實體模型數(shù)據(jù)模型lmn學(xué)習(xí)學(xué)生課程教師學(xué)習(xí)學(xué)習(xí)m課程教師學(xué)生數(shù)據(jù)庫圖2112.4功能分析：功能層次圖學(xué)生管理登錄打印報表課程管理班級程設(shè)基本課程添加成績管理學(xué)生費瀏覽學(xué)生繳費添加基本學(xué)費設(shè)置

18、學(xué)生費查詢信息查詢學(xué)藉管理檔案查詢檔案添加檔案瀏覽檔案刪除獎懲管理獎懲設(shè)置獎項添加用戶管理添加用戶退出班級管理添加班級班級瀏覽班級修改助圖212圖213.系統(tǒng)設(shè)計3.1軟件模塊結(jié)構(gòu)設(shè)計311系統(tǒng)方案確定通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級管理、學(xué)生成績管理、學(xué)生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。312軟件結(jié)構(gòu)設(shè)計系統(tǒng)總體設(shè)計:cc班級課程(各班相關(guān)課程)；cf班級信息(各班的資料)；cuf課程信息(各門課程資料)；pf獎懲信息(獎懲信息)；ps獎懲情況(獲獎人員情況)；sf成績(學(xué)生成績)；stf學(xué)生信息(學(xué)生的資料)；uf用戶信息(用戶名和密碼)1. ufufps

19、pssfsfcufcufstfstfufufufufcfcfSfpsSfps學(xué)生信息管理判斷用戶身份分配處 理用戶管理班級管理學(xué)藉管理課程管理成績管理獎懲管理打印報表輸入數(shù)據(jù)識別身份幫助輸入數(shù)據(jù)更新用戶輸入數(shù)據(jù)更新信息輸入數(shù)據(jù)輸入數(shù)據(jù)輸入數(shù)據(jù)輸入數(shù)據(jù)輸入數(shù)據(jù)更新信息更新課程更新成績更新信息打印幫助信息圖31 sf sf cf stf stf cuf cuf sf sf ps ps ps ps 代碼設(shè)計：學(xué)號： xx xx xxx 班級編號： xx xx 年級 專業(yè) 編號 年級 編號輸出設(shè)計：a.確定輸出內(nèi)容：輸出的內(nèi)容主要是系統(tǒng)給出對用戶進(jìn)行的分析結(jié)果，其中包括用戶的基本信息，選課情況，成績單

20、，成績趨勢表等。 b.確定輸出設(shè)備及介質(zhì)：我們擬定采用打印機(jī)為主要輸出設(shè)備，打印出來的內(nèi)容可以供以后用戶隨時隨地查閱分析。c.確定輸出格式：采用類似報表的形式輸出，分表頭，表體和表尾。報表的輸出，可以根據(jù)用戶的需求采用不同形式。對于單個用戶一次性使用的表格，因為沒有保留價值，可以在顯示終端上輸出。對于個用戶需要多次使用的表格，可打印輸出。需要長期保留的輸出的報表，可采用磁盤文件形式輸出，以便保存。輸入設(shè)計：輸入設(shè)計的目的是保證向系統(tǒng)輸入正確的數(shù)據(jù)。在此前提下，應(yīng)做到輸入方法簡單，迅速，經(jīng)濟(jì)，方便。所以，因該遵循最小量原則，也就是保證滿足處理要求的前提下，使輸入量最小，這樣出錯幾率小；簡單性原則

21、，輸入的準(zhǔn)備，輸入的過程應(yīng)盡量容易，以減少錯誤發(fā)生。早檢驗原則，對數(shù)據(jù)的檢驗盡量接近原數(shù)據(jù)發(fā)生點，使錯誤能及時得到改正；少轉(zhuǎn)換原則，輸入數(shù)據(jù)盡量用其處理所需形式記錄，以避免數(shù)據(jù)轉(zhuǎn)換介質(zhì)時發(fā)生錯誤。3.2數(shù)據(jù)庫設(shè)計在關(guān)系數(shù)據(jù)庫中的關(guān)系必須滿足一定的要求。滿足不同程度要求的為不同范式。目前主要有六種范式：第一范式、第二范式、第三范式、BC范式、第四范式和第五范式。在這六種范式中，一般只用前三種,對于常用系統(tǒng)就足夠了。而且這五種范式是“向上兼容”的,即滿足第五范式的數(shù)據(jù)結(jié)構(gòu)自動滿足一、二、三、四范式，滿足第四范式的數(shù)據(jù)結(jié)構(gòu)自動滿足第一、二、三范式，依此類推。簡單的介紹前三種范式。第一范式(first

22、 normal form，簡稱1st NF)就是指在同一表中沒有重復(fù)項出現(xiàn)，如果有則應(yīng)將重復(fù)項去掉。這個去掉重復(fù)項的過程就稱之為規(guī)范化處理。在本文所討論的開發(fā)方法里，1st NF實際上是沒有什么意義的。因為我們按規(guī)范化建立的指標(biāo)體系和表的過程都自動保證了所有表都滿足1st NF。 第二范式(second normal form，簡稱 2nd NF)是指每個表必須有一個(而且僅一個)數(shù)據(jù)元素為主關(guān)鍵字(primary key)，其它數(shù)據(jù)元素與主關(guān)鍵字一一對應(yīng)。即表中其它數(shù)據(jù)元素都依賴于主關(guān)鍵字，或稱該數(shù)據(jù)元素唯一地被主關(guān)鍵字所標(biāo)識。第三范式(third normal form，簡稱 3rd NF

23、)就是指表中的所有數(shù)據(jù)元素不但要能夠唯一地被主關(guān)鍵字所標(biāo)識，而且它們之間還必須相互獨立，不存在其它的函數(shù)關(guān)系。也就是說對于一個滿足了 2nd NF的數(shù)據(jù)結(jié)構(gòu)來說，表中有可能存在某些數(shù)據(jù)元素依賴于其它非關(guān)鍵字?jǐn)?shù)據(jù)元素的現(xiàn)象，必須加以消除。此外，在這過程中要注意好表的主鍵、外鍵、用戶自定義約束的條件，在模式分解過程中要盡量的保持函數(shù)依賴和無損聯(lián)接。遵循上述說明，就可以設(shè)計出一個良好的關(guān)系數(shù)據(jù)庫模式?？紤]到我們暫時制作的是一個簡單的桌面數(shù)據(jù)庫系統(tǒng)，不需要網(wǎng)絡(luò)的支持，因此我們采用的是access的數(shù)據(jù)庫，他功能強(qiáng)大，簡單易用。我們整個程序只需一個數(shù)據(jù)庫（db.dbf），庫中有8張物理表。Student

24、表字段名類型寬度 限制student_NO文本20不能為空student_Name文本10不能為空student_Sex文本2不能為空student_Bir短日期不能為空student_Cla文本20不能為空student_Tel文本13不能為空student_Esd短日期不能為空student_Add文本60不能為空student_Rem備注不能為空class_Cour表字段名類型寬度限制class_NO文本20不能為空course_Name文本20不能為空Class表字段名類型寬度限制class_NO文本20不能為空class_Name文本10不能為空class_Teacher文本10不能

25、為空class_Remarks文本不能為空Course表字段名類型寬度限制course_Name文本20不能為空course_Rem備注60不能為空Prize表字段名類型寬度限制prize_Name文本20不能為空prize_Rem備注60不能為空Score表字段名類型寬度限制score_NO文本14不能為空score_Per文本20不能為空score_Cla文本20不能為空score_Stu文本20不能為空score_Cou文本20不能為空score_Sco文本20不能為空prize_Stud表字段名類型寬度限制prize_NO文本14不能為空prize_Stu文本20不能為空prize_D

26、at短日期10不能為空prize_Nam文本20不能為空User表字段名類型寬度限制user_ID文本20不能為空user_PWD文本20不能為空user_DATE短日期不能為空4.系統(tǒng)的功能本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。41系統(tǒng)登陸界面：本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USER表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用111;111為用戶名和密碼來登陸本系統(tǒng)。Option ExplicitPrivate Declare Function GetUserName Lib "advapi32.dll" A

27、lias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanDim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringDim miCount As IntegerPrivate Sub Form_Load() Dim i As Integer i = 0 txtSQL = "select * from user_Form" Set mrc = ExecuteSQL

28、(txtSQL, MsgText) With txtUserName Do While Not mrc.EOF i = i + 1 .AddItem Trim(mrc!user_ID) mrc.MoveNext Loop .ListIndex = i - 1 End With mrc.Close OK = False miCount = 0End SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() txtSQL = "select * from user_Form wh

29、ere user_ID = '" & txtUserName.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = True Then MsgBox "沒有這個用戶，請重新輸入用戶名!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus Else If Trim(mrc.Fields(1) = Trim(txtPassword.Text) Then OK = True

30、mrc.Close Me.Hide UserName = Trim(txtUserName.Text) Else MsgBox "輸入密碼不正確，請重新輸入！", vbOKOnly + vbExclamation, "警告" txtPassword.SetFocus txtPassword.Text = "" End If End If miCount = miCount + 1 If miCount = 3 Then Me.Hide End If Exit SubEnd SubPrivate Sub txtPassword_KeyD

31、own(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub txtPassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Call cmdOK_Click End IfEnd SubPrivate Sub txtUserName_Click() txtPassword.Text = ""End SubPrivate Sub txtUserName_KeyDown(KeyCode As Integer, Shift

32、 As Integer) EnterToTab KeyCodeEnd Sub42用戶管理模塊：本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學(xué)校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權(quán)限和類別進(jìn)行了分類管理。Private Sub Command1_Click() Dim txtSQL As String If Text1(0) = "" Then MsgBox "用戶名稱不能為空!", vbOKOnly, "提示" Text1(0).SetFocus Exit Sub End If If Text1(1)

33、= "" Then MsgBox "用戶密碼不能為空!", vbOKOnly, "提示" Text1(1).SetFocus Exit Sub Else If Text1(1) <> Text1(2) Then MsgBox "兩次密碼輸入不同!", vbOKOnly, "提示" Text1(1) = "" Text1(2) = "" Text1(1).SetFocus Exit Sub End If End If txtSQL = "

34、;select * from user_Form where user_ID='" & Trim(Text1(0) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox "此用戶名已經(jīng)存在!", vbOKOnly, "警告" Text1(0).SetFocus Exit Sub End If mrc.Close txtSQL = "select * from user_Form"

35、 Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(0) mrc.Fields(1) = Trim(Text1(1) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 0 To 2 Text1(i) = "" Next MsgBox "用戶信息添加成功!", vbOKOnly, "提示" ListappEnd SubPrivate Sub Command2_Click() Text1(0

36、) = "" Text1(1) = "" Text1(2) = ""End SubPrivate Sub Command3_Click() Dim txtSQL As String If Text1(3) = "" Then MsgBox "請你選擇用戶名稱!", vbOKOnly, "提示" List1.SetFocus Exit Sub End If If Text1(4) = "" Then MsgBox "修改密碼要舊密碼!",

37、 vbOKOnly, "警告" Text1(4).SetFocus Exit Sub End If If Text1(5) = "" Then MsgBox "新的密碼不能為空!", vbOKOnly, "提示" Text1(5).SetFocus Exit Sub Else If Text1(5) <> Text1(6) Then MsgBox "兩次密碼輸入不同!", vbOKOnly, "提示" Text1(5) = "" Text1(6

38、) = "" Text1(5).SetFocus Exit Sub End If End If txtSQL = "select * from user_Form where user_ID='" & Trim(Text1(3) & "'and user_PWD='" & Trim(Text1(4) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL =

39、"delete from user_Form where user_ID='" & Trim(Text1(3) & "'" Else MsgBox "用戶密碼輸入錯誤!", vbOKOnly, "警告" Text1(4).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) txtSQL = "select * from user_Form" Set mrc = ExecuteSQL(txtS

40、QL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(Text1(3) mrc.Fields(1) = Trim(Text1(5) mrc.Fields(2) = Now mrc.Update mrc.Close For i = 3 To 6 Text1(i) = "" Next MsgBox "用戶信息修改成功!", vbOKOnly, "提示"End SubPrivate Sub Command4_Click() Text1(3) = "" Text1(4) = "

41、" Text1(5) = "" Text1(6) = ""End SubPrivate Sub Command5_Click() Dim txtSQL As String If Text1(7) = "" Then MsgBox "請你選擇用戶名稱!", vbOKOnly, "提示" List1.SetFocus Exit Sub Else If Text1(7) = UserName Then MsgBox "不可以刪除正在使用的用戶!", vbOKOnly, &

42、quot;警告" Text1(7) = "" Text1(8) = "" List1.SetFocus Exit Sub End If End If If Text1(8) = "" Then MsgBox "刪除用戶需要密碼!", vbOKOnly, "警告" Text1(8).SetFocus Exit Sub End If txtSQL = "select * from user_Form where user_ID='" & Trim(Tex

43、t1(7) & "'and user_PWD='" & Trim(Text1(8) & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then txtSQL = "delete from user_Form where user_ID='" & Trim(Text1(7) & "'" Else MsgBox "用戶密碼輸入錯誤!", vbOK

44、Only, "警告" Text1(8).SetFocus Exit Sub End If Set mrc = ExecuteSQL(txtSQL, MsgText) Text1(7) = "" Text1(8) = "" MsgBox "用戶信息已經(jīng)刪除!", vbOKOnly, "提示" ListappEnd SubPrivate Sub Command6_Click() Text1(7) = "" Text1(8) = ""End SubPrivate

45、 Sub Form_Load() Me.Caption = "用戶信息->添 加" Picture1(1).Top = Picture1(0).Top Picture1(1).Left = Picture1(0).Left Picture1(2).Top = Picture1(0).Top Picture1(2).Left = Picture1(0).Left Listapp For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(0).Back

46、Color = &HFFFFFF Picture1(0).Visible = TrueEnd SubPrivate Sub Label2_Click(Index As Integer) Me.Caption = "用戶信息" Me.Caption = Me.Caption & "->" & Trim(Label2(Index).Caption) For i = 0 To 2 Label2(i).BackColor = &HE0E0E0 Picture1(i).Visible = False Next Label2(I

47、ndex).BackColor = &HFFFFFF Picture1(Index).Visible = True For i = 0 To 8 Text1(i) = "" NextEnd SubPrivate Sub Listapp() Dim txSQL As String Dim mrcc As ADODB.Recordset txSQL = "select * from user_Form" Set mrcc = ExecuteSQL(txSQL, MsgText) List1.Clear Do While Not mrcc.EOF Li

48、st1.AddItem Trim(mrcc!user_ID) mrcc.MoveNext Loop mrcc.CloseEnd SubPrivate Sub List1_Click() If Picture1(1).Visible = True Then Text1(3) = List1.Text End If If Picture1(2).Visible = True Then Text1(7) = List1.Text End IfEnd SubPrivate Sub List1_KeyDown(KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd SubPrivate Sub Text1_GotFocus(Index As Integer) Text1(Index).SelStart = 0 Text1(Index).SelLength = Len(Text1(Index)End Sub43學(xué)藉管理模塊：因為本系統(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個簡單的說明。其它的相似模塊的代碼可以參閱本模塊的設(shè)計思路。Private Sub Text1_Change(Index As Integer) If Index = 0 Then txtSQL = &qu