基于DELPHI的學(xué)生信息管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)畢業(yè)論文

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

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

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

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

5、，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(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 語言的特點(diǎn) delphi是基于object pascal語言的面象對(duì)象的開發(fā)工具，使用其集成開發(fā)環(huán)境可以快速地建立應(yīng)用程序，即可開發(fā)本地類型的軟件，又可開發(fā)客房/服務(wù)器類型的程序，并提供了豐富的數(shù)據(jù)庫管理工具，在開發(fā)數(shù)據(jù)庫應(yīng)用程序方面具有獨(dú)特的優(yōu)勢(shì)。delphi的主要特點(diǎn)體現(xiàn)在以下幾個(gè)方面：（1）de

6、lphi為32位應(yīng)用程序，因此其性臺(tái)就像裝上了渦輪引擎一樣強(qiáng)勁有力，使用它可開發(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位可視組件庫。（5）delphi是一種面向?qū)ο蟮某绦蛟O(shè)計(jì)語言，因此可做到可視窗體的繼承。（6）delphi采用3層數(shù)據(jù)管理模式(數(shù)據(jù)層、對(duì)象層、應(yīng)用程序?qū)?，把諸如數(shù)據(jù)模型、業(yè)務(wù)規(guī)則、窗體、對(duì)象等集中存儲(chǔ)在對(duì)象存儲(chǔ)庫中。（7）應(yīng)用程序

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

8、用戶許可的本地interbase(數(shù)據(jù)庫管理系統(tǒng)).1.2 delphi的常用組件：（1） delphi的常用組件有tlable,tedit,tcombox,tmemo,tbutton,tcheckbox,tradiobutoon,等連數(shù)據(jù)庫的控件會(huì)在下面連接數(shù)據(jù)庫時(shí)用到。最簡(jiǎn)單的方法是：1. 在delphi中添加adoconnection 控件。連到你要修改的數(shù)據(jù)庫，active屬性改成true,說明數(shù)據(jù)庫連接成功2. 添加adotable控件，connection 屬性填上第1步中的adoconnection 名稱。tablename填上你要修改的表，active屬性改成true,說明數(shù)據(jù)

9、表連接成功或添加adoquery控件，設(shè)置與adotable稍有不同，就是沒有tablename屬性，需要在sql屬性中輸入你連接表的sql語句。3.添加data access 中的 datasource控件。dataset屬性設(shè)置成你第2步中的adotable或adoquery控件名稱。4.在dbgrid控件（可能是你說的列表框吧）的datasource屬性中設(shè)置成第3步中datasource控件的名稱。這時(shí)，數(shù)據(jù)表中的數(shù)據(jù)已經(jīng)顯示到了dbgrid中。5. 查看以上用到的adotable和dbgrid的readonly屬性，全部改成false(默認(rèn)false)6. 這時(shí)，你修改列表框中的值后

10、，鼠標(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í)代的到來和飛速發(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)比較完善。通過設(shè)計(jì)和建設(shè)網(wǎng)絡(luò)拓?fù)浼軜?gòu)、網(wǎng)絡(luò)安全系統(tǒng)、數(shù)據(jù)庫基礎(chǔ)結(jié)構(gòu)、信息共享與管理、信息的發(fā)布與管理，從而方便管理者、老師和學(xué)生間信息發(fā)布、信息交流和信息共享。以現(xiàn)代計(jì)算技術(shù)、網(wǎng)絡(luò)技術(shù)為基礎(chǔ)的數(shù)字化教學(xué)主要是

