【正文】 系統(tǒng) _Click() End End Sub Private Sub 學(xué)費設(shè)置 _Click() End Sub Private Sub 學(xué)生繳費 _Click() End Sub Private Sub 學(xué)生信息 _Click() End Sub Private Sub 學(xué)生信息維護 _Click() End Sub Private Sub 學(xué)生選課 _Click() End Sub 教師登錄系統(tǒng)主界面設(shè)計 添加窗體教師 .frm，如果教師鍵入正確的密碼和賬號就進入到該 界面，運行效果如圖 ，其設(shè)計過程與管理員主界面的設(shè)計過程相似。and 密碼 = 39。 登錄功能的程序代碼： Option Explicit Dim SQL As String Dim rst As Private Sub Command1_Click() If = Or = Then 13 MsgBox 請你填寫完整！ , vbOKOnly + vbExclamation, 提示 Else SQL = select 賬號 ,權(quán)限 from 訪問權(quán)限 where 賬號 =39。有此記錄 End If End Function DataGride 中顯示數(shù)據(jù) Public Function viewData(ByVal SQL As String, dg As DataGrid, Optional enableWrite As Boolean = True) As Integer 39。判斷數(shù)據(jù)庫中 是否存在指定記錄 Dim rst As Dim con As Set con = New Set rst = New filedsn= 12 Trim$(SQL), con, adOpenStatic, adLockOptimistic If = True Then DBExist = False 39。 SQL 執(zhí)行語句 Public Function ExecuteSQL(ByVal SQL As String, rst As , Optional enableWrite As Boolean = True) Dim con As Set con = New FileDSN=39。 模塊設(shè)計 加一個模塊 module1，該部分主要包括一些公共變量的定義、 ExecuteSQL等執(zhí)行過程定義以及自動把備份的數(shù)據(jù)庫文件還原到 SQL Server 2020 中的代碼設(shè)計。設(shè)計內(nèi)容為管理員、教師和學(xué)生用戶登錄該系統(tǒng)進行八個模塊操作： （ 1）學(xué)生基本情況更新：增加、修改、刪除、查詢（按學(xué)號） （ 2）班級信息維護：添加班級、刪除、編輯、查詢（按班級編號） （ 3）課程信息維護：添加課程、刪除、編輯 （ 4）成績管理：錄入成績（教師用戶）、查詢成績（管理員、學(xué)生用戶） （ 5）獎懲信息維護：獎學(xué)金申請（學(xué)生用戶）、獎學(xué)金評定（管理員用戶 ）、懲處信息的維護（管理員） （ 6）學(xué)費信息：費用設(shè)置、欠費處理、繳費 （ 7）密碼更改 （ 8）管理員角色添加（管理員用戶） 系統(tǒng)結(jié)構(gòu)圖 登 錄學(xué) 生 信 息 管 理 系 統(tǒng)基本維護教務(wù)信息獎懲信息學(xué)費信息管理員信息班級信息學(xué)生信息課程信息學(xué)生選課學(xué)生成績獎學(xué)金處分信息學(xué)費設(shè)置學(xué)生繳費欠費處理管理員管理密碼修改 圖 系統(tǒng)結(jié)構(gòu)圖 8 系統(tǒng) E— R 圖 圖 系統(tǒng) ER 圖 數(shù)據(jù)庫設(shè)計 本系統(tǒng)通過 SQL server 2020 建立后臺數(shù)據(jù)庫，數(shù)據(jù)庫共由 11 個表組成，分別是：訪問權(quán)限信息表（訪問權(quán)限）、學(xué)生基本情況信息表（學(xué)生信息）、班級信息表（班級信息）、課程信息、教師信息、選課表、處分信息、獎學(xué)金、學(xué)費信息、繳費信息、助學(xué)貸款信息表（貸款名單），下文將對主要表格進行簡單介紹 。在設(shè)計過程中設(shè)置本系統(tǒng)的文件 DSN為 DSN訪問數(shù)據(jù)庫的代碼如下： Public Function ExecuteSQL(ByVal SQL As String, rst As , Optional enableWrite As Boolean = True) Dim con As Set con = New FileDSN= Set rst = New If enableWrite Then Trim$(SQL), con, adOpenDynamic, adLockOptimistic Else Trim$(SQL), con, adOpenDynamic, adLockReadOnly End If End Function 7 3 系統(tǒng)分析與設(shè)計 系統(tǒng)功能分析 隨著學(xué)校的規(guī)模不 斷擴大，學(xué)生的數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。 本系統(tǒng) Visual Basic 訪問數(shù)據(jù)庫方法 在 Visual Basic 的工程中，選擇菜單“工程” — “引用”命令，在“可用的引用”中選擇 Microsoft Active Data Object 選項，這樣就在程序中加 6 入了 ADO 的引用。 （ 7） Error 對象：提供處理錯誤的功能。 （ 4） Fields 對象：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段 （ 5） Parametes 對象：表示 Command 對象的參數(shù)。 adLockBatchOptimistic 4 開放式批更新。 adLockOptimistic 3 開放式記錄鎖定（逐條）。無法更改數(shù)據(jù) adLockPressimistic 2 保守式記錄鎖定（逐條） 。 （ 3） Recordset 對象：由數(shù)據(jù)庫服務(wù)器所返回的記錄集。 ADO 組件的主要對象及其功 能 ADO 組件又稱為數(shù)據(jù)庫訪問組件，它提供了以下七種對象： （ 1） Connection 對象：提供對數(shù)據(jù)庫的連接服務(wù)。 ADO 更易于使用。使用 RDO 可以不用本地的查詢機就能訪問 ODBC 數(shù)據(jù)源，這無疑提高了應(yīng)用程序的性能。借助程序代碼編寫，直接控制 Jet 數(shù) 據(jù)庫引擎，配合數(shù)據(jù)庫控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。數(shù)據(jù)控件可以通過一些屬性的設(shè)置去鏈接某個數(shù)據(jù)庫文件，但是它本身并無法顯示數(shù)據(jù)庫各個記錄的內(nèi)容，必須在搭配其他具有數(shù)據(jù)感知（ Data Aware）功能的控件對應(yīng)并顯示一個字段內(nèi)容，以方便地進行記錄的瀏覽及編輯工作。 數(shù)據(jù)管理器（ Data Manager）是 Visual Basic 已有的老成員之一， Jet 數(shù)據(jù)庫引擎（ Database Engine）可以幫助 Visual Basic 程序元件立即維護數(shù)據(jù)庫內(nèi)容，并可通過輸入查詢或查找數(shù)據(jù)庫信息，而不必通過其他數(shù)據(jù)庫軟件另外去設(shè)計 數(shù)據(jù)庫。 Visual Basic 對多種數(shù)據(jù)庫格式的支持，大大的增強了開發(fā)數(shù)據(jù)庫應(yīng)用程序的能力。事實上， Visual Basic 幾乎支持對市面上所有數(shù)據(jù)庫的訪問。從 Visual 版本開始，在 Visual Basic 中制作的應(yīng)用程序都改變?yōu)榫幾g執(zhí)行，使得 Visual Basic 的代碼效率有了很大的提高，同時執(zhí)行的速度也加快了解 30%(同 Visual 相比 )。同時，利用 Visual Basic 自帶的可視化數(shù)據(jù)管理器和報表生成器，也可以在 Visual Basic 中完成數(shù)據(jù)庫的開發(fā)工作。利用 Visual Basic 語言編程有以下特點： （ 1）可視化程序設(shè)計 在 Visual Basic 中開發(fā)的應(yīng)用程序，有豐富的圖形界面， 減少了開發(fā)圖形界面而添加的代碼，在設(shè)計圖形界面的過程中只需設(shè)置 ActiveX 控件的屬性即可。因此，本系統(tǒng)采用 Visual Basic 設(shè)計前端軟件。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。 （ 4）具有很好的伸縮性和可靠性。 SQL Server 提供了 TransactSQL、 DBLibrary for C、 嵌入式 SQL（ ESQL）等開發(fā)工具， TransactSQL 與工業(yè)標(biāo)準(zhǔn) SQL 語言兼容，并在其基礎(chǔ)上加以擴充，使它更適合事務(wù)處理方面的需要。即使 SQL Server 數(shù)據(jù)庫管理員不做任何設(shè)置， SQL Server 也能夠在運行過程中根據(jù)環(huán)境配置和用戶訪問情況動態(tài)自動配置，以達(dá)到最優(yōu)性能，從而減輕管理員工作。此外， SQL Server 2020 還提供了SQL 事件探查器、 SQL 查詢分析器、 SQL Server 服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡化了用戶操作，從而增強了系統(tǒng)的易用性。 （ 1）豐富的圖形管理工具，使系統(tǒng)管理、操作更為直觀方便。另外， SQL Server 2020 可以兼顧小、中、大規(guī)模的應(yīng)用，有著遠(yuǎn)遠(yuǎn)比 Access 強大的伸縮性。通過對高端硬件平臺、網(wǎng)絡(luò)和存儲技術(shù)的支持，為 WEB 站和企業(yè)的應(yīng)用最大限度地提供了可擴展性和高可靠性，能在 Inter 商業(yè)領(lǐng)域快速建立并應(yīng)用。 2 2 開發(fā)工具介紹 SQL Server 2020 簡介 SQL Server 2020 是微軟公司最新版的大型數(shù)據(jù)庫服務(wù)器，其性能指標(biāo)在各方面都有趕超 Oracle 數(shù)據(jù)庫的趨勢。 本系統(tǒng)初具規(guī)模，能勝任在校學(xué)生的基本信息的綜合管理工作，并且基于Visual basic 進行開發(fā)的軟件具有界面友好、操作簡便的優(yōu)點。該系統(tǒng)從我校的實際情況出發(fā)，對我校在校學(xué)生的基本信息進行綜合管理，包括學(xué)生班級信息、課程信息、成績信息、獎懲信息，同時設(shè)置了三種不同的訪問權(quán)限，分別是管理員、教師和學(xué)生，根據(jù)數(shù) 據(jù)庫中的具體數(shù)據(jù)自動分配其登錄后的操作權(quán)限。這些優(yōu)點能夠極大地提高學(xué)生 信息 管理的效率 ， 也是 高校對信息 的科學(xué)化、正規(guī)化 、無紙化 管理 的發(fā)展方向 。 隨著科學(xué)技術(shù)的不斷提高 ， 計算機科學(xué)日漸成熟 ，逐漸應(yīng)用到各個領(lǐng)域 。 information management system has tested on many PCs, th