【正文】 35 參考文獻 [1] 黃明，梁旭，馮瑞芳 . Visual Basic + SQL server 中小型信息系統(tǒng)開發(fā)實例精選 .北京：機械工業(yè)出版社， [2] 林陳雷，郭安源，葛曉東 . Visual Basic 教育信息化系統(tǒng)開發(fā)實例導航 .北京：人民郵電出版社 ， [3] 溫小敏 . Visual Basic 數(shù)據(jù)庫系統(tǒng)項目開發(fā)實踐 .北京：科學出版社， 2020 [4] 徐謖，徐立，吳明旺 . Visual Basic 應用與開發(fā)案例教程 .北京：清華大學出版社， [5] 王晟 . Visual Basic 數(shù)據(jù)庫開發(fā)經(jīng)典案例解析 .北京：清華大學出版社， [6] 姚一永，呂峻閩 .SQL server 2020 數(shù)據(jù)庫實用教程 .北京：電子工業(yè)出版社， [7] 王新民，張彥鈴 . Visual Basic 程序設計與數(shù)據(jù)庫應用 . 北京：電 子工業(yè)出版社， [8] 王立豐，王穎峰 . Visual Basic 中標項目案例導航 .北京：科學出版社， [9] 徐嘯凱，賀桂英 . 數(shù)據(jù)庫基礎與 SQL Server 應用開發(fā) . 北京：清華大學出版社， [10] 趙致格 . 數(shù)據(jù)庫系統(tǒng)與應用（ SQL Server） .北京：清華大學出版社， 。 最后，我將向我的父母致以最崇高的敬 意，辛勤養(yǎng)育我已有二十余載，十年寒窗有你們的支持才讓我有機會進入到成都理工大學廣播影視學院這個美麗的大學校園，認識這里可愛的老師和同學們。沒有你們的辛勤勞作，就沒有今天的畢業(yè)設計成果，設計中的每一個知識點、每一個設計思想都是老師們耳濡目染的結(jié)果。沒有于春老師的幫助，我很難完成這次畢業(yè)設計的工作，在此，我誠摯地向 于師表示感謝，并祝 于春老師在以后的工作中更加順利。 34 致 謝 光陰荏苒， 四年的大學生活即將畫上句號，為期一學期的畢業(yè)設計也即將告一段落，畢業(yè)設計陪伴我 度過 了大學校園的最后一段難忘的時光 。但由于本人學識和經(jīng)驗有限，本系統(tǒng)難免存在一些錯誤和不足，這些不足和錯誤也將是我學習的重要資料。所見即所得的開發(fā)界面更加降低了系統(tǒng)的開發(fā)難度。無論使用哪種方式，均需要在連接數(shù)據(jù)庫前建立具體的 ODBC 連接 —— 用戶 DSN、文件 DSN 或者系統(tǒng) DSN，文件 DSN 更具有安全性。 ADO 模型由一下兩部分組成：一個是數(shù)據(jù)集（ Recordset），與數(shù)據(jù)源斷開并且不需要知道所保持數(shù)據(jù)的來源；另一個是數(shù)據(jù)提供程序，數(shù)據(jù)提供程序能夠與數(shù)據(jù)源連接，并執(zhí)行針對數(shù)據(jù)源的 SQL 語句。它提供了一系列豐富的集成服務，可以對數(shù)據(jù)進行查詢、搜索、同步、報告 和分析之類的操作。 33 5 結(jié)論 學生信息管理系統(tǒng)所管理的對象是日益擴大的學生群體，數(shù)據(jù)較為龐大，因此在設計系統(tǒng)時多次用到了數(shù)據(jù)庫。 在管理員“李朝林”登錄時，系統(tǒng)記錄了訪問者的訪問賬號，因此登錄者只能對自己的密碼進行更改。 + 賬號 1 + 39。 + Trim() + 39。 + 賬號 1 + 39。 + Trim() + 39。而對管理員用戶，則需要在已有管理員身份登錄的狀態(tài)下進行添加或刪除。管理員 39。 + Trim() + 39。管理員 39。管理員 39。 + Trim() + 39。 + Trim() + 39。未交 39。 該模塊的運行結(jié)果如圖 所示 ： 29 圖 學生繳費運行圖 欠費處理 該功能不需要進行輸入操作，系統(tǒng)對逾期未交清學費的學生自動記錄并進行顯示，便于管理員進行下發(fā)通知等進一步操作。 Call viewData(SQL, DataGrid1, False) = 運行效果如圖 所示： 圖 學費設置 學生繳費 學生繳費由管理員進行操作，輸入學號并點擊“查詢”按鈕，系統(tǒng)根據(jù)輸入學號的班級信息進行判斷，輸出學費金額，管理員 點擊“繳費”按鈕，繳費狀態(tài)更改為“已交”。 Call ExecuteSQL(SQL, rst, True) SQL = select 班級信息 .班級編號 ,班級名稱 ,學費 from 班級信息 ,學費信息 where 班級信息 .班級編號 =學費信息 .班級編號 and 學費信息 .班級編號 = 39。 where 班級編號 =39。 學費設置的核心代碼： SQL = update 學費信息 set 學費 =39。 運行結(jié)果如圖 所示： 27 圖 處分信息運行結(jié)果 在學號欄輸入學號并點擊“查詢”按鈕，如果系統(tǒng)未記錄相關學生的處分信息，則彈出如圖 所示的提示窗口： 圖 查詢時無記錄提示 查詢結(jié)果中有相關學生的處分信息，則可以在系統(tǒng)對該生的處分信息進行編輯，如果點擊“解除”按鈕，則將會刪除該生的處分信息，系統(tǒng)彈出如圖 所示的提示信 息，管理員可以根據(jù)提示相關操作。對設計到學籍問題的處分信息，系統(tǒng)會根據(jù)其處理級別對學籍狀態(tài)進行更新，例如：某學生的處分等級是開出學籍 ，那么該生的學籍狀態(tài)會自動更新為“無”。 Call ExecuteSQL(SQL, rst, False) 平均成績 .Caption = (0) 學生自主查詢 運行結(jié)果如圖 所示 ： 圖 學生成績查詢 管理員或教師賬號登陸的學生成績查詢 如圖 所示 ： 26 圖 管理員查詢學生成績 獎懲信息模塊設計 獎學金申請 該模塊的功能實現(xiàn)需要學生和管理員雙方共同完成，首先系統(tǒng)會根據(jù)學生的平均成績進行首輪篩選，然后系統(tǒng)會根據(jù)學生是否點擊“申請獎學金”進行二輪篩選，最后由管理員設置獎學金名額進行最后評選和公示。 平均成績生成代碼： SQL = select Avg(成績 ) from 選課表 where 學號 = 39。同時，該模塊還自動提供平均成績的生成并，如果平均成績大于或等于 85 分，則會將該生的信息添加到“ 獎學金”數(shù)據(jù)表。 + 賬號 1 + 39。39。 + Trim() + 39。 + 賬號 1 + 39。 + 賬號 1 + 39。 + Trim() + 39。學生登錄后系統(tǒng)會自動選取“選課表”中與登錄學號對應的選課表內(nèi)容，學生選課時輸入相應的課程代碼并點擊“選課”即可添加課程，同時系統(tǒng)提供 了刪除課程的功能，選課內(nèi)容以及課程信息的內(nèi)容均采用 DataGrid 控件進行顯示。運行界面如圖 所示。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 + Trim() + 39。 按班級搜索功能的運行界面如圖 所示。 Call DBExist(SQL) ’查詢數(shù)據(jù)庫中是否存在要搜索的記錄 If DBExist(SQL) = True Then 39。運行界面如圖 所示 ： 圖 學生信息維護運行界面 學生信息維護核心代碼介紹 1 搜索功能 SQL = select * from 學生信息 where 學號 = 39。單選框用于確定搜索條件，系統(tǒng)設置了按班級搜索和按學號搜索兩大功能，搜索結(jié)果用 DataGrid 控件刷新顯示。 整個顯示過程是通過 Visual Basic 中的 DataGrid 空間顯示，進行添加、刪除或搜索操作后 DataGrid 會進行刷新顯示新的數(shù)據(jù)， 在操作過程中如果遇到非法操作（如：不允許空值時無輸入信息，輸入文本超出限制長度等）時，系統(tǒng)會做出相關提示或警告。 班級信息管理設計 該模塊可以通過輸入班級編號進行搜索顯示，對具體班級進行編輯，也可以 19 全部顯示查看。 Call DBExist(SQL) If DBExist(SQL) = True Then 賬號 1 = Trim() Call ExecuteSQL(SQL, rst, False) 權(quán)限 = (1) Else MsgBox 密碼錯誤 , vbOKOnly + vbExclamation, 警告 = End If End If If 權(quán)限 = 學生 Then 學生 .Show 登錄 .Hide End If If 權(quán)限 = 教師 Then 教師 .Show 登錄 .Hide End If If 權(quán)限 = 管理員 Then 登錄 .Hide End If End Sub Private Sub Command2_Click() = = End Sub Private Sub Command3_Click() End End Sub Private Sub form_load() 14 = = End Sub 圖 登錄界面 當在圖 中填寫不完整點擊“登陸”按鈕，則彈出報錯信息，如圖 所示： 圖 信息未填寫完整 當輸入用戶名或密碼錯誤時，系統(tǒng)統(tǒng)一定義為密碼填寫錯誤，彈出如圖 所示錯誤信息： 15 圖 密碼錯誤 系統(tǒng)主界面的設計 管理員身份進入系統(tǒng) 以管理員的賬號 “趙男” 及正確的密碼 “ 2020202130117” 進入到系統(tǒng)，系統(tǒng)會自動根據(jù)訪問權(quán)限中的數(shù)據(jù)記錄分配其訪問權(quán)限，運行結(jié)果如下圖所示 ： 圖 系統(tǒng)主頁 系統(tǒng)主界面的設計過程：添加 ，點擊 Visual Basic 中的工具，對系統(tǒng)主界面的菜單進行編輯，編輯過程如下圖所示 ： 16 圖 菜單編輯過程 菜單功能的程序代碼： Private Sub form_load() = True = True = LoadPicture(E:\VB 學生信息 \) End Sub Private Sub 班級維護 _Click() End Sub Private Sub 處分信息 _Click() End Sub Private Sub 管理員密碼修改 _Click() 密碼 .Show End Sub Private Sub 管理員信息管理 _Click() 管理員 .Show End Sub Private Sub 獎學金評定 _Click() 17 End Sub Private Sub 課程信息維護 _Click() End Sub Private Sub 欠費處理 _Click() End Sub Private Sub 退出