VB+SQL學(xué)生成績(jī)管理系統(tǒng)(畢業(yè)論文+源代碼)

1、目錄摘 要2第一章 緒 論31.1引 言31.2設(shè)計(jì)目的及意義3第二章 開(kāi)發(fā)環(huán)境和工具42.1 Visual Basic簡(jiǎn)介42.1.1 Visual Basic語(yǔ)言特性52.2 SQL server 2005簡(jiǎn)介62.2.1 SQL server 2005數(shù)據(jù)庫(kù)特點(diǎn)6第三章 系統(tǒng)分析73.1系統(tǒng)及需求分析83.1.1系統(tǒng)需求83.1.2需求分析83.2 可行性分析93.2.1經(jīng)濟(jì)可行性分析93.2.2技術(shù)可行性分析93.3系統(tǒng)功能流程圖10第四章 數(shù)據(jù)庫(kù)的設(shè)計(jì)104.1數(shù)據(jù)庫(kù)設(shè)計(jì)104.1.1各表的物理結(jié)構(gòu)114.2數(shù)據(jù)庫(kù)鏈接124.2.1數(shù)據(jù)庫(kù)鏈接代碼124.2.2數(shù)據(jù)庫(kù)鏈接操作124.3

2、數(shù)據(jù)庫(kù)調(diào)試14第五章 主要內(nèi)容155.1登錄界面155.2學(xué)生成績(jī)管理界面185.3學(xué)生信息管理215.3.1學(xué)生信息添加215.3.2學(xué)生信息修改245.3.3學(xué)生信息刪除265.3.4學(xué)生信息查詢275.4登錄用戶管理285.4.1普通用戶管理285.4.2高級(jí)用戶管理295.4.3超級(jí)用戶管理305.5用戶注冊(cè)345.6幫助界面36總 結(jié)37參考文獻(xiàn)38摘 要隨著信息技術(shù)在管理上越來(lái)越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個(gè)不斷發(fā)展的新型學(xué)科，任何一個(gè)單位要生存要發(fā)展，要高效率地把內(nèi)部活動(dòng)有機(jī)地組織起來(lái)，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本系統(tǒng)是

3、在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫(kù)技術(shù)支持下完成的。本文在結(jié)構(gòu)上首先論述了畢業(yè)設(shè)計(jì)目的和意義，然后敘述了開(kāi)發(fā)環(huán)境、開(kāi)發(fā)平臺(tái)以及數(shù)據(jù)庫(kù)技術(shù)，接著用圖片、說(shuō)明和代碼的方式介紹了系統(tǒng)的整體規(guī)劃，接下來(lái)是系統(tǒng)在具體實(shí)現(xiàn)中的詳細(xì)內(nèi)容，最終本系統(tǒng)能夠完成信息的添加、修改、刪除、查詢等功能，本系統(tǒng)界面友好，操作簡(jiǎn)單，比較實(shí)用，思路縝密?chē)?yán)謹(jǐn)，管理起來(lái)方便快捷，能有效的達(dá)到學(xué)生信息的管理的目的。關(guān)鍵詞：VB,SQL server2005,界面，權(quán)限。第一章 緒 論1.1引 言人類(lèi)有幾千年的歷史，計(jì)算機(jī)從產(chǎn)生到現(xiàn)在只不過(guò)50多年，而網(wǎng)絡(luò)的迅速發(fā)展也不過(guò)10年的時(shí)間。但是，計(jì)算機(jī)和網(wǎng)絡(luò)對(duì)社會(huì)的影響已經(jīng)迅速擴(kuò)大

4、，甚至在改變?nèi)藗兊纳?。特別是90年代以來(lái)，多媒體和網(wǎng)絡(luò)技術(shù)的飛速發(fā)展正在以驚人的速度改變著人們的工作方式、交往方式和生活方式。正像著名的未來(lái)學(xué)家尼葛洛龐帝（1997）所說(shuō)的：“數(shù)字不再只和計(jì)算有關(guān)，它決定我們的生存?！笨茖W(xué)技術(shù)是第一生產(chǎn)力，是最先進(jìn)的生產(chǎn)力。現(xiàn)在,已經(jīng)沒(méi)有人懷疑信息技術(shù)的發(fā)展將會(huì)引起人類(lèi)社會(huì)全面和深刻的變革，使人類(lèi)社會(huì)由工業(yè)社會(huì)邁向信息社會(huì)。目前，在社會(huì)各個(gè)方面都呈現(xiàn)出了與工業(yè)社會(huì)顯著不同的特點(diǎn)。網(wǎng)上書(shū)店，網(wǎng)上醫(yī)院，網(wǎng)上學(xué)校，網(wǎng)上購(gòu)物，網(wǎng)上銀行，政府上網(wǎng)等新事物如雨后春筍般涌現(xiàn)出來(lái)，對(duì)人們的傳統(tǒng)生活方式、工作方式產(chǎn)生極大的沖擊。使人們感受到技術(shù)發(fā)展的脈搏和信息時(shí)代前進(jìn)的步伐。