11、朝著信息化、網(wǎng)絡(luò)化、現(xiàn)代化的目標(biāo)邁進(jìn)。與網(wǎng)絡(luò)技術(shù)相結(jié)合的新型辦學(xué)模式具有對(duì)于教育、教學(xué)過程來說極為寶貴的特性，可以為新型辦學(xué)模式的建構(gòu)提供理想的環(huán)境。通過設(shè)計(jì)達(dá)到熟練掌握.net基本結(jié)構(gòu)以及visual basic語言的基本知識(shí)和技能；基本掌握面向?qū)ο蟪绦蜷_發(fā)的基本思路和方法；掌握acess數(shù)據(jù)庫開發(fā)基本知識(shí)；能夠利用所學(xué)的基本知識(shí)和技能，進(jìn)行簡(jiǎn)單數(shù)據(jù)庫應(yīng)用程序設(shè)計(jì)。根據(jù)題目的要求，給出解決問題的方案，通過分析問題、分解問題來解決問題，最終達(dá)到熟練掌握visual basic語言的運(yùn)用和visual studio2008工具的使用。2.2 需求分析用戶的需求具體體現(xiàn)在各種信息的錄入、修改、刪除

12、和查詢，這就要求數(shù)據(jù)庫結(jié)構(gòu)能充分滿足各種信息的輸出和輸入。收集基本數(shù)據(jù)、數(shù)據(jù)結(jié)構(gòu)以及數(shù)據(jù)處理的流程，組成一份詳盡的數(shù)據(jù)字典，為后面的具體設(shè)計(jì)打下基礎(chǔ)。更重要的是數(shù)據(jù)庫設(shè)計(jì)經(jīng)驗(yàn)在今后其他項(xiàng)目的開發(fā)過程中同樣有著很重要的借鑒作用。學(xué)生管理系統(tǒng)的開發(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í)信息等。班級(jí)管理信息的查詢。班級(jí)管理信息的修改。學(xué)生課程的設(shè)置和修改。8.學(xué)生獎(jiǎng)罰情況的查詢

13、。第三章 學(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ù)庫文件備份退出課程設(shè)置班級(jí)輔導(dǎo)員信息個(gè)人成績(jī)查詢班級(jí)成績(jī)查詢學(xué)生信息課程信息重新登陸退出修改個(gè)人信息必修課查詢選修課查詢 3.2可行性分析學(xué)生信息，作為一個(gè)學(xué)校，就有一定的工作量存在，而學(xué)生信息，它的工作量可能是其它信息工作量的幾倍，班級(jí)的增加、班級(jí)的查找、班級(jí)的修改；學(xué)生檔案；課程管理；成績(jī)管理；繳費(fèi)管理；統(tǒng)計(jì)等等，每個(gè)信息的

14、數(shù)據(jù)都在不斷地變化著，如果采用人工的方式進(jìn)行操作，那么，一天的工作量，足以讓人覺得比較繁瑣，吃不消。針對(duì)這樣的情況，采用讓數(shù)據(jù)的查詢變得簡(jiǎn)單化，數(shù)據(jù)變的更讓每個(gè)人都在任何時(shí)刻都可以了解到。學(xué)生信息管理系統(tǒng)是為本校開發(fā)的，本系統(tǒng)所采用的語言是visual basic，用microsoft access 2003數(shù)據(jù)庫完成。該系統(tǒng)總體有三部分組成，包括用戶管理信息、學(xué)生信息、老師信息。通過本系統(tǒng)，把本校內(nèi)部查詢用戶管理信息、學(xué)生信息、老師信息各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。通過本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。本系統(tǒng)

15、主要信息流程為：管理員維護(hù)接受學(xué)生的信息，學(xué)生信息查詢根據(jù)管理員維護(hù)的學(xué)生信息做出對(duì)所接收的信息合理性進(jìn)行判斷，并交于信息維護(hù)進(jìn)行相應(yīng)的修改，再把信息存入數(shù)據(jù)庫中。學(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è)表，組成了名為student的數(shù)據(jù)庫（如圖一）。其中學(xué)生信息表是本系統(tǒng)主要的一張表（圖一）3.3關(guān)系型數(shù)

16、據(jù)庫的實(shí)現(xiàn)access2000就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫。access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，access作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。數(shù)

