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

1、畢業(yè)設(shè)計(jì)（論文）題目 學(xué)生信息管理系統(tǒng)設(shè)計(jì)與實(shí)現(xiàn)系 別 軟件工程系 專 業(yè) 軟件技術(shù) 班 級(jí) 姓 名 學(xué) 號(hào) 指導(dǎo)老師（職稱） 日 期 畢業(yè)設(shè)計(jì)（論文）任務(wù)書 軟件工程 系 2008 屆 計(jì)算機(jī)軟件 專業(yè)畢業(yè)設(shè)計(jì)（論文）任務(wù)書畢業(yè)設(shè)計(jì)（論文）題目vb學(xué)生管理系統(tǒng)課題內(nèi)容性質(zhì)軟件開(kāi)發(fā)課題來(lái)源性質(zhì)教師收集的結(jié)合生產(chǎn)實(shí)際的課題設(shè)計(jì)/論文校內(nèi)（外）指導(dǎo)教師職 稱工作單位及部門聯(lián)系方式趙雙萍副教授軟件工程系 一、題目說(shuō)明（目的和意義）：visual basic 是一個(gè)強(qiáng)有力的系統(tǒng)開(kāi)發(fā)軟件之一，以其實(shí)用、方便、快捷、開(kāi)發(fā)周期短，越來(lái)越被廣大編程人員所青睞。vb更容易上手，進(jìn)而提高軟件開(kāi)發(fā)的效率。通過(guò)實(shí)際設(shè)

2、計(jì)，掌握vb應(yīng)用程序開(kāi)發(fā)軟件的設(shè)計(jì)方法，理解軟件工程思想。本次設(shè)計(jì)的主要目的是提高學(xué)生綜合分析問(wèn)題和解決實(shí)際問(wèn)題的能力，為將來(lái)走上工作崗位打下一個(gè)良好的基礎(chǔ)。學(xué)生信息管理系統(tǒng)主要包括對(duì)學(xué)生信息的查詢和修改等操作。二、設(shè)計(jì)（論文）要求（工作量、內(nèi)容）：（一）系統(tǒng)需求分析（占全部工作量的20%）1、認(rèn)真閱讀畢業(yè)設(shè)計(jì)任務(wù)書，對(duì)設(shè)計(jì)題目的實(shí)用性、可行性進(jìn)行論證。2、收集資料：認(rèn)真閱讀畢業(yè)設(shè)計(jì)任務(wù)書。了解設(shè)計(jì)目標(biāo)及要求與開(kāi)發(fā)環(huán)境。主要是軟件環(huán)境，即系統(tǒng)中將采用的開(kāi)發(fā)工具，如有異議，可及時(shí)與指導(dǎo)老師進(jìn)行交流。3、設(shè)計(jì)目標(biāo)及要求：實(shí)現(xiàn)對(duì)學(xué)生信息的查詢和修改。主要實(shí)現(xiàn)以下幾方面功能：用戶登錄系統(tǒng)：實(shí)現(xiàn)用戶可以

3、以各種身份登錄。信息查詢：包括單項(xiàng)查詢和綜合查詢。系統(tǒng)維護(hù)：包括系統(tǒng)中涉及到的規(guī)范化數(shù)據(jù)字典表的管理、用戶管理等。（二）數(shù)據(jù)庫(kù)系統(tǒng)分析、設(shè)計(jì)（占全部工作量的20%）1、采用vb數(shù)據(jù)庫(kù)系統(tǒng)vb+access2、設(shè)計(jì)數(shù)據(jù)庫(kù)中需要的表設(shè)計(jì)表結(jié)構(gòu)，設(shè)計(jì)表中的字段、類型、長(zhǎng)度等。3、分析系統(tǒng)中表之間的關(guān)系（三）程序設(shè)計(jì)、調(diào)試（占全部工作量的30%）（四）系統(tǒng)測(cè)試（占全部工作量的20%）（五）書寫設(shè)計(jì)論文（占全部工作量的10%）三、進(jìn)度表日 期內(nèi) 容第15周第一階段：系統(tǒng)需求分析1。系統(tǒng)的實(shí)用性、可行性分析2。業(yè)務(wù)分析3。設(shè)計(jì)目標(biāo)4。功能設(shè)計(jì)第16周第二階段：數(shù)據(jù)庫(kù)設(shè)計(jì)1。數(shù)據(jù)庫(kù)設(shè)計(jì)：設(shè)計(jì)數(shù)據(jù)庫(kù)結(jié)構(gòu)2。給