5、隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量需要有學(xué)生管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。1.2設(shè)計(jì)目的及意義本系統(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)限登錄的學(xué)生成績(jī)管理系統(tǒng)。本系統(tǒng)主要包括注冊(cè)管理、界面管理、學(xué)生信息查詢、添加、修改、刪除和幫助等部分。其功能主要有： 學(xué)生信息的添加，包括輸

6、入學(xué)生基本信息和成績(jī)。 學(xué)生信息的查詢，包括查詢學(xué)生基本信息和成績(jī)。 學(xué)生信息的修改，包括修改學(xué)生基本信息和成績(jī)。 學(xué)生信息的刪除，包括修改學(xué)生基本信息和成績(jī)。 用戶名注冊(cè)，包括普通用戶注冊(cè)、高級(jí)用戶注冊(cè)和超級(jí)用戶注冊(cè)。 登錄用戶密碼修改，用戶登錄到系統(tǒng)可進(jìn)行相應(yīng)的用戶密碼修改。 超級(jí)用戶對(duì)用戶名的管理，包括添加新用戶、修改用戶密碼、刪除用戶名和查詢用戶。學(xué)生成績(jī)管理系統(tǒng)是典型的信息管理系統(tǒng)，其開(kāi)發(fā)主要包括后臺(tái)數(shù)據(jù)庫(kù)的建立和維護(hù)以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。而對(duì)于后者則要求應(yīng)用程序功能完備，易使用等特點(diǎn)。經(jīng)過(guò)分析，我們使用MICROS

7、OFT公司的Visual Basic2005開(kāi)發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_(kāi)發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對(duì)初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。第二章 開(kāi)發(fā)環(huán)境和工具2.1 Visual Basic簡(jiǎn)介Visual Basic（VB）是一種由微軟公司開(kāi)發(fā)的包含協(xié)助開(kāi)發(fā)環(huán)境的事件驅(qū)動(dòng)編程語(yǔ)言。從任何標(biāo)準(zhǔn)來(lái)說(shuō)，VB都是世界上使用人數(shù)最多的語(yǔ)言不僅是盛贊VB的開(kāi)發(fā)者還是抱怨VB的開(kāi)發(fā)者的數(shù)量。它源自于BASIC編程語(yǔ)言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開(kāi)發(fā)（RAD）系統(tǒng)，可以輕易

8、的使用DAO、RDO、ADO連接數(shù)據(jù)庫(kù)，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個(gè)應(yīng)用程序。2.1.1 Visual Basic語(yǔ)言特性一個(gè)典型的VB進(jìn)程VB的中心思想就是要便于程序員使用，無(wú)論是新手或者專家。VB使用了可以簡(jiǎn)單建立應(yīng)用程序的GUI系統(tǒng)，但是又可以開(kāi)發(fā)相當(dāng)復(fù)雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來(lái)指定組建的屬性和方法。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫(xiě)多少代碼就可以完成一個(gè)簡(jiǎn)單的程序。過(guò)去的版本里面VB程序的性能問(wèn)題一直被放在了桌面上，但是隨著計(jì)算機(jī)速度的飛速增加，關(guān)于性能的爭(zhēng)論

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

