學(xué)生信息管理系統(tǒng)畢業(yè)論文

1、學(xué)生信息管理系統(tǒng)畢業(yè)論文 作者： 日期：32 個(gè)人收集整理 勿做商業(yè)用途基于DELPHI的學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)【摘要】隨著科學(xué)技術(shù)和信息技術(shù)的發(fā)展,計(jì)算機(jī)領(lǐng)域不斷取得新的研究成果。大家都知道,在學(xué)校工作中學(xué)生的信息管理是一項(xiàng)重要的內(nèi)容.無(wú)論是農(nóng)村學(xué)校還是城市學(xué)校、無(wú)論是小學(xué)還是初中,隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，在學(xué)校里，要處理大量的學(xué)生數(shù)據(jù)信息顯得尤為的重要.為此，學(xué)校不得不建立信息化的學(xué)生信息管理系統(tǒng)。學(xué)生信息管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)學(xué)校要生存和發(fā)展,就要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái),本系統(tǒng)論文主要是管理學(xué)生的資料。重點(diǎn)介紹其功能：學(xué)生信息管

2、理、學(xué)籍管理、成績(jī)管理、獎(jiǎng)懲管理、系統(tǒng)管理。使用delphi設(shè)計(jì)程序進(jìn)行管理操作,并用Access進(jìn)行后臺(tái)數(shù)據(jù)庫(kù)的連接設(shè)計(jì)。主要是以五大功能進(jìn)行系統(tǒng)的設(shè)計(jì)和實(shí)現(xiàn)。隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái),就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。在計(jì)算機(jī)技術(shù)的迅速發(fā)展的前提下，為了加快學(xué)校學(xué)籍管理,開(kāi)發(fā)一套學(xué)籍管理系統(tǒng)迫在眉捷.本系統(tǒng)主要采用Delphi 7做為開(kāi)發(fā)工具,應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計(jì)方法進(jìn)行開(kāi)發(fā)與設(shè)計(jì)的.利用其提供的集成開(kāi)發(fā)環(huán)境及各種控件，尤其是

3、對(duì)數(shù)據(jù)庫(kù)的支持完成對(duì)數(shù)據(jù)庫(kù)的各種操作,達(dá)到對(duì)學(xué)生成績(jī)管理的目的。本系統(tǒng)使用ADO連接數(shù)據(jù)庫(kù)Access2003,提出了權(quán)限管理模塊的具體實(shí)現(xiàn)方法,并完成了相關(guān)軟件的設(shè)計(jì)任務(wù)。最終系統(tǒng)能夠完成信息的輸入、輸出，數(shù)據(jù)的修改、查詢和統(tǒng)計(jì)等功能，使用戶操作起來(lái)簡(jiǎn)便快捷。隨著科學(xué)技術(shù)的不斷進(jìn)步，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)，它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用.作為計(jì)算機(jī)應(yīng)用的一個(gè)重要部分，信息管理系統(tǒng)是一個(gè)由用戶和計(jì)算機(jī)組成的進(jìn)行信息管理、信息收集、存儲(chǔ)處理、傳遞使用和維護(hù)的軟件系統(tǒng)。學(xué)生信息管理系統(tǒng)是學(xué)校地方管理工作過(guò)程中不可缺少的部分，對(duì)學(xué)生信息管理工作，具有著手

4、工管理所無(wú)法比擬的優(yōu)點(diǎn),檢索迅速、查找方便、可靠性高、存儲(chǔ)量大等。這些優(yōu)點(diǎn)能夠極大地提高日常查詢的效率。因此,開(kāi)發(fā)學(xué)生信息管理系統(tǒng)成為很有必要的事情.數(shù)據(jù)庫(kù)技術(shù)是一種計(jì)算機(jī)輔助管理數(shù)據(jù)的方法，它研究如何組織和存儲(chǔ)數(shù)據(jù)，如何高效地獲取和處理數(shù)據(jù)。而在互聯(lián)網(wǎng)日益發(fā)展、壯大的背景下，在因特網(wǎng)普及浪潮持續(xù)高漲的情況下,如何讓原來(lái)在單機(jī)中使用的數(shù)據(jù)庫(kù)可供多機(jī)使用，也成了必然的趨勢(shì)。學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng) （MIS），其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù).而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn).經(jīng)

