學(xué)生管理系統(tǒng)課程設(shè)計(jì)

1、<p><b>　　摘 要</b></p><p>　　隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。</p><p>　　本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫技術(shù)支持下

2、完成的。本文在結(jié)構(gòu)上首先論述了實(shí)訓(xùn)課程設(shè)計(jì)的目的和意義，然后敘述了開發(fā)環(huán)境、開發(fā)平臺(tái)以及數(shù)據(jù)庫技術(shù)，接著用圖片、說明和代碼的方式介紹了系統(tǒng)的整體規(guī)劃，接下來是系統(tǒng)在具體實(shí)現(xiàn)中的詳細(xì)內(nèi)容，最終本系統(tǒng)能夠完成信息的添加、修改、刪除、查詢等功能，本系統(tǒng)界面友好，操作簡單，比較實(shí)用，思路縝密嚴(yán)謹(jǐn)，管理起來方便快捷，能有效的達(dá)到學(xué)生信息的管理的目的。</p><p>　　關(guān)鍵詞：VB,SQL server2000,SQL

3、server2005,學(xué)生管理系統(tǒng)，操作權(quán)限，界面設(shè)計(jì)。</p><p><b>　　——目錄——</b></p><p>　　第一章 緒 論- 1 -</p><p>　　1.1引 言- 1 -</p><p>　　1.2設(shè)計(jì)目的及意義- 1 -</p><p>　　第二章 開發(fā)環(huán)境和工具

4、- 2 -</p><p>　　2.1 Visual Basic簡介- 2 -</p><p>　　2.1.1 Visual Basic語言特性- 2 -</p><p>　　2.2 SQL server 2005簡介- 3 -</p><p>　　3.1系統(tǒng)及需求分析- 3 -</p><p>　　3.1.

5、1系統(tǒng)需求- 3 -</p><p>　　3.1.2需求分析- 4 -</p><p>　　3.2 可行性分析- 4 -</p><p>　　3.2.1經(jīng)濟(jì)可行性分析- 4 -</p><p>　　3.2.2技術(shù)可行性分析- 4 -</p><p>　　第四章 數(shù)據(jù)庫的設(shè)計(jì)- 5 -</p>

6、<p>　　4.1數(shù)據(jù)庫設(shè)計(jì)- 5 -</p><p>　　4.1.1各表的物理結(jié)構(gòu)- 5 -</p><p>　　4.1.2數(shù)據(jù)源如果添加數(shù)據(jù)庫- 6 -</p><p>　　第五章 VB程序界面設(shè)計(jì)- 7 -</p><p>　　5.1登錄界面- 7 -</p><p>　　第六章 VB程序與數(shù)

7、據(jù)庫連接及代碼- 9 -</p><p>　　6.1登陸判斷代碼- 9 -</p><p>　　6.2 學(xué)生管理代碼10</p><p>　　6.3 教師代碼12</p><p>　　6.4 管理員代碼16</p><p>　　6.5系統(tǒng)功能流程圖19</p><p><b&g

8、t;　　第七章 總結(jié)20</b></p><p>　　第八章 參考文獻(xiàn)20</p><p>　　第九章 指導(dǎo)教師評(píng)語21</p><p><b>　　第一章 緒 論</b></p><p><b>　　1.1引 言</b></p><p>　　人類有幾千年的

9、歷史，計(jì)算機(jī)從產(chǎn)生到現(xiàn)在只不過50多年，而網(wǎng)絡(luò)的迅速發(fā)展也不過10年的時(shí)間。但是，計(jì)算機(jī)和網(wǎng)絡(luò)對(duì)社會(huì)的影響已經(jīng)迅速擴(kuò)大，甚至在改變?nèi)藗兊纳?。特別是90年代以來，多媒體和網(wǎng)絡(luò)技術(shù)的飛速發(fā)展正在以驚人的速度改變著人們的工作方式、交往方式和生活方式。正像著名的未來學(xué)家尼葛洛龐帝（1997）所說的：“數(shù)字不再只和計(jì)算有關(guān)，它決定我們的生存?！笨茖W(xué)技術(shù)是第一生產(chǎn)力，是最先進(jìn)的生產(chǎn)力?，F(xiàn)在,已經(jīng)沒有人懷疑信息技術(shù)的發(fā)展將會(huì)引起人類社會(huì)全面和深刻的

