【正文】 sual Basic 作 為前臺(tái)軟件開發(fā)工具開發(fā)的學(xué)生管理系統(tǒng)。管理員具有最高訪問權(quán)限，能對(duì)所有信息進(jìn)行綜合編輯，教師用戶主要對(duì)自己所擔(dān)任課程進(jìn)行成績登錄，學(xué)生用戶能對(duì)自己的基本信息進(jìn)行查詢和確認(rèn)，包括成績信息、獎(jiǎng)懲信息和密碼的更改。系統(tǒng)內(nèi)部對(duì)每步的操作均設(shè)置了相關(guān)提示信息，使用者不需對(duì)該軟件進(jìn)行長時(shí)間的學(xué)習(xí)即能使用，達(dá)到了方便快捷又不失功能強(qiáng)大的特點(diǎn)。用它可以方便地管理數(shù)據(jù)庫和開發(fā)應(yīng)用程序，它使用了最先進(jìn)的數(shù)據(jù)庫構(gòu)架，與 Windows NT/2020 平臺(tái)緊密集成，具有完全的 Web 功能。 SQL Server 2020 提供的非常傻瓜的缺省安裝和使用模式，其上手難度并不比 Access 大。 SQL Server 數(shù)據(jù)庫特點(diǎn) 概括起來， SQL Server 2020 數(shù)據(jù)庫管理系統(tǒng)具有以下主要特點(diǎn)。 SQL Server企業(yè)管理器是一個(gè)基于圖形用戶界面 （ GUI） 的集成管理工具，利用它可以配置管理 SQL Server 服務(wù)器、管理數(shù)據(jù)庫和數(shù)據(jù)庫對(duì)象、備份和恢復(fù)數(shù)據(jù)、調(diào)度任務(wù)和管理警報(bào)、實(shí)現(xiàn)數(shù)據(jù)復(fù)制和轉(zhuǎn)換操作等。 （ 2）動(dòng)態(tài)自動(dòng)管理和優(yōu)化功能。 （ 3）豐富的編程接口工具，使用戶開發(fā) SQL Server 數(shù)據(jù)庫應(yīng)用程序更加靈活。此外， SQL Server 2020 還支持 ODBC、 OLE DB、 ADO 規(guī)范，可以使用 ODBC、 OLE DB、 ADO 接口訪問 SQL Server 數(shù)據(jù)庫。 SQL Server 2020 既能運(yùn)行在 Windows桌面操作系統(tǒng)下，又可 運(yùn)行在服務(wù)器操作系統(tǒng)（包括 Windows NT 和 Windows 3 2020）下；既 能運(yùn)行在單 CPU計(jì)算機(jī)上，又能運(yùn)行在對(duì)稱多處理系統(tǒng)下。 Visual Basic 簡介 微軟公司的 Visual Basic 是 Windows 應(yīng)用程序開發(fā)工具，是目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。利用 VISUAL BASIC 程序設(shè) 計(jì)語言，可以很方便地設(shè)計(jì)出在 WINDOWS 環(huán)境下運(yùn)行的應(yīng)用程序。 Visual Basic 的編程特點(diǎn) Visual Basic語言的出現(xiàn)為 Windows下的編程提出了一個(gè)新概念，利用 Visual Basic 的動(dòng)態(tài)數(shù)據(jù)交換、對(duì)象的鏈接和嵌入、動(dòng)態(tài)鏈接庫、 ActiveX 等技術(shù)可以很方便地設(shè)計(jì)出功能強(qiáng)大的應(yīng)用程序。 （ 2）強(qiáng)大的數(shù)據(jù)庫功能 隨著 Visual Basic 語言的向前發(fā)展，在數(shù)據(jù)庫和網(wǎng)絡(luò)方面的功能優(yōu)勢(shì)就愈加明顯，利用 Visual Basic 中的 ODBC（開放式的數(shù)據(jù)庫訪問技術(shù)）可以很方便地開發(fā)出自己的數(shù)據(jù)庫應(yīng)用程序。 （ 3）其他特性 在 Visual Basic 以前的版本中，由于仍然擺脫 不了解釋執(zhí)行的代碼運(yùn)行機(jī)制，所以在相當(dāng)?shù)某潭壬现萍s了 Visual Basic 的發(fā)展。 4 Visual Basic 支持的數(shù)據(jù)庫系統(tǒng) Visual Basic 支持對(duì)多格式的數(shù)據(jù)庫的訪問和維護(hù)，無論是 Access 還是Foxpro 中創(chuàng)建的數(shù)據(jù)庫，都可以用 Visual Basic 打開，對(duì)其進(jìn)行查詢、修改和刪除等操作。 Visual Basic 可以訪問的數(shù)據(jù)庫可以簡單的分為三類，即： Microsoft Access格式數(shù)據(jù)庫，外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。 數(shù)據(jù)庫開發(fā)中的三大工具 Visual Basic 在數(shù)據(jù)庫應(yīng)用程序的開發(fā)領(lǐng)域中，提供包含數(shù)據(jù)管理（ Data Manager），數(shù)據(jù)控件（ Data Control）以及數(shù) 據(jù)編程對(duì)象（數(shù)據(jù)訪問對(duì)象（ DAO）遠(yuǎn)程數(shù)據(jù)對(duì)象（ RDO）和 ActiveX 數(shù)據(jù)對(duì)象（ ADO））等工具，協(xié)助設(shè)計(jì)人員輕松的連接數(shù)據(jù)庫文件，并訪問其中的數(shù)據(jù)，在功能方面與其他一些專業(yè)數(shù)據(jù)庫軟件（如 FoxPro， Microsoft Access 等）不相上下。 數(shù)據(jù)控件是 Visual Basic 所提供的基本控件成員之一，它使得設(shè)計(jì)者省下一堆程序代碼編寫的工作，能夠輕松的設(shè)計(jì)及維護(hù)數(shù)據(jù)庫內(nèi)容。 Visual Basic 提供的數(shù)據(jù)訪問對(duì)象（ Data Access Object； DAO）讓程序設(shè)計(jì)者擁有更大的發(fā)揮空間。 RDO 是處理遠(yuǎn)程數(shù)據(jù)庫的一些專門需要的對(duì)象集合。 ADO 是 Visual Basic 中新增的對(duì)象，它是一個(gè)更簡單的對(duì)象模型，它更好的集成了其它數(shù)據(jù)訪問技術(shù)，并且對(duì)本地和遠(yuǎn)程數(shù)據(jù)庫均有共同的界面，可以 5 取代 DAO 和 RDO。 在本系統(tǒng)中利用數(shù)據(jù)管理器創(chuàng)建了數(shù)據(jù)庫及數(shù)據(jù)庫表，并采用了ADO+ODBC 數(shù)據(jù)訪問技術(shù)。 （ 2） Command 對(duì)象：定義對(duì)數(shù)據(jù)庫源操作的命令。 Recordset 對(duì)象的 LockType 屬性的設(shè)置值如下表所示： 表 21 Recordset對(duì)象的 LockType屬性的設(shè)置值 常量 值 說明 adLockReadOnly 1 默認(rèn)值，只讀。提供者執(zhí)行必要的操作確保成功編輯記錄，通常采用立即鎖定數(shù)據(jù)源的記錄的方式。提供者使用開放式鎖定，只在調(diào)用 Updata 方法時(shí)鎖定記錄。用于與立即更新模式相反的批更新模式。 （ 6） Property 對(duì)象：單獨(dú)的一個(gè) Property 對(duì)象，提供屬性功能。 使用 ADO 對(duì)象可以建立和管理數(shù)據(jù)庫的連接，按數(shù)據(jù)庫服務(wù)器的要求獲得數(shù)據(jù)，執(zhí)行更新、刪除、添加數(shù)據(jù)等操作，獲取 ODBC 的錯(cuò)誤信息等。 ADO 通過 ODBC 方式訪問數(shù)據(jù)庫可以使用用戶 DSN、系統(tǒng) DSN 和文件DSN，鑒于安全性的考慮，一般不使用系統(tǒng) DSN，本系統(tǒng)選用文件 DSN。通過這樣的系統(tǒng)可以做到信息的規(guī)范管理、快速查詢、修改、增加、刪除等，從而減少管理方面的工作量。 （ 1） 訪問權(quán)限 表 31 訪問權(quán)限表設(shè)計(jì) 名稱 字段名稱 類型 長度 訪問賬號(hào) 賬號(hào) varchar 14 密碼 密碼 varchar 14 權(quán)限等級(jí) 權(quán)限 varchar 8 （ 2） 學(xué)生信息 表 32 學(xué)生基本信息表設(shè)計(jì) 字段名稱 類型 長度 NULL 值 學(xué)號(hào) varchar 14 NOT 姓名 varchar 8 NOT 班級(jí)編號(hào) varchar 7 NOT 性別 varchar 2 NOT 9 年級(jí) varchar 4 NOT 政治面貌 varchar 8 NULL 民族 varchar 4 NOT 籍貫 varchar 4 NOT 身份證號(hào) varchar 18 NOT 學(xué)籍狀態(tài) varchar 4 NULL （ 3） 班級(jí)信息 表 33 班級(jí)信息表設(shè)計(jì) 字段名稱 類型 長度 NULL 值 班級(jí)編號(hào) varchar 7 NOT 年級(jí) varchar 4 NOT 班級(jí)名稱 varchar 30 NOT 班級(jí)簡稱 varchar 16 NULL 人數(shù) Int 5 NOT 班主任 varchar 8 NOT （ 4） 課程信息 表 34 課程信息表設(shè)計(jì) 字段名稱 類型 長度 NULL 值 課程代碼 varchar 5 NOT 課程名稱 varchar 50 NOT 課程性質(zhì) varchar 4 NOT 上課時(shí)間 varchar 20 NOT 上課地點(diǎn) varchar 14 NULL 任課教師 varchar 8 NOT 學(xué)分 int 2 NOT （ 5） 選課表 表 35 選課表設(shè)計(jì) 字段名稱 類型 長度 NULL 值 學(xué)號(hào) varchar 14 NOT 課程代碼 varchar 5 NOT 成績 float 20 NULL （ 6） 教師信息 10 表 36 教師表設(shè)計(jì) 字段名稱 類型 長 度 NULL 值 賬號(hào) varchar 14 NOT 姓名 varchar 8 NOT 任課科目 varchar 50 NOT （ 7） 處分信息 表 38 處分信息表設(shè)計(jì) 字段名稱 類型 長度 NULL 值 學(xué)號(hào) varchar 14 NOT 處分等級(jí) varchar 12 NOT 說明 varchar 50 NOT 填報(bào)時(shí)間 date NOT （ 8） 獎(jiǎng)學(xué)金 表 39 獎(jiǎng)學(xué)金信息表設(shè)計(jì) 字段名稱 類型 長度 NULL 值 學(xué)號(hào) varchar 14 NOT 平均成績 float 20 NOT 申請(qǐng)標(biāo)記 varchar 4 NULL 11 4 系統(tǒng)具體實(shí)現(xiàn) 本部分主要內(nèi)容為本系統(tǒng)的各個(gè)運(yùn)行界面以及主要界面的源代碼。 公共變量 Public 權(quán)限 As String Public 賬號(hào) 1 As String 用于存儲(chǔ)賬號(hào)和權(quán)限，在訪問過程中分配其訪問權(quán)限以及當(dāng)前登陸者密碼的更改。打開文件 DSN Set rst = New If enableWrite Then Trim$(SQL), con, adOpenDynamic, adLockOptimistic’ 以讀寫方式打開數(shù)據(jù)文件 Else Trim$(SQL), con, adOpenDynamic, adLockReadOnly’ 以只讀方式打開數(shù)據(jù)文件 End If End Function 判斷數(shù)據(jù)庫中是否存在指定記錄 Public Function DBExist(ByVal SQL As String) As Boolean 39。沒有此記錄 Else DBExist = True 39。DataGride 中顯示數(shù)據(jù) Dim rst As Dim con As Set con = New Set rst = New filedsn= If enableWrite Then Trim$(SQL), con, adOpenStatic, adLockOptimistic Set = rst Else Trim$(SQL), con, adOpenStatic, adLockReadOnly Set = rst End If End Function 登錄窗體設(shè)計(jì) 添加一個(gè)窗體（登錄 .frm），該部分主要包括用戶的驗(yàn)證以及權(quán)限的限制。 + Trim() + 39。 + Trim() + 39。教師登錄主界 18 面的菜單功能代碼為： Private Sub form_load() = True = True = LoadPicture(E:\VB 學(xué)生信息 \) End Sub Private Sub 成績管理 _Click() 成績錄入 .Show 教師 .Hid