5、過(guò)分析,我們使用MICROSOFT公司的VISUAL BASIC開(kāi)發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_(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)?！娟P(guān)鍵詞】管理信息系統(tǒng)、學(xué)生管理、delphi應(yīng)用一、 Delphi 概述1.1 Delphi 語(yǔ)言的特點(diǎn) Delphi是基于Object Pascal語(yǔ)言的面象對(duì)象的開(kāi)發(fā)工具,使用其集成開(kāi)發(fā)環(huán)境可以快速地建立應(yīng)用程序，即可開(kāi)發(fā)本地類型的軟件，又可開(kāi)發(fā)客房/服務(wù)器類型的程序，并提供了豐富的數(shù)據(jù)庫(kù)管理工具，在開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序

6、方面具有獨(dú)特的優(yōu)勢(shì)。Delphi的主要特點(diǎn)體現(xiàn)在以下幾個(gè)方面：（1）Delphi為32位應(yīng)用程序,因此其性臺(tái)就像裝上了渦輪引擎一樣強(qiáng)勁有力，使用它可開(kāi)發(fā)出功能強(qiáng)大的應(yīng)用程序。（2）Delphi的編譯器是目前世界上最快的32位本地代碼編譯器.使用這種編譯器產(chǎn)生的運(yùn)行文件EXE是獨(dú)立的，不需要鏈接運(yùn)行時(shí)的解釋器DLL。(3)Delphi可充分發(fā)揮Windwos95/98/2000/xp/2003的強(qiáng)大功能。(4）Delphi提供了多種32位可視組件庫(kù)。（5）Delphi是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語(yǔ)言，因此可做到可視窗體的繼承。（6）Delphi采用3層數(shù)據(jù)管理模式（數(shù)據(jù)層、對(duì)象層、應(yīng)用程序?qū)樱?，把諸

7、如數(shù)據(jù)模型、業(yè)務(wù)規(guī)則、窗體、對(duì)象等集中存儲(chǔ)在對(duì)象存儲(chǔ)庫(kù)中.(7）應(yīng)用程序可通過(guò)在Delphi中使用Borland公司提供的數(shù)據(jù)引擎（BDE)功能，可以毫無(wú)障礙地使用多種數(shù)據(jù)庫(kù)，不論是大型數(shù)據(jù)庫(kù)還是PC機(jī)中的數(shù)據(jù)庫(kù).（8）Delphi中的數(shù)據(jù)庫(kù)感知功能，可使用戶在開(kāi)發(fā)應(yīng)用程序時(shí)就可看到數(shù)據(jù)庫(kù)的動(dòng)態(tài)變化。（9）使用Delphi提供的數(shù)據(jù)庫(kù)瀏覽器，則可使用用戶在Delphi的集成開(kāi)發(fā)環(huán)境中，方便瀏覽、修改、索引數(shù)據(jù)庫(kù).（10)為了便于維護(hù)程序,Delphi將數(shù)據(jù)訪問(wèn)與業(yè)務(wù)規(guī)則從程序中分離出來(lái)，集中存儲(chǔ)在數(shù)據(jù)模型對(duì)象中，當(dāng)業(yè)務(wù)規(guī)則需要修改時(shí)，只需在數(shù)據(jù)模型級(jí)進(jìn)行修改。程序運(yùn)行調(diào)用這些數(shù)據(jù)模型時(shí)，修改的

