Vb學(xué)生管理系統(tǒng)

1、用心、精心、決心、匠心 第一章緒論 1.1引言人類有幾千年的歷史，計(jì)算機(jī)從產(chǎn)生到現(xiàn)在只不過(guò)50多年，而網(wǎng)絡(luò)的迅速發(fā)展也不過(guò) 10年的時(shí)間。但是，計(jì)算機(jī)和網(wǎng)絡(luò)對(duì)社會(huì)的影響已經(jīng)迅速擴(kuò)大，甚至在改變?nèi)藗兊纳?。特別是 90年代以來(lái)，多媒體和網(wǎng)絡(luò)技術(shù)的飛速發(fā)展正在以驚人的速度改變著人們的工作方式、交往 方式和生活方式。正像著名的未來(lái)學(xué)家尼葛洛龐帝（1997）所說(shuō)的：“數(shù)字不再只和計(jì)算有關(guān)，它決定我們的生存?！笨茖W(xué)技術(shù)是第一生產(chǎn)力， 是最先進(jìn)的生產(chǎn)力?，F(xiàn)在，已經(jīng)沒(méi)有人懷疑信息 技術(shù)的發(fā)展將會(huì)引起人類社會(huì)全面和深刻的變革，使人類社會(huì)由工業(yè)社會(huì)邁向信息社會(huì)。 目前，在社會(huì)各個(gè)方面都呈現(xiàn)出了與工業(yè)社會(huì)顯著不同

2、的特點(diǎn)。網(wǎng)上書(shū)店，網(wǎng)上醫(yī)院，網(wǎng)上學(xué)校，網(wǎng)上購(gòu)物，網(wǎng)上銀行，政府上網(wǎng)等新事物如雨后春筍般涌現(xiàn)出來(lái)，對(duì)人們的傳統(tǒng)生活方式、 工作方式產(chǎn)生極大的沖擊。使人們感受到技術(shù)發(fā)展的脈搏和信息時(shí)代前進(jìn)的步伐。隨著學(xué)校的規(guī)模不斷擴(kuò)大， 學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量需要有學(xué)生管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化，其主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生各種信息進(jìn)行日常管理，如查詢、修改、增加、刪除，另外還考慮

3、到學(xué)生選課，針對(duì)這些要求設(shè)計(jì)了學(xué)生成績(jī)管理系統(tǒng)。本系統(tǒng)主要包括系統(tǒng)設(shè)置、學(xué)生信息查詢、學(xué)生信息錄入、管理、瀏覽、打印和幫助七部 分。其功能主要有：1、有關(guān)學(xué)生成績(jī)等信息的輸入，包括輸入學(xué)生基本信息、課程和成績(jī)等。2、學(xué)生信息的查詢，包括查詢學(xué)生基本信息、已學(xué)課程和成績(jī)等。3、學(xué)生信息的修改。嘔心瀝血整理word1用心、精心、決心、匠心4、學(xué)生信息管理信息的輸入，包括輸入課程設(shè)置、成績(jī)等。5、學(xué)生成績(jī)管理信息的查詢。6、學(xué)生成績(jī)管理信息的修改。7、學(xué)生課程的設(shè)置和修改。學(xué)生成績(jī)管理系統(tǒng)是典型的信息管理系統(tǒng)（MIS）,其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求

4、建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。經(jīng)過(guò)分析，我們使用 MICROSOFT司的VISUAL BASIC開(kāi)發(fā)工具，利用其提供的各種面向 對(duì)象的開(kāi)發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對(duì)初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶 滿意的可行系統(tǒng)。1.2 開(kāi)發(fā)目的、背景與意義幾年前，各個(gè)學(xué)校的學(xué)生成績(jī)管理基本上都是靠手工進(jìn)行，隨著各個(gè)大學(xué)，有關(guān)學(xué)生成績(jī) 管理工作所涉及的數(shù)據(jù)量越來(lái)越大，有的學(xué)校不得不靠增加人力、物力來(lái)進(jìn)行學(xué)生成績(jī)管理。 但手工管理具有效率底、易出錯(cuò)、檢索

5、信息慢、對(duì)學(xué)校的管理提供決策信息較為困難等缺點(diǎn)。 我校盡管部分學(xué)院或系已開(kāi)出學(xué)生成績(jī)管理系統(tǒng)，但開(kāi)發(fā)的系統(tǒng)不具有通用性，所以我想借本 次畢業(yè)設(shè)計(jì)之際，開(kāi)發(fā)一個(gè)不僅適用本校各系而且適用于其它各校的通用學(xué)生成績(jī)管理系統(tǒng)。建立學(xué)生成績(jī)管理系統(tǒng)，采用計(jì)算機(jī)對(duì)學(xué)生成績(jī)進(jìn)行管理，進(jìn)一步提高辦學(xué)效益和現(xiàn)代化 水平。幫助廣大教師提高工作效率，實(shí)現(xiàn)學(xué)生成績(jī)信息管理工作流程的系統(tǒng)化、規(guī)范化和自動(dòng) 化。以上各類信息目前還處于手工或半手工的管理狀態(tài)，效率低，可靠性差。配備電腦， 但實(shí) 際利用率不高，如果采用計(jì)算機(jī)進(jìn)行以上各類信息的管理，必將大大提高工作效率，對(duì)學(xué)校各類信息的維護(hù)及了解起到積極的作用。另外隨著計(jì)算機(jī)網(wǎng)絡(luò)