4、出er圖及相應(yīng)數(shù)據(jù)流圖第17-18周第三階段：程序設(shè)計(jì)、調(diào)試和系統(tǒng)測(cè)試 1. 程序編制2. 系統(tǒng)測(cè)試3. 系統(tǒng)打包、完成第19-20周第四階段：寫畢業(yè)論文完成日期答辯日期 四、主要參考文獻(xiàn)、資料、設(shè)備和實(shí)習(xí)地點(diǎn)及翻譯工作量：1主要參考文獻(xiàn)：1 薩師煊 王珊。數(shù)據(jù)庫(kù)系統(tǒng)概論。第三版。北京：高等教育出版社，2000。2周靄如、官士鴻、林偉健。visual basic程序設(shè)計(jì)。北京：電子工業(yè)出版社，2003。1。3尹貴祥。 visual basic6。0程序設(shè)計(jì)案例教程。 。北京：中國(guó)鐵道出版社，2005。14 (美) stephen r。schach。軟件工程。北京： 機(jī)械工業(yè)出版社，1999。9

5、2設(shè)備：計(jì)算機(jī)一臺(tái)，自己解決。3翻譯工作量：論文摘要。指導(dǎo)教師簽字教研室主任簽字主管系領(lǐng)導(dǎo)簽字年 月 日年 月 日年 月 日注：本任務(wù)書要求一式兩份，一份系部留存，一份報(bào)教務(wù)處實(shí)踐教學(xué)科。摘要隨著信息技術(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)。學(xué)生成績(jī)管理系統(tǒng)主要提供方便高效的管理功能，該實(shí)現(xiàn)以下一些基本功能： 1。系統(tǒng)管理模塊：維護(hù)系統(tǒng)的正常運(yùn)行和安全性設(shè)置，包括添加用戶、修改密碼、刪除用戶等等。 2。學(xué)院信息模塊：實(shí)現(xiàn)對(duì)

6、學(xué)校院系、專業(yè)、班級(jí)操作。包括：添加、修改、刪除院系、專業(yè)、班級(jí)等信息。這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部班級(jí)的管理。 3。學(xué)生學(xué)籍管理模塊：實(shí)現(xiàn)對(duì)學(xué)生的個(gè)人信息的管理工作，包括學(xué)籍添加、 學(xué)籍查詢、學(xué)籍修改等功能，從而方便學(xué)校管理部門對(duì)學(xué)校的基本情況的快速查詢和了解。 4。課程管理模塊：該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行設(shè)置，并可在其中設(shè)置各門 課程的教材選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括基本課程設(shè)置和班級(jí)課程設(shè)置兩個(gè)模塊。5。成績(jī)管理模塊：檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段，本模塊包括考試類型 設(shè)置，共有期中考試和期未考試兩種類型，還設(shè)置了成績(jī)添加、成績(jī)查詢、

7、成績(jī)?yōu)g覽、成績(jī)修改等功能模塊。6。 退出模塊：此模塊完成程序的退出。 該程序界面友好，功能強(qiáng)大，適合實(shí)際應(yīng)用。關(guān)鍵字：數(shù)據(jù)庫(kù) access 數(shù)據(jù)庫(kù)abstractalong with the information technology in the management of a more profound and extensive application, management information systems implementation, technology has gradually matured. management information system is a c

8、ontinuous development of new disciplines, any one unit to survive and to develop, efficient activities of the internal organization of organic, it must establish its own characteristics and to adapt the management of information system.student achievement management system to facilitate the provisio

9、n of efficient management, the implementation of the following basic functions： 1 system management module： maintaining the normal operation of the system and security settings, including add, modify, delete user password user and so on.2 school of information module :the realization of school facul

