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

摘要洛陽理工學(xué)院畢業(yè)設(shè)計（論文）PAGEIVPAGE3學(xué)生信息管理系統(tǒng)摘要學(xué)生信息管理系統(tǒng)是一個教育單位不可缺少的部分，它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要。隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫技術(shù)支持下完成的。本文在結(jié)構(gòu)上首先論述了畢業(yè)設(shè)計選題的背景、目的和意義，然后敘述了開發(fā)環(huán)境、開發(fā)平臺以及數(shù)據(jù)庫技術(shù)，接著用表格和圖片的方式介紹了系統(tǒng)的整體規(guī)劃，接下來是系統(tǒng)在具體實(shí)現(xiàn)中的詳細(xì)內(nèi)容，最終本系統(tǒng)能夠完成信息的輸入、輸出,數(shù)據(jù)的修改、查詢以及打印報表等功能，本系統(tǒng)界面友好，操作簡單，比較實(shí)用。關(guān)鍵詞：控件，窗體，報表，關(guān)系數(shù)據(jù)庫管理系統(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ā)展趨勢 2第2章開發(fā)環(huán)境、工具介紹 42.1VisualBasic6.0 42.1.1VisualBasic的編程特點(diǎn) 42.1.2VB支持的數(shù)據(jù)庫系統(tǒng) 52.2SQLServer2000簡介 52.2.1SQLServer數(shù)據(jù)庫特點(diǎn) 62.3ADO對象概述 72.3.1利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序 82.3.2ADO組件的主要對象及其功能 92.3.3用來操控數(shù)據(jù)的SQL命令 92.4VB訪問數(shù)據(jù)庫過程 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è)計 154.1系統(tǒng)功能設(shè)計 154.2代碼設(shè)計 164.3數(shù)據(jù)庫設(shè)計 16第5章系統(tǒng)實(shí)施 225.1模塊設(shè)計 225.2登錄窗體設(shè)計 245.3主界面設(shè)計 265.3.1StatusBar1 285.3.2Timer1 295.3.3菜單編輯器 295.4查詢管理窗體設(shè)計 305.4.1班級信息查詢 305.4.2課程信息查詢 305.4.3成績信息查詢 315.4.4學(xué)籍信息查詢 315.5用戶信息管理 325.5.1用戶注冊窗體設(shè)計 325.5.2密碼修改窗體設(shè)計 335.6學(xué)籍信息管理窗體設(shè)計 365.7課程信息管理窗體設(shè)計 385.8統(tǒng)計報表中心設(shè)計 395.8.1ClassReport設(shè)計 395.8.2StudnetReport設(shè)計 405.8.3StudnetReport設(shè)計 405.9班級信息設(shè)計 415.10成績信息設(shè)計 415.11年級信息設(shè)計 42結(jié)論 43謝辭 44參考文獻(xiàn) 45前言學(xué)生信息管理系統(tǒng)是一個教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要,所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄?。但一直以來人們使用傳統(tǒng)人工的方式管理學(xué)生學(xué)籍檔案，這種管理方式存在著許多缺點(diǎn),如:效率低、保密性差,另外時間一長,將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高,計算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻認(rèn)識,它已進(jìn)入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。作為計算機(jī)應(yīng)用的一部分,使用計算機(jī)對學(xué)生學(xué)籍信息進(jìn)行管理,具有著手工管理所無法比擬的優(yōu)點(diǎn).例如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(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í)際情況，自行研制一個學(xué)生信息管理系統(tǒng)。1.2課題目的及意義由于現(xiàn)今的學(xué)生信息管理非常繁瑣，行政人員付出大量的工作時間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān)，決定開發(fā)學(xué)生信息管理系統(tǒng)。計算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計算機(jī)的價格已經(jīng)十分低廉，性能有了長足的進(jìn)步。它已經(jīng)被應(yīng)用于許多領(lǐng)域，計算機(jī)之所以如此流行的原因主要有以下幾個方面：首先，計算機(jī)可以代替人工進(jìn)行許多繁雜的勞動；其次，計算機(jī)可以節(jié)省許多資源；第三，計算機(jī)可以大大的提高人們的工作效率；第四，計算機(jī)可以使敏感文檔更加安全等等。為了解決傳統(tǒng)學(xué)生信息的管理正面臨著的這些問題，我所設(shè)計的學(xué)生信息管理系統(tǒng)也就應(yīng)運(yùn)而生了。1.3研究方法、發(fā)展趨勢本系統(tǒng)采用功能分析法即通過說明社會現(xiàn)象怎樣滿足一個社會系統(tǒng)的需要（即具有怎樣的功能）來解釋社會現(xiàn)象和CS模式共同完成?，F(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展，對學(xué)習(xí)活動產(chǎn)生了具有深遠(yuǎn)意義的沖擊，人們可以選擇或者設(shè)計適合其學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式。本系統(tǒng)采用CS模式，在某些方面還不是表現(xiàn)的很好，但未來有關(guān)學(xué)生信息管理的應(yīng)該采用多層架構(gòu)的系統(tǒng)，是真正適應(yīng)教育信息化發(fā)展三大趨勢的校園網(wǎng)絡(luò)應(yīng)用系統(tǒng)，全面支持Internet功能、遠(yuǎn)程訪問功能，采用先進(jìn)的CS和BS模式共同開發(fā)，支持有關(guān)學(xué)校信息交流、日常教學(xué)、教務(wù)管理等的各種應(yīng)用，提供一個基于校園內(nèi)聯(lián)網(wǎng)中支持各種類型的學(xué)校應(yīng)用產(chǎn)品的服務(wù)平臺和開發(fā)平臺，基本目標(biāo)是在學(xué)校內(nèi)部和外部建立起順暢的信息通道，讓信息技術(shù)成為推動教育生產(chǎn)力的有力工具，提高學(xué)校的管理水平和效率，同時充分利用全球的教育資源為學(xué)校的教育服務(wù)，克服目前大部分學(xué)校的校園網(wǎng)建設(shè)只起到宣傳作用的通病。REF_Ref168484390\r\h錯誤！未找到引用源。REF_Ref168484424\h錯誤！未找到引用源。PAGE6PAGE11第2章開發(fā)環(huán)境、工具介紹該軟件是在WindowsXPProfessional+VisualBasic6.0+SQLServer2000的環(huán)境下完成的。下面就對這些開發(fā)工具進(jìn)行介紹：2.1VisualBasic6.0微軟公司的VisualBasic6.0是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。利用VISUALBASIC程序設(shè)計語言，可以很方便地設(shè)計出在WINDOWS環(huán)境下運(yùn)行的應(yīng)用程序。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。2.1.1VisualBasic的編程特點(diǎn)VisualBasic語言的出現(xiàn)為Windows下的編程提出了一個新概念，利用VisualBasic的動態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動態(tài)鏈接庫、ActiveX技術(shù)可以很方便地設(shè)計出功能強(qiáng)大的應(yīng)用程序。利用VisualBasic語言編程有以下幾個特點(diǎn)：1.可視化程序設(shè)計在VisualBasic中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時由用戶為開發(fā)圖形界面添加的代碼真是少而又少，因?yàn)樵谠O(shè)計圖形界面的過程中只需設(shè)置ActiveX控件的屬性即可。2.強(qiáng)大的數(shù)據(jù)庫和網(wǎng)絡(luò)功能隨著VisualBasic語言的向前發(fā)展，它在數(shù)據(jù)庫和網(wǎng)絡(luò)方面的功能優(yōu)勢就愈加明顯，利用VisualBasic中的ODBC——開放式的數(shù)據(jù)庫訪問技術(shù)可以很方便地開發(fā)出自己的數(shù)據(jù)庫應(yīng)用程序；利用VisualBasic自帶的可視化數(shù)據(jù)管理器和報表生成器，完全可以在VisualBasic就完成數(shù)據(jù)庫的開發(fā)工作。3.其他特性在VisualBasic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了VisualBasic的發(fā)展。從VisualBasic5.0版本開始，在VisualBasic中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得VisualBasic的代碼效率有了很大的提高，同時執(zhí)行的速度也加快了解30%(同VisualBasic4.0相比)。當(dāng)然在VisualBasic中還有其它特性，例如：面向?qū)ο蟮木幊陶Z言；結(jié)構(gòu)化程序設(shè)計；事件驅(qū)動的程序設(shè)計：在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時才會調(diào)用過程。在事件驅(qū)動的應(yīng)用程序中，代碼不是按預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)、甚至由應(yīng)用程序本身的消息觸發(fā)。這些事件的順序，決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時所經(jīng)過的路徑都是不同的。支持動態(tài)鏈接庫；應(yīng)用程序之間的資源共享；事件驅(qū)動的程序設(shè)計。2.1.2VB支持的數(shù)據(jù)庫系統(tǒng)VB支持對多格式的數(shù)據(jù)庫的訪問和維護(hù)，無論是Access還是Foxpro中創(chuàng)建的數(shù)據(jù)庫，都可以用VB打開，對其進(jìn)行查詢、修改和刪除等操作。事實(shí)上，VB幾乎支持對市面上所有數(shù)據(jù)庫的訪問。VB可以訪問的數(shù)據(jù)庫可以簡單的分為三類，即：MicrosoftAccess格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和ODBC數(shù)據(jù)庫。VB對多種數(shù)據(jù)庫格式的支持，大大的增強(qiáng)了開發(fā)數(shù)據(jù)庫應(yīng)用程序的能力。2.2SQLServer2000簡介SQLServer2000是微軟公司最新版的大型數(shù)據(jù)庫服務(wù)器，其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢。用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫構(gòu)架，與WindowsNT/2000平臺緊密集成，具有完全的Web功能。通過對高端硬件平臺、網(wǎng)絡(luò)和存儲技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在Internet商業(yè)領(lǐng)域快速建立并應(yīng)用。此外，還增強(qiáng)了安全性，保護(hù)防火墻內(nèi)外的數(shù)據(jù)。支持基于角色的安全并擁有安全審計工具。在經(jīng)歷了SQLServer6.5和7.0兩個版本的嘗試后，微軟公司終于開始了大規(guī)模的業(yè)務(wù)。記得在以前各種關(guān)于SQLServer的文章，都會將其定位成中小型應(yīng)用方面，這種感覺被大家自然的延續(xù)到了2000版之中。其實(shí)這是一種誤解。在過去的很長一段時間中，微軟公司聘請了世界上最優(yōu)秀的數(shù)據(jù)庫專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持，再配合其一向?yàn)槿朔Q道的易用性，SQLServer可以說成為了開發(fā)者手中的一柄利器。另外，目前國內(nèi)的一些關(guān)于微軟平臺的數(shù)據(jù)庫編程教程，喜歡使用Access作為數(shù)據(jù)庫平臺的案例，并展開相關(guān)的內(nèi)容。這其實(shí)對于開發(fā)真正的數(shù)據(jù)庫應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級階段。SQLServer2000提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQLServer2000可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。2.2.1SQLServer數(shù)據(jù)庫特點(diǎn)概括起來，SQLServer2000數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQLServer企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQLServer服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。此外，SQLServer2000還提供了SQL事件探查器、SQL查詢分析器、SQLServer服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。動態(tài)自動管理和優(yōu)化功能。即使SQLServer數(shù)據(jù)庫管理員不做任何設(shè)置，SQLServer也能夠在運(yùn)行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。充分的Internet技術(shù)支持。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQLServer增強(qiáng)了對Internet技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫Web出版工具“Web助手”外，還增強(qiáng)了對XML和HTTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過XML等訪問SQLServer數(shù)據(jù)庫系統(tǒng)，也擴(kuò)展了SQLServer在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。豐富的編程接口工具，使用戶開發(fā)SQLServer數(shù)據(jù)庫應(yīng)用程序更加靈活。SQLServer提供了Transact-SQL、DB-LibraryforC、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標(biāo)準(zhǔn)SQL語言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQLServer2000還支持ODBC、OLEDB、ADO規(guī)范，可以使用ODBC、OLEDB、ADO接口訪問SQLServer數(shù)據(jù)庫。具有很好的伸縮性和可靠性。SQLServer2000既能運(yùn)行在Windows桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括WindowsNT和Windows2000）下；既能運(yùn)行在單CPU計算機(jī)上，又能運(yùn)行在對稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。簡單的管理方式。SQLServer2000與MicrosoftWindows2000有機(jī)集成，所以可以使用Windows2000的活動目錄（ActiveDirectory）功能對SQLServer進(jìn)行集中管理，大大簡化大型企業(yè)中的系統(tǒng)管理工作。此外，與Windows2000的集成還使SQLServer能夠充分利用操作系統(tǒng)所提供的服務(wù)和功能（如安全管理、事件日志、性能監(jiān)視器、內(nèi)存管理和異步I/O等），從而增強(qiáng)了SQLServer數(shù)據(jù)庫系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源。2.3ADO對象概述ADO對象能夠存取到數(shù)據(jù)庫的內(nèi)容，首先要求數(shù)據(jù)庫的驅(qū)動程序(ODBC驅(qū)動程序與OLEDB驅(qū)動程序)必須安裝上，否則，ADO對象是無法存取數(shù)據(jù)庫中內(nèi)容，其原理示意圖如下圖所示：圖2-1ADO連接請注意：上圖中的“各種數(shù)據(jù)庫所對應(yīng)的驅(qū)動程序”即ODBC驅(qū)動程序與OLEDB驅(qū)動程序。2.3.1利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序ADO（ActiveDateObjects,即ActiveX數(shù)據(jù)對象）是一個ASP內(nèi)置的ActiveX服務(wù)器組件（ActiveXServerComponent）?？砂阉cASP結(jié)合起來，建立提供數(shù)據(jù)庫信息的網(wǎng)頁內(nèi)容，對數(shù)據(jù)庫進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時更新顯示”的最新Web數(shù)據(jù)庫技術(shù)。要執(zhí)行ADO，服務(wù)器端必須安裝WindowsNTServer和InternetInformationServer(IIS)，而客戶端只要有IE或NETSCAPE較新版本的瀏覽器即可。利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序有以下幾個優(yōu)點(diǎn)：支持客戶機(jī)/服務(wù)器結(jié)構(gòu)（Client/Server）與Web系統(tǒng)開發(fā)技術(shù)。內(nèi)部有多個互相獨(dú)立的對象模型。支持分批修改數(shù)據(jù)庫內(nèi)容。支持多種不同的數(shù)據(jù)控制指標(biāo)形式。先進(jìn)的Recordset數(shù)據(jù)高速緩存管理功能。允許在程序中使用多個Recordset對象或者多個分批修改區(qū)塊傳送。ADO屬于Free_threaded對象，利用它可以開發(fā)出更有效的Web應(yīng)用程序。2.3.2ADO組件的主要對象及其功能ADO組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象：1.Connection對象：提供對數(shù)據(jù)庫的連接服務(wù)。2.Command對象：定義對數(shù)據(jù)庫源操作的命令。3.Recordset對象：由數(shù)據(jù)庫服務(wù)器所返回的記錄集。Recordset對象的LockType屬性的設(shè)置值如下表所示：表2-1LockType屬性常量值說明adLockReadOnly1默認(rèn)值，只讀。無法更改數(shù)據(jù)adLockPressimistic2保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。adLockOptimistic3開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用Updata方法時鎖定記錄。adLockBatchOptimistic4開放式批更新。用于與立即更新模式相反的批更新模式。4.Fields對象：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段。5.Parametes對象：表示Command對象的參數(shù)。6.Property對象：單獨(dú)的一個Property對象，提供屬性功能。7.Error對象：提供處理錯誤的功能。使用ADO對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯誤信息等。2.3.3用來操控數(shù)據(jù)的SQL命令SQL命令是發(fā)送給數(shù)據(jù)庫并要求數(shù)據(jù)庫操作的指令，它是專門為數(shù)據(jù)庫設(shè)計的語言，比一般的計算機(jī)程序語言簡單的多。SQL命令主要分成兩部分：DDL(DataDefinitionLanguage)和DML(DataManipulationLanguage),其中DDL是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而DML則是操作數(shù)據(jù)庫記錄的指令群，如數(shù)據(jù)庫記錄的添加、更新、刪除、和查詢等。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指令基本語法：DeleteFrom數(shù)據(jù)表Where條件式。3.更新數(shù)據(jù)記錄的Update指令基本語法：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ū)別是，這個指令將建立另一個新的數(shù)據(jù)表，而InsertInto是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。2.4VB訪問數(shù)據(jù)庫過程2.4.1定義數(shù)據(jù)庫組件DimconnAsNewADODB.Connection其中conn為連接對象；DimrecoAsNewADODB.Recordset其中reco為結(jié)果集對象。2.4.2打開數(shù)據(jù)庫對于SQL數(shù)據(jù)庫，其連接語句為conn.Open"Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Sims_four"。而對于Access數(shù)據(jù)庫，連接語句為conn.Open"Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path+"\Sims_four.mdb"設(shè)定SQL語句，使用“Execute”命令，即可開始執(zhí)行訪問數(shù)據(jù)庫的動作。2.4.3關(guān)閉結(jié)果集對象，斷開與數(shù)據(jù)庫的連接reco.Close；conn.Close。第3章REF_Ref168484495\h錯誤！未找到引用源。洛陽理工學(xué)院畢業(yè)設(shè)計（論文）PAGE13第3章系統(tǒng)分析3.1系統(tǒng)功能分析隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對龐大的信息量就需要有一個學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計內(nèi)容為管理員或普通用戶登錄該系統(tǒng)進(jìn)行八個模塊操作：用戶管理：用戶添加、用戶刪除、密碼修改；年級信息管理：學(xué)校年級設(shè)置、學(xué)校信息設(shè)置；班級信息管理：班級信息設(shè)置；課程信息管理：課程信息設(shè)置、年級課程開設(shè)；學(xué)籍信息管理：學(xué)籍信息設(shè)置；成績信息管理：成績信息設(shè)置；查詢管理：班級信息查詢、課程信息查詢、成績信息查詢、學(xué)籍信息查詢；統(tǒng)計報表：班級信息統(tǒng)計報表、學(xué)生信息統(tǒng)計報表。3.2業(yè)務(wù)流程圖通過對學(xué)校學(xué)生信息業(yè)務(wù)的實(shí)際調(diào)查分析，弄清楚了學(xué)生信息管理工件的業(yè)務(wù)流程和管理功能，系統(tǒng)的業(yè)務(wù)流程圖如下：學(xué)生信息流程圖圖3-1學(xué)生信息流程圖學(xué)校年級、課程流程圖圖3-2學(xué)校年級、課程流程圖3.3數(shù)據(jù)流程圖學(xué)生信息數(shù)據(jù)流程圖：圖3-3學(xué)生信息數(shù)據(jù)流程圖課程、年級、成績數(shù)據(jù)流程圖：圖3-4課程、年級、成績數(shù)據(jù)流程圖3.4數(shù)據(jù)字典3.4.1數(shù)據(jù)流的描述數(shù)據(jù)流編號：D-01；數(shù)據(jù)流名稱：學(xué)籍信息錄入；數(shù)據(jù)流來源：招生辦；數(shù)據(jù)流去向：教務(wù)處；數(shù)據(jù)項(xiàng)組成：學(xué)號+姓名+性別+出生日期+班號+電話+入學(xué)日期+地址+描述。3.4.2處理邏輯描述處理邏輯編號：P-01；處理邏輯名稱：班級課程信息；輸入的數(shù)據(jù)流：年級課程信息，班級信息；處理描述：形成班級課程信息單；輸出數(shù)據(jù)流：班級課程信息單。3.4.3數(shù)據(jù)存儲描述數(shù)據(jù)存儲編號：F-01數(shù)據(jù)存儲名稱：成績信息單；數(shù)據(jù)存儲組成：考試編號+學(xué)號+課程號+成績；關(guān)鍵字：考試編號+學(xué)號+課程號；相關(guān)處理：P-01。3.4.4外部實(shí)體描述外部實(shí)體編號：S-01；外部實(shí)體名稱：教務(wù)處；輸入數(shù)據(jù)流：D-01。第3章標(biāo)題PAGE8PAGE15第4章系統(tǒng)設(shè)計4.1系統(tǒng)功能設(shè)計該系統(tǒng)功能劃分為用戶管理、年級信息管理班級信息管理、班級信息設(shè)置、課程信息管理、學(xué)籍信息管理、成績信息管理、查詢管理、統(tǒng)計報表。其功能模塊圖如下：圖4-1功能模圖4.2代碼設(shè)計在系統(tǒng)設(shè)計過程中，所有信息均實(shí)現(xiàn)了代碼化，比如學(xué)生表中的學(xué)號、課程表中的課程號、班級表中的班級號等。代碼為事物提供一個概要而不含糊的認(rèn)定，便于數(shù)據(jù)的存儲和檢索；代碼化提高了處理的效率和精度；代碼化提高了數(shù)據(jù)的全局一致性，提高了系統(tǒng)的整體性、減少了因數(shù)據(jù)不一致而造成的錯誤。4.3數(shù)據(jù)庫設(shè)計在系統(tǒng)設(shè)計過程中，首先要建立的就是數(shù)據(jù)庫。本數(shù)據(jù)庫采用SQLServer2000來構(gòu)造，共使用了8個表，它們分別是用戶信息表（user_info）、學(xué)生信息表（student_info）、班級信息表（class_info）、學(xué)校年級信息表（schoolgrade_info）、年級課程信息表（gradecourse_info）、成績信息表（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ù)類型長度允許空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ù)類型長度允許空Student_idvarchar15NOTNULLStudent_namevarchar20NULLStudent_genderchar2NULLBirth_datevarchar15NULLClass_nochar3NULLTele_numbervarchar20rNULLIn_datevarchar15NULLaddressvarchar30NULLcommentvarchar100NULL班級信息表（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班級表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長度允許空Class_nochar3NOTNULLGrade_nochar10NULLUser_idvarchar10NULL學(xué)校年級信息(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é)校年級表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長度允許空Grade_nochar8NOTNULLGrade_namevarchar20NOTNULL年級課程信息表（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年級課程表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長度允許空Grade_nochar8NULLCourse_noint20NULL成績信息表（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成績表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長度允許空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ù)類型長度允許空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ù)類型長度允許空School_namevarchar12NOTNULLSchool_telvarchar12NOTNULLREF_Ref168484640\r\h錯誤！未找到引用源。REF_Ref168484646\h錯誤！未找到引用源。PAGE30第5章系統(tǒng)實(shí)施5.1模塊設(shè)計添加一個標(biāo)準(zhǔn)模塊ModConString和類模塊OpenRs。ModConString部分主要包括定義一個數(shù)據(jù)庫連接字符串。代碼如下：'定義一個屬性過程反映連接字符串PublicPropertyGetconString()AsVariantconString="IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=Sims_four"EndProperty'定義一個提供者反映數(shù)據(jù)庫類型PublicPropertyGetconProvide()AsVariantconProvide="SQLOLEDB.1"EndPropertyOpenRs部分主要包括定義一個打開數(shù)據(jù)庫的類對象。代碼如下：OptionExplicitPrivatecnSIMSAsADODB.ConnectionPrivatersSimsAsADODB.RecordsetPublicrs1AsADODB.RecordsetPublicrs2AsADODB.RecordsetPublicrstAsADODB.RecordsetPrivateDataAsObjectPrivateSubClass_Initialize()OnErrorGoToDbnotOpenSetcnSIMS=NewADODB.ConnectionWithcnSIMS.Provider=conProvide.ConnectionString=conString.ConnectionTimeout=10.OpenSetrst=NewADODB.RecordsetEndWithExitSubDbnotOpen:IfErr=-2147467259ThenSetcnSIMS=NothingMsgBox"連接后臺數(shù)據(jù)庫失?。?&vbCrLf&vbCrLf&"請檢查配置是否完好,數(shù)據(jù)庫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è)計添加一個窗體（FrmLogin）。該部分主要包括用戶的驗(yàn)證以及登錄次數(shù)的限制。窗體運(yùn)行情況如下圖所示：圖5-1登錄圖代碼如下：DimMyLoginAsOpenRsDimUseridSQLAsStringDimLevelAsIntegerPublicCurrentUserAsStringPrivateSubCmdcancel_Click()UnloadMeEndSubPrivateSubcmdOK_Click()IftxtUserId.Text=""ThenMsgBox"請輸入用戶編號！",vbOKOnly+vbInformation,"用戶登陸"txtUserId.SetFocusExitSubElseUseridSQL="select*fromUser_Infowhereuser_Id='"&txtUserId.Text&"'"MyLogin.rsDK1UseridSQL5.3主界面設(shè)計添加一個窗體（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菜單編輯器在主窗體上添加一個菜單編輯器，菜單結(jié)構(gòu)、屬性如下表所示：表5-1系統(tǒng)菜單圖標(biāo)題名稱標(biāo)題名稱文件（&F）…注銷…退出系統(tǒng)mnuFilemnulogoffmnuExit課程信息管理…課程信息設(shè)置…年級課程開設(shè)mnuCourseInfomnuSetCourseInfomnuSetCourse用戶管理…用戶添加…用戶刪除…用戶修改mnuUserManagemnuAddUsermnuDeleteUsermnuModiPwd學(xué)籍信息管理…學(xué)籍信息設(shè)置mnuStudentInfomnuAddstudentInfo年級信息管理…學(xué)校年級設(shè)置…學(xué)校信息設(shè)置mnuGrademnuSetGrademnuSchoolSet成績信息管理…成績信息設(shè)置mnuResultmnuAddResult班級信息管理…班級信息設(shè)置mnuClassmnuSetClass查詢管理…班級信息查詢…課程信息查詢…成績信息查詢…學(xué)籍信息查詢mnuQuerymnuClassQuerymnuCourseQuerymnuResultQuerymnuStudentInfo統(tǒng)計報表中心…班級信息統(tǒng)計報表…學(xué)生信息統(tǒng)計報表mnuReportmnuClassReportmnuStudentReport5.4查詢管理窗體設(shè)計5.4.1班級信息查詢添加一個窗體（FrmClassQuery）該部分主要包括班級基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-3班級信息查詢圖5.4.2課程信息查詢添加一個窗體（FrmCourseQuer）該部分主要包括班級基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-4課程信息查詢圖5.4.3成績信息查詢添加一個窗體（FrmResultQuer）該部分主要包括班級基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-5成績信息查詢圖5.4.4學(xué)籍信息查詢添加一個窗體（FrmStudentInfoQuer）該部分主要包括班級基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-6學(xué)籍信息查詢圖5.5用戶信息管理5.5.1用戶注冊窗體設(shè)計添加一個窗體（FrmAddUser）。該部分主要完成用戶的注冊功能。窗體運(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è)計添加一個窗體（FrmModiPass）該部分主要完成用戶密碼修改的功能。情況如下圖所示：圖5-8修改密碼圖代碼如下：PrivateSubcmdOK_Click()IftxtUserId.Text=""ThenMsgBox"請輸入用戶編號！",vbOKOnly+vbInformation,"修改密碼"txtUserId.SetFocusExitSubEndIfIftxtUserName.Text=""ThenMsgBox"用戶編號不存在！",vbOKOnly+vbInformation,"修改密碼"txtUserId.Text=""txtUserId.SetFocusExitSubEndIfIftxtOldPass.Text=""ThenMsgBox"請輸入舊密碼！",vbOKOnly+vbInformation,"修改密碼"txtOldPass.SetFocusExitSubEndIfIftxtNewPass.Text=""ThenMsgBox"請輸入新密碼！",vbOKOnly+vbInformation,"修改密碼"txtNewPass.SetFocusExitSubEndIfIftxtNewPass1.Text=""ThenMsgBox"請輸入新密碼！",vbOKOnly+vbInformation,"修改密碼"txtNewPass1.SetFocusExitSubEndIfIftxtNewPass.Text=txtNewPass1.TextThenModipass.rs1!user_pwd=txtNewPass.TextModipass.rs1.UpdateMsgBox"密碼修改成功！",vbOKOnly+vbInformation,"修改密碼"txtUserId.Text=""txtUserId.SetFocusElseMsgBox"兩次輸入的密碼不一致，請重新輸入！",vbOKOnly+vbInformation,"修改密碼"txtNewPass.Text=""txtNewPass1.Text=""txtNewPass.SetFocusEndIfEndIfEndSubPrivateSubtxtNewPass_KeyPress(KeyAsciiAsInteger)IfKeyAscii=39ThenKeyAscii=0ElseIfKeyAscii=13ThentxtNewPass1.SetFocusEndIfEndSub5.6學(xué)籍信息管理窗體設(shè)計添加一個窗體（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)要刪除該記錄嗎？",vbQuestion+vbOKCancel,"刪除記錄")=vbOKThenmyModiStudent.rs1.DeleteElseExitSubEndIfCallClearTextcmdSave.Caption="保存(&S)"myModiStudent.rsDK1"SELECT*FROMstudent_info"IfmyModiStudent.rs1.EOFThenStudentGrid.ClearStudentGrid.FormatString="|學(xué)號|姓名|性別|出生日期|班號|聯(lián)系電話|入校時間|家庭住址|ElseSetStudentGrid.DataSource=myModiStudent.rs1StudentGrid.FormatString="|學(xué)號|姓名|性別|出生日期|班號|聯(lián)系電話|入校時間|家庭住址|EndIfEndSub5.7課程信息管理窗體設(shè)計添加一個窗體（FrmCourse）括學(xué)校所開設(shè)課程的設(shè)定。窗體運(yùn)行情況如下圖所示：圖5-10課程信息圖代碼如下：PrivateSubAutoCourseNo()'窗體啟動時自動檢測課程編號myCourse.rsDK2"select*fromcourse_info"IfmyCourse.rs2.EOF=TrueThenTxtcouNo.Text="1"