學(xué)生信息管理系統(tǒng)論文

學(xué)生信息管理系統(tǒng)論文目錄內(nèi)容摘要：關(guān)鍵詞：1、開發(fā)方法的選擇1．1相關(guān)技術(shù)與開發(fā)工具介紹1．1．1Windows下的VisualBasic

編程環(huán)境介紹1．1．2

系統(tǒng)常用的名詞1．1．3．開發(fā)工具VisualBasic的使用1．2

．怎樣開發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊1．2．1查詢模塊的設(shè)計(jì)分析1．2．2編程環(huán)境的選擇1．2．3關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)1．2．4ADO的引用1．3．使用Access2003

實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫1．3．1.

數(shù)據(jù)庫的概念1．3．2.

新建一個(gè)數(shù)據(jù)庫1．3．3.

修改已建的數(shù)據(jù)庫1．3．4.

實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系1．4

硬件開發(fā)環(huán)境2、可行性分析3、系統(tǒng)總體規(guī)劃3.1

系統(tǒng)功能3.2學(xué)生信息的設(shè)置與瀏覽4、系統(tǒng)詳細(xì)設(shè)計(jì)4.1

系統(tǒng)子模塊功能概括4.2

用戶界面的實(shí)現(xiàn)4.2.1登錄界面4.2.2

主界面4.2.3

系統(tǒng)管理界面4.2.4

學(xué)生學(xué)籍管理界面4.2.5

班級(jí)管理界面4.2.6

成績(jī)管理界面4.2.7

專業(yè)課程管理界面4.2.8

宿舍管理界面4.2.9

幫助界面4.3

數(shù)據(jù)庫的實(shí)現(xiàn)4.3.1

學(xué)生基本信息數(shù)據(jù)庫(xsXJ)4.3.2

班級(jí)數(shù)據(jù)庫(xsBJ)4.3.3

成績(jī)數(shù)據(jù)庫(xsScore)4.3.4

專業(yè)數(shù)據(jù)庫(xsZY)4.3.5

課程數(shù)據(jù)庫(xsKC)4.3.6

宿舍數(shù)據(jù)庫(xsSS)4.3.7

用戶數(shù)據(jù)庫(xsＵS)4.4

系統(tǒng)的特點(diǎn)4.5

目前存在的問題及改進(jìn)意見參考文獻(xiàn)5、謝辭內(nèi)容摘要：學(xué)生信息管理系統(tǒng)是典型的信息管理系統(tǒng)(MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前臺(tái)應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立數(shù)據(jù)的一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫；而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。

經(jīng)過分析,我們使用Microsoft公司的VisualBasic開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行系統(tǒng)。本文介紹了在VisualBasic6.0環(huán)境下采用“自上而下地總體規(guī)劃，自下而上地應(yīng)用開發(fā)”的策略開發(fā)一個(gè)管理信息系統(tǒng)的過程。通過分析某一學(xué)校學(xué)生管理的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理學(xué)生的方案。文章介紹了學(xué)生管理信息系統(tǒng)的系統(tǒng)分析部分，包括可行性分析、業(yè)務(wù)流程分析等；系統(tǒng)設(shè)計(jì)部分主要介紹了系統(tǒng)功能設(shè)計(jì)和數(shù)據(jù)庫設(shè)計(jì)及代碼設(shè)計(jì)；系統(tǒng)實(shí)現(xiàn)部分說明了幾個(gè)主要模塊的算法,本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用。關(guān)鍵詞：學(xué)生信息、管理、分析、設(shè)計(jì)、實(shí)現(xiàn)、ADO。1、開發(fā)方法的選擇本章主要介紹了在程序、系統(tǒng)開發(fā)過程中所用到的軟件和硬件環(huán)境，以及各類工具在windows2000環(huán)境下的安裝與調(diào)試。1．1相關(guān)技術(shù)與開發(fā)工具介紹本系統(tǒng)采用面向?qū)ο蟮能浖_發(fā)辦法，以Microsoft公司的可視開發(fā)環(huán)境VisualBasic6.0作為主要開發(fā)工具，使用MicrosoftOfficeAccess2003作為關(guān)系數(shù)據(jù)庫，并為VB編程語言中采用ADO數(shù)據(jù)庫編程模型，配合功能強(qiáng)大的SQL查詢語言實(shí)現(xiàn)建立關(guān)系數(shù)據(jù)庫，訪問數(shù)據(jù)庫，對(duì)數(shù)據(jù)庫的更新，較好地實(shí)現(xiàn)了預(yù)定的需求功能。1．1．1Windows下的VisualBasic編程環(huán)境介紹1、面對(duì)對(duì)象的編程面向?qū)ο蟮脑O(shè)計(jì)方法(OOP,ObjectedProgramming)從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實(shí)體。VisualBasic作為一種面向?qū)ο蟮木幊谭椒?，把程序和?shù)據(jù)封裝起來作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，由VisualBasic自動(dòng)生成對(duì)象的程序代碼并封裝起來。VisualBasic應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性、可擴(kuò)展性和強(qiáng)有力的功能。VisualBasic應(yīng)用由一系列對(duì)象組成，包括有函數(shù)、菜單、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。2、實(shí)現(xiàn)菜單選項(xiàng)菜單是程序最重要的特性之一，大多數(shù)程序都依賴一個(gè)定義良好的菜單使程序易于使用和維護(hù)，VisualBasic也提供了強(qiáng)大的創(chuàng)建菜單功能是程序更加標(biāo)準(zhǔn)。本系統(tǒng)使用VisualBasic的菜單編輯器建立菜單或者修改已經(jīng)存在的菜單，您也可以使用VisualBasic的ApplicationWizard來操作。3、實(shí)現(xiàn)工具欄CoolBar控件與Office2000中看到的CoolBar是類似的。CoolBar就是一個(gè)可以在窗體上浮動(dòng)的工具，同時(shí)也是其他ActiveX的容器。通過在CoolBar中遷入其他空間你也可以向用戶提供更好的靈活性和易用性。選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“MicrosoftWindowsCommonControls6.0”后工具相中增加改控件。本系統(tǒng)就用了Cool工具中的Statubar控件，在系統(tǒng)這一界面中，添加了狀態(tài)欄，在第一個(gè)欄中，在樣式這一欄中選擇了文本，在第二個(gè)欄中，選擇了系統(tǒng)日期，第三個(gè)欄中選擇了系統(tǒng)時(shí)間，這樣，任何時(shí)候操作本系統(tǒng)，都可以看到當(dāng)前的時(shí)間和日期。1．1．2系統(tǒng)常用的名詞