10、少功能的對(duì)話框窗口（比如沒(méi)有最大化和最小化按鈕的窗體）可以用來(lái)提供彈出功能。VB的組件既可以擁有用戶界面，也可以沒(méi)有。這樣一來(lái)服務(wù)器端程序就可以處理增加的模塊。VB使用參數(shù)計(jì)算的方法來(lái)進(jìn)行垃圾收集，這個(gè)方法中包含有大量的對(duì)象，提供基本的面向?qū)ο笾С帧Ｒ驗(yàn)樵絹?lái)越多組建的出現(xiàn)，程序員可以選用自己需要的擴(kuò)展庫(kù)。和有些語(yǔ)言不一樣，VB對(duì)大小寫(xiě)不敏感，但是能自動(dòng)轉(zhuǎn)換關(guān)鍵詞到標(biāo)準(zhǔn)的大小寫(xiě)狀態(tài)，以及強(qiáng)制使得符號(hào)表入口的實(shí)體的變量名稱遵循書(shū)寫(xiě)規(guī)則。默認(rèn)情況下字符串的比較是對(duì)大小寫(xiě)敏感的，但是可以關(guān)閉這個(gè)功能。VB使得大量的外界控件有了自己的生存空間。大量的第三方控件針對(duì)VB提供。VB也提供了建立、使用和重用這

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

12、SQL Server 6.5和7.0兩個(gè)版本的嘗試后，微軟公司終于開(kāi)始了大規(guī)模的業(yè)務(wù)。記得在以前各種關(guān)于SQL Server的文章，都會(huì)將其定位成中小型應(yīng)用方面，這種感覺(jué)被大家自然的延續(xù)到了2000版之中。其實(shí)這是一種誤解。在過(guò)去的很長(zhǎng)一段時(shí)間中，微軟公司聘請(qǐng)了世界上最優(yōu)秀的數(shù)據(jù)庫(kù)專家以及專門(mén)搭建了信息量可謂空前的地理信息系統(tǒng)，勵(lì)精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持，再配合其一向?yàn)槿朔Q道的易用性，SQL Server可以說(shuō)成為了開(kāi)發(fā)者手中的一柄利器！另外，目前國(guó)內(nèi)的一些關(guān)于微軟平臺(tái)的數(shù)據(jù)庫(kù)編程教程，喜歡使用Access作為數(shù)據(jù)庫(kù)平臺(tái)的案例，并展開(kāi)相關(guān)的內(nèi)容。這其

13、實(shí)對(duì)于開(kāi)發(fā)真正的數(shù)據(jù)庫(kù)應(yīng)用并沒(méi)有直接的幫助作用，只能使大家停留在應(yīng)用的初級(jí)階段。SQL Server 2005提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQL Server 2005可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。2.2.1 SQL server 2005數(shù)據(jù)庫(kù)特點(diǎn)概括起來(lái)，SQL Server 2005數(shù)據(jù)庫(kù)管理系統(tǒng)具有以下主要特點(diǎn)。1）、豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Server企業(yè)管理器是一個(gè)基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務(wù)器、管理數(shù)據(jù)庫(kù)和數(shù)據(jù)

14、庫(kù)對(duì)象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報(bào)、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。此外，SQL Server 2005還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡(jiǎn)化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。2）、動(dòng)態(tài)自動(dòng)管理和優(yōu)化功能。即使SQL Server數(shù)據(jù)庫(kù)管理員不做任何設(shè)置，SQL Server也能夠在運(yùn)行過(guò)程中根據(jù)環(huán)境配置和用戶訪問(wèn)情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。3）、充分的Internet技術(shù)支持。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQL Server增強(qiáng)了對(duì)Internet技術(shù)

15、支持，它除保留了前期版本中的數(shù)據(jù)庫(kù)Web出版工具“Web助手”外，還增強(qiáng)了對(duì)XML和HTTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過(guò)XML等訪問(wèn)SQL Server數(shù)據(jù)庫(kù)系統(tǒng)，也擴(kuò)展了SQL Server在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。4）、豐富的編程接口工具，使用戶開(kāi)發(fā)SQL Server數(shù)據(jù)庫(kù)應(yīng)用程序更加靈活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等開(kāi)發(fā)工具，Transact-SQL與工業(yè)標(biāo)準(zhǔn)SQL語(yǔ)言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQL Server 2000還支持ODBC、OLE D

16、B、ADO規(guī)范，可以使用ODBC、OLE DB、ADO接口訪問(wèn)SQL Server數(shù)據(jù)庫(kù)。5）、具有很好的伸縮性和可靠性。SQL Server 2005既能運(yùn)行在Windows桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括Windows NT和Windows 2000）下；既能運(yùn)行在單CPU計(jì)算機(jī)上，又能運(yùn)行在對(duì)稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。第三章 系統(tǒng)分析本學(xué)生成績(jī)管理系統(tǒng)可以說(shuō)是一個(gè)綜合性的學(xué)校學(xué)生管理系統(tǒng)，這它集成了學(xué)生信息管理、學(xué)生成績(jī)管理、用戶權(quán)限管理等多種功能，因而具有較強(qiáng)的實(shí)用性。3.1系統(tǒng)及需求分析3.1.

