【正文】 探查器、 SQL 查詢分析器、 SQL Server 服務(wù)管理器和多種操作向?qū)У葓D形界面管理工具，大大簡化了用戶操作，從而增強(qiáng)了系統(tǒng)的易用性。 SQL Server 提供了 TransactSQL、 DBLibrary for C、 嵌入式 SQL（ ESQL）等開發(fā)工具， TransactSQL 與工業(yè)標(biāo)準(zhǔn) SQL 語言兼容，并在其基礎(chǔ)上加以擴(kuò)充，使它更適合事務(wù)處理方面的需要。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。因此，本系統(tǒng)采用 Visual Basic 設(shè)計前端軟件。同時，利用 Visual Basic 自帶的可視化數(shù)據(jù)管理器和報表生成器，也可以在 Visual Basic 中完成數(shù)據(jù)庫的開發(fā)工作。事實上， Visual Basic 幾乎支持對市面上所有數(shù)據(jù)庫的訪問。 數(shù)據(jù)管理器（ Data Manager）是 Visual Basic 已有的老成員之一， Jet 數(shù)據(jù)庫引擎（ Database Engine）可以幫助 Visual Basic 程序元件立即維護(hù)數(shù)據(jù)庫內(nèi)容，并可通過輸入查詢或查找數(shù)據(jù)庫信息，而不必通過其他數(shù)據(jù)庫軟件另外去設(shè)計 數(shù)據(jù)庫。借助程序代碼編寫，直接控制 Jet 數(shù) 據(jù)庫引擎，配合數(shù)據(jù)庫控件，能夠開發(fā)出更具彈性且高效率的數(shù)據(jù)應(yīng)用程序。 ADO 更易于使用。 （ 3） Recordset 對象：由數(shù)據(jù)庫服務(wù)器所返回的記錄集。 adLockOptimistic 3 開放式記錄鎖定（逐條）。 （ 4） Fields 對象：由數(shù)據(jù)庫服務(wù)器所返回的單一數(shù)據(jù)字段 （ 5） Parametes 對象：表示 Command 對象的參數(shù)。 本系統(tǒng) Visual Basic 訪問數(shù)據(jù)庫方法 在 Visual Basic 的工程中，選擇菜單“工程” — “引用”命令，在“可用的引用”中選擇 Microsoft Active Data Object 選項，這樣就在程序中加 6 入了 ADO 的引用。設(shè)計內(nèi)容為管理員、教師和學(xué)生用戶登錄該系統(tǒng)進(jìn)行八個模塊操作： （ 1）學(xué)生基本情況更新：增加、修改、刪除、查詢（按學(xué)號） （ 2）班級信息維護(hù)：添加班級、刪除、編輯、查詢（按班級編號） （ 3）課程信息維護(hù)：添加課程、刪除、編輯 （ 4）成績管理：錄入成績（教師用戶）、查詢成績（管理員、學(xué)生用戶） （ 5）獎懲信息維護(hù)：獎學(xué)金申請（學(xué)生用戶）、獎學(xué)金評定（管理員用戶 ）、懲處信息的維護(hù)（管理員） （ 6）學(xué)費(fèi)信息：費(fèi)用設(shè)置、欠費(fèi)處理、繳費(fèi) （ 7）密碼更改 （ 8）管理員角色添加（管理員用戶） 系統(tǒng)結(jié)構(gòu)圖 登 錄學(xué) 生 信 息 管 理 系 統(tǒng)基本維護(hù)教務(wù)信息獎懲信息學(xué)費(fèi)信息管理員信息班級信息學(xué)生信息課程信息學(xué)生選課學(xué)生成績獎學(xué)金處分信息學(xué)費(fèi)設(shè)置學(xué)生繳費(fèi)欠費(fèi)處理管理員管理密碼修改 圖 系統(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é)費(fèi)信息、繳費(fèi)信息、助學(xué)貸款信息表（貸款名單），下文將對主要表格進(jìn)行簡單介紹 。 SQL 執(zhí)行語句 Public Function ExecuteSQL(ByVal SQL As String, rst As , Optional enableWrite As Boolean = True) Dim con As Set con = New FileDSN=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。and 密碼 = 39。 班級信息管理設(shè)計 該模塊可以通過輸入班級編號進(jìn)行搜索顯示，對具體班級進(jìn)行編輯，也可以 19 全部顯示查看。單選框用于確定搜索條件，系統(tǒng)設(shè)置了按班級搜索和按學(xué)號搜索兩大功能，搜索結(jié)果用 DataGrid 控件刷新顯示。 Call DBExist(SQL) ’查詢數(shù)據(jù)庫中是否存在要搜索的記錄 If DBExist(SQL) = True Then 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。學(xué)生登錄后系統(tǒng)會自動選取“選課表”中與登錄學(xué)號對應(yīng)的選課表內(nèi)容，學(xué)生選課時輸入相應(yīng)的課程代碼并點(diǎn)擊“選課”即可添加課程，同時系統(tǒng)提供 了刪除課程的功能，選課內(nèi)容以及課程信息的內(nèi)容均采用 DataGrid 控件進(jìn)行顯示。 + 賬號 1 + 39。 + Trim() + 39。 + 賬號 1 + 39。 平均成績生成代碼： SQL = select Avg(成績 ) from 選課表 where 學(xué)號 = 39。對設(shè)計到學(xué)籍問題的處分信息，系統(tǒng)會根據(jù)其處理級別對學(xué)籍狀態(tài)進(jìn)行更新，例如：某學(xué)生的處分等級是開出學(xué)籍 ，那么該生的學(xué)籍狀態(tài)會自動更新為“無”。 學(xué)費(fèi)設(shè)置的核心代碼： SQL = update 學(xué)費(fèi)信息 set 學(xué)費(fèi) =39。 Call ExecuteSQL(SQL, rst, True) SQL = select 班級信息 .班級編號 ,班級名稱 ,學(xué)費(fèi) from 班級信息 ,學(xué)費(fèi)信息 where 班級信息 .班級編號 =學(xué)費(fèi)信息 .班級編號 and 學(xué)費(fèi)信息 .班級編號 = 39。 該模塊的運(yùn)行結(jié)果如圖 所示 ： 29 圖 學(xué)生繳費(fèi)運(yùn)行圖 欠費(fèi)處理 該功能不需要進(jìn)行輸入操作，系統(tǒng)對逾期未交清學(xué)費(fèi)的學(xué)生自動記錄并進(jìn)行顯示，便于管理員進(jìn)行下發(fā)通知等進(jìn)一步操作。 + Trim() + 39。管理員 39。 + Trim() + 39。而對管理員用戶，則需要在已有管理員身份登錄的狀態(tài)下進(jìn)行添加或刪除。 + 賬號 1 + 39。 + 賬號 1 + 39。 33 5 結(jié)論 學(xué)生信息管理系統(tǒng)所管理的對象是日益擴(kuò)大的學(xué)生群體，數(shù)據(jù)較為龐大，因此在設(shè)計系統(tǒng)時多次用到了數(shù)據(jù)庫。 ADO 模型由一下兩部分組成：一個是數(shù)據(jù)集（ Recordset），與數(shù)據(jù)源斷開并且不需要知道所保持?jǐn)?shù)據(jù)的來源；另一個是數(shù)據(jù)提供程序，數(shù)據(jù)提供程序能夠與數(shù)據(jù)源連接，并執(zhí)行針對數(shù)據(jù)源的 SQL 語句。所見即所得的開發(fā)界面更加降低了系統(tǒng)的開發(fā)難度。 34 致 謝 光陰荏苒， 四年的大學(xué)生活即將畫上句號，為期一學(xué)期的畢業(yè)設(shè)計也即將告一段落，畢業(yè)設(shè)計陪伴我 度過 了大學(xué)校園的最后一段難忘的時光 。沒有你們的辛勤勞作，就沒有今天的畢業(yè)設(shè)計成果，設(shè)計中的每一個知識點(diǎn)、每一個設(shè)計思想都是老師們耳濡目染的結(jié)果。 35 參考文獻(xiàn) [1] 黃明，梁旭，馮瑞芳 . Visual Basic + SQL server 中小型信息系統(tǒng)開發(fā)實例精選 .北京：機(jī)械工業(yè)出版社， [2] 林陳雷，郭安源，葛曉東 . Visual Basic 教育信息化系統(tǒng)開發(fā)實例導(dǎo)航 .北京：人民郵電出版社 ， [3] 溫小敏 . Visual Basic 數(shù)據(jù)庫系統(tǒng)項目開發(fā)實踐 .北京：科學(xué)出版社， 2020 [4] 徐謖，徐立，吳明旺 . Visual Basic 應(yīng)用與開發(fā)案例教程 .北京：清華大學(xué)出版社， [5] 王晟 . Visual Basic 數(shù)據(jù)庫開發(fā)經(jīng)典案例解析 .北京：清華大學(xué)出版社， [6] 姚一永，呂峻閩 .SQL server 2020 數(shù)據(jù)庫實用教程 .北京：電子工業(yè)出版社， [7] 王新民，張彥鈴 . Visual Basic 程序設(shè)計與數(shù)據(jù)庫應(yīng)用 . 北京：電 子工業(yè)出版社， [8] 王立豐，王穎峰 . Visual Basic 中標(biāo)項目案例導(dǎo)航 .北京：科學(xué)出版社， [9] 徐嘯凱，賀桂英 . 數(shù)據(jù)庫基礎(chǔ)與 SQL Server 應(yīng)用開發(fā) . 北京：清華大學(xué)出版社， [10] 趙致格 . 數(shù)據(jù)庫系統(tǒng)與應(yīng)用（ SQL Server） .北京：清華大學(xué)出版社， 。 最后，我將向我的父母致以最崇高的敬 意，辛勤養(yǎng)育我已有二十余載，十年寒窗有你們的支持才讓我有機(jī)會進(jìn)入到成都理工大學(xué)廣播影視學(xué)院這個美麗的大學(xué)校園，認(rèn)識這里可愛的老師和同學(xué)們。沒有于春老師的幫助，我很難完成這次畢業(yè)設(shè)計的工作，在此，我誠摯地向 于師表示感謝，并祝 于春老師在以后的工作中更加順利。但由于本人學(xué)識和經(jīng)驗有限，本系統(tǒng)難免存在一些錯誤和不足，這些不足和錯誤也將是我學(xué)習(xí)的重要資料。無論使用哪種方式，均需要在連接數(shù)據(jù)庫前建立具體的 ODBC 連接 —— 用戶 DSN、文件 DSN 或者系統(tǒng) DSN，文件 DSN 更具有安全性。它提供了一系列豐富的集成服務(wù)，可以對數(shù)據(jù)進(jìn)行查詢、搜索、同步、報告 和分析之類的操作。 在管理員“李朝林”登錄時，系統(tǒng)記錄了訪問者的訪問賬號，因此登錄者只能對自己的密碼進(jìn)行更改。 + Trim() + 39。 + Trim() + 39。管理員 39。管理員 39。 + Trim() + 39。未交 39。 Call viewData(SQL, DataGrid1, False) = 運(yùn)行效果如圖 所示： 圖 學(xué)費(fèi)設(shè)置 學(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)更改為“已交”。 where 班級編號 =39。 運(yùn)行結(jié)果如圖 所示： 27 圖 處分信息運(yùn)行結(jié)果 在學(xué)號欄輸入學(xué)號并點(diǎn)擊“查詢”按鈕，如果系統(tǒng)未記錄相關(guān)學(xué)生的處分信息，則彈出如圖 所示的提示窗口： 圖 查詢時無記錄提示 查詢結(jié)果中有相關(guān)學(xué)生的處分信息，則可以在系統(tǒng)對該生的處分信息進(jìn)行編輯，如果點(diǎn)擊“解除”按鈕，則將會刪除該生的處分信息，系統(tǒng)彈出如圖 所示的提示信 息，管理員可以根據(jù)提示相關(guān)操作。 Call ExecuteSQL(SQL, rst, False) 平均成績 .Caption = (0)