vb制作學(xué)籍管理系統(tǒng)

1、吉林化工學(xué)院課程設(shè)計(jì)說(shuō)明書基于VB的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn)學(xué)生學(xué)號(hào)： 學(xué)生姓名： 吳丹 專業(yè)班級(jí)： 數(shù)學(xué)0902 指導(dǎo)教師： 周志成 起止日期： 2012.03.052012.03.11 吉林化工學(xué)院Jilin Institute of Chemical Technology課程設(shè)計(jì)任務(wù)書一、設(shè)計(jì)題目：基于VB的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn)二、設(shè)計(jì)目的1加深學(xué)生對(duì)所學(xué)相關(guān)理論知識(shí)的進(jìn)一步理解；2初步掌握小型軟件系統(tǒng)開(kāi)發(fā)的過(guò)程和基本方法； 3培養(yǎng)學(xué)生實(shí)踐動(dòng)手能力及獨(dú)立分析和解決問(wèn)題的能力；4培養(yǎng)學(xué)生的團(tuán)隊(duì)協(xié)作精神、創(chuàng)新意識(shí)、嚴(yán)謹(jǐn)求實(shí)的工作作風(fēng)。三、設(shè)計(jì)任務(wù)及要求 1根據(jù)選題查找資料，進(jìn)行需求分析；

2、2編寫程序，實(shí)現(xiàn)系統(tǒng)的各功能模塊；3調(diào)試測(cè)試程序。四、設(shè)計(jì)時(shí)間及進(jìn)度安排設(shè)計(jì)時(shí)間共1周（2011.11.212011.11.27）,具體安排如下表：時(shí)間安排設(shè) 計(jì) 內(nèi) 容設(shè)計(jì)時(shí)間第1天資料查找、需求分析；2012.03.05第2、3、4天程序編制、程序調(diào)試；2012.03.062012.03.08第5、6、7天撰寫論文、準(zhǔn)備答辯。2012.03.092012.03.11五、指導(dǎo)教師評(píng)語(yǔ)及學(xué)生成績(jī)指導(dǎo)教師評(píng)語(yǔ):年 月 日成績(jī)指導(dǎo)教師(簽字):目 錄課程設(shè)計(jì)任務(wù)書I第1章 緒論11.1系統(tǒng)設(shè)計(jì)背景11.2 系統(tǒng)的功能簡(jiǎn)介1第2章 系統(tǒng)開(kāi)發(fā)方案22.1 開(kāi)發(fā)環(huán)境介紹22.2.1 系統(tǒng)開(kāi)發(fā)環(huán)境22.2

3、.2 系統(tǒng)開(kāi)發(fā)工具介紹2第3章 系統(tǒng)結(jié)構(gòu)分析43.1 系統(tǒng)結(jié)構(gòu)分析43.2 系統(tǒng)需求分析43.2.1 系統(tǒng)概述43.2.2系統(tǒng)運(yùn)行環(huán)境43.2.3 系統(tǒng)功能模塊43.3 系統(tǒng)可行性分析5第4章 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)74.1數(shù)據(jù)庫(kù)需求分析74.2 數(shù)據(jù)表的物理結(jié)構(gòu)7第5章 系統(tǒng)的實(shí)現(xiàn)及其程序95.1 登錄模塊95.2 管理人員模塊95.2.1管理人員主界面95.3普通用戶模塊195.3.1一般用戶主界面195.3.2修改密碼195.3.3學(xué)生信息查詢22第6章 系統(tǒng)測(cè)試24結(jié) 論27參考文獻(xiàn)28第1章 緒論1.1系統(tǒng)設(shè)計(jì)背景隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息也成倍增加。面對(duì)龐大

4、的信息量，就需要有學(xué)生信息管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣 的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和 管理者來(lái)說(shuō)都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖?的查詢手段 。在國(guó)內(nèi)外發(fā)展概況及存在問(wèn)題一直以來(lái)人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn), 如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)

5、點(diǎn)。例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理與世界接軌的重要條件。因此，開(kāi)發(fā)這樣一套管理軟件是很有必要的事情。 1.2 系統(tǒng)的功能簡(jiǎn)介本系統(tǒng)主要分成三個(gè)部分：學(xué)生信息管理，成績(jī)管理及用戶管理。1、學(xué)生信息管理 為每位在校學(xué)生就其中學(xué)號(hào)、性別、姓名、出生日期、出生地、備案，以同一年入學(xué)的學(xué)生為單位，資料來(lái)源為入學(xué)檔案。其中，學(xué)號(hào)為唯一標(biāo)志。在該系統(tǒng)中多為瀏覽和查詢之用打印作用很少用，而且以中考成績(jī)作為分 班的依據(jù)，可以對(duì)學(xué)生信息進(jìn)行添加，刪除，修改。2、成績(jī)管理每個(gè)學(xué)期組織期末考試，并對(duì)每個(gè)學(xué)

