【正文】 非常感謝 在本次設(shè)計(jì)中幫助我的 指導(dǎo)老師于春 老師， 在百忙之中還 要幫我修改論文，并對(duì)我的設(shè)計(jì)進(jìn)行了細(xì)心指導(dǎo)，對(duì)設(shè)計(jì)過程中的很多疑問進(jìn)行了悉心 講解，對(duì) 內(nèi)容提出了寶貴的意見。 Call ExecuteSQL(SQL, rst, True) MsgBox 修改成功 ！ , vbOKOnly, 提示 運(yùn)行結(jié)果如圖 所示 ： 圖 密碼更改 本系統(tǒng)具有訪問權(quán)限的用戶均能對(duì)自己的密碼進(jìn)行更改，由于三種訪問角色的密碼更改功能一致，故以管理員更改密碼的功能為例進(jìn)行介紹。) Call ExecuteSQL(SQL, rst, False) SQL = select 賬號(hào) ,權(quán)限 from 訪問權(quán)限 where 權(quán)限 = 39。 + Trim() + 39。,39。,39。,39。 + Trim() + 39。 ADO 通過 ODBC 方式訪問數(shù)據(jù)庫(kù)可以使用用戶 DSN、系統(tǒng) DSN 和文件DSN，鑒于安全性的考慮，一般不使用系統(tǒng) DSN，本系統(tǒng)選用文件 DSN。 在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫(kù)及數(shù)據(jù)庫(kù)表，并采用了ADO+ODBC 數(shù)據(jù)訪問技術(shù)。 （ 3）其他特性 在 Visual Basic 以前的版本中，由于仍然擺脫 不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。 （ 2）動(dòng)態(tài)自動(dòng)管理和優(yōu)化功能。作為計(jì)算機(jī)應(yīng)用的一部分 ， 使用計(jì)算機(jī)對(duì)學(xué)生信息進(jìn)行管理 ， 具有著 紙質(zhì)檔案 管理所無法比擬的優(yōu)點(diǎn) ， 例如 ： 檢索迅速、查找方便、可靠性高、存儲(chǔ)量大、保密性好、壽命長(zhǎng)、成本低等。學(xué)生用戶登錄后能對(duì)自己的基本信息進(jìn)行確認(rèn)、查詢成績(jī)以及申請(qǐng)獎(jiǎng)學(xué)金。通過對(duì)高端硬件平臺(tái)、網(wǎng)絡(luò)和存儲(chǔ)技術(shù)的支持，為 WEB 站和企業(yè)的應(yīng)用最大限度地提供了可擴(kuò)展性和高可靠性，能在 Inter 商業(yè)領(lǐng)域快速建立并應(yīng)用。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計(jì)界面和實(shí)現(xiàn)各種功能，減少了編程人員的工作量，也簡(jiǎn)化了界面設(shè)計(jì)過程，從而有效的提高了應(yīng)用程序的運(yùn)行效率和可靠性。數(shù)據(jù)控件可以通過一些屬性的設(shè)置去鏈接某個(gè)數(shù)據(jù)庫(kù)文件，但是它本身并無法顯示數(shù)據(jù)庫(kù)各個(gè)記錄的內(nèi)容，必須在搭配其他具有數(shù)據(jù)感知（ Data Aware）功能的控件對(duì)應(yīng)并顯示一個(gè)字段內(nèi)容，以方便地進(jìn)行記錄的瀏覽及編輯工作。 adLockBatchOptimistic 4 開放式批更新。判斷數(shù)據(jù)庫(kù)中 是否存在指定記錄 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。運(yùn)行界面如圖 所示 ： 圖 學(xué)生信息維護(hù)運(yùn)行界面 學(xué)生信息維護(hù)核心代碼介紹 1 搜索功能 SQL = select * from 學(xué)生信息 where 學(xué)號(hào) = 39。 + Trim() + 39。 + Trim() + 39。 Call ExecuteSQL(SQL, rst, False) 平均成績(jī) .Caption = (0) 學(xué)生自主查詢 運(yùn)行結(jié)果如圖 所示 ： 圖 學(xué)生成績(jī)查詢 管理員或教師賬號(hào)登陸的學(xué)生成績(jī)查詢 如圖 所示 ： 26 圖 管理員查詢學(xué)生成績(jī) 獎(jiǎng)懲信息模塊設(shè)計(jì) 獎(jiǎng)學(xué)金申請(qǐng) 該模塊的功能實(shí)現(xiàn)需要學(xué)生和管理員雙方共同完成，首先系統(tǒng)會(huì)根據(jù)學(xué)生的平均成績(jī)進(jìn)行首輪篩選，然后系統(tǒng)會(huì)根據(jù)學(xué)生是否點(diǎn)擊“申請(qǐng)獎(jiǎng)學(xué)金”進(jìn)行二輪篩選，最后由管理員設(shè)置獎(jiǎng)學(xué)金名額進(jìn)行最后評(píng)選和公示。未交 39。 + Trim() + 39。無論使用哪種方式，均需要在連接數(shù)據(jù)庫(kù)前建立具體的 ODBC 連接 —— 用戶 DSN、文件 DSN 或者系統(tǒng) DSN，文件 DSN 更具有安全性。 35 參考文獻(xiàn) [1] 黃明，梁旭，馮瑞芳 . Visual Basic + SQL server 中小型信息系統(tǒng)開發(fā)實(shí)例精選 .北京：機(jī)械工業(yè)出版社， [2] 林陳雷，郭安源，葛曉東 . Visual Basic 教育信息化系統(tǒng)開發(fā)實(shí)例導(dǎo)航 .北京：人民郵電出版社 ， [3] 溫小敏 . Visual Basic 數(shù)據(jù)庫(kù)系統(tǒng)項(xiàng)目開發(fā)實(shí)踐 .北京：科學(xué)出版社， 2020 [4] 徐謖，徐立，吳明旺 . Visual Basic 應(yīng)用與開發(fā)案例教程 .北京：清華大學(xué)出版社， [5] 王晟 . Visual Basic 數(shù)據(jù)庫(kù)開發(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)用開發(fā) . 北京：清華大學(xué)出版社， [10] 趙致格 . 數(shù)據(jù)庫(kù)系統(tǒng)與應(yīng)用（ SQL Server） .北京：清華大學(xué)出版社， 。 ADO 模型由一下兩部分組成：一個(gè)是數(shù)據(jù)集（ Recordset），與數(shù)據(jù)源斷開并且不需要知道所保持?jǐn)?shù)據(jù)的來源；另一個(gè)是數(shù)據(jù)提供程序，數(shù)據(jù)提供程序能夠與數(shù)據(jù)源連接，并執(zhí)行針對(duì)數(shù)據(jù)源的 SQL 語(yǔ)句。而對(duì)管理員用戶，則需要在已有管理員身份登錄的狀態(tài)下進(jìn)行添加或刪除。 該模塊的運(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)一步操作。 平均成績(jī)生成代碼： SQL = select Avg(成績(jī) ) from 選課表 where 學(xué)號(hào) = 39。學(xué)生登錄后系統(tǒng)會(huì)自動(dòng)選取“選課表”中與登錄學(xué)號(hào)對(duì)應(yīng)的選課表內(nèi)容，學(xué)生選課時(shí)輸入相應(yīng)的課程代碼并點(diǎn)擊“選課”即可添加課程，同時(shí)系統(tǒng)提供 了刪除課程的功能，選課內(nèi)容以及課程信息的內(nèi)容均采用 DataGrid 控件進(jìn)行顯示。 + Trim() + 39。單選框用于確定搜索條件，系統(tǒng)設(shè)置了按班級(jí)搜索和按學(xué)號(hào)搜索兩大功能，搜索結(jié)果用 DataGrid 控件刷新顯示。 SQL 執(zhí)行語(yǔ)句 Public Function ExecuteSQL(ByVal SQL As String, rst As , Optional enableWrite As Boolean = True) Dim con As Set con = New FileDSN=39。 adLockOptimistic 3 開放式記錄鎖定（逐條）。 數(shù)據(jù)管理器（ Data Manager）是 Visual Basic 已有的老成員之一， Jet 數(shù)據(jù)庫(kù)引擎（ Database Engine）可以幫助 Visual Basic 程序元件立即維護(hù)數(shù)據(jù)庫(kù)內(nèi)容，并可通過輸入查詢或查找數(shù)據(jù)庫(kù)信息，而不必通過其他數(shù)據(jù)庫(kù)軟件另外去設(shè)計(jì) 數(shù)據(jù)庫(kù)。所以，它具有很好的伸縮性，能夠滿足從桌面應(yīng)用到大型企業(yè)分布式應(yīng)用到不同層次用戶的要求。 2 2 開發(fā)工具介紹 SQL Server 2020 簡(jiǎn)介 SQL Server 2020 是微軟公司最新版的大型數(shù)據(jù)庫(kù)服務(wù)器，其性能指標(biāo)在各方面都有趕超 Oracle 數(shù)據(jù)庫(kù)的趨勢(shì)。 此學(xué)生信息管理系統(tǒng)針對(duì)四川傳媒學(xué)院的具體情況進(jìn)行設(shè)計(jì)， 管理員登錄后能對(duì)班級(jí)信息、課程信息、學(xué)生基本信息、學(xué)生獎(jiǎng)懲信息進(jìn)行管理，包括對(duì)信息的添加、刪除和 更改，同時(shí)管理員能對(duì)訪問者的權(quán)限進(jìn)行管理。 本文介紹了利用 SQL server 2020 建立數(shù)據(jù)庫(kù)， Visual Basic 作 為前臺(tái)軟件開發(fā)工具開發(fā)的學(xué)生管理系統(tǒng)。 （ 3）豐富的編程接口工具，使用戶開發(fā) SQL Server 數(shù)據(jù)庫(kù)應(yīng)用程序更加靈活。 4 Visual Basic 支持的數(shù)據(jù)庫(kù)系統(tǒng) Visual Basic 支持對(duì)多格式的數(shù)據(jù)庫(kù)的訪問和維護(hù)，無論是 Access 還是Foxpro 中創(chuàng)建的數(shù)據(jù)庫(kù)，都可以用 Visual Basic 打開，對(duì)其進(jìn)行查詢、修改和刪除等操作。 （ 2） Command 對(duì)象：定義對(duì)數(shù)據(jù)庫(kù)源操作的命令。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。教師登錄主界 18 面的菜單功能代碼為： Private Sub form_load() = True = True = LoadPicture(E:\VB 學(xué)生信息 \) End Sub Private Sub 成績(jī)管理 _Click() 成績(jī)錄入 .Show 教師 .Hide End Sub Private Sub 密碼修改 _Click() 教師 密碼 .Show 教師 .Hide End Sub Private Sub 退出系統(tǒng) _Click() End End Sub 圖 教師登錄主界面 學(xué)生登錄系統(tǒng)主界面設(shè)計(jì) 學(xué)生登錄主界面的設(shè)計(jì)與管理員、教師登錄的設(shè)計(jì)一致。,39。) Call ExecuteSQL(SQL, rst, True) SQL = select * from 學(xué)生信息 order by 學(xué)號(hào) asc Call viewData(SQL, DataGrid1, True) ’在 DataGrid控件中進(jìn)行顯示 3 刪除功能 delete from 學(xué)生信息 where 學(xué)號(hào) = 39。) Call ExecuteSQL(SQL, rst, True) SQL = select * from 課程信息 where 課程代碼 in ( select 課程代碼 from 選課表 where 學(xué)號(hào) =39。 + Trim() + 39。 Call viewData(SQL, DataGrid1, False) 刪除管理員角色的核心代碼： SQL = delete from 訪問權(quán)限 where 賬號(hào) = 39。首先系統(tǒng)會(huì)對(duì)輸入的舊密碼進(jìn)行核實(shí)，如果輸入的舊密碼與數(shù)據(jù)庫(kù)中的數(shù)據(jù)一致則可以進(jìn)行下一步操作，否則會(huì)報(bào)錯(cuò)，彈出如圖 32 所示提示信息： 圖 舊密碼確認(rèn)失敗 當(dāng)用戶在圖 所示的界面中填寫信 息完畢并點(diǎn)擊“提交”按鈕，舊密碼確認(rèn)正確的情況下，如果新設(shè)定的密碼兩次輸入不一致，則系統(tǒng)彈出如圖 所示警告信息： 圖 新密碼確認(rèn)失敗 在圖 所示界面點(diǎn)擊“取消”按鈕