VisualBasicSQL學(xué)生信息管理系統(tǒng)設(shè)計(jì)說明

1、 . Visual_Basic SQL學(xué)生信息管理系統(tǒng)畢業(yè)設(shè)計(jì)摘 要本系統(tǒng)后臺(tái)數(shù)據(jù)庫采用SQL Server 2008建立，前端應(yīng)用程序采用Visual Basic 6.0開發(fā)。在Visual Basic 6.0中對(duì)Microsoft Active Data Object 2.7Library部件的引用，并通過文件DSN的方式對(duì)數(shù)據(jù)庫進(jìn)行訪問和操作。此學(xué)生信息管理系統(tǒng)針對(duì)學(xué)院的具體情況進(jìn)行設(shè)計(jì)，管理員登錄后能對(duì)班級(jí)信息、課程信息、學(xué)生基本信息、學(xué)生獎(jiǎng)懲信息進(jìn)行管理，包括對(duì)信息的添加、刪除和更改，同時(shí)管理員能對(duì)訪問者的權(quán)限進(jìn)行管理。教師用戶能對(duì)自己所擔(dān)任課程進(jìn)行課表查詢、成績(jī)管理。學(xué)生用戶登錄后

2、能對(duì)自己的基本信息進(jìn)行確認(rèn)、查詢成績(jī)以與申請(qǐng)獎(jiǎng)學(xué)金。本系統(tǒng)經(jīng)過多臺(tái)計(jì)算機(jī)測(cè)試，運(yùn)行正常，相對(duì)穩(wěn)定。且系統(tǒng)初具規(guī)模，基本能勝任學(xué)院的學(xué)生綜合信息管理。關(guān)鍵詞： 學(xué)生管理系統(tǒng) 信息管理系統(tǒng) 管理系統(tǒng) 學(xué)生信息管理AbstractsThis system use SQL Server 2008 to build the backstage database, and use Visual Basic 6.0 to development the applicationprogram. In the Visual Basic, we select the Microsoft Active Data O

3、bject 2.7Library then we can opera the Database through file DSN.This student information system build for Sichuan Media College based on her detail, Administrators could management the class information, class information, students information after they signed in, and they also have right to build

4、, delete or change information, whats more, Administrators can management the right that who use this information system. Teachers can management their classes score, and they have right to know their course arrangement. Students can confirmation themselves information after they signed in, and they

5、 can check their course score. Applying for a scholarship in this system is a good choice too.The Sichuan media college students' information management system has tested on many PCs, they work quietly, safety and fast. And this system is a large system, could work for SichuanMediaCollege.Keywor

6、ds:Students management systemMISManagementsystemStudentsinformation management目 錄1前言12開發(fā)工具介紹22.1SQL Server 2008簡(jiǎn)介22.2Visual Basic 6.0簡(jiǎn)介32.3ADO組件的主要對(duì)象與其功能52.4本系統(tǒng)Visual Basic 6.0訪問數(shù)據(jù)庫方法53系統(tǒng)分析與設(shè)計(jì)73.1系統(tǒng)功能分析73.2系統(tǒng)結(jié)構(gòu)圖73.3系統(tǒng)ER圖83.4數(shù)據(jù)庫設(shè)計(jì)84系統(tǒng)具體實(shí)現(xiàn)114.1模塊設(shè)計(jì)114.2登錄窗體設(shè)計(jì)124.3系統(tǒng)主界面的設(shè)計(jì)154.4班級(jí)信息管理設(shè)計(jì)184.5學(xué)生基本信息維護(hù)204.

7、6課程信息維護(hù)224.7教務(wù)信息模塊設(shè)計(jì)234.8獎(jiǎng)懲信息模塊設(shè)計(jì)264.9學(xué)費(fèi)信息模塊設(shè)計(jì)284.10管理員信息模塊設(shè)計(jì)305結(jié)論33致34參考文獻(xiàn)3535 / 381 前言學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的容對(duì)于學(xué)校的決策者和管理者來說都至關(guān)重要。長(zhǎng)期以來人們使用傳統(tǒng)紙質(zhì)檔案的方式管理學(xué)生信息，這種管理方式存在著許多缺點(diǎn)，如：效率低、性差，而且長(zhǎng)時(shí)間會(huì)產(chǎn)生大量的文件和數(shù)據(jù)，這對(duì)于查找、更新和維護(hù)都帶來了不便。隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，逐漸應(yīng)用到各個(gè)領(lǐng)域。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理，具有著紙質(zhì)檔案管理所無法比擬的優(yōu)點(diǎn)，例如：檢索迅速

8、、查找方便、可靠性高、存儲(chǔ)量大、性好、壽命長(zhǎng)、成本低等。這些優(yōu)點(diǎn)能夠極提高學(xué)生信息管理的效率，也是高校對(duì)信息的科學(xué)化、正規(guī)化、無紙化管理的發(fā)展方向。本文介紹了利用SQL server 2008建立數(shù)據(jù)庫，Visual Basic 6.0作為前臺(tái)軟件開發(fā)工具開發(fā)的學(xué)生管理系統(tǒng)。該系統(tǒng)從我校的實(shí)際情況出發(fā)，對(duì)我校在校學(xué)生的基本信息進(jìn)行綜合管理，包括學(xué)生班級(jí)信息、課程信息、成績(jī)信息、獎(jiǎng)懲信息，同時(shí)設(shè)置了三種不同的訪問權(quán)限，分別是管理員、教師和學(xué)生，根據(jù)數(shù)據(jù)庫中的具體數(shù)據(jù)自動(dòng)分配其登錄后的操作權(quán)限。管理員具有最高訪問權(quán)限，能對(duì)所有信息進(jìn)行綜合編輯，教師用戶主要對(duì)自己所擔(dān)任課程進(jìn)行成績(jī)登錄，學(xué)生用戶能對(duì)