VisualBasic系統(tǒng)除了一般高級(jí)語言所具有的一些名詞術(shù)語外，還有幾個(gè)系統(tǒng)常用的名詞。其基本含義如下：1、視窗（Form）視窗是進(jìn)行人機(jī)交互的界面或接口，也叫窗體。VB系統(tǒng)的人機(jī)交互界面或接口，無論是在設(shè)計(jì)時(shí)或是在運(yùn)行時(shí)，都是Windows系統(tǒng)的標(biāo)準(zhǔn)視窗。2、對(duì)象(Object)對(duì)象是VB系統(tǒng)內(nèi)部提供給設(shè)計(jì)者可以直接使用的處理輸出的控制工具。本程序所應(yīng)用到的對(duì)象類型有標(biāo)簽框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，網(wǎng)格(DataGrid)，ADO控件(Adodb)等。當(dāng)把這些工具放置到用戶界面對(duì)應(yīng)的窗體上時(shí)，被稱為對(duì)象或控件。用戶可以通過設(shè)置對(duì)象的“屬性”和“方法”，便于對(duì)象適應(yīng)自己所設(shè)計(jì)應(yīng)用程序的輸入輸出內(nèi)容，對(duì)象的生成過程及結(jié)構(gòu)都被封裝起來。正確使用對(duì)象可以減少程序的開發(fā)時(shí)間，提高程序設(shè)計(jì)者的工作效率。3、屬性(Properties)屬性是VB系統(tǒng)提供的有關(guān)對(duì)象的參數(shù)或數(shù)據(jù)接口。用戶通過適當(dāng)?shù)卦O(shè)置或改變對(duì)象的屬性來確定對(duì)象的外觀及性能特征，從而有效地使用系統(tǒng)提供的對(duì)象。比如，對(duì)象的名稱、在屏幕上顯示的位置、大小、顏色、接收或容納的數(shù)據(jù)內(nèi)容及數(shù)據(jù)的表現(xiàn)格式等。4、事件(Events)事件是指用戶或操作者對(duì)計(jì)算機(jī)進(jìn)行的某一操作（如擊鍵、單擊或移動(dòng)鼠標(biāo)等）的行為或系統(tǒng)狀態(tài)發(fā)生的變化。VB系統(tǒng)常用事件來引導(dǎo)計(jì)算機(jī)執(zhí)行一段程序。程序所用的鍵盤事件有KeyPress（按鍵）事件，KeyDown事件和KeyUp事件；鼠標(biāo)事件有Click（單擊鼠標(biāo)）事件，DbDlicd（雙擊鼠標(biāo)）。5、方法(Method)方法主要是指對(duì)一個(gè)對(duì)象使用某種作用的過程。它是在程序執(zhí)行的過程中要計(jì)算機(jī)執(zhí)行的某種操作。其程序的方法有Show（顯示）方法，Hide（隱藏）方法，Refresh（刷新）方法。6、過程(Procedure)過程是指經(jīng)過定義或說明的，或基于某一對(duì)象對(duì)應(yīng)的事件所引發(fā)的程序段。7、模塊(Module)模塊是指一些運(yùn)算量或過程進(jìn)行聲明或定義的一個(gè)集合。系統(tǒng)程序大體可分成四個(gè)模塊：數(shù)據(jù)輸入、數(shù)據(jù)查詢、數(shù)據(jù)更新和數(shù)據(jù)打印。1．1．3．開發(fā)工具VisualBasic的使用使用VisualBasic的菜單編輯器即可建立菜單或者修改已經(jīng)存在的菜單。由于大家對(duì)菜單等的使用已駕輕就熟，現(xiàn)著重對(duì)主要控件的使用作個(gè)介紹：首先，選擇“工程”下拉菜單中的“部件”選項(xiàng)，顯示“部件”對(duì)話框。在“控件”選項(xiàng)卡列表中選擇“MicrosoftWindowsCommonControls6.0”，然后，在工具箱中增加該控件，即可實(shí)現(xiàn)控件的添加。1．2．怎樣開發(fā)一個(gè)學(xué)生信息管理系統(tǒng)的查詢模塊1．2．1查詢模塊的設(shè)計(jì)分析根據(jù)實(shí)際情況，我們使用原型法(RapidPrototyping)即以少量代價(jià)快速地構(gòu)造一個(gè)可執(zhí)行的軟件模型。使用戶可以較快地確定需求，然后采用循環(huán)進(jìn)化的開發(fā)方式，對(duì)系統(tǒng)模型作連續(xù)的精化，將系統(tǒng)需具備的性質(zhì)逐漸增加上去，直到所有的性質(zhì)全部滿足。此時(shí)模塊也發(fā)展成為最終產(chǎn)品了。1．2．2編程環(huán)境的選擇微軟公司的VisualBasic6.0是Windows應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。VisualBasic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。故而，實(shí)現(xiàn)本系統(tǒng)VB是一個(gè)相對(duì)較好的選擇。1．2．3關(guān)系型數(shù)據(jù)庫的實(shí)現(xiàn)MicrosoftOfficeAccess2003就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。Access的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于Excel的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他用戶共享數(shù)據(jù)庫。Access是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包同時(shí)擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強(qiáng)大功能。1．2．4ADO的引用微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打交道的途徑，我們是通過它以及VisualBasic來訪問數(shù)據(jù)庫并對(duì)其進(jìn)行各種操作。VisualBasic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。ADO微軟公司的ADO(ActiveXDataObjects)是一個(gè)用于存取數(shù)據(jù)源的COM組件。它提供了編程語言和統(tǒng)一數(shù)據(jù)訪問方式OLEDB的一個(gè)中間層。允許開發(fā)人員編寫訪問數(shù)據(jù)的代碼而不用關(guān)心數(shù)據(jù)庫是如何實(shí)現(xiàn)的，而只用關(guān)心到數(shù)據(jù)庫的連接。訪問數(shù)據(jù)庫的時(shí)候，關(guān)于SQL的知識(shí)不是必要的，但是特定數(shù)據(jù)庫支持的SQL命令仍可以通過ADO中的命令對(duì)象來執(zhí)行。1．3．使用Access2003實(shí)現(xiàn)關(guān)系型數(shù)據(jù)庫1．3．1.數(shù)據(jù)庫的概念數(shù)據(jù)庫是一種存儲(chǔ)數(shù)據(jù)并對(duì)數(shù)據(jù)進(jìn)行操作的工具。數(shù)據(jù)庫的作用在于組織和表達(dá)信息。簡(jiǎn)而言之，數(shù)據(jù)庫就是信息的集合。計(jì)算機(jī)的數(shù)據(jù)庫可以分為兩類：非關(guān)系型數(shù)據(jù)庫（flat-file）和關(guān)系型數(shù)據(jù)庫（relational）。關(guān)系型數(shù)據(jù)庫中包含了多個(gè)數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個(gè)不同部分的術(shù)語，如記錄等。1．3．2.新建一個(gè)數(shù)據(jù)庫創(chuàng)建任何一個(gè)數(shù)據(jù)庫的第一步是仔細(xì)的規(guī)劃數(shù)據(jù)庫，設(shè)計(jì)必須是靈活的、有邏輯的。創(chuàng)建一個(gè)數(shù)據(jù)庫結(jié)構(gòu)的過程被認(rèn)為是數(shù)據(jù)模型設(shè)計(jì)。（1）標(biāo)識(shí)需要的數(shù)據(jù)；（2）收集被子標(biāo)識(shí)的字段到表中；（3）標(biāo)識(shí)主關(guān)鍵字字段；（4）規(guī)范數(shù)據(jù)；（5）標(biāo)識(shí)指定字段的信息；1．3．3.修改已建的數(shù)據(jù)庫數(shù)據(jù)庫的修改分為添加、編輯和刪除記錄。這三種操作均可由VisualBasic創(chuàng)建的程序來完成。1．3．4.實(shí)現(xiàn)數(shù)據(jù)庫之間的聯(lián)系數(shù)據(jù)庫之間的關(guān)系是指兩個(gè)庫之間共享一個(gè)共同的關(guān)鍵字值。一個(gè)鏈接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個(gè)不同的表中獲取信息時(shí)建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。在表中使用的關(guān)鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關(guān)系。1．4硬件開發(fā)環(huán)境所用的機(jī)器硬件配置是：奔騰3處理器，主頻400HZ;128M內(nèi)存，10G硬盤。2、可行性分析通過調(diào)查分析，建立新的學(xué)生信息管理信息系統(tǒng)有其充分的必要性和可能性?？梢越⒃撔畔⑾到y(tǒng)的可能性具體包含了它具有經(jīng)濟(jì)可行性、技術(shù)可行性和社會(huì)可行性，新系統(tǒng)能達(dá)到以最小的開發(fā)成本取得最佳的經(jīng)濟(jì)效益，開發(fā)中所需人員、硬軟件支持以及其它費(fèi)用進(jìn)行估算情況均滿意，技術(shù)條件也能保證順利完成開發(fā)工作。學(xué)生信息管理系統(tǒng)所采用的語言是VisualBasic，用MicrosoftOfficeAccess2003數(shù)據(jù)庫完成。該系統(tǒng)總體有三部分組成，包括學(xué)生信息管理、系統(tǒng)管理及幫助。通過本系統(tǒng)，把需要查詢學(xué)生信息的各個(gè)環(huán)節(jié)進(jìn)行有效地計(jì)劃、組織和控制。通過處理信息，依據(jù)統(tǒng)一數(shù)據(jù)信息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。本系統(tǒng)主要信息流程為：學(xué)生信息查詢根據(jù)教務(wù)信息維護(hù)的學(xué)生信息做出對(duì)所接收的信息合理性進(jìn)行判斷，并交于信息維護(hù)進(jìn)行相應(yīng)的修改，再把信息存入數(shù)據(jù)庫中，最后進(jìn)行打印。采用本系統(tǒng)，能夠使整個(gè)系統(tǒng)內(nèi)部所有信息的工作簡(jiǎn)化，提高工作效益。由于采用統(tǒng)一的數(shù)據(jù)信息，使相關(guān)資料能夠快速地查詢所需的數(shù)據(jù)、資料及其它的信息，使信息快速高效運(yùn)行。3、系統(tǒng)總體規(guī)劃3.1