10、ty, professional operation, class. include: add, modify, delete, professional colleges, class and other information. the three function modules are independent, complete the whole school class management.3 student management module: the realization of students personal information management, includ

11、ing add, query student school, student modify functions, thereby facilitating school administration to the school s basic situation of fast inquiry and understanding.the 4 curriculum management module:this module of the various classes of curriculum setting, and can be set up in which the course of

12、the teaching material selection, convenient school teaching material management department and the school administration office of the teaching management staff. the module includes the basic curriculum and the courses setting of two modules.5 performance management module:testing the students learn

13、ing is one of the main means, the module test type setting, a total of midterm and final exams in two types, also set up the achievement to add, query results, performance, function modules such as browsing performance changes.6： this module exit module program exit.the process friendly interface, p

14、owerful, suitable for practical applications.keywords:database access database第一章 緒論1.概述該信息管理系統(tǒng)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績(jī)管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)等多種功能，因而具有較強(qiáng)的實(shí)用性和先進(jìn)性。項(xiàng)目提出的意義現(xiàn)在我國(guó)的大中專院校的學(xué)生信息管理水平普遍不高，有的還停留在紙介質(zhì)基礎(chǔ)上，這種管理手段已不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多的人力和物力。在當(dāng)今信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被學(xué)校所采用，將會(huì)改變以前靠手工管

15、理 學(xué)生成績(jī)的狀況，可以樹(shù)立良好的辦學(xué)形象，提高工作效率。項(xiàng)目開(kāi)發(fā)背景學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要，對(duì)學(xué)生來(lái)說(shuō)也可以輕松的查閱自己在校的成績(jī)以及信息等。但是一直以來(lái)人們都是靠傳統(tǒng)人工的方式管理學(xué)生成績(jī)，這種管理方式存在著許多缺點(diǎn)，如：效率低，保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找，更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理，有著手工管理所無(wú)法比擬的優(yōu)點(diǎn)。例如：檢索迅速，查找方便，可靠性高，存儲(chǔ)量大，保密性好，壽命長(zhǎng)，成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生信息管理的效率，方便系統(tǒng)

16、管理員對(duì)學(xué) 生成績(jī)等信息的添加，修改，刪除，查詢，留言等操作，同時(shí)一樣的方面學(xué)生對(duì)自己各科成績(jī)查詢，學(xué)習(xí)的交流。項(xiàng)目開(kāi)發(fā)的目標(biāo)建立學(xué)生信息管理系統(tǒng)，采用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理，進(jìn)一步提高辦學(xué)效益和現(xiàn)代化水平。幫助廣大教師提高工作效率，實(shí)現(xiàn)學(xué)生信息管理工作流程的系統(tǒng)化、規(guī)范化和自動(dòng)化。二、相關(guān)技術(shù)與開(kāi)發(fā)工具介紹本系統(tǒng)采用面向?qū)ο蟮能浖_(kāi)發(fā)辦法，以microsoft公司的可視開(kāi)發(fā)環(huán)境 visual basic6.0 作為主要開(kāi)發(fā)工具，使用microsoft access 2000作為關(guān)系數(shù)據(jù)庫(kù)，并為vb編程語(yǔ)言中采用ado數(shù)據(jù)庫(kù)編程模型，配合功能強(qiáng)大的sql查詢語(yǔ)言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù)庫(kù)，放問(wèn)數(shù)據(jù)庫(kù)

17、，對(duì)數(shù)據(jù)庫(kù)的更新，較好地實(shí)現(xiàn)了預(yù)定的需求功能。第二章 需求分析通過(guò)調(diào)查，要求系統(tǒng)需要有以下功能： 要求有良好的人機(jī)界面；較好的權(quán)限管理；原始數(shù)據(jù)修改簡(jiǎn)單方便，支持多條件修改；方便的數(shù)據(jù)查詢，支持多條件查詢；相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡(jiǎn)單，數(shù)據(jù)穩(wěn)定性好；數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)；可行性分析：由于本系統(tǒng)管理的對(duì)象單一，都是在校學(xué)生，且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過(guò)程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫(kù)管理。且學(xué)校用于學(xué)生管理的微機(jī)都是奔騰 3 以上的機(jī)器，在存儲(chǔ)量、速度方面都能滿足數(shù)據(jù)庫(kù)運(yùn)行的要求。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參

18、考其它程序的功能，因此完全可以實(shí)現(xiàn)。數(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ì)象和調(diào)用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化 高級(jí)程序設(shè)計(jì)，可用于開(kāi)發(fā) windows 環(huán)境下的種類應(yīng)用程序。它簡(jiǎn)單易學(xué)、效率 高，且功能強(qiáng)大。在 visual basic 環(huán)境下，利用事件驅(qū)動(dòng)的編程機(jī)制、新穎易用的可視化設(shè)計(jì)工具，可以高效、快速地開(kāi)發(fā)出 windows 環(huán)境下功能強(qiáng)大

19、、圖 形界面豐富的應(yīng)用軟件系統(tǒng)。第三章 功能設(shè)計(jì)2.3 業(yè)務(wù)流程分析學(xué)生信息管理系統(tǒng)普通用戶中級(jí)用戶管理員查詢個(gè)人信息查詢個(gè)人成績(jī)查詢個(gè)人信息改查學(xué)生成績(jī)修改密碼添加學(xué)生教師添加管理員查詢數(shù)據(jù)設(shè)置學(xué)院信息2.4 數(shù)據(jù)流程分析：普通用戶（學(xué)生）：提供查詢（需登錄，僅顯示登錄用戶信息）中等用戶（教師）：提供增刪改查（需登錄，只可操作成績(jī)表，并且教師工號(hào)對(duì)自己對(duì)應(yīng)的成績(jī)）管理員（教務(wù)處）：提供增刪改查（可對(duì)學(xué)生，教師，成績(jī)等操作）學(xué)生信息管理系統(tǒng)普通用戶中級(jí)用戶管理員學(xué)生表教師表管理員表成績(jī)表普通用戶：登錄賬戶為學(xué)生學(xué)號(hào)中級(jí)用戶：登錄賬號(hào)為教師工號(hào)，密碼自定義，可修改管理員：登錄賬號(hào)為特定，密碼可修

20、改，可增加特殊賬號(hào)管理員管理員表增查個(gè)人信息增查教師信息教師表修改學(xué)院信息專業(yè)表院系表班級(jí)表軟件功能設(shè)計(jì)第四章 詳細(xì)設(shè)計(jì)數(shù)據(jù)庫(kù)設(shè)計(jì)學(xué)生表(student):列字段名類型長(zhǎng)度是否為空主鍵學(xué)號(hào)idchar20否是姓名namechar20否否性別sexchar2是否出生年月birthdaydate/time8是否民族nationtext10是否籍貫nativetext10是否入學(xué)時(shí)間entertimedate/time8是否院系編號(hào)fidtext5是否專業(yè)編號(hào)speidtext5是否班級(jí)編號(hào)cidtext5是否教師表：（）列字段名類型長(zhǎng)度是否為空主鍵教師工號(hào)tidtext20否是教師姓名tnamet

21、ext10否否性別tsextext2是否名族tnationtext10是否籍貫tnativetext10是否政治面貌politicaltext10是否職稱titaltext10是否所屬部門departmenttext10是否登陸密碼passwordtext50是否管理員表：（）列字段名類型長(zhǎng)度是否為空主鍵管理員編號(hào)adidtext10否是管理員賬號(hào)adnametext50否否密碼adpasswordtext50否否所屬部門addeparttext10否否成績(jī)表：（）列字段名類型長(zhǎng)度是否為空主鍵學(xué)生編號(hào)stuidtext12否否學(xué)科編號(hào)subidtext10否否平時(shí)成績(jī)usualtext10否否

22、期末finaltext10否否總評(píng)efftext10是否待添加的隱藏文字內(nèi)容2教師工號(hào)teacheridtext20否否院系表（faculty）：列字段名類型長(zhǎng)度是否為空主鍵院系編號(hào)fidtext2否是院系名稱fnametext10否否專業(yè)表（special）：列字段名類型長(zhǎng)度是否為空主鍵專業(yè)編號(hào)speidtext2否是專業(yè)名稱snametext50否否所屬院系sfidtext2否否學(xué)科表（subject）：列字段名類型長(zhǎng)度是否為空主鍵編號(hào)subidtext5否是名稱subnametext50否否班級(jí)表（class）：列字段名類型長(zhǎng)度是否為空主鍵班級(jí)編號(hào)cidtext2是否班級(jí)名稱cnamet

23、ext50是否所屬院系fidtext2是否所屬專業(yè)sidtext2是否程序代碼設(shè)計(jì)要求：根據(jù)系統(tǒng)的主要功能及上一章的總體設(shè)計(jì)，系統(tǒng)開(kāi)發(fā)進(jìn)入第二個(gè)階段：詳細(xì)設(shè)計(jì)。在這一階段的工作中，主要任務(wù)有以下幾項(xiàng)：1、根據(jù)原型化的開(kāi)發(fā)原則，為系統(tǒng)的每個(gè)模塊功能進(jìn)行界面設(shè)計(jì)，作為進(jìn)一步優(yōu)化的基礎(chǔ)。2、進(jìn)行系統(tǒng)的流程分析，為模塊的細(xì)化做好準(zhǔn)備。3、對(duì)每個(gè)模塊進(jìn)行詳細(xì)的算法設(shè)計(jì)。詳細(xì)代碼設(shè)計(jì)公共模塊：解決登陸用戶信息以及數(shù)據(jù)庫(kù)標(biāo)志等公共信息，所以定義通用變量public gusername as string 保存用戶名稱public gtid as string 保存教師信息public gstuid as s

24、tring 保存學(xué)生登錄信息public flag as integer 添加和修改的標(biāo)志public gsql as string 保存sql語(yǔ)句public kqsql2 as string 保存查詢其他考勤結(jié)果sql語(yǔ)句public arecordid as integerpublic lrecordid as integerpublic orecordid as integerpublic erecordid as integerpublic iflag as integer 數(shù)據(jù)庫(kù)是否打開(kāi)標(biāo)志數(shù)據(jù)庫(kù)連接選用adodb連接方式，首先先編寫一公共模塊，用于存放數(shù)據(jù)庫(kù)訪問(wèn)類。public

25、function transactsql(byval sql as string) as adodb.recordsetdim con as adodb.connectiondim rs as adodb.recordsetdim strconnection as stringdim strarray() as stringset con = new adodb.connectionset rs = new adodb.recordseton error goto transactsql_error strconnection = provider=microsoft.jet.oledb.4.