6、生的各門成績(jī)進(jìn)行登記、匯總、排名。涉及的主要數(shù)據(jù)是每個(gè)班每個(gè)學(xué)期一張成績(jī)單，內(nèi)容是學(xué)生的學(xué)號(hào)、姓名及成績(jī)，在該 管理中主要完成成績(jī)的瀏覽、查詢、分?jǐn)?shù)的計(jì)算、打印的功能，而且成績(jī)作為學(xué)生學(xué)習(xí)狀況的主要依據(jù)和教師教學(xué)質(zhì)量考核的主要依據(jù)之一。3、用戶管理該模塊的主要功能是實(shí)現(xiàn)對(duì)用戶的各種權(quán)限管理工作，包括登記新用戶、老用戶找回信息、修改用戶密碼、修改用戶注冊(cè)信息、刪除用戶帳號(hào)等功能，從而方便于對(duì)用戶的管理。第2章 系統(tǒng)開(kāi)發(fā)方案2.1 開(kāi)發(fā)環(huán)境介紹2.2.1 系統(tǒng)開(kāi)發(fā)環(huán)境系統(tǒng)開(kāi)發(fā)環(huán)境：Microsoft Visual Basic 6.0 數(shù)據(jù)庫(kù)Access 2.2.2 系統(tǒng)開(kāi)發(fā)工具介紹1.Micros

7、oft Visual Basic 6.0：（1）VB的發(fā)展過(guò)程：公司在1991年推出的用于開(kāi)發(fā)Windows VB是Microsoft公司在應(yīng)用程序的開(kāi)發(fā)工具，是基于DOS平臺(tái)下 Basic編程語(yǔ)言的可視化的程序設(shè)計(jì)語(yǔ)言。它繼承了 Basic所具有的程序設(shè)計(jì)語(yǔ)言簡(jiǎn)單易用的特點(diǎn)，同時(shí)在其編程系統(tǒng)中采用了面向?qū)ο?、事件?qū)動(dòng)的編程機(jī)制，開(kāi)創(chuàng)了可視化編程的一代先河。自1991年推出后，Microsoft公司又相繼推出了VB2.0、VB3.0、VB4.0和VB5.0等版本。近年來(lái)，微軟公司又推出了可視化開(kāi)發(fā)工具套件Visual Studio 6.0。（2）VB主要功能特點(diǎn)如下：1 具有面向?qū)ο蟮目梢暬O(shè)

8、計(jì)工具。在VB中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（OOP），把程序和數(shù)據(jù)封裝起來(lái)視為一個(gè)對(duì)象，每個(gè)對(duì)象都是可視的。程序員在設(shè)計(jì)時(shí)只需用現(xiàn)有工具根據(jù)界面設(shè)計(jì)的要求，直接在屏幕上“畫”出窗口、菜單、按鈕、滾動(dòng)條等不同類型的對(duì)象，并為每個(gè)對(duì)象設(shè)置屬性。2 事件驅(qū)動(dòng)的編程機(jī)制事件驅(qū)動(dòng)是非常適合圖形用戶界面的編程方式。掌握著程序運(yùn)行的流向，每個(gè)事件都能驅(qū)動(dòng)一段程序的運(yùn)行。程序員只需編寫響應(yīng)用戶動(dòng)作的代碼，而各個(gè)動(dòng)運(yùn)行作之間不一定有聯(lián)系。這樣的應(yīng)用程序代碼一般較短，所以程序既易于編寫又易于維護(hù)。3提供了易學(xué)易用的應(yīng)用程序集成開(kāi)發(fā)環(huán)境 提供了易學(xué)易用的應(yīng)用程序VB集成開(kāi)發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼、集成開(kāi)

9、發(fā)環(huán)境中試程序，直至把應(yīng)用程序編譯成可執(zhí)行文件在Windows中運(yùn)行試程序，使用戶在友好的開(kāi)發(fā)環(huán)境中工作。4結(jié)構(gòu)化的程序設(shè)計(jì)語(yǔ)言VB具有豐富的數(shù)據(jù)類型和結(jié)構(gòu)化程序結(jié)構(gòu)，而且簡(jiǎn)單易學(xué)。此外，作為一種程序設(shè)計(jì)語(yǔ)言，VB還有許多獨(dú)到之處： 強(qiáng)大的數(shù)值和字符串處理功能。 豐富的圖形指令，可方便地繪制各種圖形。 提供靜態(tài)和動(dòng)態(tài)數(shù)組，有利于簡(jiǎn)化內(nèi)存管理。 過(guò)程可遞歸調(diào)用，使程序更為簡(jiǎn)練。 支持隨機(jī)文件訪問(wèn)和順序文件訪問(wèn)。 提供了一個(gè)可供應(yīng)用程序調(diào)用的包含多種類型的圖標(biāo)庫(kù)。 具有完善的運(yùn)行出錯(cuò)處理。5支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問(wèn)，利用數(shù)據(jù)控件可訪問(wèn)的數(shù)據(jù)庫(kù)系統(tǒng)有：可訪問(wèn)Microsoft Access、Btri