系統(tǒng)功能本系統(tǒng)主要功能有：1.

學(xué)生基本信息的添加2.

學(xué)生基本信息的查詢3.

班級(jí)管理信息的查詢4.

學(xué)生課程信息的添加與修改5.

學(xué)生課程信息的查詢6.

學(xué)生成績(jī)信息的添加與修改7.

學(xué)生成績(jī)信息的查詢與瀏覽3.2學(xué)生信息的設(shè)置與瀏覽4、系統(tǒng)詳細(xì)設(shè)計(jì)4.1

系統(tǒng)子模塊功能概括該學(xué)生信息管理系統(tǒng)包括系統(tǒng)管理模塊、學(xué)生信息管理模塊。其中學(xué)生信息管理模塊又包括學(xué)生學(xué)籍管理模塊、班級(jí)管理模塊、成績(jī)管理模塊、專業(yè)課程管理模塊、宿舍管理模塊。本系統(tǒng)具有如下功能：系統(tǒng)管理：包括添加用戶，修改密碼，退出；學(xué)生學(xué)籍管理：包括信息添加，信息瀏覽，信息查詢；班級(jí)管理：包括班級(jí)瀏覽，添加班級(jí)，班級(jí)查詢；成績(jī)管理：包括成績(jī)添加，成績(jī)?yōu)g覽，成績(jī)查詢；專業(yè)課程管理：包括基本課程設(shè)置，班級(jí)課程設(shè)置；打印報(bào)表：包括學(xué)生學(xué)籍信息報(bào)表，學(xué)生成績(jī)信息報(bào)表；幫助：包括關(guān)于系統(tǒng)，幫助文件；退出：退出整個(gè)系統(tǒng)。4.2