9、自己的基本信息進(jìn)行查詢和確認(rèn)，包括成績(jī)信息、獎(jiǎng)懲信息和密碼的更改。本系統(tǒng)初具規(guī)模，能勝任在校學(xué)生的基本信息的綜合管理工作，并且基于Visual basic進(jìn)行開發(fā)的軟件具有界面友好、操作簡(jiǎn)便的優(yōu)點(diǎn)。系統(tǒng)部對(duì)每步的操作均設(shè)置了相關(guān)提示信息，使用者不需對(duì)該軟件進(jìn)行長(zhǎng)時(shí)間的學(xué)習(xí)即能使用，達(dá)到了方便快捷又不失功能強(qiáng)大的特點(diǎn)。2 開發(fā)工具介紹2.1 SQL Server 2008簡(jiǎn)介SQL Server 2008是微軟公司最新版的大型數(shù)據(jù)庫服務(wù)器，其性能指標(biāo)在各方面都有趕超Oracle數(shù)據(jù)庫的趨勢(shì)。用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫構(gòu)架，與Windows NT/2000平臺(tái)緊

10、密集成，具有完全的Web功能。通過對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為WEB站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在Internet商業(yè)領(lǐng)域快速建立并應(yīng)用。SQL Server 2008提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比Access大。另外，SQL Server 2008可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比Access強(qiáng)大的伸縮性。2.1.1 SQL Server 數(shù)據(jù)庫特點(diǎn)概括起來，SQL Server 2008數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。（1）豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。SQL Server企業(yè)管理器是一個(gè)基于圖形用戶界面（

11、GUI）的集成管理工具，利用它可以配置管理SQL Server服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對(duì)象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報(bào)、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。此外，SQL Server 2008還提供了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ù)庫管理員不做任何設(shè)置，SQL Server也能夠在運(yùn)行過程中根據(jù)環(huán)境配置和用戶訪問情況動(dòng)態(tài)自動(dòng)配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。（3）豐富的編程接口工具，使用戶開發(fā)SQL Server數(shù)據(jù)庫

12、應(yīng)用程序更加靈活。SQL Server提供了Transact-SQL、DB-Library for C、嵌入式SQL（ESQL）等開發(fā)工具，Transact-SQL與工業(yè)標(biāo)準(zhǔn)SQL語言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。此外，SQL Server 2008還支持ODBC、OLE DB、ADO規(guī)，可以使用ODBC、OLE DB、ADO接口訪問SQL Server數(shù)據(jù)庫。（4）具有很好的伸縮性和可靠性。SQL Server 2008既能運(yùn)行在Windows桌面操作系統(tǒng)下，又可運(yùn)行在服務(wù)器操作系統(tǒng)（包括Windows NT和Windows 2000）下；既能運(yùn)行在單CPU計(jì)算機(jī)

13、上，又能運(yùn)行在對(duì)稱多處理系統(tǒng)下。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。2.2 Visual Basic 6.0簡(jiǎn)介微軟公司的Visual Basic 6.0是Windows應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。利用VISUAL BASIC 程序設(shè)計(jì)語言，可以很方便地設(shè)計(jì)出在WINDOWS環(huán)境下運(yùn)行的應(yīng)用程序。因此，本系統(tǒng)采用Visual Basic設(shè)計(jì)

14、前端軟件。2.2.1 Visual Basic的編程特點(diǎn)Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個(gè)新概念，利用Visual Basic的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的和嵌入、動(dòng)態(tài)庫、ActiveX等技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。利用Visual Basic語言編程有以下特點(diǎn)：（1）可視化程序設(shè)計(jì)在Visual Basic中開發(fā)的應(yīng)用程序，有豐富的圖形界面，減少了開發(fā)圖形界面而添加的代碼，在設(shè)計(jì)圖形界面的過程中只需設(shè)置 ActiveX控件的屬性即可。（2）強(qiáng)大的數(shù)據(jù)庫功能隨著Visual Basic 語言的向前發(fā)展，在數(shù)據(jù)庫和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯，利用Visu

15、al Basic 中的ODBC（開放式的數(shù)據(jù)庫訪問技術(shù)）可以很方便地開發(fā)出自己的數(shù)據(jù)庫應(yīng)用程序。同時(shí)，利用 Visual Basic自帶的可視化數(shù)據(jù)管理器和報(bào)表生成器，也可以在Visual Basic中完成數(shù)據(jù)庫的開發(fā)工作。（3）其他特性在Visual Basic以前的版本中，由于仍然擺脫不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。從Visual Basic5.0版本開始，在Visual Basic 中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得Visual Basic的代碼效率有了很大的提高，同時(shí)執(zhí)行的速度也加快了解30%(同Visual Basic4.0

16、相比)。2.2.2 Visual Basic支持的數(shù)據(jù)庫系統(tǒng)Visual Basic支持對(duì)多格式的數(shù)據(jù)庫的訪問和維護(hù)，無論是Access還是Foxpro中創(chuàng)建的數(shù)據(jù)庫，都可以用Visual Basic打開，對(duì)其進(jìn)行查詢、修改和刪除等操作。事實(shí)上，Visual Basic幾乎支持對(duì)市面上所有數(shù)據(jù)庫的訪問。Visual Basic可以訪問的數(shù)據(jù)庫可以簡(jiǎn)單的分為三類，即：Microsoft Access格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和ODBC數(shù)據(jù)庫。Visual Basic對(duì)多種數(shù)據(jù)庫格式的支持，大大的增強(qiáng)了開發(fā)數(shù)據(jù)庫應(yīng)用程序的能力。2.2.3 數(shù)據(jù)庫開發(fā)中的三大工具Visual Basic在數(shù)據(jù)庫應(yīng)用程序

