《VB+SQL2008學(xué)生成績管理系統(tǒng)_畢業(yè)論文.doc》由會員分享，可在線閱讀，更多相關(guān)《VB+SQL2008學(xué)生成績管理系統(tǒng)_畢業(yè)論文.doc（36頁珍藏版）》請?jiān)谘b配圖網(wǎng)上搜索。

1、數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)報(bào)告摘 要隨著信息技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的實(shí)施在技術(shù)上已逐步成熟。管理信息系統(tǒng)是一個不斷發(fā)展的新型學(xué)科，任何一個單位要生存要發(fā)展，要高效率地把內(nèi)部活動有機(jī)地組織起來，就必須建立與自身特點(diǎn)相適應(yīng)的管理信息系統(tǒng)。本系統(tǒng)是在管理信息系統(tǒng)的理論和方法指導(dǎo)下、數(shù)據(jù)庫技術(shù)支持下完成的。本文在結(jié)構(gòu)上首先論述了畢業(yè)設(shè)計(jì)目的和意義，然后敘述了開發(fā)環(huán)境、開發(fā)平臺以及數(shù)據(jù)庫技術(shù)，接著用圖片、說明和代碼的方式介紹了系統(tǒng)的整體規(guī)劃，接下來是系統(tǒng)在具體實(shí)現(xiàn)中的詳細(xì)內(nèi)容，最終本系統(tǒng)能夠完成信息的添加、修改、刪除、查詢等功能，本系統(tǒng)界面友好，操作簡單，比較實(shí)用，思路縝密嚴(yán)謹(jǐn)，管

2、理起來方便快捷，能有效的達(dá)到學(xué)生信息的管理的目的。關(guān)鍵詞：VB；SQL Server 2005；界面；權(quán)限目錄摘 要21 緒 論31.1引 言31.2設(shè)計(jì)目的及意義32 開發(fā)環(huán)境和工具42.1 Visual Basic簡介42.1.1 Visual Basic語言特性52.2 SQL Server 2005簡介62.2.1 SQL server 2005數(shù)據(jù)庫特點(diǎn)63 系統(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)功能流程圖104 數(shù)據(jù)庫的設(shè)計(jì)114.1數(shù)據(jù)庫設(shè)計(jì)104.1.1各表的物理

3、結(jié)構(gòu)114.2數(shù)據(jù)庫鏈接124.2.1數(shù)據(jù)庫鏈接代碼124.2.2數(shù)據(jù)庫鏈接操作124.3數(shù)據(jù)庫調(diào)試145 主要內(nèi)容155.1登錄界面155.2學(xué)生成績管理界面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高級用戶管理295.4.3超級用戶管理305.5用戶注冊325.6幫助界面33總 結(jié)34參考文獻(xiàn)3435數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計(jì)報(bào)告1. 緒 論1.1引 言人類有幾千年的歷史，計(jì)算機(jī)從產(chǎn)生到現(xiàn)在只不過50多年，而網(wǎng)絡(luò)的迅速發(fā)展也不過10年的時(shí)間。但是，計(jì)

4、算機(jī)和網(wǎng)絡(luò)對社會的影響已經(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ā)展將會引起人類社會全面和深刻的變革，使人類社會由工業(yè)社會邁向信息社會。隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對龐大的信息量需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速查詢、修改、增加、刪

5、除等，從而減少管理方面的工作量。1.2設(shè)計(jì)目的及意義本系統(tǒng)主要用于學(xué)校學(xué)生信息管理，總體任務(wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動化，其主要任務(wù)是用計(jì)算機(jī)對學(xué)生信息進(jìn)行日常管理，如查詢、修改 、增加、刪除，另外還考慮到用戶登錄的權(quán)限，針對學(xué)生信息和權(quán)限登錄的學(xué)生成績管理系統(tǒng)。本系統(tǒng)主要包括注冊管理、界面管理、學(xué)生信息查詢、添加、修改、刪除和幫助等部分。其功能主要有：1） 學(xué)生信息的添加，包括輸入學(xué)生基本信息和成績。2） 學(xué)生信息的查詢，包括查詢學(xué)生基本信息和成績。3） 學(xué)生信息的修改，包括修改學(xué)生基本信息和成績。4） 學(xué)生信息的刪除，包括修改學(xué)生基本信息和成績。5） 用戶名注冊，包括普通用戶

6、注冊、高級用戶注冊和超級用戶注冊。6） 登錄用戶密碼修改，用戶登錄到系統(tǒng)可進(jìn)行相應(yīng)的用戶密碼修改。經(jīng)過分析，我們使用MICROSOFT公司的Visual Basic2005開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始原型系統(tǒng)進(jìn)行需求迭代，不斷修正和改進(jìn)，直到形成用戶滿意的可行系統(tǒng)。2. 開發(fā)環(huán)境和工具2.1 Visual Basic簡介Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標(biāo)準(zhǔn)來說，VB都是世界上使用人數(shù)最多的語言不僅是盛贊VB的開發(fā)者還

7、是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。2.1.1 Visual Basic語言特性一個典型的VB進(jìn)程VB的中心思想就是要便于程序員使用，無論是新手或者專家。VB使用了可以簡單建立應(yīng)用程序的GUI系統(tǒng)，但是又可以開發(fā)相當(dāng)復(fù)雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組建的屬性和方法。因?yàn)槟J(rèn)的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少

