VB+Access學(xué)信管理統(tǒng)

———————————————————————————————作：————————————————————————————————日：2

個(gè)收整勿做商業(yè)途河南工大高等業(yè)學(xué)畢業(yè)論文學(xué)生信管系統(tǒng)(論文名稱）(作者姓名)指導(dǎo)教師專業(yè)班級答辯日期評閱教師年

月

日

個(gè)收整勿做商業(yè)途前言學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重所以學(xué)生信息管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚恢币詠砣藗兪褂脗鹘y(tǒng)人工的方式管理學(xué)生學(xué)籍檔案這種管理方式存在著許多缺點(diǎn),如：效率低、保密性差另外時(shí)間一長，將產(chǎn)生大量的文件和數(shù)據(jù),對于查找、更新和維護(hù)都帶來了不少的困難。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，其強(qiáng)大的功能已為人們深刻認(rèn)識(shí)它已進(jìn)入人類社會(huì)的各個(gè)領(lǐng)域并發(fā)揮著越來越重要的作用。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對學(xué)生學(xué)籍信息進(jìn)行管理具有著手工管理所無法比擬的優(yōu)點(diǎn)。例如檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)籍管理的效率,也企業(yè)的科學(xué)化、正規(guī)化管理,與世界接軌的重要條件。因此,發(fā)這樣一套管理軟件成為很有必要的事,在下面的各章中將以開發(fā)一套學(xué)生信息管理系統(tǒng)為例,談?wù)勂溟_發(fā)過程和所涉到的問題及解決方法

個(gè)收整勿做商業(yè)途摘要隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用管理信息系統(tǒng)的實(shí)施在技術(shù)上已經(jīng)逐步成熟管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)學(xué)生學(xué)籍管理系統(tǒng)是一個(gè)教育單位不可缺少的部分它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要所以學(xué)籍管理系統(tǒng)應(yīng)該能夠?yàn)橛脩籼峁┏渥愕男畔⒑涂旖莸牟樵兪侄蔚恢币詠砣藗兪褂脗鹘y(tǒng)人工的方式管理文件檔案這種管理方式存在著許多缺點(diǎn),如：效率低、保密性差，另外時(shí)間一長將產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不少的困.作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對學(xué)生學(xué)籍進(jìn)行管理,具有手工管理所無法比擬的優(yōu)點(diǎn)例如:檢索迅速找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長、成本低等。這些優(yōu)點(diǎn)能夠極大地提高學(xué)生學(xué)籍管理的效率，也是企業(yè)的科學(xué)化、正規(guī)化管理，與世界接軌的重要條件。本系統(tǒng)主要完成對系部信息、班級信息、任課教師信息、學(xué)生信息、課程信息以及有選課記錄和成績等多種數(shù)據(jù)信息的管理括數(shù)據(jù)庫中表的錄入改除等。系統(tǒng)還可以完成對各類信息的查詢、錄入、修改、刪除等功能，其中學(xué)籍管理用戶包括系統(tǒng)管理員、教師和學(xué)生。本系統(tǒng)采用Access2003來設(shè)計(jì)數(shù)據(jù)庫,并使用當(dāng)前優(yōu)秀的開發(fā)工具：VisualStudio2008它有著最為靈活的數(shù)據(jù)庫結(jié)構(gòu)對數(shù)據(jù)庫應(yīng)用有著良好的支持。論文主要介紹了本系統(tǒng)的開發(fā)背景所要完成的功能和開發(fā)的過程主要說明了系統(tǒng)設(shè)計(jì)的重點(diǎn)、設(shè)計(jì)思想。關(guān)鍵詞：

學(xué)生信息管理系統(tǒng)；關(guān)系數(shù)據(jù)庫

個(gè)收整勿做商業(yè)途W(wǎng)ithinformationtechnologymoreandmoreabroadandin-depthlyonmanagementhasgrownupstepbystepthatontechnologymanagementinformationisin。Managementinformationsystemsubjectinprogess.Aslongasanycorporationlivesand，organizesactivitiesinsideeffectly,itneedscreateitselfsuitablemanagementinformationsystem。Theschoolregistersystemmanagementsystemisaneducationunitessentialpart.Itscontentsaidregardingtheschoolpolicy-makerandthesuperintendentveryimportant,theregistermanagementsystemmanagementsystemshouldbeabletoprovidethesufficientinformationandthequickinquirymethodfortheuser.Butthepeoplehavesincealwaysusedthetraditionalartificialwaymanagementdocumentfile，thismanagementwayhas。Forexample：theefficiencyislong,willproducethethesearch,themaintenancehasallbroughtmanydifficulties.Alongwithscienceandtechnologyunceasingenhancement，Thecomputerscienceismaturedayafterday.Itsformidablefunctionhadprofoundlyknownforthe。Itenteredthehumansocietyeachdomainandisplayingthemoreandmorevitalrole.Thissystemmainlyfinishestomanagefordepartmentinformation、teacherinformationinformation、courseinformation、selectivecourserecordandscorethatneedstablesinthedatabasetobecreated,alteredanddeleted。Thesystemcanrealizetoselect,create，alteranddeletedforallinformations，andthesystemusershavethesystemmanager、teachersandstudents。ThesystemusesMicrosoftSQL2,008todesignthedatabaseandusescurrentoutstandingdevelopment：MicrosoftVisualStudio2010，Ithasthe，andtotheapplication。Thepapermainlyintroducedthistopicdevelopmentcompletefunctionanddevelopment。Thekeyexplanationissystemdesign，keypoint，designthought.Keywords

Themanagementinformationsystem；Theschoolregistermanagementsystem；RDBMS

個(gè)收整勿做商業(yè)途目

