【正文】 ，因為 70 分是學(xué)生甲和英語課二者共有的。 圖 學(xué)生成績管理系統(tǒng)中學(xué)生與課程的 ER 圖 教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以都多門課程，而一門課程對于學(xué)生成績來說只能有一位教師 (英語、高等數(shù)學(xué)有多位教師教，但對某個固定的學(xué)生來說只能有一位教師 )。 圖 教師與課程的 ER 圖組合到一起，得到最后的 ER 圖，有了 ER 圖，就可以設(shè)計數(shù)據(jù)庫。 n l m m 學(xué)生 課程 成績 學(xué)習(xí) m n n 教師 課程 教學(xué) l 學(xué)習(xí) 學(xué)生 課程 教師 學(xué)習(xí) 學(xué)習(xí) 課程 學(xué)生 教師 實體模型 數(shù)據(jù)模型 數(shù)據(jù)庫 江西藍天學(xué)院畢業(yè)論文 13 圖 功能層次圖 + 圖 學(xué)生信息管理 系統(tǒng) 登錄 系統(tǒng)管理 班級管理 檔案管理 打印報表 課程管理 成績管理 基本課程設(shè)置 學(xué)生繳費瀏覽 班級課程設(shè)置 學(xué)生繳費添加 基本學(xué)費設(shè)置 學(xué)生繳費查詢 修改密碼 添加班級 檔案瀏覽 添加用戶 復(fù)新登錄 班級瀏覽 班級查詢 檔案添加 檔案查詢 江西藍天學(xué)院畢業(yè)論文 14 第 3 章 系統(tǒng)設(shè)計 系統(tǒng)方案確定 通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級管理、學(xué)生成績管理、學(xué)生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。 圖 接受數(shù)據(jù) 處理中心 班級管理 檔案管理 交費管理 課程管理 成績管理 打印報表 江西藍天學(xué)院畢業(yè)論文 15 3． 2 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫采用了 Microsoft 推出的 Access 數(shù)據(jù)庫，這是微軟集成到Office 中的一個桌面數(shù) 據(jù)庫，能夠快速方便的和 Office 的其他套件綜合使用。使用 Access 的好處還在于，如果你的系統(tǒng)擴展到 Client/Server 模式的時候，可以使用 Microsoft 的數(shù)據(jù)庫服務(wù)器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平滑擴展提供了非常有力的條件。 本界面的主要功能是為了對系統(tǒng)進行安全性管理，本系統(tǒng)的用戶名和密碼保存在 USE 表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用 909。 圖 系統(tǒng)登錄界面 Private Sub Command1_Click() Dim mrc As txtsql = select username from use where username=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名錯誤！ , vbExclamation + vbOKOnly, 警告 江西藍天學(xué)院畢業(yè)論文 20 = 0 = Len() Exit Sub End If username = (0) txtsql2 = select username from use where password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql2) If = True Then MsgBox 密碼錯誤！ , vbExclamation + vbOKOnly, 警告 = 0 = Len() Exit Sub End If txtsql = select username from use where username=39。 Trim() amp。and password=39。 Trim() amp。 Set mrc = ExecuteSQL(txtsql) If = True Then MsgBox 用戶名稱和密碼不匹配！ , vbExclamation + vbOKOnly, 警告 Exit Sub End If = 江西藍天學(xué)院畢業(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 KeyAscii = 13 Then End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then End If End Sub 江西藍天學(xué)院畢業(yè)論文 22 本模塊是本系統(tǒng)的應(yīng)用界面，在本界面上集成了本系統(tǒng)的 所有功能，共有 6 個功能菜單和 19 個子菜單（功能模塊），從而實現(xiàn)了本系統(tǒng)從班級管理、檔案管理、繳費管理、課程管理、成績管理等系統(tǒng)的具體功能，同時，在系統(tǒng)管理模塊中可以完成對本系統(tǒng)的安全性管理。username = 0001 = connstring (2).Text = Now (3).Text = 當(dāng)前操作員： amp。 aa End Sub Private Sub useradd_Click() qxstr = Executeqx(1) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 0 江西藍天學(xué)院畢業(yè)論文 31 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If End Sub Private Sub xuefeiadd_Click() qxstr = Executeqx(3) If qxstr = false Or qxstr = readonly Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If xuefeimodi = False Dim i As Integer For i = 0 To 3 (i).Enabled = True Next i 江西藍天學(xué)院畢業(yè)論文 32 = 添加班級設(shè)置 For i = 0 To 3 (i).Text = Next i = 0 End Sub Public Sub xfbrowse() txtsql = select * from xuefei order by 學(xué)期 desc, 年級 desc,專業(yè) desc (0) = 瀏覽學(xué)費設(shè) 置 End Sub Private Sub xuefeibrowse_Click() qxstr = Executeqx(3) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbInformation + vbOKOnly, 警告 ) Exit Sub End If 江西藍天學(xué)院畢業(yè)論文 33 End Sub Private Sub xuefeifind_Click() qxstr = Executeqx(3) 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) End Sub 本模塊是本系統(tǒng)的安全性設(shè)置模塊，根據(jù)學(xué)校不同部門以及不同使用人員對本系統(tǒng)的要求和需要，從而實行了分級管理，對用戶的權(quán)限和類別進行了分類管理。 amp。 39。另外，在整個開發(fā)的過程中，時間也比較倉促。因為對學(xué)生管理的整個流程不夠熟悉，在需求分析時未能做到完全滿足用戶的需求。 盡管本管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點是本管理系統(tǒng)所必需的。 江西藍天學(xué)院畢業(yè)論文 40 致 謝 在論文即將完成之際，回顧緊張但又充實的學(xué)習(xí)班和開發(fā)過程，本人在此向所有關(guān)心我的及幫助我的老師和同學(xué)們致以最真誠的感謝。 她 認(rèn)真負(fù)責(zé)的工作態(tài)度，嚴(yán)謹(jǐn)?shù)闹螌W(xué)精神和深厚的理論水平都使我收益匪淺。在撰寫論文階段，羅老師幾 次審閱我們的論文，提出了許多寶貴意見，沒有她的指導(dǎo)，我們就不能較好的完成課題設(shè)計的任務(wù)。同時，在 系統(tǒng)開發(fā)過程中還有同組的同學(xué) 也 給 了 我不少幫助，這里一并表示感謝?！栋磳嵗龑W(xué) Visual Basic 北京，人民郵電 出版社， 20xx [12] 宋偉，吳建國等編著《中文 Visual Basic 編程基礎(chǔ)》，北京，清華大學(xué)出版社 [13] [美 ]Jeffrey ，龔波，李志，曹天偉等譯《 Visual Basic 數(shù)據(jù)庫存訪問技術(shù)》， 20xx 年 3 月第一版