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

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

2、具等開(kāi)發(fā)出來(lái)的基于WINDOWS系列的學(xué)生管理系統(tǒng)。該系統(tǒng)面向?qū)W校和學(xué)生，實(shí)現(xiàn)對(duì)學(xué)生成績(jī)管理、班級(jí)管理、獎(jiǎng)懲管理、學(xué)籍管理。系統(tǒng)支持學(xué)生工作管理部門和各系工作人員、全校學(xué)生使用，支持按權(quán)限管理的查詢和數(shù)十種統(tǒng)計(jì)報(bào)表的輸出打印功能。減少了部門之間工作的中間環(huán)節(jié)，提高了跨部門管理的效率。 文章介紹了學(xué)生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫(kù)設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說(shuō)明了幾個(gè)主要模塊的算法，本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。【關(guān)鍵字】：學(xué)生管理系統(tǒng)，學(xué)生管理，數(shù)據(jù)庫(kù)，信息系統(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è)計(jì)的背景51.3系統(tǒng)的功能簡(jiǎn)介61.3.1用戶管理模塊(CTRL+A):61.3.2班級(jí)管理模塊（CTRL+C）:61.3.3學(xué)生檔案管理模塊（CTRL+D）：71.3.4課程管理模塊（CTRL+E）：71.3.5成績(jī)管理模塊（CTRL+F）：71.3.6獎(jiǎng)懲管理模塊（CTRL+G）：71.3.7報(bào)表打印模塊（CTRL+J）：71.3.8幫助模塊

4、71.4系統(tǒng)開(kāi)發(fā)的目標(biāo)72. 系統(tǒng)分析. . . . . . . . . . . . . . . .82.1業(yè)務(wù)流程分析82.2數(shù)據(jù)流程分析：82.3數(shù)據(jù)存儲(chǔ)分析：實(shí)體聯(lián)系圖92.4功能分析：功能層次圖113.系統(tǒng)設(shè)計(jì). . . . . . . . . . . . . . . .123.1軟件模塊結(jié)構(gòu)設(shè)計(jì)12311系統(tǒng)方案確定12312軟件結(jié)構(gòu)設(shè)計(jì)123.2數(shù)據(jù)庫(kù)設(shè)計(jì)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)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，它集成了班級(jí)管理、學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績(jī)管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)、學(xué)生獎(jiǎng)懲管理，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。1.1系統(tǒng)及需求分析 1.1.1 系統(tǒng)需求 通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能: 界面友好，易于操作； 針對(duì)不同的使用對(duì)象,要求有較好的權(quán)限管理； 能按學(xué)期、按班級(jí)完成對(duì)學(xué)生成績(jī)的錄入、修改； 能

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

23、)就是指表中的所有數(shù)據(jù)元素不但要能夠唯一地被主關(guān)鍵字所標(biāo)識(shí)，而且它們之間還必須相互獨(dú)立，不存在其它的函數(shù)關(guān)系。也就是說(shuō)對(duì)于一個(gè)滿足了 2nd NF的數(shù)據(jù)結(jié)構(gòu)來(lái)說(shuō)，表中有可能存在某些數(shù)據(jù)元素依賴于其它非關(guān)鍵字?jǐn)?shù)據(jù)元素的現(xiàn)象，必須加以消除。此外，在這過(guò)程中要注意好表的主鍵、外鍵、用戶自定義約束的條件，在模式分解過(guò)程中要盡量的保持函數(shù)依賴和無(wú)損聯(lián)接。遵循上述說(shuō)明，就可以設(shè)計(jì)出一個(gè)良好的關(guān)系數(shù)據(jù)庫(kù)模式?？紤]到我們暫時(shí)制作的是一個(gè)簡(jiǎn)單的桌面數(shù)據(jù)庫(kù)系統(tǒng)，不需要網(wǎng)絡(luò)的支持，因此我們采用的是access的數(shù)據(jù)庫(kù)，他功能強(qiáng)大，簡(jiǎn)單易用。我們整個(gè)程序只需一個(gè)數(shù)據(jù)庫(kù)（db.dbf），庫(kù)中有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)登陸界面：本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USER表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用111;111為用戶名和密碼來(lái)登陸本系統(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 "沒(méi)有這個(gè)用戶，請(qǐng)重新輸入用戶名!", 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 "輸入密碼不正確，請(qǐng)重新輸入！", 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é)校不同部門以及不同使用人員對(duì)本系統(tǒng)的要求和需要，從而實(shí)行了分級(jí)管理，對(duì)用戶的權(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 "請(qǐng)你選擇用戶名稱!", 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 "用戶密碼輸入錯(cuò)誤!", 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 "請(qǐng)你選擇用戶名稱!", 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 "用戶密碼輸入錯(cuò)誤!", 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é)藉管理模塊：因?yàn)楸鞠到y(tǒng)中有些功能模塊具有相似之處，因此在本文只用此模塊進(jìn)行一個(gè)簡(jiǎn)單的說(shuō)明。其它的相似模塊的代碼可以參閱本模塊的設(shè)計(jì)思路。Private Sub Text1_Change(Index As Integer) If Index = 0 Then txtSQL = &qu