17、據(jù)庫與vb的連接：本系統(tǒng)的數(shù)據(jù)鏈接采用的是ado方法，打開控制面板，打開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ù)庫這個(gè)框中， 單擊“選擇”按鈕，在彈出的選擇數(shù)據(jù)庫這一對(duì)話框架中，在驅(qū)動(dòng)器下拉列表框中選擇本系統(tǒng)數(shù)據(jù)庫所在驅(qū)動(dòng)器，在目錄中選擇庫所在的文件夾，在文件類型中選擇選“access數(shù)據(jù)庫（*.mdb）”，在數(shù)據(jù)庫名中選擇本系統(tǒng)的數(shù)據(jù)庫，點(diǎn)擊“確定”按鈕即完成數(shù)據(jù)

18、鏈接。所有信息都是根據(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-r圖：學(xué)生信息表民 族出生年月性 別姓 名學(xué) 號(hào)政治面貌專業(yè)名班 名入學(xué)年份電 話家庭住址籍 貫職 務(wù)宿舍住址學(xué)

19、 校班內(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 開發(fā)平臺(tái)與工具本次系統(tǒng)設(shè)計(jì)，是在windows xp系統(tǒng)下，基于visual studio 2008環(huán)境下，使用visual basic語言進(jìn)行編程，通過與acess 2003數(shù)據(jù)庫連接，使整個(gè)系統(tǒng)能更加完美的得以實(shí)現(xiàn)。4.2 程序設(shè)計(jì)4.2.1 登錄模塊程序設(shè)計(jì)本模塊主要是用戶通過學(xué)生信息管理系統(tǒng)的首頁登錄進(jìn)入該系統(tǒng)。用戶輸入正確的用戶名和密碼，系統(tǒng)會(huì)根據(jù)用戶的身份進(jìn)行相應(yīng)權(quán)限劃分；如果登錄信息有錯(cuò)誤，則系統(tǒng)

20、提示登入錯(cuò)誤的信息，并且禁止系統(tǒng)用戶進(jìn)行任何操作。學(xué)生信息管理系統(tǒng)的登錄主頁面如圖4.1所示。 圖4.1 學(xué)生信息管理系統(tǒng)登錄首頁用戶在登錄頁面寫好用戶名和密碼，選擇登錄，登錄成功則跳轉(zhuǎn)到系統(tǒng)的首頁，否則提示錯(cuò)誤信息。代碼如下：if frm1.dialogresult = windows.forms.dialogresult.ok then if frm1.shenfen.text = 訪客 then shell(explorer.exe 1) me.close() exit sub elseif frm1.shenfen.text = 學(xué)生 then studentlogin.show()

21、exit sub elseif frm1.txtusername.text = then msgbox(用戶名不能為空！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub elseif frm1.txtpassword.text = then msgbox(密碼不能為空！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub elseif frm1.shenfen.te

22、xt = 請(qǐng)選擇 then msgbox(請(qǐng)選擇身份！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub end if dim tablename as string = 登錄信息表 dim strr as string strr = select 用戶名,密碼,身份from 登錄信息表where(用戶名= & frm1.txtusername.text & ) try commonmodule.sqlopera(strr, tablename) if (commonmodule

23、.myrow.item(1) = frm1.txtpassword.text) and (commonmodule.myrow.item(2) = frm1.shenfen.text) then dim str as 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.my

24、row.item(1) = frm1.txtpassword.text) then msgbox(身份錯(cuò)誤！, msgboxstyle.okonly + msgboxstyle.exclamation, 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 m

25、sgbox(身份或密碼錯(cuò)誤！, msgboxstyle.okonly + msgboxstyle.exclamation, information.) show_login() exit sub end if catch ex as exception msgbox(沒有該用戶！, msgboxstyle.exclamation + msgboxstyle.okonly, information.) show_login() exit sub end try elseif frm1.dialogresult = windows.forms.dialogresult.cancel then if

26、 messagebox.show(你真的不登錄學(xué)生信息管理系統(tǒng)嗎?, 退出系統(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)行管理的操作頁面如下圖（4.2）所示： 圖4.2管理員管理用戶操作界面 用戶管理添加用戶、刪除用戶、修改用戶

27、密碼添加用戶是管理員的專有權(quán)限，其操作頁面如下圖（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() exit sub end if if textbox1.te

28、xt = 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) = trim(textbox1.text) addrow.item(1) =

29、 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.) textbox1.text = textbox2.text = textbox3.

30、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, information.) end try刪除用戶代碼如下：if commonmodule.myrow.item(1) = textbox1.text then try d

31、im str as string str = select * from 登錄信息表 commonmodule.sqlopera(str, tablename) commonmodule.mytable.rows(currentrow).delete() if msgbox(確定刪除該用戶嗎？, msgboxstyle.question + msgboxstyle.okcancel + msgboxstyle.defaultbutton2, information.) = msgboxresult.ok then dim cbuild as new oledb.oledbcommandbuil

32、der(commonmodule.mydap) commonmodule.mydap.insertcommand = cbuild.getinsertcommand commonmodule.mydap.deletecommand = cbuild.getdeletecommand commonmodule.mydap.updatecommand = cbuild.getupdatecommand commonmodule.mycmdbuilder = new oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.up

33、date(commonmodule.mydataset, 登錄信息表) msgbox(刪除成功！, msgboxstyle.information + msgboxstyle.okonly, infoemation.) combobox1.items.clear() textbox1.text = datashow() end if catch ex as exception msgbox(ex.message) end try else msgbox(密碼錯(cuò)誤！不能刪除！, msgboxstyle.okonly + msgboxstyle.exclamation, information.)

34、 end if end sub public sub datashow() dim tablename as string = 登錄信息表 dim strr as string strr = select 用戶名 from 登錄信息表 try commonmodule.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.row

35、s.item(i).item(0).tostring() next catch ex as exception msgbox(ex.message) end try修改用戶密碼代碼如下：if textbox2.text = commonmodule.myrow.item(1).tostring then try if textbox3.text = textbox4.text then commonmodule.myrow.item(1) = trim(textbox3.text) msgbox(密碼修改成功！, msgboxstyle.information + msgboxstyle.ok

36、only, information.) dim cbuilder as new oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.insertcommand = cbuilder.getinsertcommand commonmodule.mydap.deletecommand = cbuilder.getdeletecommand commonmodule.mydap.updatecommand = cbuilder.getupdatecommand commonmodule.mycmdbuilder = new

37、 oledb.oledbcommandbuilder(commonmodule.mydap) commonmodule.mydap.update(commonmodule.mydataset, 登錄信息表) textbox1.text = textbox2.text = textbox3.text = textbox4.text = textbox1.focus() else msgbox(兩次輸入密碼不相同！請(qǐng)重新輸入！, msgboxstyle.information + msgboxstyle.okonly, information.) textbox2.text = textbox3.

38、text = textbox4.text = textbox2.focus() exit sub end if 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 if 新生注冊(cè)這是管理員添加修改新進(jìn)學(xué)生信息的最為重要模塊，如果

39、管理員沒有這個(gè)功能，學(xué)生信息管理系統(tǒng)就不完美地實(shí)現(xiàn)最基本的功能了。新生注冊(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é)生信息表中

40、已經(jīng)存在該學(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 public su

41、b 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, information.) txtid.focus() exit

42、 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.) txtsex.focus() exit sub end if if txtbirthyear.text = then ms

43、gbox(請(qǐng)輸入出生年份！, msgboxstyle.okonly + msgboxstyle.information, information.) txtbirthyear.focus() exit sub end if if txtbirthmonth.text = then msgbox(請(qǐng)輸入出生月份！, msgboxstyle.okonly + msgboxstyle.information, information.) txtbirthmonth.focus() exit sub end if if txtnation.text = then msgbox(請(qǐng)輸入民族！, msgb

44、oxstyle.okonly + msgboxstyle.information, information.) txtnation.focus() exit sub end if if txtplace.text = then msgbox(請(qǐng)輸入籍貫！, msgboxstyle.okonly + msgboxstyle.information, information.) txtplace.focus() exit sub end if if txtfamilyaddr.text = then msgbox(請(qǐng)輸入家庭住址！, msgboxstyle.okonly + msgboxstyle

45、.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, information.) txtyear.focus() exit sub end if if txtclass.text = then msgbox(請(qǐng)輸入班級(jí)名稱！, msgboxstyle.okonly + msgboxstyle.information, informat