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

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

2、系統(tǒng)經(jīng)過多臺計算機測試，運行正常，相對穩(wěn)定。且系統(tǒng)初具規(guī)模，基本能勝任四川傳媒學院的學生綜合信息管理。關鍵詞： 學生管理系統(tǒng) 信息管理系統(tǒng) 管理系統(tǒng) 學生信息管理推薦精選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)分析與設計73.1系統(tǒng)功能分析73.2系統(tǒng)結構圖73.3系統(tǒng)ER圖83.4數(shù)據(jù)庫設計84系統(tǒng)具體實現(xiàn)114.1模塊設計114.2登錄窗體設計124.3系統(tǒng)主界面的設計154.4班級信息管理設計184.5學生基本信息維護204.6課程信息

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

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

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

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

11、圖形用戶界面（GUI）的集成管理工具，利用它可以配置管理SQL Server服務器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對象、備份和恢復數(shù)據(jù)、調度任務和管理警報、實現(xiàn)數(shù)據(jù)復制和轉換操作等。此外，SQL Server 2008還提供了SQL事件探查器、SQL查詢分析器、SQL Server服務管理器和多種操作向導等圖形界面管理工具，大大簡化了用戶操作，從而增強了系統(tǒng)的易用性。（2）動態(tài)自動管理和優(yōu)化功能。即使SQL Server數(shù)據(jù)庫管理員不做任何設置，SQL Server也能夠在運行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達到最優(yōu)性能，從而減輕管理員工作。（3）豐富的編程接口工具，使用戶開發(fā)SQL Se

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

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

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

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

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

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

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

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

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

21、。用于與立即更新模式相反的批更新模式。（4）Fields對象：由數(shù)據(jù)庫服務器所返回的單一數(shù)據(jù)字段（5）Parametes對象：表示Command對象的參數(shù)。（6）Property對象：單獨的一個Property對象，提供屬性功能。（7）Error對象：提供處理錯誤的功能。使用ADO對象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取ODBC的錯誤信息等。推薦精選2.4 本系統(tǒng)Visual Basic 6.0訪問數(shù)據(jù)庫方法在Visual Basic 6.0的工程中，選擇菜單“工程”“引用”命令，在“可用的引用”中選擇Microsoft Active

22、Data Object 2.7Library選項，這樣就在程序中加入了ADO的引用。ADO通過ODBC方式訪問數(shù)據(jù)庫可以使用用戶DSN、系統(tǒng)DSN和文件DSN，鑒于安全性的考慮，一般不使用系統(tǒng)DSN，本系統(tǒng)選用文件DSN。在設計過程中設置本系統(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)分析與設計3.1 系統(tǒng)功能分析隨著學校的規(guī)模不斷擴大，學生的數(shù)量急劇增加，有關學生的各種信息

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

25、3.1 系統(tǒng)結構圖3.3 系統(tǒng)ER圖圖3.2 系統(tǒng)E-R圖3.4 數(shù)據(jù)庫設計本系統(tǒng)通過SQL server 2008建立后臺數(shù)據(jù)庫，數(shù)據(jù)庫共由11個表組成，分別是：訪問權限信息表（訪問權限）、學生基本情況信息表（學生信息）、班級信息表（班級信息）、課程信息、教師信息、選課表、處分信息、獎學金、學費信息、繳費信息、助學貸款信息表（貸款名單），下文將對主要表格進行簡單介紹。推薦精選（1） 訪問權限表3-1 訪問權限表設計 名稱字段名稱類型長度訪問賬號賬號varchar14密碼密碼varchar14權限等級權限varchar8（2） 學生信息表3-2 學生基本信息表設計字段名稱類型長度NULL值學號

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

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

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

29、和權限，在訪問過程中分配其訪問權限以及當前登陸者密碼的更改。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 登錄窗體設計添加一個窗體（登錄.frm），該部分主要包括用戶的驗證以及權限的限制。登錄功能的程序代碼：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 賬號,權限 from 訪問權限 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)權限 = rst.Fields(1)ElseMsgBox "密碼錯誤", vbOKOnly + vbExclamation, "警告"Text2.Text = ""End IfEnd IfIf 權限 = "學生" Then學生.Show登錄.HideEnd IfIf 權限 = "教師"

