【正文】 ................................... 52 致 謝 ................................................. 53 參考文獻(xiàn) ................................................ 54 1 本學(xué)生信息管理系統(tǒng)可以說是一個綜合性的學(xué)校學(xué)生管理系統(tǒng)，這它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生成績管理系統(tǒng)、學(xué)生檔案管理系統(tǒng)、學(xué)生繳費管理系統(tǒng)等多種功能，因而具有較強(qiáng)的實用性和先進(jìn)性。 ⑵ 由于該系統(tǒng)的使用對象多 ,要求有較好的權(quán)限管理 。 ⑸ 在相應(yīng)的權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好； ⑹ 數(shù)據(jù)計算自動完成，盡量減少人工干預(yù) 。因此，比較適合于采用數(shù)據(jù)庫管理。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因 2 此完全可以實現(xiàn)。 數(shù)據(jù)庫是 MIS 中的重要支持技術(shù)，在 MIS開發(fā)過程中，如何選擇數(shù)據(jù)庫管理是一個重要的問題，目前，數(shù)據(jù)庫產(chǎn)品較多，每種產(chǎn)品都具有各自的特點和適用范圍，因此， 在選擇數(shù)據(jù)庫時，應(yīng)考慮數(shù)據(jù)庫應(yīng)用的特點及適用范圍，本系統(tǒng)選用的數(shù)據(jù)庫語言介紹如下： Visual Basic 語言 Visual Basic 是一種可視化的、面對對象和條用事件驅(qū)動方式的結(jié)構(gòu)化高級程序設(shè)計，可用于開發(fā) Windows 環(huán)境下的種類應(yīng)用程序。在 Visual Basic 環(huán)境下，利用事件驅(qū)動的編程機(jī)制、新穎易用的可視化設(shè)計工具，使用 Windows內(nèi)部的應(yīng)用程序接口 (API)函數(shù)，以及 動態(tài)鏈接庫 (DLL)、動態(tài)數(shù)據(jù)交換(DDE)、對象的鏈接與嵌入 (OLE)、開放式數(shù)據(jù)訪問 (ODBC)等技術(shù)，可以高效、快速地開發(fā)出 Windows 環(huán)境下功能強(qiáng)大、圖形界面豐富的應(yīng)用軟件系統(tǒng)。如果對界面的效果不滿意，還要回到程序中修改。 Visual Basic 提供了可視化設(shè)計工具，把 Windows 界面設(shè)計的復(fù)雜性“封裝”起來，開發(fā)人員不必為界面設(shè)計而編寫大量程序代碼。 Visual Basic 自動產(chǎn)生界面設(shè)計代碼，程序設(shè)計人員只需要編寫實現(xiàn)程序功能的那部分代碼，從而可以大大提高程序設(shè)計的效率。在一般的面 向?qū)ο蟪绦蛟O(shè)計語言中，對象由程序代碼和數(shù)據(jù)組成，是抽象的概念；而 Visual Basic 則是應(yīng)用面向?qū)ο蟮某绦蛟O(shè)計方法 (OOP)，把程序和數(shù)據(jù)封裝起來作為一個對象，并為每個對象賦予應(yīng)有的屬性，使對象成為實在的東西。每個對象以圖形方式顯示在界面上，都是可視的。 Visual Basic語句簡單易懂，其編輯器支持彩色代碼，可自動進(jìn)行語法錯誤檢查，同時具有功能強(qiáng)大且使用靈活的調(diào)試器和編譯器。在設(shè)計 Visual Basic 程序的過程中，隨時可以運行程序，而在整個程序設(shè)計好之后，可以編譯生成可執(zhí)行文件 (.EXE)，脫離 Visual Basic 環(huán)境，直接在 Windows 環(huán)境下運行。一個對象可能會產(chǎn)生多個事 4 件，每個事件都可以通過一段程序來響應(yīng)。 在用 Visual Basic 設(shè)計大型應(yīng)用軟件時，不必建立具有明顯開始和結(jié)束的程序，而是編寫若干個微小的子程序，即過程。 訪問數(shù)據(jù)庫 Visual Basic 具有強(qiáng)大的數(shù)據(jù)庫管理功能，利用數(shù)據(jù)控件和數(shù)據(jù)庫管理窗口，可以直接建立或處理 Microsoft Access 格式的數(shù)據(jù)庫，并提供了強(qiáng)大的數(shù)據(jù)存儲和檢索功能。 Visual Basic 提供開放式數(shù)據(jù)連接，即 ODBC 功能，可通過直接訪問或建立連接的方式使用并操作后臺大型網(wǎng)絡(luò)數(shù)據(jù)庫，如 SQL Server， Oracle等。 動態(tài)數(shù)據(jù)交換 (DDE) 利用動態(tài)數(shù)據(jù)交換 (Dynamic Data Exchange)技術(shù)，可以把一種應(yīng)用程序中的數(shù)據(jù)動態(tài)地鏈接到另一種應(yīng)用程序中，使兩種完全不同的應(yīng)用程序建立起一條動態(tài)數(shù)據(jù)鏈路。 5 Visual Basic 提供了動態(tài)數(shù)據(jù)交換的編程技術(shù)，可以在應(yīng)用程序中與其他Windows 應(yīng)用程序建立動態(tài)數(shù)據(jù)交換，在不同的應(yīng)用程序之間進(jìn)行通信。OLE 技術(shù)是 Microsoft 公司對象技術(shù)的戰(zhàn)略，它把多個應(yīng)用程序合為一體，將每個應(yīng) 用程序看做是一個對象進(jìn)行鏈接和嵌入，是一種應(yīng)用程序一體化的技術(shù)。 動態(tài)鏈接庫 (DLL) Visual Basic 是一種高級程序設(shè)計語言，不具備低級語言的功能，對訪問機(jī)器硬件的操作不太容易實現(xiàn)。此外，通過動態(tài)鏈接庫，還可以調(diào)用 Windows 應(yīng)用程序接口 (API)函數(shù)，實現(xiàn) SDK 所具有的功能。 項目規(guī)劃 學(xué)生信息管理系統(tǒng)是一個典型的數(shù)據(jù)庫應(yīng)用程序 ,由 班級管理、學(xué)生 6 檔案管理、學(xué)生交費管理、課程管理、成績管理 等模塊組成 ,特規(guī)劃如下 : 系統(tǒng)管理模塊 (CTRL+O) 該模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運行和安全性設(shè)置 ,包括添加用戶 (快捷鍵： CTRL+A)、修改密碼 (快捷鍵： CTRL+B)、重新登錄 (快捷鍵：CTRL+F1)等等。 學(xué)生檔案管理模塊（ CTRL+T）： 該模塊的主要功能是實現(xiàn)對學(xué)生的個人信息的管理工作，包括檔案添加、檔案瀏覽、檔案查詢等功能，從而方便學(xué)校管理部門對學(xué)校的基本情況的快速查詢和了解。該模塊包括基本課程設(shè)計和班級課程設(shè)置兩個模塊。 系統(tǒng)開發(fā)的目標(biāo) 出于本系統(tǒng)是學(xué)校學(xué)生管理的一個綜合性的系統(tǒng)，本系統(tǒng)的設(shè)計目標(biāo)將最終定位于完成以上所述的系統(tǒng)主要業(yè)務(wù)的基本模型上。 學(xué)生成績管理系統(tǒng) 0 層數(shù)據(jù)流程圖 學(xué)籍管理部門 教師 學(xué)生成績管理系統(tǒng) 教務(wù)處 學(xué)生 教師 教師 學(xué)生情況 學(xué)生成績 查詢 統(tǒng)計分析 11 學(xué)生成績管理系統(tǒng) 1 層數(shù)據(jù)流程圖 數(shù)據(jù)存儲分析：實體聯(lián)系圖 數(shù)據(jù)模型設(shè)計 。 再分析三個實體之間的聯(lián)系。課程與學(xué)生這兩個實體是多對多聯(lián)系；一位學(xué)生要學(xué)習(xí)多門課程，一門課程有多位學(xué)生共同學(xué)習(xí)。因為成績既不是學(xué)生獨有的，也不是課程獨有 的；“學(xué)生甲 70 分”或“英語 70 分”是不完全的，說“學(xué)生甲英語 70 分”才是正確的，因為 70 分是學(xué)生甲和英語課二者共有的。 學(xué)生成績管理系統(tǒng)中學(xué)生與課程的 ER 圖 教師與課程這兩個實體之間，是一對多聯(lián)系；一位教師可以都多門課程，而一門課程對于學(xué)生成績來說只能有一位教師 (英語、高等數(shù)學(xué)有多位教師教，但對某個固定的學(xué)生來說只能有一位教師 )。 學(xué)生 課程 成績 學(xué)習(xí) m n n 教師 課程 教學(xué) l 13 教師與課程的 ER 圖組合到一起，得到最后的 ER 圖，有了 ER圖，就可以設(shè)計數(shù)據(jù)庫。 功能分析：功能層次圖 n l m m 學(xué)習(xí) 學(xué)生 課程 教師 學(xué)習(xí) 學(xué)習(xí) 課程 學(xué)生 教師 實體模型 數(shù)據(jù)模型 數(shù)據(jù)庫 學(xué)生信息管理系統(tǒng) 登錄 系統(tǒng)管理 班級管理 檔案管理 打印報表 課程管理 成績管理 基本課程設(shè)置 學(xué)生繳費瀏覽 班級課程設(shè)置 學(xué)生繳費添加 基本學(xué)費設(shè)置 學(xué)生繳費查詢 修改密碼 添加班級 檔案瀏覽 添加用戶 復(fù)新登錄 班級瀏覽 班級查詢 檔案添加 檔案查詢 14 軟件模塊結(jié)構(gòu)設(shè)計 3． 1． 1系統(tǒng)方案確定 通過對系統(tǒng)的調(diào)研與分析，系統(tǒng)主要應(yīng)完成的功能有：班級管理、學(xué)生成績管理、學(xué)生交費管理、課程管理、成績管理、系統(tǒng)管理等功能。 接受數(shù)據(jù) 處理中心 班級管理 檔案管理 交費管理 課 程管理 成績管理 打印報表 15 3． 2 數(shù)據(jù)庫設(shè)計 數(shù)據(jù)庫采用了 Microsoft 推出的 Access 數(shù)據(jù)庫，這是微軟集成到 Office中的一個桌面數(shù) 據(jù)庫，能夠快速方便的和 Office 的其他套件綜合使用。使用 Access 的好處還在于，如果你的系統(tǒng)擴(kuò)展到 Client/Server模式的時候，可以使用 Microsoft 的數(shù)據(jù)庫服務(wù)器軟件 SQL Server，此時，程序只需要簡單的修改一下鏈接（ ADO 的數(shù)據(jù)源）就可以，這樣，為程序的平 滑擴(kuò)展提供了非常有力的條件。 4． 1 系統(tǒng)登陸界面： 本界面的主要功能是為了對系統(tǒng)進(jìn)行安全性管理，本系統(tǒng)的用戶名和密碼保存在 USE 表中，本系統(tǒng)根據(jù)不同的用戶而設(shè)置了不同的權(quán)限，可以用 909。 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, 警告 21 = 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 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)的安全性管理。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 End Sub Private Sub usermodi_Click() qxstr = Executeqx(1) If qxstr = false Then ss = MsgBox(對不起，你沒有管理本功能的權(quán)限，請與管理員聯(lián)系！, vbIn