17、的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（Data Manager），數(shù)據(jù)控件（Data Control）以與數(shù)據(jù)編程對(duì)象（數(shù)據(jù)訪問對(duì)象（DAO）遠(yuǎn)程數(shù)據(jù)對(duì)象（RDO）和ActiveX數(shù)據(jù)對(duì)象（ADO）等工具，協(xié)助設(shè)計(jì)人員輕松的連接數(shù)據(jù)庫文件，并訪問其中的數(shù)據(jù)，在功能方面與其他一些專業(yè)數(shù)據(jù)庫軟件（如FoxPro，Microsoft Access等）不相上下。數(shù)據(jù)管理器（Data Manager）是Visual Basic已有的老成員之一，Jet數(shù)據(jù)庫引擎（Database Engine）可以幫助Visual Basic程序元件立即維護(hù)數(shù)據(jù)庫容，并可通過輸入查詢或查找數(shù)據(jù)庫信息，而不必通過其他數(shù)據(jù)庫軟件另

18、外去設(shè)計(jì)數(shù)據(jù)庫。數(shù)據(jù)控件是Visual Basic所提供的基本控件成員之一，它使得設(shè)計(jì)者省下一堆程序代碼編寫的工作，能夠輕松的設(shè)計(jì)與維護(hù)數(shù)據(jù)庫容。數(shù)據(jù)控件可以通過一些屬性的設(shè)置去某個(gè)數(shù)據(jù)庫文件，但是它本身并無法顯示數(shù)據(jù)庫各個(gè)記錄的容，必須在搭配其他具有數(shù)據(jù)感知（Data Aware）功能的控件對(duì)應(yīng)并顯示一個(gè)字段容，以方便地進(jìn)行記錄的瀏覽與編輯工作。Visual Basic提供的數(shù)據(jù)訪問對(duì)象（Data Access Object；DAO）讓程序設(shè)計(jì)者擁有更大的發(fā)揮空間。借助程序代碼編寫，直接控制Jet數(shù)據(jù)庫引擎，配合數(shù)據(jù)庫控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。RDO是處理遠(yuǎn)程數(shù)據(jù)庫的一

19、些專門需要的對(duì)象集合。使用RDO可以不用本地的查詢機(jī)就能訪問ODBC數(shù)據(jù)源，這無疑提高了應(yīng)用程序的性能。ADO是Visual Basic 6.0中新增的對(duì)象，它是一個(gè)更簡(jiǎn)單的對(duì)象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對(duì)本地和遠(yuǎn)程數(shù)據(jù)庫均有共同的界面，可以取代DAO和RDO。ADO更易于使用。在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫與數(shù)據(jù)庫表，并采用了ADO+ODBC數(shù)據(jù)訪問技術(shù)。2.3 ADO組件的主要對(duì)象與其功能ADO組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對(duì)象：（1）Connection對(duì)象：提供對(duì)數(shù)據(jù)庫的連接服務(wù)。（2）Command對(duì)象：定義對(duì)數(shù)據(jù)庫源操作的命令。（3）Records

20、et對(duì)象：由數(shù)據(jù)庫服務(wù)器所返回的記錄集。Recordset對(duì)象的LockType屬性的設(shè)置值如下表所示：表2-1 Recordset對(duì)象的LockType屬性的設(shè)置值常量值說明adLockReadOnly1默認(rèn)值，只讀。無法更改數(shù)據(jù)adLockPressimistic2保守式記錄鎖定（逐條）。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。adLockOptimistic3開放式記錄鎖定（逐條）。提供者使用開放式鎖定，只在調(diào)用Updata方法時(shí)鎖定記錄。adLockBatchOptimistic4開放式批更新。用于與立即更新模式相反的批更新模式。（4）Fields對(duì)象

21、：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段（5）Parametes對(duì)象：表示Command對(duì)象的參數(shù)。（6）Property對(duì)象：?jiǎn)为?dú)的一個(gè)Property對(duì)象，提供屬性功能。（7）Error對(duì)象：提供處理錯(cuò)誤的功能。使用ADO對(duì)象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯(cuò)誤信息等。2.4 本系統(tǒng)Visual Basic 6.0訪問數(shù)據(jù)庫方法在Visual Basic 6.0的工程中，選擇菜單“工程”“引用”命令，在“可用的引用”中選擇Microsoft Active Data Object 2.7Library選項(xiàng)，這樣就在程序中加入

22、了ADO的引用。ADO通過ODBC方式訪問數(shù)據(jù)庫可以使用用戶DSN、系統(tǒng)DSN和文件DSN，鑒于安全性的考慮，一般不使用系統(tǒng)DSN，本系統(tǒng)選用文件DSN。在設(shè)計(jì)過程中設(shè)置本系統(tǒng)的文件DSN為first.dsn.通過文件DSN訪問數(shù)據(jù)庫的代碼如下：Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, Optional enableWrite As Boolean = True) Dim con As ADODB.ConnectionSet con = New ADODB.Connectioncon.Open

