【文章內(nèi)容簡介】 級 檔案瀏覽 添加用戶 復(fù)新登錄 班級瀏覽 班級查詢 檔案添加 檔案查詢 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 16 頁 共 49 頁 3． 2數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫采用了 Microsoft推 出的 Access數(shù)據(jù)庫，這是微軟集成到 Office中的一個桌面數(shù) 據(jù)庫，能夠快速方便的和 Office的其他套件綜合使用。由于 Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用 Access作為后臺數(shù)據(jù)庫。使用 Access的好處還在于，如果你的系統(tǒng)擴展到 Client/Server模式的時候，可以使用 Microsoft的數(shù)據(jù)庫服務(wù)器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 3． 2． 1 本系統(tǒng)中所涉及到的主要 實體共有九個數(shù)據(jù)表： allkecheng表： {課程名稱，教材 } cj表： {學(xué)號，學(xué)期，類型，課程名稱，分數(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é)費 } 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 17 頁 共 49 頁 3． 2． 2 各表的物理結(jié)構(gòu)如下： allkecheng表： 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 教材 文本 30 Cj表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 10 學(xué)期 文本 50 類型 文本 16 課程名稱 文本 20 分數(shù) 單精度型數(shù)字 自動 Class表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 班級 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 18 頁 共 49 頁 Classkecheng表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 12 年制 文本 8 學(xué)期 文本 50 課程名稱 文本 20 Jf表： 字段名稱 類型 寬度 小數(shù)位 學(xué)號 文本 5 學(xué)期 文本 50 交費 貨幣 自動 欠費 貨幣 自動 日期 日期 /時間 操作員 文本 10 Kaosileixing表： 字段名稱 類型 寬度 小數(shù)位 類型 文本 10 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 19 頁 共 49 頁 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é)時間 日期 /時間 備注 備注 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 20 頁 共 49 頁 xuefei表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學(xué)期 文本 40 學(xué)費 貨幣 自動 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 21 頁 共 49 頁 本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。 4． 1系統(tǒng)登陸界面： 本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(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, 警告 = 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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 22 頁 共 49 頁 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() End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 23 頁 共 49 頁 End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 4． 2系統(tǒng)主界面： 本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的所有功能，共有 6 個功能菜單和19 個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從 班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 24 頁 共 49 頁 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 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 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 25 頁 共 49 頁 0 End Sub Private Sub cjbrowse_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能