8、代碼就可以完成一個簡單的程序。過去的版本里面VB程序的性能問題一直被放在了桌面上，但是隨著計(jì)算機(jī)速度的飛速增加，關(guān)于性能的爭論已經(jīng)越來越少。窗體控件的增加和改變可以用拖放技術(shù)實(shí)現(xiàn)。一個排列滿控件的工具箱用來顯示可用控件（比如文本框或者按鈕)。每個控件都有自己的屬性和事件。默認(rèn)的屬性值會在控件創(chuàng)建的時(shí)候提供，但是程序員也可以進(jìn)行更改。很多的屬性值可以在運(yùn)行時(shí)候隨著用戶的動作和修改進(jìn)行改動，這樣就形成了一個動態(tài)的程序。舉個例子來說：窗體的大小改變事件中加入了可以改變控件位置的代碼，在運(yùn)行時(shí)候每當(dāng)用戶更改窗口大小，控件也會隨之改變位置。在文本框中的文字改變事件中加入相應(yīng)的代碼，程序就能夠在文字輸入的

9、時(shí)候自動翻譯或者阻止某些字符的輸入。VB的程序可以包含一個或多個窗體，或者是一個主窗體和多個子窗體，類似于操作系統(tǒng)的樣子。有很少功能的對話框窗口（比如沒有最大化和最小化按鈕的窗體）可以用來提供彈出功能。VB的組件既可以擁有用戶界面，也可以沒有。這樣一來服務(wù)器端程序就可以處理增加的模塊。VB使用參數(shù)計(jì)算的方法來進(jìn)行垃圾收集，這個方法中包含有大量的對象，提供基本的面向?qū)ο笾С?。因?yàn)樵絹碓蕉嘟M建的出現(xiàn)，程序員可以選用自己需要的擴(kuò)展庫。和有些語言不一樣，VB對大小寫不敏感，但是能自動轉(zhuǎn)換關(guān)鍵詞到標(biāo)準(zhǔn)的大小寫狀態(tài)，以及強(qiáng)制使得符號表入口的實(shí)體的變量名稱遵循書寫規(guī)則。默認(rèn)情況下字符串的比較是對大小寫敏感的

10、，但是可以關(guān)閉這個功能。VB使得大量的外界控件有了自己的生存空間。大量的第三方控件針對VB提供。VB也提供了建立、使用和重用這些控件的方法，但是由于語言問題，從一個應(yīng)用程序創(chuàng)建另外一個并不簡單。2.2 SQL Server 2005簡介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平臺緊密集成，具有完全的Web功能。通過對高端硬件平臺、網(wǎng)絡(luò)和存儲技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在In

11、ternet商業(yè)領(lǐng)域快速建立并應(yīng)用。此外，還增強(qiáng)了安全性，保護(hù)防火墻內(nèi)外的數(shù)據(jù)。支持基于角色的安全并擁有安全審計(jì)工具。在經(jīng)歷了SQL Server 6.5和7.0兩個版本的嘗試后，微軟公司終于開始了大規(guī)模的業(yè)務(wù)。記得在以前各種關(guān)于SQL Server的文章，都會將其定位成中小型應(yīng)用方面，這種感覺被大家自然的延續(xù)到了2000版之中。其實(shí)這是一種誤解。在過去的很長一段時(shí)間中，微軟公司聘請了世界上最優(yōu)秀的數(shù)據(jù)庫專家以及專門搭建了信息量可謂空前的地理信息系統(tǒng)，勵精圖治，就是為了摘掉扣在自己頭上的這頂帽子。有了強(qiáng)大的性能和功能支持，再配合其一向?yàn)槿朔Q道的易用性，SQL Server可以說成為了開發(fā)者手中

