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

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

2、理起來方便快捷，能有效的達到學生信息的管理的目的。關(guān)鍵詞：VB；SQL Server 2005；界面；權(quán)限目錄摘 要21 緒 論31.1引 言31.2設(shè)計目的及意義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ù)庫特點63 系統(tǒng)分析73.1系統(tǒng)及需求分析83.1.1系統(tǒng)需求83.1.2需求分析83.2 可行性分析93.2.1經(jīng)濟可行性分析93.2.2技術(shù)可行性分析93.3系統(tǒng)功能流程圖104 數(shù)據(jù)庫的設(shè)計114.1數(shù)據(jù)庫設(shè)計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學生成績管理界面185.3學生信息管理215.3.1學生信息添加215.3.2學生信息修改245.3.3學生信息刪除265.3.4學生信息查詢275.4登錄用戶管理285.4.1普通用戶管理285.4.2高級用戶管理295.4.3超級用戶管理305.5用戶注冊325.6幫助界面33總 結(jié)34參考文獻3435數(shù)據(jù)庫系統(tǒng)原理課程設(shè)計報告1. 緒 論1.1引 言人類有幾千年的歷史，計算機從產(chǎn)生到現(xiàn)在只不過50多年，而網(wǎng)絡(luò)的迅速發(fā)展也不過10年的時間。但是，計

4、算機和網(wǎng)絡(luò)對社會的影響已經(jīng)迅速擴大，甚至在改變?nèi)藗兊纳?。特別是90年代以來，多媒體和網(wǎng)絡(luò)技術(shù)的飛速發(fā)展正在以驚人的速度改變著人們的工作方式、交往方式和生活方式。正像著名的未來學家尼葛洛龐帝（1997）所說的：“數(shù)字不再只和計算有關(guān)，它決定我們的生存。”科學技術(shù)是第一生產(chǎn)力，是最先進的生產(chǎn)力。現(xiàn)在,已經(jīng)沒有人懷疑信息技術(shù)的發(fā)展將會引起人類社會全面和深刻的變革，使人類社會由工業(yè)社會邁向信息社會。隨著學校的規(guī)模不斷擴大，學生數(shù)量急增加，有關(guān)學生的各種信息量也成倍增長。面對龐大的信息量需要有學生管理系統(tǒng)來提高學生管理工作的效率。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、科學統(tǒng)計和快速查詢、修改、增加、刪

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

6、注冊、高級用戶注冊和超級用戶注冊。6） 登錄用戶密碼修改，用戶登錄到系統(tǒng)可進行相應(yīng)的用戶密碼修改。經(jīng)過分析，我們使用MICROSOFT公司的Visual Basic2005開發(fā)工具，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具，尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型，然后，對初始原型系統(tǒng)進行需求迭代，不斷修正和改進，直到形成用戶滿意的可行系統(tǒng)。2. 開發(fā)環(huán)境和工具2.1 Visual Basic簡介Visual Basic（VB）是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標準來說，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進程VB的中心思想就是要便于程序員使用，無論是新手或者專家。VB使用了可以簡單建立應(yīng)用程序的GUI系統(tǒng)，但是又可以開發(fā)相當復雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組建的屬性和方法。因為默認的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少

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

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

10、，但是可以關(guān)閉這個功能。VB使得大量的外界控件有了自己的生存空間。大量的第三方控件針對VB提供。VB也提供了建立、使用和重用這些控件的方法，但是由于語言問題，從一個應(yīng)用程序創(chuàng)建另外一個并不簡單。2.2 SQL Server 2005簡介SQL Server 2005是微軟公司比較穩(wěn)定的大型數(shù)據(jù)庫服務(wù)器，其性能指標在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢。用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進的數(shù)據(jù)庫構(gòu)架，與Windows NT/2000平臺緊密集成，具有完全的Web功能。通過對高端硬件平臺、網(wǎng)絡(luò)和存儲技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴展性和高可靠性，能在In

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

12、的一柄利器！另外，目前國內(nèi)的一些關(guān)于微軟平臺的數(shù)據(jù)庫編程教程，喜歡使用Access作為數(shù)據(jù)庫平臺的案例，并展開相關(guān)的內(nèi)容。這其實對于開發(fā)真正的數(shù)據(jù)庫應(yīng)用并沒有直接的幫助作用，只能使大家停留在應(yīng)用的初級階段。SQL Server 2005提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQL Server 2005可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠遠比Access強大的伸縮性。2.2.1 SQL Server 2005數(shù)據(jù)庫特點概括起來，SQL Server 2005數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點。1）、豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Ser