17、1系統(tǒng)需求通過(guò)調(diào)查,要求系統(tǒng)需要有以下功能: 要求有良好的人機(jī)交互界面; 由于該系統(tǒng)使用對(duì)象多,要求有較好的權(quán)限管理; 原始數(shù)據(jù)修改簡(jiǎn)單方便,支持多條件修改 方便的數(shù)據(jù)查詢，支持多條件查詢; 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便，數(shù)據(jù)穩(wěn)定性好； 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。3.1.2需求分析目前計(jì)算機(jī)管理在日常生活中的地位變得越來(lái)越重要。它能夠代替人做各種重復(fù)、繁瑣的勞動(dòng)，并且擁有操作簡(jiǎn)單、可信度好、不易出錯(cuò)等優(yōu)點(diǎn)，大大減少了不必要的人力消耗，提高個(gè)人的工作效率。學(xué)生信息查詢是每個(gè)學(xué)校必須面臨的問(wèn)題，所以，如何開(kāi)發(fā)一個(gè)應(yīng)用簡(jiǎn)單、界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問(wèn)題

18、。學(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)員的需要，主要包括三個(gè)用戶群：普通用戶、高級(jí)用戶、超級(jí)用戶。普通用戶，主要的需求有學(xué)生成績(jī)查詢、學(xué)生基本信息查詢、普通用戶密碼修改。高級(jí)用戶，主要的需求有學(xué)生成績(jī)管理、學(xué)生信息管理、普通用戶和高級(jí)用戶密碼修改。超級(jí)用戶，主要的需求有學(xué)生成績(jī)管理、學(xué)生信息管理、登錄用戶名管理。3.2 可行性分析由于本系統(tǒng)管理的對(duì)象單一,且每個(gè)數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計(jì)算過(guò)程不是很復(fù)雜。因此，比較適合于采用數(shù)據(jù)庫(kù)管理。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，

19、特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實(shí)現(xiàn)。3.2.1經(jīng)濟(jì)可行性分析隨著科學(xué)技術(shù)的不斷發(fā)展與創(chuàng)新，計(jì)算機(jī)作用的日益突顯，計(jì)算機(jī)軟件成為人們解決問(wèn)題的一個(gè)有效手段，當(dāng)然，它的作用也越來(lái)越重要。在當(dāng)今信息時(shí)代，國(guó)民經(jīng)濟(jì)和國(guó)防建設(shè)、社會(huì)發(fā)展、人民生活都離不開(kāi)軟件，軟件也無(wú)處不在。軟件產(chǎn)業(yè)也是一個(gè)新興產(chǎn)業(yè)，盡管起步晚，但是發(fā)展迅速，已經(jīng)成為增長(zhǎng)最快的產(chǎn)業(yè)，是具有高投入/高產(chǎn)出、無(wú)污染、低能耗的綠色產(chǎn)業(yè)。學(xué)生成績(jī)管理系統(tǒng)是一個(gè)基于教務(wù)處數(shù)據(jù)庫(kù)的一個(gè)管理系統(tǒng)，對(duì)已經(jīng)使用的類(lèi)似的系統(tǒng)進(jìn)調(diào)查分析、類(lèi)比，本課題具有的特點(diǎn)：開(kāi)發(fā)工作量小，可以有兩個(gè)人合作開(kāi)發(fā)或一個(gè)人獨(dú)立開(kāi)發(fā)，開(kāi)發(fā)周期短，有熟練的開(kāi)