8、結(jié)果會(huì)自動(dòng)反映在應(yīng)用程序中。此外，在Delphi中，為用戶免費(fèi)提供了2個(gè)用戶許可的本地Interbase(數(shù)據(jù)庫(kù)管理系統(tǒng)）。1.2 Delphi的常用組件:（1） Delphi的常用組件有tlable,tedit，tcombox,tmemo，tbutton,tcheckbox，tradiobutoon,等連數(shù)據(jù)庫(kù)的控件會(huì)在下面連接數(shù)據(jù)庫(kù)時(shí)用到。最簡(jiǎn)單的方法是:1。 在DELPHI中添加adoconnection 控件。連到你要修改的數(shù)據(jù)庫(kù)，active屬性改成true,說(shuō)明數(shù)據(jù)庫(kù)連接成功2。 添加adotable控件，connection 屬性填上第1步中的adoconnection 名稱.t

9、ablename填上你要修改的表，active屬性改成true，說(shuō)明數(shù)據(jù)表連接成功或添加adoquery控件，設(shè)置與adotable稍有不同，就是沒(méi)有tablename屬性，需要在SQL屬性中輸入你連接表的sql語(yǔ)句。3。添加data access 中的 datasource控件。dataset屬性設(shè)置成你第2步中的adotable或adoquery控件名稱。4.在dbgrid控件（可能是你說(shuō)的列表框吧）的datasource屬性中設(shè)置成第3步中datasource控件的名稱.這時(shí)，數(shù)據(jù)表中的數(shù)據(jù)已經(jīng)顯示到了dbgrid中。5. 查看以上用到的adotable和dbgrid的readonly屬

10、性，全部改成false(默認(rèn)false）6. 這時(shí)，你修改列表框中的值后，鼠標(biāo)點(diǎn)另一行后，數(shù)據(jù)會(huì)自動(dòng)保存到oracle表。 第二章 設(shè)計(jì)的目的與需求分析2.1 設(shè)計(jì)的目的隨著計(jì)算機(jī)技術(shù)的發(fā)展和互聯(lián)網(wǎng)時(shí)代的到來(lái)和飛速發(fā)展，我們已經(jīng)進(jìn)入了信息時(shí)代，也有人稱為數(shù)字化時(shí)代,在這數(shù)字化的時(shí)代里，學(xué)校傳統(tǒng)的管理方法和辦學(xué)水平都受到了極大的挑戰(zhàn)。Internet技術(shù)持續(xù)迅猛的發(fā)展，也給傳統(tǒng)的辦學(xué)提出了新的模式。絕大部分大學(xué)和學(xué)院都已接入互聯(lián)網(wǎng)并建成校園網(wǎng)，各校的硬件設(shè)施已經(jīng)比較完善。通過(guò)設(shè)計(jì)和建設(shè)網(wǎng)絡(luò)拓?fù)浼軜?gòu)、網(wǎng)絡(luò)安全系統(tǒng)、數(shù)據(jù)庫(kù)基礎(chǔ)結(jié)構(gòu)、信息共享與管理、信息的發(fā)布與管理，從而方便管理者、老師和學(xué)生間信息發(fā)

11、布、信息交流和信息共享。以現(xiàn)代計(jì)算技術(shù)、網(wǎng)絡(luò)技術(shù)為基礎(chǔ)的數(shù)字化教學(xué)主要是朝著信息化、網(wǎng)絡(luò)化、現(xiàn)代化的目標(biāo)邁進(jìn)。與網(wǎng)絡(luò)技術(shù)相結(jié)合的新型辦學(xué)模式具有對(duì)于教育、教學(xué)過(guò)程來(lái)說(shuō)極為寶貴的特性，可以為新型辦學(xué)模式的建構(gòu)提供理想的環(huán)境。通過(guò)設(shè)計(jì)達(dá)到熟練掌握。NET基本結(jié)構(gòu)以及Visual Basic語(yǔ)言的基本知識(shí)和技能；基本掌握面向?qū)ο蟪绦蜷_(kāi)發(fā)的基本思路和方法；掌握Acess數(shù)據(jù)庫(kù)開(kāi)發(fā)基本知識(shí)；能夠利用所學(xué)的基本知識(shí)和技能，進(jìn)行簡(jiǎn)單數(shù)據(jù)庫(kù)應(yīng)用程序設(shè)計(jì)。根據(jù)題目的要求，給出解決問(wèn)題的方案，通過(guò)分析問(wèn)題、分解問(wèn)題來(lái)解決問(wèn)題，最終達(dá)到熟練掌握Visual Basic語(yǔ)言的運(yùn)用和Visual Studio2008工

