Visual-Basic+SQL學(xué)生信息管理系統(tǒng)(畢業(yè)設(shè)計(jì))

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

2、系統(tǒng)經(jīng)過多臺計(jì)算機(jī)測試，運(yùn)行正常，相對穩(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 application program. In the Visual Basic, we select the Microsoft Active Data Object 2.7Library t

3、hen 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, delete or change

4、 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 can check their c

5、ourse 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 Sichuan Media College.Keywords: Students man

6、agement system MIS Management system Students information management 推薦精選目 錄1前言12開發(fā)工具介紹22.1SQL Server 2008簡介22.2Visual Basic 6.0簡介32.3ADO組件的主要對象及其功能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班級信息管理設(shè)計(jì)184.5學(xué)生基本信息維護(hù)204.6課程信息

7、維護(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)35推薦精選1 前言學(xué)生信息管理系統(tǒng)是一個(gè)教育單位不可缺少的部分,它的內(nèi)容對于學(xué)校的決策者和管理者來說都至關(guān)重要。長期以來人們使用傳統(tǒng)紙質(zhì)檔案的方式管理學(xué)生信息，這種管理方式存在著許多缺點(diǎn)，如：效率低、保密性差，而且長時(shí)間會產(chǎn)生大量的文件和數(shù)據(jù)，這對于查找、更新和維護(hù)都帶來了不便。 隨著科學(xué)技術(shù)的不斷提高，計(jì)算機(jī)科學(xué)日漸成熟，逐漸應(yīng)用到各個(gè)領(lǐng)域。作為計(jì)算機(jī)應(yīng)用的一部分，使用計(jì)算機(jī)對學(xué)生信息進(jìn)行管理，具有著紙質(zhì)檔案管理所無法比擬的優(yōu)點(diǎn)，例如：檢索迅速、查

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

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

10、2000平臺緊密集成，具有完全的Web功能。通過對高端硬件平臺、網(wǎng)絡(luò)和存儲技術(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ù)庫對象、備份和恢復(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形界面管理工具，大大簡化了用戶操作，從而增強(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）豐富的編程接口工具，使用戶開發(fā)SQL Se

12、rver數(shù)據(jù)庫應(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）下；

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

14、sual Basic設(shè)計(jì)前端軟件。2.2.1 Visual Basic的編程特點(diǎn)Visual Basic語言的出現(xiàn)為Windows下的編程提出了一個(gè)新概念，利用Visual Basic的動態(tài)數(shù)據(jù)交換、對象的鏈接和嵌入、動態(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ò)方面的

15、功能優(yōu)勢就愈加明顯，利用Visual 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%(

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

17、Visual Basic在數(shù)據(jù)庫應(yīng)用程序的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（Data Manager），數(shù)據(jù)控件（Data Control）以及數(shù)據(jù)編程對象（數(shù)據(jù)訪問對象（DAO）遠(yuǎn)程數(shù)據(jù)對象（RDO）和ActiveX數(shù)據(jù)對象（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ù)庫內(nèi)容，并可通過輸入查詢或

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

19、性且高效率的數(shù)據(jù)應(yīng)用程序。RDO是處理遠(yuǎn)程數(shù)據(jù)庫的一些專門需要的對象集合。使用RDO可以不用本地的查詢機(jī)就能訪問ODBC數(shù)據(jù)源，這無疑提高了應(yīng)用程序的性能。推薦精選ADO是Visual Basic 6.0中新增的對象，它是一個(gè)更簡單的對象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對本地和遠(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組件的主要對象及其功能ADO組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象：（1）Connection對象：提供對數(shù)據(jù)庫的連接服務(wù)。（2）Com

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

21、。用于與立即更新模式相反的批更新模式。（4）Fields對象：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段（5）Parametes對象：表示Command對象的參數(shù)。（6）Property對象：單獨(dú)的一個(gè)Property對象，提供屬性功能。（7）Error對象：提供處理錯(cuò)誤的功能。使用ADO對象可以建立和管理數(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

22、Data Object 2.7Library選項(xiàng)，這樣就在程序中加入了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

23、con = New ADODB.Connectioncon.Open "FileDSN=First.dsn"Set rst = New ADODB.RecordsetIf enableWrite Thenrst.Open Trim$(SQL), con, adOpenDynamic, adLockOptimisticElserst.Open Trim$(SQL), con, adOpenDynamic, adLockReadOnlyEnd IfEnd Function推薦精選3 系統(tǒng)分析與設(shè)計(jì)3.1 系統(tǒng)功能分析隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生的數(shù)量急劇增加，有關(guān)學(xué)生的各種信息

24、量也成倍增長。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。設(shè)計(jì)內(nèi)容為管理員、教師和學(xué)生用戶登錄該系統(tǒng)進(jìn)行八個(gè)模塊操作：（1）學(xué)生基本情況更新：增加、修改、刪除、查詢（按學(xué)號）（2）班級信息維護(hù)：添加班級、刪除、編輯、查詢（按班級編號）（3）課程信息維護(hù)：添加課程、刪除、編輯（4）成績管理：錄入成績（教師用戶）、查詢成績（管理員、學(xué)生用戶）（5）獎(jiǎng)懲信息維護(hù)：獎(jiǎng)學(xué)金申請（學(xué)生用戶）、獎(jiǎng)學(xué)金評定（管理員用戶）、懲處信息的維護(hù)（管理員）（6）學(xué)費(fèi)信息：費(fèi)用設(shè)置、欠費(fèi)處理、繳費(fèi)（7）密碼更改（8）管理員角色添加（管理員用戶）推薦精選3.2 系統(tǒng)結(jié)構(gòu)圖圖

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

26、varchar14NOT姓名varchar8NOT班級編號varchar7NOT性別varchar2NOT年級varchar4NOT政治面貌varchar8NULL民族varchar4NOT籍貫varchar4NOT身份證號varchar18NOT學(xué)籍狀態(tài)varchar4NULL（3） 班級信息表3-3 班級信息表設(shè)計(jì)字段名稱類型長度NULL值班級編號varchar7NOT年級varchar4NOT班級名稱varchar30NOT班級簡稱varchar16NULL人數(shù)Int5NOT班主任varchar8NOT（4） 課程信息表3-4 課程信息表設(shè)計(jì)推薦精選字段名稱類型長度NULL值課程代碼va

27、rchar5NOT課程名稱varchar50NOT課程性質(zhì)varchar4NOT上課時(shí)間varchar20NOT上課地點(diǎn)varchar14NULL任課教師varchar8NOT學(xué)分int2NOT（5） 選課表表3-5 選課表設(shè)計(jì)字段名稱類型長度NULL值學(xué)號varchar14NOT課程代碼varchar5NOT成績float20NULL（6） 教師信息表3-6 教師表設(shè)計(jì)字段名稱類型長度NULL值賬號varchar14NOT姓名varchar8NOT任課科目varchar50NOT（7） 處分信息表3-8 處分信息表設(shè)計(jì)字段名稱類型長度NULL值學(xué)號varchar14NOT處分等級varcha

28、r12NOT說明varchar50NOT填報(bào)時(shí)間dateNOT（8） 獎(jiǎng)學(xué)金表3-9 獎(jiǎng)學(xué)金信息表設(shè)計(jì)字段名稱類型長度NULL值學(xué)號varchar14NOT平均成績float20NOT申請標(biāo)記varchar4NULL推薦精選4 系統(tǒng)具體實(shí)現(xiàn) 本部分主要內(nèi)容為本系統(tǒng)的各個(gè)運(yùn)行界面以及主要界面的源代碼。4.1 模塊設(shè)計(jì)加一個(gè)模塊module1，該部分主要包括一些公共變量的定義、ExecuteSQL等執(zhí)行過程定義以及自動把備份的數(shù)據(jù)庫文件還原到SQL Server 2008 中的代碼設(shè)計(jì)。4.1.1 公共變量Public 權(quán)限 As StringPublic 賬號1 As String 用于存儲賬號

29、和權(quán)限，在訪問過程中分配其訪問權(quán)限以及當(dāng)前登陸者密碼的更改。4.1.2 SQL執(zhí)行語句Public Function ExecuteSQL(ByVal SQL As String, rst As ADODB.Recordset, Optional enableWrite As Boolean = True) Dim con As ADODB.Connection推薦精選Set con = New ADODB.Connectioncon.Open "FileDSN=First.dsn"'打開文件DSNSet rst = New ADODB.RecordsetIf en

30、ableWrite Thenrst.Open Trim$(SQL), con, adOpenDynamic, adLockOptimistic以讀寫方式打開數(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 A

31、s ADODB.ConnectionSet con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.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

32、 viewData(ByVal SQL As String, dg As DataGrid, Optional enableWrite As 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$

33、(SQL), con, adOpenStatic, adLockOptimisticSet dg.DataSource = rst推薦精選dg.RefreshElserst.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.Recordse

34、tPrivate Sub Command1_Click()If Text1.Text = "" Or Text2.Text = "" ThenMsgBox "請你填寫完整！", vbOKOnly + vbExclamation, "提示"ElseSQL = "select 賬號,權(quán)限 from 訪問權(quán)限 where 賬號='" + Trim(Text1.Text) + "'and 密碼= '" + Trim(Text2.Text) + "&#

35、39;"Call DBExist(SQL)If DBExist(SQL) = True Then賬號1 = Trim(Text1.Text)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)限 = "教師"

36、 Then推薦精選教師.Show登錄.HideEnd IfIf 權(quán)限 = "管理員" ThenForm2.Show登錄.HideEnd IfEnd 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)

37、在圖4.1中填寫不完整點(diǎn)擊“登陸”按鈕，則彈出報(bào)錯(cuò)信息，如圖4.2所示：推薦精選圖4.2 信息未填寫完整當(dāng)輸入用戶名或密碼錯(cuò)誤時(shí)，系統(tǒng)統(tǒng)一定義為密碼填寫錯(cuò)誤，彈出如圖4.3所示錯(cuò)誤信息：圖4.3 密碼錯(cuò)誤4.3 系統(tǒng)主界面的設(shè)計(jì)4.3.1 管理員身份進(jìn)入系統(tǒng)以管理員的賬號“趙男”及正確的密碼“2008102130117”進(jìn)入到系統(tǒng)，系統(tǒ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中的工具，對系統(tǒng)主界面的菜單進(jìn)行編輯，編輯過程如下圖所示：圖4.5 菜單編輯過程菜單功能

38、的程序代碼：Private Sub form_load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPicture("E:VB學(xué)生信息1.jpg")End Sub推薦精選Private Sub 班級維護(hù)_Click()Form2.Hidebanji.ShowEnd SubPrivate Sub 處分信息_Click()cfxx.ShowForm2.HideEnd SubPrivate Sub 管理員密碼修改_Click()密碼.ShowForm2.HideEnd SubPrivate S

39、ub 管理員信息管理_Click()管理員.ShowForm2.HideEnd SubPrivate Sub 獎(jiǎng)學(xué)金評定_Click()jxj.ShowForm2.HideEnd SubPrivate Sub 課程信息維護(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 Sub推薦精選Private Sub 學(xué)生繳費(fèi)_

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

41、load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPicture("E:VB學(xué)生信息1.jpg")End SubPrivate Sub 成績管理_Click()成績錄入.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

42、 班級信息管理設(shè)計(jì)該模塊可以通過輸入班級編號進(jìn)行搜索顯示，對具體班級進(jìn)行編輯，也可以全部顯示查看。添加新的班級信息時(shí)在系統(tǒng)所提供的界面進(jìn)行輸入，點(diǎn)擊添加進(jìn)行保存，刪除班級信息時(shí)需要在班級編號欄輸入擬刪除班級的班級編號，然后點(diǎn)擊刪除按鈕。整個(gè)顯示過程是通過Visual Basic 中的DataGrid空間顯示，進(jìn)行添加、刪除或搜索操作后DataGrid會進(jìn)行刷新顯示新的數(shù)據(jù)，在操作過程中如果遇到非法操作（如：不允許空值時(shí)無輸入信息，輸入文本超出限制長度等）時(shí)，系統(tǒng)會做出相關(guān)提示或警告。該模塊按“顯示全部”功能運(yùn)行時(shí)的界面如圖4.7所示：推薦精選圖4.7 班級信息顯示全部界面該模塊按“搜索”功能運(yùn)

43、行時(shí)的界面如圖4.8所示：圖4.8 班級信息管理搜索功能界面推薦精選該模塊按“刪除”功能運(yùn)行時(shí)的界面如圖4.9所示： 圖4.9刪除功能4.5 學(xué)生基本信息維護(hù)4.5.1 學(xué)生信息維護(hù)簡介學(xué)生信息維護(hù)界面的設(shè)計(jì)包含2個(gè)單選框、11個(gè)文本框、1個(gè)DataGrid控件以及6個(gè)按鈕。單選框用于確定搜索條件，系統(tǒng)設(shè)置了按班級搜索和按學(xué)號搜索兩大功能，搜索結(jié)果用DataGrid控件刷新顯示。界面下方的文本框用于添加用戶時(shí)資料的填寫，點(diǎn)擊相應(yīng)的“添加”按鈕即可對數(shù)據(jù)庫進(jìn)行插入記錄操作，“刪除”按鈕對應(yīng)SQL中的Delete語句，操作過程中均有相關(guān)警告和提示，方便用戶使用。運(yùn)行界面如圖4.10所示：圖4.10

44、 學(xué)生信息維護(hù)運(yùn)行界面4.5.2 學(xué)生信息維護(hù)核心代碼介紹1 搜索功能推薦精選SQL = "select * from 學(xué)生信息 where 學(xué)號 = '" + Trim(Text1.Text) + "'"Call DBExist(SQL) 查詢數(shù)據(jù)庫中是否存在要搜索的記錄If DBExist(SQL) = True Then '記錄中沒有記錄Call viewData(SQL, DataGrid1, True) 在DataGrid控件中進(jìn)行顯示搜索條件為班級時(shí)，代碼相似。按班級搜索功能的運(yùn)行界面如圖4.11所示。圖4.11按班級

45、搜索運(yùn)行界面2 添加功能SQL = "insert into 學(xué)生信息 values('" + Trim(ID.Text) + "','" + Trim(xingming.Text) + "','" + Trim(class.Text) + "','" + Trim(sex.Text) + "','" + Trim(grade.Text) + "','" + Trim(zz.Text) +

46、 "','" + Trim(mz.Text) + "','" + Trim(jg.Text) + "','" + Trim(sfz.Text) + "','" + Trim(xj.Text) + "')"Call ExecuteSQL(SQL, rst, True)SQL = "select * from 學(xué)生信息 order by 學(xué)號 asc"Call viewData(SQL, DataGrid1,

47、 True) 在DataGrid控件中進(jìn)行顯示3 刪除功能rst.Open "delete from 學(xué)生信息 where 學(xué)號= '" + Trim(ID.Text) + "'", con, adOpenStatic, adLockOptimisticrst.Open "select * from 學(xué)生信息", con, adOpenStatic, adLockOptimisticSet DataGrid1.DataSource = rstDataGrid1.Refresh刪除學(xué)生信息的運(yùn)行如圖4.12所示：推薦精選

48、 圖4.12刪除學(xué)生信息運(yùn)行界面4.6 課程信息維護(hù)課程信息維護(hù)的功能是對全校的課程進(jìn)行統(tǒng)一安排，如：上課的時(shí)間、地點(diǎn)、任課教師等，該模塊具有添加和刪除功能，在DataGrid控件中進(jìn)行實(shí)時(shí)的刷新顯示。運(yùn)行界面如圖4.13所示。顯示代碼：SQL = "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é)生用戶兩種模式，其功能的主要

49、對象是學(xué)生用戶。學(xué)生登錄后系統(tǒng)會自動選取“選課表”中與登錄學(xué)號對應(yīng)的選課表內(nèi)容，學(xué)生選課時(shí)輸入相應(yīng)的課程代碼并點(diǎn)擊“選課”即可添加課程，同時(shí)系統(tǒng)提供了刪除課程的功能，選課內(nèi)容以及課程信息的內(nèi)容均采用推薦精選DataGrid控件進(jìn)行顯示。選課代碼：SQL = "select 課程代碼 from 選課表 where 課程代碼= '" + Trim(Text1.Text) + "'and 學(xué)號='" + 賬號1 + "'"Call DBExist(SQL)If DBExist(SQL) = True Then

50、MsgBox "該課程已選！", vbExclamation, "警告"ElseSQL = "insert into 選課表 values('" + 賬號1 + "','" + Trim(Text1.Text) + "','')"Call ExecuteSQL(SQL, rst, True)SQL = "select * from 課程信息 where 課程代碼 in ( select 課程代碼 from 選課表 where 學(xué)號=

51、9;" + 賬號1 + "' )order by 課程代碼 asc"Call viewData(SQL, DataGrid1, True)DataGrid1.RefreshEnd If管理員進(jìn)行輔助選課的運(yùn)行結(jié)果如圖4.14所示：圖4.14 管理員輔助選課運(yùn)行結(jié)果 由于選課的主要服務(wù)對象是學(xué)生，因此四川傳媒學(xué)院學(xué)生信息管理系統(tǒng)的選課功能對學(xué)生開放，學(xué)生選課的運(yùn)行效果如圖4.15所示：推薦精選圖4.15 學(xué)生選課運(yùn)行界面4.7.2 學(xué)生成績查詢系統(tǒng)對三種訪問角色（教師、管理員、學(xué)生）都提供學(xué)生成績查詢，教師、管理員查詢成績時(shí)需要輸入相應(yīng)的學(xué)號進(jìn)行搜索查看，系

52、統(tǒng)對學(xué)生用戶則采用了公共變量的方式直接顯示該生所有成績。同時(shí)，該模塊還自動提供平均成績的生成并，如果平均成績大于或等于85分，則會將該生的信息添加到“獎(jiǎng)學(xué)金”數(shù)據(jù)表。另外，系統(tǒng)提供的“申請獎(jiǎng)學(xué)金”按鈕針對學(xué)生用戶，如果點(diǎn)擊此按鈕，則“獎(jiǎng)學(xué)金”數(shù)據(jù)表會做記錄，系統(tǒng)采取進(jìn)一步措施。平均成績生成代碼：SQL = "select Avg(成績) from 選課表 where 學(xué)號 = '" + 賬號1 + "'"Call ExecuteSQL(SQL, rst, False)平均成績.Caption = rst.Fields(0)rst.Clos

53、e學(xué)生自主查詢運(yùn)行結(jié)果如圖4.16所示：推薦精選圖4.16 學(xué)生成績查詢管理員或教師賬號登陸的學(xué)生成績查詢?nèi)鐖D4.17所示：圖4.17 管理員查詢學(xué)生成績4.8 獎(jiǎng)懲信息模塊設(shè)計(jì)4.8.1 獎(jiǎng)學(xué)金申請?jiān)撃K的功能實(shí)現(xiàn)需要學(xué)生和管理員雙方共同完成，首先系統(tǒng)會根據(jù)學(xué)生的平均成績進(jìn)行首輪篩選，然后系統(tǒng)會根據(jù)學(xué)生是否點(diǎn)擊推薦精選“申請獎(jiǎng)學(xué)金”進(jìn)行二輪篩選，最后由管理員設(shè)置獎(jiǎng)學(xué)金名額進(jìn)行最后評選和公示。4.8.2 處分信息處分信息由單獨(dú)的處分信息數(shù)據(jù)表進(jìn)行記錄，該部分?jǐn)?shù)據(jù)處理采用添加記錄的方式，能對學(xué)生的處罰記錄多次記錄。對設(shè)計(jì)到學(xué)籍問題的處分信息，系統(tǒng)會根據(jù)其處理級別對學(xué)籍狀態(tài)進(jìn)行更新，例如：某學(xué)生的

54、處分等級是開出學(xué)籍，那么該生的學(xué)籍狀態(tài)會自動更新為“無”。系統(tǒng)提供查詢、添加、解除處分三個(gè)功能，同時(shí)在添加處分信息時(shí)記錄信息詳盡，記錄了處分緣由、處分信息記錄的時(shí)間，方便查詢。運(yùn)行結(jié)果如圖4.18所示：圖4.18 處分信息運(yùn)行結(jié)果在學(xué)號欄輸入學(xué)號并點(diǎn)擊“查詢”按鈕，如果系統(tǒng)未記錄相關(guān)學(xué)生的處分信息，則彈出如圖4.19所示的提示窗口：推薦精選圖4.19 查詢時(shí)無記錄提示查詢結(jié)果中有相關(guān)學(xué)生的處分信息，則可以在系統(tǒng)對該生的處分信息進(jìn)行編輯，如果點(diǎn)擊“解除”按鈕，則將會刪除該生的處分信息，系統(tǒng)彈出如圖4.20所示的提示信息，管理員可以根據(jù)提示相關(guān)操作。圖4.20 解除處分4.9 學(xué)費(fèi)信息模塊設(shè)計(jì)4.

55、9.1 學(xué)費(fèi)設(shè)置根據(jù)我校實(shí)際情況，各個(gè)專業(yè)的學(xué)費(fèi)不盡相同，且需要在限定時(shí)間內(nèi)無欠費(fèi)繳清，因此，該系統(tǒng)在設(shè)計(jì)過程中不涉及到多次繳費(fèi)的功能。學(xué)費(fèi)設(shè)置的核心代碼：SQL = "update 學(xué)費(fèi)信息 set 學(xué)費(fèi) ='" + Trim(Text2.Text) + "' where 班級編號 ='" + Trim(Text1.Text) + "' "Call ExecuteSQL(SQL, rst, True)SQL = "select 班級信息.班級編號,班級名稱,學(xué)費(fèi) from 班級信息,學(xué)費(fèi)信息

56、 where 班級信息.班級編號=學(xué)費(fèi)信息.班級編號 and 學(xué)費(fèi)信息.班級編號= '" + Trim(Text1.Text) + "'"Call viewData(SQL, DataGrid1, False)Text2.Text = ""運(yùn)行效果如圖4.21所示：推薦精選圖4.21學(xué)費(fèi)設(shè)置4.9.2 學(xué)生繳費(fèi)學(xué)生繳費(fèi)由管理員進(jìn)行操作，輸入學(xué)號并點(diǎn)擊“查詢”按鈕，系統(tǒng)根據(jù)輸入學(xué)號的班級信息進(jìn)行判斷，輸出學(xué)費(fèi)金額，管理員點(diǎn)擊“繳費(fèi)”按鈕，繳費(fèi)狀態(tài)更改為“已交”。 其中助學(xué)貸款項(xiàng)與貸款名單數(shù)據(jù)表相關(guān)，如果貸款名單中有該生記錄，則繳費(fèi)

57、狀態(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)對逾期未交清學(xué)費(fèi)的學(xué)生自動記錄并進(jìn)行顯示，便于管理員進(jìn)行下發(fā)通知等進(jìn)一步操作。其運(yùn)行界面如圖4.23所示：圖4.23 欠費(fèi)處理核心代碼：SQL = "select 學(xué)生信息.學(xué)號,姓名,班級名稱,學(xué)費(fèi),繳費(fèi)狀態(tài) from 學(xué)生信息,班級信息,學(xué)費(fèi)信息,繳費(fèi)信息 where 學(xué)生信息.學(xué)號= 繳費(fèi)信息.學(xué)號 and 學(xué)生信息.班級編號= 班級信息.班級編號 and 班級信息.班級編號 = 學(xué)費(fèi)信息.班級編號 and 繳費(fèi)信息.繳費(fèi)狀態(tài)

58、= '未交'"Call viewData(SQL, DataGrid1, False)4.10 管理員信息模塊設(shè)計(jì)4.10.1 管理員添加和刪除添加新管理員角色功能的核心代碼是：SQL = " insert into 訪問權(quán)限 values('" + Trim(Text1.Text) + "','" + Trim(Text1.Text) + "','管理員')"Call ExecuteSQL(SQL, rst, False)SQL = "select 賬號,權(quán)限 from 訪問權(quán)限 where 權(quán)限