20、發(fā)人員一個(gè)月就可以完成系統(tǒng)的開(kāi)發(fā)與測(cè)試。3.2.2技術(shù)可行性分析從技術(shù)方面來(lái)說(shuō)，Visual Basic2005是一個(gè)企業(yè)級(jí)的、面向?qū)ο蟮目焖賾?yīng)用開(kāi)發(fā)工具，是數(shù)據(jù)庫(kù)最優(yōu)秀的開(kāi)發(fā)工具之一。Visual Basic2005完全支持面向?qū)ο蟮拈_(kāi)發(fā)，它擁有多種數(shù)據(jù)庫(kù)接口，可以非常方便地連接的各種數(shù)據(jù)源，再加之其專利產(chǎn)品Data Window（數(shù)據(jù)窗口），通過(guò)SQL語(yǔ)句即可輕松地查詢和更新后臺(tái)數(shù)據(jù)庫(kù)中的數(shù)據(jù)。Visual Basic2005基于組件的開(kāi)發(fā)增強(qiáng)了面向?qū)ο蟮募夹g(shù)，他提供一個(gè)更有效的封裝、管理、重用和擴(kuò)展企業(yè)規(guī)則和處理的高層途徑。在數(shù)據(jù)操作方面，選擇靈活、易用的Microsoft SQL se

21、rver2005數(shù)據(jù)源。3.3系統(tǒng)功能流程圖本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來(lái)進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總體來(lái)說(shuō)，本系統(tǒng)屬于一個(gè)權(quán)限型管理系統(tǒng)。學(xué)生成績(jī)管理系統(tǒng)用戶查詢用戶刪除用戶修改用戶添加普通用戶管理高級(jí)用戶管理超級(jí)用戶管理登錄用戶管理系統(tǒng)查詢刪除修改添加學(xué)生信息管理系統(tǒng)用戶注冊(cè)幫助文件幫助學(xué)生成績(jī)管理系統(tǒng)界面模式界面返回界面退出學(xué)生成績(jī)管理系統(tǒng)用戶登錄圖2.1 系統(tǒng)功能流程第四章 數(shù)據(jù)庫(kù)的設(shè)計(jì)4.1數(shù)據(jù)庫(kù)設(shè)計(jì)本系統(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ī)信息表、用戶登

22、錄信息表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫(kù)表結(jié)構(gòu)如下所示：4.1.1各表的物理結(jié)構(gòu)表3.1.1 學(xué)生信息表表3.1.1 學(xué)生成績(jī)表1表3.1.1 學(xué)生檔案表2表3.1.1 用戶登錄表4.2數(shù)據(jù)庫(kù)鏈接4.2.1數(shù)據(jù)庫(kù)鏈接代碼Module Module1 Public admin As Boolean = True Public adminis As String Public grade As String Public Function link(ByVal i) As DataTable Dim sqlcon As New SqlConnection(data source=PC-20110317

23、1305SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd=) 用連接對(duì)象連接數(shù)據(jù)庫(kù) Dim sqlad As SqlDataAdapter Dim ds As DataTable sqlad = New SqlDataAdapter(i, sqlcon) ds = New DataTable 數(shù)據(jù)集對(duì)象 Try sqlad.Fill(ds) 添加數(shù)據(jù) Catch ex As Exception MessageBox.Show(ex.Message + Chr(10) + Chr(13) + ex.StackTrace) End Try Return ds End

24、 FunctionEnd Module4.2.2數(shù)據(jù)庫(kù)鏈接操作第一步：附加數(shù)據(jù)庫(kù)（對(duì)已經(jīng)建好的數(shù)據(jù)庫(kù)進(jìn)行附加）點(diǎn)擊數(shù)據(jù)庫(kù)右鍵附加。圖附加數(shù)據(jù)庫(kù)第二部：安全性設(shè)置，展開(kāi)安全性，sa用戶點(diǎn)擊右鍵屬性，進(jìn)行安全性設(shè)置（密碼設(shè)置、默認(rèn)數(shù)據(jù)庫(kù)設(shè)置），狀態(tài)選擇登錄啟用。圖 安全性設(shè)置第三步：服務(wù)器屬性設(shè)置，右擊服務(wù)器屬性，進(jìn)行安全性設(shè)置。圖 服務(wù)器屬性設(shè)置第四步：重啟服務(wù)器。右擊服務(wù)器，選擇重啟服務(wù)器。圖 重啟服務(wù)器4.3數(shù)據(jù)庫(kù)調(diào)試數(shù)據(jù)庫(kù)成功附加、安全性設(shè)置、重啟。圖 數(shù)據(jù)庫(kù)第五章 主要內(nèi)容5.1登錄界面圖4.1登錄界面設(shè)計(jì)過(guò)程：用于輸入用戶名和密碼登錄，選擇相應(yīng)的用戶類(lèi)型進(jìn)入系統(tǒng)，若是用戶類(lèi)型選擇錯(cuò)誤則

