【導(dǎo)讀】件的引用，并通過文件DSN的方式對數(shù)據(jù)庫進(jìn)行訪問和操作。的添加、刪除和更改，同時管理員能對訪問者的權(quán)限進(jìn)行管理。己所擔(dān)任課程進(jìn)行課表查詢、成績管理。學(xué)生用戶登錄后能對自己的基本信息進(jìn)。行確認(rèn)、查詢成績以及申請獎學(xué)金。本系統(tǒng)經(jīng)過多臺計算機(jī)測試，運行正常，相對穩(wěn)定。且系統(tǒng)初具規(guī)模，基本

　　

【正文】 動更新為“無”。系統(tǒng)提供查詢、添加、解除處分三個功能，同時在添加處分信息時記錄信息詳盡，記錄了處分緣由、處分信息記錄的時間，方便查詢。 運行結(jié)果如圖 所示： 27 圖 處分信息運行結(jié)果 在學(xué)號欄輸入學(xué)號并點擊“查詢”按鈕，如果系統(tǒng)未記錄相關(guān)學(xué)生的處分信息，則彈出如圖 所示的提示窗口： 圖 查詢時無記錄提示 查詢結(jié)果中有相關(guān)學(xué)生的處分信息，則可以在系統(tǒng)對該生的處分信息進(jìn)行編輯，如果點擊“解除”按鈕，則將會刪除該生的處分信息，系統(tǒng)彈出如圖 所示的提示信 息，管理員可以根據(jù)提示相關(guān)操作。 圖 解除處分 28 學(xué)費信息模塊設(shè)計 學(xué)費設(shè)置 根據(jù)我校實際情況，各個專業(yè)的學(xué)費不盡相同，且需要在限定時間內(nèi)無欠費繳清，因此，該系統(tǒng)在設(shè)計過程中不涉及到多次繳費的功能。 學(xué)費設(shè)置的核心代碼： SQL = update 學(xué)費信息 set 學(xué)費 =39。 + Trim() + 39。 where 班級編號 =39。 + Trim() + 39。 Call ExecuteSQL(SQL, rst, True) SQL = select 班級信息 .班級編號 ,班級名稱 ,學(xué)費 from 班級信息 ,學(xué)費信息 where 班級信息 .班級編號 =學(xué)費信息 .班級編號 and 學(xué)費信息 .班級編號 = 39。 + Trim() + 39。 Call viewData(SQL, DataGrid1, False) = 運行效果如圖 所示： 圖 學(xué)費設(shè)置 學(xué)生繳費 學(xué)生繳費由管理員進(jìn)行操作，輸入學(xué)號并點擊“查詢”按鈕，系統(tǒng)根據(jù)輸入學(xué)號的班級信息進(jìn)行判斷，輸出學(xué)費金額，管理員 點擊“繳費”按鈕，繳費狀態(tài)更改為“已交”。 其中助學(xué)貸款項與貸款名單數(shù)據(jù)表相關(guān)，如果貸款名單中有該生記錄，則繳費狀態(tài)為“已交”，否則該生為欠費狀態(tài)。 該模塊的運行結(jié)果如圖 所示 ： 29 圖 學(xué)生繳費運行圖 欠費處理 該功能不需要進(jìn)行輸入操作，系統(tǒng)對逾期未交清學(xué)費的學(xué)生自動記錄并進(jìn)行顯示，便于管理員進(jìn)行下發(fā)通知等進(jìn)一步操作。其運行界面如圖 所示 ： 圖 欠費處理 核心代碼： SQL = select 學(xué)生信息 .學(xué)號 ,姓名 ,班級名稱 ,學(xué)費 ,繳費狀態(tài) from 學(xué)生信息 ,班級信息 , 30 學(xué)費信息 ,繳費信息 where 學(xué)生信息 .學(xué)號 = 繳費信息 .學(xué)號 and 學(xué)生信息 .班級編號 = 班級信息 .班級編號 and 班級信息 .班級編號 = 學(xué)費信息 .班級編號 and 繳費信息 .繳費狀態(tài)= 39。未交 39。 Call viewData(SQL, DataGrid1, False) 管理員信息模塊設(shè)計 管理員添加和刪除 添加新管理員角色功能的核心代碼是： SQL = insert into 訪問權(quán)限 values(39。 + Trim() + 39。,39。 + Trim() + 39。,39。管理員 39。) Call ExecuteSQL(SQL, rst, False) SQL = select 賬號 ,權(quán)限 from 訪問權(quán)限 where 權(quán)限 = 39。管理員 39。 Call viewData(SQL, DataGrid1, False) 刪除管理員角色的核心代碼： SQL = delete from 訪問權(quán)限 where 賬號 = 39。 + Trim() + 39。 Call ExecuteSQL(SQL, rst, False) SQL = select 賬號 ,權(quán)限 from 訪問權(quán)限 where 權(quán)限 = 39。管理員 39。 Call viewData(SQL, DataGrid1, False) 運行結(jié)果如圖 所示 ： 圖 管理員管理 本系統(tǒng)上傳了新生或教師的名單后會自動生成賬號和密碼，密碼和賬號相同，可以進(jìn)一步對密碼進(jìn)行更改，相關(guān)的權(quán)限信息會保存在“訪問權(quán)限”數(shù)據(jù)表 31 中。而對管理員用戶，則需要在已有管理員身份登錄的狀態(tài)下進(jìn)行添加或刪除。 密碼的修改 密碼更改的核心代碼： If = Or = Or = Then MsgBox 請將信息填寫完整！ , vbOKOnly + vbExclamation, 警告 Else SQL = select 密碼 from 訪問權(quán)限 where 密碼 = 39。 + Trim() + 39。and 賬號 =39。 + 賬號 1 + 39。 Call DBExist(SQL) If DBExist(SQL) = False Then MsgBox 舊密碼錯誤！ , vbOKOnly + vbExclamation, 警告 Else If Then MsgBox 兩次輸入的新密碼不一致！ , vbOKOnly + vbExclamation, 警告 Else SQL = update 訪問權(quán)限 set 密碼 =39。 + Trim() + 39。 where 訪問權(quán)限 .賬號 =39。 + 賬號 1 + 39。 Call ExecuteSQL(SQL, rst, True) MsgBox 修改成功 ！ , vbOKOnly, 提示 運行結(jié)果如圖 所示 ： 圖 密碼更改 本系統(tǒng)具有訪問權(quán)限的用戶均能對自己的密碼進(jìn)行更改，由于三種訪問角色的密碼更改功能一致，故以管理員更改密碼的功能為例進(jìn)行介紹。 在管理員“李朝林”登錄時，系統(tǒng)記錄了訪問者的訪問賬號，因此登錄者只能對自己的密碼進(jìn)行更改。首先系統(tǒng)會對輸入的舊密碼進(jìn)行核實，如果輸入的舊密碼與數(shù)據(jù)庫中的數(shù)據(jù)一致則可以進(jìn)行下一步操作，否則會報錯，彈出如圖 32 所示提示信息： 圖 舊密碼確認(rèn)失敗 當(dāng)用戶在圖 所示的界面中填寫信 息完畢并點擊“提交”按鈕，舊密碼確認(rèn)正確的情況下，如果新設(shè)定的密碼兩次輸入不一致，則系統(tǒng)彈出如圖 所示警告信息： 圖 新密碼確認(rèn)失敗 在圖 所示界面點擊“取消”按鈕，則退出密碼修改界面。 33 5 結(jié)論 學(xué)生信息管理系統(tǒng)所管理的對象是日益擴(kuò)大的學(xué)生群體，數(shù)據(jù)較為龐大，因此在設(shè)計系統(tǒng)時多次用到了數(shù)據(jù)庫。 SQL server 2020 在 Microsoft 的數(shù)據(jù)平臺上發(fā)布，可以幫助用戶的組織隨時隨地管理任何數(shù)據(jù)。它提供了一系列豐富的集成服務(wù)，可以對數(shù)據(jù)進(jìn)行查詢、搜索、同步、報告 和分析之類的操作。 Visual Basic 提供的 ADO（ Active Data Object）是微軟開發(fā)的訪問 SQL Server 的主要數(shù)據(jù)方法，是一種提供訪問各種數(shù)據(jù)庫的聯(lián)接機(jī)制。 ADO 模型由一下兩部分組成：一個是數(shù)據(jù)集（ Recordset），與數(shù)據(jù)源斷開并且不需要知道所保持?jǐn)?shù)據(jù)的來源；另一個是數(shù)據(jù)提供程序，數(shù)據(jù)提供程序能夠與數(shù)據(jù)源連接，并執(zhí)行針對數(shù)據(jù)源的 SQL 語句。 ADO 訪問數(shù)據(jù)庫可以通過 ODBC（ Open Database Connectivity）方式訪問 SQL Server，可以使用用戶 DSN、系統(tǒng) DSN 和文件 DSN。無論使用哪種方式，均需要在連接數(shù)據(jù)庫前建立具體的 ODBC 連接 —— 用戶 DSN、文件 DSN 或者系統(tǒng) DSN，文件 DSN 更具有安全性。 Visual Basic 在數(shù)據(jù)庫應(yīng)用程序的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（ DataManager），數(shù)據(jù)控件（ Data Control）以及數(shù)據(jù)編程對象（數(shù)據(jù)訪問對象（ DAO）遠(yuǎn)程數(shù)據(jù)對象（ RDO）和 ActiveX 數(shù)據(jù)對象（ ADO））等工具，協(xié)助設(shè)計人員輕松的連接數(shù)據(jù)庫文件，并訪問其中的數(shù)據(jù)。所見即所得的開發(fā)界面更加降低了系統(tǒng)的開發(fā)難度。 通過對學(xué)生信息 管理系統(tǒng)的開發(fā)實踐，認(rèn)識到數(shù)據(jù)庫的重要性以及其功能的強(qiáng)大，同時也使我在應(yīng)用軟件的開發(fā)上積累了許多寶貴的經(jīng)驗，為以后的工作和學(xué)習(xí)提供了幫助。但由于本人學(xué)識和經(jīng)驗有限，本系統(tǒng)難免存在一些錯誤和不足，這些不足和錯誤也將是我學(xué)習(xí)的重要資料。 總之，通過本次設(shè)計，讓我學(xué)到了很多，積累了較多的經(jīng)驗，同時也認(rèn)識到自身的不足。 34 致 謝 光陰荏苒， 四年的大學(xué)生活即將畫上句號，為期一學(xué)期的畢業(yè)設(shè)計也即將告一段落，畢業(yè)設(shè)計陪伴我 度過 了大學(xué)校園的最后一段難忘的時光 。 非常感謝 在本次設(shè)計中幫助我的 指導(dǎo)老師于春 老師， 在百忙之中還 要幫我修改論文，并對我的設(shè)計進(jìn)行了細(xì)心指導(dǎo)，對設(shè)計過程中的很多疑問進(jìn)行了悉心 講解，對 內(nèi)容提出了寶貴的意見。沒有于春老師的幫助，我很難完成這次畢業(yè)設(shè)計的工作，在此，我誠摯地向 于師表示感謝，并祝 于春老師在以后的工作中更加順利。 同時，在即將畢業(yè)之際，我衷心的感謝 大學(xué) 里我所有的任課老師們。沒有你們的辛勤勞作，就沒有今天的畢業(yè)設(shè)計成果，設(shè)計中的每一個知識點、每一個設(shè)計思想都是老師們耳濡目染的結(jié)果。在以后的工作中，我將會繼續(xù)把你們傳授的知識、技能發(fā)揚光大，為社會貢獻(xiàn)自己的一份力量。 最后，我將向我的父母致以最崇高的敬 意，辛勤養(yǎng)育我已有二十余載，十年寒窗有你們的支持才讓我有機(jī)會進(jìn)入到成都理工大學(xué)廣播影視學(xué)院這個美麗的大學(xué)校園，認(rèn)識這里可愛的老師和同學(xué)們。經(jīng)過四年的大學(xué)生活磨練，我即將踏入社會的大門，我將會用我的所學(xué)、所得努力奮斗，回報你們。 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é)出版社，