12、的一柄利器！另外，目前國內(nèi)的一些關(guān)于微軟平臺的數(shù)據(jù)庫編程教程，喜歡使用Access作為數(shù)據(jù)庫平臺的案例，并展開相關(guān)的內(nèi)容。這其實(shí)對于開發(fā)真正的數(shù)據(jù)庫應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級階段。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ù)庫特點(diǎn)概括起來，SQL Server 2005數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。1）、豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Ser

13、ver企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復(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形界面管理工具，大大簡化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。2）、動態(tài)自動管理和優(yōu)化功能。即使SQL Server數(shù)據(jù)庫管理員不做任何設(shè)置，SQL Server也能夠在運(yùn)行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。3）、充分的Inter

14、net技術(shù)支持。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQL Server增強(qiáng)了對Internet技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫Web出版工具“Web助手”外，還增強(qiáng)了對XML和HTTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過XML等訪問SQL Server數(shù)據(jù)庫系統(tǒng)，也擴(kuò)展了SQL Server在數(shù)據(jù)挖掘和分析服務(wù)領(lǐng)域的應(yīng)用。4）、豐富的編程接口工具，使用戶開發(fā)SQL Server數(shù)據(jù)庫應(yīng)用程序更加靈活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標(biāo)準(zhǔn)SQ

15、L語言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQL Server 2005還支持ODBC、OLE DB、ADO規(guī)范，可以使用ODBC、OLE DB、ADO接口訪問SQL Server數(shù)據(jù)庫。5）、具有很好的伸縮性和可靠性。SQL Server 2005既能運(yùn)行在Windows桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括Windows NT和Windows XP）下；既能運(yùn)行在單CPU計(jì)算機(jī)上，又能運(yùn)行在對稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。3. 系統(tǒng)分析本學(xué)生成績管理系統(tǒng)可以說是一個綜合性的學(xué)校學(xué)生管

16、理系統(tǒng)，這它集成了學(xué)生信息管理、學(xué)生成績管理、用戶權(quán)限管理等多種功能，因而具有較強(qiáng)的實(shí)用性。3.1系統(tǒng)及需求分析3.1.1系統(tǒng)需求隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對龐大的信息量就需要有一個學(xué)生信息管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計(jì)內(nèi)容為管理員或普通用戶登錄該系統(tǒng)進(jìn)行五個模塊操作：1）、學(xué)生基本情況更新：增加、修改、刪除、查詢（按學(xué)號）。2）、學(xué)生基本情況維護(hù)：增加、修改、刪除、打印、查詢（按專業(yè)）。3）、學(xué)生成績維護(hù)：添加成績、打印、查詢（按學(xué)號、專業(yè)）

17、。4）、密碼修改：修改所有用戶密碼（管理員）、修改自己密碼（普通用戶）。5）、數(shù)據(jù)維護(hù)：對該系統(tǒng)數(shù)據(jù)庫進(jìn)行備份和還原。3.1.2需求分析目前計(jì)算機(jī)管理在日常生活中的地位變得越來越重要。它能夠代替人做各種重復(fù)、繁瑣的勞動，并且擁有操作簡單、可信度好、不易出錯等優(yōu)點(diǎn)，大大減少了不必要的人力消耗，提高個人的工作效率。學(xué)生信息查詢是每個學(xué)校必須面臨的問題，所以，如何開發(fā)一個應(yīng)用簡單、界面友好、容易操作、數(shù)據(jù)安全性好的管理系統(tǒng)就成為非常重要的技術(shù)問題。學(xué)生成績管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)，是在班級學(xué)生處數(shù)據(jù)庫基礎(chǔ)上，只對學(xué)生成績信息進(jìn)行管理的一個系統(tǒng)，是對學(xué)校教務(wù)管理系統(tǒng)的補(bǔ)充，主要是針對輔導(dǎo)員的需要，主要包括

18、三個用戶群：普通用戶、高級用戶、超級用戶。普通用戶，主要的需求有學(xué)生成績查詢、學(xué)生基本信息查詢、普通用戶密碼修改。高級用戶，主要的需求有學(xué)生成績管理、學(xué)生信息管理、普通用戶和高級用戶密碼修改。超級用戶，主要的需求有學(xué)生成績管理、學(xué)生信息管理、登錄用戶名管理。3.2 可行性分析由于本系統(tǒng)管理的對象單一,且每個數(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)。3.2.1經(jīng)濟(jì)可行性分析隨著科學(xué)技術(shù)的不斷發(fā)展與創(chuàng)新，計(jì)算機(jī)作用的日益突顯，計(jì)算機(jī)軟件成為人們解