錄摘要.............................................!定義書。Abstract............................................!定義書。第一章緒論.......................................!定義書。1。1課題介.................................錯(cuò)!定義書。1。2課題目的及意...........................錯(cuò)!定義書。1.3研究方法、發(fā)展趨........................錯(cuò)!定義書。第二章開發(fā)環(huán)境、工具介紹...........................!定義書。2。1VisualBasic錯(cuò)誤定義簽。2。1。1VisualBasic的編程特點(diǎn).........................錯(cuò)誤定義書簽。2。1。2vb支持的數(shù)據(jù)庫系統(tǒng).............................錯(cuò)誤定義書簽。2。1.3數(shù)據(jù)庫開發(fā)中的三大工具..........................誤!定義書。2。2ACCESS2003簡.........................錯(cuò)!定義書。2。2.1ACCESS2003數(shù)據(jù)庫特點(diǎn)..........................誤!定義書。2.3ADO對象概..............................錯(cuò)!定義書。2。3。1利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序.................誤!定義書。2。3。2ADO組件的主要對象及其功錯(cuò)誤定義書簽。2.3。3用來操控?cái)?shù)據(jù)的SQL命令..........................誤!定義書。2。4VB訪問數(shù)據(jù)庫過程........................錯(cuò)!定義書。第三章系統(tǒng)分析與設(shè)計(jì)...............................!定義書。3。1系統(tǒng)功能分.............................錯(cuò)!定義書。3。2系統(tǒng)結(jié)構(gòu)...............................錯(cuò)!定義書。3.3數(shù)據(jù)庫設(shè)................................錯(cuò)!定義書。3。3.1建立數(shù)據(jù)庫......................................誤!定義書。3.3。2表結(jié)構(gòu)..........................................誤!定義書。第四章系統(tǒng)實(shí)現(xiàn)....................................錯(cuò)誤定義書簽4.1界面、代碼設(shè)計(jì)與實(shí)現(xiàn)......................錯(cuò)誤!未定義書簽4.2數(shù)據(jù)源（Access）..........................錯(cuò)!定義書。第五章系統(tǒng)管理維護(hù)與評價(jià)..........................錯(cuò)!定義書。5。1系統(tǒng)的日常管理維護(hù)和評價(jià).................錯(cuò)誤!未定義簽。2.2設(shè)計(jì)過程中遇到的問題以及解決方法..........錯(cuò)誤!定義書。第六章總結(jié)........................................!定義書。致謝................................................!定義書。參考文獻(xiàn)............................................!定義書。附錄................................................!定義書。

個(gè)收整勿做商業(yè)途第一章

緒論1.11

課介高校學(xué)生信息的管理是一項(xiàng)既重要又繁瑣的工作更好的做好這項(xiàng)工作，提過工作效率，更好的為學(xué)校的發(fā)展和一線教學(xué)服務(wù)，決定:結(jié)合我校實(shí)際情況，自行研制一個(gè)學(xué)生信息管理系統(tǒng)。課目及義由于現(xiàn)今的學(xué)生信息管理非常繁,行政人員付出大量的工作時(shí)間，得到的效率很低。因此為提高工作效率，減輕校方人員的工作負(fù)擔(dān),決定開發(fā)學(xué)生信息管理系統(tǒng)。計(jì)算機(jī)已經(jīng)成為我們學(xué)習(xí)和工作的得力助手：今天，計(jì)算機(jī)的價(jià)格已經(jīng)十分低廉性能有了長足的進(jìn)步已經(jīng)被應(yīng)用于許多領(lǐng)域,算機(jī)之所以如此流行的原因主要有以下幾個(gè)方面：首先,算機(jī)可以代替人工進(jìn)行許多繁雜的勞動(dòng)；其次，計(jì)算機(jī)可以節(jié)省許多資源；第三，計(jì)算機(jī)可以大大的提高人們的工作效率；第四,算機(jī)可以使敏感文檔更加安全等等為了解決傳統(tǒng)學(xué)生信息的管理正面臨著的這些問題我所設(shè)計(jì)的學(xué)生信息管理系統(tǒng)也就應(yīng)運(yùn)而生了。1.3究法發(fā)趨本系統(tǒng)采用功能分析法即通過說明社會(huì)現(xiàn)象怎樣滿足一個(gè)社會(huì)系統(tǒng)的需要即具有怎樣的功能）來解釋社會(huì)現(xiàn)象和CS式共同完成?，F(xiàn)代教育技術(shù)特別是網(wǎng)絡(luò)與多媒體技術(shù)的發(fā)展學(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ā)展三大趨勢的校園網(wǎng)絡(luò)應(yīng)用系統(tǒng),全面支持Internet功能、遠(yuǎn)程訪問功能，采用先進(jìn)的和模式共同開發(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é)校的管理水平和效

個(gè)收整勿做商業(yè)途率，同時(shí)充分利用全球的教育資源為學(xué)校的教育服務(wù)，克服目前大部分學(xué)校的校園網(wǎng)建設(shè)只起到宣傳作用的通病。第二章

開發(fā)環(huán)境、具介紹該軟件是在WindowsXPProfessional+VisualBasic6+ACCESS2003的環(huán)境下完成的。下面就對這些開發(fā)工具進(jìn)行介紹2.16。0微軟公司的Visual是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具VisualBasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能了編程人員的工作量簡化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性用BASIC程序設(shè)計(jì)語言,可以很方便地設(shè)計(jì)出在境下運(yùn)行的應(yīng)用程序。故而，實(shí)現(xiàn)本系統(tǒng)VB一個(gè)相對較好的選擇。2.1.1Basic的編特點(diǎn)VisualBasic語言的出現(xiàn)為Windows下的編程提出了一個(gè)新概念利用VisualBasic動(dòng)態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動(dòng)態(tài)鏈接庫、技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。利用VisualBasic語言編程有以下幾個(gè)特點(diǎn):1可視化程序設(shè)計(jì)在Basic中開發(fā)的應(yīng)用程序，不但有豐富的圖形界面，同時(shí)由用戶為開發(fā)圖形界面添加的代碼真是少而又少,因?yàn)樵谠O(shè)計(jì)圖形界面的過程中只需設(shè)置ActiveX控件的屬性即可。2強(qiáng)大的數(shù)據(jù)庫和網(wǎng)絡(luò)功能隨著Visual語言的向前發(fā)展，它在數(shù)據(jù)庫和網(wǎng)絡(luò)方面的功能優(yōu)勢就愈加明顯利用VisualBasic中的ODBC——開放式的數(shù)據(jù)庫訪問技術(shù)可以很方便地開發(fā)出自己的數(shù)據(jù)庫應(yīng)用程序；利用Visual自帶的可視化數(shù)據(jù)管理器和報(bào)表生成器，完全可以在VisualBasic就完成數(shù)據(jù)庫的開發(fā)工作。3其他特性在Basic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了VisualBasic的發(fā)展。從Visual版本開，在Visual中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得Basic的代碼效率有了很大的提高，同時(shí)執(zhí)行的速度也加快了解30%（同VisualBasic4。0相比