10、eve、dBASE、Microsoft FoxPro和Paradox 、Microsoft Excel，Lotusl-2-3等多種電子表格。6支持動(dòng)態(tài)數(shù)據(jù)交換（DDE）、動(dòng)態(tài)鏈接庫(kù)（DLL）的鏈接與嵌入（動(dòng)態(tài)鏈接庫(kù)（DLL）的鏈接與嵌入（OLE）技術(shù) ） 動(dòng)態(tài)數(shù)據(jù)交換（ 動(dòng)態(tài)數(shù)據(jù)交換（DDE）的編程技術(shù)，使VB開(kāi)發(fā)應(yīng)用程序能 ）的編程技術(shù)， 開(kāi)發(fā)應(yīng)用程序能與其他Windows應(yīng)用程序之間建立數(shù)據(jù)通信。通過(guò)VB的動(dòng)態(tài)鏈接庫(kù)（DLL）技術(shù)，在VB程序中可方便地調(diào)用用C語(yǔ)言或匯編語(yǔ)言編寫的函數(shù) 也可調(diào)用Windows應(yīng)用 語(yǔ)言或匯編語(yǔ)言編寫的函數(shù)，也可調(diào)用應(yīng)用程序接口函數(shù)，以實(shí)現(xiàn)SDK所能實(shí)現(xiàn)的功能

11、。VB的所能實(shí)現(xiàn)的功能核心是其對(duì)對(duì)象的鏈接與嵌入的支持， 有對(duì)象的一種方法。利用OLE技術(shù)，VB將其他應(yīng)用軟件視為技術(shù)，將其他應(yīng)用軟件視為有對(duì)象的一種方法。利用技術(shù)一個(gè)對(duì)象嵌入到VB應(yīng)用程序中，進(jìn)行各種操作，也可將各種應(yīng)用程序中基于Windows的應(yīng)用程序嵌入到應(yīng)用程序，實(shí)現(xiàn)聲音、圖、動(dòng)畫等多媒體功能。7完備的Help聯(lián)機(jī)幫助功能與Windows環(huán)境下的軟件一樣，在VB中，利用幫助菜單和 環(huán)境下的軟件一樣 中 F1功能鍵，用戶可隨時(shí)方便地得到所需的幫助信息。VB幫助功能鍵，用戶可隨時(shí)方便地得到所需的幫助信息。幫窗口中顯示了有關(guān)的示例代碼，通過(guò)復(fù)制、窗口中顯示了有關(guān)的示例代碼，通過(guò)復(fù)制、粘貼操作

12、可獲取大量的示例代碼，為用戶的學(xué)習(xí)和使用提供了極大方便。2.數(shù)據(jù)庫(kù)Access： Access能夠存取 Access/Jet、Microsoft SQL Server、Oracle(甲骨文軟件公司)，或者任何 ODBC 兼容數(shù)據(jù)庫(kù)內(nèi)的資料。熟練的軟件設(shè)計(jì)師和資料分析師利用它來(lái)開(kāi)發(fā)應(yīng)用軟件，而一些不熟練的程序員和非程序員的進(jìn)階用戶則能使用它來(lái)開(kāi)發(fā)簡(jiǎn)單的應(yīng)用軟件。雖然它支援部分面向?qū)ο螅∣OP）技術(shù)，但是未能成為一種完整的面向?qū)ο箝_(kāi)發(fā)工具。 特點(diǎn)：（1）存儲(chǔ)方式簡(jiǎn)單，易于維護(hù)管理 Access管理的對(duì)象有表、查詢、窗體、報(bào)表、頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（.mdb或.accdb）的數(shù)據(jù)庫(kù)文

13、件中，便于用戶的操作和管理 （2）面向?qū)ο?Access是一個(gè)面向?qū)ο蟮拈_(kāi)發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫(kù)系統(tǒng)中的各種功能對(duì)象化，將數(shù)據(jù)庫(kù)管理的各種功能封裝在各類對(duì)象中。它將一個(gè)應(yīng)用系統(tǒng)當(dāng)作是由一系列對(duì)象組成的，對(duì)每個(gè)對(duì)象它都定義一組方法和屬性，以定義該對(duì)象的行為和外國(guó)，用戶還可以按需要給對(duì)象擴(kuò)展方法和屬性。通過(guò)對(duì)象的方法、屬性完成數(shù)據(jù)庫(kù)的操作和管理，極大地簡(jiǎn)化了用戶的開(kāi)發(fā)工作。同時(shí)，這種基于面向?qū)ο蟮拈_(kāi)發(fā)方式，使得開(kāi)發(fā)應(yīng)用程序更為簡(jiǎn)便。（3）界面友好、易操作Access是一個(gè)可視化工具，是風(fēng)格與Windows完全一樣，用戶想要生成對(duì)象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。系統(tǒng)還提

14、供了表生成器、查詢生成器、報(bào)表設(shè)計(jì)器以及數(shù)據(jù)庫(kù)向?qū)А⒈硐驅(qū)?、查詢向?qū)?、窗體向?qū)?、?bào)表向?qū)У裙ぞ撸沟貌僮骱?jiǎn)便，容易使用和掌握。（4）集成環(huán)境、處理多種數(shù)據(jù)信息Access基于Windows操作系統(tǒng)下的集成開(kāi)發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ?，極大地提高了開(kāi)發(fā)人員的工作效率，使得建立數(shù)據(jù)庫(kù)、創(chuàng)建表、設(shè)計(jì)用戶界面、設(shè)計(jì)數(shù)據(jù)查詢、報(bào)表打印等可以方便有序地進(jìn)行。（5）Access支持ODBC（開(kāi)發(fā)數(shù)據(jù)庫(kù)互連，Open Data Base Connectivity），利用Access強(qiáng)大的DDE（動(dòng)態(tài)數(shù)據(jù)交換）和OLE（對(duì)象的聯(lián)接和嵌入）特性，可以在一個(gè)數(shù)據(jù)表中嵌入位圖、聲音、Excel表格、Wo