25、不能進(jìn)入系統(tǒng)。沒(méi)有用戶名的可注冊(cè)用戶名，如對(duì)系統(tǒng)操作有不了解的可點(diǎn)擊幫助，進(jìn)入幫助界面。輸入用戶名和密碼后點(diǎn)擊確定判斷數(shù)據(jù)庫(kù)中的用戶是否為合法用戶。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 選擇普通用戶登錄 If Me.RadioButton1.Checked Then Dim str As String str = data source=PC-201103171305SQLEXPRESS;database=學(xué)

26、生信息庫(kù);user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 普通用戶where 用戶名= & TextBox1.Text.ToString().Trim() & and 密碼= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As S

27、qlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績(jī)管理系統(tǒng).添加DToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).修改KToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).刪除DToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).添加ToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理

28、系統(tǒng).高級(jí)用戶信息管理ToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).Show() Me.Hide() Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類(lèi)型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If 選擇高級(jí)用戶登錄 If Me.RadioButton2.Checked Then Dim str As String str = data source=PC-

29、201103171305SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As String = select * from 高級(jí)用戶where 用戶名= & TextBox1.Text.ToString().Trim() & and 密碼= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.Sql

30、Command(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績(jī)管理系統(tǒng).添加ToolStripMenuItem.Enabled = False 學(xué)生成績(jī)管理系統(tǒng).Show() Me.Hide() Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類(lèi)型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text

31、 = TextBox1.Focus() End If Catch ex As Exception End Try End If 選擇超級(jí)用戶登錄 If Me.RadioButton3.Checked Then Dim str As String str = data source=PC-201103171305SQLEXPRESS;database=學(xué)生信息庫(kù);user id=sa;pwd= Dim con As New SqlClient.SqlConnection(str) Try con.Open() Catch ex As Exception End Try Dim sql As St

32、ring = select * from 超級(jí)用戶where 用戶名= & TextBox1.Text.ToString().Trim() & and 密碼= & TextBox2.Text.ToString().Trim() & Dim cmd As New SqlClient.SqlCommand(sql, con) Dim reader As SqlClient.SqlDataReader Try reader = cmd.ExecuteReader If reader.Read() = True Then Dim 學(xué)生成績(jī)管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績(jī)管理系統(tǒng).Sho

33、w() Me.Hide() Else MsgBox(對(duì)不起，用戶名或密碼錯(cuò)誤！重新輸入（請(qǐng)正確選擇用戶類(lèi)型）, 16, 警告) Me.TextBox1.Text = Me.TextBox2.Text = TextBox1.Focus() End If Catch ex As Exception End Try End If End Sub5.2學(xué)生成績(jī)管理界面圖4.2學(xué)生成績(jī)管理界面設(shè)計(jì)過(guò)程：所有功能都在菜單中打開(kāi)來(lái)實(shí)現(xiàn)。在登錄時(shí)選擇的用戶類(lèi)型限制本界面功能使用的權(quán)限，不同的用戶類(lèi)型所顯示可用的功能不一樣。普通用戶可使用界面管理功能、學(xué)生信息管理中的查詢功能、登錄用戶管理中的普通用戶管理功能；

34、高級(jí)用戶擁有普通用戶所有功能使用的權(quán)限，外加登錄用戶管理中的高級(jí)用戶管理功能；超級(jí)用戶擁有高級(jí)用戶所有的功能使用的權(quán)限，外加超級(jí)用戶管理功能；所有登錄的用戶都可使用界面管理功能和幫助功能。不同的權(quán)限擁有不同的功能。設(shè)計(jì)代碼：Public Class 學(xué)生信息管理系統(tǒng)Private Sub 添加DToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加DToolStripMenuItem.Click Dim tianjia As New 添加 tianjia.Mdi

35、Parent = Me tianjia.Show() End SubPrivate Sub 修改KToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改KToolStripMenuItem.Click Dim xiugai As New 修改 xiugai.MdiParent = Me xiugai.Show() End SubPrivate Sub 刪除DToolStripMenuItem_Click(ByVal sender As System.Object

36、, ByVal e As System.EventArgs) Handles 刪除DToolStripMenuItem.Click Dim shanchu As New 刪除 shanchu.MdiParent = Me shanchu.Show() End SubPrivate Sub 退出XToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出XToolStripMenuItem.Click End End SubPrivate Sub 返回ToolStri

37、pMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 返回ToolStripMenuItem.Click 登陸界面.Show() Me.Close() End SubPrivate Sub 信息查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim chaxun As New 查詢 chaxun.MdiParent = Me chaxun.Show() End

38、 SubPrivate Sub 添加ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem.Click Dim yonghuguanli As New 用戶信息管理 yonghuguanli.MdiParent = Me yonghuguanli.Show() End SubPrivate Sub 查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e A

39、s System.EventArgs) Handles 查詢ToolStripMenuItem.Click Dim chaxun As New 查詢 chaxun.MdiParent = Me chaxun.Show() End SubPrivate Sub 窗口層疊ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 窗口層疊ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.Cascade) End SubPrivate