用戶界面的實(shí)現(xiàn)4.2.1登錄界面首先，系統(tǒng)的界面是至關(guān)重要的。它是與用戶溝通的橋梁，用戶工作時(shí)要時(shí)時(shí)面對(duì)它，所以界面一定要簡(jiǎn)潔、直觀，操作簡(jiǎn)單。本系統(tǒng)界面的登錄口令根據(jù)選擇的相應(yīng)用戶和對(duì)應(yīng)的口令進(jìn)入系統(tǒng)，進(jìn)行相應(yīng)的操作。若密碼錯(cuò)誤，則彈出“輸入密碼不正確，請(qǐng)重新輸入！”對(duì)話框。4.2.2主界面密碼無誤，正確登錄后會(huì)看到主界面。4.2.3系統(tǒng)管理界面如果要添加新的用戶名，輸入用戶名和密碼（兩次一樣）輸入后，點(diǎn)擊確定就注冊(cè)成功了，從此你就擁有了自己的帳戶，此記錄已經(jīng)存入數(shù)據(jù)庫，以后直接輸入就可以登陸了！學(xué)生信息管理部分包括學(xué)生學(xué)籍管理、班級(jí)管理、課程管理、成績(jī)管理。而每一部分都包括對(duì)該部分信息的添加、瀏覽、查詢、修改、刪除。其實(shí)現(xiàn)過程是相似的。我們以學(xué)生學(xué)籍管理為例，介紹其實(shí)現(xiàn)過程。4.2.4學(xué)生學(xué)籍管理界面在學(xué)生信息管理的添加界面中，我們先通過變量傳遞得到輸入的學(xué)號(hào)，然后進(jìn)行判斷。首先程序先對(duì)輸入的學(xué)號(hào)進(jìn)行判斷，若已存在，則給出提示信息，若不存在，則顯示所要添加的內(nèi)容。輸入學(xué)生信息后，我們將信息加入到數(shù)據(jù)庫中，可以使用下面程序完成：PrivateSubcmdADD_Click()

IfTrim(txtUser0(0).Text=""OrtxtUser1(1).Text=""OrtxtUser2(2).Text="")Then

MsgBox"請(qǐng)輸入完整的信息！",vbOKOnly+vbQuestion,"提示"

txtUser0(0).SetFocusExitSubEndIfIfDataCombo4.Text=""OrDataCombo5.Text=""ThenMsgBox"請(qǐng)選擇學(xué)生專業(yè)和班級(jí)！",vbOKOnly+vbQuestion,"提示":ExitSubIfDataCombo1.Text=""ThenMsgBox"請(qǐng)選擇學(xué)生的政治面貌!",vbOKOnly+vbQuestion,"提示":txtMianmao.SetFocus:ExitSubIfNot(OptmOrOptw)ThenMsgBox"請(qǐng)選擇學(xué)生的性別！",vbOKOnly+vbQuestion,"提示":ExitSubinputxs_Info

EndSub另外，對(duì)于記錄查找,可以使用下面程序來完成：PrivateSubcmdXJfind_Click()

'查詢按鈕的代碼實(shí)現(xiàn)IfOpt1.ValueAndTrim(Text1.Text="")ThenMsgBox"請(qǐng)輸入學(xué)生學(xué)號(hào)！",vbOKOnly+vbInformation,"提示":Text1.SetFocus:ExitSubIfOpt2.ValueAndTrim(Text2.Text="")ThenMsgBox"請(qǐng)輸入學(xué)生姓名！",vbOKOnly+vbInformation,"提示":Text2.SetFocus:ExitSubIfCheck1.ValueAndDataCombo7.Text=""ThenMsgBox"請(qǐng)選擇班級(jí)！",vbOKOnly+vbInformation,"提示":DataCombo7.SetFocus:ExitSubIfOpt1.Value=FalseAndOpt2.Value=FalseAndCheck1.Value=FalseThenMsgBox"請(qǐng)選擇查詢條件！",vbOKOnly+vbInformation,"提示"xsXJfind_infoEndSubSubxsXJfind_info()DimtxtSQLAsStringIfOpt1.ValueThenIfCheck1.ValueThen

txtSQL="select*fromxsXJWhere學(xué)號(hào)='"&Trim(Text1.Text)&"'"&"and班級(jí)='"&Trim(DataCombo7.Text)&"'"ElsetxtSQL="select*fromxsXJWhere學(xué)號(hào)='"&Trim(Text1.Text)&"'"EndIfElseIfCheck1.ValueThen

'按姓名模糊查詢txtSQL="select*fromxsXJWhere姓名like'"&"%"&Trim(Text2.Text)&"%"&"'"&"and班級(jí)='"&Trim(DataCombo7.Text)&"'"ElsetxtSQL="select*fromxsXJWhere姓名like'"&"%"&Trim(Text2.Text)&"%"&"'"EndIfEndIf'Setrs=NewADODB.Recordsetrs.Closers.OpentxtSQL,conn,1,1Ifrs.EOF=FalseThenrs.MoveFirstSetDataGrid2.DataSource=rsDataGrid2.RefreshSetText8.DataSource=rsSetText9.DataSource=rsSetText10.DataSource=rsSetText11.DataSource=rsSetText12.DataSource=rsSetDataCombo8.DataSource=rsSetDataCombo9.DataSource=rsSetDataCombo10.DataSource=rsSetDataCombo11.DataSource=rsSetDataCombo12.DataSource=rsElseMsgBox"沒有找到符合條件的記錄！請(qǐng)重新輸入查詢條件！",vbOKOnly+vbInformation,"提示"EndIfEndSub對(duì)于記錄刪除，可以使用下面程序：PrivateSubCommand12_Click()

i=MsgBox("是否真的刪除該學(xué)生的學(xué)籍！",vbYesNo+vbInformation,"提示")OnErrorResumeNextIfi=vbYesThen

rsXJ.Delete

DoEvents

rsXJ.MoveFirst