15、rd文檔，還可以建立動(dòng)態(tài)的數(shù)據(jù)庫(kù)報(bào)表和窗體等。Access還可以將程序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動(dòng)態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫(kù)訪問(wèn)頁(yè)對(duì)象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。（6）支持廣泛，易于擴(kuò)展，彈性較大能夠?qū)⑼ㄟ^(guò)鏈接表的方式來(lái)打開(kāi)EXCEL文件、格式化文本文件等，這樣就可以利用數(shù)據(jù)庫(kù)的高效率對(duì)其中的數(shù)據(jù)進(jìn)行查詢、處理。還可以通過(guò)以Access作為前臺(tái)客戶端，以SQL Server作為后臺(tái)數(shù)據(jù)庫(kù)的方式（如ADP）開(kāi)發(fā)大型數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)?？傊?，Access是一個(gè)既可以只用來(lái)存放數(shù)據(jù)的數(shù)據(jù)庫(kù)，也可以作為一個(gè)客戶端開(kāi)發(fā)工具來(lái)進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開(kāi)發(fā)；即可以開(kāi)發(fā)方便易用的小型

16、軟件，也可以用來(lái)開(kāi)發(fā)大型的應(yīng)用系統(tǒng)。第3章 系統(tǒng)結(jié)構(gòu)分析3.1 系統(tǒng)結(jié)構(gòu)分析要開(kāi)發(fā)一個(gè)學(xué)生信息管理系統(tǒng)，首先要對(duì)其進(jìn)行需求分析和總體設(shè)計(jì)，分析系統(tǒng)的使用對(duì)象和用戶需要，設(shè)計(jì)系統(tǒng)的體系結(jié)構(gòu)和數(shù)據(jù)庫(kù)結(jié)構(gòu)，決定使用的開(kāi)發(fā)工具和后臺(tái)數(shù)據(jù)庫(kù)，規(guī)劃項(xiàng)目開(kāi)展進(jìn)度。規(guī)劃好主要的模塊需求，這對(duì)學(xué)生的基本信息了解有很大的幫助。3.2 系統(tǒng)需求分析通過(guò)此系統(tǒng)可以了解學(xué)生姓名、學(xué)號(hào)、班級(jí)、年齡及各科成績(jī)等。可用于學(xué)校及各個(gè)部門，來(lái)進(jìn)行對(duì)學(xué)生及員工等信息的統(tǒng)計(jì)，以此來(lái)提高對(duì)學(xué)生或員工了解的程度3.2.1 系統(tǒng)概述學(xué)生信息管理系統(tǒng)主要用于學(xué)校及教育部門對(duì)學(xué)生各方面的統(tǒng)計(jì)與了解，記錄學(xué)生的基本信息，主要功能包括：(1) 學(xué)

17、生姓名管理。完成姓名的添加、刪除、修改及查詢。(2) 學(xué)生學(xué)號(hào)管理。完成學(xué)號(hào)的添加、刪除、修改及查詢。(3) 學(xué)生班級(jí)管理?？梢钥闯鰧W(xué)生所在的班級(jí)。(4) 學(xué)生性別管理?？梢詫?duì)學(xué)生性別進(jìn)行修改及查詢。(5) 添加學(xué)生信息管理。添加一些學(xué)生的信息或加入一些新生。(6) 查詢學(xué)生成績(jī)。輸入學(xué)生姓名和考號(hào)即可知道學(xué)生的成績(jī)和基本信息。3.2.2系統(tǒng)運(yùn)行環(huán)境1.硬件環(huán)境 處理器：Intel Pentium 166 MX 或更高。 內(nèi)存：32MB以上。 硬件空間：1GB以上。 顯卡：SVGA顯卡適配器。 2.軟件環(huán)境 操作系統(tǒng)：Windows 98/ME/2000XP。3.2.3 系統(tǒng)功能模塊系統(tǒng)功能模

18、塊如圖3-1所示。學(xué)生信息管理系統(tǒng)返回主界面修改密碼信息統(tǒng)計(jì)安全退出直接返回確認(rèn)修改密碼放棄修改密碼查看學(xué)生成績(jī)刪改學(xué)生信息取 消修改直接退出系統(tǒng)圖3-1 系統(tǒng)功能模塊3.3 系統(tǒng)可行性分析學(xué)生管理信息系統(tǒng)可以通過(guò)使用計(jì)算機(jī)技術(shù)等手段, 學(xué)生管理信息系統(tǒng)可以通過(guò)使用計(jì)算機(jī)技術(shù)等手段,將教師 從重復(fù)、繁瑣的手工處理工作中解脫出來(lái),避免了重復(fù)勞動(dòng), 從重復(fù)、繁瑣的手工處理工作中解脫出來(lái),避免了重復(fù)勞動(dòng),規(guī)范 教學(xué)管理行為,提高了管理效率和水平, 教學(xué)管理行為,提高了管理效率和水平,降低了人工處理產(chǎn)生的錯(cuò) 誤，使教育基礎(chǔ)管理管理邁出了一個(gè)新的臺(tái)階，從而逐步向教育 現(xiàn)代化的目標(biāo)前進(jìn)。因此,網(wǎng)絡(luò)和計(jì)算機(jī)

