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

　　

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