【正文】 Set mrc = ExecuteSQL(txtsql) If = True Then Combo。 Trim(Combo1(1).Text) amp。 and 專業(yè) =39。 Trim(Combo1(0).Text) amp。 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。 Trim(Combo1(0).Text) amp。填上相應信息，完成設置，如交費管理圖 圖 學費設置圖 實現(xiàn)學費設置功能模塊的主要代碼： Dim clas As String Private Sub Combo1_Click(Index As Integer) Dim mrc As If Index = 0 Then txtsql = select DISTINCT 專業(yè) from class where 年級 =39。如學費設置圖 所示。 學費瀏覽，查詢模塊在上一節(jié) 已經介紹過，這一節(jié)主要介紹學費的添加，設置功能 33 的實現(xiàn)。如檔案添加圖 。 檔案瀏覽和檔案查詢的功能在上一節(jié)已經介紹過了，這一節(jié)主要介紹檔案添加功能。 39。 amp。 圖 添加班級圖 實現(xiàn)班級添加模塊功能的主要代碼： Dim classstr As String Public Sub classload() Dim mrc As If classmodi Then 39。 單擊班級管理模塊中的添加班級設置選項，就會出現(xiàn)相應的信息，包括年級、班級、教室、年制、專業(yè)、班主任、備注等信息，在年級、班級、教室、年制、專業(yè) 、班主任、備注這些要求填寫的欄里填上相應的信息，單擊“確定”完成添加。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 密碼錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If Unload Me End Sub Private Sub Command2_Click() Unload Me 29 End Sub 圖 添加用戶圖 實現(xiàn) 添加用戶 功能的主要代碼 如下 ： Private Sub Command1_Click() If Trim(Text1(0).Text) = Then MsgBox 用戶名不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(0).SetFocus Exit Sub End If If Trim(Text1(1).Text) = Then MsgBox 密碼不能為空！ , vbExclamation + vbOKOnly, 警告 Text1(1).SetFocus Exit Sub End If If Trim(Text1(2).Text) = Then 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) 班級瀏覽，添加班級，班級查詢的功能。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If username = (0) txtsql = select username from use where password=39。 Trim() amp。如下圖添加用戶圖 所示 28 圖 登錄界面圖 實現(xiàn)登陸功能的主要代碼： Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。找到系統(tǒng)模塊， 系統(tǒng)模塊包括用戶添加、修改密碼、重新登錄這三個子模塊，用戶添加包括新增用戶，用戶類型，權限這三種，其中新增用戶包含新用戶名、密碼、確認密碼三樣信息；用戶類型包括只讀用戶、超級用戶和普通用戶這三種信息；權限是對用戶的一種限制，可對系統(tǒng)管理，班級與學生檔案管理， 學生繳費管理，課程與成績管理進行權限設定。 27 圖 學生檔案報表圖 后臺主要 功能模塊詳細設計 系統(tǒng)模塊 任何一個系統(tǒng)模塊在信息管理系統(tǒng)中都很重要，所以在班級管理信息系統(tǒng)中占很重要的地位。 明細表中的“學號”、“性別”、“所屬系別”、“所學專業(yè)”、“入學時間”、“學歷”、“學年制”、“政治面貌”，都是通過下拉列表選擇的，不需要手動輸入，大大簡化了手動填寫的內容。數(shù)據報表主要是學生檔案報表、學生成 績報表。本 系統(tǒng)采用 VBA 技術，制作 EXCEL 報表 ，根據不同的內容，報表分為統(tǒng)計報表、數(shù)據報表?？梢杂霉奖硎緸椋?“報表 ＝ 多樣的格式 ＋ 動態(tài)的數(shù)據 ”。如圖 所示，包括年級、班級、學期、類型等查詢條件，在年級、班級、學期、類型欄里填上相應的信息，就會出現(xiàn)成績?yōu)g覽圖 。只要單擊成績管理模塊中的成績?yōu)g覽、查詢選項，就會出現(xiàn)下圖的成績?yōu)g覽、查詢模塊。 KCCX1 Else MsgBox 請選擇連接方式！ , vbOKOnly, 警告 Exit Sub 成績 查詢模塊 成績 瀏覽、查詢 模塊 在班級管理信息系統(tǒng)中占很重要的地位。 KCCX2 End If Else If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 and amp。 KCCX1 25 Else strTiaoJian = select * from 課程表 where amp。)0 End Select If = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 Trim() amp。 ,39。 Case like KCCX2 = Instr(1, amp。 Trim(Text2) amp。 39。 amp。)0 End Select a = Trim(Combo4) Select Case a Case = KCCX2 = amp。 Trim() amp。 ,39。 Case like KCCX1 = Instr(1, amp。 Trim(Text1) amp。 39。 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。 只要單擊課程管理模塊中的課程查詢模塊就會出現(xiàn)相應的信息。 22 圖 學費瀏覽 圖 圖 學費設置查詢圖 圖 繳費瀏覽圖 實現(xiàn)瀏覽學生繳費功能的主要代碼 ： Public maxx As String Public classtxt As String Dim num As String 23 Public Sub jfshowtitle() Dim i As Integer With MSF1 .Cols = 10 .TextMatrix(0, 1) = 學號 .TextMatrix(0, 2) = 姓名 .TextMatrix(0, 3) = 班級 .TextMatrix(0, 4) = 學期 .TextMatrix(0, 5) = 本次交費 (元 ) .TextMatrix(0, 6) = 本次欠費 (元 ) .TextMatrix(0, 7) = 累計欠費 (元 ) .TextMatrix(0, 8) = 日期 .TextMatrix(0, 9) = 操作員 .ColWidth(0) = 200 .ColWidth(1) = 800 .ColWidth(2) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 2300 .ColWidth(5) = 1200 .ColWidth(6) = 1200 .ColWidth(7) = 1200 .ColWidth(8) = 900 .ColWidth(9) = 900 . 課程查詢模塊 課程查詢模塊 在班級管理信息系統(tǒng)中占非常重要的地位。同樣，單擊學生交費管理模塊中的學費設置查詢模塊選項，就會出現(xiàn)如圖 ，學費設置查詢也是按條件查詢，包括年級，專業(yè)，年制，學期等條件，可以任選其中一種條件查詢 。學生繳費模塊 主要實現(xiàn) 學費瀏覽、查詢， 學生繳費的查詢，瀏覽等信息。 End If If aa = 0 Then ss = MsgBox(你至少要輸入一個條件以上才能查詢！ , , 警告 ) Text1(0).SetFocus Exit Sub 學生繳費模塊 學生繳費 模塊 在班級管理信息系統(tǒng)中占有非常重要的地位。 Trim(Text1(3).Text) amp。 End If End If If Trim(Text1(3).Text) Then aa = 1 txtsql = txtsql = like 39。 Trim(Text1(2).Text) amp。 and =39。 39。 amp。 39。 amp。 Else txtsql = txtsql amp。 Trim(Text1(1).Text) amp。 End If End If If Trim(Text1(1).Text) Then aa = 1 21 If txtsql = Then txtsql = =39。 Trim(Text1(0).Text) amp。 and =39。 39。 amp。 學生檔案查詢模塊在查詢時是按條件查詢，可按學號、姓名、班級、姓名關鍵字等這些條件查詢，可以選擇其中任意一項查詢，也可全部選擇查詢，如圖 ，在學號一欄里填上相應的信息，然后點“確定”按鈕，就會出現(xiàn)相應的查詢結果，如學生檔案查詢結果圖 。只要單擊學生檔案管理模塊，選擇學生檔案瀏覽、查詢模塊，就會出現(xiàn) 相應的 信息 。 End If End If If txtsql = Then ss = MsgBox(你至少要輸入一個條件以上才能查詢！ , , 警告 ) Text1(0).SetFocus Exit Sub 學生檔案瀏覽，查詢模塊 學生檔案瀏覽，查詢模塊 在 班級管理信息系統(tǒng)中占有非常重要的地位。 Trim(Text1(2).Text) amp。 and 專業(yè) =39。 39。 amp。 39。 amp。 Else txtsql = txtsql amp。 Trim(Text1(1).Text) amp。 End If End If If Text1(1).Text