19、技術(shù)迅速發(fā)展的今天, 現(xiàn)代化的目標(biāo)前進(jìn)。因此,網(wǎng)絡(luò)和計(jì)算機(jī)技術(shù)迅速發(fā)展的今天,學(xué) 校推進(jìn)信息系統(tǒng)有著天時(shí)地利的有利條件, 校推進(jìn)信息系統(tǒng)有著天時(shí)地利的有利條件,學(xué)生管理信息系統(tǒng)的 實(shí)施也勢(shì)在必行。 一、計(jì)算機(jī)的普及和現(xiàn)代化的辦公是學(xué)生管理信息系統(tǒng)實(shí)施 的基礎(chǔ) 21 世紀(jì)是計(jì)算機(jī)普及的時(shí)代，也是計(jì)算機(jī)發(fā)展最迅猛的年代，計(jì)算機(jī)的價(jià)格不斷的下降的年代，計(jì)算機(jī)的價(jià)格不斷的下降,使得計(jì)算機(jī)得到廣泛的應(yīng)用，簡(jiǎn) 不斷的下降 又使得計(jì)算機(jī)成為工作和學(xué)習(xí)中必不 單易行的操作系統(tǒng)與軟件， 可少的一部分, 可少的一部分,而學(xué)校只需購(gòu)買幾臺(tái)服務(wù)器，就足夠支持信息系 統(tǒng)的建設(shè)，因而信息系統(tǒng)的使用也成了現(xiàn)實(shí)，具有可行性。

20、 二、現(xiàn)代軟件技術(shù)的發(fā)展和變革使信息系統(tǒng)成本降低，管理 現(xiàn)代軟件技術(shù)的發(fā)展和變革使信息系統(tǒng)成本降低，系統(tǒng)實(shí)施可行同樣支持計(jì)算機(jī)技術(shù)的語(yǔ)言也在 計(jì)算機(jī)技術(shù)在不斷的發(fā)展，不斷變革，計(jì)算機(jī)語(yǔ)言從最早的機(jī)器語(yǔ)言到匯編語(yǔ)言，再到C語(yǔ)言，PASCAL,VC,POWDERBUIDER,DEPHI 語(yǔ)言，PASCAL,VC,POWDERBUIDER,DEPHI 等，再到現(xiàn)在流行的 C+，JAVA，.NET 等開(kāi)發(fā)語(yǔ)言，經(jīng)歷了從機(jī)器語(yǔ)言到面向過(guò)程語(yǔ)言再到現(xiàn)在面向?qū)ο蟮倪^(guò)程。同時(shí)，軟件產(chǎn)品也歷經(jīng)從CS化產(chǎn)品到BS化產(chǎn)品的過(guò)渡，使用更加方便，操作更加簡(jiǎn)單， 使用界面更加友好，擴(kuò)展性更強(qiáng)，維護(hù)簡(jiǎn)單。廉價(jià)的管理信息系統(tǒng)

21、的成本，使得學(xué)校不用過(guò)多的考慮其對(duì)教育經(jīng)費(fèi)和科研經(jīng)費(fèi)的影響，這使管理系統(tǒng)的實(shí)施具有可行性。 三、互聯(lián)網(wǎng)絡(luò)的流行與普及使信息系統(tǒng)更易被傳播和使用隨著互聯(lián)網(wǎng)的廣泛普及，各高校都建立了自己的校園網(wǎng)，為管理信息系統(tǒng)的普及和應(yīng)用鋪平了道路。只要有電腦，有網(wǎng)絡(luò)，而不需要在每個(gè)客戶端裝相應(yīng)的軟件，降低了使用系統(tǒng)的難度， 就能夠輕松的訪問(wèn)信息系統(tǒng)，加快了管理信息系統(tǒng)廣泛的應(yīng)用。學(xué)生可以在宿舍登錄系統(tǒng)查詢成績(jī)、課程、請(qǐng)假等；老師也可以在家設(shè)置課程、管理信息、給學(xué)生答疑解惑，讓工作和生活一樣輕松。 四、教師素質(zhì)和技能的提高使信息系統(tǒng)的使用不再是難題現(xiàn)代化的教學(xué)要求教師不僅具備傳統(tǒng)授課方式，還要求掌握計(jì)算機(jī)教學(xué)技術(shù)