DataGrid3.RefreshEndIfEndSub4.2.5班級(jí)管理界面班級(jí)管理模塊有添加班級(jí)信息、修改查詢班級(jí)信息、注銷班級(jí)三項(xiàng)功能，其中班級(jí)查詢修改界面中有按班級(jí)名稱和按輔導(dǎo)員查詢的功能。1.

添加班級(jí)添加班級(jí)中可添加班級(jí)名稱，選擇班級(jí)所屬院系、輔導(dǎo)員，班級(jí)上自習(xí)所在的教室和班級(jí)班級(jí)人數(shù)。其中，教室編號(hào)必須是唯一的且，以確保班級(jí)的唯一性。檢查輸入無誤后點(diǎn)擊添加按鈕，彈出對(duì)話框，按確定即可將數(shù)據(jù)添加到數(shù)據(jù)庫，網(wǎng)格中的指針指到新添加的數(shù)據(jù)處。2.班級(jí)查詢與班級(jí)修改點(diǎn)擊要查詢或輸入的單選按鈕進(jìn)行條件選擇，點(diǎn)擊“查詢”即可。要修改值接網(wǎng)格內(nèi)選擇，然后在文本框內(nèi)修改確認(rèn)。

3.注銷班級(jí)

點(diǎn)擊“上一條”或者“下一條”進(jìn)行選擇將要注銷的班級(jí)，然后點(diǎn)擊“注銷”命令按鈕即可。代碼如下：

PrivateSubCommand5_Click()'注銷班級(jí)i=MsgBox("是否確認(rèn)要?jiǎng)h除該班級(jí)信息！",vbYesNo+vbInformation,"提示")OnErrorResumeNext

Ifi=vbYesThen'如果選擇為是

rsBJ.Delete

rsBJ.Update

DataGrid3.Refresh

EndIf

EndSub班級(jí)模塊首先定義局部變量，其代碼如下：PrivateconnAsADODB.Connection

'定義通用變量PrivatersZYAsADODB.RecordsetPrivatersBJAsADODB.RecordsetPrivatersAsADODB.RecordsetPrivatersKCAsADODB.RecordsetPrivatersFDYAsADODB.RecordsetPrivatersYXAsADODB.Recordset輸入添加信息后，“添加”按鈕代碼如下：PrivateSubcmdADD_Click()IfTrim(Text1.Text="")OrTrim(DataCombo4.Text="")OrTrim(DataCombo1.Text="")OrTrim(Text4.Text="")ThenMsgBox"請(qǐng)輸入完整的班級(jí)信息！",vbOKOnly+vbQuestion,"提示":IfText1.Text=""ThenText1.SetFocusElseIfDataCombo1.Text=""ThenDataCombo1.SetFocusElseIfDataCombo4.Text=""ThenDataCombo4.SetFocusElseIfText4.Text=""ThenText4.SetFocus:ExitSubElseaddClassInfo'添加班級(jí)EndIfEndSubSubaddClassInfo()DimtxtSQLAsString

'定義查詢字符串變量txtSQL="select*fromxsBJwhere班級(jí)名稱='"&Trim(Text4.Text)&"'"

'在班級(jí)表中查找是否有與輸入相對(duì)應(yīng)的數(shù)據(jù)Setrs=NewADODB.Recordsetrs.CursorLocation=adUseClientrs.OpentxtSQL,conn,2,3'打開方式2為可讀寫,當(dāng)前數(shù)據(jù)記錄可自由移動(dòng)。3為樂觀鎖定，直到用Update方法提交更新記錄時(shí)才鎖定記錄Ifrs.EOF=FalseThen

MsgBox"名為："&Text4.Text&"

的班級(jí)已經(jīng)分配，請(qǐng)檢查后重新輸入！",vbOKOnly+vbInformation,"提示"

'不可輸入班級(jí)名稱重復(fù)的項(xiàng)

Text4.Text=""

Text4.SetFocusElse

Setrs=NewADODB.Recordset

'打開學(xué)生表

rs.CursorLocation=adUseClient

rs.Open"xsScore",conn,2,3rsBJ.AddNew

'添加新信息

rsBJ.Fields(0)=Trim(Text1.Text)

rsBJ.Fields(1)=Trim(DataCombo1.Text)

rsBJ.Fields(2)=Trim(DataCombo4.Text)

rsBJ.Fields(3)=Trim(Text4.Text)

rsBJ.Fields(4)=Trim(Text5.Text)

rsBJ.Update

'更新到數(shù)據(jù)庫

DataGrid1.Refresh

DataGrid2.Refresh

DataGrid3.Refresh

rsBJ.MoveLast

MsgBox"班級(jí)添加成功！",vbOKOnly+vbInformation,"提示"

Text1.Text="":DataCombo4.Text="":Text4.Text="":Text5.Text="":

Text1.SetFocusEndIfEndSub4.2.6成績(jī)管理界面成績(jī)管理界面打印學(xué)生成績(jī)。其中包括成績(jī)添加、成績(jī)查詢修改、成績(jī)打印和注銷學(xué)生成績(jī)功能。其中成績(jī)添加、成績(jī)修改查詢和注銷學(xué)生成績(jī)與上面所述的班級(jí)管理非常類似，這里不再重復(fù)。值得注意的是，在添加學(xué)生成績(jī)中?？梢蕴砑右粋€(gè)學(xué)生的多門課程成績(jī)，此時(shí)，學(xué)號(hào)可以重復(fù)輸入，其他情況下嚴(yán)禁輸入相同的的學(xué)號(hào)。成績(jī)模塊首先定義局部變量，其代碼如下：PrivateconnAsADODB.Connection'模塊公共鏈接PrivatersScoreAsADODB.Recordset'模塊共用記錄集PrivatersZYAsADODB.RecordsetPrivatersKCAsADODB.RecordsetPrivatersAsADODB.RecordsetPrivatersBJAsADODB.RecordsetPrivatersXJAsADODB.Recordset

在打印成績(jī)界面的“導(dǎo)出Excell”按鈕其代碼如下：PrivateSubCommand8_Click()

'導(dǎo)出Excellt=MsgBox("即將在D盤上導(dǎo)出Excel表！",vbYesNo+vbInformation,"提示")Ift=vbYesThenIfDir("D:\Excel",vbDirectory)=""Then