10、變革，使人類社會(huì)由工業(yè)社會(huì)邁向信息社會(huì)。目前，在社會(huì)各個(gè)方面都呈現(xiàn)出了與工業(yè)社會(huì)顯著不同的特點(diǎn)。網(wǎng)上書店，網(wǎng)上醫(yī)院，網(wǎng)上學(xué)校，網(wǎng)上購物，網(wǎng)上銀行，政府上網(wǎng)等新事物如雨后春筍般涌現(xiàn)出來，對(duì)人們的傳統(tǒng)生活方式、工作方式產(chǎn)生極大的沖擊。使人們感受到技術(shù)發(fā)展的脈搏和信息時(shí)代前進(jìn)的步伐。</p><p>　　隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對(duì)龐大的信息量需要有學(xué)生管理系統(tǒng)來提高學(xué)

11、生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。</p><p>　　1.2設(shè)計(jì)目的及意義</p><p>　　本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化，其主要任務(wù)是用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行日常管理，如查詢、修改 、增加、刪除，另外還考慮到用戶登錄的權(quán)限，針對(duì)學(xué)生信息和權(quán)限登錄

12、的學(xué)生成績管理系統(tǒng)。</p><p>　　本系統(tǒng)主要包括注冊管理、界面管理、學(xué)生信息查詢、添加、修改、刪除和幫助等部分。其功能主要有：</p><p>　　學(xué)生信息的添加，包括輸入學(xué)生基本信息和成績</p><p>　　學(xué)生信息的查詢，包括查詢學(xué)生基本信息和成績。</p><p>　　學(xué)生信息的修改，包括修改學(xué)生基本信息和成績。</p&

13、gt;<p>　　學(xué)生信息的刪除，包括修改學(xué)生基本信息和成績。</p><p>　　登錄用戶密碼修改，用戶登錄到系統(tǒng)可進(jìn)行相應(yīng)的用戶密碼修改。</p><p>　　管理員用戶對(duì)其它用戶名的管理，包括添加新用戶、修改用戶密碼、刪除用戶名和查詢用戶和修改相關(guān)信息。</p><p>　　學(xué)生成績管理系統(tǒng)是典型的信息管理系統(tǒng)，其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維

14、護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。</p><p>　　經(jīng)過分析，我們使用MICROSOFT公司的Visual Basic2005開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對(duì)象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對(duì)初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)

15、，直到形成用戶滿意的可行系統(tǒng)。</p><p>　　第二章 開發(fā)環(huán)境和工具</p><p>　　2.1 Visual Basic簡介</p><p>　　Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動(dòng)編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程

16、語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。</p><p>　　2.1.1 Visual Basic語言特性</p><p>　　一個(gè)典型的VB進(jìn)程VB的中心思想就是要便于程序員使用，無論是新手或者專家。VB使用了可以簡單建立

17、應(yīng)用程序的GUI系統(tǒng)，但是又可以開發(fā)相當(dāng)復(fù)雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組建的屬性和方法。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少代碼就可以完成一個(gè)簡單的程序。過去的版本里面VB程序的性能問題一直被放在了桌面上，但是隨著計(jì)算機(jī)速度的飛速增加，關(guān)于性能的爭論已經(jīng)越來越少。</p><p>　　窗體控件的增加和改變可以用拖放技術(shù)實(shí)現(xiàn)。一個(gè)排列滿

18、控件的工具箱用來顯示可用控件（比如文本框或者按鈕)。每個(gè)控件都有自己的屬性和事件。默認(rèn)的屬性值會(huì)在控件創(chuàng)建的時(shí)候提供，但是程序員也可以進(jìn)行更改。很多的屬性值可以在運(yùn)行時(shí)候隨著用戶的動(dòng)作和修改進(jìn)行改動(dòng)，這樣就形成了一個(gè)動(dòng)態(tài)的程序。舉個(gè)例子來說：窗體的大小改變事件中加入了可以改變控件位置的代碼，在運(yùn)行時(shí)候每當(dāng)用戶更改窗口大小，控件也會(huì)隨之改變位置。在文本框中的文字改變事件中加入相應(yīng)的代碼，程序就能夠在文字輸入的時(shí)候自動(dòng)翻譯或者阻止某些字符的

19、輸入。</p><p>　　VB的程序可以包含一個(gè)或多個(gè)窗體，或者是一個(gè)主窗體和多個(gè)子窗體，類似于操作系統(tǒng)的樣子。有很少功能的對(duì)話框窗口（比如沒有最大化和最小化按鈕的窗體）可以用來提供彈出功能。</p><p>　　VB的組件既可以擁有用戶界面，也可以沒有。這樣一來服務(wù)器端程序就可以處理增加的模塊。</p><p>　　VB使用參數(shù)計(jì)算的方法來進(jìn)行垃圾收集，這個(gè)方法