22、來(lái)實(shí)現(xiàn)多媒體教學(xué)。因而，教師素質(zhì)的提高和計(jì)算機(jī)技能的計(jì)算機(jī)技術(shù)的廣泛應(yīng)用給教育事業(yè)帶來(lái)了一場(chǎng)革命， 同時(shí)學(xué)?？梢蕴岣呓o學(xué)生管理信息系統(tǒng)的推廣和應(yīng)用創(chuàng)造條件。 此外，他們了解教學(xué)方面的工作，熟悉教學(xué)管理流程，省去大量的培訓(xùn)和宣傳的費(fèi)用。能夠給管理信息系統(tǒng)的建設(shè)提供設(shè)計(jì)方案和意見(jiàn)。 計(jì)算機(jī)的普及、軟件使用的方便性、成本的降低，綜上所述， 互聯(lián)網(wǎng)的流行還有教師綜合素質(zhì)和計(jì)算機(jī)技能的提高都給高效 管理信息系統(tǒng)建設(shè)、推廣提供了動(dòng)力和智力支持，管理信息系統(tǒng) 的實(shí)現(xiàn)成為現(xiàn)實(shí)，具有可行性。 第4章 數(shù)據(jù)庫(kù)的實(shí)現(xiàn)4.1數(shù)據(jù)庫(kù)需求分析數(shù)據(jù)庫(kù)需求分析在設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)時(shí)，以及可能地滿足用戶所提出的各項(xiàng)要求，同時(shí)又避免

23、同時(shí)又要 避免冗余數(shù)據(jù)產(chǎn)生。由于在學(xué)生信息管理系統(tǒng)中，需要采集大量的信息，包括學(xué)生信息， 班級(jí)信息，課程信息，成績(jī)信息，專業(yè)信息等，如果不能夠合理有效地組織數(shù)據(jù)表的結(jié)構(gòu)，以及合理設(shè)置每張表所包含的字段，那么后期進(jìn)行的數(shù)據(jù)的整理以及匯總時(shí)，就會(huì)增加編程人員的開(kāi)發(fā)難度，并造成成績(jī)效益的大幅度下降。根據(jù)學(xué)生基本信息以及其他相關(guān)信息的特點(diǎn)，歸納出以下規(guī)律：1、學(xué)生信息管理 為每位在校學(xué)生就其中學(xué)號(hào)、性別、姓名、班級(jí)、家庭地址、年齡。其中，學(xué)號(hào)為唯一標(biāo)志。在該系統(tǒng)中多為瀏覽和查詢之用，打印作用很少用，可以對(duì)學(xué)生信息進(jìn)行添加，刪除，修改。2、成績(jī)管理 每個(gè)學(xué)期組織期末考試，并對(duì)每個(gè)學(xué)生的各門成績(jī)進(jìn)行登記、

24、匯總、排名。涉及 的主要數(shù)據(jù)是每個(gè)班每個(gè)學(xué)期一張成績(jī)單，內(nèi)容是學(xué)生的學(xué)號(hào)、姓名及成績(jī)，在該管理中主要完成成績(jī)的瀏覽、查詢、分?jǐn)?shù)的計(jì)算、打印的功能，而且成績(jī)作為學(xué)生學(xué)習(xí)狀況的主要依據(jù)和教師教學(xué)質(zhì)量考核的主要依據(jù)之一。3、用戶管理 該模塊的主要功能是實(shí)現(xiàn)對(duì)用戶的各種權(quán)限管理工作，包括登記新用戶、老用戶找 回信息、修改用戶密碼、修改用戶注冊(cè)信息、刪除用戶帳號(hào)等功能，從而方便于對(duì)用戶的管理。4.2 數(shù)據(jù)表的物理結(jié)構(gòu)管理員登錄名稱和密碼與數(shù)據(jù)庫(kù)的鏈接，從數(shù)據(jù)表中可以看出管理員名稱和他的登錄密碼，可以順利登錄，有利于信息管理。表4-1 adminlogin表編號(hào)字段名稱數(shù)據(jù)類型主鍵1admin文本NO2p

25、assword文本NO表4-2 basic表編號(hào)字段名稱數(shù)據(jù)類型主鍵1學(xué)號(hào)文本YES2姓名文本NO3班級(jí)數(shù)字NO4年齡數(shù)字NO5家庭住址文本NO6性別文本NO7照片OLE對(duì)象NO8專業(yè)文本NO表4-3 guestlogin 表編號(hào)字段名稱數(shù)據(jù)類型主鍵1guest文本NO2password文本NO表4-4 mark表編號(hào)字段名稱數(shù)據(jù)類型主鍵1高數(shù)數(shù)字NO2外語(yǔ)數(shù)字NO 3C語(yǔ)言數(shù)字NO4數(shù)據(jù)結(jié)構(gòu)數(shù)字NO5VisualBasic數(shù)字NO6總分?jǐn)?shù)字NO7學(xué)號(hào)文本YES8姓名文本NO9專業(yè)文本NO第5章 系統(tǒng)的實(shí)現(xiàn)及其程序5.1 登錄模塊本系統(tǒng)考慮到系統(tǒng)的安全性，主要設(shè)置了用戶登錄界面，其中包括用戶登

