基于VB畢業(yè)設(shè)計(jì)論文

- I - 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) 課程設(shè)計(jì)任務(wù)書 目 錄 課程設(shè)計(jì)任務(wù)書 I 第 1 章 緒論 1 1.1 系統(tǒng)設(shè)計(jì)背景 1 1.2 系統(tǒng)的功能簡(jiǎn)介 1 第 2 章 系統(tǒng)開發(fā)方案 2 2.1 開發(fā)環(huán)境介紹 2 2.2.1 系統(tǒng)開發(fā)環(huán)境 2 2.2.2 系統(tǒng)開發(fā)工具介紹 2 第 3 章 系統(tǒng)結(jié)構(gòu)分析 4 3.1 系統(tǒng)結(jié)構(gòu)分析 4 3.2 系統(tǒng)需求分析 4 3.2.1 系統(tǒng)概述 4 3.2.2 系統(tǒng)運(yùn)行環(huán)境 5 3.2.3 系統(tǒng)功能模塊 5 3.3 系統(tǒng)可行性分析 6 第 4 章 數(shù)據(jù)庫(kù)的實(shí)現(xiàn) 8 4.1 數(shù)據(jù)庫(kù)需求分析 8 4.2 數(shù)據(jù)表的物理結(jié)構(gòu) 9 第 5 章 系統(tǒng)的實(shí)現(xiàn)及其程序 10 5.1 登錄模塊 10 5.2 管理人員模塊 11 5.2.1 管理人員主界面 11 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - II - 5.3 普通用戶模塊 24 5.3.1 一般用戶主界面 24 5.3.2 修改密碼 24 5.3.3 學(xué)生信息查詢 28 第 6 章 系統(tǒng)測(cè)試 29 結(jié) 論 32 參考文獻(xiàn) 33 - 1 - 第 1章 緒論 1.1系統(tǒng)設(shè)計(jì)背景 隨著學(xué)校規(guī)模的不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息也成倍增加。面對(duì)龐大的信息量，就 需要有學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣 的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分 ,它的內(nèi)容對(duì)于學(xué)校的決策者和 管理者來說都至關(guān)重要 ,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖?的查詢手段 。 在國(guó)內(nèi)外發(fā)展概況及存在問題一直以來人們使用傳統(tǒng)人工的方式管理文件檔案，這種管理方式存在著許多缺點(diǎn) , 如 :效率低、保密性差 ,另外時(shí)間一長(zhǎng) ,將產(chǎn)生大量的文件和數(shù)據(jù) ,這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。作為計(jì) 算機(jī)應(yīng)用的一部分 ,使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理 ,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例如 :檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率 ,也是企業(yè)的科學(xué)化 、 正規(guī)化管理與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件是很有必要的事情。 1.2 系統(tǒng)的功能簡(jiǎn)介 本系統(tǒng)主要分成三個(gè)部分：學(xué)生信息管理，成績(jī)管理及用戶管理。 1、學(xué)生信息管理 為每位在校學(xué)生就其中學(xué)號(hào)、性別、姓名、出生日期、出生地、備案，以同一年入學(xué)的學(xué)生為單位，資料來源為入學(xué)檔案。其中，學(xué) 號(hào)為唯一標(biāo)志。在該系統(tǒng)中多為瀏覽和查詢之用打印作用很少用，而且以中考成績(jī)作為分 班的依據(jù)，可以對(duì)學(xué)生信息進(jìn)行添加，刪除，修改。 2、成績(jī)管理每個(gè)學(xué)期組織期末考試，并對(duì)每個(gè)學(xué)生的各門成績(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ì)用戶的管理。 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 2 - 第 2章 系統(tǒng)開發(fā)方案 2.1 開發(fā)環(huán)境介紹 2.2.1 系統(tǒng)開發(fā)環(huán)境 系統(tǒng) 開發(fā)環(huán)境： Microsoft Visual Basic 6.0 數(shù)據(jù)庫(kù) Access 2.2.2 系統(tǒng)開發(fā)工具介紹 1.Microsoft Visual Basic 6.0： （ 1） VB 的發(fā)展過程 ： 公司在 1991 年推出的用于開發(fā) Windows VB 是 Microsoft公司在應(yīng)用程序的開發(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ī)制，開創(chuàng)了可視化編程的一代先河。自 1991年推出后， Microsoft 公司又相繼推出了 VB2.0、 VB3.0、 VB4.0 和 VB5.0 等版本。近年來，微軟公司又推出了可視化開發(fā)工具套件 Visual Studio 6.0。 （ 2） VB 主要功能特點(diǎn)如下： 1 具有面向?qū)ο蟮目梢暬O(shè)計(jì)工具 。 在 VB 中，應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法（ OOP），把程序和數(shù)據(jù)封裝起來視為一個(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)用程序集成開發(fā)環(huán)境 提供了易學(xué)易用的應(yīng)用程序 VB 集成開發(fā)環(huán)境中，用戶可設(shè)計(jì)界面、編寫代碼、集成開發(fā)環(huán)境中試程序，直至把應(yīng)用程序編譯成可執(zhí) 行文件在 Windows 中運(yùn)行試程序 ， 使用戶在友好的開發(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)存管理。 過程可遞歸調(diào)用，使程序 - 3 - 更為簡(jiǎn)練。 支持隨機(jī)文件訪問和順序文件訪問。 提供了一個(gè)可供應(yīng)用程序調(diào)用的包含多種類型的圖標(biāo)庫(kù)。 具有完善的運(yùn)行出錯(cuò)處理。 5 支持多種數(shù)據(jù)庫(kù)系統(tǒng)的訪問 ， 利用數(shù)據(jù)控件可訪 問的數(shù)據(jù)庫(kù)系統(tǒng)有：可訪問 Microsoft Access、 Btrieve、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 開發(fā)應(yīng)用程序能 ）的編程技術(shù)， 開發(fā)應(yīng)用程序能與其他 Windows 應(yīng)用程序之間建立數(shù)據(jù)通信 。 通過 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)的功能。 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)的示例代碼，通過復(fù)制、窗口中顯示了有關(guān)的示例代碼，通過復(fù)制、粘貼操作可獲取大量的示例代碼，為用戶的學(xué)習(xí)和使用提供了極大方便。 2.數(shù)據(jù)庫(kù) Access： Access 能夠存取 Access/Jet、 Microsoft SQL Server、 Oracle(甲骨文軟件公司 )，或者任何 ODBC 兼容 數(shù)據(jù)庫(kù) 內(nèi)的資料。熟練的 軟件設(shè)計(jì)師 和資料分析師利用它來開發(fā)應(yīng)用軟件，而一些不熟練的 程序員 和非程序員的 進(jìn)階用戶 則能使用它來開發(fā)簡(jiǎn)單的應(yīng)用軟件。雖然它支援部分 面向?qū)ο?（ OOP）技術(shù)，但是未能成為一種完整的面向?qū)ο箝_發(fā)工具。 特點(diǎn)： （ 1）存儲(chǔ)方式簡(jiǎn)單，易于維護(hù)管理 Access 管理的對(duì)象有表、查詢、窗體、報(bào)表 、 頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（ .mdb 或 .accdb）的 數(shù)據(jù)庫(kù)文件中，便于用戶的操作和管理 （ 2） 面向?qū)ο?Access 是一個(gè)面向?qū)ο蟮拈_發(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ò)展方法和屬性。通過對(duì)象的方法、屬性完成數(shù)據(jù)庫(kù)的操作和管理，極大地簡(jiǎn)化了用戶的開發(fā)工作。同時(shí)，這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā)應(yīng)用程序更為簡(jiǎn)便。（ 3）界面友好、易操作 Access 是一個(gè) 可視化工具 ，是風(fēng)格與 Windows 完全一樣，用戶想要生成對(duì)象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報(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) 下的集成開發(fā)環(huán)境，該環(huán)境集成了各種基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 4 - 向?qū)Ш蜕善鞴ぞ?，極大地提高了開發(fā)人員的工作效率，使得建立數(shù)據(jù)庫(kù)、創(chuàng)建表、設(shè)計(jì)用戶界面、設(shè)計(jì)數(shù)據(jù)查詢、報(bào)表打印等可以方便有序地進(jìn)行。（ 5） Access 支持ODBC（開發(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 表格、 Word 文檔，還可以建立動(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ù)訪問頁(yè)對(duì)象生成 HTML 文件 ，輕松構(gòu)建 Internet/Intranet 的應(yīng)用。（ 6）支持廣泛，易于擴(kuò)展，彈性較大能夠?qū)⑼ㄟ^鏈接表的方式來打開 EXCEL 文件、格式化文本文件等，這樣就可以利用數(shù)據(jù)庫(kù)的高效率對(duì)其中的數(shù)據(jù)進(jìn)行查詢、處理。還可以通過以 Access 作為前臺(tái)客戶端，以 SQL Server 作為 后臺(tái)數(shù)據(jù)庫(kù) 的方 式（如 ADP）開發(fā)大型 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng) ?？傊?Access 是一個(gè)既可以只用來存放數(shù)據(jù)的數(shù)據(jù)庫(kù)，也可以作為一個(gè)客戶端開發(fā)工具來進(jìn)行 數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā) ；即可以開發(fā)方便易用的小型軟件，也可以用來開發(fā)大型的應(yīng)用系統(tǒng)。 第 3章 系統(tǒng)結(jié)構(gòu)分析 3.1 系統(tǒng)結(jié)構(gòu)分析 要開發(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)，決定使用的開發(fā)工具和后臺(tái)數(shù)據(jù)庫(kù)，規(guī)劃項(xiàng)目開展進(jìn)度。規(guī)劃好主要的模塊需求，這對(duì)學(xué)生的基本信息了解有很大的幫助。 3.2 系統(tǒng)需求分析 通過此系統(tǒng)可以了解學(xué)生姓名、學(xué)號(hào)、班級(jí)、年齡及各科成績(jī)等。可用于學(xué)校及各個(gè)部門，來進(jìn)行對(duì)學(xué)生及員工等信息的統(tǒng)計(jì)，以此來提高對(duì)學(xué)生或員工了解的程度 3.2.1 系統(tǒng)概述 學(xué)生信息管理系統(tǒng)主要用于學(xué)校及教育部門對(duì)學(xué)生各方面的統(tǒng)計(jì)與了解，記錄學(xué)生的基本信息，主要功能包括： (1) 學(xué)生姓名管理。完成姓名的添加、刪除、修改及查詢。 - 5 - (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)功能模塊如圖 3-1 所示。 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 6 - 圖 3-1 系統(tǒng)功能模塊 3.3 系統(tǒng)可行性分析 學(xué)生管理信息系統(tǒng)可以通過使用計(jì)算機(jī)技術(shù)等手段 , 學(xué)生管理信息系統(tǒng)可以通過使用計(jì)算機(jī)技術(shù)等手段 ,將教師 從重復(fù)、繁瑣的手工處理工作中解脫出來 ,避免了重復(fù)勞動(dòng) , 從重復(fù)、繁瑣的手工處理工作中解脫出來 ,避免了重復(fù)勞動(dòng) ,規(guī)范 教學(xué)管理行為 ,提高了管理效率和水平 , 教學(xué)管理行為 ,提高了管理效率和水平 ,降低了人工處理產(chǎn)生的錯(cuò) 誤，使教育基礎(chǔ)管理管理邁出了一個(gè)新的臺(tái)階，從而逐步向教育 現(xiàn)代化的目標(biāo)前進(jìn)。因此 ,網(wǎng)絡(luò)和計(jì)算機(jī)技術(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ì)在必行。 學(xué)生信息管理系統(tǒng) 返 回 主 界 面 修 改 密 碼 信 息 統(tǒng) 計(jì) 安 全 退 出 直 接 返 回 確 認(rèn) 修 改 密 碼 放 棄 修 改 密 碼 查 看 學(xué) 生 成 績(jī) 刪 改 學(xué) 生 信 息 取 消 修 改 直 接 退 出 系 統(tǒng) - 7 - 一、計(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í)，具有可行性。 二、現(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 等開發(fā)語(yǔ)言，經(jīng)歷了從機(jī)器語(yǔ)言到面向過程語(yǔ)言再到現(xiàn)在面向?qū)ο蟮倪^程。同時(shí)，軟件產(chǎn)品也歷經(jīng)從 CS 化產(chǎn)品到 BS 化產(chǎn)品的過渡，使用更加方便，操作更加簡(jiǎn)單， 使用界面更加友好，擴(kuò)展性更強(qiáng)，維護(hù)簡(jiǎn)單。廉價(jià)的管理信息系統(tǒng)的成本，使得學(xué)校不用過多的考慮其對(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)的難度， 就能夠輕松的訪問信息系統(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ù)來實(shí)現(xiàn)多媒體教學(xué)。因而，教師素質(zhì)的提高和計(jì)算機(jī) 技能的計(jì)算機(jī)技術(shù)的廣泛應(yīng)用給教育事業(yè)帶來了一場(chǎng)革命， 同時(shí)學(xué)?？梢蕴岣呓o學(xué)生管理信息系統(tǒng)的推廣和應(yīng)用創(chuàng)造條件 。 此外 ， 他們了解教學(xué)方面的工作，熟悉教學(xué)管理流程，省去大量的培訓(xùn)和宣傳的費(fèi)用。能夠給管理信息系統(tǒng)的建設(shè)提供設(shè)計(jì)方案和意見。 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 8 - 計(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í)又避免同時(shí)又要 避免冗余數(shù)據(jù)產(chǎn)生。由于在學(xué)生信息管理系統(tǒng)中，需要采集大量的信息，包括學(xué)生信息， 班級(jí)信息，課程信息，成績(jī)信息，專業(yè)信息等，如果不能夠合理有效地組織數(shù)據(jù)表的結(jié)構(gòu)，以及合理設(shè)置每張表所包含的字段，那么后期進(jìn)行的數(shù)據(jù)的整理以及匯總時(shí)，就會(huì)增加編程人員的開發(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)行登記、匯總、排名。涉及 的主要數(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ì)用戶的管理。 - 9 - 4.2 數(shù)據(jù)表的物理結(jié)構(gòu) 管理員登錄名稱和密碼與數(shù)據(jù)庫(kù)的鏈接，從數(shù)據(jù)表中可以看出管理員名稱和他的登錄密碼，可以順利登錄，有利于信息管理。 表 4-1 adminlogin 表 編號(hào) 字段名稱 數(shù)據(jù)類型 主鍵 1 admin 文本 NO 2 password 文本 NO 表 4-2 basic 表 編號(hào) 字段名稱 數(shù)據(jù)類型 主鍵 1 學(xué)號(hào) 文本 YES 2 姓名 文本 NO 3 班級(jí) 數(shù)字 NO 4 年齡 數(shù)字 NO 5 家庭住址 文本 NO 6 性別 文本 NO 7 照片 OLE 對(duì)象 NO 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 10 - 8 專業(yè) 文本 NO 表 4-3 guestlogin 表 編號(hào) 字段名稱 數(shù)據(jù)類型 主鍵 1 guest 文本 NO 2 password 文本 NO 表 4-4 mark 表 編號(hào) 字段名稱 數(shù)據(jù)類型 主鍵 1 高數(shù) 數(shù)字 NO 2 外語(yǔ) 數(shù)字 NO 3 C 語(yǔ)言 數(shù)字 NO 4 數(shù)據(jù)結(jié)構(gòu) 數(shù)字 NO 5 VisualBasic 數(shù)字 NO 6 總分 數(shù)字 NO 7 學(xué)號(hào) 文本 YES 8 姓名 文本 NO 9 專業(yè) 文本 NO 第 5章 系統(tǒng)的實(shí)現(xiàn)及其程序 5.1 登錄模塊 本系統(tǒng)考慮到系統(tǒng)的安全性，主要設(shè)置了用戶登錄界面，其中包括用戶登錄驗(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)到一般用戶界面。 - 11 - 登錄界面如下圖 5-1 所示 圖 5-1 登錄界面 5.2 管理人員模塊 當(dāng)用戶為管理人員時(shí)，登錄到了管理人員主界面。 5.2.1管理人員主界面 登錄后的界面如圖 5-2 所示 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 12 - 圖 5-2 登錄后界面 其中的返回主界面、修改密碼、信息統(tǒng)計(jì)、輸出信息、安全退出的程序如下 Private Sub changepassword_Click() password.Show End Sub Private Sub Command1_Click(Index As Integer) On Error Resume Next Dim ask As Integer Select Case Index Case 0 Adodc1.Recordset.MoveFirst Adodc2.Recordset.MoveFirst Case 1 Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst Adodc2.Recordset.MovePrevious If Adodc2.Recordset.BOF Then Adodc2.Recordset.MoveFirst Case 2 Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast - 13 - Adodc2.Recordset.MoveNext If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast Case 3 Adodc1.Recordset.MoveLast Adodc2.Recordset.MoveLast Case 5 ask = MsgBox(delete?, vbYesNo) If ask = 6 Then If Adodc1.Recordset.RecordCount = 0 Or Adodc2.Recordset.RecordCount = 0 Then MsgBox (there is no record to be deleted) Else Adodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition Adodc1.Recordset.Delete Adodc2.Recordset.Delete Adodc1.Recordset.MoveNext Adodc2.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast If Adodc2.Recordset.EOF Then Adodc2.Recordset.MoveLast End If End If Case 4 addinformation.Show Case 6 Adodc1.Recordset.Update Case 7 Adodc1.Recordset.CancelUpdate End Select End Sub Private Sub Command2_Click() Dim mpath$, mlink$ mpath = App.Path 獲取程序所在的路徑 If Right(mpath, 1) Then mpath = mpath + 判斷是否為子目錄 以下兩行代碼可合成一句， mlink 存放 ConnectionString 屬性的設(shè)置值 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 14 - mlink = Provider=Microsoft.Jet.OLEDB.4.0； 指定提供者 mlink = mlink + Data Source= + mpath + database1.mdb 在數(shù)據(jù)庫(kù)文件名前插入路徑 Adodc1.ConnectionString = mlink 設(shè)置連接屬性 Adodc1.CommandType = adCmdUnknown 指定記錄集命令類型（可在設(shè)計(jì)時(shí)指定） Adodc2.ConnectionString = mlink 設(shè)置連接屬性 Adodc2.CommandType = adCmdUnknown sc = Text6.Text lc = Text7.Text If 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) = & lc & Adodc2.Refresh Set DataGrid1.DataSource = Adodc1 Set DataGrid2.DataSource = Adodc2 ElseIf 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.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 - 15 - Set DataGrid2.DataSource = Adodc2 Else MsgBox 你應(yīng)該輸入查詢條件 , vbOKOnly, 查詢錯(cuò)誤 End If End Sub Private Sub Command3_Click() On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二進(jìn)制讀方式打開源文 件 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 adminform.Adodc1.Recordset.Update Close #1 End Sub Private Sub DataGrid1_Click() Adodc2.Recordset.AbsolutePosition = Adodc1.Recordset.AbsolutePosition End Sub Private Sub exit_Click() 當(dāng)有新 學(xué)生 時(shí)，管理人員需要添加新學(xué)生的信息，點(diǎn)擊添加按鈕，進(jìn)入到了添加員工信息界面 ，添加學(xué)生信息界面如圖 5-3 所示。 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 16 - 圖 5-3 添加學(xué)生信息界面 當(dāng)管理人員添加完學(xué)生信息，點(diǎn)擊添加按鈕，學(xué)生的信息就可以添加進(jìn)去了。 學(xué)生信息添加后的界面如圖 5-4 所示。 - 17 - 圖 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.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.Adodc1.Recordset.Fields(年齡 ) = Text11 adminform.Adodc1.Recordset.Fields(專業(yè) ) = Text12 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 18 - 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 exist) 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) = Val(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.Adodc2.Refresh MsgBox (succeed) Unload Me adminform.Show End If End Sub Private Sub Command2_Click() adminform.Adodc1.Recordset.CancelUpdate Unload Me adminform.Show - 19 - End Sub Private Sub Command3_Click() On Error Resume Next Dim strb() As Byte CommonDialog1.ShowOpen Open CommonDialog1.FileName For Binary As #1 以二進(jìn) 制讀方式打開源文件 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 #1 End Sub Private Sub Text1_LostFocus() If Text1 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text2_LostFocus() If Text2 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text3_LostFocus() If Text3 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text4_LostFocus() If Text4 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text5_LostFocus() If Text5 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text7_LostFocus() If Text7 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 20 - End Sub Private Sub Text8_LostFocus() If Text8 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text9_LostFocus() If Text9 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text10_LostFocus() If Text10 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text11_LostFocus() If Text11 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub Private Sub Text12_LostFocus() If Text12 = Then MsgBox (請(qǐng)輸入數(shù)據(jù) ) End Sub 管理員修改密碼界面如圖 5-5 所示 圖 5-5 修改密碼 修改密碼的程序如下： Private Sub Command1_Click() If Text1.Text = Then MsgBox 請(qǐng)輸入用戶名！ , vbOKOnly + vbInformation, 注意 - 21 - Text1.SetFocus Exit Sub ElseIf Text2.Text = Then MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbInformation, 注意 Text2.SetFocus Exit Sub ElseIf Text3.Text = Then MsgBox 請(qǐng)?jiān)俅屋斎朊艽a！ , vbOKOnly + vbInformation, 注意 Text3.SetFocus Exit Sub End If If Text2.Text Text3.Text Then MsgBox 兩次輸入的密碼不同，請(qǐng)重新輸入密碼！ , vbOKOnly + vbInformation, 注意 Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End If Adodc1.ConnectionString = mlink 設(shè)置連接屬性 Adodc1.CommandType = adCmdUnknown 指定記錄集命令類型（可在設(shè)計(jì)時(shí)指定） If 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.Fields(admin) = Text1 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 22 - Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show End If Else Adodc1.RecordSource = select * from guestlogin where guest= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the username has already exist) 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 If End If End Sub Private Sub Command2_Click() Unload Me loginform.Show End Sub Private Sub Form_Load() Dim mpath$ - 23 - 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.CommandType = adCmdUnknown If admin = True Then Adodc1.RecordSource = Select * from adminlogin where admin= Adodc1.Refresh Else Adodc1.RecordSource = Select * from guestlogin where guest= Adodc1.Refresh End If End Sub 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 24 - 5.3普通用戶模塊 5.3.1一般用戶主界面 用戶管理模塊是為了方便管理人員對(duì)員工權(quán)限管理和修改用戶密碼而設(shè)置的，當(dāng)用戶經(jīng)過人事調(diào)動(dòng)升職以后，他的用戶權(quán)限可能會(huì)發(fā)生改變；若是員工自己修改密碼后，可能會(huì)忘記密碼，這時(shí)，管理人員就可以根據(jù)員工的需要，重新修改密碼。 用戶登錄后界面如圖 5-6 所示。 圖 5-6 用戶登錄后界面 5.3.2修改密碼 修改用戶密碼界面如圖 5-7、 5-8 所示。 - 25 - 圖 5-7 用戶修改密碼 圖 5-8 密碼修改成功 修改用戶密碼程序代碼如下： Private Sub Command1_Click() If Text1.Text = Then MsgBox 請(qǐng)輸入用戶名！ , vbOKOnly + vbInformation, 注意 Text1.SetFocus Exit Sub ElseIf Text2.Text = Then MsgBox 請(qǐng)輸入密碼！ , vbOKOnly + vbInformation, 注意 Text2.SetFocus 基于 VB 的學(xué)生信息管理的設(shè)計(jì)與實(shí)現(xiàn) - 26 - Exit Sub ElseIf Text3.Text = Then MsgBox 請(qǐng)?jiān)俅屋斎朊艽a！ , vbOKOnly + vbInformation, 注意 Text3.SetFocus Exit Sub End If If Text2.Text Text3.Text Then MsgBox 兩次輸入的密碼不同，請(qǐng)重新輸入密碼！ , vbOKOnly + vbInformation, 注意 Text2.Text = Text3.Text = Text2.SetFocus Exit Sub End If Adodc1.ConnectionString = mlink 設(shè)置連接屬性 Adodc1.CommandType = adCmdUnknown 指定記錄集命令類型（可在設(shè)計(jì)時(shí)指定） If 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.Fields(admin) = Text1 Adodc1.Recordset.Fields(password) = Text2 Adodc1.Recordset.Update MsgBox (succeed) Unload Me loginform.Show - 27 - End If Else Adodc1.RecordSource = select * from guestlogin where guest= & Text1 & Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MsgBox (the username has already exist) 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 If End If End Sub Private Sub Command2_Click() Unload Me loginform.Show End Sub Private Sub Form_Load() Dim mpath$ mpath = App.Path 獲取程序所在的路徑 If Right(mpath, 1) Then mpath = mpath + 判斷是否為子目錄 以下兩行代碼可合成一句， mlink 存放 Connection