個(gè)收整勿做商業(yè)途當(dāng)然在VisualBasic中還有其它特性，例如：

面向?qū)ο蟮木幊陶Z言；結(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í),而是在響不同的事件時(shí)執(zhí)行不同的代碼片段事件可以由用戶操作觸發(fā)也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)甚至由應(yīng)用程序本身的消息觸發(fā)這些事件的順序決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過的路徑都是不同的。

支持動(dòng)態(tài)鏈接庫；應(yīng)用程序之間的資源共享；事件驅(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í)行,而是在響不同的事件時(shí)執(zhí)行不同的代碼片段.事件以由用戶操作觸發(fā)、也可以由來自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)甚至由應(yīng)用程序本身的消息觸發(fā)這些事件的順序決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過的路徑都是不同的。

支持動(dòng)態(tài)鏈接庫;應(yīng)用程序之間的資源共享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.1.3據(jù)庫開中的三工具VisualBasic在數(shù)據(jù)庫用程序的發(fā)領(lǐng)域，提供包含數(shù)據(jù)管理

個(gè)收整勿做商業(yè)途（DataManager控Control及數(shù)據(jù)編程對數(shù)據(jù)訪問對（DAO遠(yuǎn)程數(shù)據(jù)對象RDO）ActiveX數(shù)據(jù)對象（ADO功能強(qiáng)大的工具,協(xié)助設(shè)計(jì)人員輕松的連接數(shù)據(jù)庫文件并訪問其中的數(shù)據(jù)，在功能方面與其他一些專業(yè)數(shù)據(jù)庫軟件（如FoxPro，MicosoftAccess等）不相上下數(shù)據(jù)管理器（DataManager是Basical有的老成員之一，拓本盛舉有的Jet數(shù)據(jù)庫引擎(DatabaseEngine可以幫助VB程序元件立即維護(hù)數(shù)據(jù)庫內(nèi)容，并可通過輸入查詢或查找數(shù)據(jù)庫信息不必再通過其他數(shù)據(jù)庫軟件另外去設(shè)計(jì)數(shù)據(jù)庫.數(shù)據(jù)控件是VB所提供的基本控件成員之一。它使得設(shè)計(jì)者省下一堆程序代碼編寫的工,夠輕松的設(shè)計(jì)及維護(hù)數(shù)據(jù)庫內(nèi)容數(shù)控件可以通過一些屬性的設(shè)置去鏈接某個(gè)數(shù)據(jù)庫文件但是它本身并無法顯示數(shù)據(jù)庫各個(gè)記錄的內(nèi)容必須在搭配其他具有數(shù)據(jù)感知(Data）功能的控件對應(yīng)并顯示一個(gè)字段內(nèi)容，以方便地進(jìn)行記錄的瀏覽及編輯工作.VB提供的數(shù)據(jù)訪問對象（DataAccessObject;DAO）讓程序設(shè)計(jì)者擁有更大的發(fā)揮空間.借助程序代碼編寫,直接控制Jet數(shù)據(jù)庫引擎配合數(shù)據(jù)庫控件能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。RDO是處理遠(yuǎn)程數(shù)據(jù)庫的一些專門需要的對象集合.使用RDO可以不用本地的查詢機(jī)就能訪問ODBC數(shù)據(jù)源，這無疑將大大提高應(yīng)用程序的性能ADO是VB6.0中新增的對象，它是一個(gè)更簡單的對象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對本地和遠(yuǎn)程數(shù)據(jù)庫均有共同的界面可以取代DAO和RDO.ADO更易于使用.我們在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫及數(shù)據(jù)庫表采用了數(shù)據(jù)訪問技術(shù)。2.1.4ACCESS2003簡數(shù)據(jù)庫是有結(jié)構(gòu)的數(shù)據(jù)集合,它與一般的數(shù)據(jù)文件不同，其中的數(shù)據(jù)是無結(jié)構(gòu)的是一串文字或數(shù)字流。數(shù)據(jù)庫中的數(shù)據(jù)可以是文字、圖象、聲音等。MicrosoftAccess是一種關(guān)系式數(shù)據(jù)庫,關(guān)系式數(shù)據(jù)庫由一系列表組成，表又由一系列行和列組成，每一行是一個(gè)記錄,每一列是一個(gè)字段，每個(gè)字段有一個(gè)字段名，字段名在一個(gè)表中不能重復(fù)。表與表之間可以建立關(guān)(或稱關(guān)聯(lián),連接便查詢相關(guān)聯(lián)的信息.Access數(shù)據(jù)庫以文件形式保存，文件的擴(kuò)展名是。。本次數(shù)據(jù)庫采用了推出的Access數(shù)據(jù)庫能夠快速方便的和的其他套件綜合使用。由于有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用Access作為后臺(tái)數(shù)據(jù)庫使用Access的好處還在于如果你的系統(tǒng)擴(kuò)展

個(gè)收整勿做商業(yè)途到Client/Server模式的時(shí)候使用Microsoft的數(shù)據(jù)庫服務(wù)器軟SQLServer，此時(shí)，程序只需要簡單的修改一下鏈接ADO的數(shù)據(jù)源）就可以，這樣,為程序的平滑擴(kuò)展提供了非常有力的條件。2.1.52003數(shù)據(jù)特點(diǎn)概括起來,ACCESS2003數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。（1)存儲(chǔ)方式單一：Access管理的對象有表、查詢、窗體、報(bào)表、頁、宏和模,以上對象都存放在后綴為（。mdb）的數(shù)據(jù)庫文件中，便于用戶進(jìn)行操作和管理。(2）面向?qū)ο螅篈ccess是一個(gè)面向?qū)ο蟮拈_發(fā)工具，利用面向?qū)ο蟮姆绞綄?shù)據(jù)庫系統(tǒng)中的各種功能對象化，將數(shù)據(jù)庫管理的各種功能封裝在各類對象中它將一個(gè)應(yīng)用系統(tǒng)當(dāng)作是由一系列對象組成的,對每個(gè)對象它都定義一組方法和屬性，以定義該對象的行為和外圍用戶還可以按需要給對象擴(kuò)展方法和屬性通過對象的方法屬性完成數(shù)據(jù)庫的操作和管理極大地簡化了用戶的開發(fā)工作同時(shí)這種基于面向?qū)ο蟮拈_發(fā)方式，使得開發(fā)應(yīng)用程序更為簡便。（3）界面友好、易操:Access是一個(gè)可視化工具，其風(fēng)格與全一樣,用戶想要生成對象并應(yīng)用,只要使用鼠標(biāo)進(jìn)行拖放即可常直觀方便.系統(tǒng)還提供了表生成器、查詢生成器、報(bào)表設(shè)計(jì)器以及數(shù)據(jù)庫向?qū)?、表向?qū)А⒉樵兿驅(qū)?、窗體向?qū)?、?bào)表向?qū)У裙ぞ?，使得操作簡便，容易使用和掌握。?）集成環(huán)境、處理多種數(shù)據(jù)信息Access基于操作系統(tǒng)下的集成開發(fā)環(huán)境該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ邩O大地提高了開發(fā)人員的工作效率使得建立數(shù)據(jù)庫、創(chuàng)建表、設(shè)計(jì)用戶界面、設(shè)計(jì)數(shù)據(jù)查詢、報(bào)表打印等可以方便有序地進(jìn)行。（5Access支持ODBC（開發(fā)數(shù)據(jù)庫互聯(lián)OpenDataBaseConnectivity強(qiáng)大的DDE(動(dòng)態(tài)數(shù)據(jù)交換）和OLE(對象的鏈接和嵌入)特性，可以在一個(gè)數(shù)據(jù)表中嵌入位圖、聲音、表格Word檔，還可以建立動(dòng)態(tài)的數(shù)據(jù)庫報(bào)表和窗體等。而且可以將程序應(yīng)用于網(wǎng)絡(luò),并與網(wǎng)絡(luò)上的動(dòng)態(tài)數(shù)據(jù)相鏈接。利用數(shù)據(jù)庫訪問頁對象生成HTML文件，輕松構(gòu)建Internet/Intranet應(yīng)用。2.2ADO對概ADO對象能夠存取到數(shù)據(jù)庫的內(nèi)容，首先要求數(shù)據(jù)庫的驅(qū)動(dòng)程序（ODBC動(dòng)程序與OLEDB驅(qū)動(dòng)程序）必須安裝上,否則，ADO象是無法存取數(shù)據(jù)庫中內(nèi)容，其原

個(gè)收整勿做商業(yè)途理示意圖如下圖所示：客ADO種據(jù)各數(shù)庫(如、請注意圖中各種數(shù)據(jù)庫所對應(yīng)的驅(qū)動(dòng)程序動(dòng)程序與DB驅(qū)動(dòng)程序。利用網(wǎng)絡(luò)發(fā)數(shù)據(jù)應(yīng)用序ADO（ActiveDateObjects,ActiveX數(shù)據(jù)對象）是一個(gè)內(nèi)置的服務(wù)器組件（ActiveXServerComponent可把它與ASP結(jié)合起來，建立提供數(shù)據(jù)庫信息的網(wǎng)頁內(nèi)容，對數(shù)據(jù)庫進(jìn)行查詢、插入、更新、刪除等操作，并可以把在用戶端實(shí)現(xiàn)“網(wǎng)上實(shí)時(shí)更新顯示”的最新Web數(shù)據(jù)庫技術(shù)。要執(zhí)行ADO，服務(wù)器端必須安裝NTServer和InternetServer（IIS客戶端只要有或NETSCAPE較新版本的瀏覽器即可。利用ADO開發(fā)網(wǎng)絡(luò)數(shù)據(jù)庫應(yīng)用程序有以下幾個(gè)優(yōu)點(diǎn)：1支持客戶機(jī)/服務(wù)器結(jié)構(gòu)(Client/Server)與Web系統(tǒng)開發(fā)技術(shù)。2內(nèi)部有多個(gè)互相獨(dú)立的對象模型。3支持分批修改數(shù)據(jù)庫內(nèi)容。4支持多種不同的數(shù)據(jù)控制指標(biāo)形式5)、先進(jìn)的Recordset數(shù)據(jù)高速緩存管理功能。6允許在程序中使用多個(gè)對象或者多個(gè)分批修改區(qū)塊傳送。7屬于Free_threaded象,利用它可以開發(fā)出更有效的Web用程序。ADO組件的主對象及其功ADO組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象：1、Connection對象：提供對數(shù)據(jù)庫的連接服務(wù)。2、Command對象：定義對數(shù)據(jù)庫源操作的命令。

個(gè)收整勿做商業(yè)途3、Recordset對象:由數(shù)據(jù)庫服務(wù)器所返回的記錄集.Recordset對象的屬性的設(shè)置值如下表所示：常量adLockReadOnlyadLockPressimisticadLockOptimisticadLockBatchOptimistic

值1234

說明默認(rèn)值，只讀。無法更改數(shù)據(jù)保守式記錄鎖定(逐條供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式.開放式記錄鎖（逐條者使用開放式鎖定，只在調(diào)用Updata方法時(shí)鎖定記錄。開放式批更新。用于與立即更新模式相反的批更新模式.4對象：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段5、Parametes對象:表示Command對象的參數(shù)。6、Property對象：單獨(dú)的一個(gè)Property對象,提供屬性功能.7、Error對象：提供處理誤的功能。使用對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù),執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC錯(cuò)誤信息等。用來操控?fù)?jù)的SQL命SQL命令是發(fā)送給數(shù)據(jù)庫并要求數(shù)據(jù)庫操作的指令它是專門為數(shù)據(jù)庫設(shè)計(jì)的語言，比一般的計(jì)算機(jī)程序語言簡單的多。SQL命令主要分成兩部分:DDL(DataDefinitionLanguage)和DML(DataManipulationLanguage),其中DDL建立數(shù)據(jù)表及數(shù)據(jù)列的指令群，而是操作數(shù)據(jù)庫記錄的指令群如數(shù)據(jù)庫記錄的添加、更新、刪除、和查詢等。SQL命令，包括、Delete、Update、InsertInto、SelectInto等.1)、篩選及排序記錄的指令基本句型一：字段串列From數(shù)據(jù)表基本句型二：…From…Where篩選條件基本句型三:Select…From…OrderBy字段串列SelectTop：限定選取數(shù)據(jù)的條數(shù)2刪除數(shù)據(jù)記錄的指令基本語法：DeleteFrom數(shù)據(jù)表Where條件式3)、更新數(shù)據(jù)記錄的指令