26、錄驗(yàn)證和密碼校驗(yàn)，保證了信息的“可控”透明性。而且，為了方便管理人員對(duì)員工各種信息進(jìn)行更改，設(shè)置了用戶權(quán)限，增強(qiáng)了信息的安全性。登陸界面主要用于身份驗(yàn)證，輸入用戶名和密碼后，選擇用戶權(quán)限。如果用戶名和密碼或權(quán)限錯(cuò)誤，點(diǎn)擊提交時(shí)，會(huì)在Label1的位置顯示信息錯(cuò)誤，需要重新輸信息。當(dāng)信息輸入正確時(shí)，若用戶為管理人員，會(huì)跳轉(zhuǎn)到管理人員界面；當(dāng)用戶為一般用戶時(shí)，會(huì)跳轉(zhuǎn)到一般用戶界面。登錄界面如下圖5-1所示圖5-1 登錄界面5.2 管理人員模塊當(dāng)用戶為管理人員時(shí)，登錄到了管理人員主界面。5.2.1管理人員主界面登錄后的界面如圖5-2所示圖5-2 登錄后界面其中的返回主界面、修改密碼、信息統(tǒng)計(jì)、輸出信

27、息、安全退出的程序如下Private Sub changepassword_Click()password.ShowEnd SubPrivate Sub Command1_Click(Index As Integer)On Error Resume NextDim ask As IntegerSelect Case IndexCase 0Adodc1.Recordset.MoveFirstAdodc2.Recordset.MoveFirstCase 1Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Records

28、et.MoveFirstAdodc2.Recordset.MovePreviousIf Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirstCase 2Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastAdodc2.Recordset.MoveNextIf Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLastCase 3Adodc1.Recordset.MoveLastAdodc2.Re

29、cordset.MoveLastCase 5ask = MsgBox(delete?, vbYesNo)If ask = 6 ThenIf Adodc1.Recordset.RecordCount = 0 Or Adodc2.Recordset.RecordCount = 0 ThenMsgBox (there is no record to be deleted)ElseAdodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePositionAdodc1.Recordset.DeleteAdodc2.Recordset.Del

30、eteAdodc1.Recordset.MoveNextAdodc2.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastIf Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLastEnd IfEnd IfCase 4addinformation.ShowCase 6Adodc1.Recordset.UpdateCase 7Adodc1.Recordset.CancelUpdateEnd SelectEnd SubPrivate Sub Command2_

31、Click()Dim mpath$, mlink$mpath = App.Path 獲取程序所在的路徑If Right(mpath, 1) Then mpath = mpath + 判斷是否為子目錄 以下兩行代碼可合成一句，mlink存放ConnectionString屬性的設(shè)置值mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者mlink = mlink + Data Source= + mpath + database1.mdb 在數(shù)據(jù)庫(kù)文件名前插入路徑Adodc1.ConnectionString = mlink 設(shè)置連接屬性Adodc1.Co

32、mmandType = adCmdUnknown 指定記錄集命令類型（可在設(shè)計(jì)時(shí)指定）Adodc2.ConnectionString = mlink 設(shè)置連接屬性Adodc2.CommandType = adCmdUnknownsc = Text6.Textlc = Text7.TextIf sc And lc Then Adodc1.RecordSource = Select * from basic where 姓名= & sc & and 學(xué)號(hào)= & lc & Adodc2.RecordSource = Select * from mark where 姓名= & sc & and 學(xué)號(hào)

33、= & lc & Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2ElseIf sc Then Adodc1.RecordSource = Select * from basic where 姓名= & sc & Adodc2.RecordSource = Select * from mark where 姓名= & sc & Adodc1.Refresh Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2

34、.DataSource = Adodc2 ElseIf lc Then Adodc1.RecordSource = Select * from basic where 學(xué)號(hào)= & lc & Adodc2.RecordSource = Select * from mark where 學(xué)號(hào)= & lc & Adodc1.Refresh Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2Else MsgBox 你應(yīng)該輸入查詢條件, vbOKOnly, 查詢錯(cuò)誤End IfEnd Sub

35、Private Sub Command3_Click()On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二進(jìn)制讀方式打開(kāi)源文件 Image1.Picture = LoadPicture(CommonDialog1.FileName) fl = LOF(1) 獲得文件長(zhǎng)度 ReDim strb(fl) 從文件中讀取內(nèi)容并 Get #1, , strb 讀到內(nèi)存塊中 adminform.Adodc1.Recordset.Field

36、s(照片).AppendChunk strb adminform.Adodc1.Recordset.Update Close #1End SubPrivate Sub DataGrid1_Click()Adodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePositionEnd SubPrivate Sub exit_Click()當(dāng)有新學(xué)生時(shí)，管理人員需要添加新學(xué)生的信息，點(diǎn)擊添加按鈕，進(jìn)入到了添加員工信息界面，添加學(xué)生信息界面如圖5-3所示。圖5-3 添加學(xué)生信息界面當(dāng)管理人員添加完學(xué)生信息，點(diǎn)擊添加按鈕，學(xué)生的信息就可以

37、添加進(jìn)去了。學(xué)生信息添加后的界面如圖5-4所示。圖5-4 添加成功界面學(xué)生信息添加程序代碼如下：Private Sub Command1_Click() adminform.Adodc1.RecordSource = select * from basic where 學(xué)號(hào)= & Text8 & adminform.Adodc1.Refresh adminform.Adodc2.RecordSource = select * from mark where 學(xué)號(hào)= & Text8 & adminform.Adodc2.Refresh If adminform.Adodc1.Recordset.