6、的持續(xù)發(fā)展，無(wú)論是工作、學(xué)習(xí)還是生活，將會(huì)越來(lái)越多地融入到流動(dòng)的比特中，人們的工作節(jié)奏在不斷加快， 需要快捷的信息來(lái)源，并對(duì)此作出反應(yīng)。因此，無(wú)論是從目前的現(xiàn)狀來(lái)看，還是面向未來(lái)，一個(gè)功能完備的學(xué) 校信息管理系統(tǒng)的開(kāi)發(fā)都非常有必要。本人作為學(xué)習(xí)計(jì)算機(jī)專業(yè)的一員， 對(duì)系統(tǒng)的需求作了較深入的認(rèn)識(shí)， 同時(shí)也掌握了一定的 系統(tǒng)開(kāi)發(fā)理論，借這次畢業(yè)設(shè)計(jì)的契機(jī)， 一方面利用自己的所學(xué)小刀試牛， 另一方面通過(guò)這次 實(shí)踐必將提升自身對(duì)軟件工程、數(shù)據(jù)庫(kù)、程序設(shè)計(jì)等理論的認(rèn)識(shí)，積累系統(tǒng)開(kāi)發(fā)的經(jīng)驗(yàn)。1.3 系統(tǒng)概述學(xué)生成績(jī)管理系統(tǒng)能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以?lái)人們使用傳統(tǒng)人工的方式管理文件檔案

7、，這種管理方式存在著許多缺點(diǎn) ，如：效率低、保密性差，另外時(shí)間 一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn) 入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(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ī)化管理，與世界接軌的 重要條件。因此，開(kāi)發(fā)這樣一套管理軟件成為很有必要的。本系統(tǒng)具有較強(qiáng)的實(shí)用性和先進(jìn)性

8、、規(guī)范管理、快速查詢等特點(diǎn)。1.4 開(kāi)發(fā)工具簡(jiǎn)介本系統(tǒng)的設(shè)計(jì)是在 Windows XP簡(jiǎn)體中文版操作系統(tǒng)環(huán)境下，使用 MS 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 是一種可視化的、面對(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

9、 的專業(yè)開(kāi)發(fā)工具 SDK相媲美，而且程序開(kāi)發(fā)人員不必具有C/C+瑞程基石在 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)。1.5 Visual Basic系統(tǒng)在程序應(yīng)用中的幾個(gè)常用名詞Visual Basic系統(tǒng)除了一般高級(jí)語(yǔ)言所具有的一些名詞術(shù)語(yǔ)外，還有幾個(gè)系統(tǒng)常用的名詞。其基本含義如下：1）視窗（Form）視

10、窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無(wú)論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是 Windows系統(tǒng)的標(biāo)準(zhǔn)視窗。2）對(duì)象（Object）對(duì)象是VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對(duì)象類型有標(biāo)簽框 （Label Box）,文本框（Text Box）,命令按扭（CommandButton）,網(wǎng)格 （Data Grid） , ADO空件（Adodc1）等。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為 對(duì)象或控件。用戶可以通過(guò)設(shè)置對(duì)象的“屬性”和“方法” ，便于對(duì)象適應(yīng)自己所設(shè)計(jì)應(yīng)用程 序的輸入輸出內(nèi)容，對(duì)象的生成過(guò)程及結(jié)構(gòu)都被封裝起來(lái)。

11、正確使用對(duì)象可以減少程序和開(kāi)發(fā) 時(shí)間，提高程序設(shè)計(jì)者的工作效率嘔心瀝血整理 word4用心、精心、決心、匠心3）屬性（Properties）屬性是VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。用戶通過(guò)適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬 性來(lái)確定對(duì)象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。比如，對(duì)象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。4）事件（Events）事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來(lái)引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的鍵盤事件有 KeyPress （按鍵）事件，KeyDow

12、n#件和KeyUp事件；鼠標(biāo)事件有 Click （單擊鼠標(biāo)）事件， DbDlicd （雙擊鼠標(biāo)）。5）方法（Method）方法主要是指對(duì)一個(gè)對(duì)象使用某種作用的過(guò)程。它是在程序執(zhí)行的過(guò)程中要計(jì)算機(jī)執(zhí)行的某種操作。其程序的方法有 Show（顯示）方法，Hide （隱藏）方法，Refresh （刷新）方法。6）過(guò)程（Procedure）過(guò)程是指經(jīng)過(guò)定義或說(shuō)明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。7）模塊（Module）模塊是指一些運(yùn)算量或過(guò)程進(jìn)行聲明或定義的一個(gè)集合。系統(tǒng)程序大體可分成四個(gè)模塊： 數(shù)據(jù)輸入、根據(jù)查詢、數(shù)據(jù)打印和幫助。第2章系統(tǒng)分析本學(xué)生信息管理系統(tǒng)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管