20、中包含有大量的對(duì)象，提供基本的面向?qū)ο笾С帧Ｒ驗(yàn)樵絹碓蕉嘟M建的出現(xiàn)，程序員可以選用自己需要的擴(kuò)展庫。和有些語言不一樣，VB對(duì)大小寫不敏感，但是能自動(dòng)轉(zhuǎn)換關(guān)鍵詞到標(biāo)準(zhǔn)的大小寫狀態(tài)，以及強(qiáng)制使得符號(hào)表入口的實(shí)體的變量名稱遵循書寫規(guī)則。默認(rèn)情況下字符串的比較是對(duì)大小寫敏感的，但是可以關(guān)閉這個(gè)功能。</p><p>　　VB使得大量的外界控件有了自己的生存空間。大量的第三方控件針對(duì)VB提供。VB也提供了建立、使用和重用這

21、些控件的方法，但是由于語言問題，從一個(gè)應(yīng)用程序創(chuàng)建另外一個(gè)并不簡單。</p><p>　　2.2 SQL server 2005簡介</p><p>　　SQL Server 2005是微軟公司比較穩(wěn)定的大型數(shù)據(jù)庫服務(wù)器，其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢。用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫構(gòu)架，與Windows NT/2000平臺(tái)緊密集成，具有

22、完全的Web功能。通過對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在Internet商業(yè)領(lǐng)域快速建立并應(yīng)用。此外，還增強(qiáng)了安全性，保護(hù)防火墻內(nèi)外的數(shù)據(jù)。支持基于角色的安全并擁有安全審計(jì)工具。在經(jīng)歷了SQL Server 6.5和7.0兩個(gè)版本的嘗試后，微軟公司終于開始了大規(guī)模的業(yè)務(wù)。記得在以前各種關(guān)于SQL Server的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺被大家自然的延續(xù)到

23、了2000版之中。其實(shí)這是一種誤解。在過去的很長一段時(shí)間中，微軟公司聘請(qǐng)了世界上最優(yōu)秀的數(shù)據(jù)庫專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵(lì)精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持，再配合其一向?yàn)槿朔Q道的易用性，SQL Server可以說成為了開發(fā)者手中的一柄利器！</p><p>　　另外，目前國內(nèi)的一些關(guān)于微軟平臺(tái)的數(shù)據(jù)庫編程教程，喜歡使用Access作為數(shù)據(jù)庫平臺(tái)的案例，并展

24、開相關(guān)的內(nèi)容。這其實(shí)對(duì)于開發(fā)真正的數(shù)據(jù)庫應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。SQL Server 2005提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQL Server 2005可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。（因?yàn)槲矣玫氖?5的。但是學(xué)校機(jī)房的是2000的。所以后面用2000的數(shù)據(jù)庫）</p><p>　　3.1系統(tǒng)及需求分

25、析</p><p><b>　　3.1.1系統(tǒng)需求</b></p><p>　　通過調(diào)查,要求系統(tǒng)需要有以下功能:</p><p>　　要求有良好的人機(jī)交互界面;</p><p>　　由于該系統(tǒng)使用對(duì)象多,要求有較好的權(quán)限管理;</p><p>　　原始數(shù)據(jù)修改簡單方便,支持多條件修改</p

26、><p>　　方便的數(shù)據(jù)查詢，支持多條件查詢;</p><p>　　在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便，數(shù)據(jù)穩(wěn)定性好；</p><p>　　數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。</p><p><b>　　3.1.2需求分析</b></p><p>　　目前計(jì)算機(jī)管理在日常生活中的地位變得越來越重要。它能夠

27、代替人做各種重復(fù)、繁瑣的勞動(dòng)，并且擁有操作簡單、可信度好、不易出錯(cuò)等優(yōu)點(diǎn)，大大減少了不必要的人力消耗，提高個(gè)人的工作效率。學(xué)生信息查詢是每個(gè)學(xué)校必須面臨的問題，所以，如何開發(fā)一個(gè)應(yīng)用簡單、界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問題。</p><p>　　學(xué)生成績管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，是在班級(jí)學(xué)生處數(shù)據(jù)庫基礎(chǔ)上，只對(duì)學(xué)生成績信息進(jìn)行管理的一個(gè)系統(tǒng)，是對(duì)學(xué)校教務(wù)管理系統(tǒng)的補(bǔ)充，主要是針對(duì)輔導(dǎo)員

28、的需要，主要包括三個(gè)用戶群：普通用戶、高級(jí)用戶、超級(jí)用戶。</p><p>　　普通用戶，主要的需求有學(xué)生成績查詢、學(xué)生基本信息查詢、普通用戶密碼修改。</p><p>　　高級(jí)用戶，主要的需求有學(xué)生成績管理、學(xué)生信息管理、普通用戶和高級(jí)用戶密碼修改。</p><p>　　超級(jí)用戶，主要的需求有學(xué)生成績管理、學(xué)生信息管理、登錄用戶名管理。</p>&l

