【文章內(nèi)容簡介】 ,qx1,qx2,qx3,qx4} xj 表： {學(xué)號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電話，入學(xué)時間，備注 } suefei 表： {年級，專業(yè)，年制，學(xué)期，學(xué)費 } 16 3． 2． 2 各表的物理結(jié)構(gòu)如下： allkecheng 表： 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 教材 文本 30 Cj 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 10 學(xué)期 文本 50 類型 文本 16 課程名稱 文本 20 分?jǐn)?shù) 單精度型數(shù)字 自動 Class 表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 班級 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 17 Classkecheng 表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 Jf 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 5 學(xué)期 文本 50 交費 貨幣 自動 欠費 貨幣 自動 日期 日期 /時間 操作員 文本 10 Kaosileixing 表： 字段名稱 類型 寬度 小數(shù)位 類型 文本 10 18 Use 表： 字段名稱 類型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 xj 表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 9 姓名 文本 8 性別 文本 2 班級 文本 10 出生年月 日期 /時間 家庭住址 文本 30 郵政 編碼 數(shù)字（長整型） 聯(lián)系電話 數(shù)字（長整型） 入學(xué)時間 日期 /時間 備注 備注 19 xuefei 表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學(xué)期 文本 40 學(xué)費 貨幣 自動 20 本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。 4． 1 系統(tǒng)登陸界面： 本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在 USE 表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用 909。909 為 用戶名和密碼來登陸本系統(tǒng)。 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, 警告 21 = 0 = Len() Exit Sub 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 22 = Unload Me End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() 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 23 4． 2 系統(tǒng)主界面： 本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有 功能，共有 6 個功能菜單和 19 個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。 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 24 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 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 25 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 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) 26 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è)置 End Sub 27 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)系！ 29 , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理 本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 30 End Sub Private Sub jibenkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub leixing_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 31