13、理系統(tǒng)，這它集成了學(xué)生信息管 理、學(xué)生成績(jī)管理、學(xué)生課程管理等多種功能，因而具有較強(qiáng)的實(shí)用性。2.1 系統(tǒng)及需求分析2.1.1 系統(tǒng)需求通過(guò)調(diào)查，要求系統(tǒng)需要有以下功能：1 要求有良好的人機(jī)交互界面；嘔心瀝血整理word5用心、精心、決心、匠心2由于該系統(tǒng)使用對(duì)象多，要求有較好的權(quán)限管理；3 原始數(shù)據(jù)修改簡(jiǎn)單方便，支持多條件修改4 方便的數(shù)據(jù)查詢，支持多條件查詢；5 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便，數(shù)據(jù)穩(wěn)定性好；6數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。2.1.2 需求分析目前計(jì)算機(jī)管理在日常生活中的地位變得越來(lái)越重要。它能夠代替人做各種重復(fù)、 繁瑣的勞動(dòng)，并且擁有操作簡(jiǎn)單、可信度好、不易出錯(cuò)等優(yōu)點(diǎn)

14、，大大減少了不必要的人力消耗，提高 個(gè)人的工作效率。學(xué)生信息查詢是每個(gè)學(xué)校必須面臨的問(wèn)題，所以，如何開(kāi)發(fā)一個(gè)應(yīng)用簡(jiǎn)單、 界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問(wèn)題。學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)， 是在班級(jí)學(xué)生處數(shù)據(jù)庫(kù)基礎(chǔ)上， 只對(duì)學(xué)生成績(jī)信息進(jìn)行 管理的一個(gè)系統(tǒng)，是對(duì)學(xué)校教務(wù)管理系統(tǒng)的補(bǔ)充， 主要是針對(duì)輔導(dǎo)員的需要， 主要包括三個(gè)用 戶群：學(xué)生、管理員。學(xué)生，主要的需求有成績(jī)查詢、個(gè)人信息查詢、密碼修改。教師，主要的需求有個(gè)人信息管理、密碼修改、學(xué)生查詢、 。管理員，主要的需求有學(xué)生成績(jī)管理、學(xué)生信息管理、學(xué)生信息的一致性維護(hù)。2.2 系統(tǒng)方案確定通過(guò)對(duì)系統(tǒng)的調(diào)研與分析

15、， 系統(tǒng)主要應(yīng)完成的功能有： 系統(tǒng)設(shè)置、數(shù)據(jù)錄入數(shù)據(jù)管理、 數(shù) 據(jù)瀏覽、數(shù)據(jù)查詢、數(shù)據(jù)打印、幫助。2.3 可行性分析由于本系統(tǒng)管理的對(duì)象單一，且每個(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)。2.3.1 經(jīng)濟(jì)可行性分析隨著科學(xué)技術(shù)的不斷發(fā)展與創(chuàng)新，計(jì)算機(jī)作用的日益突顯，計(jì)算機(jī)軟件成為人們解決問(wèn)題 的一個(gè)有效手段，當(dāng)然，它的作用也越來(lái)越重要。在當(dāng)

16、今信息時(shí)代，國(guó)民經(jīng)濟(jì)和國(guó)防建設(shè)、社 會(huì)發(fā)展、人民生活都離不開(kāi)軟件，軟件也無(wú)處不在。軟件產(chǎn)業(yè)也是一個(gè)新興產(chǎn)業(yè)，盡管起步晚，但是發(fā)展迅速，已經(jīng)成為增長(zhǎng)最快的產(chǎn)業(yè)，是具有高投入/高產(chǎn)出、無(wú)污染、低能耗的綠色產(chǎn)業(yè)。學(xué)生信息查詢系統(tǒng)是一個(gè)基于教務(wù)處數(shù)據(jù) 庫(kù)的一個(gè)管理系統(tǒng)，對(duì)已經(jīng)使用的類似的系統(tǒng)進(jìn)調(diào)查分析、類比，本課題具有的特點(diǎn)：開(kāi)發(fā)工 作量小，可以有兩個(gè)人合作開(kāi)發(fā)或一個(gè)人獨(dú)立開(kāi)發(fā)，開(kāi)發(fā)周期短，有熟練的開(kāi)發(fā)人員一個(gè)月就可以完成系統(tǒng)的開(kāi)發(fā)與測(cè)試。2.3.2 技術(shù)可行性分析從技術(shù)方面來(lái)說(shuō)，Visual Basic是一個(gè)企業(yè)級(jí)的、面向?qū)ο蟮目焖賾?yīng)用開(kāi)發(fā)工具，是數(shù)據(jù)庫(kù)最優(yōu)秀的開(kāi)發(fā)工具之一。Visual Basic