19、決問題的一個有效手段，當(dāng)然，它的作用也越來越重要。在當(dāng)今信息時(shí)代，國民經(jīng)濟(jì)和國防建設(shè)、社會發(fā)展、人民生活都離不開軟件，軟件也無處不在。軟件產(chǎn)業(yè)也是一個新興產(chǎn)業(yè)，盡管起步晚，但是發(fā)展迅速，已經(jīng)成為增長最快的產(chǎn)業(yè)，是具有高投入/高產(chǎn)出、無污染、低能耗的綠色產(chǎn)業(yè)。學(xué)生成績管理系統(tǒng)是一個基于教務(wù)處數(shù)據(jù)庫的一個管理系統(tǒng)，對已經(jīng)使用的類似的系統(tǒng)進(jìn)調(diào)查分析、類比，本課題具有的特點(diǎn)：開發(fā)工作量小，可以有兩個人合作開發(fā)或一個人獨(dú)立開發(fā)，開發(fā)周期短，有熟練的開發(fā)人員一個月就可以完成系統(tǒng)的開發(fā)與測試。3.2.2技術(shù)可行性分析從技術(shù)方面來說，Visual Basic 2005是一個企業(yè)級的、面向?qū)ο蟮目焖賾?yīng)用開發(fā)工具

20、，是數(shù)據(jù)庫最優(yōu)秀的開發(fā)工具之一。Visual Basic 2005完全支持面向?qū)ο蟮拈_發(fā)，它擁有多種數(shù)據(jù)庫接口，可以非常方便地連接的各種數(shù)據(jù)源，再加之其專利產(chǎn)品Data Window（數(shù)據(jù)窗口），通過SQL語句即可輕松地查詢和更新后臺數(shù)據(jù)庫中的數(shù)據(jù)。SQL Server 2005是微軟公司最新版的大型數(shù)據(jù)庫服務(wù)器，其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢。另外，SQL Server 2005可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。3.3系統(tǒng)功能流程圖本系統(tǒng)在執(zhí)行時(shí)，先根據(jù)不同的操作人員的需要來進(jìn)行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進(jìn)行其它的查詢或?yàn)g覽等操作；總

21、體來說，本系統(tǒng)屬于一個權(quán)限型管理系統(tǒng)。學(xué)生成績管理系統(tǒng)用戶查詢用戶刪除用戶修改用戶添加普通用戶管理高級用戶管理超級用戶管理登錄用戶管理系統(tǒng)查詢刪除修改添加學(xué)生信息管理系統(tǒng)用戶注冊幫助文件幫助學(xué)生成績管理系統(tǒng)界面模式界面返回界面退出學(xué)生成績管理系統(tǒng)用戶登錄圖2.1 系統(tǒng)功能流程系統(tǒng)E-R圖1）、用戶（普通用戶、管理員）實(shí)體圖如下圖所示：2）、學(xué)生實(shí)體圖如下圖所示：3）、學(xué)生選課關(guān)系圖如下圖所示：4. 數(shù)據(jù)庫的設(shè)計(jì)4.1數(shù)據(jù)庫設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫是SQL Server數(shù)據(jù)庫，在SQL環(huán)境下創(chuàng)建數(shù)據(jù)庫學(xué)生信息庫.mdf文件。該數(shù)據(jù)庫包括學(xué)生信息表、成績信息表、用戶登錄信息表用于紀(jì)錄學(xué)生的基本信息數(shù)據(jù)庫

22、表結(jié)構(gòu)如下所示：4.1.1各表的物理結(jié)構(gòu)表3.1.1 學(xué)生信息表表3.1.1 學(xué)生成績表1表3.1.1 學(xué)生檔案表2表3.1.1 用戶登錄表4.2數(shù)據(jù)庫鏈接4.2.1數(shù)據(jù)庫鏈接代碼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-201103171305SQLEXPRESS;dat

23、abase=學(xué)生信息庫;user id=sa;pwd=) 用連接對象連接數(shù)據(jù)庫 Dim sqlad As SqlDataAdapter Dim ds As DataTable sqlad = New SqlDataAdapter(i, sqlcon) ds = New DataTable 數(shù)據(jù)集對象 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 FunctionEnd Modul

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