'判斷文件夾是否為空，若為空，則新建Excel文件夾MkDir("D:\Excel")EndIfIfDir("D:\Excel\Excel.xls")<>""Then

'判斷該文件是否存在，若存在，則刪除該文件Kill("D:\Excel\(Excel.xls")EndIfDimiAsIntegerDimjAsIntegerDimxlExcelAsNewExcel.Application

DimxlBookAsNewExcel.WorkbookDimxlSheetAsNewExcel.WorksheetSetxlBook=xlExcel.Workbooks.AddSetxlSheet=xlExcel.Worksheets.AddxlSheet.Cells.Columns(7).ColumnWidth=20'定義單元格寬度xlSheet.Cells(1,1)="學(xué)號(hào)"

'單元格賦值xlSheet.Cells(1,2)="姓名"xlSheet.Cells(1,3)="專業(yè)"xlSheet.Cells(1,4)="課程"xlSheet.Cells(1,5)="成績(jī)"xlSheet.Cells(1,6)="班級(jí)"xlSheet.Cells(1,7)="自動(dòng)編號(hào)"Fori=2Tors.RecordCount+1Forj=1Tors.Fields.CountxlSheet.Cells(i,j)=rs.Fields.Item(j-1).ValueNextjrs.MoveNextNextiMsgBox"導(dǎo)出成功！",vbOKOnly+vbInformation,"提示":ElseExitSubEndIfEndSub

4.2.7專業(yè)課程管理界面專業(yè)課程管理模塊中的專業(yè)設(shè)置界面主要包括專業(yè)添加,修改,專業(yè)刪除功能。其中專業(yè)添加、修改、查詢與上面所述的班級(jí)管理、學(xué)生學(xué)籍管理的添加、瀏覽、查詢非常類似.1.

專業(yè)設(shè)置此模塊主要功能是對(duì)學(xué)校新增的專業(yè)或已有的專業(yè)進(jìn)行修改,刪除.該模塊有三個(gè)命令按鈕,分別為:“添加”,“修改”,“刪除”,所有程序設(shè)計(jì)只圍繞著這三個(gè)命令按鈕.其“添加”事件的代碼主要完成對(duì)新添專業(yè)的添加.我們先通過變量傳遞得到輸入的專業(yè)編號(hào)，然后進(jìn)行判斷。若已存在，則給出提示信息，若不存在，則顯示所要添加的內(nèi)容。輸入學(xué)生信息后，我們將信息加入到數(shù)據(jù)庫中.其事件代碼如下:PrivateSubcmdZYadd_Click()

'添加IfTrim(txtZYname.Text)=""OrTrim(DataCombo1.Text)=""ThenMsgBox"請(qǐng)輸入完整信息!",vbOKOnly+vbQuestion,"提示":ExitSubDimtxtSQLAsStringtxtSQL="select*fromxsZYwhere專業(yè)名稱='"&Trim(txtZYname.Text)&"'"Setrs=NewADODB.Recordsetrs.CursorLocation=adUseClientrs.OpentxtSQL,conn,1,1IfNotrs.EOFThenMsgBox"數(shù)據(jù)庫中已經(jīng)存在該專業(yè),請(qǐng)修改!",vbOKOnly+vbQuestion,"提示"txtZYname.Text=""txtZYname.SetFocusElsersZY.AddNew'數(shù)據(jù)庫中如果沒有該記錄,則添加該記錄rsZY.Fields(0)=Trim(txtZYbh.Text)rsZY.Fields(1)=Trim(txtZYname.Text)rsZY.Fields(2)=Trim(DataCombo1.Text)rsZY.UpdateDataGrid1.RefreshMsgBox"信息添加成功!",vbOKOnly+vbInformation,"提示"txtZYname.Text="":DataCombo1.Text="":txtZYbh.Text=""EndIfEndSub其“修改”事件的代碼主要用來對(duì)新增的專業(yè)和已有的專業(yè)進(jìn)行修改.其事件代碼如下:PrivateSubcmdZYcha_Click()

'修改IftxtZYinfo.Text=""AndtxtZYyuaninfo.Text=""ThenMsgBox"對(duì)不起，表中記錄為空，請(qǐng)先增加記錄！",vbOKOnly+vbInformation,"提示信息"cmdZYcha.Enabled=FalseElseIfcmdZYcha.Caption="修改"Then

'開始修改記錄txtZYbhinfo.Locked=False

'恢復(fù)各控件的可用性txtZYyuaninfo.Locked=FalsetxtZYinfo.Locked=FalsecmdZYcha.Caption="確定"

'當(dāng)用戶單擊“新增”按鈕后，其caption的屬性改為確定，用來詢問用戶是否真的增加記錄OnErrorResumeNextanswer=MsgBox("是否修改該條記錄？",vbYesNo+vbInformation,"提示信息")Ifanswer=vbYesThenrsZY.Update

'更新新生入學(xué)信DataGrid1.RefreshrsZY.Fields(0)=Trim(txtZYbhinfo.Text)'修改數(shù)據(jù)記錄rsZY.Fields(1)=Trim(txtZYinfo.Text)rsZY.Fields(2)=Trim(txtZYyuaninfo.Text)txtZYbhinfo.Locked=False

'當(dāng)用戶開始增加記錄時(shí)，恢復(fù)各個(gè)按鈕的屬性txtZYinfo.Locked=FalsetxtZYyuaninfo.Locked=FalseElseMsgBox"您沒有修改本條記錄！",vbInformation,"修改信息提示"

'如果用戶沒有對(duì)本記錄做任何修改，系統(tǒng)將對(duì)用戶"進(jìn)行提示操作rsZY.CancelUpdatecmdZYcha.Caption="修改"EndIfElseMsgBox"真的要修改本記錄嗎？",vbInformation,"修改記錄提示"

'再次提示用戶是否真的修改該記錄cmdZYcha.Caption="修改"

'恢復(fù)“修改記錄”的caption的屬性EndIfExitSubEndIfEndSub其刪除事件的代碼主要完成對(duì)新增的專業(yè)和已有的專業(yè)進(jìn)行刪除.其事件代碼如下:PrivateSubcmdZYdel_Click()