17、完全支持面向?qū)ο蟮拈_(kāi)發(fā)，它擁有多種數(shù)據(jù)庫(kù)接口，可以非常方便地連接的各種數(shù)據(jù)源，再加之其專利產(chǎn)品Data Window （數(shù)據(jù)窗口），通過(guò)SQL語(yǔ)句即可輕松地查詢和更新后臺(tái)數(shù)據(jù)庫(kù)中的數(shù)據(jù)。Visual Basic基于組件的開(kāi)發(fā)增強(qiáng)了面向?qū)ο蟮募夹g(shù)，他提供一個(gè)更有效的封裝、管理、重用和擴(kuò)展企業(yè)規(guī)則和處理的高層途徑。在數(shù)據(jù)操作方面，選擇靈活、易用的 Microsoft Access數(shù)據(jù)源。2.4 系統(tǒng)流程設(shè)計(jì)本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)事務(wù)型管理系統(tǒng)。圖2.1系統(tǒng)流程設(shè)計(jì)圖2.5 功能分布圖分析功

18、能層次圖如下：圖2.2功能分布圖第三章系統(tǒng)數(shù)據(jù)結(jié)構(gòu)設(shè)計(jì)3.1 數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)采用了 Microsoft推出的Access數(shù)據(jù)庫(kù)，這是微軟集成到Office中的一個(gè)桌面數(shù)據(jù)庫(kù)，能夠快速方便的和Office的其他套件綜合使用。由于 Microsoft Access具有顯著的簡(jiǎn)易性和有效性，大量的桌面數(shù)據(jù)庫(kù)系統(tǒng)都采用Microsoft Access作為后臺(tái)數(shù)據(jù)庫(kù)。使用Microsoft Access的好處還在于，如果你的系統(tǒng)擴(kuò)展到Client/Server 模式的時(shí)候，可以使用Microsoft的數(shù)據(jù)庫(kù)服務(wù)器軟件 SQL Server,此時(shí)，程序只需要簡(jiǎn)單的修改一下鏈接就可 以，這樣，為程序的平滑

19、擴(kuò)展提供了非常有力的條件。3.1.1 各表的物理結(jié)構(gòu)如下表 3.1student 圖字段名稱字段長(zhǎng)度Id3文本Name10文本Sex2文本Nationality10文本Birth50文本political_party4文本family_place50文本Residence50文本indate50文本表 3.2lessons 圖字段名稱字段長(zhǎng)度Id3文本LessonName50文本Term50文本Teacher50文本Hours50文本LessonType50文本表 3.3scores 圖字段名稱字段長(zhǎng)度Id3文本Name50文本Vb長(zhǎng)整型數(shù)字Asp長(zhǎng)整型數(shù)字Net長(zhǎng)整型數(shù)字C+長(zhǎng)整型數(shù)字Swi

20、m長(zhǎng)整型文本3d長(zhǎng)整型數(shù)字English長(zhǎng)整型數(shù)字Application長(zhǎng)整型數(shù)字Dreamweaver長(zhǎng)整型數(shù)字表 3.4name 圖字段名稱字段長(zhǎng)度Username6文本Password6文本第四章.總體設(shè)計(jì)4.1系統(tǒng)的功能簡(jiǎn)介本系統(tǒng)的主要任務(wù)是實(shí)現(xiàn)對(duì)學(xué)生的信息管理，成績(jī)管理，課程管理及相關(guān)查詢。其主要功能包括：1）學(xué)生信息管理功能修改學(xué)生信息，包括：編號(hào)，姓名，性別，出生日期，民族，家庭住址和籍貫等。刪除學(xué)生，當(dāng)學(xué)生畢業(yè)后，學(xué)生信息轉(zhuǎn)移備份數(shù)據(jù)庫(kù)中， 系統(tǒng)的基本數(shù)據(jù)庫(kù)中需要?jiǎng)h除學(xué)生信息。2）學(xué)生成績(jī)管理功能對(duì)學(xué)生各科的成績(jī)進(jìn)行修改等。3）學(xué)生課程管理功能對(duì)課程的編號(hào)，名稱，學(xué)期和學(xué)時(shí)等4

21、）瀏覽功能瀏覽學(xué)生信息表，學(xué)生課程表，學(xué)生成績(jī)表。5）學(xué)生信息錄入功能添加學(xué)生，添加新的學(xué)生信息，包括：編號(hào)，姓名，性別，出生日期，民族，家庭住址和籍貫等。6）學(xué)生課程錄入功能添加新的課程，包括：課程的編號(hào)，名稱，學(xué)期和學(xué)時(shí)等。7）學(xué)生成績(jī)錄入功能分?jǐn)?shù)錄入，錄入各科目的成績(jī)。8）打印報(bào)表功能打印學(xué)生信息表，學(xué)生課程表，學(xué)生成績(jī)表。4.2 系統(tǒng)的開(kāi)發(fā)目標(biāo)通過(guò)運(yùn)用計(jì)算機(jī)建立本系統(tǒng)，希望能夠使輔導(dǎo)員及時(shí)了解學(xué)生信息，大幅度提高工作效率， 并為各種用戶提供信息的快速查詢與方便管理，并能結(jié)合當(dāng)時(shí)的最新數(shù)據(jù)進(jìn)行統(tǒng)計(jì)。這樣，對(duì)輔導(dǎo)員來(lái)說(shuō)，也明顯提高了效率，對(duì)作出正確判斷提供了依據(jù)。4.3 系統(tǒng)設(shè)計(jì)的要求用戶

