【文章內容簡介】 圖 學生成績管理系統(tǒng) 0 層數(shù)據(jù)流程圖 學籍管理部門 教師 學生成績管理系統(tǒng) 教務處 學生 教師 教師 學生情況 學生成績 查詢 統(tǒng)計分析 江西藍天學院畢業(yè)論文 11 圖 學生成績管理系統(tǒng) 1 層數(shù)據(jù)流程圖 實體聯(lián)系圖 數(shù)據(jù)模型設計。首先來做出學生成績管理系統(tǒng)的 ER 圖，分析這個問題的實體，從系統(tǒng)分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組 成了這個系統(tǒng)的三個實體。 再分析三個實體之間的聯(lián)系。首先，這三個實體不是一個統(tǒng)一體，學生成績與教師沒有內在聯(lián)系，教師必須通過課程實體才能與學生建立聯(lián)系，因而先不考慮。課程與學生這兩個實體是多對多聯(lián)系；一位學生要學習多門課程，一門課程有多位學生共同學習。而學習成績是這兩個實體“學生”和“成績”共有的屬性，應填在二者的聯(lián)系“學習”邊。因為成績既不是學生獨有的，也不是課程獨有的；“學生甲 70 分”或“英語 70 分”學生 課程 成績 管理 部門 教務處 教師 學生管理 課程管理 成績管理 統(tǒng)計分析 D1 D2 D3 查詢者 管理者 江西藍天學院畢業(yè)論文 12 是不完全的，說“學生甲英語 70 分”才是正確的，因為 70 分是學生甲和英語課二者共有的。這個 ER 圖可畫 成下圖。 圖 學生成績管理系統(tǒng)中學生與課程的 ER 圖 教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以都多門課程，而一門課程對于學生成績來說只能有一位教師 (英語、高等數(shù)學有多位教師教，但對某個固定的學生來說只能有一位教師 )。其 ER 圖，如下所示。 圖 教師與課程的 ER 圖組合到一起，得到最后的 ER 圖，有了 ER 圖，就可以設計數(shù)據(jù)庫。下圖為數(shù)據(jù)模型圖。 n l m m 學生 課程 成績 學習 m n n 教師 課程 教學 l 學習 學生 課程 教師 學習 學習 課程 學生 教師 實體模型 數(shù)據(jù)模型 數(shù)據(jù)庫 江西藍天學院畢業(yè)論文 13 圖 功能層次圖 + 圖 學生信息管理 系統(tǒng) 登錄 系統(tǒng)管理 班級管理 檔案管理 打印報表 課程管理 成績管理 基本課程設置 學生繳費瀏覽 班級課程設置 學生繳費添加 基本學費設置 學生繳費查詢 修改密碼 添加班級 檔案瀏覽 添加用戶 復新登錄 班級瀏覽 班級查詢 檔案添加 檔案查詢 江西藍天學院畢業(yè)論文 14 第 3 章 系統(tǒng)設計 系統(tǒng)方案確定 通過對系統(tǒng)的調研與分析，系統(tǒng)主要應完成的功能有：班級管理、學生成績管理、學生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。 軟件結構設計 本系統(tǒng)在執(zhí)行時，先根據(jù)不同的操作人員的需要來進行相應的模塊，然后可以輸入數(shù)據(jù)或者進行其它的查詢或瀏覽等操作；總體來說，本系統(tǒng)屬于一個事務型管理系統(tǒng)。 圖 接受數(shù)據(jù) 處理中心 班級管理 檔案管理 交費管理 課程管理 成績管理 打印報表 江西藍天學院畢業(yè)論文 15 3． 2 數(shù)據(jù)庫設計 數(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ù)庫服務器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 本系統(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è)，年制，學期，學費 } 表的物理結構 表 allkecheng 表 字段名稱 類型 寬度 小數(shù)位 課程名稱 文本 20 教材 文本 30 表 Cj 表 江西藍天學院畢業(yè)論文 16 字段名稱 類型 寬度 小數(shù)位 學號 文本 10 學期 文本 50 類型 文本 16 課程名稱 文本 20 分數(shù) 單精度型數(shù)字 自動 表 Class 表 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 班級 文本 20 教室 文本 5 年制 文本 8 專業(yè) 文本 16 班主任 文本 8 備注 備注 表 Classkecheng 表 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 12 年制 文本 8 學期 文本 50 課程名稱 文本 20 表 Jf 表 江西藍天學院畢業(yè)論文 17 字段名稱 類型 寬度 小數(shù)位 學號 文本 5 學期 文本 50 交費 貨幣 自動 欠費 貨幣 自動 日期 日期 /時間 操作員 文本 10 表 Kaosileixing 表 字段名稱 類型 寬度 小數(shù)位 類型 文本 10 表 Use 表 字段名稱 類型 寬度 小數(shù)位 username 文本 20 password 文本 20 Admin 文本 2 Readonly 文本 2 Qx1 文本 2 Qx2 文本 2 Qx3 文本 2 Qx4 文本 2 表 xj 表 字段名稱 類型 寬度 小數(shù)位 江西藍天學院畢業(yè)論文 18 學號 文本 9 姓名 文本 8 性別 文本 2 班級 文本 10 出生年月 日期 /時間 家庭住址 文本 30 郵政編碼 數(shù)字（長整型） 聯(lián)系電話 數(shù)字（長整型） 入學時間 日期 /時間 備注 備注 表 xuefei 表 字段名稱 類型 寬度 小數(shù)位 年級 文本 16 專業(yè) 文本 50 年制 文本 20 學期 文本 40 學費 貨幣 自動 江西藍天學院畢業(yè)論文 19 第 4 章 系統(tǒng)的功能 本部分主要內容為本系統(tǒng)的運行界面以及主要界面的源代碼。 本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在 USE 表中，本系統(tǒng)根據(jù)不同的用戶而設置了不同的權限，可以用 909。909 為用戶名和密碼來登陸本 系統(tǒng)。 圖 系統(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, 警告 江西藍天學院畢業(yè)論文 20 = 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 = 江西藍天學院畢業(yè)論文 21 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 KeyA