23、 "FileDSN=First.dsn"Set rst = New ADODB.RecordsetIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenDynamic, adLockOptimisticElserst.Open Trim$(SQL), con, adOpenDynamic, adLockReadOnlyEnd IfEnd Function3 系統(tǒng)分析與設(shè)計(jì)3.1 系統(tǒng)功能分析隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生的數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。通過這樣的系統(tǒng)可以做到信息的規(guī)管理、快速查詢、修改、增加、刪除

24、等，從而減少管理方面的工作量。設(shè)計(jì)容為管理員、教師和學(xué)生用戶登錄該系統(tǒng)進(jìn)行八個(gè)模塊操作：（1）學(xué)生基本情況更新：增加、修改、刪除、查詢（按學(xué)號(hào)）（2）班級(jí)信息維護(hù)：添加班級(jí)、刪除、編輯、查詢（按班級(jí)編號(hào)）（3）課程信息維護(hù)：添加課程、刪除、編輯（4）成績(jī)管理：錄入成績(jī)（教師用戶）、查詢成績(jī)（管理員、學(xué)生用戶）（5）獎(jiǎng)懲信息維護(hù)：獎(jiǎng)學(xué)金申請(qǐng)（學(xué)生用戶）、獎(jiǎng)學(xué)金評(píng)定（管理員用戶）、懲處信息的維護(hù)（管理員）（6）學(xué)費(fèi)信息：費(fèi)用設(shè)置、欠費(fèi)處理、繳費(fèi)（7）密碼更改（8）管理員角色添加（管理員用戶）3.2 系統(tǒng)結(jié)構(gòu)圖圖3.1 系統(tǒng)結(jié)構(gòu)圖3.3 系統(tǒng)ER圖圖3.2 系統(tǒng)E-R圖3.4 數(shù)據(jù)庫設(shè)計(jì)本系統(tǒng)通過S

25、QL server 2008建立后臺(tái)數(shù)據(jù)庫，數(shù)據(jù)庫共由11個(gè)表組成，分別是：訪問權(quán)限信息表（訪問權(quán)限）、學(xué)生基本情況信息表（學(xué)生信息）、班級(jí)信息表（班級(jí)信息）、課程信息、教師信息、選課表、處分信息、獎(jiǎng)學(xué)金、學(xué)費(fèi)信息、繳費(fèi)信息、助學(xué)貸款信息表（貸款），下文將對(duì)主要表格進(jìn)行簡(jiǎn)單介紹。（1） 訪問權(quán)限表3-1 訪問權(quán)限表設(shè)計(jì) 名稱字段名稱類型長(zhǎng)度訪問賬號(hào)賬號(hào)varchar14密碼密碼varchar14權(quán)限等級(jí)權(quán)限varchar8（2） 學(xué)生信息表3-2 學(xué)生基本信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOTvarchar8NOT班級(jí)編號(hào)varchar7NOT性別varchar2NO

26、T年級(jí)varchar4NOT政治面貌varchar8NULL民族varchar4NOT籍貫varchar4NOT號(hào)varchar18NOT學(xué)籍狀態(tài)varchar4NULL（3） 班級(jí)信息表3-3 班級(jí)信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值班級(jí)編號(hào)varchar7NOT年級(jí)varchar4NOT班級(jí)名稱varchar30NOT班級(jí)簡(jiǎn)稱varchar16NULL人數(shù)Int5NOT班主任varchar8NOT（4） 課程信息表3-4 課程信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值課程代碼varchar5NOT課程名稱varchar50NOT課程性質(zhì)varchar4NOT上課時(shí)間varchar20NOT上課地

27、點(diǎn)varchar14NULL任課教師varchar8NOT學(xué)分int2NOT（5） 選課表表3-5 選課表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOT課程代碼varchar5NOT成績(jī)float20NULL（6） 教師信息表3-6 教師表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值賬號(hào)varchar14NOTvarchar8NOT任課科目varchar50NOT（7） 處分信息表3-8 處分信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NULL值學(xué)號(hào)varchar14NOT處分等級(jí)varchar12NOT說明varchar50NOT填報(bào)時(shí)間dateNOT（8） 獎(jiǎng)學(xué)金表3-9 獎(jiǎng)學(xué)金信息表設(shè)計(jì)字段名稱類型長(zhǎng)度NU

28、LL值學(xué)號(hào)varchar14NOT平均成績(jī)float20NOT申請(qǐng)標(biāo)記varchar4NULL4 系統(tǒng)具體實(shí)現(xiàn)本部分主要容為本系統(tǒng)的各個(gè)運(yùn)行界面以與主要界面的源代碼。4.1 模塊設(shè)計(jì)加一個(gè)模塊module1，該部分主要包括一些公共變量的定義、ExecuteSQL等執(zhí)行過程定義以與自動(dòng)把備份的數(shù)據(jù)庫文件還原到SQL Server 2008 中的代碼設(shè)計(jì)。4.1.1 公共變量Public 權(quán)限 As StringPublic 賬號(hào)1 As String 用于存儲(chǔ)賬號(hào)和權(quán)限，在訪問過程中分配其訪問權(quán)限以與當(dāng)前登陸者密碼的更改。4.1.2 SQL執(zhí)行語句Public Function ExecuteS

29、QL(ByVal SQL As String, rst As ADODB.Recordset, Optional enableWrite As Boolean = True) Dim con As ADODB.ConnectionSet con = New ADODB.Connectioncon.Open "FileDSN=First.dsn"'打開文件DSNSet rst = New ADODB.RecordsetIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenDynamic, adLockOptimistic