22、，應(yīng)用程序登陸時(shí)，可以使用兩種身份：管理員，其權(quán)限最大；學(xué)生，其權(quán)限次之。權(quán)限，學(xué)生是沒(méi)有權(quán)限修改、添加、刪除數(shù)據(jù)庫(kù)中得除密碼以外的任何信息（學(xué)生信息、成績(jī) 信息、課程信息等），數(shù)據(jù)的更新由管理員來(lái)管理。4.4 數(shù)據(jù)運(yùn)行的環(huán)境本系統(tǒng)采用的是 Microsoft Access 數(shù)據(jù)庫(kù)，它是對(duì)數(shù)據(jù)庫(kù)進(jìn)行操作的應(yīng)用程序，因此需 要有較好的配置。所需要的硬件配置如下：Pentium 800以上；10GB以上硬盤；不少于128MB內(nèi)存。另外，開(kāi)發(fā)工具 VB所需硬件配置如下：CELERONZ上的CPU 128M以上的內(nèi)存，10G 以上的硬盤。為了能夠使本系統(tǒng)快速方便準(zhǔn)確的操作，通過(guò)比較與權(quán)衡，本系統(tǒng)所采用

23、的硬件配置如下：顯示器一臺(tái)（分辨率為 1024*768）,硬盤為80G,內(nèi)存為512M CPU Pentium2.0G。軟件配置 如下：操作系統(tǒng)包括 WinXP/Win2000/WinNT4/WinMe 4.5項(xiàng)目模塊規(guī)劃學(xué)生成績(jī)管理系統(tǒng)是一個(gè)典型的數(shù)據(jù)庫(kù)應(yīng)用程序，主要有七個(gè)模塊：系統(tǒng)設(shè)置，數(shù)據(jù)錄入，數(shù)據(jù)管理，數(shù)據(jù)瀏覽，數(shù)據(jù)查詢，數(shù)據(jù)打印和幫助。下面將對(duì)各個(gè)模塊實(shí)現(xiàn)的功能做簡(jiǎn)要的介 紹。4.5.1 系統(tǒng)設(shè)置模塊該模塊的主要功能是添加用戶，修改密碼，系統(tǒng)注銷和退出系統(tǒng)。4.5.2 數(shù)據(jù)錄入模塊該模塊的主要功能是向?qū)W生信息表，學(xué)生課程表，學(xué)生成績(jī)表錄入數(shù)據(jù)。4.5.3 數(shù)據(jù)管理模塊該模塊的主要功能

24、是對(duì)學(xué)生信息表，學(xué)生課程表，學(xué)生成績(jī)表的數(shù)據(jù)進(jìn)行管理。4.5.4 數(shù)據(jù)瀏覽模塊該模塊的主要功能是瀏覽學(xué)生信息表，學(xué)生課程表，學(xué)生成績(jī)表。4.5.5 數(shù)據(jù)查詢模塊該模塊的主要功能是按照學(xué)生的編號(hào)或姓名進(jìn)行查詢。4.5.6 數(shù)據(jù)打印模塊該模塊的主要功能是打印學(xué)生信息表，學(xué)生課程表，學(xué)生成績(jī)表4.5.7 幫助模塊可以查看學(xué)生成績(jī)管理系統(tǒng)的詳細(xì)信息。第5章系統(tǒng)詳細(xì)設(shè)計(jì)5.1 系統(tǒng)登陸界面本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在name表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限。圖5.1登錄界面圖5.2 系統(tǒng)主界面本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能

25、，共有7個(gè)功能菜單和若干個(gè)子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)從用戶信息管理，課程信息管理，成績(jī)信息管 理具體功能。表5.1文本編輯器中菜單控件的屬性設(shè)置及說(shuō)明圖標(biāo)題名稱說(shuō)明系統(tǒng)設(shè)置（&F）xtsz主菜單項(xiàng)添加用戶tjyh子菜單項(xiàng)修改密碼xgmm子菜單項(xiàng)系統(tǒng)注銷xtzx子菜單項(xiàng)退出系統(tǒng)text子菜單項(xiàng)數(shù)據(jù)錄入sjlr主菜單項(xiàng)學(xué)生信息表xxb子菜單項(xiàng)學(xué)生課程表kcb子菜單項(xiàng)學(xué)生成績(jī)表cjb子菜單項(xiàng)數(shù)據(jù)管理（&V）sjgl主菜單項(xiàng)學(xué)生信息表xsxxb子菜單項(xiàng)學(xué)生課程表xskcb子菜單項(xiàng)學(xué)生成績(jī)哀xscjb子菜單項(xiàng)數(shù)據(jù)瀏覽（&C）sjll主菜單項(xiàng)瀏覽liulan子菜單項(xiàng)數(shù)據(jù)查

