【文章內(nèi)容簡介】 管理 檔案管理 交費管理 課程管理 成績管理 打印報表 12 以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。 系統(tǒng) ER圖 本系統(tǒng)中所涉及到的主要實體共有 8個數(shù)據(jù)表 allkecheng 表： {課程名稱，教材 } cj 表： {學(xué)號，學(xué)期，類型，課程名稱，分?jǐn)?shù) } class 表： {年級，班級，教室，年制，專業(yè)，班主任，備注 } classkecheng 表： {年級，專業(yè)，年制，學(xué)期，課程名稱 } jf 表： {學(xué)號，學(xué)期，交費，欠費，日期，操作員 } kaoshileixing 表： {類型 } use 表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} xj 表： {學(xué)號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時間，備注 } suefei 表： {年級，專業(yè)，年制，學(xué)期，學(xué)費 } 13 14 15 16 系統(tǒng)各 ER 圖： 圖 42 課程表 ER 圖 圖 43 成績表 ER 圖 圖 44 班級 ER圖 課程表 課程名稱 教材 成績表 學(xué)號 學(xué)期 類型 課程名稱 分?jǐn)?shù) 班級 年級 班級 教室 年制 專業(yè) 班主任 備注 17 圖 45 班級課程表 ER圖 圖 46交費表 ER 圖 圖 47學(xué)籍 ER圖 圖 48學(xué)費表 ER 圖 各表的物理結(jié)構(gòu) allkecheng 表： 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 學(xué)費表 年級 專業(yè) 年制 學(xué)期 學(xué)費 學(xué)籍 學(xué)號 姓名 性別 班級 出生年月 家庭住址 EMail 碼聯(lián)系電話 聯(lián)系電話 入學(xué)時間 備注 班級課程表 年級 專業(yè) 年制 學(xué)期 課程名稱 交費表 學(xué)號 學(xué)期 交費 欠費 日期 操作員 18 教材 文本 30 Cj 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 10 學(xué)期 文本 50 類型 文本 16 課程名稱 文本 20 分?jǐn)?shù) 單精度型數(shù)字 自動 Class 表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 班級 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 19 Classkecheng 表： 字段名稱 類型 寬度 小 數(shù)位 年級 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 Jf 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 5 學(xué)期 文本 50 交費 貨幣 自動 欠費 貨幣 自動 日期 日期 /時間 操作員 文本 10 Kaosileixing 表： 字段名稱 類型 寬度 小數(shù)位 類型 文本 10 Use 表： 字段名稱 類型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonl 文本 2 20 y Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 9 姓名 文本 8 性別 文本 2 班級 文本 10 出生年月 日期 /時間 家庭住址 文本 30 郵政編碼 數(shù)字（長整型） 聯(lián)系電話 數(shù)字（長整型） 入學(xué)時間 日期 /時間 備注 備注 xuefei 表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學(xué)期 文本 40 學(xué)費 貨幣 自動 21 實現(xiàn) 本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。 系統(tǒng)登陸界面 本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在USE 表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quá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 22 End If username = (0) txtsql2 = select username from use where password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密碼錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 amp。 Trim() amp。 39。and password=39。 amp。 Trim() amp。 39。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名稱和密碼不匹配！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 23 End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有 5 個功能菜單和 19 個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從班級管理、檔案管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。 24 Private Declare Function SetWindowPos Lib user32 (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Dim find1 As Integer Dim liulan1 As Integer Private Sub add_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 25 modi = False (0) End Sub Private Sub cjadd_Click() fenshumodi = False qxstr = Executeqx(4) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián) 系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub 26 Private Sub claasfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) i = SetWindowPos(, 1, 0, 0, 0, 0, 3) End Sub Private Sub classapp_Click() qxstr = Executeqx(2) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = False (0) End Sub Public Sub clabrowse() txtsql = select * from class (0) = 瀏覽班級設(shè)置 27 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) End Sub Private Sub find_Click() End Sub 28 Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub denglu2_Click() Unload Me End Sub Private Sub jiaofeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Su