30、以讀寫方式打開數(shù)據(jù)文件Elserst.Open Trim$(SQL), con, adOpenDynamic, adLockReadOnly以只讀方式打開數(shù)據(jù)文件End IfEnd Function4.1.3 判斷數(shù)據(jù)庫中是否存在指定記錄Public Function DBExist(ByVal SQL As String) As Boolean '判斷數(shù)據(jù)庫中是否存在指定記錄Dim rst As ADODB.RecordsetDim con As ADODB.ConnectionSet con = New ADODB.ConnectionSet rst = New ADODB.Rec

31、ordsetcon.Open "filedsn=first.dsn"rst.Open Trim$(SQL), con, adOpenStatic, adLockOptimisticIf rst.EOF = True ThenDBExist = False '沒有此記錄ElseDBExist = True '有此記錄End IfEnd Function4.1.4 DataGride中顯示數(shù)據(jù)Public Function viewData(ByVal SQL As String, dg As DataGrid, Optional enableWrite As

32、Boolean = True) As Integer 'DataGride中顯示數(shù)據(jù)Dim rst As ADODB.RecordsetDim con As ADODB.ConnectionSet con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.Open "filedsn=first.dsn"If enableWrite Thenrst.Open Trim$(SQL), con, adOpenStatic, adLockOptimisticSet dg.DataSource = rstdg.Ref

33、reshElserst.Open Trim$(SQL), con, adOpenStatic, adLockReadOnlySet dg.DataSource = rstdg.RefreshEnd IfEnd Function4.2 登錄窗體設(shè)計(jì)添加一個(gè)窗體（登錄.frm），該部分主要包括用戶的驗(yàn)證以與權(quán)限的限制。登錄功能的程序代碼：Option ExplicitDim SQL As StringDim rst As ADODB.RecordsetPrivate Sub Command1_Click()If Text1.Text = "" Or Text2.Text = &

34、quot;" ThenMsgBox "請(qǐng)你填寫完整！", vbOKOnly + vbExclamation, "提示"ElseSQL = "select 賬號(hào),權(quán)限 from 訪問權(quán)限 where 賬號(hào)='" + Trim(Text1.Text) + "'and 密碼= '" + Trim(Text2.Text) + "'"Call DBExist(SQL)If DBExist(SQL) = True Then賬號(hào)1 = Trim(Text1.Text)

35、Call ExecuteSQL(SQL, rst, False)權(quán)限 = rst.Fields(1)ElseMsgBox "密碼錯(cuò)誤", vbOKOnly + vbExclamation, "警告"Text2.Text = ""End IfEnd IfIf 權(quán)限 = "學(xué)生" Then學(xué)生.Show登錄.HideEnd IfIf 權(quán)限 = "教師" Then教師.Show登錄.HideEnd IfIf 權(quán)限 = "管理員" ThenForm2.Show登錄.HideEnd I

36、fEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End SubPrivate Sub Command3_Click()EndEnd SubPrivate Sub form_load()Text1.Text = ""Text2.Text = ""End Sub圖4.1 登錄界面當(dāng)在圖4.1中填寫不完整點(diǎn)擊“登陸”按鈕，則彈出報(bào)錯(cuò)信息，如圖4.2所示：圖4.2 信息未填寫完整當(dāng)輸入用戶名或密碼錯(cuò)誤時(shí)，系統(tǒng)統(tǒng)一定義為密碼填寫錯(cuò)誤，彈出如圖

37、4.3所示錯(cuò)誤信息：圖4.3 密碼錯(cuò)誤4.3 系統(tǒng)主界面的設(shè)計(jì)4.3.1 管理員身份進(jìn)入系統(tǒng)以管理員的賬號(hào)“男”與正確的密碼“17”進(jìn)入到系統(tǒng)，系統(tǒng)會(huì)自動(dòng)根據(jù)訪問權(quán)限中的數(shù)據(jù)記錄分配其訪問權(quán)限，運(yùn)行結(jié)果如下圖所示：圖4.4 系統(tǒng)主頁系統(tǒng)主界面的設(shè)計(jì)過程：添加Form2.frm，點(diǎn)擊Visual Basic 6.0中的工具，對(duì)系統(tǒng)主界面的菜單進(jìn)行編輯，編輯過程如下圖所示：圖4.5 菜單編輯過程菜單功能的程序代碼：Private Sub form_load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPictu

38、re("E:VB學(xué)生信息1.jpg")End SubPrivate Sub 班級(jí)維護(hù)_Click()Form2.Hidebanji.ShowEnd SubPrivate Sub 處分信息_Click()cfxx.ShowForm2.HideEnd SubPrivate Sub 管理員密碼修改_Click()密碼.ShowForm2.HideEnd SubPrivate Sub 管理員信息管理_Click()管理員.ShowForm2.HideEnd SubPrivate Sub 獎(jiǎng)學(xué)金評(píng)定_Click()jxj.ShowForm2.HideEnd SubPrivate Su

39、b 課程信息維護(hù)_Click()Form2.Hidekcxx.ShowEnd SubPrivate Sub 欠費(fèi)處理_Click()qfcl.ShowForm2.HideEnd SubPrivate Sub 退出系統(tǒng)_Click()EndEnd SubPrivate Sub 學(xué)費(fèi)設(shè)置_Click()xfsz.ShowForm2.HideEnd SubPrivate Sub 學(xué)生繳費(fèi)_Click()Form2.Hidexsjf.ShowEnd SubPrivate Sub 學(xué)生信息_Click()Form2.Hidecjcx.ShowEnd SubPrivate Sub 學(xué)生信息維護(hù)_Click