36、 Then推薦精選教師.Show登錄.HideEnd IfIf 權限 = "管理員" 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 登錄界面當

37、在圖4.1中填寫不完整點擊“登陸”按鈕，則彈出報錯信息，如圖4.2所示：推薦精選圖4.2 信息未填寫完整當輸入用戶名或密碼錯誤時，系統(tǒng)統(tǒng)一定義為密碼填寫錯誤，彈出如圖4.3所示錯誤信息：圖4.3 密碼錯誤4.3 系統(tǒng)主界面的設計4.3.1 管理員身份進入系統(tǒng)以管理員的賬號“趙男”及正確的密碼“2008102130117”進入到系統(tǒng)，系統(tǒng)會自動根據(jù)訪問權限中的數(shù)據(jù)記錄分配其訪問權限，運行結果如下圖所示：推薦精選圖4.4 系統(tǒng)主頁系統(tǒng)主界面的設計過程：添加Form2.frm，點擊Visual Basic 6.0中的工具，對系統(tǒng)主界面的菜單進行編輯，編輯過程如下圖所示：圖4.5 菜單編輯過程菜單功能

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

39、ub 管理員信息管理_Click()管理員.ShowForm2.HideEnd SubPrivate Sub 獎學金評定_Click()jxj.ShowForm2.HideEnd SubPrivate Sub 課程信息維護_Click()Form2.Hidekcxx.ShowEnd SubPrivate Sub 欠費處理_Click()qfcl.ShowForm2.HideEnd SubPrivate Sub 退出系統(tǒng)_Click()EndEnd SubPrivate Sub 學費設置_Click()xfsz.ShowForm2.HideEnd Sub推薦精選Private Sub 學生繳費_

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

41、load()Form2.AutoRedraw = TrueImage1.Stretch = TrueImage1.Picture = LoadPicture("E:VB學生信息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學生登錄系統(tǒng)主界面設計學生登錄主界面的設計與管理員、教師登錄的設計一致。4.4

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

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

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

45、搜索運行界面2 添加功能SQL = "insert into 學生信息 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 學生信息 order by 學號 asc"Call viewData(SQL, DataGrid1,

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

48、 圖4.12刪除學生信息運行界面4.6 課程信息維護課程信息維護的功能是對全校的課程進行統(tǒng)一安排，如：上課的時間、地點、任課教師等，該模塊具有添加和刪除功能，在DataGrid控件中進行實時的刷新顯示。運行界面如圖4.13所示。顯示代碼：SQL = "select * from 課程信息 order by 課程代碼 asc"Call viewData(SQL, DataGrid1, True) 在DataGrid中顯示DataGrid1.Refresh圖4.13 課程信息維護運行界面4.7 教務信息模塊設計4.7.1 學生選課該模塊分為管理員和學生用戶兩種模式，其功能的主要

49、對象是學生用戶。學生登錄后系統(tǒng)會自動選取“選課表”中與登錄學號對應的選課表內(nèi)容，學生選課時輸入相應的課程代碼并點擊“選課”即可添加課程，同時系統(tǒng)提供了刪除課程的功能，選課內(nèi)容以及課程信息的內(nèi)容均采用推薦精選DataGrid控件進行顯示。選課代碼：SQL = "select 課程代碼 from 選課表 where 課程代碼= '" + Trim(Text1.Text) + "'and 學號='" + 賬號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 學號=

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

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

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

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

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

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

57、狀態(tài)為“已交”，否則該生為欠費狀態(tài)。該模塊的運行結果如圖4.22所示：圖4.22 學生繳費運行圖推薦精選4.9.3 欠費處理該功能不需要進行輸入操作，系統(tǒng)對逾期未交清學費的學生自動記錄并進行顯示，便于管理員進行下發(fā)通知等進一步操作。其運行界面如圖4.23所示：圖4.23 欠費處理核心代碼：SQL = "select 學生信息.學號,姓名,班級名稱,學費,繳費狀態(tài) from 學生信息,班級信息,學費信息,繳費信息 where 學生信息.學號= 繳費信息.學號 and 學生信息.班級編號= 班級信息.班級編號 and 班級信息.班級編號 = 學費信息.班級編號 and 繳費信息.繳費狀態(tài)

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