26、詢（&R）sjcx主菜單項(xiàng)學(xué)生信息表xsxx子菜單項(xiàng)學(xué)生課程表xskc子菜單項(xiàng)學(xué)生成績(jī)哀xscj子菜單項(xiàng)數(shù)據(jù)打?。?amp;U）sjdy主菜單項(xiàng)學(xué)生信息表dyxxb子菜單項(xiàng)學(xué)生課程表dykcb子菜單項(xiàng)學(xué)生成績(jī)哀dycjb子菜單項(xiàng)幫助（&H）bz主菜單項(xiàng)嘔心瀝血整理 word34詳細(xì)信息xxxx子菜單項(xiàng)工具欄中按鈕代碼如下：Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.IndexCase 1Call xxxx_ClickCase 2Call xgmm_C

27、lickCase 3Call xskc_ClickCase 4Call liulan_ClickCase 5Call xsxx_ClickCase 6Call xscc_ClickEnd SelectEnd Sub主窗體的界面如下：圖5.2主界面圖代碼如下：Dim b1 As IntegerPrivate Sub ckb_Click()Form5.ShowForm5.Width = 9600Form5.Height = 6800End SubPrivate Sub dycjb_Click()DataReport2.ShowEnd SubPrivate Sub dykcb_Click()Data

28、Report3.ShowEnd SubPrivate Sub dyxxb_Click()DataReport1.ShowEnd SubPrivate Sub kcb_Click()Form4.ShowForm4.Width = 8565Form4.Height = 6400End SubPrivate Sub liulan_Click()Form1.ShowForm1.Width = 8565Forml.Height = 6400End SubPrivate Sub tcxt_Click()EndEnd SubPrivate Sub tjyh_Click()form13.Showform13.

29、Width = 6780form13.Height = 5055End SubPrivate Sub xgmm_Click()form14.Showform14.Width = 6780form14.Height = 5055End SubPrivate Sub xscc_Click()Form8.ShowForm8.Width = 8565Form8.Height = 6400End SubPrivate Sub xscjb_Click()Form11.ShowEnd SubPrivate Sub xskc_Click()Form9.ShowForm9.Width = 8565Form9.H

30、eight = 6400End SubPrivate Sub xskcb_Click()form12.Showform12.Width = 8565form12.Height = 6400End SubPrivate Sub xsxx_Click()Form7.ShowForm7.Width = 8565Form7.Height = 6400End SubPrivate Sub xsxxb_Click()Form10.ShowForm10.Width = 8385Form10.Height = 6400End SubPrivate Sub xxb_Click()Form6.ShowForm6.

31、Width = 8565Form6.Height = 6400End SubPrivate Sub xxxx_Click()Form2.ShowForm2.Width = 6050Form2.Height = 5000End Sub5.3 系統(tǒng)設(shè)置模塊5.3.1 添加用戶模塊本模塊是實(shí)現(xiàn)系統(tǒng)的添加功能，在輸入密碼后必須重新輸入確認(rèn)密碼，否則添加失敗圖5.3添加用戶圖代碼如下：Private Sub Command1_Click()Static aa As IntegerAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find "username=

32、'" + Combo1.Text + "”'Dim bb As Stringbb = Adodc1.Recordset.Fields(1)If Text1.Text = bb ThenIf Combo1.Text <> " 孫付超"ThenMDIForml.tjyh.Enabled = FalseMDIForml.xxb.Enabled = FalseMDIForml.kcb.Enabled = FalseMDIForml.ckb.Enabled = FalseMDIForml.xsxxb.Enabled = FalseMDI

33、Forml.xskcb.Enabled = FalseMDIForml.xscjb.Enabled = FalseEnd IfMDIForml.ShowUnload MeElseIf aa < 3 ThenMsgBox "密碼輸入錯(cuò)誤，是否重新輸入",0 + 48,"系統(tǒng)提示"Text1.Text =""Text1.SetFocusaa = aa + 1ElseText1.Enabled = FalseMsgBox "錯(cuò)誤不得超過(guò)3次，請(qǐng)退出！"EndEnd IfEnd IfEnd SubPrivate Su

34、b Command2_Click()Unload MeEnd SubPrivate Sub Form_Activate()Textl.SetFocusEnd SubPrivate Sub Form_Load()Adodcl.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="App.Path + "student.mdb;Persist Security Info=False"Adodc1.RecordSource = "name"Adodc1.Refres