40、()Form2.Hidexsxx.ShowEnd SubPrivate Sub 學(xué)生選課_Click()Form2.Hidexsxk.ShowEnd Sub4.3.2 教師登錄系統(tǒng)主界面設(shè)計(jì)添加窗體教師.frm，如果教師鍵入正確的密碼和賬號(hào)就進(jìn)入到該界面，運(yùn)行效果如圖4.6所示，其設(shè)計(jì)過程與管理員主界面的設(shè)計(jì)過程相似。教師登錄主界面的菜單功能代碼為：Private Sub form_load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPicture("E:VB學(xué)生信息1.jpg")En

41、d SubPrivate Sub 成績(jī)管理_Click()成績(jī)錄入.Show教師.HideEnd SubPrivate Sub 密碼修改_Click()教師密碼.Show教師.HideEnd SubPrivate Sub 退出系統(tǒng)_Click()EndEnd Sub圖4.6 教師登錄主界面4.3.3學(xué)生登錄系統(tǒng)主界面設(shè)計(jì)學(xué)生登錄主界面的設(shè)計(jì)與管理員、教師登錄的設(shè)計(jì)一致。4.4 班級(jí)信息管理設(shè)計(jì)該模塊可以通過輸入班級(jí)編號(hào)進(jìn)行搜索顯示，對(duì)具體班級(jí)進(jìn)行編輯，也可以全部顯示查看。添加新的班級(jí)信息時(shí)在系統(tǒng)所提供的界面進(jìn)行輸入，點(diǎn)擊添加進(jìn)行保存，刪除班級(jí)信息時(shí)需要在班級(jí)編號(hào)欄輸入擬刪除班級(jí)的班級(jí)編號(hào)，然后

42、點(diǎn)擊刪除按鈕。整個(gè)顯示過程是通過Visual Basic 中的DataGrid空間顯示，進(jìn)行添加、刪除或搜索操作后DataGrid會(huì)進(jìn)行刷新顯示新的數(shù)據(jù)，在操作過程中如果遇到非法操作（如：不允許空值時(shí)無輸入信息，輸入文本超出限制長(zhǎng)度等）時(shí)，系統(tǒng)會(huì)做出相關(guān)提示或警告。該模塊按“顯示全部”功能運(yùn)行時(shí)的界面如圖4.7所示：圖4.7 班級(jí)信息顯示全部界面該模塊按“搜索”功能運(yùn)行時(shí)的界面如圖4.8所示：圖4.8 班級(jí)信息管理搜索功能界面該模塊按“刪除”功能運(yùn)行時(shí)的界面如圖4.9所示：圖4.9刪除功能4.5 學(xué)生基本信息維護(hù)4.5.1 學(xué)生信息維護(hù)簡(jiǎn)介學(xué)生信息維護(hù)界面的設(shè)計(jì)包含2個(gè)單選框、11個(gè)文本框、1

43、個(gè)DataGrid控件以與6個(gè)按鈕。單選框用于確定搜索條件，系統(tǒng)設(shè)置了按班級(jí)搜索和按學(xué)號(hào)搜索兩大功能，搜索結(jié)果用DataGrid控件刷新顯示。界面下方的文本框用于添加用戶時(shí)資料的填寫，點(diǎn)擊相應(yīng)的“添加”按鈕即可對(duì)數(shù)據(jù)庫進(jìn)行插入記錄操作，“刪除”按鈕對(duì)應(yīng)SQL中的Delete語句，操作過程中均有相關(guān)警告和提示，方便用戶使用。運(yùn)行界面如圖4.10所示：圖4.10 學(xué)生信息維護(hù)運(yùn)行界面4.5.2 學(xué)生信息維護(hù)核心代碼介紹1 搜索功能SQL = "select * from 學(xué)生信息 where 學(xué)號(hào) = '" + Trim(Text1.Text) + "'