個(gè)收整勿做商業(yè)途基本語法：Update數(shù)據(jù)表Set表達(dá)式4增加數(shù)據(jù)記錄的Into指令基本句型一：Into數(shù)據(jù)表（字段串列）Values（字段串列基本句型二InsertInto數(shù)據(jù)表(字段1，字段2，字段n）Select…5建立新數(shù)據(jù)表的Into指令該指令與“Insert…Select…”指令的區(qū)別是，這個(gè)指令將建立另一個(gè)新的數(shù)據(jù)表，而InsertInto是增加數(shù)據(jù)記錄到“現(xiàn)存的”數(shù)據(jù)表中。VB訪問數(shù)據(jù)庫過1)、定義數(shù)據(jù)庫組件DimconnAsNewADODB.Connection中conn為連接對象DimrecoAsNewADODB。Recordset其中reco為結(jié)果集對象2打開數(shù)據(jù)庫對于SQL數(shù)據(jù)庫，其連接語句為”driver={sqlserver};server=localhost;uid=sa;pwd=；database=student".而對于數(shù)據(jù)庫連接語句為conn。Open”Provider=Microsoft。OLEDB。4.0；DataSource="&App。Path+。mdb”3設(shè)定SQL語句，使用“命令，即可開始執(zhí)行訪問數(shù)據(jù)庫的動(dòng)作4)、關(guān)閉結(jié)果集對象,斷開與數(shù)據(jù)庫的連接reco。Closeconn。Close第三章