13、ver企業(yè)管理器是一個基于圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復數(shù)據(jù)、調(diào)度任務(wù)和管理警報、實現(xiàn)數(shù)據(jù)復制和轉(zhuǎn)換操作等。此外，SQL Server 2005還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡化了用戶操作，從而增強了系統(tǒng)的易用性。2）、動態(tài)自動管理和優(yōu)化功能。即使SQL Server數(shù)據(jù)庫管理員不做任何設(shè)置，SQL Server也能夠在運行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達到最優(yōu)性能，從而減輕管理員工作。3）、充分的Inter

14、net技術(shù)支持。Internet網(wǎng)絡(luò)發(fā)展到今天已經(jīng)成為一條重要的信息發(fā)布渠道，SQL Server增強了對Internet技術(shù)支持，它除保留了前期版本中的數(shù)據(jù)庫Web出版工具“Web助手”外，還增強了對XML和HTTP技術(shù)的支持，這使得電子商務(wù)系統(tǒng)能夠通過XML等訪問SQL Server數(shù)據(jù)庫系統(tǒng)，也擴展了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è)標準SQ

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

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

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

18、三個用戶群：普通用戶、高級用戶、超級用戶。普通用戶，主要的需求有學生成績查詢、學生基本信息查詢、普通用戶密碼修改。高級用戶，主要的需求有學生成績管理、學生信息管理、普通用戶和高級用戶密碼修改。超級用戶，主要的需求有學生成績管理、學生信息管理、登錄用戶名管理。3.2 可行性分析由于本系統(tǒng)管理的對象單一,且每個數(shù)據(jù)內(nèi)容具有較強的關(guān)聯(lián)性，涉及的計算過程不是很復雜。因此，比較適合于采用數(shù)據(jù)庫管理。在技術(shù)難度方面，由于有指導老師的指導和相關(guān)參考文獻，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。3.2.1經(jīng)濟可行性分析隨著科學技術(shù)的不斷發(fā)展與創(chuàng)新，計算機作用的日益突顯，計算機軟件成為人們解

19、決問題的一個有效手段，當然，它的作用也越來越重要。在當今信息時代，國民經(jīng)濟和國防建設(shè)、社會發(fā)展、人民生活都離不開軟件，軟件也無處不在。軟件產(chǎn)業(yè)也是一個新興產(chǎn)業(yè)，盡管起步晚，但是發(fā)展迅速，已經(jīng)成為增長最快的產(chǎn)業(yè)，是具有高投入/高產(chǎn)出、無污染、低能耗的綠色產(chǎn)業(yè)。學生成績管理系統(tǒng)是一個基于教務(wù)處數(shù)據(jù)庫的一個管理系統(tǒng)，對已經(jīng)使用的類似的系統(tǒng)進調(diào)查分析、類比，本課題具有的特點：開發(fā)工作量小，可以有兩個人合作開發(fā)或一個人獨立開發(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ù)器，其性能指標在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢。另外，SQL Server 2005可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠遠比Access強大的伸縮性。3.3系統(tǒng)功能流程圖本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應(yīng)的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總

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

22、表結(jié)構(gòu)如下所示：4.1.1各表的物理結(jié)構(gòu)表3.1.1 學生信息表表3.1.1 學生成績表1表3.1.1 學生檔案表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=學生信息庫;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ù)庫進行附加）點擊數(shù)據(jù)庫右鍵附加。圖附加數(shù)據(jù)庫第二部：安全性設(shè)置，展開安全性，sa用戶點擊右鍵屬性，進行安全性設(shè)置（密碼設(shè)置、默認數(shù)據(jù)庫設(shè)置），狀態(tài)選擇登錄啟用。圖 安全性設(shè)置第三步：服務(wù)器屬性設(shè)置，右擊服務(wù)器屬性，進行安全性設(shè)置。圖 服務(wù)器屬性設(shè)置第四步：重啟服務(wù)器。右擊服務(wù)器，選擇重啟服務(wù)器。圖 重啟服務(wù)器4.3數(shù)據(jù)庫調(diào)試數(shù)據(jù)庫成功附加、安全性設(shè)置、重啟。圖 數(shù)據(jù)庫5 .主要類容5.1登錄界面圖4.1登錄界面設(shè)計過程：用于輸入用戶名和密碼登錄，選擇相應(yīng)的用戶類型進入系統(tǒng)，若是用戶類型選擇錯誤則不能進入系統(tǒng)。沒有用戶名的可注冊用戶名