12、具的使用。2。2 需求分析用戶的需求具體體現(xiàn)在各種信息的錄入、修改、刪除和查詢，這就要求數(shù)據(jù)庫(kù)結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ).更重要的是數(shù)據(jù)庫(kù)設(shè)計(jì)經(jīng)驗(yàn)在今后其他項(xiàng)目的開(kāi)發(fā)過(guò)程中同樣有著很重要的借鑒作用.學(xué)生管理系統(tǒng)的開(kāi)發(fā)目的是為了實(shí)現(xiàn)學(xué)生課程、學(xué)籍的信息化管理。本系統(tǒng)需要完成的功能有:  有關(guān)學(xué)籍等信息的輸入，包括輸入學(xué)生基本信息、所在班級(jí)、所學(xué)課程和成績(jī)等。學(xué)生信息的查詢,包括查詢學(xué)生基本信息、所在班級(jí)、已學(xué)課程和成績(jī)等。學(xué)生信息的修改。班級(jí)管理信息的輸入，包括輸入班級(jí)設(shè)置、年級(jí)信息等。

13、班級(jí)管理信息的查詢。班級(jí)管理信息的修改。學(xué)生課程的設(shè)置和修改。8。學(xué)生獎(jiǎng)罰情況的查詢。第三章 學(xué)生信息管理系統(tǒng)的總體設(shè)計(jì)3.1模塊的設(shè)計(jì)分析本次設(shè)計(jì)主要分為四個(gè)模塊：管理員模塊、學(xué)生模塊、教師模塊、訪客模塊，詳細(xì)情況如下圖所示:登陸界面管理員學(xué)生教師訪客用戶管理新生注冊(cè)課程班級(jí)信息成績(jī)錄入成績(jī)查詢學(xué)生獎(jiǎng)罰信息個(gè)人信息查詢添加用戶刪除用戶修改用戶密碼數(shù)據(jù)庫(kù)文件備份退出課程設(shè)置班級(jí)輔導(dǎo)員信息個(gè)人成績(jī)查詢班級(jí)成績(jī)查詢學(xué)生信息課程信息重新登陸退出修改個(gè)人信息必修課查詢選修課查詢 3。2可行性分析學(xué)生信息，作為一個(gè)學(xué)校，就有一定的工作量存在，而學(xué)生信息,它的工作量可能是其它信息工作量的幾倍，班級(jí)的增加、

14、班級(jí)的查找、班級(jí)的修改;學(xué)生檔案;課程管理;成績(jī)管理;繳費(fèi)管理；統(tǒng)計(jì)等等，每個(gè)信息的數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進(jìn)行操作，那么，一天的工作量，足以讓人覺(jué)得比較繁瑣，吃不消。針對(duì)這樣的情況，采用讓數(shù)據(jù)的查詢變得簡(jiǎn)單化,數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。學(xué)生信息管理系統(tǒng)是為本校開(kāi)發(fā)的,本系統(tǒng)所采用的語(yǔ)言是Visual Basic，用Microsoft Access 2003數(shù)據(jù)庫(kù)完成.該系統(tǒng)總體有三部分組成，包括用戶管理信息、學(xué)生信息、老師信息。通過(guò)本系統(tǒng)，把本校內(nèi)部查詢用戶管理信息、學(xué)生信息、老師信息各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。通過(guò)本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)

15、行管理,把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。本系統(tǒng)主要信息流程為:管理員維護(hù)接受學(xué)生的信息，學(xué)生信息查詢根據(jù)管理員維護(hù)的學(xué)生信息做出對(duì)所接收的信息合理性進(jìn)行判斷，并交于信息維護(hù)進(jìn)行相應(yīng)的修改，再把信息存入數(shù)據(jù)庫(kù)中。學(xué)生信息是對(duì)學(xué)生進(jìn)行相應(yīng)地修改自己的個(gè)人信息。采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡(jiǎn)化,提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息,使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它信息的，使信息快速高效運(yùn)行.本系統(tǒng)中使用到的數(shù)據(jù)表主要有學(xué)生信息表、登陸信息表、課程表、必修課、選修課成績(jī)表、班級(jí)輔導(dǎo)員信息表、學(xué)生獎(jiǎng)罰信息表，由這七個(gè)表，組成了名為stu

16、dent的數(shù)據(jù)庫(kù)（如圖一）。其中學(xué)生信息表是本系統(tǒng)主要的一張表（圖一）3。3關(guān)系型數(shù)據(jù)庫(kù)的實(shí)現(xiàn)Access2000就是關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)工具，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索.Access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外,Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息.Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器,與其他用戶共享數(shù)據(jù)庫(kù)。Access 是一種關(guān)系數(shù)據(jù)庫(kù)工具，關(guān)系數(shù)據(jù)庫(kù)是已開(kāi)發(fā)的最通用的數(shù)據(jù)庫(kù)之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)