系統(tǒng)分析與計(jì)3.1系功分隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增.面對龐大的信息量就需要有一個(gè)學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計(jì)內(nèi)容為管理員或?qū)W生登錄該系統(tǒng)進(jìn)行六個(gè)模塊操作1統(tǒng)管理：修改密碼、退出系統(tǒng)2系管理：添加院系、修改院系、查詢院系3籍管理:添加學(xué)籍、修改學(xué)籍、查詢學(xué)籍4級管理：添加班級、修改班級、查詢班級

3.2

個(gè)收整勿做商業(yè)途5程管理：添加課程、修改課程、查詢課程、設(shè)置年級6績管理：添加成績、修改成績、查詢成績系結(jié)圖本系統(tǒng)主要包括系統(tǒng)管理、院系管理、學(xué)籍管理、班級管理、課程管理和成績管理6大的模塊，各個(gè)模塊的具體功能如下圖所示：學(xué)信息系統(tǒng)管理

院系管理

學(xué)籍管理

班級管理

課程管理

成績管理修改密碼

添加院系

添加學(xué)籍

添加班級

添加

添加成績課程退出系統(tǒng)

修改院系

修改學(xué)籍

修改班級

修改成績查詢院系

查詢學(xué)籍

查詢班級

修改課程

查詢成績設(shè)置年級查詢課程3.3數(shù)庫計(jì)3建立數(shù)據(jù)庫使用VB6.0所提供的“可視化數(shù)據(jù)管理器”建立數(shù)據(jù)庫以及其中的數(shù)據(jù)表。在VB集成環(huán)境中啟動(dòng)數(shù)據(jù)管理器：單擊“外接程序"菜單下的“可視化數(shù)據(jù)管理器”命令，打開可視化數(shù)據(jù)管理器“VisData”窗口。選“文件菜單中“新建項(xiàng)新建菜單中,選“Microsoft子菜單中“Version在創(chuàng)建數(shù)據(jù)庫對框中選擇保存數(shù)據(jù)庫的路徑和庫文件名（XS)后保存。

個(gè)收整勿做商業(yè)途3.3表結(jié)構(gòu)學(xué)生基本信息表:表3-2學(xué)生基本信息表用戶信息表：表3-1用戶信息表院系信息表：表3—3院系信息表班級信息表：表3—4班級信息表

個(gè)收整勿做商業(yè)途課程信息表：表3-5課程信息表年級課程設(shè)置表：表3—6年級課程設(shè)置表成績信息表表3-7成績信息表第四章

系統(tǒng)實(shí)現(xiàn)4.1面代設(shè)與現(xiàn)把登陸界面設(shè)置為啟動(dòng)項(xiàng)：選擇菜單“工程”——“工程屬性”打開“工1—工程屬性"選擇“啟動(dòng)對象在“啟動(dòng)對象”下拉菜單中選擇“Form1圖：