35、hAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirstDim aa As Integeraa = Adodc1.Recordset.RecordCountDim i As IntegerCombo1.Text = Adodc1.Recordset.Fields(0)For i = 1 To aaCombo1.AddItem Adodc1.Recordset.Fields(0)Adodc1.Recordset.MoveNextNext iEnd SubPrivate Sub Timer1_Timer()Labell.Left = Labell.L

36、eft + 50If Labell.Left >= login.Width ThenLabell.Left = -Label1.Width - 50End IfEnd Sub5.3.2 修改密碼模塊本系統(tǒng)是用戶的安全設(shè)置，實(shí)現(xiàn)各種用戶對(duì)密碼的修改，修改完畢后單擊確認(rèn)即可保存新的密碼圖5.4修改密碼圖5.3.3 退出系統(tǒng)模塊本模塊實(shí)現(xiàn)單擊標(biāo)題欄退出時(shí)，出現(xiàn)消息對(duì)話框：圖5.5退出系統(tǒng)圖代碼如下：Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)Dim aa As IntegerIf b1 <

37、;> 1 Thenaa = MsgBox("是否真的退出程序",4 + 32," 系統(tǒng)提示")If aa = 6 ThenUnload MeElseCancel = 1End IfEnd IfEnd Sub5.3.4 系統(tǒng)注銷模塊本模塊實(shí)現(xiàn)系統(tǒng)注銷時(shí)，出現(xiàn)消息對(duì)話框：圖5.6注銷系統(tǒng)圖代碼如下：Private Sub xtzx_Click()Dim aa As Integeraa = MsgBox("是否真的注銷",4 + 32,"系統(tǒng)提示")If aa = 6 Thenb1 = 1Unload MDIFor

38、m1login.ShowElseCancel = 1End IfEnd Sub5.4 數(shù)據(jù)錄入模塊5.4.1 學(xué)生信息數(shù)據(jù)錄入實(shí)現(xiàn)向?qū)W生信息表中錄入新的信息，包括：學(xué)號(hào)，姓名，性別，出生日期，家庭住址等信息圖5.7學(xué)生信息數(shù)據(jù)錄入圖代碼如下：Private Sub Command1_Click()AdodcI.Recordset.AddNewAdodc1.Recordset.Fields(0) = Text2.TextAdodcl.Recordset.Fields(l) = Text3.TextAdodc1.Recordset.Fields(2) = Text4.TextAdodc1.Reco

39、rdset.Fields(3) = Text5.TextAdodc1.Recordset.Fields(4) = Text6.TextAdodc1.Recordset.Fields(5) = Text7.TextAdodc1.Recordset.Fields(6) = Text8.TextAdodc1.Recordset.Fields(7) = Text9.TextAdodc1.Recordset.Fields(8) = Text10.TextAdodc1.Recordset.UpdateText2.Text =""Text3.Text =""Text4

40、.Text =""Text5.Text =""Text6.Text =""Text7.Text =""Text8.Text =""Text9.Text =""TextIO.Text =""End SubPrivate Sub Command3_Click()Unload MeEnd SubPrivate Sub Command2_Click()Text2.Text =""Text3.Text =""Text4.Tex

41、t =""Text5.Text =""Text6.Text =""Text7.Text =""Text8.Text =""Text9.Text =""Text10.Text =""End SubPrivate Sub Form_Load()Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;DataSource="App.Path + "student.mdb

42、;Persist Security Info=False"Adodc1.RecordSource = "student"Adodc1.RefreshEnd Sub5.4.2 學(xué)生課程數(shù)據(jù)錄入 實(shí)現(xiàn)向?qū)W生課程表中錄入新的信息，包括：課程的編號(hào)，名稱，學(xué)期和學(xué)時(shí)等信息。圖5.8學(xué)生課程數(shù)據(jù)錄入圖5.4.3 學(xué)生成績(jī)數(shù)據(jù)錄入實(shí)現(xiàn)向?qū)W生成績(jī)表中錄入新的學(xué)生各科目的成績(jī)。圖5.9學(xué)生成績(jī)數(shù)據(jù)錄入圖5.5 數(shù)據(jù)管理模塊5.5.1 學(xué)生信息管理管理學(xué)生的學(xué)籍信息，主要的信息有：學(xué)號(hào)、姓名、性別、出生日期、 、入學(xué)時(shí)間、家庭住址 等信息?；镜墓δ馨ǎ盒薷摹h除。基本操作為：按

43、照 Label控件內(nèi)的文字提示進(jìn)行修 改學(xué)生的信息，修改完畢后單擊“保存”按鈕即可。圖5.10學(xué)生信息管理圖代碼如下：Private Sub Command1_Click()AdodcI.Recordset.MoveFirstText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.F

44、ields(4)Text6.Text = Adodc1.Recordset.Fields(5)Text7.Text = Adodc1.Recordset.Fields(6)Text8.Text = AdodcI.Recordset.FieldsText9.Text = Adodc1.Recordset.Fields(8)End SubPrivate Sub Command2_Click()AdodcI.Recordset.MovePreviousIf Adodc1.Recordset.BOF ThenMsgBox "已到記錄首!"Adodc1.Recordset.MoveF