40、 Sub 水平平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 水平平鋪ToolStripMenuItem.Click Me.LayoutMdi(MdiLayout.TileHorizontal) End SubPrivate Sub 垂直平鋪ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 垂直平鋪ToolStripMenu

41、Item.Click Me.LayoutMdi(MdiLayout.TileVertical) End SubPrivate Sub 修改密碼ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 修改密碼ToolStripMenuItem.Click Dim 修改密碼As New 高級(jí)用戶密碼修改 修改密碼.MdiParent = Me 修改密碼.Show() End SubPrivate Sub 修改普通用戶ToolStripMenuItem_Click(ByVa

42、l sender As System.Object, ByVal e As System.EventArgs) Handles 修改普通用戶ToolStripMenuItem.Click Dim 修改密碼As New 普通用戶密碼修改 修改密碼.MdiParent = Me 修改密碼.Show() End SubPrivate Sub 幫助ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 幫助ToolStripMenuItem.Click Dim 幫助As Ne

43、w 幫助文件 幫助.MdiParent = Me 幫助.Show() End SubEnd Class5.3學(xué)生信息管理5.3.1學(xué)生信息添加圖4.3.1學(xué)生信息添加學(xué)生基本信息添加設(shè)計(jì)過(guò)程：選擇學(xué)生信息添加，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點(diǎn)擊添加后數(shù)據(jù)存入學(xué)生信息表。點(diǎn)擊退出則退出整個(gè)管理系統(tǒng)，點(diǎn)擊返回則退回到學(xué)生成績(jī)管理界面。（選擇學(xué)生信息添加后學(xué)生成績(jī)添加為不可用）設(shè)計(jì)代碼：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Clic

44、k If Me.TextBox1.Text.Trim = String.Empty Then MessageBox.Show(學(xué)號(hào)不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) ElseIf Me.TextBox2.Text.Trim = String.Empty Then MessageBox.Show(姓名不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) Else Dim str As String = select * from 學(xué)生信息表 & where 學(xué)號(hào)=

45、 & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 學(xué)生信息表 & (學(xué)號(hào),姓名,年齡,班級(jí),籍貫,性別) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & , & Me.TextBox5.Text.Trim & , & ComboBox3.Text.Trim & , & Me.ComboBox2.Text.Trim & , & ComboBox1.Text.Trim & ) link(s

46、tr) xuehao() End If str = select * from 成績(jī)表 & where 學(xué)號(hào)= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 成績(jī)表(學(xué)號(hào),姓名) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) xuehao() End If str = select * from 成績(jī)表 & where 學(xué)號(hào)= & Me.TextBox1.T

47、ext.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 成績(jī)表(學(xué)號(hào),姓名) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) MessageBox.Show(學(xué)生信息表記錄 & Me.TextBox1.Text & 已成功, 添加成功, MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show(記錄 & Me.TextBox1.Text & 已存在, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End IfEnd Sub學(xué)生成績(jī)信息添加設(shè)計(jì)過(guò)程：選擇學(xué)生成績(jī)添加，在相應(yīng)的欄目選擇添加內(nèi)容（上學(xué)期、下學(xué)期、科目、學(xué)號(hào)、成績(jī)），點(diǎn)擊添加后數(shù)據(jù)存入學(xué)生成績(jī)表（成績(jī)表1或者成績(jī)表2）。點(diǎn)擊退出則退出整個(gè)管理系統(tǒng)，點(diǎn)擊返回則退回到學(xué)生成績(jī)管理界面。