29、t;p><b>　　3.2 可行性分析</b></p><p>　　由于本系統(tǒng)管理的對(duì)象單一,且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫管理。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。</p><p>　　3.2.1經(jīng)濟(jì)可行性分析</p>

30、<p>　　隨著科學(xué)技術(shù)的不斷發(fā)展與創(chuàng)新，計(jì)算機(jī)作用的日益突顯，計(jì)算機(jī)軟件成為人們解決問題的一個(gè)有效手段，當(dāng)然，它的作用也越來越重要。在當(dāng)今信息時(shí)代，國民經(jīng)濟(jì)和國防建設(shè)、社會(huì)發(fā)展、人民生活都離不開軟件，軟件也無處不在。</p><p>　　軟件產(chǎn)業(yè)也是一個(gè)新興產(chǎn)業(yè)，盡管起步晚，但是發(fā)展迅速，已經(jīng)成為增長最快的產(chǎn)業(yè)，是具有高投入/高產(chǎn)出、無污染、低能耗的綠色產(chǎn)業(yè)。學(xué)生成績管理系統(tǒng)是一個(gè)基于教務(wù)處數(shù)據(jù)庫的

31、一個(gè)管理系統(tǒng)，對(duì)已經(jīng)使用的類似的系統(tǒng)進(jìn)調(diào)查分析、類比，本課題具有的特點(diǎn)：開發(fā)工作量小，可以有兩個(gè)人合作開發(fā)或一個(gè)人獨(dú)立開發(fā)，開發(fā)周期短，有熟練的開發(fā)人員一個(gè)月就可以完成系統(tǒng)的開發(fā)與測試。</p><p>　　3.2.2技術(shù)可行性分析</p><p>　　從技術(shù)方面來說，Visual Basic2000是一個(gè)企業(yè)級(jí)的、面向?qū)ο蟮目焖賾?yīng)用開發(fā)工具，是數(shù)據(jù)庫最優(yōu)秀的開發(fā)工具之一。Visual B

32、asic2005完全支持面向?qū)ο蟮拈_發(fā)，它擁有多種數(shù)據(jù)庫接口，可以非常方便地連接的各種數(shù)據(jù)源，再加之其專利產(chǎn)品Data Window（數(shù)據(jù)窗口），通過SQL語句即可輕松地查詢和更新后臺(tái)數(shù)據(jù)庫中的數(shù)據(jù)。</p><p>　　Visual Basic2005基于組件的開發(fā)增強(qiáng)了面向?qū)ο蟮募夹g(shù)，他提供一個(gè)更有效的封裝、管理、重用和擴(kuò)展企業(yè)規(guī)則和處理的高層途徑。在數(shù)據(jù)操作方面，選擇靈活、易用的Microsoft SQL

33、server2005數(shù)據(jù)源。</p><p>　　第四章 數(shù)據(jù)庫的設(shè)計(jì)</p><p><b>　　4.1數(shù)據(jù)庫設(shè)計(jì)</b></p><p>　　本系統(tǒng)的數(shù)據(jù)庫是SQL server數(shù)據(jù)庫，在SQL環(huán)境下創(chuàng)建數(shù)據(jù)庫學(xué)生信息庫.mdf文件。該數(shù)據(jù)庫包括學(xué)生信息表、成績信息表、用戶登錄信息表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫表結(jié)構(gòu)如下所示：</p&

34、gt;<p>　　4.1.1各表的物理結(jié)構(gòu)</p><p>　　這就是SQL2000的數(shù)據(jù)庫</p><p>　　4.1.2數(shù)據(jù)源如果添加數(shù)據(jù)庫</p><p>　　由于篇幅有限，此處省略部分圖</p><p>　　第五章 VB程序界面設(shè)計(jì)</p><p><b>　　5.1登錄界面</b

35、></p><p>　　這就是登陸界面。可選擇各個(gè)不同的身份登陸。</p><p><b>　　學(xué)生界面</b></p><p><b>　　老師界面</b></p><p><b>　　管理員界面</b></p><p>　　第六章 VB程序與數(shù)

36、據(jù)庫連接及代碼</p><p><b>　　6.1登陸判斷代碼</b></p><p>　　Private Sub Command1_Click()</p><p>　　Dim num As Integer</p><p><b>　　num = 0</b></p><p>

37、　　If ID.Text = "" Then</p><p>　　MsgBox "用戶名不能空", vbOKOnly + vbExclamation, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b>

38、</p><p>　　If Combo1.Text = "管理員" Then</p><p>　　Adodc1.RecordSource = "select * from Administrator where UserID='" & Trim(ID.Text) & "' and Password='

39、;" & Trim(password.Text) & "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　If Combo1.Text = "教師" Then</p><p&g

40、t;　　Adodc1.RecordSource = "select * from 教師信息 where 教師編號(hào)='" & Trim(ID.Text) & "' and 密碼='" & Trim(password.Text) & "'"</p><p>　　Adodc1.Refresh&l

41、t;/p><p><b>　　End If</b></p><p>　　If Combo1.Text = "學(xué)生" Then</p><p>　　Adodc1.RecordSource = "select * from 學(xué)生信息 where 學(xué)生學(xué)號(hào)='" & Trim(ID.Text) &a

42、mp; "' and 密碼='" & Trim(password.Text) & "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　If Adodc1.Recordset.EOF The

43、n</p><p>　　MsgBox "用戶名或密碼錯(cuò)誤", vbOKOnly + vbExclamation, "提示"</p><p>　　ID.SetFocus</p><p>　　ID.SelStart = 0</p><p>　　ID.SelLength = Len(ID.Text)</

44、p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Combo1.Text = "教師" Then</p><p>　　Form1.Show</p><p><b>　　Unl

45、oad Me</b></p><p><b>　　End If</b></p><p>　　If Combo1.Text = "學(xué)生" Then</p><p>　　Form2.Show</p><p><b>　　Unload Me</b></p>&

46、lt;p><b>　　End If</b></p><p>　　If Combo1.Text = "管理員" Then</p><p>　　Form3.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If<

47、;/b></p><p>　　Dim num As Integer</p><p><b>　　num = 0</b></p><p>　　If ID.Text = "" Then</p><p>　　MsgBox "用戶名不能空", vbOKOnly + vbExclama

48、tion, "警告"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Combo1.Text = "系統(tǒng)管理員" Then</p><p>　　Adodc1.RecordSour

49、ce = "select * from Administrator where UserID='" & Trim(ID.Text) & "' and Password='" & Trim(password.Text) & "'"</p><p>　　Adodc1.Refresh</p

50、><p><b>　　End If</b></p><p>　　If Combo1.Text = "教師" Then</p><p>　　Adodc1.RecordSource = "select * from 教師信息 where 教師編號(hào)='" & Trim(ID.Text) &

51、"' and 密碼='" & Trim(password.Text) & "'"</p><p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　If Combo1.Text = "學(xué)生"

52、 Then</p><p>　　Adodc1.RecordSource = "select * from 學(xué)生信息 where 學(xué)生學(xué)號(hào)='" & Trim(ID.Text) & "' and 密碼='" & Trim(password.Text) & "'"</p><

53、;p>　　Adodc1.Refresh</p><p><b>　　End If</b></p><p>　　If Adodc1.Recordset.EOF Then</p><p>　　MsgBox "用戶名或密碼錯(cuò)誤", vbOKOnly + vbExclamation, "提示"</p&

54、gt;<p>　　ID.SetFocus</p><p>　　ID.SelStart = 0</p><p>　　ID.SelLength = Len(ID.Text)</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p&

55、gt;<p>　　If Combo1.Text = "教師" Then</p><p>　　Form1.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p>　　If Combo1.Tex

56、t = "學(xué)生" Then</p><p>　　Form2.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p>　　If Combo1.Text = "系統(tǒng)管理員" Then<

57、;/p><p>　　Form3.Show</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><p>　　6.2 學(xué)生管理代碼</p><p>　　Private Sub Command1_Click()</p&

58、gt;<p>　　If Text1.Text <> Adodc3.Recordset.Fields("密碼") Then</p><p>　　MsgBox "當(dāng)前密碼輸入錯(cuò)誤"</p><p><b>　　Exit Sub</b></p><p><b>　　End I

59、f</b></p><p>　　If Text2.Text <> Text3.Text Then</p><p>　　MsgBox "新密碼輸入錯(cuò)誤"</p><p><b>　　Else</b></p><p>　　Adodc3.Recordset.Update</p&

60、gt;<p>　　Adodc3.Recordset.Fields("密碼").Value = Text3.Text</p><p>　　Adodc3.Recordset.Update</p><p>　　Adodc3.Refresh</p><p>　　MsgBox "修改成功"</p><p

61、><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　End</b></p><p><b>　　End Sub</

62、b></p><p>　　Private Sub Form_Load()</p><p>　　Form2.Top = (Screen.Height - Form2.Height) / 2</p><p>　　Form2.Left = (Screen.Width - Form2.Width) / 2</p><p>　　Picture2.