45、irstEnd IfText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.Fields(4)Text6.Text = Adodc1.Recordset.Fields(5)Text7.Text = Adodc1.Recordset.Fields(6)Text8.Text = Adod

46、c1.Recordset.FieldsText9.Text = Adodc1.Recordset.Fields(8)End SubPrivate Sub Command3_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenMsgBox "已到記錄尾!"AdodcI.Recordset.MoveLastEnd IfTextl.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodcl.Recordset.Fields(l)Text3.Text = Adodc1.

47、Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.Fields(4)Text6.Text = Adodc1.Recordset.Fields(5)Text7.Text = Adodc1.Recordset.Fields(6)Text8.Text = AdodcI.Recordset.FieldsText9.Text = Adodc1.Recordset.Fields(8)End SubPrivate Sub Command4_Click()Adodc1.Recordse

48、t.MoveLastText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Text3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.Fields(4)Text6.Text = Adodc1.Recordset.Fields(5)Text7.Text = Adodc1.Recordset.Fields(6)Text8.Text = Adod

49、cI.Recordset.FieldsText9.Text = Adodc1.Recordset.Fields(8)End SubPrivate Sub Command6_Click()Textl.Locked = FalseText2.Locked = FalseText3.Locked = FalseText4.Locked = FalseText5.Locked = FalseText6.Locked = FalseText7.Locked = FalseText8.Locked = FalseText9.Locked = FalseCommand6.Enabled = FalseEnd

50、 SubPrivate Sub Command7_Click()Text1.Locked = TrueText2.Locked = TrueText3.Locked = TrueText4.Locked = TrueText5.Locked = TrueText6.Locked = TrueText7.Locked = TrueText8.Locked = TrueText9.Locked = TrueCommand7.Enabled = FalseCommand6.Enabled = TrueAdodcl.Recordset.Fields(O) = Textl.TextAdodcl.Reco

51、rdset.Fields(l) = Text2.TextAdodc1.Recordset.Fields(2) = Text3.TextAdodc1.Recordset.Fields(3) = Text4.TextAdodc1.Recordset.Fields(4) = Text5.TextAdodc1.Recordset.Fields(5) = Text6.TextAdodc1.Recordset.Fields(6) = Text7.TextAdodc1.Recordset.Fields(7) = Text8.TextAdodc1.Recordset.Fields(8) = Text9.Tex

52、tAdodcI.Recordset.UpdateAdodcI.Recordset.MoveLastEnd SubPrivate Sub Command8_Click()Adodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveLastEnd IfTextl.Text = Adodcl.Recordset.Fields(O)Text2.Text = Adodcl.Recordset.Fields(l)Text3.Text = Adodc1.Recordset.F

53、ields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.Fields(4)Text6.Text = Adodc1.Recordset.Fields(5)Text7.Text = Adodc1.Recordset.Fields(6)Text8.Text = AdodcI.Recordset.FieldsText9.Text = Adodc1.Recordset.Fields(8)End SubPrivate Sub Form_Load()Adodcl.ConnectionString = "

54、;Provider=Microsoft.Jet.OLEDB.4.0;DataSource="App.Path + "student.mdb;Persist Security Info=False"Adodc1.RecordSource = "student"Adodc1.RefreshAdodc1.Recordset.MoveLastAdodc1.Recordset.MoveFirstText1.Text = Adodc1.Recordset.Fields(0)Text2.Text = Adodc1.Recordset.Fields(1)Tex

55、t3.Text = Adodc1.Recordset.Fields(2)Text4.Text = Adodc1.Recordset.Fields(3)Text5.Text = Adodc1.Recordset.Fields(4)Text6.Text = Adodc1.Recordset.Fields(5)Text7.Text = Adodc1.Recordset.Fields(6)Text8.Text = AdodcI.Recordset.FieldsText9.Text = Adodc1.Recordset.Fields(8)End Sub5.5.2 學(xué)生課程管理功能是對(duì)課程信息進(jìn)行管理，可以實(shí)現(xiàn)對(duì)學(xué)生的課程信息進(jìn)行修改和刪除。圖5.11學(xué)生課程管理圖5.5.3 學(xué)生成績(jī)管理管理學(xué)生的成績(jī)信息，主要是對(duì)學(xué)生的成績(jī)信息進(jìn)行，修改，刪除等功能。基本操作是： 首先，要進(jìn)行選擇性的操作(即選擇，修改，刪除)，然后在下面的text控件中輸入學(xué)生的信 息，進(jìn)而實(shí)現(xiàn)了成績(jī)的修改，刪除的功能。圖5.12學(xué)生成績(jī)管理圖5.6 數(shù)據(jù)瀏覽模塊可以通過(guò)combo控件選擇用戶需要瀏覽的表?？梢詾g覽三個(gè)表：學(xué)生信息表，學(xué)生