【文章內(nèi)容簡介】 改 成 績 信 息 添 加 成 績 信 息 查 詢 成 績 信 息 6 圖 41 系統(tǒng)結(jié)構(gòu)設(shè)計圖 數(shù)據(jù)庫設(shè)計 該系統(tǒng)的 數(shù)據(jù)庫采用了 Microsoft 推出的 Access 數(shù)據(jù)庫， 其中涉及到多張數(shù)據(jù)庫表 。 涉及的數(shù)據(jù) 庫 表 本系統(tǒng)中所涉及到的主要實體共有九個數(shù)據(jù) 庫 表： Allkecheng 表： {課程名稱，教材 } Cj表： {學(xué)號，學(xué)期，類型，課程名稱，分數(shù) } Class 表： {年級，班級，教室，年制，專業(yè)，班主任，備注 } Classkecheng 表： {年級，專業(yè)，年制，學(xué)期，課程名稱 } Kaoshileixing 表： {類型 } Use 表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} Xj 表： {學(xué)號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時 間，備注 } 表的物理結(jié)構(gòu) 各表的物理結(jié)構(gòu)如表所示 ： 接受數(shù)據(jù) 處理中心 系統(tǒng)管理 理 理理 學(xué)籍管理 班級管理 課程管理 成績管理 打印報表 7 Cj表 如表 41所示 ： 表 41 成績表 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 10 學(xué)期 文本 50 類型 文本 16 課程名稱 文本 20 分數(shù) 單精度型數(shù)字 自動 Class 表 如表 42所示： 表 42 班級 表 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 班級 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 Classkecheng表 如表 43所示 ： 表 43 班級課程表 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 8 Use 表 如表 44 所示 ： 表 44 用戶表 字段名稱 類型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 Xj表 如表 45所示 ： 表 45 學(xué)籍表 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 9 姓名 文本 8 性別 文本 2 班級 文本 10 出生年月 日期 /時間 家庭住址 文本 30 郵政編碼 數(shù)字（長整型） 聯(lián)系電話 數(shù)字（長整型） 入學(xué)時間 日期 /時間 備注 備注 系統(tǒng)的 界面設(shè)計 系統(tǒng)登錄界面及主界面設(shè)計 進行完一些必要的分析后就要考慮界面的設(shè)計了。 運行本系統(tǒng)之前首先要進行登陸，登陸界面如圖 42所示。在登錄界面中輸 9 入正確的用戶名和密碼后單擊“確定”即可進入主 界面進行相應(yīng)的操作了。 圖 42 系統(tǒng) 登陸界面圖 根據(jù)需要該 系統(tǒng) 要 實現(xiàn) 學(xué)生學(xué)籍信息、班級信息、課程信息、成績信息等相關(guān)信息的管理，所以該信息系統(tǒng)包括以下幾個功能模塊：系統(tǒng)管理、學(xué)籍管理、班級管理、課程信息、成績管理和幫助 。 該系統(tǒng)主界面如圖 43所示，選擇相應(yīng)的模塊就可以進行各個模塊的相應(yīng)操作了。 圖 43 系統(tǒng)主界面圖 系統(tǒng)管理模塊 界面設(shè)計 該模塊的主要任務(wù)是維護系統(tǒng)的正常運行和安全性設(shè)置 ,包括添加用戶、修改密碼、 退出系統(tǒng)三個模塊。界面如圖 44所示（由于其他幾個模塊的界面類似于本模塊， 所以下面內(nèi)容的中將不再列出界面圖）。 10 圖 44 系統(tǒng)管理模塊界面圖 學(xué)籍管理模塊界面設(shè)計 該模塊的功能是實現(xiàn)對 學(xué)生 的 學(xué)籍信息進行 管理 ，包括添加學(xué)籍信息、修改學(xué)籍信息和查詢學(xué)籍信息三個模塊 ，這三個功能模塊 能夠各自獨立 完成 學(xué)生學(xué)籍信息 的管理。 班級 管理模塊 界面設(shè)計 該模塊的主要功能是實現(xiàn)對 全校班級信息的管理 ，包括 添加班級信息和修改班級信息兩個模塊 ，從而方便學(xué)校管理部門對學(xué)校的 班級 情況 進行管理。 課程管理模塊 界面設(shè)計 該模塊對各個班級的課程進行 添加、修改 和 設(shè)置，并可在其中設(shè)置各門課程的教材選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。該模塊包括 添加課程信息、修改課程信息和設(shè)置班級課程三 個模塊 。 成績管理模塊 界面設(shè)計 學(xué)校的成績管理工作是檢驗學(xué)生學(xué)習(xí)情況的一個主要手段 ,其中 設(shè)置了 添加成績 信息 、 修改成績信息和查詢成績信息三個 功能模塊。 5 代碼分析與實現(xiàn) 本部分主要內(nèi)容 是介紹 本系統(tǒng) 的一些 主要界面 及相應(yīng) 的源代碼。 11 系統(tǒng)登陸界面 本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在 Use 表中，本系統(tǒng)根據(jù)不同的 用戶而設(shè)置了不同的權(quán)限 。具體界面如圖 42所示，代碼如下所示。 Private Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then = Else = vbNullString End If OK = False miCount = 0 End Sub Private Sub cmdCancel_Click() OK = False End Sub Private Sub cmdOK_Click() Dim txtSQL As String Dim mrc As Dim MsgText As String 39。ToDo: create test for correct password 12 39。check for correct password UserName = If Trim( = ) Then MsgBox 沒有 這 個用 戶 ，請 重新 輸 入用 戶名 ！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 amp。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = True Then MsgBox 沒有這個用戶，請重新輸入用戶名 !, vbOKOnly + vbExclamation, 警告 Else If Trim((1)) = Trim() Then OK = True UserName = Trim() Else MsgBox 輸入密碼不正確，請重新輸入！ , vbOKOnly + vbExclamation, 警告 = End If End If End If miCount = miCount + 1 13 If miCount = 3 Then End If Exit Sub End Sub 用戶管理模塊 本模塊是本系統(tǒng)的安全性設(shè)置模塊， 由管理員根據(jù)學(xué)校不同部門以及不同使用人員對本系統(tǒng)的要求和需要為其分配 權(quán)限 ，并且添加新用戶。圖 51 是系統(tǒng)管理模塊中添加用戶的界面。 圖 51 系統(tǒng)管理模塊中添加用戶的界面 圖 具體代碼如下： Private Sub cmdCancel_Click() Unload Me End Sub Private Sub cmdOK_Click() Dim txtSQL, MsgText As String Dim mrc As If Trim(Text1(1).Text) Trim(Text1(2).Text) Then MsgBox 密碼輸入不正確！ , vbOKOnly + vbExclamation, 警告 Text1(1).SetFocus 14 Text1(1).Text = Else txtSQL = select * from user_Info where user_ID = 39。 amp。 UserName amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text