【文章內(nèi)容簡(jiǎn)介】 檔案管理 交費(fèi)管理 課程管理 成績(jī)管理 打印報(bào)表 12 以，這樣，為程序的平滑擴(kuò)展提供了非常有力的條件。 系統(tǒng) ER圖 本系統(tǒng)中所涉及到的主要實(shí)體共有 8個(gè)數(shù)據(jù)表 allkecheng表： {課程名稱，教材 } cj表： {學(xué)號(hào)，學(xué)期，類型，課程名稱，分?jǐn)?shù) } class表： {年級(jí)，班級(jí)，教室，年制，專業(yè)，班主任， 備注 } classkecheng表： {年級(jí)，專業(yè)，年制，學(xué)期，課程名稱 } jf表： {學(xué)號(hào)，學(xué)期，交費(fèi)，欠費(fèi)，日期，操作員 } kaoshileixing表： {類型 } use表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} xj 表： {學(xué)號(hào)，姓名，性別，班級(jí)，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時(shí)間，備注 } suefei表： {年級(jí)，專業(yè)，年制，學(xué)期，學(xué)費(fèi) } 13 14 15 16 系統(tǒng)各 ER圖： 圖 42 課程表 ER圖 圖 43 成績(jī)表 ER圖 圖 44 班級(jí) ER圖 課程表 課程名稱 教材 成績(jī)表 學(xué)號(hào) 學(xué)期 類型 課程 名稱 分?jǐn)?shù) 班級(jí) 年級(jí) 班級(jí) 教室 年制 專業(yè) 班主任 備注 17 圖 45班級(jí)課程表 ER圖 圖 46交費(fèi)表 ER圖 圖 47學(xué)籍 ER圖 圖 48學(xué)費(fèi)表 ER圖 各表的物理結(jié)構(gòu) allkecheng表： 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 學(xué)費(fèi)表 年級(jí) 專業(yè) 年制 學(xué)期 學(xué)費(fèi) 學(xué)籍 學(xué)號(hào) 姓名 性別 班級(jí) 出生年月 家庭住址 EMail 碼聯(lián)系電話 聯(lián)系電話 入學(xué)時(shí)間 備注 班級(jí)課程表 年級(jí) 專業(yè) 年制 學(xué)期 課程名稱 交費(fèi)表 學(xué)號(hào) 學(xué)期 交費(fèi) 欠費(fèi) 日期 操作員 18 教材 文本 30 Cj表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號(hào) 文本 10 學(xué)期 文本 50 類型 文本 16 課程名稱 文本 20 分?jǐn)?shù) 單精度型數(shù)字 自動(dòng) Class表： 字段名稱 類型 寬度 小數(shù)位 年級(jí) 文本 16 班級(jí) 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備 注 備注 19 Classkecheng表： 字段名稱 類型 寬度 小數(shù)位 年級(jí) 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 Jf表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號(hào) 文本 5 學(xué)期 文本 50 交費(fèi) 貨幣 自動(dòng) 欠費(fèi) 貨幣 自動(dòng) 日期 日期 /時(shí)間 操作員 文本 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é)號(hào) 文本 9 姓名 文本 8 性別 文本 2 班級(jí) 文本 10 出生年月 日期 /時(shí)間 家庭住址 文本 30 郵政編碼 數(shù)字（長(zhǎng)整型） 聯(lián)系電話 數(shù)字（長(zhǎng)整型） 入學(xué)時(shí)間 日期 /時(shí)間 備注 備注 xuefei表： 字段名稱 類型 寬度 小數(shù)位 年級(jí) 文本 16 專業(yè) 文本 50 年制 文本 20 學(xué)期 文本 40 學(xué)費(fèi) 貨幣 自動(dòng) 21 實(shí)現(xiàn) 本部分主要內(nèi)容為本系統(tǒng)的運(yùn)行界面以及主要界面的源代碼。 系統(tǒng)登陸界面 本界面的主要功能是為了對(duì)系統(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 用戶名錯(cuò)誤！ , 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 密碼錯(cuò)誤！ , 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 個(gè)功能菜單和 19個(gè)子菜單（功能模塊），從而實(shí)現(xiàn)了本系統(tǒng)從班級(jí)管理、檔案管理、課程管理、成績(jī)管理等系統(tǒng)的具體功能，同時(shí)，在系統(tǒng)管理模塊中可以完成對(duì)本系統(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If classmodi = False (0) End Sub Public Sub clabrowse() txtsql = select * from class (0) = 瀏覽班級(jí)設(shè)置 27 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(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(對(duì)不起，你沒(méi)有管理本功能的權(quán)限，請(qǐng)與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub