學(xué)生管理系統(tǒng)課程設(shè)計(jì)_第1頁(yè)
已閱讀1頁(yè),還剩23頁(yè)未讀, 繼續(xù)免費(fèi)閱讀

下載本文檔

版權(quán)說明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

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ù)庫(kù)技術(shù)支持下

2、完成的。本文在結(jié)構(gòu)上首先論述了實(shí)訓(xùn)課程設(shè)計(jì)的目的和意義,然后敘述了開發(fā)環(huán)境、開發(fā)平臺(tái)以及數(shù)據(jù)庫(kù)技術(shù),接著用圖片、說明和代碼的方式介紹了系統(tǒng)的整體規(guī)劃,接下來是系統(tǒng)在具體實(shí)現(xiàn)中的詳細(xì)內(nèi)容,最終本系統(tǒng)能夠完成信息的添加、修改、刪除、查詢等功能,本系統(tǒng)界面友好,操作簡(jiǎn)單,比較實(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簡(jiǎn)介- 2 -</p><p>  2.1.1 Visual Basic語言特性- 2 -</p><p>  2.2 SQL server 2005簡(jiǎn)介- 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ù)庫(kù)的設(shè)計(jì)- 5 -</p>

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

7、據(jù)庫(kù)連接及代碼- 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)上購(gòu)物,網(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é)生的各種信息量也成倍增長(zhǎng)。面對(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é)生成績(jī)管理系統(tǒng)。</p><p>  本系統(tǒng)主要包括注冊(cè)管理、界面管理、學(xué)生信息查詢、添加、修改、刪除和幫助等部分。其功能主要有:</p><p>  學(xué)生信息的添加,包括輸入學(xué)生基本信息和成績(jī)</p><p>  學(xué)生信息的查詢,包括查詢學(xué)生基本信息和成績(jī)。</p><p>  學(xué)生信息的修改,包括修改學(xué)生基本信息和成績(jī)。</p&

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

14、護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備,易使用等特點(diǎn)。</p><p>  經(jīng)過分析,我們使用MICROSOFT公司的Visual Basic2005開發(fā)工具,利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(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簡(jiǎn)介</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ù)庫(kù),或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。</p><p>  2.1.1 Visual Basic語言特性</p><p>  一個(gè)典型的VB進(jìn)程VB的中心思想就是要便于程序員使用,無論是新手或者專家。VB使用了可以簡(jiǎn)單建立

17、應(yīng)用程序的GUI系統(tǒng),但是又可以開發(fā)相當(dāng)復(fù)雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合,并且增加代碼來指定組建的屬性和方法。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一部分定義在了組件內(nèi),所以程序員不用寫多少代碼就可以完成一個(gè)簡(jiǎn)單的程序。過去的版本里面VB程序的性能問題一直被放在了桌面上,但是隨著計(jì)算機(jī)速度的飛速增加,關(guān)于性能的爭(zhēng)論已經(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ò)展庫(kù)。和有些語言不一樣,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è)并不簡(jiǎn)單。</p><p>  2.2 SQL server 2005簡(jiǎn)介</p><p>  SQL Server 2005是微軟公司比較穩(wěn)定的大型數(shù)據(jù)庫(kù)服務(wù)器,其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫(kù)的趨勢(shì)。用它可以方便地管理數(shù)據(jù)庫(kù)和開發(fā)應(yīng)用程序,它使用了最先進(jìn)的數(shù)據(jù)庫(kù)構(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í)這是一種誤解。在過去的很長(zhǎng)一段時(shí)間中,微軟公司聘請(qǐng)了世界上最優(yōu)秀的數(shù)據(jù)庫(kù)專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng),勵(lì)精圖治,就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持,再配合其一向?yàn)槿朔Q道的易用性,SQL Server可以說成為了開發(fā)者手中的一柄利器!</p><p>  另外,目前國(guó)內(nèi)的一些關(guān)于微軟平臺(tái)的數(shù)據(jù)庫(kù)編程教程,喜歡使用Access作為數(shù)據(jù)庫(kù)平臺(tái)的案例,并展

24、開相關(guān)的內(nèi)容。這其實(shí)對(duì)于開發(fā)真正的數(shù)據(jù)庫(kù)應(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ù)庫(kù))</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ù)修改簡(jiǎn)單方便,支持多條件修改</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),并且擁有操作簡(jiǎn)單、可信度好、不易出錯(cuò)等優(yōu)點(diǎn),大大減少了不必要的人力消耗,提高個(gè)人的工作效率。學(xué)生信息查詢是每個(gè)學(xué)校必須面臨的問題,所以,如何開發(fā)一個(gè)應(yīng)用簡(jiǎn)單、界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問題。</p><p>  學(xué)生成績(jī)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn),是在班級(jí)學(xué)生處數(shù)據(jù)庫(kù)基礎(chǔ)上,只對(duì)學(xué)生成績(jī)信息進(jìn)行管理的一個(gè)系統(tǒng),是對(duì)學(xué)校教務(wù)管理系統(tǒng)的補(bǔ)充,主要是針對(duì)輔導(dǎo)員

28、的需要,主要包括三個(gè)用戶群:普通用戶、高級(jí)用戶、超級(jí)用戶。</p><p>  普通用戶,主要的需求有學(xué)生成績(jī)查詢、學(xué)生基本信息查詢、普通用戶密碼修改。</p><p>  高級(jí)用戶,主要的需求有學(xué)生成績(jī)管理、學(xué)生信息管理、普通用戶和高級(jí)用戶密碼修改。</p><p>  超級(jí)用戶,主要的需求有學(xué)生成績(jī)管理、學(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ù)庫(kù)管理。在技術(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í)代,國(guó)民經(jīng)濟(jì)和國(guó)防建設(shè)、社會(huì)發(fā)展、人民生活都離不開軟件,軟件也無處不在。</p><p>  軟件產(chǎn)業(yè)也是一個(gè)新興產(chǎn)業(yè),盡管起步晚,但是發(fā)展迅速,已經(jīng)成為增長(zhǎng)最快的產(chǎn)業(yè),是具有高投入/高產(chǎn)出、無污染、低能耗的綠色產(chǎn)業(yè)。學(xué)生成績(jī)管理系統(tǒng)是一個(gè)基于教務(wù)處數(shù)據(jù)庫(kù)的

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ā)與測(cè)試。</p><p>  3.2.2技術(shù)可行性分析</p><p>  從技術(shù)方面來說,Visual Basic2000是一個(gè)企業(yè)級(jí)的、面向?qū)ο蟮目焖賾?yīng)用開發(fā)工具,是數(shù)據(jù)庫(kù)最優(yōu)秀的開發(fā)工具之一。Visual B

32、asic2005完全支持面向?qū)ο蟮拈_發(fā),它擁有多種數(shù)據(jù)庫(kù)接口,可以非常方便地連接的各種數(shù)據(jù)源,再加之其專利產(chǎn)品Data Window(數(shù)據(jù)窗口),通過SQL語句即可輕松地查詢和更新后臺(tái)數(shù)據(jù)庫(kù)中的數(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ù)庫(kù)的設(shè)計(jì)</p><p><b>  4.1數(shù)據(jù)庫(kù)設(shè)計(jì)</b></p><p>  本系統(tǒng)的數(shù)據(jù)庫(kù)是SQL server數(shù)據(jù)庫(kù),在SQL環(huán)境下創(chuàng)建數(shù)據(jù)庫(kù)學(xué)生信息庫(kù).mdf文件。該數(shù)據(jù)庫(kù)包括學(xué)生信息表、成績(jī)信息表、用戶登錄信息表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫(kù)表結(jié)構(gòu)如下所示:</p&

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

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

36、據(jù)庫(kù)連接及代碼</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 = "查詢成績(jī)" 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> 

溫馨提示

  • 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒有圖紙預(yù)覽就沒有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 眾賞文庫(kù)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

評(píng)論

0/150

提交評(píng)論