VB+SQL學(xué)生信息管理系統(tǒng)

摘要洛陽(yáng)理工學(xué)院畢業(yè)設(shè)計(jì)（論文）PAGEIVPAGE3學(xué)生信息管理系統(tǒng)摘要學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guā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)。本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫(kù)技術(shù)支持下完成的。本文在結(jié)構(gòu)上首先論述了畢業(yè)設(shè)計(jì)選題的背景、目的和意義，然后敘述了開發(fā)環(huán)境、開發(fā)平臺(tái)以及數(shù)據(jù)庫(kù)技術(shù)，接著用表格和圖片的方式介紹了系統(tǒng)的整體規(guī)劃，接下來是系統(tǒng)在具體實(shí)現(xiàn)中的詳細(xì)內(nèi)容，最終本系統(tǒng)能夠完成信息的輸入、輸出,數(shù)據(jù)的修改、查詢以及打印報(bào)表等功能，本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。關(guān)鍵詞：控件，窗體，報(bào)表，關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，VB

StUDENTS'INFORMATIONMANAGEMENTSYSTEMABSTRACTAlongwiththeinformationtechnologyinthemanagementofmoreandmoredepthandawiderangeofapplications,themanagementinformationsystemintheimplementationoftechnologyhasgraduallymatured.Managementinformationsystemisacontinuousdevelopmentofnewdisciplines,anyoneunittosurviveistodevelopandefficientactivitiesoftheinternalorganizationoforganic,itmustestablishitsowncharacteristicsinlinewiththemanagementinformationsystem.Thissystemisinmanagementinformationsystemundertheguidanceofthetheoryandmethod,databasetechnologysupportisdone.Thispaperfirstdiscussesthestructureinthegraduationdesignbackground,expatiatesthepurposeandsignificance,thendescribesthedevelopmentenvironment,developmentplatformanddatabasetechnology,andthenusedformandpicturesofthewaytheoverallplanningofthesystemisintroduced,thenthesystemintherealizationofthespecificdetails,andfinallythissystemcanaccomplishinformationinput,output,modify,inquiresthedataandprintreport,andotherfunctions,thissystemfriendlyinterface,theoperationissimple,ismorepractical.KEYWORDS:Control，F(xiàn)orm，Statement，RelationalDatabaseManagementSystem，VB前言目錄前言 1第1章開發(fā)背景 21.1課題介紹 21.2課題目的及意義 21.3研究方法、發(fā)展趨勢(shì) 2第2章開發(fā)環(huán)境、工具介紹 42.1VisualBasic6.0 42.1.1VisualBasic的編程特點(diǎn) 42.1.2VB支持的數(shù)據(jù)庫(kù)系統(tǒng) 52.2SQLServer2000簡(jiǎn)介 52.2.1SQLServer數(shù)據(jù)庫(kù)特點(diǎn) 62.3ADO對(duì)象概述 72.3.1利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序 82.3.2ADO組件的主要對(duì)象及其功能 92.3.3用來操控?cái)?shù)據(jù)的SQL命令 92.4VB訪問數(shù)據(jù)庫(kù)過程 10第3章系統(tǒng)分析 123.1系統(tǒng)功能分析 123.2業(yè)務(wù)流程圖 123.3數(shù)據(jù)流程圖 133.4數(shù)據(jù)字典 14第4章系統(tǒng)設(shè)計(jì) 154.1系統(tǒng)功能設(shè)計(jì) 154.2代碼設(shè)計(jì) 164.3數(shù)據(jù)庫(kù)設(shè)計(jì) 16第5章系統(tǒng)實(shí)施 225.1模塊設(shè)計(jì) 225.2登錄窗體設(shè)計(jì) 245.3主界面設(shè)計(jì) 265.3.1StatusBar1 285.3.2Timer1 295.3.3菜單編輯器 295.4查詢管理窗體設(shè)計(jì) 305.4.1班級(jí)信息查詢 305.4.2課程信息查詢 305.4.3成績(jī)信息查詢 315.4.4學(xué)籍信息查詢 315.5用戶信息管理 325.5.1用戶注冊(cè)窗體設(shè)計(jì) 325.5.2密碼修改窗體設(shè)計(jì) 335.6學(xué)籍信息管理窗體設(shè)計(jì) 365.7課程信息管理窗體設(shè)計(jì) 385.8統(tǒng)計(jì)報(bào)表中心設(shè)計(jì) 395.8.1ClassReport設(shè)計(jì) 395.8.2StudnetReport設(shè)計(jì) 405.8.3StudnetReport設(shè)計(jì) 405.9班級(jí)信息設(shè)計(jì) 415.10成績(jī)信息設(shè)計(jì) 415.11年級(jí)信息設(shè)計(jì) 42結(jié)論 43謝辭 44參考文獻(xiàn) 45前言學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理學(xué)生學(xué)籍檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時(shí)間一長(zhǎng),將產(chǎn)生大量的文件和數(shù)據(jù),這對(duì)于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分,使用計(jì)算機(jī)對(duì)學(xué)生學(xué)籍信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)籍管理的效率,也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此，開發(fā)這樣一套管理軟件成為很有必要的事情,在下面的各章中將以開發(fā)一套學(xué)生信息管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉及到的問題及解決方法。第1章標(biāo)題第1章開發(fā)背景1.1課題介紹高校學(xué)生信息的管理是一項(xiàng)既重要又繁瑣的工作。為更好的做好這項(xiàng)工作，提高工作效率，更好的為學(xué)校的發(fā)展和一線教學(xué)服務(wù)，決定：結(jié)合我校實(shí)際情況，自行研制一個(gè)學(xué)生信息管理系統(tǒng)。1.2課題目的及意義由于現(xiàn)今的學(xué)生信息管理非常繁瑣，行政人員付出大量的工作時(shí)間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān)，決定開發(fā)學(xué)生信息管理系統(tǒng)。計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉，性能有了長(zhǎng)足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計(jì)算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：首先，計(jì)算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率；第四，計(jì)算機(jī)可以使敏感文檔更加安全等等。為了解決傳統(tǒng)學(xué)生信息的管理正面臨著的這些問題，我所設(shè)計(jì)的學(xué)生信息管理系統(tǒng)也就應(yīng)運(yùn)而生了。1.3研究方法、發(fā)展趨勢(shì)本系統(tǒng)采用功能分析法即通過說明社會(huì)現(xiàn)象怎樣滿足一個(gè)社會(huì)系統(tǒng)的需要（即具有怎樣的功能）來解釋社會(huì)現(xiàn)象和CS模式共同完成?，F(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對(duì)學(xué)習(xí)活動(dòng)產(chǎn)生了具有深遠(yuǎn)意義的沖擊，人們可以選擇或者設(shè)計(jì)適合其學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式。本系統(tǒng)采用CS模式，在某些方面還不是表現(xiàn)的很好，但未來有關(guān)學(xué)生信息管理的應(yīng)該采用多層架構(gòu)的系統(tǒng)，是真正適應(yīng)教育信息化發(fā)展三大趨勢(shì)的校園網(wǎng)絡(luò)應(yīng)用系統(tǒng)，全面支持Internet功能、遠(yuǎn)程訪問功能，采用先進(jìn)的CS和BS模式共同開發(fā)，支持有關(guān)學(xué)校信息交流、日常教學(xué)、教務(wù)管理等的各種應(yīng)用，提供一個(gè)基于校園內(nèi)聯(lián)網(wǎng)中支持各種類型的學(xué)校應(yīng)用產(chǎn)品的服務(wù)平臺(tái)和開發(fā)平臺(tái)，基本目標(biāo)是在學(xué)校內(nèi)部和外部建立起順暢的信息通道，讓信息技術(shù)成為推動(dòng)教育生產(chǎn)力的有力工具，提高學(xué)校的管理水平和效率，同時(shí)充分利用全球的教育資源為學(xué)校的教育服務(wù)，克服目前大部分學(xué)校的校園網(wǎng)建設(shè)只起到宣傳作用的通病。REF_Ref168484390\r\h錯(cuò)誤！未找到引用源。REF_Ref168484424\h錯(cuò)誤！未找到引用源。PAGE6PAGE11第2章開發(fā)環(huán)境、工具介紹該軟件是在WindowsXPProfessional+VisualBasic6.0+SQLServer2000的環(huán)境下完成的。下面就對(duì)這些開發(fā)工具進(jìn)行介紹：2.1VisualBasic6.0微軟公司的VisualBasic6.0是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。利用VISUALBASIC程序設(shè)計(jì)語(yǔ)言，可以很方便地設(shè)計(jì)出在WINDOWS環(huán)境下運(yùn)行的應(yīng)用程序。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。2.1.1VisualBasic的編程特點(diǎn)VisualBasic語(yǔ)言的出現(xiàn)為Windows下的編程提出了一個(gè)新概念，利用VisualBasic的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的鏈接和嵌入、動(dòng)態(tài)鏈接庫(kù)、ActiveX技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。利用VisualBasic語(yǔ)言編程有以下幾個(gè)特點(diǎn)：1.可視化程序設(shè)計(jì)在VisualBasic中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時(shí)由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因?yàn)樵谠O(shè)計(jì)圖形界面的過程中只需設(shè)置ActiveX控件的屬性即可。2.強(qiáng)大的數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)功能隨著VisualBasic語(yǔ)言的向前發(fā)展，它在數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯，利用VisualBasic中的ODBC——開放式的數(shù)據(jù)庫(kù)訪問技術(shù)可以很方便地開發(fā)出自己的數(shù)據(jù)庫(kù)應(yīng)用程序；利用VisualBasic自帶的可視化數(shù)據(jù)管理器和報(bào)表生成器，完全可以在VisualBasic就完成數(shù)據(jù)庫(kù)的開發(fā)工作。3.其他特性在VisualBasic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了VisualBasic的發(fā)展。從VisualBasic5.0版本開始，在VisualBasic中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得VisualBasic的代碼效率有了很大的提高，同時(shí)執(zhí)行的速度也加快了解30%(同VisualBasic4.0相比)。當(dāng)然在VisualBasic中還有其它特性，例如：面向?qū)ο蟮木幊陶Z(yǔ)言；結(jié)構(gòu)化程序設(shè)計(jì)；事件驅(qū)動(dòng)的程序設(shè)計(jì)：在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時(shí)才會(huì)調(diào)用過程。在事件驅(qū)動(dòng)的應(yīng)用程序中，代碼不是按預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)、甚至由應(yīng)用程序本身的消息觸發(fā)。這些事件的順序，決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過的路徑都是不同的。支持動(dòng)態(tài)鏈接庫(kù)；應(yīng)用程序之間的資源共享；事件驅(qū)動(dòng)的程序設(shè)計(jì)。2.1.2VB支持的數(shù)據(jù)庫(kù)系統(tǒng)VB支持對(duì)多格式的數(shù)據(jù)庫(kù)的訪問和維護(hù)，無論是Access還是Foxpro中創(chuàng)建的數(shù)據(jù)庫(kù)，都可以用VB打開，對(duì)其進(jìn)行查詢、修改和刪除等操作。事實(shí)上，VB幾乎支持對(duì)市面上所有數(shù)據(jù)庫(kù)的訪問。VB可以訪問的數(shù)據(jù)庫(kù)可以簡(jiǎn)單的分為三類，即：MicrosoftAccess格式數(shù)據(jù)庫(kù)，外部數(shù)據(jù)庫(kù)和ODBC數(shù)據(jù)庫(kù)。VB對(duì)多種數(shù)據(jù)庫(kù)格式的支持，大大的增強(qiáng)了開發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的能力。2.2SQLServer2000簡(jiǎn)介SQLServer2000是微軟公司最新版的大型數(shù)據(jù)庫(kù)服務(wù)器，其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫(kù)的趨勢(shì)。用它可以方便地管理數(shù)據(jù)庫(kù)和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫(kù)構(gòu)架，與WindowsNT/2000平臺(tái)緊密集成，具有完全的Web功能。通過對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在Internet商業(yè)領(lǐng)域快速建立并應(yīng)用。此外，還增強(qiáng)了安全性，保護(hù)防火墻內(nèi)外的數(shù)據(jù)。支持基于角色的安全并擁有安全審計(jì)工具。在經(jīng)歷了SQLServer6.5和7.0兩個(gè)版本的嘗試后，微軟公司終于開始了大規(guī)模的業(yè)務(wù)。記得在以前各種關(guān)于SQLServer的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺被大家自然的延續(xù)到了2000版之中。其實(shí)這是一種誤解。在過去的很長(zhǎng)一段時(shí)間中，微軟公司聘請(qǐng)了世界上最優(yōu)秀的數(shù)據(jù)庫(kù)專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵(lì)精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持，再配合其一向?yàn)槿朔Q道的易用性，SQLServer可以說成為了開發(fā)者手中的一柄利器。另外，目前國(guó)內(nèi)的一些關(guān)于微軟平臺(tái)的數(shù)據(jù)庫(kù)編程教程，喜歡使用Access作為數(shù)據(jù)庫(kù)平臺(tái)的案例，并展開相關(guān)的內(nèi)容。這其實(shí)對(duì)于開發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。SQLServer2000提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQLServer2000可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。2.2.1SQLServer數(shù)據(jù)庫(kù)特點(diǎn)概括起來，SQLServer2000數(shù)據(jù)庫(kù)管理系統(tǒng)具有以下主要特點(diǎn)。豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQLServer企業(yè)管理器是一個(gè)基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQLServer服務(wù)器、管理數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)對(duì)象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報(bào)、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。此外，SQLServer2000還提供了SQL事件探查器、SQL查詢分析器、SQLServer服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡(jiǎn)化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。動(dòng)態(tài)自動(dòng)管理和優(yōu)化功能。即使SQLServer數(shù)據(jù)庫(kù)管理員不做任何設(shè)置，SQLServer也能夠在運(yùn)行過程中根據(jù)環(huán)境配置和用戶訪問情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。充分的Internet技術(shù)支持。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQLServer增強(qiáng)了對(duì)Internet技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫(kù)Web出版工具“Web助手”外，還增強(qiáng)了對(duì)XML和HTTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過XML等訪問SQLServer數(shù)據(jù)庫(kù)系統(tǒng)，也擴(kuò)展了SQLServer在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。豐富的編程接口工具，使用戶開發(fā)SQLServer數(shù)據(jù)庫(kù)應(yīng)用程序更加靈活。SQLServer提供了Transact-SQL、DB-LibraryforC、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標(biāo)準(zhǔn)SQL語(yǔ)言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQLServer2000還支持ODBC、OLEDB、ADO規(guī)范，可以使用ODBC、OLEDB、ADO接口訪問SQLServer數(shù)據(jù)庫(kù)。具有很好的伸縮性和可靠性。SQLServer2000既能運(yùn)行在Windows桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括WindowsNT和Windows2000）下；既能運(yùn)行在單CPU計(jì)算機(jī)上，又能運(yùn)行在對(duì)稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。簡(jiǎn)單的管理方式。SQLServer2000與MicrosoftWindows2000有機(jī)集成，所以可以使用Windows2000的活動(dòng)目錄（ActiveDirectory）功能對(duì)SQLServer進(jìn)行集中管理，大大簡(jiǎn)化大型企業(yè)中的系統(tǒng)管理工作。此外，與Windows2000的集成還使SQLServer能夠充分利用操作系統(tǒng)所提供的服務(wù)和功能（如安全管理、事件日志、性能監(jiān)視器、內(nèi)存管理和異步I/O等），從而增強(qiáng)了SQLServer數(shù)據(jù)庫(kù)系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。2.3ADO對(duì)象概述ADO對(duì)象能夠存取到數(shù)據(jù)庫(kù)的內(nèi)容，首先要求數(shù)據(jù)庫(kù)的驅(qū)動(dòng)程序(ODBC驅(qū)動(dòng)程序與OLEDB驅(qū)動(dòng)程序)必須安裝上，否則，ADO對(duì)象是無法存取數(shù)據(jù)庫(kù)中內(nèi)容，其原理示意圖如下圖所示：圖2-1ADO連接請(qǐng)注意：上圖中的“各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序”即ODBC驅(qū)動(dòng)程序與OLEDB驅(qū)動(dòng)程序。2.3.1利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序ADO（ActiveDateObjects,即ActiveX數(shù)據(jù)對(duì)象）是一個(gè)ASP內(nèi)置的ActiveX服務(wù)器組件（ActiveXServerComponent）?？砂阉cASP結(jié)合起來，建立提供數(shù)據(jù)庫(kù)信息的網(wǎng)頁(yè)內(nèi)容，對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示”的最新Web數(shù)據(jù)庫(kù)技術(shù)。要執(zhí)行ADO，服務(wù)器端必須安裝WindowsNTServer和InternetInformationServer(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序有以下幾個(gè)優(yōu)點(diǎn)：支持客戶機(jī)/服務(wù)器結(jié)構(gòu)（Client/Server）與Web系統(tǒng)開發(fā)技術(shù)。內(nèi)部有多個(gè)互相獨(dú)立的對(duì)象模型。支持分批修改數(shù)據(jù)庫(kù)內(nèi)容。支持多種不同的數(shù)據(jù)控制指標(biāo)形式。先進(jìn)的Recordset數(shù)據(jù)高速緩存管理功能。允許在程序中使用多個(gè)Recordset對(duì)象或者多個(gè)分批修改區(qū)塊傳送。ADO屬于Free_threaded對(duì)象，利用它可以開發(fā)出更有效的Web應(yīng)用程序。2.3.2ADO組件的主要對(duì)象及其功能ADO組件又稱為數(shù)據(jù)庫(kù)訪問組件，它提供了以下七種對(duì)象：1.Connection對(duì)象：提供對(duì)數(shù)據(jù)庫(kù)的連接服務(wù)。2.Command對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。3.Recordset對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的記錄集。Recordset對(duì)象的LockType屬性的設(shè)置值如下表所示：表2-1LockType屬性常量值說明adLockReadOnly1默認(rèn)值，只讀。無法更改數(shù)據(jù)adLockPressimistic2保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。adLockOptimistic3開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用Updata方法時(shí)鎖定記錄。adLockBatchOptimistic4開放式批更新。用于與立即更新模式相反的批更新模式。4.Fields對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的單一數(shù)據(jù)字段。5.Parametes對(duì)象：表示Command對(duì)象的參數(shù)。6.Property對(duì)象：?jiǎn)为?dú)的一個(gè)Property對(duì)象，提供屬性功能。7.Error對(duì)象：提供處理錯(cuò)誤的功能。使用ADO對(duì)象可以建立和管理數(shù)據(jù)庫(kù)的連接，按數(shù)據(jù)庫(kù)服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯(cuò)誤信息等。2.3.3用來操控?cái)?shù)據(jù)的SQL命令SQL命令是發(fā)送給數(shù)據(jù)庫(kù)并要求數(shù)據(jù)庫(kù)操作的指令，它是專門為數(shù)據(jù)庫(kù)設(shè)計(jì)的語(yǔ)言，比一般的計(jì)算機(jī)程序語(yǔ)言簡(jiǎn)單的多。SQL命令主要分成兩部分：DDL(DataDefinitionLanguage)和DML(DataManipulationLanguage),其中DDL是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而DML則是操作數(shù)據(jù)庫(kù)記錄的指令群，如數(shù)據(jù)庫(kù)記錄的添加、更新、刪除、和查詢等。SQL命令，包括Select、Delete、Update、InsertInto、SelectInto等。1.篩選及排序記錄的Select指令基本句型一：Select字段串列From數(shù)據(jù)表；基本句型二：Select…From…Where篩選條件；基本句型三：Select…From…OrderBy字段串列；SelectTop：限定選取數(shù)據(jù)的條數(shù)。2.刪除數(shù)據(jù)記錄的Delete指令基本語(yǔ)法：DeleteFrom數(shù)據(jù)表Where條件式。3.更新數(shù)據(jù)記錄的Update指令基本語(yǔ)法：Update數(shù)據(jù)表Set表達(dá)式。4.增加數(shù)據(jù)記錄的InsertInto指令基本句型一：InsertInto數(shù)據(jù)表(字段串列)Values(字段串列)；基本句型二：InsertInto數(shù)據(jù)表(字段1,字段2,…,字段n)Select…；建立新數(shù)據(jù)表的SelectInto指令；該指令與“InsertInto…Select…”指令的區(qū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而InsertInto是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。2.4VB訪問數(shù)據(jù)庫(kù)過程2.4.1定義數(shù)據(jù)庫(kù)組件DimconnAsNewADODB.Connection其中conn為連接對(duì)象；DimrecoAsNewADODB.Recordset其中reco為結(jié)果集對(duì)象。2.4.2打開數(shù)據(jù)庫(kù)對(duì)于SQL數(shù)據(jù)庫(kù)，其連接語(yǔ)句為conn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Sims_four"。而對(duì)于Access數(shù)據(jù)庫(kù)，連接語(yǔ)句為conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path+"\Sims_four.mdb"設(shè)定SQL語(yǔ)句，使用“Execute”命令，即可開始執(zhí)行訪問數(shù)據(jù)庫(kù)的動(dòng)作。2.4.3關(guān)閉結(jié)果集對(duì)象，斷開與數(shù)據(jù)庫(kù)的連接reco.Close；conn.Close。第3章REF_Ref168484495\h錯(cuò)誤！未找到引用源。洛陽(yáng)理工學(xué)院畢業(yè)設(shè)計(jì)（論文）PAGE13第3章系統(tǒng)分析3.1系統(tǒng)功能分析隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量就需要有一個(gè)學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計(jì)內(nèi)容為管理員或普通用戶登錄該系統(tǒng)進(jìn)行八個(gè)模塊操作：用戶管理：用戶添加、用戶刪除、密碼修改；年級(jí)信息管理：學(xué)校年級(jí)設(shè)置、學(xué)校信息設(shè)置；班級(jí)信息管理：班級(jí)信息設(shè)置；課程信息管理：課程信息設(shè)置、年級(jí)課程開設(shè)；學(xué)籍信息管理：學(xué)籍信息設(shè)置；成績(jī)信息管理：成績(jī)信息設(shè)置；查詢管理：班級(jí)信息查詢、課程信息查詢、成績(jī)信息查詢、學(xué)籍信息查詢；統(tǒng)計(jì)報(bào)表：班級(jí)信息統(tǒng)計(jì)報(bào)表、學(xué)生信息統(tǒng)計(jì)報(bào)表。3.2業(yè)務(wù)流程圖通過對(duì)學(xué)校學(xué)生信息業(yè)務(wù)的實(shí)際調(diào)查分析，弄清楚了學(xué)生信息管理工件的業(yè)務(wù)流程和管理功能，系統(tǒng)的業(yè)務(wù)流程圖如下：學(xué)生信息流程圖圖3-1學(xué)生信息流程圖學(xué)校年級(jí)、課程流程圖圖3-2學(xué)校年級(jí)、課程流程圖3.3數(shù)據(jù)流程圖學(xué)生信息數(shù)據(jù)流程圖：圖3-3學(xué)生信息數(shù)據(jù)流程圖課程、年級(jí)、成績(jī)數(shù)據(jù)流程圖：圖3-4課程、年級(jí)、成績(jī)數(shù)據(jù)流程圖3.4數(shù)據(jù)字典3.4.1數(shù)據(jù)流的描述數(shù)據(jù)流編號(hào)：D-01；數(shù)據(jù)流名稱：學(xué)籍信息錄入；數(shù)據(jù)流來源：招生辦；數(shù)據(jù)流去向：教務(wù)處；數(shù)據(jù)項(xiàng)組成：學(xué)號(hào)+姓名+性別+出生日期+班號(hào)+電話+入學(xué)日期+地址+描述。3.4.2處理邏輯描述處理邏輯編號(hào)：P-01；處理邏輯名稱：班級(jí)課程信息；輸入的數(shù)據(jù)流：年級(jí)課程信息，班級(jí)信息；處理描述：形成班級(jí)課程信息單；輸出數(shù)據(jù)流：班級(jí)課程信息單。3.4.3數(shù)據(jù)存儲(chǔ)描述數(shù)據(jù)存儲(chǔ)編號(hào)：F-01數(shù)據(jù)存儲(chǔ)名稱：成績(jī)信息單；數(shù)據(jù)存儲(chǔ)組成：考試編號(hào)+學(xué)號(hào)+課程號(hào)+成績(jī)；關(guān)鍵字：考試編號(hào)+學(xué)號(hào)+課程號(hào)；相關(guān)處理：P-01。3.4.4外部實(shí)體描述外部實(shí)體編號(hào)：S-01；外部實(shí)體名稱：教務(wù)處；輸入數(shù)據(jù)流：D-01。第3章標(biāo)題PAGE8PAGE15第4章系統(tǒng)設(shè)計(jì)4.1系統(tǒng)功能設(shè)計(jì)該系統(tǒng)功能劃分為用戶管理、年級(jí)信息管理班級(jí)信息管理、班級(jí)信息設(shè)置、課程信息管理、學(xué)籍信息管理、成績(jī)信息管理、查詢管理、統(tǒng)計(jì)報(bào)表。其功能模塊圖如下：圖4-1功能模圖4.2代碼設(shè)計(jì)在系統(tǒng)設(shè)計(jì)過程中，所有信息均實(shí)現(xiàn)了代碼化，比如學(xué)生表中的學(xué)號(hào)、課程表中的課程號(hào)、班級(jí)表中的班級(jí)號(hào)等。代碼為事物提供一個(gè)概要而不含糊的認(rèn)定，便于數(shù)據(jù)的存儲(chǔ)和檢索；代碼化提高了處理的效率和精度；代碼化提高了數(shù)據(jù)的全局一致性，提高了系統(tǒng)的整體性、減少了因數(shù)據(jù)不一致而造成的錯(cuò)誤。4.3數(shù)據(jù)庫(kù)設(shè)計(jì)在系統(tǒng)設(shè)計(jì)過程中，首先要建立的就是數(shù)據(jù)庫(kù)。本數(shù)據(jù)庫(kù)采用SQLServer2000來構(gòu)造，共使用了8個(gè)表，它們分別是用戶信息表（user_info）、學(xué)生信息表（student_info）、班級(jí)信息表（class_info）、學(xué)校年級(jí)信息表（schoolgrade_info）、年級(jí)課程信息表（gradecourse_info）、成績(jī)信息表（result_info）、課程信息表（course_info）、學(xué)校信息表（school_info）用戶信息表（user_info）：CREATETABLE[dbo].[user_info]( [user_id][varchar](10)COLLATEChinese_PRC_CI_ASNOTNULL, [user_name][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [user_pwd][varchar](10)COLLATEChinese_PRC_CI_ASNULL, [user_des][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [user_level][int]NOTNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-1用戶表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空User_idvarchar10NOTNULLUser_namevarchar20NULLUser_pwdvarchar10NULLUser_desvarchar20NULLUser_levelintNOTNULL學(xué)生基本情況表（student）：CREATETABLE[dbo].[student_info]( [student_id][varchar](15)COLLATEChinese_PRC_CI_ASNOTNULL, [student_name][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [student_gender][char](2)COLLATEChinese_PRC_CI_ASNULL, [birth_date][varchar](15)COLLATEChinese_PRC_CI_ASNULL, [class_no][char](3)COLLATEChinese_PRC_CI_ASNOTNULL, [tele_number][varchar](20)COLLATEChinese_PRC_CI_ASNULL, [in_date][varchar](15)COLLATEChinese_PRC_CI_ASNULL, [address][varchar](30)COLLATEChinese_PRC_CI_ASNULL, [comment][varchar](100)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-2學(xué)生表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Student_idvarchar15NOTNULLStudent_namevarchar20NULLStudent_genderchar2NULLBirth_datevarchar15NULLClass_nochar3NULLTele_numbervarchar20rNULLIn_datevarchar15NULLaddressvarchar30NULLcommentvarchar100NULL班級(jí)信息表（class_info）：CREATETABLE[dbo].[class_Info]( [class_No][char](3)COLLATEChinese_PRC_CI_ASNOTNULL, [grade_No][char](10)COLLATEChinese_PRC_CI_ASNULL, [user_id][varchar](10)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-3班級(jí)表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Class_nochar3NOTNULLGrade_nochar10NULLUser_idvarchar10NULL學(xué)校年級(jí)信息(schoolgrade_info)：CREATETABLE[dbo].[schoolgrade_info]( [grade_No][char](8)COLLATEChinese_PRC_CI_ASNOTNULL, [grade_name][varchar](20)COLLATEChinese_PRC_CI_ASNOTNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-4學(xué)校年級(jí)表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Grade_nochar8NOTNULLGrade_namevarchar20NOTNULL年級(jí)課程信息表（gradecourse_info）：CREATETABLE[dbo].[gradecourse_info]( [grade_No][char](8)COLLATEChinese_PRC_CI_ASNULL, [course_No][int]NULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-5年級(jí)課程表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Grade_nochar8NULLCourse_noint20NULL成績(jī)信息表（result_info）：CREATETABLE[dbo].[result_Info]( [exam_No][char](10)COLLATEChinese_PRC_CI_ASNOTNULL, [student_Id][varchar](15)COLLATEChinese_PRC_CI_ASNOTNULL, [course_no][int]NOTNULL, [result][float]NOTNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-6成績(jī)表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Exam_nochar10NOTNULLStudent_idvarchar15NOTNULLCourse_nointNOTNULLresultfloatNOTNULL課程信息表（course_info）：CREATETABLE[dbo].[course_info]( [course_No][int]NOTNULL, [course_Name][varchar](30)COLLATEChinese_PRC_CI_ASNULL, [course_type][char](20)COLLATEChinese_PRC_CI_ASNULL, [course_des][varchar](60)COLLATEChinese_PRC_CI_ASNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-7課程表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Course_nointNOTNULLCourse_namevarchar30NULLCourse_typechar20NULLCourse_desvarchar60NULL學(xué)校信息表（school_info）：CREATETABLE[dbo].[school_info]( [school_name][varchar](12)COLLATEChinese_PRC_CI_ASNOTNULL, [school_tel][varchar](12)COLLATEChinese_PRC_CI_ASNOTNULL)ON[PRIMARY]GO表結(jié)構(gòu)如下表所示：表4-8學(xué)校信息表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空School_namevarchar12NOTNULLSchool_telvarchar12NOTNULLREF_Ref168484640\r\h錯(cuò)誤！未找到引用源。REF_Ref168484646\h錯(cuò)誤！未找到引用源。PAGE30第5章系統(tǒng)實(shí)施5.1模塊設(shè)計(jì)添加一個(gè)標(biāo)準(zhǔn)模塊ModConString和類模塊OpenRs。ModConString部分主要包括定義一個(gè)數(shù)據(jù)庫(kù)連接字符串。代碼如下：'定義一個(gè)屬性過程反映連接字符串PublicPropertyGetconString()AsVariantconString="IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Sims_four"EndProperty'定義一個(gè)提供者反映數(shù)據(jù)庫(kù)類型PublicPropertyGetconProvide()AsVariantconProvide="SQLOLEDB.1"EndPropertyOpenRs部分主要包括定義一個(gè)打開數(shù)據(jù)庫(kù)的類對(duì)象。代碼如下：OptionExplicitPrivatecnSIMSAsADODB.ConnectionPrivatersSimsAsADODB.RecordsetPublicrs1AsADODB.RecordsetPublicrs2AsADODB.RecordsetPublicrstAsADODB.RecordsetPrivateDataAsObjectPrivateSubClass_Initialize()OnErrorGoToDbnotOpenSetcnSIMS=NewADODB.ConnectionWithcnSIMS.Provider=conProvide.ConnectionString=conString.ConnectionTimeout=10.OpenSetrst=NewADODB.RecordsetEndWithExitSubDbnotOpen:IfErr=-2147467259ThenSetcnSIMS=NothingMsgBox"連接后臺(tái)數(shù)據(jù)庫(kù)失??！"&vbCrLf&vbCrLf&"請(qǐng)檢查配置是否完好,數(shù)據(jù)庫(kù)Sims_four是否存在?",vbOKOnly+vbInformation,"學(xué)生信息管理系統(tǒng)"EndEndIfEndSubPrivateSubClass_GetDataMember(DataMemberAsString,DataAsObject)SetData=rsSimsEndSubPublicFunctionrsDK(TableAsString)SetrsSims=NewADODB.RecordsetWithrsSims.Source=Table.ActiveConnection=cnSIMS.CursorType=adOpenKeyset.LockType=adLockOptimistic.Open,,,,adCmdTableEndWithEndFunctionPublicFunctionrsDK1(sqlAsString)Setrs1=NewADODB.RecordsetWithrs1.Source=sql.ActiveConnection=cnSIMS.CursorType=adOpenKeyset.LockType=adLockOptimistic.Open,,,,adCmdTextEndWithEndFunctionPublicFunctionrsDK2(sqlAsString)Setrs2=NewADODB.RecordsetWithrs2.Source=sql.ActiveConnection=cnSIMS.CursorType=adOpenStatic.LockType=adLockOptimistic.Open,,,,adCmdTextEndWithEndFunctionPrivateSubClass_Terminate()SetcnSIMS=NothingSetrs1=NothingSetrs2=NothingSetrsSims=NothingSetrst=NothingEndSub5.2登錄窗體設(shè)計(jì)添加一個(gè)窗體（FrmLogin）。該部分主要包括用戶的驗(yàn)證以及登錄次數(shù)的限制。窗體運(yùn)行情況如下圖所示：圖5-1登錄圖代碼如下：DimMyLoginAsOpenRsDimUseridSQLAsStringDimLevelAsIntegerPublicCurrentUserAsStringPrivateSubCmdcancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()IftxtUserId.Text=""ThenMsgBox"請(qǐng)輸入用戶編號(hào)！",vbOKOnly+vbInformation,"用戶登陸"txtUserId.SetFocusExitSubElseUseridSQL="select*fromUser_Infowhereuser_Id='"&txtUserId.Text&"'"MyLogin.rsDK1UseridSQL5.3主界面設(shè)計(jì)添加一個(gè)窗體（FrmMain）。該部分主要添加Trimer1、StatusBar、DNetMenu1控件和菜單編輯器。以用戶名為1001、密碼為123登錄，窗體運(yùn)行情況如下圖所示：圖5-2系統(tǒng)主界面圖代碼如下：DimMyinfoAsStringDimsuccessAsLongDimClassprintAsOpenRsPrivateSubmnuAddResult_Click()Frmresult.ShowEndSubPrivateSubmnuClassQuery_Click()FrmClassQuery.ShowEndSubPrivateSubmnuClassReport_Click()Classprint.rsDK1"selectc.class_no,s.grade_no,grade_name,u.user_id,user_namefromclass_infocinnerjoinschoolgrade_infosonc.grade_no=s.grade_noinnerjoinuser_infouonc.user_id=u.user_id"ClassReport.ShowSetClassReport.DataSource=Classprint.rs1EndSubPrivateSubmnuCourseQuery_Click()FrmCourseQuery.ShowEndSubPrivateSubmnuMatter_Click()'htmlhelphwnd,"sims.chm",0,0EndSubPrivateSubmnuResultQuery_Click()FrmResultQuery.ShowEndSubPrivateSubmnuSchoolSet_Click()FrmSchoolInfo.ShowEndSubPrivateSubmnuSetClass_Click()FrmClassInfo.ShowEndSubPrivateSubmnuAddStudentInfo_Click()FrmAddStudentInfo.ShowEndSubPrivateSubmnuAddUser_Click()FrmAddUser.ShowEndSubPrivateSubmnuDeleteUser_Click()FrmDelUser.ShowEndSub5.3.1StatusBar1PrivateSubMDIForm_Load()DimmypanelAsPanelSetmypanel=StatusBar1.Panels.Add(1,,,sbrDate)'狀態(tài)欄1顯示日期Setmypanel=StatusBar1.Panels.Add(2)'狀態(tài)欄2顯示星期幾CallMyWeekDaySetmypanel=StatusBar1.Panels.Add(3)StatusBar1.Panels(3).Text="當(dāng)前用戶："&FrmLogin.CurrentUsermypanel.AutoSize=sbrContentsSetmypanel=StatusBar1.Panels.Add(4)'狀態(tài)欄3顯示文本消息mypanel.AutoSize=sbrSpringEndSubPrivateSubMyWeekDay()SelectCaseWeekday(Date)Case1StatusBar1.Panels(2).Text="星期日"Case2StatusBar1.Panels(2).Text="星期一"Case3StatusBar1.Panels(2).Text="星期二"Case4StatusBar1.Panels(2).Text="星期三"Case5StatusBar1.Panels(2).Text="星期四"Case6StatusBar1.Panels(2).Text="星期五"Case7StatusBar1.Panels(2).Text="星期六"EndSelectEndSub5.3.2Timer1PrivateSubTimer1_Timer()IfMyinfo=""ThenMyinfo=Space(85)&"歡迎使用學(xué)生信息管理系統(tǒng)！"EndIfMyinfo=Right(Myinfo,Len(Myinfo)-1)StatusBar1.Panels(4).Text=MyinfoEndSub5.3.3菜單編輯器在主窗體上添加一個(gè)菜單編輯器，菜單結(jié)構(gòu)、屬性如下表所示：表5-1系統(tǒng)菜單圖標(biāo)題名稱標(biāo)題名稱文件（&F）…注銷…退出系統(tǒng)mnuFilemnulogoffmnuExit課程信息管理…課程信息設(shè)置…年級(jí)課程開設(shè)mnuCourseInfomnuSetCourseInfomnuSetCourse用戶管理…用戶添加…用戶刪除…用戶修改mnuUserManagemnuAddUsermnuDeleteUsermnuModiPwd學(xué)籍信息管理…學(xué)籍信息設(shè)置mnuStudentInfomnuAddstudentInfo年級(jí)信息管理…學(xué)校年級(jí)設(shè)置…學(xué)校信息設(shè)置mnuGrademnuSetGrademnuSchoolSet成績(jī)信息管理…成績(jī)信息設(shè)置mnuResultmnuAddResult班級(jí)信息管理…班級(jí)信息設(shè)置mnuClassmnuSetClass查詢管理…班級(jí)信息查詢…課程信息查詢…成績(jī)信息查詢…學(xué)籍信息查詢mnuQuerymnuClassQuerymnuCourseQuerymnuResultQuerymnuStudentInfo統(tǒng)計(jì)報(bào)表中心…班級(jí)信息統(tǒng)計(jì)報(bào)表…學(xué)生信息統(tǒng)計(jì)報(bào)表mnuReportmnuClassReportmnuStudentReport5.4查詢管理窗體設(shè)計(jì)5.4.1班級(jí)信息查詢添加一個(gè)窗體（FrmClassQuery）該部分主要包括班級(jí)基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-3班級(jí)信息查詢圖5.4.2課程信息查詢添加一個(gè)窗體（FrmCourseQuer）該部分主要包括班級(jí)基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-4課程信息查詢圖5.4.3成績(jī)信息查詢添加一個(gè)窗體（FrmResultQuer）該部分主要包括班級(jí)基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-5成績(jī)信息查詢圖5.4.4學(xué)籍信息查詢添加一個(gè)窗體（FrmStudentInfoQuer）該部分主要包括班級(jí)基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-6學(xué)籍信息查詢圖5.5用戶信息管理5.5.1用戶注冊(cè)窗體設(shè)計(jì)添加一個(gè)窗體（FrmAddUser）。該部分主要完成用戶的注冊(cè)功能。窗體運(yùn)行情況如下圖所示：圖5-7添加用戶圖代碼如下：DimMyAddUserAsOpenRsDimChooseAsBooleanDimLevelAsIntegerPrivateSubCmdcancel_Click()UnloadMeEndSubPrivateSubcmdComp_Click()'完成按鈕MyAddUser.rs1.AddNewMyAddUser.rs1!user_id=Trim(txtUserId.Text)MyAddUser.rs1!user_name=Trim(txtUserName)MyAddUser.rs1!user_des=Trim(txtUserdes.Text)MyAddUser.rs1!user_pwd=Trim(txtPwd1.Text)MyAddUser.rs1!user_level=LevelMyAddUser.rs1.UpdateIfMsgBox("添加用戶成功！"&vbCrLf&vbCrLf&"是否繼續(xù)添加用戶？",vbYesNo+vbQuestion,"添加用戶")=vbYesThenFrame3.Visible=FalsecmdComp.Visible=FalseFrame1.Visible=TruecmdNext.Visible=TruetxtUserId.SetFocusCallClearTextElseUnloadMeEndIfEndSub5.5.2密碼修改窗體設(shè)計(jì)添加一個(gè)窗體（FrmModiPass）該部分主要完成用戶密碼修改的功能。情況如下圖所示：圖5-8修改密碼圖代碼如下：PrivateSubcmdOK_Click()IftxtUserId.Text=""ThenMsgBox"請(qǐng)輸入用戶編號(hào)！",vbOKOnly+vbInformation,"修改密碼"txtUserId.SetFocusExitSubEndIfIftxtUserName.Text=""ThenMsgBox"用戶編號(hào)不存在！",vbOKOnly+vbInformation,"修改密碼"txtUserId.Text=""txtUserId.SetFocusExitSubEndIfIftxtOldPass.Text=""ThenMsgBox"請(qǐng)輸入舊密碼！",vbOKOnly+vbInformation,"修改密碼"txtOldPass.SetFocusExitSubEndIfIftxtNewPass.Text=""ThenMsgBox"請(qǐng)輸入新密碼！",vbOKOnly+vbInformation,"修改密碼"txtNewPass.SetFocusExitSubEndIfIftxtNewPass1.Text=""ThenMsgBox"請(qǐng)輸入新密碼！",vbOKOnly+vbInformation,"修改密碼"txtNewPass1.SetFocusExitSubEndIfIftxtNewPass.Text=txtNewPass1.TextThenModipass.rs1!user_pwd=txtNewPass.TextModipass.rs1.UpdateMsgBox"密碼修改成功！",vbOKOnly+vbInformation,"修改密碼"txtUserId.Text=""txtUserId.SetFocusElseMsgBox"兩次輸入的密碼不一致，請(qǐng)重新輸入！",vbOKOnly+vbInformation,"修改密碼"txtNewPass.Text=""txtNewPass1.Text=""txtNewPass.SetFocusEndIfEndIfEndSubPrivateSubtxtNewPass_KeyPress(KeyAsciiAsInteger)IfKeyAscii=39ThenKeyAscii=0ElseIfKeyAscii=13ThentxtNewPass1.SetFocusEndIfEndSub5.6學(xué)籍信息管理窗體設(shè)計(jì)添加一個(gè)窗體（FrmAddStudentInfo）該部分主要完成學(xué)生學(xué)籍信息的增、刪、改的操作。窗體運(yùn)行情況如下圖所示：圖4-9學(xué)籍信息管理圖部分代碼如下：PrivateSubcmdAdd_Click()IfcmdAdd.Caption="添加(&A)"ThenCallClearTextcmdAdd.Caption="取消(&C)"Frame2.Enabled=TrueChange=TruetxtstudentName.SetFocuscmdSave.Caption="保存(&S)"cmdSave.Enabled=TruecmdDel.Enabled=FalseElseCallClearTextcmdAdd.Caption="添加(&A)"Frame2.Enabled=FalsecmdSave.Caption="保存(&S)"cmdSave.Enabled=FalsecmdDel.Enabled=FalseEndIfEndSubPrivateSubcmdDel_Click()myModiStudent.rsDK1"SELECT*FROMstudent_infowherestudent_id='"&txtStudentId.Text&"'"IfMsgBox("確認(rèn)要?jiǎng)h除該記錄嗎？",vbQuestion+vbOKCancel,"刪除記錄")=vbOKThenmyModiStudent.rs1.DeleteElseExitSubEndIfCallClearTextcmdSave.Caption="保存(&S)"myModiStudent.rsDK1"SELECT*FROMstudent_info"IfmyModiStudent.rs1.EOFThenStudentGrid.ClearStudentGrid.FormatString="|學(xué)號(hào)|姓名|性別|出生日期|班號(hào)|聯(lián)系電話|入校時(shí)間|家庭住址|ElseSetStudentGrid.DataSource=myModiStudent.rs1StudentGrid.FormatString="|學(xué)號(hào)|姓名|性別|出生日期|班號(hào)|聯(lián)系電話|入校時(shí)間|家庭住址|EndIfEndSub5.7課程信息管理窗體設(shè)計(jì)添加一個(gè)窗體（FrmCourse）括學(xué)校所開設(shè)課程的設(shè)定。窗體運(yùn)行情況如下圖所示：圖5-10課程信息圖代碼如下：PrivateSubAutoCourseNo()'窗體啟動(dòng)時(shí)自動(dòng)檢測(cè)課程編號(hào)myCourse.rsDK2"select*fromcourse_info"IfmyCourse.rs2.EOF=TrueThenTxtcouNo.Text="1"