44、;"Call DBExist(SQL) 查詢數(shù)據(jù)庫中是否存在要搜索的記錄If DBExist(SQL) = True Then '記錄中沒有記錄Call viewData(SQL, DataGrid1, True) 在DataGrid控件中進(jìn)行顯示搜索條件為班級(jí)時(shí)，代碼相似。按班級(jí)搜索功能的運(yùn)行界面如圖4.11所示。圖4.11按班級(jí)搜索運(yùn)行界面2 添加功能SQL = "insert into 學(xué)生信息 values('" + Trim(ID.Text) + "','" + Trim(xingming.Text)

45、+ "','" + Trim(class.Text) + "','" + Trim(sex.Text) + "','" + Trim(grade.Text) + "','" + Trim(zz.Text) + "','" + Trim(mz.Text) + "','" + Trim(jg.Text) + "','" + Trim(sfz.Text

46、) + "','" + Trim(xj.Text) + "')"Call ExecuteSQL(SQL, rst, True)SQL = "select * from 學(xué)生信息 order by 學(xué)號(hào) asc"Call viewData(SQL, DataGrid1, True) 在DataGrid控件中進(jìn)行顯示3 刪除功能rst.Open "delete from 學(xué)生信息 where 學(xué)號(hào)= '" + Trim(ID.Text) + "'", con,

47、 adOpenStatic, adLockOptimisticrst.Open "select * from 學(xué)生信息", con, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rstDataGrid1.Refresh刪除學(xué)生信息的運(yùn)行如圖4.12所示：圖4.12刪除學(xué)生信息運(yùn)行界面4.6 課程信息維護(hù)課程信息維護(hù)的功能是對(duì)全校的課程進(jìn)行統(tǒng)一安排，如：上課的時(shí)間、地點(diǎn)、任課教師等，該模塊具有添加和刪除功能，在DataGrid控件中進(jìn)行實(shí)時(shí)的刷新顯示。運(yùn)行界面如圖4.13所示。顯示代碼：SQL = &quo

48、t;select * from 課程信息 order by 課程代碼 asc"Call viewData(SQL, DataGrid1, True) 在DataGrid中顯示DataGrid1.Refresh圖4.13 課程信息維護(hù)運(yùn)行界面4.7 教務(wù)信息模塊設(shè)計(jì)4.7.1 學(xué)生選課該模塊分為管理員和學(xué)生用戶兩種模式，其功能的主要對(duì)象是學(xué)生用戶。學(xué)生登錄后系統(tǒng)會(huì)自動(dòng)選取“選課表”中與登錄學(xué)號(hào)對(duì)應(yīng)的選課表容，學(xué)生選課時(shí)輸入相應(yīng)的課程代碼并點(diǎn)擊“選課”即可添加課程，同時(shí)系統(tǒng)提供了刪除課程的功能，選課容以與課程信息的容均采用DataGrid控件進(jìn)行顯示。選課代碼：SQL = "s

49、elect 課程代碼 from 選課表 where 課程代碼= '" + Trim(Text1.Text) + "'and 學(xué)號(hào)='" + 賬號(hào)1 + "'"Call DBExist(SQL)If DBExist(SQL) = True ThenMsgBox "該課程已選！", vbExclamation, "警告"ElseSQL = "insert into 選課表 values('" + 賬號(hào)1 + "','&quo

50、t; + Trim(Text1.Text) + "','')"Call ExecuteSQL(SQL, rst, True)SQL = "select * from 課程信息 where 課程代碼 in ( select 課程代碼 from 選課表 where 學(xué)號(hào)='" + 賬號(hào)1 + "' )order by 課程代碼 asc"Call viewData(SQL, DataGrid1, True)DataGrid1.RefreshEnd If管理員進(jìn)行輔助選課的運(yùn)行結(jié)果如圖4.14所示：圖4

51、.14 管理員輔助選課運(yùn)行結(jié)果由于選課的主要服務(wù)對(duì)象是學(xué)生，因此學(xué)院學(xué)生信息管理系統(tǒng)的選課功能對(duì)學(xué)生開放，學(xué)生選課的運(yùn)行效果如圖4.15所示：圖4.15 學(xué)生選課運(yùn)行界面4.7.2 學(xué)生成績(jī)查詢系統(tǒng)對(duì)三種訪問角色（教師、管理員、學(xué)生）都提供學(xué)生成績(jī)查詢，教師、管理員查詢成績(jī)時(shí)需要輸入相應(yīng)的學(xué)號(hào)進(jìn)行搜索查看，系統(tǒng)對(duì)學(xué)生用戶則采用了公共變量的方式直接顯示該生所有成績(jī)。同時(shí)，該模塊還自動(dòng)提供平均成績(jī)的生成并，如果平均成績(jī)大于或等于85分，則會(huì)將該生的信息添加到“獎(jiǎng)學(xué)金”數(shù)據(jù)表。另外，系統(tǒng)提供的“申請(qǐng)獎(jiǎng)學(xué)金”按鈕針對(duì)學(xué)生用戶，如果點(diǎn)擊此按鈕，則“獎(jiǎng)學(xué)金”數(shù)據(jù)表會(huì)做記錄，系統(tǒng)采取進(jìn)一步措施。平均成績(jī)生成

52、代碼：SQL = "select Avg(成績(jī)) from 選課表 where 學(xué)號(hào) = '" + 賬號(hào)1 + "'"Call ExecuteSQL(SQL, rst, False)平均成績(jī).Caption = rst.Fields(0)rst.Close學(xué)生自主查詢運(yùn)行結(jié)果如圖4.16所示：圖4.16 學(xué)生成績(jī)查詢管理員或教師賬號(hào)登陸的學(xué)生成績(jī)查詢?nèi)鐖D4.17所示：圖4.17 管理員查詢學(xué)生成績(jī)4.8 獎(jiǎng)懲信息模塊設(shè)計(jì)4.8.1 獎(jiǎng)學(xué)金申請(qǐng)?jiān)撃K的功能實(shí)現(xiàn)需要學(xué)生和管理員雙方共同完成，首先系統(tǒng)會(huì)根據(jù)學(xué)生的平均成績(jī)進(jìn)行首輪篩選，然后系統(tǒng)會(huì)

53、根據(jù)學(xué)生是否點(diǎn)擊“申請(qǐng)獎(jiǎng)學(xué)金”進(jìn)行二輪篩選，最后由管理員設(shè)置獎(jiǎng)學(xué)金名額進(jìn)行最后評(píng)選和公示。4.8.2 處分信息處分信息由單獨(dú)的處分信息數(shù)據(jù)表進(jìn)行記錄，該部分?jǐn)?shù)據(jù)處理采用添加記錄的方式，能對(duì)學(xué)生的處罰記錄多次記錄。對(duì)設(shè)計(jì)到學(xué)籍問題的處分信息，系統(tǒng)會(huì)根據(jù)其處理級(jí)別對(duì)學(xué)籍狀態(tài)進(jìn)行更新，例如：某學(xué)生的處分等級(jí)是開出學(xué)籍，那么該生的學(xué)籍狀態(tài)會(huì)自動(dòng)更新為“無”。系統(tǒng)提供查詢、添加、解除處分三個(gè)功能，同時(shí)在添加處分信息時(shí)記錄信息詳盡，記錄了處分緣由、處分信息記錄的時(shí)間，方便查詢。運(yùn)行結(jié)果如圖4.18所示：圖4.18 處分信息運(yùn)行結(jié)果在學(xué)號(hào)欄輸入學(xué)號(hào)并點(diǎn)擊“查詢”按鈕，如果系統(tǒng)未記錄相關(guān)學(xué)生的處分信息，則彈出