63、Visible = False</p><p>　　Picture1.Visible = False</p><p>　　Picture4.Visible = False</p><p>　　Label8.Caption = denglu.ID.Text</p><p>　　Adodc1.ConnectionString = "Pr

64、ovider=MSDASQL.1;Persist Security Info=False;Data Source=denglu"</p><p>　　Adodc1.CommandType = adCmdText</p><p>　　Adodc1.RecordSource = "select * from 學(xué)生信息 where 學(xué)生學(xué)號(hào)='" &

65、 Trim(Label8.Caption) & "'"</p><p>　　Adodc1.Refresh</p><p>　　Label9.Caption = Adodc1.Recordset.Fields("姓名")</p><p>　　Label10.Caption = Adodc1.Recordset.F

66、ields("性別")</p><p>　　Label11.Caption = Adodc1.Recordset.Fields("出生日期")</p><p>　　Label12.Caption = Adodc1.Recordset.Fields("入學(xué)時(shí)間")</p><p>　　Label13.Capt

67、ion = Adodc1.Recordset.Fields("學(xué)院")</p><p>　　Label14.Caption = Adodc1.Recordset.Fields("班級(jí)")</p><p>　　Label31.Caption = Adodc1.Recordset.Fields("姓名")</p><

68、;p>　　Label37.Caption = Adodc1.Recordset.Fields("姓名")</p><p><b>　　End Sub</b></p><p>　　Private Sub gb_Click()</p><p><b>　　Unload Me</b></p>

69、<p><b>　　End Sub</b></p><p>　　Private Sub Picture1_Click()</p><p><b>　　End Sub</b></p><p>　　Private Sub stuCJ_Click()</p><p>　　Picture1.V

70、isible = False</p><p>　　Picture2.Visible = True</p><p>　　Picture3.Visible = False</p><p>　　Picture4.Visible = False</p><p>　　Adodc2.ConnectionString = "Provider=MS

71、DASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManage"</p><p>　　Adodc2.CommandType = adCmdText</p><p>　　Adodc2.RecordSource = "select * from " &

72、; Trim(Label14.Caption) & " where 學(xué)生學(xué)號(hào)='" & Trim(Label8.Caption) & "'"</p><p>　　Adodc2.Refresh</p><p>　　Label15.Caption = Adodc2.Recordset.Fields(1).Name&

73、lt;/p><p>　　Label16.Caption = Adodc2.Recordset.Fields(2).Name</p><p>　　Label17.Caption = Adodc2.Recordset.Fields(3).Name</p><p>　　Label18.Caption = Adodc2.Recordset.Fields(4).Name</

74、p><p>　　Label19.Caption = Adodc2.Recordset.Fields(1)</p><p>　　Label20.Caption = Adodc2.Recordset.Fields(2)</p><p>　　Label21.Caption = Adodc2.Recordset.Fields(3)</p><p>　　L

75、abel22.Caption = Adodc2.Recordset.Fields(4)</p><p>　　If Label19.Caption < 60 Then</p><p>　　Label26.Caption = "不及格"</p><p><b>　　End If</b></p><p&g

76、t;　　If Label19.Caption >= 60 And Label19.Caption < 70 Then</p><p>　　Label26.Caption = "合格"</p><p><b>　　End If</b></p><p>　　If Label19.Caption >= 70 An

77、d Label19.Caption < 80 Then</p><p>　　Label26.Caption = "中等"</p><p><b>　　End If</b></p><p>　　If Label19.Caption >= 80 And Label19.Caption < 90 Then<

78、/p><p>　　Label26.Caption = "良好"</p><p><b>　　End If</b></p><p>　　If Label19.Caption >= 90 And Label19.Caption <= 100 Then</p><p>　　Label26.Capti

79、on = "優(yōu)秀"</p><p><b>　　End If</b></p><p>　　If Label20.Caption < 60 Then</p><p>　　Label27.Caption = "不及格"</p><p><b>　　End If</

80、b></p><p>　　If Label20.Caption >= 60 And Label20.Caption < 70 Then</p><p>　　Label27.Caption = "合格"</p><p><b>　　End If</b></p><p>　　If Lab

81、el20.Caption >= 70 And Label20.Caption < 80 Then</p><p>　　Label27.Caption = "中等"</p><p><b>　　End If</b></p><p>　　If Label20.Caption >= 80 And Label20.

82、Caption < 90 Then</p><p>　　Label27.Caption = "良好"</p><p><b>　　End If</b></p><p>　　If Label20.Caption >= 90 And Label20.Caption <= 100 Then</p>