17、發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。數(shù)據(jù)庫(kù)與VB的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ADO方法,打開(kāi)控制面板，打開(kāi)ODBC數(shù)據(jù)源圖標(biāo),選擇“系統(tǒng)DSN”標(biāo)簽，點(diǎn)擊“添加"按鈕，在彈出的“創(chuàng)建新數(shù)據(jù)源”對(duì)話框中選擇名稱為“Microsoft Access Drive（*.mdb）”，點(diǎn)擊“完成"按鈕，在ODBC Microsoft Access 安裝對(duì)話框中在數(shù)據(jù)源名中輸入信息，在數(shù)據(jù)庫(kù)這個(gè)框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫(kù)這一對(duì)話框架中,在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫(kù)所在驅(qū)動(dòng)器，在目錄中選擇庫(kù)所在的文件夾,在文件類型

18、中選擇選“Access數(shù)據(jù)庫(kù)（。mdb)”，在數(shù)據(jù)庫(kù)名中選擇本系統(tǒng)的數(shù)據(jù)庫(kù)，點(diǎn)擊“確定"按鈕即完成數(shù)據(jù)鏈接。所有信息都是根據(jù)這張學(xué)生檔案進(jìn)行有關(guān)的操作,主要的字段有如下表所示：字段代號(hào)字段類型字段長(zhǎng)度是否可以為空備注學(xué)號(hào)Char10否學(xué)生編號(hào)姓名char10否學(xué)生姓名性別char10是學(xué)生性別出生年月char10是民族char1000是籍貫char1000是家庭住址char100是電話char10否入學(xué)年份Char10否班名Char10否專業(yè)名Char10否班治面貌Char10是職務(wù)Char10是宿舍住址Char10否班內(nèi)序號(hào)Char10是學(xué)校char10否 各表間關(guān)系如圖所示：E-

19、R圖：學(xué)生信息表民 族出生年月性 別姓 名學(xué) 號(hào)政治面貌專業(yè)名班 名入學(xué)年份電 話家庭住址籍 貫職 務(wù)宿舍住址學(xué) 校班內(nèi)序號(hào)關(guān)聯(lián)關(guān)聯(lián)關(guān)聯(lián)登陸信息表用戶名密碼身份選修課成績(jī)表必修課成績(jī)表課程表ID必修課程選修課程ID學(xué)號(hào)姓名專業(yè)學(xué)期課程成績(jī)ID學(xué)號(hào)專業(yè)學(xué)期課程成績(jī)姓名第一章 程序設(shè)計(jì)與編碼 4.1 開(kāi)發(fā)平臺(tái)與工具本次系統(tǒng)設(shè)計(jì)，是在Windows XP系統(tǒng)下，基于Visual Studio 2008環(huán)境下,使用Visual Basic語(yǔ)言進(jìn)行編程，通過(guò)與Acess 2003數(shù)據(jù)庫(kù)連接,使整個(gè)系統(tǒng)能更加完美的得以實(shí)現(xiàn)。4。2 程序設(shè)計(jì)4。2。1 登錄模塊程序設(shè)計(jì)本模塊主要是用戶通過(guò)學(xué)生信息管理系統(tǒng)的