'刪除OnErrorResumeNexti=MsgBox("確認(rèn)要?jiǎng)h除專業(yè)嗎?",vbYesNo+vbInformation,"提示")Ifi=vbYesThen

rsZY.Delete

rsZY.MoveFirstEndIfEndSub2.

課程設(shè)計(jì)此模塊的主要功能是對(duì)新增的課程完成輸入,對(duì)已有的課程進(jìn)行修改和刪除.該模塊有三個(gè)命令按鈕,分別為:“添加”,“修改”,“刪除”,該模塊需在完成的程序設(shè)計(jì)只有這三個(gè)命令按鈕.其添加事件的代碼主要完成對(duì)新增課程的添加,其事件代碼如下:PrivateSubCommand1_Click()

'添加IfTrim(Text2.Text)=""ThenMsgBox"請(qǐng)輸入完整的課程名稱!",vbOKOnly+vbInformation,"提示":ExitSub

DimtxtSQLAsString

txtSQL="select*fromxsKCwhere課程名稱='"&Trim(Text2.Text)&"'"

Setrs=NewADODB.Recordset

rs.CursorLocation=adUseClient

rs.OpentxtSQL,conn,1,1

IfNotrs.EOFThen

MsgBox"數(shù)據(jù)庫中已經(jīng)存在該課程!",vbOKOnly+vbInformation,"提示"

Text2.Text=""

Text2.SetFocus

Else

rsKC.AddNew

'添加新記錄并添加新數(shù)據(jù)

rsKC.Fields(0)=Trim(Text2.Text)

rsKC.Fields(1)=txtzyopt1.Text

rsKC.Update

DataGrid2.Refresh

MsgBox"課程已經(jīng)添加成功!",vbOKOnly+vbInformation,"提示"

Text2.Text=""

txtzyopt1.Text=""

Text2.SetFocus

EndIfEndSub其修改事件代碼主要完成對(duì)新增的課程和已有的課程進(jìn)行修改,其事件代碼如下:PrivateSubCommand3_Click()IfText4.Text=""AndtxtZYopt2.Text=""Then

MsgBox"對(duì)不起，表中記錄為空，請(qǐng)先增加記錄！",vbOKOnly+vbInformation,"提示信息"

cmdZYcha.Enabled=FalseElse

IfCommand3.Caption="修改"Then

'開始修改記錄

Text4.Locked=False

'恢復(fù)各控件的可用性

txtZYopt2.Locked=False

'txtZYinfo.Locked=False

Command3.Caption="確定"

'當(dāng)用戶單擊“新增”按鈕后，其caption的屬性改為確定，用來詢問用戶是否真的增加記錄

OnErrorResumeNext

answer=MsgBox("是否修改該條記錄？",vbYesNo+vbInformation,"提示信息")Ifanswer=vbYesThen

rsKC.Update

'更新新生入學(xué)信

DataGrid2.Refresh

rsKC.Fields(0)=Trim(Text4.Text)'修改數(shù)據(jù)記錄

rsKC.Fields(1)=Trim(txtZYopt2.Text)

'rsKC.Fields(2)=Trim(txtZYyuaninfo.Text)

Text4.Locked=False

'當(dāng)用戶開始增加記錄時(shí)，恢復(fù)各個(gè)按鈕的屬性

txtZYopt2.Locked=False

'txtZYyuaninfo.Locked=False

Else

MsgBox"您沒有修改本條記錄！",vbInformation,"修改信息提示"

'如果用戶沒有對(duì)本記錄做任何修改，系統(tǒng)將對(duì)用戶"進(jìn)行提示操作

rsKC.CancelUpdate

Command3.Caption="修改"

EndIfElse

MsgBox"真的要修改本記錄嗎？",vbInformation,"修改記錄提示"

'再次提示用戶是否真的修改該記錄

Command3.Caption="修改"

'恢復(fù)“修改記錄”的caption的屬性EndIfExitSubEndIfEndSub其刪除事件的代碼主要完成對(duì)新增的課程或已有的課程進(jìn)行刪除,其事件代碼如下:PrivateSubCommand2_Click()

'刪除OnErrorResumeNexti=MsgBox("是否刪除該課程!",vbYesNo+vbInformation,"提示")Ifi=vbYesThen

rsKC.Delete

rsKC.MoveFirstEndIfEndSub2.查詢與修改模塊的主要功能是對(duì)已存在的專業(yè)或課程進(jìn)行修改.該模塊有四個(gè)命令按鈕,分別為”查詢”,”全部”,”修改”,”修改”,該模塊所有功能都圍繞著這四個(gè)命令按鈕.

其中“查詢”事件代碼主要用來顯示數(shù)據(jù)庫中已存在且符合一定條件的專業(yè)和課程,其事件代碼如下:PrivateSubCommand5_Click()

'查詢IfOpt1.ValueAndTrim(txtFindZY.Text)=""ThenMsgBox"請(qǐng)輸入專業(yè)名稱！",vbOKOnly+vbInformation,"提示":ExitSubIfOpt2.ValueAndTrim(txtFindKC.Text)=""ThenMsgBox"請(qǐng)輸入課程名稱！",vbOKOnly+vbInformation,"提示":ExitSubIfOpt2.Value=FalseAndOpt1.Value=FalseThenMsgBox"請(qǐng)選擇查詢條件！",vbOKOnly+vbInformation,"提示":ExitSubDimtxtSQLAsStringIfOpt1.ValueThen

'按專業(yè)查詢

txtSQL="select*fromxsZYwhere專業(yè)名稱='"&Trim(txtFindZY.Text)&"'"

Setrs=NewADODB.Recordset

rs.CursorLocation=adUseClient

rs.OpentxtSQL,conn,1,1

Ifrs.EOFThen

MsgBox"找不到合適的記錄!",vbOKOnly+vbInformation,"提示"

txtFindZY.Text="":txtFindZY.SetFocus

Else

SetDataGrid3.DataSource=rs

DataGrid3.Refresh

SetText7.DataSource=rs

SetText1.DataSource=rs

SetText3.DataSource=rs

EndIfEndIfIfOpt2.ValueThen'按課程名稱查詢

txtSQL="select*fromxsKCwhere課程名稱='"&Trim(txtFindKC.Text)&"'"

