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

摘要PAGEIVPAGE3同學(xué)信息管理系統(tǒng)摘要同學(xué)信息管理系統(tǒng)是一個(gè)教育單位不行缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要.隨著信息技術(shù)在管理上越來(lái)越深化而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷進(jìn)展的新型學(xué)科,任何一個(gè)單位要生存要進(jìn)展,要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái),就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫(kù)技術(shù)支持下完成的。本文在結(jié)構(gòu)上首先論述了畢業(yè)設(shè)計(jì)選題的背景、目的和意義，然后敘述了開(kāi)發(fā)環(huán)境、開(kāi)發(fā)平臺(tái)以及數(shù)據(jù)庫(kù)技術(shù)，接著用表格和圖片的方式介紹了系統(tǒng)的整體規(guī)劃,接下來(lái)是系統(tǒng)在簡(jiǎn)略實(shí)現(xiàn)中的簡(jiǎn)略內(nèi)容，最終本系統(tǒng)能夠完成信息的輸入、輸出,數(shù)據(jù)的修改、查詢以及打印報(bào)表等功能，本系統(tǒng)界面友好,操作簡(jiǎn)潔，比較有用。關(guān)鍵詞:控件，窗體，報(bào)表,關(guān)系數(shù)據(jù)庫(kù)管理系統(tǒng)，VＢ?StUDＥNTＳ’ＩNFＯRＭATIONMAＮAGEＭＥNTＳYＳTEMAＢSTＲACＴＡloｎgｗｉthｔhｅｉnfoｒmaｔｉoｎtｅcｈnologyｉｎｔhｅｍａnagｅmentoｆｍoreａndmorｅｄepｔｈaｎdawideraｎｇｅofａppｌications，tｈeｍanａgemｅｎｔinｆormatiｏｎsystemｉntheiｍpleｍenｔaｔionｏfｔeｃhnoloｇｙｈasgｒaduａllymａt(yī)urｅd.Mａnageｍｅｎtiｎformaｔｉonsysteｍｉsacｏntinuousdevｅlｏｐmｅntｏfnｅwdisciｐlines，anyoneｕｎittoｓurviveｉｓtｏdｅｖｅlopａｎdeｆfｉcientaｃtiviｔiｅsoftｈｅinternaloｒｇanizaｔionofoｒｇanic，itｍｕstesｔａblｉshitsoｗｎcharaｃterisｔicsiｎliｎewitｈthｅｍanaｇementinfoｒmatｉoｎsysteｍ。Tｈｉssystemisinmａnagemenｔinforｍａt(yī)ｉonｓyｓtｅmｕnｄｅrtheguｉdaｎceoftheｔheoryanｄmｅｔhod，ｄatａｂａseｔｅｃhｎｏlogｙsuｐportisdoｎe.Ｔhispapｅｒｆiｒｓｔdiｓcusｓesｔｈｅstructureinｔhegrａｄｕatｉonｄesｉgnbackｇroｕｎd,ｅｘpaｔiaｔestｈepｕrｐoｓｅaｎdsigｎiｆiｃance，thｅnｄｅscｒｉbesthｅdevelｏpmenｔｅｎｖiｒｏnｍｅｎt,dｅvｅｌopmentpｌａt(yī)formａnddatabaｓetecｈnoｌｏgy，ａndｔhenusedformandpicturｅsofｔheｗayｔｈeｏｖeｒallplaｎniｎgｏｆｔｈesｙsteｍｉsinｔｒoｄucｅｄ，ｔｈentheｓysｔｅｍｉｎthereaｌizatｉｏｎofｔhesｐeｃiｆicｄｅｔaｉls,andfｉｎallyｔhｉssｙstｅmｃaｎaccomplｉsｈiｎｆormatioｎinput,ouｔｐｕt,modｉfy，inquｉｒesthedataaｎdpriｎｔreporｔ，anｄotherfｕｎcｔioｎs,ｔhｉssystｅmfrieｎdlｙinterface，tｈeoperatiｏnissiｍｐｌｅ，ismorepraｃtｉcal.ＫEYWＯRDS：Contｒol，F(xiàn)orm，Sｔatemenｔ，ReｌaｔiｏnalＤataｂaseManaｇementSｙsｔem，VB前言目錄TOC＼ｏ＂１—3＂\h\z\ｕHYＰＥRLＩNK＼l”＿Tｏｃ３２5６2１３５６"前言?ＰＡGＥＲEF_Tｏc325６21356\h1ＨYPERLINＫ\l＂_Toc32５６２1３５7"第１章開(kāi)發(fā)背景?PＡＧＥREF_Toc３2５６２1３57\ｈ2HＹＰＥRLＩNＫ\ｌ＂_Toｃ3２562１358"1。1課題介紹?ＰAGEREF_Tｏc325６２135８\h２ＨYＰＥRＬIＮK\l＂_Ｔoc３2５６21359＂1.２課題目的及意義?PAＧEＲEF＿Ｔoc３2562１359\ｈ2HYＰERＬＩＮK＼l＂＿Ｔoc3２５62１３60”１。３討論方法、進(jìn)展趨勢(shì)?PAＧＥREF_Tｏc３25621３６0\h２HYPERLＩＮK\l”_Toc3256２13６１"第2章開(kāi)發(fā)環(huán)境、工具介紹?PAGＥREF_Toc32５621361\ｈ4HＹPEＲLＩNK\l”_Toc325６2１3６2"２.１VｉsｕaｌBａsiｃ6。0?PAＧEREF＿Ｔｏｃ3２562136２\ｈ4ＨＹPＥRLINK\l＂＿Tｏc３２5６21３63＂2．1。1VｉsuaｌBａｓｉc的編程特點(diǎn)?PＡＧＥREF_Tｏｃ3２５６２136３＼h４ＨYＰERLINK＼l"_Toｃ３2５62１364”2.1.2VB支持的數(shù)據(jù)庫(kù)系統(tǒng)?PAGEREＦ＿Ｔｏｃ３２56２１３６４＼h５HYPＥRLINＫ2.3。2ＡＤO組件的主要對(duì)象及其功能?ＰAGEREF＿Toc32562136９＼h9HYＰERLINＫ\ｌ"_Toc3２５6２13７0”２。3．3用來(lái)操控?cái)?shù)據(jù)的SQL命令?ＰＡＧEREF＿Toc32562１３70＼h９HYＰＥＲLINK\l”_Ｔｏc3２5６２１371＂２．4VＢ訪問(wèn)數(shù)據(jù)庫(kù)過(guò)程?PAＧＥＲＥF＿Toc３256２１37１\h1０ＨYPERLINK\l”_Toc3256２13７2”第3章系統(tǒng)分析?ＰＡＧEREF_Tｏc3256２1３72＼ｈ１２HYPＥRLIＮK3．１系統(tǒng)功能分析 PAGEＲEＦ＿Toｃ３25621373＼h12HYPERLIＮK\l”＿Toｃ32５621３74＂3.2業(yè)務(wù)流程圖?PAＧＥＲＥＦ＿Ｔoc３２５６2１374＼h1２HＹPEＲＬINK３．４數(shù)據(jù)字典?PＡGEＲEF＿Tｏc32５６21376＼h14HYPＥRLINK＼l"_Ｔｏc32562１37７"第4章系統(tǒng)設(shè)計(jì) PAGＥREF_Tｏｃ3256２137７＼h１５HYPEＲLIＮK＼l＂＿Toｃ３2562１3７8”4．１系統(tǒng)功能設(shè)計(jì) ＰＡGEREＦ＿Tｏc32５621３７８\ｈ15HYPＥＲLＩNK＼l”_Ｔoc3２5６2１3７9＂4.２代碼設(shè)計(jì)?PAＧEREF_Tｏｃ325６2１３79\h１6HＹPERＬＩNK５。３.1StatuｓBａr１?PAGEＲEＦ＿Toc32562１385＼h2８HＹＰERLINK5．4.２課程信息查詢 PAGERＥＦ_Toc３2５6２1390＼h3０ＨYPERＬINK5.4．4學(xué)籍信息查詢 ＰＡGEREＦ_Toc３2５6２1３9２\h３１HYPERLＩNＫ\l"_Toc３25621３93＂5．5用戶信息管理?PAGEREF_Toｃ3２5６213９３\ｈ3２HYPERLINK\ｌ"_Toc32５６21394”５。５．１用戶注冊(cè)窗體設(shè)計(jì)?PAＧＥＲEＦ_Ｔoc３25６2139４\h3２HYPＥRLIＮK\ｌ”_Ｔoc3２5６21395"5.５。2密碼修改窗體設(shè)計(jì)?PAGＥＲEＦ_Tｏｃ3256２13９5\h３３HＹＰERLＩNK＼l”_Ｔoc３256２1396”5.6學(xué)籍信息管理窗體設(shè)計(jì) ＰAGEREF_Toc3２5621３9６\ｈ３6HYPＥRLIＮＫ\l”_Ｔoｃ３2５6213９7”5。７課程信息管理窗體設(shè)計(jì)?PAGEREＦ_Tｏc325６2１3９７\h38ＨYPEＲLＩNK＼l＂_Toc３25６213９8"5。８統(tǒng)計(jì)報(bào)表中心設(shè)計(jì)?PAＧERＥF_Tｏc3256２１3９８\h39HYPEＲLＩNＫ\l"_Ｔｏc3256２1399"５。８。１ＣｌasｓRｅport設(shè)計(jì)?ＰAGEREＦ_Tｏc３25６21３99\h３9HYＰERLIＮK\l＂_Tｏc32562140０＂5.８。2StudnetRepoｒt設(shè)計(jì) PAＧEREF_Tｏｃ3２5６2140０\h4０HＹPERLINＫ＼l"＿Toc3２５６２１４01"5．８。3ＳtudｎｅｔReporｔ設(shè)計(jì)?PAGEＲEF_Toｃ32562140１\h4０HYＰERＬＩＮK＼l”＿Ｔｏc325６2140２"5。９班級(jí)信息設(shè)計(jì)?PAGERＥF_Tｏc325６2140２\h41HYＰＥRLIＮK\ｌ＂_Tｏc3256２１４0３"5.１0成果信息設(shè)計(jì)?PAＧERＥF_Ｔｏc3２５62１40３＼h41ＨYPERLINK＼ｌ”＿Toc32５62１4０4”5．11班級(jí)信息設(shè)計(jì)?ＰＡGＥRＥF_Toc3２56２14０4\ｈ42HYＰEＲＬＩNK＼l”_Tｏc3２5６21４0５"結(jié)論 ＰAGＥREＦ＿Tｏc32５6２１405＼h4３ＨＹＰＥＲLＩNK\ｌ”＿Tｏc32５6２14０６＂謝辭 ＰAＧEREＦ＿Tｏｃ325621406\ｈ4４HYPＥＲLＩNK＼l"＿Tｏc3２56２１４07”參考文獻(xiàn)?PAＧＥREＦ_Toc32５6２14０7＼ｈ４5前言同學(xué)信息管理系統(tǒng)是一個(gè)教育單位不行缺少的部分，它的內(nèi)容對(duì)于學(xué)校的決策者和管理者來(lái)說(shuō)都至關(guān)重要,所以同學(xué)信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩艄?yīng)充足的信息和快捷的查詢手段。但始終以來(lái)人們使用傳統(tǒng)人工的方式管理同學(xué)學(xué)籍檔案，這種管理方式存在著很多缺點(diǎn)，如：效率低、保密性差，另外時(shí)間一長(zhǎng)，將產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來(lái)了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟,其強(qiáng)大的功能已為人們深刻熟識(shí),它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來(lái)越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)同學(xué)學(xué)籍信息進(jìn)行管理,具有著手工管理所無(wú)法比擬的優(yōu)點(diǎn).例如:檢索飛快、查找便利、牢靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等.這些優(yōu)點(diǎn)能夠極大地提高同學(xué)學(xué)籍管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此,開(kāi)發(fā)這樣一套管理軟件成為很有必要的事情，在下面的各章中將以開(kāi)發(fā)一套同學(xué)信息管理系統(tǒng)為例，談?wù)勂溟_(kāi)發(fā)過(guò)程和所涉及到的問(wèn)題及解決方法。第1章標(biāo)題第1章開(kāi)發(fā)背景1．1課題介紹高校同學(xué)信息的管理是一項(xiàng)既重要又繁瑣的工作.為更好的做好這項(xiàng)工作,提高工作效率,更好的為學(xué)校的進(jìn)展和一線教學(xué)服務(wù)，決定:結(jié)合我校實(shí)際情況,自行研制一個(gè)同學(xué)信息管理系統(tǒng).１。２課題目的及意義由于現(xiàn)今的同學(xué)信息管理格外繁瑣，行政人員付出大量的工作時(shí)間,得到的效率很低.因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān),決定開(kāi)發(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é)信息的管理正面臨著的這些問(wèn)題，我所設(shè)計(jì)的同學(xué)信息管理系統(tǒng)也就應(yīng)運(yùn)而生了。1。３討論方法、進(jìn)展趨勢(shì)本系統(tǒng)采納功能分析法即通過(guò)說(shuō)明社會(huì)現(xiàn)象怎樣滿意一個(gè)社會(huì)系統(tǒng)的需要(即具有怎樣的功能)來(lái)解釋社會(huì)現(xiàn)象和CS模式共同完成?，F(xiàn)代教育技術(shù)格外是網(wǎng)絡(luò)與多媒體技術(shù)的進(jìn)展,對(duì)學(xué)習(xí)活動(dòng)產(chǎn)生了具有深遠(yuǎn)意義的沖擊，人們可以選擇或者設(shè)計(jì)適合其學(xué)習(xí)特點(diǎn)的信息采集、加工與重組方式。本系統(tǒng)采納CS模式，在某些方面還不是表現(xiàn)的很好，但將來(lái)有關(guān)同學(xué)信息管理的應(yīng)該采納多層架構(gòu)的系統(tǒng)，是真正適應(yīng)教育信息化進(jìn)展三大趨勢(shì)的校內(nèi)網(wǎng)絡(luò)應(yīng)用系統(tǒng)，全面支持Ｉntｅrnｅt功能、遠(yuǎn)程訪問(wèn)功能，采納先進(jìn)的CS和BS模式共同開(kāi)發(fā)，支持有關(guān)學(xué)校信息溝通、日常教學(xué)、教務(wù)管理等的各種應(yīng)用,供應(yīng)一個(gè)基于校內(nèi)內(nèi)聯(lián)網(wǎng)中支持各種類型的學(xué)校應(yīng)用產(chǎn)品的服務(wù)平臺(tái)和開(kāi)發(fā)平臺(tái)，基本目標(biāo)是在學(xué)校內(nèi)部和外部建立起順暢的信息通道,讓信息技術(shù)成為推動(dòng)教育生產(chǎn)力的有力工具,提高學(xué)校的管理水平和效率，同時(shí)充分利用全球的教育資源為學(xué)校的教育服務(wù)，克服目前大部分學(xué)校的校內(nèi)網(wǎng)建設(shè)只起到宣揚(yáng)作用的通病。REF_Ref168484390\r\h錯(cuò)誤！未找到引用源。REF_Ref168484424\h錯(cuò)誤！未找到引用源。PAGE6PAGE11第２章開(kāi)發(fā)環(huán)境、工具介紹該軟件是在ＷinｄowｓＸPProfessｉｏｎal＋ViｓｕalBaｓｉｃ6。0＋ＳＱLSeｒver２000的環(huán)境下完成的。下面就對(duì)這些開(kāi)發(fā)工具進(jìn)行介紹:２．1ViｓualBasic６．0微軟公司的ＶisualBａsiｃ6。0是Ｗiｎdｏws應(yīng)用程序開(kāi)發(fā)工具,是目前最為廣泛的、易學(xué)易用的面對(duì)對(duì)象的開(kāi)發(fā)工具。VisuａｌＢaｓic供應(yīng)了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，削減了編程人員的工作量,也簡(jiǎn)化了界面設(shè)計(jì)過(guò)程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和牢靠性.利用VIＳUＡLBＡＳIC程序設(shè)計(jì)語(yǔ)言，可以很便利地設(shè)計(jì)出在WＩＮＤOＷＳ環(huán)境下運(yùn)行的應(yīng)用程序。故而，實(shí)現(xiàn)本系統(tǒng)VＢ是一個(gè)相對(duì)較好的選擇。２．1。１VisualBａｓｉｃ的編程特點(diǎn)VｉｓualBasｉc語(yǔ)言的消滅為Wiｎdows下的編程提出了一個(gè)新概念，利用VｉsuａｌBasiｃ的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的鏈接和嵌入、動(dòng)態(tài)鏈接庫(kù)、ActiｖeX技術(shù)可以很便利地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。利用VｉｓuａlBａsiｃ語(yǔ)言編程有以下幾個(gè)特點(diǎn):１．可視化程序設(shè)計(jì)在VisuaｌＢasic中開(kāi)發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時(shí)由用戶為開(kāi)發(fā)圖形界面添加的代碼真是少而又少,由于在設(shè)計(jì)圖形界面的過(guò)程中只需設(shè)置ActiveＸ控件的屬性即可。２。強(qiáng)大的數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)功能隨著VisualBasｉc語(yǔ)言的向前進(jìn)展，它在數(shù)據(jù)庫(kù)和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯,利用VisualＢasｉｃ中的ＯDBC-—開(kāi)放式的數(shù)據(jù)庫(kù)訪問(wèn)技術(shù)可以很便利地開(kāi)發(fā)出自己的數(shù)據(jù)庫(kù)應(yīng)用程序;利用VisuaｌBａsiｃ自帶的可視化數(shù)據(jù)管理器和報(bào)表生成器，完全可以在VｉｓuaｌBａsic就完成數(shù)據(jù)庫(kù)的開(kāi)發(fā)工作.3.其他特性在ＶisｕａlBａsｉｃ以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了VisualＢａｓic的進(jìn)展.從VｉsｕａlBasiｃ5．０版本開(kāi)頭,在VisualＢasｉc中制作的應(yīng)用程序都轉(zhuǎn)變?yōu)榫幾g執(zhí)行，使得VｉsｕalBasｉc的代碼效率有了很大的提高,同時(shí)執(zhí)行的速度也加快了解30％（同ＶｉsｕalBaｓic４.0相比）。當(dāng)然在ＶｉｓuaｌBasiｃ中還有其它特性，例如:面對(duì)對(duì)象的編程語(yǔ)言;結(jié)構(gòu)化程序設(shè)計(jì);大事驅(qū)動(dòng)的程序設(shè)計(jì)：在傳統(tǒng)的或“過(guò)程化"的應(yīng)用程序中，應(yīng)用程序自身掌握了執(zhí)行哪一部分代碼和按何種挨次執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時(shí)才會(huì)調(diào)用過(guò)程。在大事驅(qū)動(dòng)的應(yīng)用程序中，代碼不是按預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的大事時(shí)執(zhí)行不同的代碼片段.大事可以由用戶操作觸發(fā)、也可以由來(lái)自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)、甚至由應(yīng)用程序本身的消息觸發(fā)。這些大事的挨次，決定了代碼執(zhí)行的挨次，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過(guò)的路徑都是不同的。支持動(dòng)態(tài)鏈接庫(kù);應(yīng)用程序之間的資源共享；大事驅(qū)動(dòng)的程序設(shè)計(jì).２。１．2VＢ支持的數(shù)據(jù)庫(kù)系統(tǒng)VB支持對(duì)多格式的數(shù)據(jù)庫(kù)的訪問(wèn)和維護(hù)，無(wú)論是Access還是Foｘｐro中創(chuàng)建的數(shù)據(jù)庫(kù),都可以用VB打開(kāi)，對(duì)其進(jìn)行查詢、修改和刪除等操作。事實(shí)上，VB幾乎支持對(duì)市面上全部數(shù)據(jù)庫(kù)的訪問(wèn)。VB可以訪問(wèn)的數(shù)據(jù)庫(kù)可以簡(jiǎn)潔的分為三類，即：MicrｏsoｆtAｃcess格式數(shù)據(jù)庫(kù)，外部數(shù)據(jù)庫(kù)和ODＢC數(shù)據(jù)庫(kù)。VＢ對(duì)多種數(shù)據(jù)庫(kù)格式的支持，大大的增強(qiáng)了開(kāi)發(fā)數(shù)據(jù)庫(kù)應(yīng)用程序的能力。2.２ＳＱＬSｅｒver2０0０簡(jiǎn)介SQLServｅr20００是微軟公司最新版的大型數(shù)據(jù)庫(kù)服務(wù)器，其性能指標(biāo)在各方面都有趕超Oｒaｃle數(shù)據(jù)庫(kù)的趨勢(shì)。用它可以便利地管理數(shù)據(jù)庫(kù)和開(kāi)發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫(kù)構(gòu)架，與WindoｗsNＴ/2０0０平臺(tái)緊密集成，具有完全的Ｗeb功能.通過(guò)對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地供應(yīng)了可擴(kuò)展性和高牢靠性,能在Inｔerｎｅt商業(yè)領(lǐng)域快速建立并應(yīng)用。此外，還增強(qiáng)了平安性，保護(hù)防火墻內(nèi)外的數(shù)據(jù).支持基于角色的平安并擁有平安審計(jì)工具。在經(jīng)歷了SＱLSerｖeｒ6.５和7.0兩個(gè)版本的嘗試后，微軟公司終究開(kāi)頭了大規(guī)模的業(yè)務(wù).記得在以前各種關(guān)于SＱＬSｅrｖeｒ的文章,都會(huì)將其定位成中小型應(yīng)用方面,這種感覺(jué)被大家自然的連續(xù)到了２００0版之中.其實(shí)這是一種誤解。在過(guò)去的很長(zhǎng)一段時(shí)間中,微軟公司聘請(qǐng)了世界上最優(yōu)秀的數(shù)據(jù)庫(kù)專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵(lì)精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持,再協(xié)作其一向?yàn)槿朔Q道的易用性，ＳQLＳerｖer可以說(shuō)成為了開(kāi)發(fā)者手中的一柄利器.另外，目前國(guó)內(nèi)的一些關(guān)于微軟平臺(tái)的數(shù)據(jù)庫(kù)編程教程，喜愛(ài)使用Acｃeｓs作為數(shù)據(jù)庫(kù)平臺(tái)的案例,并展開(kāi)相關(guān)的內(nèi)容。這其實(shí)對(duì)于開(kāi)發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒(méi)有直接的幫助作用,只能使大家停留在應(yīng)用的初級(jí)階段.SQLＳｅｒveｒ20０0供應(yīng)的格外傻瓜的缺省安裝和使用模式,其上手難度并不比Access大。另外，SQLServeｒ2０００可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Ａccｅsｓ強(qiáng)大的伸縮性。２.2．1ＳＱＬServｅr數(shù)據(jù)庫(kù)特點(diǎn)概括起來(lái)，SQＬServｅｒ２0００數(shù)據(jù)庫(kù)管理系統(tǒng)具有以下主要特點(diǎn).豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀便利。ＳQLSｅｒveｒ企業(yè)管理器是一個(gè)基于圖形用戶界面（ＧUＩ)的集成管理工具,利用它可以配置管理SQLSerｖer服務(wù)器、管理數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)對(duì)象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報(bào)、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。此外，SQLServeｒ２０00還供應(yīng)了SQL大事探查器、SＱL查詢分析器、SQLSeｒver服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具,大大簡(jiǎn)化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性.動(dòng)態(tài)自動(dòng)管理和優(yōu)化功能。即使ＳQLServer數(shù)據(jù)庫(kù)管理員不做任何設(shè)置,SＱLServer也能夠在運(yùn)行過(guò)程中依據(jù)環(huán)境配置和用戶訪問(wèn)情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。充分的Iｎternet技術(shù)支持。Iｎｔeｒneｔ網(wǎng)絡(luò)進(jìn)展到今日已經(jīng)成為一條重要的信息發(fā)布渠道,SQLＳeｒver增強(qiáng)了對(duì)Ｉnｔernet技術(shù)支持,它除保留了前期版本中的數(shù)據(jù)庫(kù)Wｅb出版工具“Web助手”外,還增強(qiáng)了對(duì)XML和HＴTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過(guò)ＸML等訪問(wèn)SQＬＳerver數(shù)據(jù)庫(kù)系統(tǒng)，也擴(kuò)展了SQLServer在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。豐富的編程接口工具，使用戶開(kāi)發(fā)SQＬSｅｒver數(shù)據(jù)庫(kù)應(yīng)用程序更加靈敏。ＳQＬＳｅrｖer供應(yīng)了Tｒanｓａct－SQL、ＤB－LibraｒｙｆoｒC、嵌入式ＳQL（ＥSQL）等開(kāi)發(fā)工具,Transaｃｔ－ＳQL與工業(yè)標(biāo)準(zhǔn)SＱＬ語(yǔ)言兼容,并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQLSeｒver２000還支持ODBＣ、ＯLEＤB、ＡDO規(guī)范，可以使用ODＢC、OLＥＤB、ADO接口訪問(wèn)ＳQLSｅrver數(shù)據(jù)庫(kù)。具有很好的伸縮性和牢靠性。SQLＳerver２000既能運(yùn)行在Ｗinｄoｗｓ桌面操作系統(tǒng)下,又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括WinｄowsNＴ和Ｗindows2000)下;既能運(yùn)行在單CPＵ計(jì)算機(jī)上，又能運(yùn)行在對(duì)稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿意從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。簡(jiǎn)潔的管理方式。ＳQLSｅrvｅｒ２００0與ＭiｃrｏsｏftWｉｎdows20０0有機(jī)集成，所以可以使用Wｉｎdｏｗs2000的活動(dòng)名目(AｃtｉvｅＤirectory）功能對(duì)SQLＳｅｒver進(jìn)行集中管理,大大簡(jiǎn)化大型企業(yè)中的系統(tǒng)管理工作.此外,與Ｗindows2000的集成還使SＱＬＳeｒｖｅｒ能夠充分利用操作系統(tǒng)所供應(yīng)的服務(wù)和功能（如平安管理、大事日志、性能監(jiān)視器、內(nèi)存管理和異步I/O等)，從而增強(qiáng)了SQＬSeｒver數(shù)據(jù)庫(kù)系統(tǒng)的功能，并且只需要占用很少的系統(tǒng)資源.2．3AＤO對(duì)象概述AＤO對(duì)象能夠存取到數(shù)據(jù)庫(kù)的內(nèi)容,首先要求數(shù)據(jù)庫(kù)的驅(qū)動(dòng)程序(ODＢC驅(qū)動(dòng)程序與OLEDB驅(qū)動(dòng)程序)必須安裝上,否則，AＤO對(duì)象是無(wú)法存取數(shù)據(jù)庫(kù)中內(nèi)容,其原理示意圖如下圖所示：圖２—1ADO連接請(qǐng)注意：上圖中的“各種數(shù)據(jù)庫(kù)所對(duì)應(yīng)的驅(qū)動(dòng)程序”即ＯＤＢC驅(qū)動(dòng)程序與OＬEDＢ驅(qū)動(dòng)程序.2.3．1利用ADO開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序ＡDO（AcｔｉveDａt(yī)eＯbｊectｓ,即ActiveX數(shù)據(jù)對(duì)象)是一個(gè)ＡSＰ內(nèi)置的ＡｃtiveX服務(wù)器組件(ＡｃtiｖeXＳeｒｖerCoｍｐonent）.可把它與ＡＳP結(jié)合起來(lái)，建立供應(yīng)數(shù)據(jù)庫(kù)信息的網(wǎng)頁(yè)內(nèi)容,對(duì)數(shù)據(jù)庫(kù)進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示"的最新Ｗｅｂ數(shù)據(jù)庫(kù)技術(shù)。要執(zhí)行ＡDO，服務(wù)器端必須安裝ＷindowsNTＳerｖｅr和ＩnｔｅｒnetInｆormatｉoｎＳeｒｖｅr(IＩS)，而客戶端只要有IE或ＮＥＴSＣAPE較新版本的掃瞄器即可。利用ADＯ開(kāi)發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫(kù)應(yīng)用程序有以下幾個(gè)優(yōu)點(diǎn)：支持客戶機(jī)/服務(wù)器結(jié)構(gòu)(Clienｔ/Seｒvｅr)與Ｗeb系統(tǒng)開(kāi)發(fā)技術(shù).內(nèi)部有多個(gè)相互獨(dú)立的對(duì)象模型。支持分批修改數(shù)據(jù)庫(kù)內(nèi)容。支持多種不同的數(shù)據(jù)掌握指標(biāo)形式.先進(jìn)的Recordｓｅｔ數(shù)據(jù)高速緩存管理功能。允許在程序中使用多個(gè)Ｒｅcoｒdsｅt對(duì)象或者多個(gè)分批修改區(qū)塊傳送。ＡDO屬于Freｅ_thｒｅaded對(duì)象，利用它可以開(kāi)發(fā)出更有效的Wｅb應(yīng)用程序.2。3。2ADO組件的主要對(duì)象及其功能ADO組件又稱為數(shù)據(jù)庫(kù)訪問(wèn)組件，它供應(yīng)了以下七種對(duì)象:1.Coｎnectiｏn對(duì)象:供應(yīng)對(duì)數(shù)據(jù)庫(kù)的連接服務(wù)。２.Command對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。3.Reｃordsｅｔ對(duì)象:由數(shù)據(jù)庫(kù)服務(wù)器所返回的記錄集。Recordset對(duì)象的LockType屬性的設(shè)置值如下表所示：表2-１LoｃｋType屬性常量值說(shuō)明ａdLｏｃｋReadOｎly１默認(rèn)值,只讀.無(wú)法更改數(shù)據(jù)aｄLocｋＰressｉmisｔｉc2保守式記錄鎖定（逐條）。供應(yīng)者執(zhí)行必要的操作確保成功編輯記錄，通常采納立即鎖定數(shù)據(jù)源的記錄的方式。aｄLockOpｔｉｍistic３開(kāi)放式記錄鎖定（逐條）。供應(yīng)者使用開(kāi)放式鎖定,只在調(diào)用Uｐdａt(yī)a方法時(shí)鎖定記錄。adLoｃkBatchOｐtimisｔｉｃ４開(kāi)放式批更新.用于與立即更新模式相反的批更新模式。4．Fields對(duì)象：由數(shù)據(jù)庫(kù)服務(wù)器所返回的單一數(shù)據(jù)字段。5。Pａramｅtｅs對(duì)象:表示Commanｄ對(duì)象的參數(shù)。6.Propｅｒty對(duì)象:單獨(dú)的一個(gè)Pｒopeｒty對(duì)象，供應(yīng)屬性功能。７.Ｅrｒoｒ?qū)ο螅汗?yīng)處理錯(cuò)誤的功能。使用ADO對(duì)象可以建立和管理數(shù)據(jù)庫(kù)的連接，按數(shù)據(jù)庫(kù)服務(wù)器的要求獲得數(shù)據(jù),執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獵取OＤBC的錯(cuò)誤信息等。2．3.3用來(lái)操控?cái)?shù)據(jù)的ＳQＬ命令SQＬ命令是發(fā)送給數(shù)據(jù)庫(kù)并要求數(shù)據(jù)庫(kù)操作的指令，它是專門為數(shù)據(jù)庫(kù)設(shè)計(jì)的語(yǔ)言，比一般的計(jì)算機(jī)程序語(yǔ)言簡(jiǎn)潔的多。SQL命令主要分成兩部分:DDＬ(Dａt(yī)aDefiｎitiｏnLａｎｇuａｇｅ)和ＤML（DａｔaManipｕlａt(yī)ｉｏｎLaｎgｕａge）,其中DＤL是建立數(shù)據(jù)表及數(shù)據(jù)列的指令群,而DＭＬ則是操作數(shù)據(jù)庫(kù)記錄的指令群，如數(shù)據(jù)庫(kù)記錄的添加、更新、刪除、和查詢等。SQL命令，包括Seｌｅct、Dｅlete、Upｄａt(yī)e、InｓｅｒtInｔo、ＳｅlｅctInto等。1．篩選及排序記錄的Seｌeｃt指令基本句型一:Sｅlect字段串列Fｒom數(shù)據(jù)表；基本句型二：Select…Ｆｒom…Where篩選條件;基本句型三:Sｅｌect…Ｆroｍ…OrdｅrBy字段串列;ＳeｌectＴｏｐ:限定選取數(shù)據(jù)的條數(shù).2.刪除數(shù)據(jù)記錄的Delete指令基本語(yǔ)法：DeleｔeFｒｏｍ數(shù)據(jù)表Wｈere條件式.3。更新數(shù)據(jù)記錄的Ｕｐdate指令基本語(yǔ)法:Upｄａｔｅ數(shù)據(jù)表Seｔ表達(dá)式。４．增加數(shù)據(jù)記錄的InｓｅrtInto指令基本句型一:InserｔInｔo數(shù)據(jù)表(字段串列）Ｖalues(字段串列）；基本句型二:InserｔIｎto數(shù)據(jù)表（字段1，字段2,…,字段ｎ）Sｅlect…；建立新數(shù)據(jù)表的SelｅcｔIｎｔo指令;該指令與“InsｅｒtＩｎto…Seleｃt…”指令的區(qū)分是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而ＩnｓertＩntｏ是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。2。４VB訪問(wèn)數(shù)據(jù)庫(kù)過(guò)程２．４.１定義數(shù)據(jù)庫(kù)組件ＤｉmｃonnAsNeｗADOＤＢ.Conｎectioｎ其中ｃonn為連接對(duì)象；DｉmｒｅcoＡsＮewADＯＤB．Ｒecｏrｄsｅｔ其中reｃｏ為結(jié)果集對(duì)象。2.4。2打開(kāi)數(shù)據(jù)庫(kù)對(duì)于SQL數(shù)據(jù)庫(kù),其連接語(yǔ)句為coｎn．Open"Prｏvider=ＳＱＬOＬＥDＢ.1；Intｅgrａt(yī)eｄＳecurｉtｙ=SSPＩ;PｅrsisｔSeｃuｒiｔｙInfo=Faｌse；InitｉaｌCatalog＝Sims_four"。而對(duì)于Ａccesｓ數(shù)據(jù)庫(kù),連接語(yǔ)句為conn。Oｐｅｎ"Pｒoｖidｅr=Ｍｉcrｏｓoft。Jｅt。OLEDＢ.４．0；DaｔaSourｃe＝”&Apｐ．Path＋"\Siｍs＿foｕr。mｄｂ”設(shè)定SQL語(yǔ)句，使用“Eｘecuｔe”命令,即可開(kāi)頭執(zhí)行訪問(wèn)數(shù)據(jù)庫(kù)的動(dòng)作。２．4.３關(guān)閉結(jié)果集對(duì)象,斷開(kāi)與數(shù)據(jù)庫(kù)的連接ｒecｏ.Close；cｏnｎ.Cｌoｓe。第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)來(lái)提高同學(xué)管理工作的效率.通過(guò)這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而削減管理方面的工作量。設(shè)計(jì)內(nèi)容為管理員或一般用戶登錄該系統(tǒng)進(jìn)行八個(gè)模塊操作：用戶管理：用戶添加、用戶刪除、密碼修改；班級(jí)信息管理：學(xué)校班級(jí)設(shè)置、學(xué)校信息設(shè)置；班級(jí)信息管理:班級(jí)信息設(shè)置；課程信息管理:課程信息設(shè)置、班級(jí)課程開(kāi)設(shè);學(xué)籍信息管理：學(xué)籍信息設(shè)置;成果信息管理:成果信息設(shè)置；查詢管理：班級(jí)信息查詢、課程信息查詢、成果信息查詢、學(xué)籍信息查詢；統(tǒng)計(jì)報(bào)表：班級(jí)信息統(tǒng)計(jì)報(bào)表、同學(xué)信息統(tǒng)計(jì)報(bào)表。3.2業(yè)務(wù)流程圖通過(guò)對(duì)學(xué)校同學(xué)信息業(yè)務(wù)的實(shí)際調(diào)查分析，弄清楚了同學(xué)信息管理工件的業(yè)務(wù)流程和管理功能,系統(tǒng)的業(yè)務(wù)流程圖如下：同學(xué)信息流程圖圖3－1同學(xué)信息流程圖學(xué)校班級(jí)、課程流程圖圖3-２學(xué)校班級(jí)、課程流程圖3.３數(shù)據(jù)流程圖同學(xué)信息數(shù)據(jù)流程圖：圖3-3同學(xué)信息數(shù)據(jù)流程圖課程、班級(jí)、成果數(shù)據(jù)流程圖:圖３-4課程、班級(jí)、成果數(shù)據(jù)流程圖３。4數(shù)據(jù)字典3．4。１數(shù)據(jù)流的描述數(shù)據(jù)流編號(hào)：D-０1;數(shù)據(jù)流名稱：學(xué)籍信息錄入;數(shù)據(jù)流來(lái)源:招生辦;數(shù)據(jù)流去向：教務(wù)處;數(shù)據(jù)項(xiàng)組成：學(xué)號(hào)＋姓名+性別+誕生日期+班號(hào)+電話＋入學(xué)日期＋地址+描述.３．4.2處理規(guī)律描述處理規(guī)律編號(hào):Ｐ－0１；處理規(guī)律名稱：班級(jí)課程信息；輸入的數(shù)據(jù)流：班級(jí)課程信息，班級(jí)信息;處理描述:形成班級(jí)課程信息單；輸出數(shù)據(jù)流：班級(jí)課程信息單.3.4．3數(shù)據(jù)存儲(chǔ)描述數(shù)據(jù)存儲(chǔ)編號(hào):Ｆ-０1數(shù)據(jù)存儲(chǔ)名稱:成果信息單;數(shù)據(jù)存儲(chǔ)組成：考試編號(hào)+學(xué)號(hào)＋課程號(hào)＋成果；關(guān)鍵字：考試編號(hào)＋學(xué)號(hào)+課程號(hào);相關(guān)處理：P-01.3。4．４外部實(shí)體描述外部實(shí)體編號(hào)：Ｓ—01;外部實(shí)體名稱:教務(wù)處；輸入數(shù)據(jù)流：D-０1。第3章標(biāo)題PAGE8PAGE15第4章系統(tǒng)設(shè)計(jì)4.1系統(tǒng)功能設(shè)計(jì)該系統(tǒng)功能劃分為用戶管理、班級(jí)信息管理班級(jí)信息管理、班級(jí)信息設(shè)置、課程信息管理、學(xué)籍信息管理、成果信息管理、查詢管理、統(tǒng)計(jì)報(bào)表。其功能模塊圖如下：圖4－1功能模圖4.２代碼設(shè)計(jì)在系統(tǒng)設(shè)計(jì)過(guò)程中,全部信息均實(shí)現(xiàn)了代碼化,比如同學(xué)表中的學(xué)號(hào)、課程表中的課程號(hào)、班級(jí)表中的班級(jí)號(hào)等。代碼為事物供應(yīng)一個(gè)概要而不模糊的認(rèn)定，便于數(shù)據(jù)的存儲(chǔ)和檢索；代碼化提高了處理的效率和精度;代碼化提高了數(shù)據(jù)的全局全都性，提高了系統(tǒng)的整體性、削減了因數(shù)據(jù)不全都而造成的錯(cuò)誤.4。３數(shù)據(jù)庫(kù)設(shè)計(jì)在系統(tǒng)設(shè)計(jì)過(guò)程中，首先要建立的就是數(shù)據(jù)庫(kù)。本數(shù)據(jù)庫(kù)采納SQLＳｅrver2000來(lái)構(gòu)造,共使用了8個(gè)表，它們分別是用戶信息表(usｅr_ｉnfo）、同學(xué)信息表(studeｎｔ＿ｉnfo）、班級(jí)信息表（clａｓs_info）、學(xué)校班級(jí)信息表（schoｏｌgrade＿ｉｎｆo)、班級(jí)課程信息表(ｇｒadeｃouｒse_iｎｆｏ)、成果信息表（resｕlｔ_ｉｎfｏ）、課程信息表（course＿inｆｏ)、學(xué)校信息表(scｈoｏl＿ｉｎfｏ)用戶信息表（ｕsｅr_ｉnfｏ）:CREATETABLＥ［dbｏ］。[uｓer_ｉnfo］(?［usｅr_iｄ]［ｖａｒｃｈａr］（10）ＣOＬＬＡTEChineｓe_ＰＲC_CＩ_ASＮOTＮULL，?［user_ｎaｍe][varchaｒ］(2０）CＯＬＬＡTEChineｓｅ_PＲC_CI_ASNULＬ,?［ｕｓer_ｐｗd］[ｖａrchaｒ]（1０）CＯＬLAＴＥChinｅｓe_ＰRC_CI＿ASNULL，?［user_ｄeｓ］[ｖarchar］(２０）COLＬＡTEＣhineｓe_PRC_CI_AＳNULL,?[usｅｒ_levｅｌ]［int]NOTNULL）ON［PＲIＭARY］GO表結(jié)構(gòu)如下表所示:表4-1用戶表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Uｓｅr_idvarchar１０NOＴＮULLUｓeｒ_nａmevarｃｈaｒ2０ＮＵLLＵｓer_pｗdvarｃhar1０ＮＵLLUsｅｒ_dｅsｖａrcｈａr20NUＬLUser＿ｌｅvelinｔＮＯTNＵLL同學(xué)基本情況表（ｓｔuｄｅｎt）:ＣRＥATETＡBLE[dｂo］.［ｓｔudｅｎｔ_ｉnｆo]（?［sｔudｅｎt＿iｄ]［ｖarｃｈar］（15)ＣＯＬＬATECｈineｓe_ＰＲＣ_CI_ＡＳＮOTＮULL,?［ｓtｕｄeｎt_name]［ｖａrcｈａr］（20）CＯLLＡＴＥChiｎｅse_PRＣ_ＣＩ＿AＳNULL,?[stuｄeｎｔ_gｅｎｄｅｒ］[ｃｈar］（2)CＯLLATECｈｉnｅse_PRC_CI_AＳＮＵLL， ［ｂｉrth_daｔe］［vａrcｈar]（１5）COＬＬＡＴECｈinｅse＿PＲC_CＩ_ASNULL,?［cｌａss＿no］[cｈar］（3）COLＬATECｈｉnｅse＿PRＣ_CI＿ASNOTNUＬＬ,?［telｅ_nｕmｂeｒ］［vａrchａr](2０)COLLAＴＥＣｈineｓe_PＲC＿CＩ＿ＡSNULL， ［iｎ_dａt(yī)e］［vａrｃhar](15）COＬLATＥChinｅsｅ_PRC_CI_ＡSNUＬＬ，?[aｄdress][varchaｒ](30）COＬＬATEChinese＿ＰRＣ＿CＩ_ASNＵLL,?［ｃomｍent］[ｖaｒｃhaｒ]（１0０）ＣOLLATＥChinesｅ＿PRC_CI_ASＮULＬ）ON［PRIMＡＲY］GＯ表結(jié)構(gòu)如下表所示：表４-2同學(xué)表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Sｔudｅnt_idｖaｒchar1５NＯTNULLStｕdｅnt＿ｎａmevaｒcｈar２０NULLStudｅnｔ_gｅndｅrcｈaｒ2ＮULＬＢｉrｔh_datevarｃｈａｒ１5NUＬLClaｓs_ｎｏchaｒ3NULＬＴeｌe_nｕmｂｅrvarchar２0rNULＬIｎ_dａt(yī)ｅvarchａr15NULＬadｄｒeｓｓvarchaｒ3０NＵLLcｏmｍenｔvａrchａｒ１00ＮUＬL班級(jí)信息表（cｌａｓs_iｎfｏ)：CREAＴＥTABLE［dｂｏ］.[clasｓ＿Infｏ](?［ｃlasｓ＿Ｎｏ］［cｈar］（3)ＣOＬＬATECｈineｓｅ_PＲC＿ＣＩ＿AＳNOTＮUＬL，?［ｇrａde＿No］［chaｒ]（10）ＣOLLATEＣhinｅse_ＰRＣ_CI_ASNUＬＬ， ［uｓeｒ＿ｉｄ]［varcｈar］(10）CＯLLATＥChinesｅ_PＲC_ＣI_AＳNＵＬL）ＯN［PRIＭＡRY］GO表結(jié)構(gòu)如下表所示:表4-３班級(jí)表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Class＿ｎochaｒ3ＮOTＮUＬLGraｄｅ_nｏcｈar1０NＵLLUsｅr_iｄvaｒｃhａr1０NULL學(xué)校班級(jí)信息（sｃｈoolｇraｄｅ_inｆo）：CRＥAＴETABLE［dｂo]。[schｏoｌｇｒaｄｅ_ｉnfo］（?[gradｅ＿Nｏ］[chａｒ]（８)COLLATEChineｓe_ＰRC_CI＿ASNOTＮULL,?［grade_ｎaｍe]［varchar](20)CＯLＬATEＣｈineｓe_PＲＣ_ＣI＿ASNOTNＵLL）OＮ[ＰＲＩＭＡＲY］GO表結(jié)構(gòu)如下表所示:表４－4學(xué)校班級(jí)表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Ｇrade＿noｃｈar8NOTＮULLGrａde_nａmevarcｈａr２０NＯTNＵＬL班級(jí)課程信息表(gradecouｒse_iｎfｏ）:CＲEATETＡBLE［dｂo］。[grａdｅcｏuｒsｅ_info](?[grade_Ｎo］[cｈar］(8)COLLＡTEＣｈinese_PＲC_CI_ASNULＬ,?［couｒse_Ｎo］［ｉnt］NULL）ON[PRIMARY］GO表結(jié)構(gòu)如下表所示:表4-５班級(jí)課程表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Gｒade＿nochaｒ8ＮUＬLCoursｅ_noinｔ２0ＮUＬＬ成果信息表(result_info）：ＣRＥATETABLE［dｂo].［resｕlt_Ｉnfo］（?［ｅxam_Nｏ］[ｃhar］（10)CＯＬＬATＥChｉｎeｓｅ＿ＰＲＣ_ＣI_ASNOＴNULL，?[stｕｄenｔ＿Iｄ］[vａrchar］（15）COＬLＡTＥＣhinｅse_PRＣ＿ＣI_ASNOTＮULL，?［couｒsｅ_ｎo］[int］NOTNUＬL，?[reｓulｔ]［flｏaｔ］ＮOTNＵLL）ＯN[PRIＭARY]GO表結(jié)構(gòu)如下表所示:表4-６成果表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Exａm_nｏchar１０NOTＮULLStudenｔ＿ｉdvａrｃhar1５ＮＯTNULＬCourse＿nｏｉnｔＮOＴNUＬＬresuｌｔfｌoatNＯＴNULＬ課程信息表(coｕｒsｅ_info）：CREATＥTABLE[dｂo].［ｃourse_inｆo］（?［course＿No][inｔ]ＮＯＴNＵLL,?[courｓｅ_Name]［ｖarcｈａr](3０）ＣOLLAＴEChｉｎｅse_PRC_CI_ASNUＬＬ,?［ｃouｒｓe＿tｙpｅ][char］(２0）ＣＯLLATEChineｓe_PRC_ＣＩ_ＡSNＵＬL，?［ｃouｒｓe＿des][varｃhar]（60)CＯLLATECｈｉnese_ＰRＣ_CI_AＳNULL）ON[ＰＲIMARY］ＧＯ表結(jié)構(gòu)如下表所示：表4－7課程表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Couｒse＿ｎointNOTＮULＬCｏurse_ｎamｅｖａｒchar3０NULLＣouｒsｅ_ｔypecｈaｒ20ＮＵLLCｏｕｒse_ｄeｓvarcｈar6０ＮＵLL學(xué)校信息表（ｓchooｌ_ｉnfo)：CRＥATＥＴAＢＬE［dbo］.［ｓchool＿iｎｆo］（ ［ｓｃｈool＿name][vａrｃhaｒ］（1２）ＣOＬLATECｈinｅse_ＰＲC_CI＿ASＮＯTNULL, [sｃhool_teｌ][ｖａrｃｈar］（１2)CＯLLATＥChiｎeｓｅ＿ＰRC_CI＿ASNOTNUＬL)ON［PＲIＭARY]ＧO表結(jié)構(gòu)如下表所示：表4-8學(xué)校信息表結(jié)構(gòu)圖列稱數(shù)據(jù)類型長(zhǎng)度允許空Scｈｏｏl_nameｖarchａｒ12NOTNULLＳｃhool_ｔｅlvａrｃｈar１２NOTNULLREF_Ref168484640\r\h錯(cuò)誤！未找到引用源。REF_Ref168484646\h錯(cuò)誤！未找到引用源。PAGE30第５章系統(tǒng)實(shí)施5.1模塊設(shè)計(jì)添加一個(gè)標(biāo)準(zhǔn)模塊MｏdCoｎStrｉng和類模塊OｐenＲs。ModConStｒｉｎg部分主要包括定義一個(gè)數(shù)據(jù)庫(kù)連接字符串。代碼如下：’定義一個(gè)屬性過(guò)程反映連接字符串PubｌicProｐeｒtｙGetconＳtring(）AｓVaｒiａｎtconString="ＩｎｔeｇratedSｅcｕrity＝ＳSPI;ＰeｒsistSeｃuｒityIｎfo=Ｆａｌse；IniｔialCatalog=Sｉms_foｕr＂ＥｎｄProperｔｙ’定義一個(gè)供應(yīng)者反映數(shù)據(jù)庫(kù)類型PuｂlｉcPropｅrtyＧｅｔｃoｎＰｒovｉｄe（）AsVaｒｉａｎｔcoｎProvide＝"SQＬOＬＥDＢ。1＂EｎdＰrｏpertｙOpｅnＲｓ部分主要包括定義一個(gè)打開(kāi)數(shù)據(jù)庫(kù)的類對(duì)象.代碼如下：OｐｔｉｏnExｐlicｉtPrｉvatｅcｎSＩMSAｓAＤODB．ConｎｅctｉonPrｉvatersＳｉmｓAsＡＤＯDＢ.ＲｅｃordｓeｔPublicrｓ1AsＡDODB．ＲｅｃorｄsetPubliｃｒｓ2AｓADODＢ。RecｏrｄsetＰuｂliｃrstAｓADODB.RecorｄｓeｔＰrivaｔｅDataAsOｂjectＰｒivａｔeSubCｌasｓ_Iniｔｉａlizｅ（）OｎErｒorGoＴｏＤbｎoｔOpeｎSetｃnSIMＳ=NewAＤODＢ.CｏｎnｅｃｔiｏnＷｉｔｈcnＳＩMＳ．Provider=cｏnProvide.CoｎｎｅcｔiｏnSｔｒing=ｃonＳｔｒｉng。ConnｅcｔiｏnTimeoｕt＝１0．ＯpｅnＳｅtrｓt=NewＡDOＤB。RecordｓetEｎｄＷitｈEｘｉｔSｕｂDｂnotＯpｅn:IfEｒr＝—２１474６7259TｈenSｅSＩMS=NoｔｈingＭsgBｏx”連接后臺(tái)數(shù)據(jù)庫(kù)失敗!＂&vbCrLf&ｖbＣrLｆ＆＂請(qǐng)檢查配置是否完好，數(shù)據(jù)庫(kù)Sｉms＿four是否存在？”，vｂOKOnly＋vbInｆormａt(yī)iｏn，"同學(xué)信息管理系統(tǒng)"EnｄEｎdIfＥndＳubPrｉvａt(yī)ｅSｕbClaｓs＿GeｔDａｔaＭｅmber（DataMｅmbeｒＡｓStrinｇ，DataAsObject)SｅtＤata＝rsＳiｍｓEndＳubPｕｂｌicFuｎctiｏnrｓDＫ(ＴableＡsString）ＳetrsSims=ＮeｗADODＢ。RｅｃordseｔWithrsSimｓ．Ｓource＝Ｔable．ＡctiveConnectｉon=cnSIMS．CurｓorＴypｅ=ａｄOｐenＫeyｓeｔ。ＬockTyｐe=aｄLoｃkOpｔimistic.Ｏpen，,，,adCｍｄTableEndWitｈEndFuncｔｉｏｎPｕｂlicFｕnｃｔionrｓＤK1（sｑlAsStriｎg）Setrｓ１=ＮewADＯDB。ReｃｏｒdsｅtWiｔｈｒｓ１．Sourｃｅ＝ｓｑｌ．ＡctiｖeConｎｅｃtioｎ＝ｃnＳＩＭS．CursｏｒTyｐe=adＯpｅnKｅｙｓｅt。LockType＝adLocｋOpｔiｍistｉｃ。Open，，，,ａｄＣｍｄTextＥndWｉtｈEndＦunｃtionＰublicＦunctionｒsDＫ２（sqlAsSｔｒiｎg）Ｓｅtｒs2=ＮewADODＢ。RecordｓeｔＷithｒs２。Sourcｅ=sｑl。AｃtiｖeConnｅctiｏｎ=ｃnＳIMS．CurｓoｒType=adOpenＳtatic．ＬｏckTｙpe=ａｄLoｃkＯｐtimistｉｃ。Oｐen,，,，adCmｄＴeｘtＥnｄＷiｔhEndFunctioｎPrｉvateSuｂClass_Tｅrminatｅ（）SｅtcnＳIＭS=NｏｔhingＳｅtｒs１=ＮothiｎgSetrs2=ＮoｔhinｇSeｔrsSｉms＝NoｔhｉnｇSeｔｒｓt=ＮothｉngＥｎdSｕb5．2登錄窗體設(shè)計(jì)添加一個(gè)窗體(FrmLogｉｎ)。該部分主要包括用戶的驗(yàn)證以及登錄次數(shù)的限制.窗體運(yùn)行情況如下圖所示：圖5—1登錄圖代碼如下:ＤiｍMyLogｉｎＡsOpｅnRｓDiｍUserｉdＳQLＡsＳtriｎgDimLeｖelAsIntegerPublｉcCuｒrenｔUｓerAsStrｉngＰriｖａt(yī)ｅSuｂCmdcａncｅl_Cliｃk(）UｎlｏadＭｅEndＳuｂPｒｉvａt(yī)eＳubcmdOＫ＿Click（）IｆｔｘtＵｓerＩｄ.Text＝""ＴhenＭsｇBｏx"請(qǐng)輸入用戶編號(hào)?。ⅲ觯釵KOｎly+ｖｂInforｍatｉon,＂用戶登陸＂tｘtＵsｅrＩｄ。SetFocusExitSｕbEｌsｅUseridSＱＬ="ｓeleｃt*ｆromUsｅr_Ｉｎｆoｗhereｕseｒ_Iｄ=’”＆txtUsｅrId。Texｔ＆”’”MyLoｇin.ｒsDK１ＵｓeriｄSＱL5.３主界面設(shè)計(jì)添加一個(gè)窗體(ＦｒｍMａiｎ)。該部分主要添加Trimer１、SｔａｔusBａｒ、DＮetMenｕ1控件和菜單編輯器。以用戶名為1０01、密碼為１２３登錄,窗體運(yùn)行情況如下圖所示：圖5-2系統(tǒng)主界面圖代碼如下:DimMｙiｎfoＡsSｔrｉngDimsuｃｃｅssAｓＬoｎｇDimＣlａsｓpｒintAsOpenＲｓＰｒiｖaｔeSuｂmｎuAdｄResult_Cｌicｋ(）Fｒｍresult．ShoｗＥnｄSubPrivaｔeSｕbmnuＣlaｓｓＱｕeｒｙ_Ｃｌｉｃk（)ＦrmClassＱuery．ShｏｗＥｎdSuｂPrｉvaｔｅSuｂｍnｕClａsｓＲeport_Clｉｃk（）Ｃｌaｓｓprｉnt．rｓDＫ1”selectc．ｃlass＿no,ｓ。grａｄe_no，graｄe_ｎａme，u。usｅｒ＿iｄ,uｓeｒ_ｎａmefromclasｓ_ｉnfｏｃｉnnｅｒjｏinschoolgrade_inｆｏｓoｎc。graｄe_ｎｏ=s。ｇrａｄe＿ｎoinｎｅrjoiｎuseｒ＿ｉnfouoｎc。ｕｓeｒ_iｄ=ｕ。uｓeｒ_id”CｌａsｓReｐort．ShoｗSｅtClaｓsＲeｐort。ＤataSｏurｃｅ=Ｃlａsｓｐriｎｔ．ｒs1EnｄＳubＰｒｉvaｔｅSｕbmnuCouｒseQuery＿Ｃlicｋ（)FrmＣourｓeQuｅry．SｈowEｎｄSuｂPｒｉvateＳubｍnｕMaｔｔｅr＿Clｉck()’ｈtmlheｌphwnd,”ｓimｓ。chｍ＂，0，0ＥndSubＰrivａt(yī)eＳｕｂmｎuResｕltQｕery_Click（)FrｍReｓuｌtＱuerｙ。ＳhowＥｎdSuｂPrivateSubmnuＳｃｈooｌSｅt_Cｌiｃk（）FｒｍSchoolＩｎfo.ＳhowEndSubPrｉvａt(yī)eSｕbmｎuＳｅtClasｓ＿Cｌick（）FｒmClasｓIｎfo。ＳhoｗＥndSuｂPｒｉｖateSｕｂmｎｕAｄdStudentIｎfo_Clicｋ（)FｒｍAddStｕｄentＩnｆｏ．ShowEndSｕｂPriｖateSubｍnuAｄｄUｓｅr＿Ｃlick(）ＦrmＡddＵｓeｒ.SｈoｗＥnｄＳｕｂPrivａt(yī)eＳｕbmnｕＤｅｌeteUseｒ_Cｌｉck(）FrmDelＵser。ShｏｗＥndSub5．3。1ＳｔaｔusＢaｒ1Ｐrivａt(yī)eＳuｂMＤIFｏrｍ_Loａｄ()DｉｍｍｙpaneｌAsPaneｌSetmypaｎel=Sｔａt(yī)usBａr１.Pａnｅｌs.Add(1,，，sbｒDatｅ)＇狀態(tài)欄1顯示日期Sｅtｍypaｎel＝Ｓtａt(yī)usＢａr１．Panelｓ．Aｄd(２）'狀態(tài)欄2顯示星期幾CallＭyＷeｅｋＤayＳｅtmｙpanel＝SｔａｔusＢａｒ1。Ｐanｅls。Add（3)StatusBaｒ１。Paｎeｌs（3)．Teｘt=＂當(dāng)前用戶:"&ＦrmLogｉn。CｕｒreｎｔUseｒmypaneｌ．AｕtoSiｚe＝sbｒＣoｎtentsSｅtmyｐaneｌ=ＳtatusBar1.Paｎｅｌs。Adｄ(４）＇狀態(tài)欄３顯示文本消息mｙｐanｅl．AｕtoSｉｚe=ｓbrSprinｇEndＳubＰｒivａt(yī)eＳubＭyＷeekDay（）SｅｌｅcｔCaseWｅe(cuò)kdａy(Ｄaｔe)Caｓe1SｔaｔｕsBar１．Pａｎeｌs（2).Text="星期日"Case2StatusBar１.Paｎels(2）．Teｘt=＂星期一”Case3SｔatusBar１．Pａnels（2）．Ｔext=”星期二"Caｓe4Ｓｔａt(yī)usBaｒ1.Ｐanels(2).Tｅxt=”星期三"Cａｓe5Ｓtａt(yī)uｓBar1。Ｐａｎeｌs（2）。Teｘｔ＝"星期四＂Ｃａse6Ｓtａt(yī)usBar1。Pａnelｓ(２）．Tｅxt=＂星期五"Cａse７StaｔusBａr１．Panｅｌs(２）．Ｔｅxt=”星期六”EｎdSelecｔＥｎdＳub5.3.２Timer1Privａt(yī)eSｕbTimｅｒ1＿Tｉmｅr(）ＩｆＭyｉnｆo＝"＂ＴｈｅnＭｙｉnfo＝Ｓpａｃe（８5)&＂歡迎使用同學(xué)信息管理系統(tǒng)!”ＥｎdIｆＭｙinfｏ=Ｒight（Myinfo,Len(Mｙiｎfｏ)－１)ＳｔａｔuｓＢａr1。Pａｎｅｌｓ（4).Ｔext=MｙｉｎfoEndSuｂ５.3。3菜單編輯器在主窗體上添加一個(gè)菜單編輯器，菜單結(jié)構(gòu)、屬性如下表所示：表5—1系統(tǒng)菜單圖標(biāo)題名稱標(biāo)題名稱文件(＆F)…注銷…退出系統(tǒng)mnuＦilemnulｏgofｆmnuEｘit課程信息管理…課程信息設(shè)置…班級(jí)課程開(kāi)設(shè)mnuCoｕrseIｎfomｎuSetCoｕｒseIｎfｏｍｎuSetCｏurse用戶管理…用戶添加…用戶刪除…用戶修改mnｕUsｅｒManａgemnuAddＵsｅrmnｕDｅleteUseｒｍnuModiＰｗd學(xué)籍信息管理…學(xué)籍信息設(shè)置mnuStuｄｅｎtIｎｆoｍｎｕAddｓtudentIｎｆo班級(jí)信息管理…學(xué)校班級(jí)設(shè)置…學(xué)校信息設(shè)置mnuＧrａdｅmｎｕSetGrademｎｕScｈｏoｌSet成果信息管理…成果信息設(shè)置ｍnｕRｅsｕltmnuAｄｄReｓulｔ班級(jí)信息管理…班級(jí)信息設(shè)置mnuClａssmnuSeｔClass查詢管理…班級(jí)信息查詢…課程信息查詢…成果信息查詢…學(xué)籍信息查詢mｎｕQｕeｒｙmnuClaｓsＱuｅｒymｎｕCｏurｓeQｕeｒymｎuResｕｌtQｕｅｒymnuStｕｄｅntInfo統(tǒng)計(jì)報(bào)表中心…班級(jí)信息統(tǒng)計(jì)報(bào)表…同學(xué)信息統(tǒng)計(jì)報(bào)表mnuRepｏrｔmnｕClassＲｅpoｒｔｍnuSｔudeｎｔRｅｐｏrｔ5。4查詢管理窗體設(shè)計(jì)５．4。1班級(jí)信息查詢添加一個(gè)窗體（FrmCｌassＱueｒｙ）該部分主要包括班級(jí)基本信息的查詢。窗體運(yùn)行情況如下圖所示:圖５－3班級(jí)信息查詢圖5．4．2課程信息查詢添加一個(gè)窗體(ＦrｍCoｕrseQuer）該部分主要包括班級(jí)基本信息的查詢.窗體運(yùn)行情況如下圖所示：圖5—４課程信息查詢圖5。4。3成果信息查詢添加一個(gè)窗體（FrmReｓｕltＱueｒ)該部分主要包括班級(jí)基本信息的查詢。窗體運(yùn)行情況如下圖所示：圖5-5成果信息查詢圖5。４．4學(xué)籍信息查詢添加一個(gè)窗體(FｒｍＳtudenｔInfoQueｒ)該部分主要包括班級(jí)基本信息的查詢.窗體運(yùn)行情況如下圖所示：圖5－6學(xué)籍信息查詢圖5．５用戶信息管理5.5。1用戶注冊(cè)窗體設(shè)計(jì)添加一個(gè)窗體（ＦrｍＡｄｄUseｒ）。該部分主要完成用戶的注冊(cè)功能。窗體運(yùn)行情況如下圖所示:圖5—7添加用戶圖代碼如下：DｉｍMyＡddUserAsＯｐｅｎRsDiｍＣhoｏｓeAsBｏoleanDimLevｅｌＡsIntｅgeｒPｒivateSuｂCmｄcanｃel_Cliｃk()UnloadMeＥndSｕbＰｒivatｅSｕbｃｍｄCoｍｐ＿Cｌiｃk()’完成按鈕MｙAddUser。rs1．AｄdNewMｙＡｄdUｓeｒ.ｒs1！ｕser_iｄ=Ｔriｍ(ｔxｔUｓeｒIｄ.Text)MyＡddＵser。rｓ１!uｓｅr_namｅ＝Trｉｍ（ｔxtUsｅｒＮame）MｙAｄｄＵｓｅr.rs1！uｓer_des＝Tｒim(txtUｓeｒｄes．Tｅxｔ)ＭｙAddUｓer.rｓ１?。鮯eｒ_pｗｄ=Tｒｉm（tｘtPwｄ１.Teｘt）MyＡｄdＵsｅr。rｓ1!ｕｓｅr_level=ＬｅvelMyAddUser．rｓ1．UｐdaｔeIfMｓgBｏx（＂添加用戶成功！"&ｖbＣrLf＆vｂＣrLf＆＂是否連續(xù)添加用戶?＂,vｂYeｓNo+vｂQuestioｎ，”添加用戶"）＝ｖｂＹeｓTｈeｎFｒaｍｅ3。Visiｂｌｅ＝FalsecmｄＣｏmp.Vｉsｉｂｌｅ＝ＦａlseFrame1．Ｖisｉbｌe=TｒuｅcmdNｅxt.Vｉｓiｂｌe＝TruetxｔＵserＩd。SetFｏcusCaｌlCleaｒTextＥlｓeUnloadMｅＥndＩfEnｄSｕｂ５.5。2密碼修改窗體設(shè)計(jì)添加一個(gè)窗體（FrmMｏｄｉPａｓs）該部分主要完成用戶密碼修改的功能。情況如下圖所示：圖5—８修改密碼圖代碼如下:ＰrｉvateＳuｂｃmdOK_Click()IftｘｔUseｒIｄ。Tｅｘｔ=""ＴheｎＭsgBｏx”請(qǐng)輸入用戶編號(hào)！"，vbＯKOｎｌy+vｂＩnｆoｒmａt(yī)ioｎ，＂修改密碼”ｔｘｔUｓeｒId．SetFocuｓＥｘitSubEndIfIftxtＵserName.Text＝”"TｈｅnＭsgBoｘ"用戶編號(hào)不存在!＂，vbＯＫOnlｙ+ｖbInｆoｒｍatioｎ,"修改密碼＂txｔUseｒIｄ．Tｅxt=＂"txtＵserId．SetFｏｃusEｘitSuｂEndＩfIftxtOldPass.Teｘt=＂"ＴhｅnMsgＢｏx＂請(qǐng)輸入舊密碼！",vｂOＫＯnly+vbIｎformaｔion，＂修改密碼"tｘtＯlｄPasｓ。SetFocusＥｘitSｕｂＥｎdIfIftxtＮｅｗPａsｓ．Tｅxt=＂"TｈｅnＭsｇBoｘ＂請(qǐng)輸入新密碼!＂,vbOＫOｎｌy+vbInfｏrmａt(yī)iｏn，＂修改密碼＂ｔｘtNewPaｓs．SｅtＦocusEｘｉtSｕｂEndＩfIftxtNewPａss1.Teｘt=”＂ThenＭsgBox＂請(qǐng)輸入新密碼!＂,ｖbOKＯnly＋vbInformatioｎ,＂修改密碼＂txｔＮｅwPaｓｓ1。SetＦocusＥｘitＳuｂＥndIfＩfｔｘｔNｅｗPａss.Text=tｘtＮewPass1．ＴｅxｔThenMoｄiｐａss。ｒs1!ｕｓer_pwｄ=txtNｅｗPass．TeｘｔMoｄipass。ｒｓ1。UpdatｅＭｓgBox＂密碼修改成功！”，vｂＯＫOnlｙ＋ｖbIｎｆoｒmatiｏn,”修改密碼”tｘｔUsｅrId．Ｔext=””ｔｘtUsｅｒＩd。SetFｏcusＥｌseＭsgＢox"兩次輸入的密碼不全都，請(qǐng)重新輸入!”,vbOKOnly＋vｂＩnfｏrmatiｏn，”修改密碼”txｔNewPaｓs．Text=””ｔxtNewPaｓs1。Ｔext="”ｔxｔＮewPaｓｓ.SetFoｃｕsＥndIfEndIｆＥnｄＳuｂPrivateSubtｘtＮeｗPａsｓ＿KeｙPreｓs（ＫｅｙAsciｉAsIntｅgｅr）IfＫeｙＡｓｃｉi＝39ＴｈenKｅyAsｃｉｉ＝0EｌseＩfKｅｙAsciｉ＝13ThｅｎtｘtＮeｗPasｓ1．SetFoｃｕsEndIfEnｄSub5.６學(xué)籍信息管理窗體設(shè)計(jì)添加一個(gè)窗體（FrmAddＳtudentIｎfｏ)該部分主要完成同學(xué)學(xué)籍信息的增、刪、改的操作。窗體運(yùn)行情況如下圖所示：圖４-９學(xué)籍信息管理圖部分代碼如下：PrivateSuｂcmdAdd_Ｃlｉck(）ＩfcmｄAｄｄ.Ｃaｐｔioｎ＝”添加（&A)＂ThenＣaｌｌＣlｅａrTeｘtcmdAdd。Ｃaption=＂取消（＆C）"Fｒaｍｅ2．Enabled=ＴrueCｈａnge＝TｒueｔxtstuｄｅｎtＮamｅ．SeｔＦoｃuscmｄSave.Ｃaptｉｏn=”保存(＆S)＂cmdSavｅ。Enａｂleｄ＝TｒuｅcmdDｅl.Enabｌｅd＝FalsｅEｌｓeCaｌlCleａｒTｅｘｔｃmｄAdd.Capｔiｏn=”添加(＆A)＂Ｆraｍe2．Enabled=FalsecmdSａvｅ.Caption＝"保存(＆S)”ｃｍｄSave.Enaｂled＝FａlsｅcｍdDel.Enaｂｌed=FaｌsｅEndＩfEndSubＰriｖａｔeSｕbｃmdＤeｌ_Ｃlick（）mｙMoｄｉＳtuｄenｔ。rsDＫ1"SEＬECT＊FＲOＭsｔudｅｎｔ＿inｆowherestudent_id=’”&ｔｘｔＳｔudentId．Text&＂’＂IｆMsｇＢoｘ（＂確認(rèn)要?jiǎng)h除該記錄嗎？＂，ｖbQuｅsｔion+vbＯKＣaｎceｌ,＂刪除記錄”）=vｂOＫTｈenｍyMoｄiStｕｄent．rs1．DelｅteElｓeExｉtSuｂEndIｆCallCｌeａrＴｅxtcmdSave.Ｃapｔｉon=＂保存（&S)＂myMｏdiStｕdent.rsＤＫ1"SEＬECＴ＊ＦROMｓｔudｅｎｔ_info”IfｍｙＭoｄiStｕｄｅnt．rs１。EOFThｅnＳｔｕdenｔＧriｄ。ClｅａｒＳtudenｔGrid。FｏｒmaｔString＝”｜學(xué)號(hào)|姓名｜性別|誕生日期｜班號(hào)|聯(lián)系電話｜入校時(shí)間|家庭住址｜ＥlseSetSｔudentGrid.Dａt(yī)ａSourｃｅ=myModiStuｄeｎｔ.rs１SｔｕdentGｒｉd.Fｏｒmａt(yī)Striｎg=”|學(xué)號(hào)｜姓名｜性別|誕生日期|班號(hào)｜聯(lián)系電話｜入校時(shí)間｜家庭住址|ＥndIfEndSub5.7課程信息管理窗體設(shè)計(jì)添加一個(gè)窗體（ＦrｍCouｒse)括學(xué)校所開(kāi)設(shè)課程的設(shè)定。窗體運(yùn)行情況如下圖所示