20、首頁(yè)登錄進(jìn)入該系統(tǒng).用戶輸入正確的用戶名和密碼,系統(tǒng)會(huì)根據(jù)用戶的身份進(jìn)行相應(yīng)權(quán)限劃分；如果登錄信息有錯(cuò)誤，則系統(tǒng)提示登入錯(cuò)誤的信息,并且禁止系統(tǒng)用戶進(jìn)行任何操作。學(xué)生信息管理系統(tǒng)的登錄主頁(yè)面如圖4.1所示。 圖4。1 學(xué)生信息管理系統(tǒng)登錄首頁(yè)用戶在登錄頁(yè)面寫好用戶名和密碼，選擇登錄,登錄成功則跳轉(zhuǎn)到系統(tǒng)的首頁(yè),否則提示錯(cuò)誤信息。代碼如下:If frm1。DialogResult = Windows.Forms。DialogResult.OK Then If frm1.shenfen。Text = "訪客" Then Shell("explorer.exe http

21、：/www。gzhmt。 1) Me。Close(） Exit Sub ElseIf frm1。shenfen.Text = "學(xué)生" Then studentlogin.Show(） Exit Sub ElseIf frm1。txtUsername.Text = "” Then MsgBox（”用戶名不能為空！"， MsgBoxStyle。OkOnly + MsgBoxStyle.Exclamation, ”information.。") show_login（） Exit Sub ElseIf frm1。txtPassword。Text =

22、 "” Then MsgBox（”密碼不能為空!”， MsgBoxStyle。OkOnly + MsgBoxStyle。Exclamation， "information。."） show_login() Exit Sub ElseIf frm1。shenfen。Text = "請(qǐng)選擇" Then MsgBox(”請(qǐng)選擇身份！"， MsgBoxStyle。OkOnly + MsgBoxStyle.Exclamation, "information。.。”) show_login(） Exit Sub End If Dim t

23、ablename As String = ”登錄信息表” Dim strr As String strr = "select 用戶名,密碼，身份from 登錄信息表where（用戶名= ” & frm1.txtUsername.Text ”)” Try Commonmodule。SQLOpera（strr， tablename) If (Commonmodule。myrow。Item(1) = frm1。txtPassword.Text) And (Commonmodule。myrow。Item（2） = frm1。shenfen.Text) Then Dim str As

24、String str = Application.StartupPath() Me。BackgroundImage = Drawing.Image.FromFile（str ”8.jpg”) Me。Icon = New Icon(str & ”1。ico”) Timer1。Start(） Timer2。Start() Me。Show() ElseIf （Commonmodule.myrow。Item（1） = frm1.txtPassword。Text） Then MsgBox(”身份錯(cuò)誤！"， MsgBoxStyle.OkOnly + MsgBoxStyle。Exclama

25、tion， "information。.。"） show_login（）Exit Sub ElseIf （Commonmodule.myrow.Item（2） = frm1.shenfen.Text) Then MsgBox(”密碼錯(cuò)誤!”， MsgBoxStyle.OkOnly + MsgBoxStyle。Exclamation, "information。.”） show_login() Exit Sub Else MsgBox(”身份或密碼錯(cuò)誤！"， MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation， &qu

26、ot;information.。.”） show_login（） Exit Sub End If Catch ex As Exception MsgBox(”沒(méi)有該用戶！"， MsgBoxStyle。Exclamation + MsgBoxStyle.OkOnly， "information。"） show_login（) Exit Sub End Try ElseIf frm1。DialogResult = Windows。Forms.DialogResult。Cancel Then If MessageBox.Show("你真的不登錄學(xué)生信息管理系統(tǒng)

27、嗎？", ”退出系統(tǒng)提示信息”， _ MessageBoxButtons.YesNo， MessageBoxIcon。Information） = MsgBoxResult.Yes Then Application.Exit() End If End If4。2.2 管理員功能模塊設(shè)計(jì)本模塊中最主要的是管理系統(tǒng)用戶,設(shè)置用戶信息等操作,其中管理系統(tǒng)用戶包括對(duì)他們進(jìn)行添加，修改，刪除及查詢操作。其中系統(tǒng)管理員對(duì)系統(tǒng)用戶進(jìn)行管理的操作頁(yè)面如下圖(4.2)所示： 圖4.2管理員管理用戶操作界面4.2。2.1 用戶管理添加用戶、刪除用戶、修改用戶密碼添加用戶是管理員的專有權(quán)限，其操作頁(yè)面如下

28、圖（4.3）圖（4.4）圖(4.5）所示： 圖4。3 圖4.4 圖4.5添加代碼如下：Dim tablename As String = "登錄信息表" Dim strr As String strr = ”select 用戶名,密碼 from 登錄信息表" Try If TextBox1.Text = "" Then MsgBox(”請(qǐng)輸入用戶名！", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "information。."） TextBox1。Focus() E

29、xit Sub End If If TextBox1。Text = ” Then MsgBox(”請(qǐng)輸入密碼！”， MsgBoxStyle。OkOnly + MsgBoxStyle。Information， ”information。.”) TextBox2.Focus（） Exit Sub End If If TextBox2.Text = TextBox3.Text Then Commonmodule。SQLOpera(strr, tablename) Dim addrow As DataRow = Commonmodule.mytable.NewRow addrow。Item（0） =

30、Trim(TextBox1。Text） addrow.Item(1) = Trim（TextBox2.Text） mytable。Rows。Add（addrow） Commonmodule。mycmdbuilder = New OleDb。OleDbCommandBuilder(Commonmodule.mydap） Commonmodule。mydap.Update（Commonmodule.mydataset， tablename） MsgBox（"添加成功！”, MsgBoxStyle。OkOnly + MsgBoxStyle。Information, ”information

31、.?！? TextBox1.Text = "” TextBox2.Text = "" TextBox3.Text = ” Else MsgBox(”兩次輸入的密碼不匹配,請(qǐng)重新輸入！", MsgBoxStyle。OkOnly + MsgBoxStyle.Information, "information.?！保?TextBox3。Focus（） End If Catch ex As Exception MsgBox（Err.Description, MsgBoxStyle.OkOnly + MsgBoxStyle.Exclamation， ”i

32、nformation.。."） End Try刪除用戶代碼如下：If Commonmodule。myrow。Item（1) = TextBox1.Text Then Try Dim str As String str = ”select from 登錄信息表” Commonmodule.SQLOpera(str, tablename） Commonmodule。mytable.Rows（currentrow）。Delete（) If MsgBox(”確定刪除該用戶嗎？"， MsgBoxStyle。Question + MsgBoxStyle。OkCancel + MsgBo

33、xStyle。DefaultButton2， ”information.。.") = MsgBoxResult。Ok Then Dim cbuild As New OleDb.OleDbCommandBuilder（Commonmodule。mydap) Commonmodule.mydap。InsertCommand = cbuild.GetInsertCommand Commonmodule.mydap.DeleteCommand = cbuild。GetDeleteCommand Commonmodule。mydap。UpdateCommand = cbuild。GetUpda

34、teCommand Commonmodule。mycmdbuilder = New OleDb。OleDbCommandBuilder(Commonmodule.mydap） Commonmodule.mydap。Update(Commonmodule。mydataset， "登錄信息表") MsgBox(”刪除成功！"， MsgBoxStyle.Information + MsgBoxStyle.OkOnly， "infoemation.") ComboBox1。Items.Clear(） TextBox1.Text = ” datashow

35、() End If Catch ex As Exception MsgBox(ex.Message） End Try Else MsgBox(”密碼錯(cuò)誤！不能刪除！"， MsgBoxStyle.OkOnly + MsgBoxStyle。Exclamation， ”information。."） End If End Sub Public Sub datashow() Dim tablename As String = ”登錄信息表” Dim strr As String strr = ”select 用戶名 from 登錄信息表" Try Commonmodule

36、.SQLOpera(strr， tablename） Dim count As Int32 = Commonmodule。mytable.Rows.Count Dim i As Int32 = 0 For i = 0 To count 1 ComboBox1.Items.Add（Commonmodule.mytable.Rows.Item（i）.Item（0）。ToString（）) Next Catch ex As Exception MsgBox（ex。Message) End Try修改用戶密碼代碼如下：If TextBox2.Text = Commonmodule。myrow。Item

37、（1).ToString Then Try If TextBox3。Text = TextBox4.Text Then Commonmodule.myrow。Item(1) = Trim(TextBox3.Text） MsgBox（"密碼修改成功！"， MsgBoxStyle。Information + MsgBoxStyle。OkOnly， "information.”） Dim cbuilder As New OleDb.OleDbCommandBuilder（Commonmodule.mydap） Commonmodule。mydap.InsertComma

38、nd = cbuilder。GetInsertCommand Commonmodule.mydap.DeleteCommand = cbuilder.GetDeleteCommand Commonmodule。mydap。UpdateCommand = cbuilder。GetUpdateCommand Commonmodule.mycmdbuilder = New OleDb.OleDbCommandBuilder(Commonmodule。mydap） Commonmodule。mydap.Update（Commonmodule.mydataset， "登錄信息表”） TextB

39、ox1.Text = "” TextBox2。Text = "” TextBox3.Text = ”" TextBox4。Text = "” TextBox1.Focus（) Else MsgBox（”兩次輸入密碼不相同！請(qǐng)重新輸入!”, MsgBoxStyle.Information + MsgBoxStyle。OkOnly, "information。.?！? TextBox2.Text = ” TextBox3。Text = ” TextBox4.Text = "” TextBox2。Focus（) Exit Sub End I

40、f Catch ex As Exception MsgBox（ex.Message) End Try ElseMsgBox(”原密碼輸入錯(cuò)誤！請(qǐng)重新輸入!”， MsgBoxStyle。Information + MsgBoxStyle。OkOnly， "information。”） TextBox4。Text = ” TextBox2。Text = ” TextBox3。Text = "" TextBox2。Focus(） End If4。2.2。1 新生注冊(cè)這是管理員添加修改新進(jìn)學(xué)生信息的最為重要模塊,如果管理員沒(méi)有這個(gè)功能，學(xué)生信息管理系統(tǒng)就不完美地實(shí)現(xiàn)最基本

41、的功能了。新生注冊(cè)界面如圖（4。6）所示： 圖4。6 新生注冊(cè)界面主代碼如下： Dim tablename As String = ”學(xué)生信息表” Dim strr As String strr = ”select * from 學(xué)生信息表 where(學(xué)號(hào)='" txtid。Text & ”）" Try Commonmodule。SQLOpera（strr， tablename) Dim count As Integer = Commonmodule。mytable。Rows.Count If count 0 Then MsgBox(”學(xué)生信息表中已經(jīng)存在

42、該學(xué)號(hào)的學(xué)生信息!”， MsgBoxStyle.OkOnly + MsgBoxStyle。Information， ”information.。.") Exit Sub Else datashow() End If Catch ex As Exception MsgBox（ex.Message) End Try End Sub Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5。Click Me.Close() End Sub Pub

43、lic Sub datashow() Dim tablename As String = "學(xué)生信息表” Dim strr As String strr = ”select 學(xué)號(hào),姓名,性別,出生年月，民族,籍貫,家庭住址,電話，入學(xué)年份，班名,專業(yè)名，政治面貌，職務(wù)，宿舍住址,班內(nèi)序號(hào) from 學(xué)生信息表 ” Commonmodule。SQLOpera（strr， tablename) If txtid。Text = ” Then MsgBox（”請(qǐng)輸入學(xué)號(hào)!"， MsgBoxStyle。OkOnly + MsgBoxStyle。Information, ”inform

44、ation.。”） txtid。Focus() Exit Sub End If If txtname。Text = ”" Then MsgBox（”請(qǐng)輸入姓名！"， MsgBoxStyle。OkOnly + MsgBoxStyle。Information， ”information。.?！保?txtname。Focus() Exit Sub End If If txtsex。Text = ” Then MsgBox（”請(qǐng)輸入性別！", MsgBoxStyle.OkOnly + MsgBoxStyle。Information, ”information.”） txt

45、sex.Focus() Exit Sub End If If txtbirthyear.Text = "” Then MsgBox(”請(qǐng)輸入出生年份！", MsgBoxStyle。OkOnly + MsgBoxStyle.Information, ”information。.。") txtbirthyear.Focus(） Exit Sub End If If txtbirthmonth。Text = "" Then MsgBox("請(qǐng)輸入出生月份！”， MsgBoxStyle。OkOnly + MsgBoxStyle.Informa

46、tion, ”information。.”） txtbirthmonth.Focus(） Exit Sub End If If txtNation。Text = "” Then MsgBox（”請(qǐng)輸入民族！", MsgBoxStyle.OkOnly + MsgBoxStyle.Information， ”information.”） txtNation。Focus() Exit Sub End If If Txtplace.Text = ”" Then MsgBox（”請(qǐng)輸入籍貫！", MsgBoxStyle。OkOnly + MsgBoxStyle。I

47、nformation, ”information。") Txtplace.Focus（) Exit Sub End If If txtFamilyaddr。Text = ”" Then MsgBox("請(qǐng)輸入家庭住址！”, MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "information.。") txtFamilyaddr。Focus（） Exit Sub End If If txtPhone。Text = "" Then MsgBox（"請(qǐng)輸入電話號(hào)碼！", MsgBoxStyle.OkOnly + MsgBoxStyle.Information， ”information。.") txtPhone.Focus() Exit Sub End If If txtyear。Text = "” Then MsgBox（”請(qǐng)輸入入學(xué)年份！”, MsgBoxStyle.OkOnly + MsgBoxStyle。Information, "inf