【文章內(nèi)容簡介】 成績管理工作，包括：成績庫管理 (快捷鍵：CTRL+ L)、學(xué)生成績查詢 (快捷鍵： CTRL+N)、班級成績分析 (快捷鍵： CTRL+B)、等，這三個功能模塊各自獨立，完成學(xué)校的全部學(xué)生的成績管理。 (3) 系統(tǒng)維護(hù)模塊（ CTRL+M）： 該模塊的主要功能是實現(xiàn)對系統(tǒng)的維護(hù)工作，包括用戶管理 (快捷鍵： CTRL+C)、退出系統(tǒng)等 (快捷鍵： CTRL+D)、功能，從而方便管理用戶和退出該系統(tǒng)，對該系統(tǒng)起到保護(hù)作用 。 功能描述 主要描述 系統(tǒng)的模塊及其功能： 11 數(shù)據(jù)庫設(shè)計 一、 本系統(tǒng)中所涉及到的主要實體共有個數(shù)據(jù)表 ： Change 表： {CID， StudentID， Change， RecDate ， Description } Class 表： {ClassID， ClassName， DepartID， BeginDate， Master， MasterTel，Description } Course 表：｛ CourseID， CourseName， Credit， Period， Teacher， Description｝ CourseSelect 表：｛ ID， CourseID， ClassID， ClassRoom， ClassDate｝ Department 表：｛ DepartID， DepartName， DepartHead， Telephone｝ Publish 表：｛ PID， StudentID， Punish， RecDate， Description｝ Score 表：｛ ID， CourseID， StudentID， Score｝ 學(xué)生課程 成績 管理系統(tǒng) 課 程 管 理 成 績 管 理 系 統(tǒng) 維 護(hù) 課 程 庫 管 理 課 程 安 排 課 程 安 排 查 詢 班 級 課 表 成 績 庫 管 理 學(xué) 生 成 績 查 詢 班 級 成 績 分 析 用 戶 管 理 退 出 系 統(tǒng) 登 錄 12 Student 表：｛ StudentID， Name， Sex， ClassID， Birthday， Native｝ User 表：｛ UserID， Password， UserName， Description｝ 二、 各表的物理結(jié)構(gòu)如下 : 表 21 Change 表 : 表 22 Class 表： 字段名稱 數(shù)據(jù)類型 ClassID 文本 ClassName 文本 DepartID 文本 BeginDate 日期 /時間 Master 文本 MasterTel 文本 Description 備注 表 23 Course 表： 字段名稱 數(shù)據(jù)類型 CourseID 文本 CourseName 文本 Credit 數(shù)字 Period 數(shù)字 Teacher 文本 Description 備注 表 24 CourseSelect 表： 字段名稱 數(shù)據(jù)類型 ID 自動編號 CourseID 文本 ClassID 文本 ClassRoom 文本 ClassDate 文本 表 25 Department 表： 字段名稱 數(shù)據(jù)類型 字段名稱 數(shù)據(jù)類型 CID 自動編號 StudentID 文本 Change 文本 RecDate 日期 /時間 Description 備注 13 DepartID 文本 DepartName 文本 DepartHead 文本 Telephone 文本 表 26 Publish 表： 字段名稱 數(shù)據(jù)類型 PID 自動編號 StudentID 文本 Punish 文本 RecDate 日期 /時間 Description 備注 表 27 Score 表： 字段名稱 數(shù)據(jù)類型 ID 自動編號 CourseID 文本 StudentID 文本 Score 數(shù)字 表 28 Student 表： 字段名稱 數(shù)據(jù)類型 StudentID 文本 Name 文本 Sex 文本 ClassID 文本 Birthday 日期 /時間 Native 文本 表 29 User 表： 字段名稱 數(shù)據(jù)類型 UserID 文本 Password 文本 UserName 文本 Description 備注 14 第 四 章 系統(tǒng)功能模塊設(shè)計及實現(xiàn) 本章主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼 登錄模塊 本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USER 表中，用戶可以選擇不同的登錄編號及密碼。 圖 41 登錄模塊 代碼實現(xiàn)： Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() End End Sub Private Sub cmdOK_Click() Dim Conn As Dim rs As Dim strUserID As String Dim strPassword As String Dim strSQL As String Static Count As Byte strUserID = Replace(Trim(), 39。, ) strPassword = Replace(Trim(), 39。, ) If strUserID = Then MsgBox 用戶名不能為空，請輸入用戶名！ , , 登錄錯誤 Exit Sub ElseIf strPassword = Then 15 MsgBox 密碼不能為空，請輸入密碼！ , , 登錄錯誤 Exit Sub End If Set Conn = New Set rs = New strSQL = SELECT * FROM USERS WHERE UserID=39。 amp。 strUserID amp。 39。 strSQL = strSQL amp。 AND Password = 39。 amp。 strPassword amp。 39。 ConnString strSQL, Conn If Then Count = Count + 1 MsgBox 用戶名不存在或密碼錯誤 !, , 登錄失敗 = = Else LoginSucceeded = True UserID = strUserID UserName = rs(UserName).Value End If Set rs = Nothing Set Conn = Nothing If Count = 3 Then MsgBox 超過登錄次數(shù)，無權(quán)登錄本系統(tǒng)！ , , 登錄失敗 End End If End Sub 系統(tǒng)主界面 主控模塊起著連接各個程序的作用，通過此模塊可以方便的進(jìn)入其他各子模塊中。運行界面如下所示 : 圖 42 系統(tǒng)主界面 代碼實現(xiàn)： 16 Private Sub Form_Load() Caption = 課程管理系統(tǒng) [ amp。 UserName amp。 ] End Sub Private Sub mntCourseArrange_Click() vbModal End Sub Private Sub mntCourseClass_Click() vbModal End Sub Private Sub mntCourseMaint_Click() vbModal End Sub Private Sub mntCourseQeury_Click() End Sub Private Sub mntScoreManage_Click() vbModal End Sub Private Sub mntScoreStudent_Click() vbModal End Sub Private Sub mntSysQuit_Click() End Private Sub mntSysUsers_Click() vbModal End Sub 課程管理 本界面顯示的是課程管理信息，包括課程的安排、學(xué)分、任課老師及課程的說明。 17 圖 43 課程管理界面 代碼實現(xiàn)： Dim Conn As Dim WithEvents rs As Private Sub cmdAdd_Click() Dim rsValid As Dim strSQL$, strCourseID$, strCourseName$, intCredit!, intPeriod!, strTeacher$, strDesc$ Dim BookMK strCourseID = Replace(Trim(), 39。, ) strCourseName = Replace(Trim(), 39。, ) intCredit = Val() intPeriod = Val() strTeacher = Replace(Trim(), 39。, ) strDesc = Replace(Trim(), 39。, ) If strCourseID = Then MsgBox 課程編號不能為空！ , , 輸入錯誤 Exit Sub ElseIf strCourseName = Then MsgBox 課程名稱不能為空！ , , 輸入錯誤 Exit Sub 18 ElseIf intCredit = 0 Then MsgBox 該課程學(xué)分不能為空！ , , 輸入錯誤 Exit Sub ElseIf intPeriod = 0 Then MsgBox 該課程學(xué)時數(shù)不能為空！ , , 輸入錯誤 Exit Sub ElseIf strTeacher = Then MsgBox 任課老師不能為空！ , , 輸入錯誤 Exit Sub End If Set rsValid = New strSQL = SELECT * FROM Course WHERE CourseID=39。 amp。 strCourseID amp。 39。 strSQL, Conn, 1, 1 If Not Then MsgBox 該課程編號已經(jīng)存在，請重新輸入！ Set rsValid = Nothing Exit Sub End If Set rsValid = Nothing BookMK = rs(CourseID).Value = strCourseID rs(CourseName).Value = strCourseName rs(Credit).Value = intCredit rs(Period).Value = intPeriod rs(Teacher).Value = strTeacher rs(Description).Value = strDesc = True End If End Sub Private Sub cmdNext_Click() If Not Then If And 0 Then End If End Sub 19 Private Sub cmdPrevious_Click() If Not Then If And 0 Then End If End Sub Private Sub cmdQuit_Click() Unload Me End Sub Private Sub cmdSave_Click() Dim rsValid As Dim cmdUpdate As Dim strSQL$,