26、0;data source= & app.path & dbstudata.mdb strarray = split(sql) con.open strconnection if strcomp(ucase$(strarray(0), select, vbtextcompare) = 0 then rs.open trim$(sql), con, adopenkeyset, adlockoptimistic set transactsql = rs iflag = 1 else con.execute sql iflag = 1 end iftransactsql_exit: set rs =

27、 nothing set con = nothing exit functiontransactsql_error: msgbox 查詢錯(cuò)誤： & err.description iflag = 2 resume transactsql_exitend function解決關(guān)閉窗口后程序任在后臺(tái)運(yùn)行類：public sub shutdown(optional byval force as boolean = false)dim i as longon error resume next for i = forms.count - 1 to 0 step -1 if not force then

28、 if forms.count i then exit sub end if end if next iif force or (forms.count = 0) then closeif force or (forms.count 0) then endend sub識(shí)別tab鍵public sub tabtoenter(key as integer) if key = 13 then sendkeys tab end if end sub登陸界面設(shè)計(jì)由于有三類用戶同時(shí)登陸其中，學(xué)生輸入學(xué)號(hào)登陸，教師登陸由教工號(hào)于密碼登陸，管理員由賬號(hào)密碼登陸。代碼如下：private sub cmdok_

29、click() dim sql as string dim rs as adodb.recordset if trim(username.text = ) then msgbox 沒(méi)有輸入用戶名，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 username.setfocus else sql = select * from administrator where adname= & username.text & set rs = transactsql(sql) if iflag = 1 then if rs.eof = true then msgbox 沒(méi)有這

30、個(gè)用戶，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 username.setfocus else if trim(rs.fields(2) = trim(adpassword.text) then rs.close me.hide gusername = trim(username.text) 記錄用戶 adminfrm.show unload me else msgbox 密碼不正確，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 adpassword.setfocus adpassword.text = end if end if e

31、lse unload me end if end ifend sub主窗體設(shè)計(jì)系統(tǒng)選項(xiàng)中提供管理員注冊(cè)，修改，刪除功能其中，注冊(cè)界面代碼如下：代碼：private sub cmdok_click() dim sql as string dim rs as adodb.recordset if trim(adname.text) = then msgbox 請(qǐng)輸入用戶名稱, vbokonly + vbexclamation, 警告 exit sub adname.setfocus else sql = select * from administrator where adname= & adn

32、ame.text & set rs = transactsql(sql) 判斷用戶名是否存在 if rs.eof = false then msgbox 這個(gè)用戶已存在，請(qǐng)重新輸入！, vbokonly + vbexclamation, 警告 adname.setfocus adname.text = passw1.text = passw2.text = exit sub else if trim(passw1.text) = then msgbox 請(qǐng)輸入密碼, vbokonly + vbexclamation, 警告 passw1.setfocus exit sub elseif tri

33、m(passw2.text) = then msgbox 請(qǐng)?jiān)俅屋斎朊艽a！, vbokonly + vbexclamation, 警告 passw2.setfocus exit sub elseif trim(passw1.text) trim(passw2.text) then msgbox 兩次輸入不一致，請(qǐng)重新輸入, vbokonly + vbexclamation, 警告 passw2.text = passw2.setfocus exit sub else sql = insert into administrator ( adid,adname,adpassword,addepar

34、t )values( & id.text & , & adname.text & , & passw1.text & , & depart.text & ) call transactsql(sql) msgbox 注冊(cè)成功！, vbokonly + vbexclamation, 添加結(jié)果 call init end if end if end ifend sub學(xué)生注冊(cè)頁(yè)面優(yōu)化功能：為用戶提供便捷的操作，以及在目標(biāo)中提到的要求，在學(xué)生注冊(cè)系統(tǒng)中加入了一些便捷操作：1， 由于沒(méi)個(gè)學(xué)生由于院系，專業(yè)，班級(jí)不同學(xué)號(hào)有所不同所以學(xué)號(hào)由系統(tǒng)自動(dòng)生成，以減少人工干預(yù)，降低系統(tǒng)出錯(cuò)率。private su

35、b cmdid_click() dim sql as string dim rs as new adodb.recordset dim endid as string dim tempid as string dim eid as string dim rsa as string dim faculty, special, class as string if facultyid = then msgbox 請(qǐng)輸入院系！, vbokonly + vbexclamation, 警告 faculty.setfocus exit sub elseif specialid = then msgbox

36、請(qǐng)輸入專業(yè)！, vbokonly + vbexclamation, 警告 special.setfocus exit sub elseif classid = then msgbox 請(qǐng)輸入班級(jí)！, vbokonly + vbexclamation, 警告 class.setfocus exit sub else entertime = mid(enttime.value, 1, 4) sql = select id from student where id and fid= & facultyid & and speid= & specialid & and cid= & classid

37、& order by id desc set rs = transactsql(sql) eid = rs(0) eid = right(eid, 2) + 1 native.text = classid native.text = sql endid = right(format(1000 + eid), 2) rs.close tempid = entertime & facultyid & specialid & classid & endid id.text = tempid end if end sub2， 院系，專業(yè)，班級(jí)都從數(shù)據(jù)庫(kù)中提取，在學(xué)生表中只存儲(chǔ)編號(hào)代碼。 dim sql

38、 as string dim rs as adodb.recordset sql = select * from special where sname= & special.text & set rs = transactsql(sql) classid = rs(0) rs.close 3， 由于院系，專業(yè)，班級(jí)有包含關(guān)系所以在這里combobox控件加入代碼，實(shí)現(xiàn)選擇院系后所包含的專業(yè)自動(dòng)加入隊(duì)列。private sub faculty_click() dim sql as string dim rs as adodb.recordset dim fid as string dim s

39、as string special.clear 選定院系后刷新獲得院系所含專業(yè) specialid = class.clear classid = sql = select * from faculty where fname= & faculty.text & set rs = transactsql(sql) facultyid = rs(0) rs.close sql = select * from special where sfid= & facultyid & set rs = transactsql(sql) do while not rs.eof s = rs(1) speci

40、al.additem (s) rs.movenext loop rs.closeend sub4， 由于在表中只存儲(chǔ)編號(hào)信息，程序中顯示名稱我們以添加新的班級(jí)為例。 在窗口加載時(shí)得將院系信息加入到combobox控件隊(duì)列，實(shí)現(xiàn)代碼如下：private sub form_load() dim sql as string dim rs as adodb.recordset dim f as string sql = select * from faculty where fname set rs = transactsql(sql) do while not rs.eof f = rs(1) fi

41、d.additem (f) rs.movenext loop rs.closeend sub在選取院系信息后要將院系所包含的專業(yè)信息加入到隊(duì)列，實(shí)現(xiàn)代碼如下：private sub fid_click() dim sql as string dim rs as adodb.recordset dim s as string sid.clear 選定院系后刷新獲得院系所含專業(yè) sql = select * from faculty where fname= & fid.text & set rs = transactsql(sql) facid = rs(0) rs.close sql = se

42、lect * from special where sfid= & facid & set rs = transactsql(sql) do while not rs.eof s = rs(1) sid.additem (s) rs.movenext loop rs.closeend sub由于班級(jí)編號(hào)在同一專業(yè)不能重復(fù)，所以編號(hào)由系統(tǒng)自動(dòng)生成。當(dāng)選定院系，專業(yè)后系統(tǒng)將從所數(shù)據(jù)庫(kù)獲得選定院系，專業(yè)現(xiàn)存的班級(jí)編號(hào)，按倒序排列后獲得最后的編碼，由系統(tǒng)自動(dòng)加1顯示在控件上。實(shí)現(xiàn)代碼如下：private sub init() dim tempid as string dim sql as string

43、 dim rs as adodb.recordset dim num as integer sql = select cid from class where fid= & facid & and sid= & speid & order by cid desc set rs = transactsql(sql) num = rs(0) num = num + 1 + 0 rs.close cid.text = num end sub其中參數(shù)facid，speid在選取時(shí)記錄如以下代碼：private sub sid_click() dim sql as string dim rs as ad

44、odb.recordset sql = select * from special where sfid= & facid & set rs = transactsql(sql) speid = rs(0) rs.close call initend sub5， 修改用戶信息由嚴(yán)謹(jǐn)?shù)倪壿嬯P(guān)系控制，確保數(shù)據(jù)庫(kù)中信息安全。以修改管理員密碼為例。基本流程為：驗(yàn)證原密碼-新密碼與確認(rèn)密碼相同然后執(zhí)行修改。代碼實(shí)現(xiàn)如下：private sub cmdok_click() dim sql as string dim rs as adodb.recordset if trim(oldpas.text) =

45、then msgbox 請(qǐng)輸入舊密碼！, vbokonly + vbexclamation, 警告 oldpas.setfocus exit sub elseif trim(newpas1.text) = then msgbox 請(qǐng)輸入新密碼！, vbokonly + vbexclamation, 警告 newpas1.setfocus exit sub elseif trim(newpas2.text = ) then msgbox 請(qǐng)?jiān)俅屋斎胄旅艽a, vbokonly + vbexclamation, 警告 newpas2.text = newpas2.setfocus exit sub elseif trim(newpas1.text) trim(newpas2.text) then msgbox 兩次輸入不一致！, vbokonly + vbex