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