個(gè)收整勿做商業(yè)途圖4-1設(shè)置啟動(dòng)項(xiàng)1．登錄界面，運(yùn)行.exe文件進(jìn)入登錄界面.設(shè)置窗體的startposition屬性為centerscreen陸窗口在屏幕的中央顯示.圖4—2登陸界面“登錄”按鈕代碼：PrivateSubCommand2_Click()DimconnAsNewADODB。ConnectionDimrsAsNewADODB。RecordsetDimsqlAsStringconn.Open"Provider=Microsoft。JetSource=”＆App。Path&”\stu.mdb”

個(gè)收整勿做商業(yè)途sql=”Select＊from用戶信息表where”IfTrim(Text1。Text)=""Then’如果用戶名為空MsgBox"用戶名不能為空!"vbOKOnly+vbCritical,"錯(cuò)誤”Text1.SetFocusmiCount=miCount+1'加輸入次數(shù)ExitSubEndIfIfTrim(Text2.Text）=Then’如果密碼為空MsgBox”密碼不能為空！"，vbOKOnly+vbCritical，”錯(cuò)誤”Text2.SetFocusExitSubEndIfIfTrim(Combo1.Text）=”選擇類別"Then’如果密碼為空MsgBox"請選擇用戶類別！vbOKOnly+vbCritical，”錯(cuò)誤”Combo1.SetFocusExitSubEndIfsql=sql+”userName='”＆Text1.Text&”’”sql=sql+”ANDPwd='"&Text2＆”'”sql=sql+"ANDType=’"&Combo1。Text&”’"rs.Opensql,conn,1,1Ifrs.RecordCount=1Then’找到記錄PName=rs（"userName")PWord=rs("Pwd”）pType=rs（”Type"）UnloadMeform3。ShowquanxianElseMsgBox"用戶名或密碼不對vbOKOnly+vbInformation"錯(cuò)誤”UnloadMeEndIfrs.CloseSetrs=Nothingconn.CloseSetconn=Nothing

個(gè)收整勿做商業(yè)途miCount=miCount+1IfmiCount=3ThenMe.HideEndIfExitSubEndSub2。用戶注冊界面說明：用戶直接單擊“注冊”按鈕進(jìn)入用戶注冊界面。圖4—3用戶注冊界面用戶注冊代碼如下:PrivateSubCommand1_Click（）DimconnAsNewADODB.ConnectionDimrsAsNewADODB。RecordsetDimsqlAsStringconn.Open"Provider=Microsoft。0;Data”&App。Path＆"\stu。mdb”sql=”Select*from用戶信息表where”IfTrim(Text1.Text）=""Then'如果用戶名為空MsgBox"請輸入真實(shí)姓名",vbOKOnly+vbCritical”錯(cuò)誤"Text1。SetFocusExitSub

個(gè)收整勿做商業(yè)途EndIfIfTrim(Text2.Text）=""Then’如果密碼為空MsgBox"請輸入用戶名",vbOKOnly+vbCritical，”錯(cuò)誤"Text2.SetFocusExitSubEndIfIfText2.Text〈〉Text3.TextThenMsgBox”新密碼與確認(rèn)的密碼不相同",vbOKOnly+vbCritical,"錯(cuò)誤”Text3。SetFocusExitSubEndIfIfCombo1。Text=”選擇類別"ThenMsgBox”請選擇用戶類別vbOKOnly+vbCritical，"錯(cuò)誤"Combo1。SetFocusExitSubEndIfsql=sql+"pwd='"&Text1＆"'"rs.Opensql,conn,1,3Ifrs。RecordCount<〉0ThenMsgBox”用戶名已存在"+”重新輸入用戶名"vbOKOnly+vbInformation,”提示”Text2。SetFocusExitSubElsers。AddNewrs("userName”）=Text1.Textrs（”pwd")=Text2.Textrs("Type”)=Combo1.Textrs。UpdateMsgBox”用戶成功添加"，vbOKOnly+vbInformation,”提示"EndIfUnloadMers。CloseSetrs=Nothingconn.CloseSetconn=NothingEndSub

個(gè)收整勿做商業(yè)途PrivateSubCommand2_Click（)Form1.ShowEndSubPrivateSubCommand3_Click（）Text1.Text=""Text2。Text=""Text3.Text=""Combo1.Text=”"EndSubPrivateSubForm_Load(）CallleibieEndSubPrivateSubleibie（)Combo1。AddItem”學(xué)生”Combo1.AddItem”管理員”EndSub3。主菜單界面說明:用戶直接單擊“登陸”按鈕進(jìn)入主菜單界面.圖4-4主單4。添加院系界面展示及代碼:

個(gè)收整勿做商業(yè)途如果用戶類型是學(xué)生加院系信息”菜單項(xiàng)呈灰色不可以狀態(tài)。圖4—5添加院系信息界面添加院系信息代碼如下：PrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringsql=”Select*from院系信息表where”IfTrim(Text1.Text)="”ThenMsgBox"請輸入院系名稱”vbOKOnly+vbCritical”錯(cuò)誤”Text1.SetFocusExitSubEndIfIfTrim(Text4。Text）=”"ThenMsgBox”請輸入院系負(fù)責(zé)人"，vbOKOnly+vbCritical,"錯(cuò)誤"Text4。SetFocusExitSubEndIfIfTrim(Text3.Text)=""ThenMsgBox"請輸入院系電話”vbOKOnly+vbCritical,"錯(cuò)誤"Text3.SetFocusExitSubEndIf

個(gè)收整勿做商業(yè)途sql=”Select*from院系信息表"conn.Open”Provider=Microsoft.Jet。OLEDB.4；Data＆App。Path&”\stu.mdb"rs。Opensql，conn，1，3rs.AddNewrs。Fields（”院系名稱")=Trim(Text1.Text)rs.Fields（"院系編號(hào)”)=Trim（Text2.Text)rs。Fields("院系電話=Trim(Text3。Text)rs。Fields("院系負(fù)責(zé)人=Trim(Text4.Text）rs。Fields（”院系專業(yè)")=Trim（Text5。Text)rs.UpdateText1.Text=”"Text2。Text=”"Text3.Text=”"Text4.Text=””Text5.Text=””Text1。SetFocusrs。Updaters。CloseSetrs=NothingEndSubPrivateSubCommand2_Click(）Text1.Text=””Text2。Text=""Text3。Text=""Text4.Text="”Text5。Text=”"EndSubPrivateSubCommand3_Click()UnloadMeEndSub5。修改院系界面展示及代碼：.

個(gè)收整勿做商業(yè)途如果用戶類型是學(xué)生改院系信息”菜單項(xiàng)呈灰色不可以狀態(tài)。圖4-6修改院系信息界面修改院系信息代碼如下:OptionExplicitDimconnAsNewADODB。ConnectionDimrsAsNewADODB。RecordsetDimcnAsNewADODB。Connection'定義書簽,用來記載當(dāng)前記錄位置DimmyBookmarkAsVariant’判斷是否修改記錄DimmccleanAsBooleanPrivateSubCommand1_Click()rs。MoveFirstCallviewDataEndSubPrivateSubCommand2_Click（）rs.MovePreviousIfrs。BOFThenrs。MoveLastEndIfCallviewData

個(gè)收整勿做商業(yè)途EndSubPrivateSubCommand3_Click（）rs.MoveNextIfrs。EOFThenrs.MoveFirstEndIfCallviewDataEndSubPrivateSubCommand4_Click（）rs。MoveLastCallviewDataEndSubPrivateSubCommand5_Click（）DimtstSQLAsStringDimMsgTextAsString’使移動(dòng)記錄按鈕失效Command1。Enabled=FalseCommand2.Enabled=FalseCommand3。Enabled=FalseCommand4.Enabled=False'記下當(dāng)前記錄位置'myBookmark=rs.myBookmarkEndSubPrivateSubCommand6_Click（）rs。Fields(”院系名稱")=Combo1.Textrs.Fields(”院系編號(hào)”)=Combo2。Textrs。Fields(”院系專業(yè)"）=Combo3。Textrs.Fields（”院系電話")=Text1.Textrs.Fields（”院系負(fù)責(zé)人”)=Text2.Textrs。UpdateCommand1。Enabled=TrueCommand2。Enabled=TrueCommand3。Enabled=True

個(gè)收整勿做商業(yè)途Command4.Enabled=TrueEndSubPrivateSubCommand7_Click()IfNotmccleanThenFrame3。Enabled=True'使移動(dòng)記錄按鈕失效Command1.Enabled=TrueCommand2.Enabled=TrueCommand3。Enabled=TrueCommand4.Enabled=True'回到開始記錄位置rs。Bookmark=myBookmarkCallviewDataElseMsgBox”什么都沒有修改!vbOKOnly+vbExclamation,”警告”EndIfCommand1。Enabled=TrueCommand2。Enabled=TrueCommand3.Enabled=TrueCommand4。Enabled=TrueEndSubPrivateSubCommand8_Click（）'記下當(dāng)前記錄位置myBookmark=rs.Bookmarkstr2$=是否刪除當(dāng)前記錄？，”刪除當(dāng)前記錄Ifstr2＄=vbOKThenrs.MoveNextIfrs.EOFThenrs。MoveFirstmyBookmark=rs.Bookmarkrs.MoveLastrs.Deleters。Bookmark=myBookmark'調(diào)用函數(shù)顯示數(shù)據(jù)CallviewDataElsemyBookmark=rs.Bookmarkrs。MovePreviousrs.Delete

個(gè)收整勿做商業(yè)途'回到原來位置rs.Bookmark=myBookmark’調(diào)用函數(shù)顯示數(shù)據(jù)CallviewDataEndIfElsers。Bookmark=myBookmarkCallviewDataEndIfEndSubPrivateSubForm_Load(）DimtxtSQLAsStringDimMsgTextAsStringtxtSQL=”select＊from院系信息表”Setrs=ExecuteSQL(txtSQL,MsgTextWhilers。EOF=FalseCombo1。AddItemrs.Fields（"院系名稱")Combo2。AddItemrs.Fields("院系編號(hào)”)Combo3。AddItemrs。Fields（”院系專業(yè)”)rs。MoveNextWendrs。ClosetxtSQL=”select＊from院系信息表"Setrs=ExecuteSQL(txtSQL，MsgText）Ifrs。EOF=FalseThenrs。MoveFirstCallviewDatamyBookmark=rs。BookmarkElseMsgBox”沒有記錄!",vbOKOnly+vbExclamation，”警告"ExitSubEndIfEndSubPrivateSubForm_Unload(CancelAsIntegerrs.CloseEndSubPublicSubviewData（)

個(gè)收整勿做商業(yè)途Combo1。Text=rs！院系名稱Combo2.Text=rs！院系編號(hào)Combo3。Text=rs!院系專業(yè)Text1。Text=rs!院系電話Text2。Text=rs!院系負(fù)責(zé)人EndSub6。查詢院系界面展示及代碼：圖4—7查詢院系信息界面查詢院系信息代碼如下：PrivateSubCommand1_Click（)DimtxtSQLAsStringDimMsgTextAsStringDimdd(3）AsBooleanDimmrcAsADODB。RecordsettxtSQL=”select＊from院系信息表where”IfCheck1.ValueThenIfTrim（Text1.Text)="”ThensMeg="院系名稱不能為空”MsgBoxsMeg，vbOKOnly+vbExclamation，"警告"Text1.SetFocusExitSubElsedd（0)=True

個(gè)收整勿做商業(yè)途Ifdd（1）ThentxtSQL=txtSQL＆院系名稱=&Text1＆"ElsetxtSQL=txtSQL&系名稱='”＆Text1TextEndIfEndIfEndIfIfCheck2。ValueThenIfTrim(Text2.Text)=””ThensMeg=”院系編號(hào)不能為空”MsgBoxsMeg,vbOKOnly+vbExclamation"警告"Text2。SetFocusExitSubElseIfNotIsNumeric（Trim(Text2ThenMsgBox"請輸入數(shù)字vbOKOnly+vbExclamation,”警告”ExitSubText2.SetFocusEndIfdd（1）=TruetxtSQLtxtSQL&”院系編號(hào)=”＆Trim(Text2.Text）’&EndIfEndIfIfNot（dd(0）Ordd（1)Ordd(2))ThenMsgBox”請?jiān)O(shè)置查詢方式vbOKOnlyvbExclamation，”警告"ExitSubEndIftxtSQL=txtSQL&"orderby院系名稱"Setmrc=ExecuteSQL（txtSQLMsgText)WithMSFlexGrid1。Rows=2.CellAlignment=1.TextMatrix（1,0)="編號(hào)”。TextMatrix（1,1）=”院系名稱"。TextMatrix（1,2）="院系負(fù)責(zé)人”.TextMatrix（1,3）=”院系編號(hào)"。TextMatrix(1,4)="院系專業(yè)".TextMatrix（1,5）=”院系電話"DoWhileNotmrc。EOF.Rows=。Rows+1

個(gè)收整勿做商業(yè)途.CellAlignment=4.TextMatrix（.Rows—1,0)=mrc.Fields（0）。TextMatrix（。Rows—1,1）=mrc。Fields(1)。TextMatrix(。Rows-1,2）=mrc。Fields(2).TextMatrix(。Rows—1,3)=mrc.Fields（3）.TextMatrix（.Rows-1，4）=mrc.Fields(4）.TextMatrix（。Rows—1，5）=mrc.Fields（5)mrc.MoveNextLoopEndWithmrc.CloseEndSubPrivateSubCommand2_Click（）UnloadMeEndSubPrivateSubForm_Load(）WithMSFlexGrid1.CellAlignment=4。TextMatrix(1，0)="編號(hào)".TextMatrix(1，1）=”院系名稱”。TextMatrix(1,2）=”院系負(fù)責(zé)人"。TextMatrix（1,3)="院系編號(hào)".TextMatrix(1，4)=”院系專業(yè)"。TextMatrix（1,5）=”院系電話”EndWithEndSub7.設(shè)置年級課程界面展示及代碼

：如果用戶類型是學(xué)生,“設(shè)置年級信息"菜單項(xiàng)呈灰色不可以狀態(tài)。

個(gè)收整勿做商業(yè)途圖4-8年級課程設(shè)置界面設(shè)置年級課程信息代碼如下：PrivateSubCombo1_Change（)DimmrcAsADODB。RecordsetDimtxtSQLAsStringDimMsgTextAsStringDimiAsInteger'清除列表框內(nèi)容List2.CleartxtSQL=select*form年級程設(shè)置表where名稱”＆Combo1.Text＆”'”Setmrc=ExecuteSQL(txtSQL,MsgText)EndSubPrivateSubCombo2_Change()DimmrcAsADODB。RecordsetDimtxtSQLAsStringDimMsgTextAsStringDimiAsInteger’清除列表框內(nèi)容List2.CleartxtSQL="select*form年級課程設(shè)置表where年級=Combo2。Text＆"Setmrc=ExecuteSQL（txtSQL,MsgText)EndSub

個(gè)收整勿做商業(yè)途PrivateSubCommand1_Click（)IfList1.ListIndex〈>-1ThenList2.AddItemList1.List(List1。ListIndex)EndIfEndSubPrivateSubCommand2_Click()IfList2.ListIndex〈>-1ThenList2。RemoveItemList2。ListIndexEndIfEndSubPrivateSubCommand3_Click(）DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsString’使各個(gè)控件有效List1.Enabled=TrueList2。Enabled=TrueCommand4.Enabled=True'查詢數(shù)據(jù)txtSQL="select＊form課程信息表"Setmrc=ExecuteSQL(txtSQL，MsgText)While(mrc。EOF=False)List1。AddItemmrc.Fields（1）mrc.MoveNextWendmrc。Closeflagset=TrueEndSubPrivateSubCommand4_Click（）DimiAsIntegerDimmrcAsADODB.RecordsetDimmrccAsADODB。RecordsetDimtxtSQLAsStringDimMsgTextAsStringDimmyBookmarkAsVariant

個(gè)收整勿做商業(yè)途IfNotTesttxt(Combo1。Text)ThenMsgBox”請先選擇院系名稱！",vbOKOnly+vbExclamation"警告”ExitSubEndIfIfNotTesttxt(Combo2.Text）ThenMsgBox"請先選擇年級！",vbOKOnly+vbExclamation，"警告"ExitSubEndIfIfNotTesttxt(List2.List（0))ThenMsgBox”請先選擇課程vbOKOnly+vbExclamation，"警告"ExitSubEndIfFori=1ToList2。ListCounttxtSQL=*from年級課程設(shè)置表where年級='"&（Combo2。Text）&'"&（Combo2。Text）＆"Setmrc=ExecuteSQL(txtSQL，MsgText）Ifmrc。EOF=TrueAndmrc。BOF=TrueThenmrc.AddNewmrc。Fields（”院系名稱”)=Trim(Combo1。Text)mrc。Fields（”年級”)=Trim（Combo2。Text）mrc.Fields(”課程名稱=Trim（List2。List（i—1）)mrc.UpdateEndIfmrc。CloseNextiCombo1。Text=””Combo2.Text="”EndSubPrivateSubCommand5_Click()UnloadMeEndSubPrivateSubForm_Load(）DimmrcAsADODB.RecordsetDimtxtSQLAsStringDimMsgTextAsStringtxtSQL=”select＊from班級信息表"

個(gè)收整勿做商業(yè)途Setmrc=ExecuteSQL（txtSQL,MsgText)Whilemrc.EOF=FalseCombo2。AddItemmrc。Fields（"年級”)mrc。MoveNextWendmrc。ClosetxtSQL=”select＊from院系信息表”Setmrc=ExecuteSQL(txtSQL,MsgTextWhilemrc。EOF=FalseCombo1.AddItemmrc.Fields（"院系名稱”)mrc.MoveNextWendmrc.ClosetxtSQL=”s