【正文】 End Sub Private Sub classbrowse_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 27 頁 共 49 頁 End Sub Private Sub classfind_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If (0) End Sub Private Sub find_Click() End Sub Private Sub classkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 28 頁 共 49 頁 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(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub jiaofeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 29 頁 共 49 頁 0 End Sub Private Sub jiaofeifind_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub jibenkecheng_Click() qxstr = Executeqx(4) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub leixing_Click() qxstr = Executeqx(4) If qxstr = false Then 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 30 頁 共 49 頁 ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 End Sub Private Sub liulan_Click() qxstr = Executeqx(2) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權限，請與管理員聯(lián)系！ , vbInformation + vbOKOnly, 警告 ) Exit Sub End If find = False End Sub Private Sub MDIForm_Load() 39。 39。 amp。 39。 amp。 39。 amp。 39。 amp。909為用戶名和密碼來登陸本系統(tǒng)。 3． 2． 1 本系統(tǒng)中所涉及到的主要 實體共有九個數(shù)據(jù)表： allkecheng表： {課程名稱，教材 } cj表： {學號，學期，類型，課程名稱，分數(shù) } class表： {年級，班級，教室，年制，專業(yè)，班主任，備注 } classkecheng表： {年級，專業(yè)，年制，學期，課程名稱 } jf表： {學號，學期，交費，欠費，日期，操作員 } kaoshileixing表： {類型 } use表： {username,password,admin,readonly,qx1,qx2,qx3,qx4} xj表： {學號，姓名，性別，班級，出生年月，家庭住址，郵政編碼，聯(lián)系電 話，入學時間，備注 } suefei表： {年級，專業(yè)，年制，學期，學費 } 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 17 頁 共 49 頁 3． 2． 2 各表的物理結構如下： allkecheng表： 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 教材 文本 30 Cj表： 字段名稱 類型 寬度 小數(shù)位 學號 文本 10 學期 文本 50 類型 文本 16 課程名稱 文本 20 分數(shù) 單精度型數(shù)字 自動 Class表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 班級 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 18 頁 共 49 頁 Classkecheng表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 12 年制 文本 8 學期 文本 50 課程名稱 文本 20 Jf表： 字段名稱 類型 寬度 小數(shù)位 學號 文本 5 學期 文本 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ù)位 學號 文本 9 姓名 文本 8 性別 文本 2 班級 文本 10 出生年月 日期 /時間 家庭住址 文本 30 郵政編碼 數(shù)字（長整型） 聯(lián)系電話 數(shù)字（長整型） 入學時間 日期 /時間 備注 備注 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 20 頁 共 49 頁 xuefei表： 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學期 文本 40 學費 貨幣 自動 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 21 頁 共 49 頁 本部分主要內(nèi)容為本系統(tǒng)的運行界面以及主要界面的源代碼。由于 Access具有顯著的簡易性和有效性，大量的桌面數(shù)據(jù)庫系統(tǒng)都采用 Access作為后臺數(shù)據(jù)庫。 3． 1． 2軟件結構設計 本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個事務型管理系統(tǒng)。下圖為數(shù)據(jù)模型圖。其 ER圖，如下所示。這個 ER圖可畫成下圖。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應填在二者的聯(lián)系“學習”邊。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實體才能與學生建立聯(lián)系，因而先不考慮。首先來做出學生成績管理系統(tǒng)的 ER 圖，分析這個問題的實體，從系統(tǒng)分 析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統(tǒng)的三個實體。 中國最大的管 理 資料下載中心 (收集 \整理 . 大量免費資 源共享 ) 第 10 頁 共 49 頁 2. 系統(tǒng)分析 班級管理業(yè)務流程圖： 檔案 管理業(yè)務流程圖： 教務處 輸入計算機 班主任 教務處 學生 班級 班級 輸出 教務處 輸入計算機 班主任 教務處 學生 檔案 檔案 輸出