25、，如對系統(tǒng)操作有不了解的可點(diǎn)擊幫助，進(jìn)入幫助界面。輸入用戶名和密碼后點(diǎn)擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。設(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é)生信息庫;user id=sa;pwd

26、= 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 SqlClient.SqlDataRea

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

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

29、ESS;database=學(xué)生信息庫;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) D

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

31、 End If Catch ex As Exception End Try End If 選擇超級用戶登錄 If Me.RadioButton3.Checked Then Dim str As String str = data source=PC-201103171305SQLEXPRESS;database=學(xué)生信息庫;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 * fro

32、m 超級用戶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é)生成績管理系統(tǒng)As New 學(xué)生信息管理系統(tǒng) 學(xué)生成績管理系統(tǒng).Show() Me.Hide() Else

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

34、，外加登錄用戶管理中的高級用戶管理功能；超級用戶擁有高級用戶所有的功能使用的權(quán)限，外加超級用戶管理功能；所有登錄的用戶都可使用界面管理功能和幫助功能。不同的權(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.MdiParent = Me tianjia

35、.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, ByVal e As System

36、.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 返回ToolStripMenuItem_Click(ByV

37、al 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 SubPrivate Sub 添加T

38、oolStripMenuItem_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 As System.EventArgs)

39、 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 Sub 水平平鋪ToolStripM

40、enuItem_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 垂直平鋪ToolStripMenuItem.Click Me.Layou

41、tMdi(MdiLayout.TileVertical) End SubPrivate Sub 修改密碼ToolStripMenuItem_Click(ByVal 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.

42、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 New 幫助文件 幫助.MdiParent

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

44、xt.Trim = String.Empty Then MessageBox.Show(學(xué)號不能為空, 添加失敗, 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é)號= & Me.TextBox1.Text

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

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

47、str).Rows.Count = 0 Then str = Nothing str = insert into 成績表(學(xué)號,姓名) 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

48、 & 已存在, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End IfEnd Sub學(xué)生成績信息添加設(shè)計(jì)過程：選擇學(xué)生成績添加，在相應(yīng)的欄目選擇添加內(nèi)容（上學(xué)期、下學(xué)期、科目、學(xué)號、成績），點(diǎn)擊添加后數(shù)據(jù)存入學(xué)生成績表（成績表1或者成績表2）。點(diǎn)擊退出則退出整個管理系統(tǒng)，點(diǎn)擊返回則退回到學(xué)生成績管理界面。（選擇學(xué)生成績添加后學(xué)生信息添加為不可用）設(shè)計(jì)代碼：Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

49、 Handles Button4.Click If Me.txt_chengji.Text.Trim = String.Empty Then MessageBox.Show(成績不能為空, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) Else If Me.cb_xueqi.SelectedIndex = 0 Then Str = update 成績表set & Me.cb_kecheng.Text.Trim & = & Me.txt_chengji.Text.Trim & where 學(xué)號= & Me.cb_xuehao.Text.Tri

50、m & If Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.txt_chengji.Text.Trim) = 0 And Int(Me.txt_chengji.Text.Trim) = 100 Then link(Str) MessageBox.Show(記錄添加已成功, 添加成功, MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show(記錄成績已存在, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Err

51、or) End If End If End If End Sub5.3.2學(xué)生信息修改圖4.3.2學(xué)生信息修改學(xué)生基本信息修改設(shè)計(jì)過程：選擇修改信息類型為學(xué)生信息，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號、類型、修改內(nèi)容）。點(diǎn)擊修改讀取數(shù)據(jù)庫中的學(xué)生信息表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。設(shè)計(jì)代碼：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If Me.RadioButton3.Checked Then str = upd

52、ate 學(xué)生信息表set & Me.ComboBox4.Text.Trim & = & Me.TextBox1.Text.Trim & where 學(xué)號= & Me.ComboBox3.Text.Trim & End If If Not link(str).Rows.Count Then MessageBox.Show(修改成功！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Question) End IfEnd Sub學(xué)生成績信息修改設(shè)計(jì)過程：選擇修改信息類型為學(xué)生成績，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學(xué)號、選擇課程、改成績）。點(diǎn)擊修改讀取數(shù)據(jù)庫中的成績表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。設(shè)計(jì)代碼：Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click If Me.RadioButton1.Checked Then str = update 成績表set & Me.ComboBox1.Text.Trim & = & Me.TextBox4.Text.Trim & where 學(xué)號= & Me.ComboBox5.Text.Trim & ElseIf Me.RadioButto