【正文】 MsgBox 確認密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End If If Trim(Text1(1).Text) Trim(Text1(2).Text) Then 30 MsgBox 確認密碼不正確！ , vbExclamation + vbOKOnly, 警告 Text1(2).SetFocus Exit Sub End Sub 班級 管理模塊 班級管理 模塊的主要功能是實現(xiàn) 班級瀏覽，添加班級，班級查詢的功能。 39。如學(xué)費設(shè)置圖 所示。 Trim(Combo1(0).Text) amp。 Set mrc = ExecuteSQL(txtsql) If = True Then Combo。 Set mrc = ExecuteSQL(txtsql) If = True Then Combo1(1).Text = Combo1(2).Text = Exit Sub End If Combo1(1).Clear Do Until Combo1(1).AddItem (0) 34 Loop Combo1(1).ListIndex = 0 txtsql = select DISTINCT 年制 from class where 年級 =39。 學(xué)費瀏覽，查詢模塊在上一節(jié) 已經(jīng)介紹過，這一節(jié)主要介紹學(xué)費的添加，設(shè)置功能 33 的實現(xiàn)。 amp。 Trim() amp。找到系統(tǒng)模塊， 系統(tǒng)模塊包括用戶添加、修改密碼、重新登錄這三個子模塊，用戶添加包括新增用戶，用戶類型，權(quán)限這三種，其中新增用戶包含新用戶名、密碼、確認密碼三樣信息；用戶類型包括只讀用戶、超級用戶和普通用戶這三種信息；權(quán)限是對用戶的一種限制，可對系統(tǒng)管理，班級與學(xué)生檔案管理， 學(xué)生繳費管理，課程與成績管理進行權(quán)限設(shè)定。本 系統(tǒng)采用 VBA 技術(shù)，制作 EXCEL 報表 ，根據(jù)不同的內(nèi)容，報表分為統(tǒng)計報表、數(shù)據(jù)報表。 KCCX1 Else MsgBox 請選擇連接方式！ , vbOKOnly, 警告 Exit Sub 成績 查詢模塊 成績 瀏覽、查詢 模塊 在班級管理信息系統(tǒng)中占很重要的地位。 and amp。 ,39。 amp。 Case like KCCX1 = Instr(1, amp。 如下圖所示： 24 圖 課程查詢圖 實現(xiàn)課程查詢功能模塊的主要代碼： Private Sub Command1_Click() Dim a As String Dim KCCX1 As String Dim KCCX2 As String Dim str1 As String Dim str2 As String If = True Then a = Trim(Combo2) Select Case a Case = KCCX1 = amp。學(xué)生繳費模塊 主要實現(xiàn) 學(xué)費瀏覽、查詢， 學(xué)生繳費的查詢，瀏覽等信息。 Trim(Text1(2).Text) amp。 39。 End If End If If Trim(Text1(1).Text) Then aa = 1 21 If txtsql = Then txtsql = =39。 amp。 Trim(Text1(2).Text) amp。 39。 End If End If If Text1(1).Text Then If txtsql = Then txtsql = 班級 =39。 amp。 主 模塊在班級管理信息系統(tǒng)中占有非常中要的地位，運行班級管理信息系統(tǒng)的程序，進入登陸界面，輸入正確的用戶名和密碼就會出現(xiàn)如下圖 模塊所示的內(nèi)容，包括系統(tǒng)管理、班級管理、學(xué)生檔案管理、學(xué)生繳費管理、課程管理、成績管理等內(nèi)容。 控件 的橋梁作用： DATA在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的 Visual Basic程序之間架起了一座橋梁。 12 表 課程信息表 屬性名 類型 長度 備注 年級 文本 16 所在年級 專業(yè) 文本 12 所學(xué)專業(yè) 年制 文本 8 幾年制 學(xué)期 文本 50 第幾學(xué)期 課程名稱 文本 20 所學(xué)課程 ● 學(xué)生繳費信息 表 主要是存儲學(xué)生繳費的相關(guān)信息，以學(xué)號 作為主鍵。 3 數(shù)據(jù)庫設(shè)計 班級管理信息系統(tǒng) ER 圖 ● 用戶屬性 ER圖 包括 username、 password、 admin、 readonly、 qx qx qx qx4。它提供了表、查詢、窗體、報表、頁、宏、模塊 7 種用來建立數(shù)據(jù)庫系統(tǒng)的對象；提供了多種向?qū)?、生成器、模板，把?shù)據(jù)存儲、數(shù)據(jù)查詢、界面設(shè)計、報表生成等操作規(guī)范化；為建立功能完善的數(shù)據(jù)庫管理系統(tǒng)提供了方便，也使得普通用戶不必編寫代碼，就可以完成大部分數(shù)據(jù)管理的任務(wù)。它提供了靈活的可視化設(shè)計工具，將可視化界面與面向?qū)ο蠹夹g(shù)完善、緊密地結(jié)合起來，并封裝了 Windows 編程的復(fù)雜性。 ：課程管理模塊主要包括基本課程設(shè)置、班級課程設(shè)置、課程查詢的功能。成績管理完成考試類型設(shè)置，成績添加，成績?yōu)g覽，成績查詢的功能。 系統(tǒng)設(shè)計 系統(tǒng)目標(biāo) 本系統(tǒng)要實現(xiàn)的是：管理員即班級中的班主任，管理員可以管理本系統(tǒng) 中的一切事務(wù)， 用戶 可以實現(xiàn)查詢 學(xué)生 信息， 班級信息，繳費信息，課程信息成績信息 等功能 。學(xué)生繳費模塊完成基本學(xué)費設(shè)置，學(xué)生學(xué)費瀏覽，學(xué)生學(xué)費添加，學(xué)生學(xué)費查詢的功能。 第 5節(jié) 系統(tǒng)測試 ， 系統(tǒng)測試 主要包括 性能測試與分析、系統(tǒng)測試策略說明、系統(tǒng)測試方案實施 。 第 3節(jié) 數(shù)據(jù)庫設(shè)計， 數(shù)據(jù)庫設(shè)計包括 班級管理信息系統(tǒng) ER圖 、 數(shù)據(jù)庫邏輯結(jié)構(gòu)的設(shè)計 、 數(shù)據(jù)庫的開發(fā)過程 、 數(shù)據(jù)庫 與 VB的連接。第 4 節(jié) 模塊設(shè)計，模塊設(shè)計主要分為前臺功能模塊的詳細設(shè)計和后臺功能模塊的詳細設(shè)計。又比如華北城市大學(xué)用的是采用的 JSF+MYSQL 模式進行開發(fā)， JSF 類似于 VB， VC，在表示層可以實現(xiàn)拖拉式編輯操作。 管理信息系統(tǒng)是一個由人和計算機等組成的，能進行管理信息的收集、傳遞、加工、保存、維護和使用的系統(tǒng)，它能實測國民經(jīng)濟和企業(yè)的各種運行情況；利用歷史數(shù)據(jù)預(yù)測未來；從全局出發(fā)輔助管理決策；利用信息控制企業(yè)的行為、幫助實現(xiàn)其規(guī)劃目標(biāo)。 本系統(tǒng)符合 班級 管理的規(guī)定，能夠滿足 管理 人員管理的工作需要，并達到操作過程中的直觀、方便、實用、安全等要求。 經(jīng)過分析 ， 我們使用 MICROSOFT公司的 VISUAL +ACCESS2021作為 開發(fā)工具 ， 利用 VISUAL BASIC提供的各種面向?qū)ο蟮拈_發(fā)工具 ， 尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象 ， 首先在短時間內(nèi)建立系統(tǒng)應(yīng)用原型 ， 然后 ， 對初始原型系統(tǒng)進行需求迭代 ， 不斷修正和改進 ， 直到形成用戶滿意的可行系統(tǒng) 。計算機數(shù)據(jù)庫管理隨著計算機硬件（尤其是外存儲器）、軟件技術(shù)和計算機應(yīng)用范圍的發(fā)展而不斷發(fā)展。 2 國 內(nèi)外研究現(xiàn)狀 目前國內(nèi)外很多高校已經(jīng)不僅僅停留在紙質(zhì)上面，都改用了以計算機為基礎(chǔ)的班級信息管理系統(tǒng)，以浙江工商大學(xué)為例，采用 JSP+ SQL Server 2021 的模式進行開發(fā) . JSP 是用來制作動態(tài)網(wǎng)頁的。 第 3 節(jié) 數(shù)據(jù)庫設(shè)計，數(shù)據(jù)庫設(shè)計包括班級管理信息系統(tǒng) ER 圖、數(shù)據(jù)庫邏輯結(jié)構(gòu)的設(shè)計、數(shù)據(jù)庫的開發(fā)過程 、數(shù) 據(jù)庫與 VB 的連接。 開發(fā)和運行環(huán)境是基于 vb+access完成的。 其中前臺模塊設(shè)計中還包括報表設(shè)計， 報表設(shè)計主要 采用 VBA技術(shù)，制作 EXCEL報表 。學(xué)生檔案模塊完成檔案瀏覽，檔案添加，檔案查詢的功能。 通過掌握和調(diào)查的相關(guān)原始資料，就可以通過小組討論，對該系統(tǒng)的開發(fā)做出相關(guān)的計劃進度，著手進行系統(tǒng)的分析和設(shè)計工作。課程管理完成 課程查詢， 基本課程設(shè) 置，班級課程設(shè)置的功能。 ：學(xué)生繳費管理模塊主要包括基本學(xué)費設(shè)置、學(xué)生繳費瀏覽、學(xué)生繳費添加、學(xué)生繳費查詢的功能。 VB 因簡單易學(xué)、功能強大、編譯 速度快而從眾多的軟件開發(fā)工具中脫穎而出。 數(shù)據(jù)庫： MicrosoftAccess2021 Access 是微軟公司推出的基于 Windows 的桌面關(guān)系數(shù)據(jù)庫管理系統(tǒng)（ RDBMS，即 Relational Database Management System），是 Office 系列應(yīng)用軟件之一。 因此 vb+Access 是很好的搭檔，示我開發(fā)的班級管理信息系統(tǒng)界面友好、操作簡單、功能強大。 表 班級信息表 屬性名 類型 長度 備注 年級 文本 16 所在年級 班級 文本 20 所在班級 教室 文本 16 所在教室 年制 文本 20 幾年制 專業(yè) 文本 16 所學(xué)專業(yè) 班主任 文本 8 班主任 備注 備注 備注說明 ● 課程信息 表 主要是存儲課程的相關(guān)信息。 Visual Basic、 Access以及其他的軟件產(chǎn)品 很多都是 通過共用 JET數(shù)據(jù)庫引擎 的 ，這 給用戶提供了豐富的數(shù)據(jù)類型。 4 模塊設(shè)計 前臺主要功能模塊詳細設(shè)計 主 模塊 主模塊是用來導(dǎo)航到系統(tǒng)的各個功能模塊的。 圖 班級瀏覽圖 實現(xiàn)班級瀏覽功能的主要代碼 ： Public printstr As String 16 Public Sub classshowtitle() Dim i As Integer With MSF1 .Cols = 8 .TextMatrix(0, 1) = 年級 .TextMatrix(0, 2) = 班級 .TextMatrix(0, 3) = 教室 .TextMatrix(0, 4) = 年制 .TextMatrix(0, 5) = 專業(yè) .TextMatrix(0, 6) = 班主任 .TextMatrix(0, 7) = 備注 .ColWidth(0) = 100 .ColWidth(1) = 1300 .ColWidth(2) = 1200 .ColWidth(3) = 800 .ColWidth(4) = 800 .ColWidth(5) = 800 .ColWidth(6) = 800 .ColWidth(7) = 5000 .FixedRows = 1 For i = 1 To 7 .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With End Sub 17 圖 班級查詢圖 圖 班級查詢結(jié)果圖 實現(xiàn)班級查詢模塊功能的主要代碼： Private Sub Command1_Click() txtsql = If Text1(0).Text Then If txtsql = Then txtsql = 年級 =39。 39。 Trim(Text1(1).Text) amp。 amp。 圖 瀏覽學(xué)生檔案圖 19 實現(xiàn)學(xué)生檔案瀏覽功能的主要代碼： Public Sub showtitle() Dim i As Integer With MSF1 .Cols = 14 .TextMatrix(0, 1) = 學(xué)號 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 性別 .TextMatrix(0, 4) = 年級 .TextMatrix(0, 5) = 班級 .TextMatrix(0, 6) = 專業(yè) .TextMatrix(0, 7) = 年制 .TextMatrix(0, 8) = 出 生年月 .TextMatrix(0, 9) = 家庭住址 .TextMatrix(0, 10) = 郵政編碼 .TextMatrix(0, 11) = 聯(lián)系電話 .TextMatrix(0, 12) = 入學(xué)時間 .TextMatrix(0, 13) = 備注 .ColWidth(0) = 200 .ColWidth(1) = 500 .ColWidth(2) = 700 .ColWidt