38、RecordCount 0 Then MsgBox (the user has already exist) Else adminform.Adodc1.Recordset.AddNew adminform.Adodc1.Recordset.Fields(學(xué)號(hào)) = Text8 adminform.Adodc1.Recordset.Fields(姓名) = Text7 adminform.Adodc1.Recordset.Fields(性別) = Combo1.Text adminform.Adodc1.Recordset.Fields(班級(jí)) = Text10 adminform.Adodc

39、1.Recordset.Fields(年齡) = Text11 adminform.Adodc1.Recordset.Fields(專業(yè)) = Text12 adminform.Adodc1.Recordset.Fields(家庭住址) = Text9 adminform.Adodc1.Recordset.Update adminform.Adodc1.Refresh adminform.Adodc1.Refresh End If If adminform.Adodc2.Recordset.RecordCount 0 Then MsgBox (the user has already exis

40、t) Else adminform.Adodc2.Recordset.AddNew adminform.Adodc2.Recordset.Fields(高數(shù)) = Val(Text1) adminform.Adodc2.Recordset.Fields(外語(yǔ)) = Val(Text2) adminform.Adodc2.Recordset.Fields(C語(yǔ)言) = Val(Text3) adminform.Adodc2.Recordset.Fields(數(shù)據(jù)結(jié)構(gòu)) = Val(Text4) adminform.Adodc2.Recordset.Fields(VisualBasic) = Va

41、l(Text5) adminform.Adodc2.Recordset.Fields(總分) = Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4) + Val(Text5) adminform.Adodc2.Recordset.Fields(學(xué)號(hào)) = Text8 adminform.Adodc2.Recordset.Fields(姓名) = Text7 adminform.Adodc2.Recordset.Fields(專業(yè)) = Text12 adminform.Adodc2.Recordset.Update adminform.Adodc

42、2.Refresh MsgBox (succeed) Unload Me adminform.Show End IfEnd SubPrivate Sub Command2_Click()adminform.Adodc1.Recordset.CancelUpdateUnload Meadminform.ShowEnd SubPrivate Sub Command3_Click()On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二

43、進(jìn)制讀方式打開(kāi)源文件 Image1.Picture = LoadPicture(CommonDialog1.FileName) fl = LOF(1) 獲得文件長(zhǎng)度 ReDim strb(fl) 從文件中讀取內(nèi)容并 Get #1, , strb 讀到內(nèi)存塊中 adminform.Adodc1.Recordset.Fields(照片).AppendChunk strb Close #1End SubPrivate Sub Text1_LostFocus()If Text1 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text2_LostFocus()If Te

44、xt2 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text3_LostFocus()If Text3 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text4_LostFocus()If Text4 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text5_LostFocus()If Text5 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text7_LostFocus()If Text7 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPriv

45、ate Sub Text8_LostFocus()If Text8 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text9_LostFocus()If Text9 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text10_LostFocus()If Text10 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text11_LostFocus()If Text11 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End SubPrivate Sub Text12_LostFocus()If Tex

46、t12 = Then MsgBox (請(qǐng)輸入數(shù)據(jù))End Sub管理員修改密碼界面如圖5-5所示圖5-5 修改密碼修改密碼的程序如下：Private Sub Command1_Click()If Text1.Text = ThenMsgBox 請(qǐng)輸入用戶名！, vbOKOnly + vbInformation, 注意Text1.SetFocusExit SubElseIf Text2.Text = ThenMsgBox 請(qǐng)輸入密碼！, vbOKOnly + vbInformation, 注意Text2.SetFocusExit SubElseIf Text3.Text = ThenMsgBox

47、 請(qǐng)?jiān)俅屋斎朊艽a！, vbOKOnly + vbInformation, 注意Text3.SetFocusExit SubEnd IfIf Text2.Text Text3.Text ThenMsgBox 兩次輸入的密碼不同，請(qǐng)重新輸入密碼！, vbOKOnly + vbInformation, 注意Text2.Text = Text3.Text = Text2.SetFocusExit SubEnd If Adodc1.ConnectionString = mlink 設(shè)置連接屬性 Adodc1.CommandType = adCmdUnknown 指定記錄集命令類型（可在設(shè)計(jì)時(shí)指定）If

48、admin = True Then Adodc1.RecordSource = select * from adminlogin where admin= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the user has already exist) Else Adodc1.RecordSource = Select * from adminlogin where admin= Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.F

49、ields(admin) = Text1 Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show End IfElse Adodc1.RecordSource = select * from guestlogin where guest= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the username has already exi

50、st) Exit Sub Else Adodc1.RecordSource = Select * from guestlogin where guest= Adodc1.Refresh Adodc1.Recordset.AddNew Adodc1.Recordset.Fields(guest) = Text1 Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show End IfEnd IfEnd SubPrivate Sub Comma

51、nd2_Click()Unload Meloginform.ShowEnd SubPrivate Sub Form_Load()Dim mpath$ mpath = App.Path 獲取程序所在的路徑 If Right(mpath, 1) Then mpath = mpath + 判斷是否為子目錄 以下兩行代碼可合成一句，mlink存放ConnectionString屬性的設(shè)置值 mlink = Provider=Microsoft.Jet.OLEDB.4.0; 指定提供者 mlink = mlink + Data Source= + mpath + Database1.mdb 在數(shù)據(jù)庫(kù)文件名前插入路徑 Ad