83、<p>　　Label27.Caption = "優(yōu)秀"</p><p><b>　　End If</b></p><p>　　If Label21.Caption < 60 Then</p><p>　　Label28.Caption = "不及格"</p><p&g

84、t;<b>　　End If</b></p><p>　　If Label21.Caption >= 60 And Label21.Caption < 70 Then</p><p>　　Label28.Caption = "合格"</p><p><b>　　End If</b></

85、p><p>　　If Label21.Caption >= 70 And Label21.Caption < 80 Then</p><p>　　Label28.Caption = "中等"</p><p><b>　　End If</b></p><p>　　If Label21.Capti

86、on >= 80 And Label21.Caption < 90 Then</p><p>　　Label28.Caption = "良好"</p><p><b>　　End If</b></p><p>　　If Label21.Caption >= 90 And Label21.Caption &l

87、t;= 100 Then</p><p>　　Label28.Caption = "優(yōu)秀"</p><p><b>　　End If</b></p><p>　　If Label22.Caption < 60 Then</p><p>　　Label29.Caption = "不及格&

88、quot;</p><p><b>　　End If</b></p><p>　　If Label22.Caption >= 60 And Label22.Caption < 70 Then</p><p>　　Label29.Caption = "合格"</p><p><b>

89、;　　End If</b></p><p>　　If Label22.Caption >= 70 And Label22.Caption < 80 Then</p><p>　　Label29.Caption = "中等"</p><p><b>　　End If</b></p><

90、;p>　　If Label22.Caption >= 80 And Label22.Caption < 90 Then</p><p>　　Label29.Caption = "良好"</p><p><b>　　End If</b></p><p>　　If Label22.Caption >= 9

91、0 And Label22.Caption <= 100 Then</p><p>　　Label29.Caption = "優(yōu)秀"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private S

92、ub stuXX_Click()</p><p>　　Picture1.Visible = True</p><p>　　Picture2.Visible = False</p><p>　　Picture3.Visible = False</p><p>　　Picture4.Visible = False</p><p

93、><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　Label30.Caption = Trim(FormatDateTime(Now()))</p><p>　　Label32.Caption = Trim(FormatDateTime(Now()))<

94、;/p><p>　　Label33.Caption = Trim(FormatDateTime(Now()))</p><p>　　Label23.Caption = Trim(FormatDateTime(Now()))</p><p><b>　　End Sub</b></p><p>　　Private Sub xgm

95、m_Click()</p><p>　　Adodc3.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=denglu"</p><p>　　Adodc3.CommandType = adCmdText</p><p>　　Adodc3.Re

96、cordSource = "select * from 學(xué)生信息 where 學(xué)生學(xué)號(hào)='" & Trim(Label8.Caption) & "'"</p><p>　　Adodc3.Refresh</p><p>　　Picture1.Visible = False</p><p>　　Pi

97、cture4.Visible = True</p><p>　　Picture3.Visible = False</p><p>　　Picture2.Visible = False</p><p><b>　　End Sub</b></p><p>　　Private Sub zx_Click()</p>

98、<p>　　denglu.Show</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p><b>　　6.3 教師代碼</b></p><p>　　Private Sub Combo1_click

99、()</p><p>　　If Combo1.Text = "學(xué)生學(xué)號(hào)" Then</p><p>　　Command5.Enabled = True</p><p>　　Command6.Enabled = True</p><p><b>　　Else</b></p><p&g

100、t;　　Command5.Enabled = False</p><p>　　Command6.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Combo2_Click(

101、)</p><p>　　If Combo2.Text = "查詢信息" Then</p><p>　　Text2.Enabled = False</p><p>　　Text3.Enabled = False</p><p>　　Text5.Enabled = False</p><p>　　Tex

102、t6.Enabled = False</p><p>　　Text7.Enabled = False</p><p>　　Text8.Enabled = False</p><p>　　Combo3.Enabled = False</p><p>　　Command3.Enabled = False</p><p>&

103、lt;b>　　Else</b></p><p>　　Text2.Enabled = True</p><p>　　Text3.Enabled = True</p><p>　　Text5.Enabled = True</p><p>　　Text6.Enabled = True</p><p>　　T

104、ext7.Enabled = True</p><p>　　Text8.Enabled = True</p><p>　　Combo3.Enabled = True</p><p>　　Command3.Enabled = True</p><p><b>　　End If</b></p><p>

105、;<b>　　End Sub</b></p><p>　　Private Sub Combo4_click()</p><p>　　If Combo4.Text = "查詢成績" Then</p><p>　　Command7.Enabled = False</p><p><b>　　El

106、se</b></p><p>　　Command7.Enabled = True</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Combo5_click()</p><

