【文章內(nèi)容簡(jiǎn)介】 成績(jī)管理工作，包括：成績(jī)庫管理 (快捷鍵：CTRL+ L)、學(xué)生成績(jī)查詢 (快捷鍵： CTRL+N)、班級(jí)成績(jī)分析 (快捷鍵： CTRL+B)、等，這三個(gè)功能模塊各自獨(dú)立，完成學(xué)校的全部學(xué)生的成績(jī)管理。 (3) 系統(tǒng)維護(hù)模塊（ CTRL+M）： 該模塊的主要功能是實(shí)現(xiàn)對(duì)系統(tǒng)的維護(hù)工作，包括用戶管理 (快捷鍵： CTRL+C)、退出系統(tǒng)等 (快捷鍵： CTRL+D)、功能，從而方便管理用戶和退出該系統(tǒng)，對(duì)該系統(tǒng)起到保護(hù)作用 。 功能描述 主要描述 系統(tǒng)的模塊及其功能： 11 數(shù)據(jù)庫設(shè)計(jì) 一、 本系統(tǒng)中所涉及到的主要實(shí)體共有個(gè)數(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é)生課程 成績(jī) 管理系統(tǒng) 課 程 管 理 成 績(jī) 管 理 系 統(tǒng) 維 護(hù) 課 程 庫 管 理 課 程 安 排 課 程 安 排 查 詢 班 級(jí) 課 表 成 績(jī) 庫 管 理 學(xué) 生 成 績(jī) 查 詢 班 級(jí) 成 績(jī) 分 析 用 戶 管 理 退 出 系 統(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 日期 /時(shí)間 Master 文本 MasterTel 文本 Description 備注 表 23 Course 表： 字段名稱 數(shù)據(jù)類型 CourseID 文本 CourseName 文本 Credit 數(shù)字 Period 數(shù)字 Teacher 文本 Description 備注 表 24 CourseSelect 表： 字段名稱 數(shù)據(jù)類型 ID 自動(dòng)編號(hào) CourseID 文本 ClassID 文本 ClassRoom 文本 ClassDate 文本 表 25 Department 表： 字段名稱 數(shù)據(jù)類型 字段名稱 數(shù)據(jù)類型 CID 自動(dòng)編號(hào) StudentID 文本 Change 文本 RecDate 日期 /時(shí)間 Description 備注 13 DepartID 文本 DepartName 文本 DepartHead 文本 Telephone 文本 表 26 Publish 表： 字段名稱 數(shù)據(jù)類型 PID 自動(dòng)編號(hào) StudentID 文本 Punish 文本 RecDate 日期 /時(shí)間 Description 備注 表 27 Score 表： 字段名稱 數(shù)據(jù)類型 ID 自動(dòng)編號(hào) CourseID 文本 StudentID 文本 Score 數(shù)字 表 28 Student 表： 字段名稱 數(shù)據(jù)類型 StudentID 文本 Name 文本 Sex 文本 ClassID 文本 Birthday 日期 /時(shí)間 Native 文本 表 29 User 表： 字段名稱 數(shù)據(jù)類型 UserID 文本 Password 文本 UserName 文本 Description 備注 14 第 四 章 系統(tǒng)功能模塊設(shè)計(jì)及實(shí)現(xiàn) 本章主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼 登錄模塊 本界面的主要功能是為了對(duì)系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USER 表中，用戶可以選擇不同的登錄編號(hào)及密碼。 圖 41 登錄模塊 代碼實(shí)現(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 用戶名不能為空，請(qǐng)輸入用戶名！ , , 登錄錯(cuò)誤 Exit Sub ElseIf strPassword = Then 15 MsgBox 密碼不能為空，請(qǐng)輸入密碼！ , , 登錄錯(cuò)誤 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 用戶名不存在或密碼錯(cuò)誤 !, , 登錄失敗 = = 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)主界面 主控模塊起著連接各個(gè)程序的作用，通過此模塊可以方便的進(jìn)入其他各子模塊中。運(yùn)行界面如下所示 : 圖 42 系統(tǒng)主界面 代碼實(shí)現(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 課程管理界面 代碼實(shí)現(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 課程編號(hào)不能為空！ , , 輸入錯(cuò)誤 Exit Sub ElseIf strCourseName = Then MsgBox 課程名稱不能為空！ , , 輸入錯(cuò)誤 Exit Sub 18 ElseIf intCredit = 0 Then MsgBox 該課程學(xué)分不能為空！ , , 輸入錯(cuò)誤 Exit Sub ElseIf intPeriod = 0 Then MsgBox 該課程學(xué)時(shí)數(shù)不能為空！ , , 輸入錯(cuò)誤 Exit Sub ElseIf strTeacher = Then MsgBox 任課老師不能為空！ , , 輸入錯(cuò)誤 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 該課程編號(hào)已經(jīng)存在，請(qǐ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$,