【導讀】題目班級管理信息系統(tǒng)設計與實現(xiàn)。二Ｏ一Ｏ年五月二十二日

　　

【正文】 amp。 39。 amp。 Trim(Text2) amp。 39。 Case like KCCX2 = Instr(1, amp。 amp。 ,39。 amp。 Trim() amp。 39。)0 End Select If = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 25 Else strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 and amp。 KCCX2 End If ElseIf = True Then If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 Else strTiaoJian = select * from 課程表 where amp。 KCCX1 amp。 or amp。 KCCX2 End If Else If KCCX1 = Then strTiaoJian = select * from 課程表 where amp。 KCCX2 ElseIf KCCX2 = Then strTiaoJian = select * from 課程表 where amp。 KCCX1 Else MsgBox 請選擇連接方式！ , vbOKOnly, 警告 Exit Sub 成績 查詢模塊 成績 瀏覽、查詢 模塊 在班級管理信息系統(tǒng)中占很重要的地位。一個學校包含很多班級，每個班級的學生都 要考試，所以要是仍然按照以前那種老的辦法手動地進行 成績 查詢、瀏覽，會很復雜，所以只要能實現(xiàn)成績?yōu)g覽、查詢模塊，就能減輕班級管理員的負擔，也方便學生查詢成績。只要單擊成績管理模塊中的成績?yōu)g覽、查詢選項，就會出現(xiàn)下圖的成績?yōu)g覽、查詢模塊。成績?yōu)g覽、查詢模塊 主要應用于 瀏覽，查詢各個班級的信息。如圖 所示，包括年級、班級、學期、類型等查詢條件，在年級、班級、學期、類型欄里填上相應的信息，就會出現(xiàn)成績?yōu)g覽圖 。 圖 成績?yōu)g覽 圖 26 實現(xiàn)成績?yōu)g覽功能模塊的主要代碼： If i = 1 Then = + 7 (0, 1) = 學號 (0, 2) = 姓名 (0, 3) = 學期 (0, 4) = 類型 g = 5 For j = 1 To (0, g) = (課 程名稱 ) g = g + 1 Next j (0, g) = 總分 (0, g + 1) = 平均分 (0) = 150 (3) = 2300 For r = 1 To + 6 (r) = 0 Next r = 30 = 1 報表設計 簡單的說：報表就是用表格、圖表等格式來動態(tài)顯示數(shù)據(jù)。可以用公式表示為： “報表 ＝ 多樣的格式 ＋ 動態(tài)的數(shù)據(jù) ”。 報表在本論文中的作用也是非常強大的，報表包含了很多的信息，方便管理員或者用戶查詢信息。本 系統(tǒng)采用 VBA 技術，制作 EXCEL 報表 ，根據(jù)不同的內(nèi)容，報表分為統(tǒng)計報表、數(shù)據(jù)報表。統(tǒng)計報表主要是學生繳費統(tǒng)計報表。數(shù)據(jù)報表主要是學生檔案報表、學生成 績報表。這里主要介紹數(shù)據(jù)報表中的學生檔案報表，如下圖學生檔案報表圖，內(nèi)容包括學生的學號、姓名、性別、出生年月、年齡、籍貫、名族、所屬系別、所學專業(yè)、入學時間、學歷、學年制、政治面貌、擔任職務、畢業(yè)時間、畢業(yè)去向、獎懲情況等。 明細表中的“學號”、“性別”、“所屬系別”、“所學專業(yè)”、“入學時間”、“學歷”、“學年制”、“政治面貌”，都是通過下拉列表選擇的，不需要手動輸入，大大簡化了手動填寫的內(nèi)容。以同樣的方法還可以做“學生繳費統(tǒng)計報表”、“學生成績報表”等。 27 圖 學生檔案報表圖 后臺主要 功能模塊詳細設計 系統(tǒng)模塊 任何一個系統(tǒng)模塊在信息管理系統(tǒng)中都很重要，所以在班級管理信息系統(tǒng)中占很重要的地位。首先打開系統(tǒng)， 系統(tǒng)登陸時，要求正確輸入用戶名和密碼，單擊“立即登錄”，成功登陸后顯示如登錄圖 界面。找到系統(tǒng)模塊， 系統(tǒng)模塊包括用戶添加、修改密碼、重新登錄這三個子模塊，用戶添加包括新增用戶，用戶類型，權(quán)限這三種，其中新增用戶包含新用戶名、密碼、確認密碼三樣信息；用戶類型包括只讀用戶、超級用戶和普通用戶這三種信息；權(quán)限是對用戶的一種限制，可對系統(tǒng)管理，班級與學生檔案管理， 學生繳費管理，課程與成績管理進行權(quán)限設定。在添加新用戶時，只要按要求在新增用戶、用戶類型、權(quán)限這三項里填上相應的信息，單擊“確定”按鈕，完成添加。如下圖添加用戶圖 所示 28 圖 登錄界面圖 實現(xiàn)登陸功能的主要代碼： Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 amp。 Trim() amp。 39。 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。 amp。 Trim() amp。 39。 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) 班級瀏覽，添加班級，班級查詢的功能。 班級的瀏覽，查詢功能在上一節(jié) 已經(jīng)介紹過，這一節(jié)主要介紹班級添加功能的實現(xiàn)。 單擊班級管理模塊中的添加班級設置選項，就會出現(xiàn)相應的信息，包括年級、班級、教室、年制、專業(yè)、班主任、備注等信息，在年級、班級、教室、年制、專業(yè) 、班主任、備注這些要求填寫的欄里填上相應的信息，單擊“確定”完成添加。如添加班級圖 所示。 圖 添加班級圖 實現(xiàn)班級添加模塊功能的主要代碼： Dim classstr As String Public Sub classload() Dim mrc As If classmodi Then 39。如果是修改狀態(tài) = 修改班級設置 classstr = select * from class where 班級 =39。 amp。 Trim((, 2)) amp。 39。 31 Set mrc = ExecuteSQL(classstr) For i = 0 To 6 Text1(i).Text = (i) Next i Else = 添加班級設置 For i = 0 To 6 Text1(i).Text = Next i End If End Sub 學生檔案 管理模塊 學生檔案管理 模塊的主要功能是實現(xiàn)對學生的個人信 息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便 管理員對學生 的基本情況的快速查詢和了解。 檔案瀏覽和檔案查詢的功能在上一節(jié)已經(jīng)介紹過了，這一節(jié)主要介紹檔案添加功能。 單擊學生檔案管理模塊中的檔案添加選項，就會出現(xiàn)相應的信息，包括學號、姓名、性別、班級、出生年月、家庭住址、郵政編碼、聯(lián)系電話、入學時間、備注等信息，在學號、姓名、性別、班級、出生年月、家庭住址、郵政編碼、聯(lián)系電話、入學時 間、備注這些要求填寫的欄里填上相應的信息，單擊“確定”完成添加。如檔案添加圖 。 32 圖 檔案添加圖 實現(xiàn)檔案添加模塊功能的主要代碼： Else = 登記 For i = 2 To 7 Text1(i).Text = Next i Text1(6).Text = Date Text1(0).Text = Text1(1).Text = End If End Sub 學生繳費 管理模塊 學生繳費 管理 模塊主要實現(xiàn)管理員對 學生繳費 信息 管理工作，包括 基本學費設置，學費瀏覽，學費添加，學費查詢等模塊。 學費瀏覽，查詢模塊在上一節(jié) 已經(jīng)介紹過，這一節(jié)主要介紹學費的添加，設置功能 33 的實現(xiàn)。 單擊學生繳費管理模塊中的 基本學費設置中的學費設置添加 選項，就會出現(xiàn)相應的信息，包括年級、專業(yè)、年制、學期、學費等信息，在年級、專業(yè)、年制、學期、學費這些要求填寫的欄里填上相應的信息，單擊“確定”完成 設置 。如學費設置圖 所示。 同樣，單擊學生繳費管理模塊中的學生交費添加選項，就會出現(xiàn)相應的信息，包括 學生的學號、姓名、班級、學期、本學 期應交費交費、實際交費欠費、本次欠費、以上欠費、累計欠費等。填上相應信息，完成設置，如交費管理圖 圖 學費設置圖 實現(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。 amp。 Trim(Combo1(0).Text) amp。 39。 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。 amp。 Trim(Combo1(0).Text) amp。 39。 and 專業(yè) =39。 amp。 Trim(Combo1(1).Text) amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then Com