Setrs=NewADODB.Recordset

rs.CursorLocation=adUseClient

rs.OpentxtSQL,conn,1,1

Ifrs.EOFThen

MsgBox"找不到符合條件的記錄!",vbOKOnly+vbQuestion,"提示"

txtFindKC.Text="":txtFindKC.SetFocus

Else

SetDataGrid4.DataSource=rs

DataGrid4.Refresh

SetText5.DataSource=rs

SetText6.DataSource=rs

EndIfEndIfEndSub

其中“全部”按鈕的事件代碼主要用來顯示數(shù)據(jù)庫中存在的全部專業(yè)或課程其事件代碼如下：PrivateSubCommand8_Click()

'顯示全部IfOpt1.ValueAndTrim(txtFindZY.Text)<>""Then

SetDataGrid3.DataSource=rsZY

DataGrid3.RefreshElse

IfOpt2.ValueAndTrim(txtFindKC.Text)<>""Then

SetDataGrid4.DataSource=rsKC

DataGrid4.Refresh

EndIfEndIfEndSub

4.2.8宿舍管理界面宿舍管理模塊的主要功能是：新生報(bào)到注冊(cè)后就要為新生分配宿舍，當(dāng)學(xué)生畢業(yè)后就需要把學(xué)生所在的宿舍進(jìn)行注銷，以方便給新生分部宿舍，包括宿舍添加、查詢修改和注銷宿舍功能。其中宿舍添加、查詢修改、注銷與上面所述的班級(jí)管理、學(xué)生學(xué)籍管理的添加、瀏覽、查詢非常類似，這里不再重復(fù)。1．添加宿命模塊主要功能是新生報(bào)到后為新生分配宿舍，事件代碼如下：

PrivateSubcmdSSadd_Click()IfTrim(Text1.Text)=""OrTrim(DataCombo1.Text)=""Then

MsgBox"請(qǐng)輸入完整信息！",vbOKOnly+vbQuestion,"提示":ExitSubElse

DimtxtSQLAsString

txtSQL="select*fromxsSSwhere房間號(hào)='"&Trim(Text1.Text)&"'"

Setrs=NewADODB.Recordset

rs.CursorLocation=adUseClient

rs.OpentxtSQL,conn,1,1

IfNotrs.EOFThen

MsgBox"數(shù)據(jù)庫中已經(jīng)存在該信息,請(qǐng)修改！",vbOKOnly+vbQuestion,"提示"

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

DataCombo1.Text=""

Text1.SetFocus

Else

rsSS.AddNew

'數(shù)據(jù)庫中如果沒有該記錄,則添加該記錄

rsSS.Fields(0)=Text1.Text

rsSS.Fields(1)=DataCombo1.Text

rsSS.Fields(2)=Text2.Text

rsSS.Fields(3)=Text3.Text

rsSS.Fields(4)=Text4.Text

rsSS.Update

DataGrid1.Refresh

DataGrid2.Refresh

DataGrid3.Refresh

MsgBox"信息添加成功！",vbOKOnly+vbInformation,"提示"

Text1.Text=""

Text2.Text=""

Text3.Text=""

Text4.Text=""

DataCombo1.Text=""

EndIfEndIfEndSub2．查詢修改模塊主要用來完成對(duì)已存在的宿舍信息進(jìn)行查詢和修改，包括三個(gè)命令按鈕分別為“查詢”，“全部”，“修改”。

其中“查詢”按鈕事件代碼主要用來完成顯示數(shù)據(jù)庫中已存在的符合一定條件的記錄，事件代碼如下："查詢"按鈕是在宿舍名稱或?qū)嬍议L(zhǎng)進(jìn)行查詢選擇后,開始查詢,代碼如下:PrivateSubcmdSSfind_Click()IfOption1.ValueAndtxtFindSs.Text=""ThenMsgBox"請(qǐng)選輸入房間號(hào)！",vbOKOnly+vbInformation,"提示":ExitSubIfOption2.ValueAndDataCombo2.Text=""ThenMsgBox"請(qǐng)選擇寢室長(zhǎng)！",vbOKOnly+vbInformation,"提示":ExitSubIfOption2.Value=FalseAndOption1.Value=FalseThenMsgBox"請(qǐng)選擇查詢條件！",vbOKOnly+vbInformation,"提示":ExitSubDimtxtSQLAsStringIfOption1.ValueThen

txtSQL="select*fromxsSSwhere房間號(hào)='"&txtFindSs.Text&"'"Else

txtSQL="select*fromxsSSwhere

寢室長(zhǎng)='"&DataCombo2.Text&"'"EndIf

Setrs=NewADODB.Recordset

rs.CursorLocation=adUseClient

rs.OpentxtSQL,conn,1,1

SetDataGrid2.DataSource=rs

DataGrid2.Refresh

Fori=0To4

SetText(i).DataSource=rsNextEndSub

其中“全部”按鈕事件代碼主要用來顯示數(shù)據(jù)庫中全部的宿舍信息，事件代碼如下：PrivateSubCommand2_Click()

'顯示全部SetDataGrid2.DataSource=rsSSDataGrid2.RefreshFori=0To4

SetText(i).DataSource=rsSSNextEndSub

其中“修改”命令按鈕事件代碼主要用來對(duì)查詢出來的或已存在的宿舍信息進(jìn)行修改，其事件代碼如下：PrivateSubcmdcha_Click()

'修改If(Text(0).Text=""AndText(1)="")Then

MsgBox"對(duì)不起，表中記錄為空，請(qǐng)先增加記錄！",vbOKOnly+vbInformation,"提示信息":cmdcha.Enabled=FalseElse

Ifcmdcha.Caption="修改"Then

'開始修改記錄

Text(0).Locked=False

'恢復(fù)各控件的可用性

Text(1).Locked=False

Text(2).Locked=False

Text(3).Locked=False

Text(4).Locked=False

Command2.Enabled=True

cmdSSfind.Enabled=True

cmdcha.Caption="確定"

'當(dāng)用戶單擊“新增”按鈕后，其caption的屬性改為確定，用來詢問用戶是否真的增加記錄

OnErrorResumeNext

answer=M