107、p>　　If Combo5.Text = "學(xué)生學(xué)號(hào)" Then</p><p>　　Command8.Enabled = True</p><p>　　Command9.Enabled = True</p><p><b>　　Else</b></p><p>　　Command8.Enabl

108、ed = False</p><p>　　Command9.Enabled = False</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><

109、;p>　　If Combo1.Text = "" Then</p><p>　　MsgBox "選擇操作方式"</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　If Combo2.T

110、ext = "" Then</p><p>　　MsgBox "選擇查詢方式"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b><

111、;/p><p>　　Adodc2.RecordSource = "select * from 學(xué)生信息 where " & Trim(Combo1.Text) & " = '" & Trim(Text1.Text) & "'"</p><p>　　Adodc2.Refresh</p

112、><p>　　If Adodc2.Recordset.RecordCount = 0 Then</p><p>　　MsgBox "沒有記錄 "</p><p><b>　　Else</b></p><p>　　Text2.Text = Adodc2.Recordset.Fields(0)</p&g

113、t;<p>　　Text3.Text = Adodc2.Recordset.Fields(2)</p><p>　　Combo3.Text = Adodc2.Recordset.Fields(3)</p><p>　　Text5.Text = Adodc2.Recordset.Fields(4)</p><p>　　Text6.Text = Adodc

114、2.Recordset.Fields(5)</p><p>　　Text7.Text = Adodc2.Recordset.Fields(6)</p><p>　　Text8.Text = Adodc2.Recordset.Fields(7)</p><p><b>　　End If</b></p><p>　　If T

115、ext8.Text <> Label17.Caption Then</p><p>　　MsgBox "該學(xué)生非本班學(xué)生不能查詢"</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Combo3.T

116、ext = ""</p><p>　　Text3.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p>

117、<p>　　Text8.Text = ""</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　Text9.Text

118、 = ""</p><p>　　Text10.Text = ""</p><p>　　Text11.Text = ""</p><p>　　Text12.Text = ""</p><p>　　Text13.Text = ""</p>

119、;<p>　　Text14.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command11_Click()</p><p>　　If Text15.Text <> Adodc4.Recordset.Fields("密碼

120、") Then</p><p>　　MsgBox "當(dāng)前密碼輸入錯(cuò)誤"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If Text16.Text <> Text17.Text T

121、hen</p><p>　　MsgBox "新密碼輸入錯(cuò)誤"</p><p><b>　　Else</b></p><p>　　Adodc4.Recordset.Update</p><p>　　Adodc4.Recordset.Fields("密碼").Value = Text3

122、.Text</p><p>　　Adodc4.Recordset.Update</p><p>　　Adodc4.Refresh</p><p>　　MsgBox "修改成功"</p><p><b>　　End If</b></p><p><b>　　End Su

123、b</b></p><p>　　Private Sub Command2_Click()</p><p>　　If Combo4.Text = "" Then</p><p>　　MsgBox "選擇操作方式"</p><p><b>　　Else</b></p&

124、gt;<p>　　If Combo5.Text = "" Then</p><p>　　MsgBox "選擇查詢條件"</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><

125、;b>　　End If</b></p><p>　　Adodc3.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=chengji;Initial Catalog=StudentManage"</p><p>　　Adodc3.CommandTy

126、pe = adCmdText</p><p>　　Adodc3.RecordSource = "select * FROM " & Trim(Label17.Caption) + Trim(Label35.Caption) & " where " & Trim(Combo5.Text) & "='" & T

127、rim(Text4.Text) & "' "</p><p>　　Adodc3.Refresh</p><p>　　If Adodc3.Recordset.RecordCount = 0 Then</p><p>　　MsgBox "沒有記錄 "</p><p><b>　　E

128、lse</b></p><p>　　Text9.Text = Adodc3.Recordset.Fields(1)</p><p>　　Text10.Text = Adodc3.Recordset.Fields(0)</p><p>　　Text11.Text = Adodc3.Recordset.Fields(2)</p><p&g

129、t;　　Text12.Text = Adodc3.Recordset.Fields(3)</p><p>　　Text13.Text = Adodc3.Recordset.Fields(4)</p><p>　　Text14.Text = Adodc3.Recordset.Fields(5)</p><p><b>　　End If</b>&l

130、t;/p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　If Text1.Text = "" Or Text2.Text = "" Or Combo3.Text = "" Or Text3.Te

131、xt = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then</p><p>　　MsgBox "請(qǐng)輸入完整信息！"</p><p><b>　　

132、Else</b></p><p>　　With Adodc2.Recordset</p><p>　　If .RecordCount = 0 Then</p><p>　　MsgBox "沒有記錄 "</p><p><b>　　Else</b></p><p>