54、如圖4.19所示的提示窗口：圖4.19 查詢時(shí)無記錄提示查詢結(jié)果中有相關(guān)學(xué)生的處分信息，則可以在系統(tǒng)對(duì)該生的處分信息進(jìn)行編輯，如果點(diǎn)擊“解除”按鈕，則將會(huì)刪除該生的處分信息，系統(tǒng)彈出如圖4.20所示的提示信息，管理員可以根據(jù)提示相關(guān)操作。圖4.20 解除處分4.9 學(xué)費(fèi)信息模塊設(shè)計(jì)4.9.1 學(xué)費(fèi)設(shè)置根據(jù)我校實(shí)際情況，各個(gè)專業(yè)的學(xué)費(fèi)不盡一樣，且需要在限定時(shí)間無欠費(fèi)繳清，因此，該系統(tǒng)在設(shè)計(jì)過程中不涉與到多次繳費(fèi)的功能。學(xué)費(fèi)設(shè)置的核心代碼：SQL = "update 學(xué)費(fèi)信息 set 學(xué)費(fèi) ='" + Trim(Text2.Text) + "' whe

55、re 班級(jí)編號(hào) ='" + Trim(Text1.Text) + "' "Call ExecuteSQL(SQL, rst, True)SQL = "select 班級(jí)信息.班級(jí)編號(hào),班級(jí)名稱,學(xué)費(fèi) from 班級(jí)信息,學(xué)費(fèi)信息 where 班級(jí)信息.班級(jí)編號(hào)=學(xué)費(fèi)信息.班級(jí)編號(hào) and 學(xué)費(fèi)信息.班級(jí)編號(hào)= '" + Trim(Text1.Text) + "'"Call viewData(SQL, DataGrid1, False)Text2.Text = ""運(yùn)行效果如

56、圖4.21所示：圖4.21學(xué)費(fèi)設(shè)置4.9.2 學(xué)生繳費(fèi)學(xué)生繳費(fèi)由管理員進(jìn)行操作，輸入學(xué)號(hào)并點(diǎn)擊“查詢”按鈕，系統(tǒng)根據(jù)輸入學(xué)號(hào)的班級(jí)信息進(jìn)行判斷，輸出學(xué)費(fèi)金額，管理員點(diǎn)擊“繳費(fèi)”按鈕，繳費(fèi)狀態(tài)更改為“已交”。 其中助學(xué)貸款項(xiàng)與貸款數(shù)據(jù)表相關(guān)，如果貸款中有該生記錄，則繳費(fèi)狀態(tài)為“已交”，否則該生為欠費(fèi)狀態(tài)。該模塊的運(yùn)行結(jié)果如圖4.22所示：圖4.22 學(xué)生繳費(fèi)運(yùn)行圖4.9.3 欠費(fèi)處理該功能不需要進(jìn)行輸入操作，系統(tǒng)對(duì)逾期未交清學(xué)費(fèi)的學(xué)生自動(dòng)記錄并進(jìn)行顯示，便于管理員進(jìn)行下發(fā)通知等進(jìn)一步操作。其運(yùn)行界面如圖4.23所示：圖4.23 欠費(fèi)處理核心代碼：SQL = "select 學(xué)生信息.學(xué)

57、號(hào),班級(jí)名稱,學(xué)費(fèi),繳費(fèi)狀態(tài) from 學(xué)生信息,班級(jí)信息,學(xué)費(fèi)信息,繳費(fèi)信息 where 學(xué)生信息.學(xué)號(hào)= 繳費(fèi)信息.學(xué)號(hào) and 學(xué)生信息.班級(jí)編號(hào)= 班級(jí)信息.班級(jí)編號(hào) and 班級(jí)信息.班級(jí)編號(hào) = 學(xué)費(fèi)信息.班級(jí)編號(hào) and 繳費(fèi)信息.繳費(fèi)狀態(tài)= '未交'"Call viewData(SQL, DataGrid1, False)4.10 管理員信息模塊設(shè)計(jì)4.10.1 管理員添加和刪除添加新管理員角色功能的核心代碼是：SQL = " insert into 訪問權(quán)限 values('" + Trim(Text1.Text) + &

58、quot;','" + Trim(Text1.Text) + "','管理員')"Call ExecuteSQL(SQL, rst, False)SQL = "select 賬號(hào),權(quán)限 from 訪問權(quán)限 where 權(quán)限= '管理員' "Call viewData(SQL, DataGrid1, False)刪除管理員角色的核心代碼：SQL = "delete from 訪問權(quán)限 where 賬號(hào) = '" + Trim(Text1.Text) + "'"Call ExecuteSQL(SQL, rst, False)SQL = "select 賬號(hào),權(quán)限 from 訪問權(quán)限 where 權(quán)限= '管理員' "Call viewData(SQL, DataGrid1, False)運(yùn)行結(jié)果如圖4.24所示：圖4.24 管理員管理本系統(tǒng)上傳了新生或教師的后會(huì)自動(dòng)生成賬號(hào)和密碼，密碼和賬號(hào)