25、，如對系統(tǒng)操作有不了解的可點擊幫助，進入幫助界面。輸入用戶名和密碼后點擊確定判斷數(shù)據(jù)庫中的用戶是否為合法用戶。設(shè)計代碼：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=學生信息庫;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 學生成績管理系統(tǒng)As New 學生信息管理系統(tǒng) 學生成績管理系統(tǒng).添加DToolStripMenuItem.Enabled = False 學生成績管理系統(tǒng).修改KToolStripMenuItem.Enabled = False 學生成績管理系統(tǒng).刪除DToolStripMenuItem.Enabled = False 學生成績管理系統(tǒng).添加ToolStripMenuItem.Enabled = False 學生成績管理系統(tǒng).高級用戶信息管理ToolStri

28、pMenuItem.Enabled = False 學生成績管理系統(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=學生信息庫;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 學生成績管理系統(tǒng)As New 學生信息管理系統(tǒng) 學生成績管理系統(tǒng).添加ToolStripMenuItem.Enabled = False 學生成績管理系統(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=學生信息庫;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 學生成績管理系統(tǒng)As New 學生信息管理系統(tǒng) 學生成績管理系統(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學生成績管理界面圖4.2學生成績管理界面設(shè)計過程：所有功能都在菜單中打開來實現(xiàn)。在登錄時選擇的用戶類型限制本界面功能使用的權(quán)限，不同的用戶類型所顯示可用的功能不一樣。普通用戶可使用界面管理功能、學生信息管理中的查詢功能、登錄用戶管理中的普通用戶管理功能；高級用戶擁有普通用戶所有功能使用的權(quán)限

34、，外加登錄用戶管理中的高級用戶管理功能；超級用戶擁有高級用戶所有的功能使用的權(quán)限，外加超級用戶管理功能；所有登錄的用戶都可使用界面管理功能和幫助功能。不同的權(quán)限擁有不同的功能。設(shè)計代碼：Public Class 學生信息管理系統(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學生信息管理5.3.1學生信息添加圖4.3.1學生信息添加學生基本信息添加設(shè)計過程：選擇學生信息添加，在相應(yīng)的欄目填入或選擇相應(yīng)的內(nèi)容，點擊添加后數(shù)據(jù)存入學生信息表。點擊退出則退出整個管理系統(tǒng)，點擊返回則退回到學生成績管理界面。（選擇學生信息添加后學生成績添加為不可用）設(shè)計代碼：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(學號不能為空, 添加失敗, 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 學生信息表 & where 學號= & Me.TextBox1.Text

45、.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 學生信息表 & (學號,姓名,年齡,班級,籍貫,性別) 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 學號= & Me.TextBox1.Text.Trim & If link(str).Rows.Count = 0 Then str = Nothing str = insert into 成績表(學號,姓名) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) xuehao() End If str = select * from 成績表 & where 學號= & Me.TextBox1.Text.Trim & If link(

47、str).Rows.Count = 0 Then str = Nothing str = insert into 成績表(學號,姓名) values ( & Me.TextBox1.Text.Trim & , & Me.TextBox2.Text.Trim & ) link(str) MessageBox.Show(學生信息表記錄 & Me.TextBox1.Text & 已成功, 添加成功, MessageBoxButtons.OK, MessageBoxIcon.Information) xuehao() Else MessageBox.Show(記錄 & Me.TextBox1.Text

48、 & 已存在, 添加失敗, MessageBoxButtons.OK, MessageBoxIcon.Error) End If End IfEnd Sub學生成績信息添加設(shè)計過程：選擇學生成績添加，在相應(yīng)的欄目選擇添加內(nèi)容（上學期、下學期、科目、學號、成績），點擊添加后數(shù)據(jù)存入學生成績表（成績表1或者成績表2）。點擊退出則退出整個管理系統(tǒng)，點擊返回則退回到學生成績管理界面。（選擇學生成績添加后學生信息添加為不可用）設(shè)計代碼：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 學號= & 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學生信息修改圖4.3.2學生信息修改學生基本信息修改設(shè)計過程：選擇修改信息類型為學生信息，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學號、類型、修改內(nèi)容）。點擊修改讀取數(shù)據(jù)庫中的學生信息表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。設(shè)計代碼：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 學生信息表set & Me.ComboBox4.Text.Trim & = & Me.TextBox1.Text.Trim & where 學號= & Me.ComboBox3.Text.Trim & End If If Not link(str).Rows.Count Then MessageBox.Show(修改成功！, 提示, MessageBoxButtons.OK, MessageBoxIcon.Question) End IfEnd Sub學生成績信息修改設(shè)計過程：選擇修改信息類型為學生成績，在相應(yīng)的欄目選擇或填入相應(yīng)的內(nèi)容（學號、選擇課程、改成績）。點擊修改讀取數(shù)據(jù)庫中的成績表的相應(yīng)內(nèi)容，改為填入的所要修改的內(nèi)容。設(shè)計代碼：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 學號= & Me.ComboBox5.Text.Trim & ElseIf Me.RadioButto