【正文】 要一套學生管理信息系統(tǒng)來管理學生學籍、班級、課程和成績等信息以便 減少不必要的資源浪費，從而達到精簡機構，提高辦事效率的目的。 system design introduced some of the major system design and database structure design, etc. 。在這里通過分析某一學校學生管理的不足，創(chuàng)建了一套行之有效的計算機管理學生信息的方案。 畢 業(yè) 論 文 中 文 摘 要 2 學生管理信息系統(tǒng)是典型的管理信息系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。 本文介紹了利用 Visual Basic 與 Access 相結合的策略開發(fā)一個管理信息系統(tǒng)的過程。 analysis analyzes physical contact maps and functionallevel plans。 參考文獻 .......................................................................................................................28 1 1 引言 近幾年高校擴招， 學校 的 規(guī)模 越來越大 ，學生的數(shù)量 也 急劇增加， 同時學生的各種信息也成倍增長。 2 系統(tǒng)概述 本學生 管理 信息系統(tǒng)可以說是一個綜合性的 管理 信息 系統(tǒng)， 因為 它集成了學生學籍管理系統(tǒng)、學生 班級 管理系統(tǒng)、學生 課程管理系統(tǒng)、學生成績 管理系統(tǒng)等多種功能 在一起，并且 具有較強的實用性和先進性。 （ 3）班級管理模塊的主要功能是實現(xiàn)對全校班級信息的管理， 該模塊 包括添加班級信息和修改班級信息兩個模塊，從而方便學校管理部門對學校的班級情況進行管理。 （ 6）幫助模塊能夠為使用該系統(tǒng)的用戶提供一定的幫助，讓用戶更加了解本系統(tǒng)并正確的使用。 （ 2） 該系統(tǒng)的使用對象多 ,因此要求有較好的權限管理 。 （ 6） 數(shù)據(jù)計算自動完成，盡量減少人工干預。 2) 經(jīng)濟可行性分析 在開發(fā)系統(tǒng)方面，可以利用現(xiàn)有機器設備，不必進行另外的硬件設備投資；在效益方面，本系統(tǒng)運行可以提高學生信息管理的效率， 減輕老師的工作量，滿足師生查 詢的需要，減少學校管理部門的 不必要的操作 。 系統(tǒng)設計的背景 本系統(tǒng)的設計是在 Windows XP 操作系統(tǒng)環(huán)境下，使用 Visual Basic 中文版 結合 Access 數(shù)據(jù)庫 開發(fā)成功 的。 Access 數(shù)據(jù)庫 是由 Microsoft 推出的， 它是 微軟集成到 Office 中的一個桌面數(shù)據(jù)庫，能夠快速方便的和 Office 的其他套件綜合使用。 從系統(tǒng)分析可以知道，學生的成績是由任課教師按照課程給出的，學生、課程、教師組成了這個系統(tǒng)的三個實體。而學習成績是這兩個實體“學生”和“成績”共有的屬 4 性，應填在二 者的聯(lián)系“學習”邊。其 ER 圖如圖 32 所示。 系統(tǒng)的具體結構設計圖如圖 41所示。在登錄界面中輸 9 入正確的用戶名和密碼后單擊“確定”即可進入主 界面進行相應的操作了。界面如圖 44所示（由于其他幾個模塊的界面類似于本模塊， 所以下面內(nèi)容的中將不再列出界面圖）。該模塊包括 添加課程信息、修改課程信息和設置班級課程三 個模塊 。具體界面如圖 42所示，代碼如下所示。 amp。圖 51 是系統(tǒng)管理模塊中添加用戶的界面。 39。 15 圖 53 添加學籍信息模塊圖 Private Sub Command1_Click() Dim mrc As Dim txtSQL As String Dim MsgText As String If Not Testtxt() Then MsgBox 請輸入學號！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If ? (添加學生其他信息的方法可參照添加學號的方法 ) If Not IsNumeric(Trim()) Then MsgBox 請輸入數(shù)字！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If txtSQL = select * from student_Info where student_ID = 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 學號重復，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else If Not IsDate() Then MsgBox 出生時間應輸入日期格式（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyymmdd) If Not IsDate() Then MsgBox 入校時間應輸入日期格式（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Else txtRudate = Format(txtRudate, yyyymmdd) txtSQL = select * from student_Info Set mrc = ExecuteSQL(txtSQL, MsgText) (0) = Trim() (1) = Trim() (2) = Trim() (3) = Trim() (4) = Trim() 17 (5) = Trim() (6) = Trim() (7) = Trim() (8) = Trim() MsgBox 添加學籍信息成功！ , vbOKOnly + vbExclamation, 警告 End If End If End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Dim mrc As Dim txtSQL As String Dim MsgText As String Dim i As Integer 男 女 txtSQL = select * from class_Info Set mrc = ExecuteSQL(txtSQL, MsgText) For i = 1 To (0) 18 Next i End Sub 在該模塊中選擇“修改學籍信息”將出現(xiàn)圖 54所示界面，在這個界面上可以修改系統(tǒng)中已有的學生的學籍信息。 圖 55 查詢學籍信息模塊 圖 Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdInquire_Click() Dim txtSQL As String Dim MsgText As String Dim dd(4) As Boolean Dim mrc As txtSQL = select * from student_Info where If Check1(0).Value Then If Trim() = Then sMeg = 學號不能為空 24 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else If Not IsNumeric(Trim()) Then MsgBox 請輸入數(shù)字！ , vbOKOnly + vbExclamation, 警告 Exit Sub End If dd(0) = True txtSQL = txtSQL amp。 39。 amp。 amp。 and class_No = 39。 Else txtSQL = txtSQL amp。 39。 6 實例演示 下面執(zhí)行一下這個系統(tǒng)來看看實際的效果。 在學生管理信息系統(tǒng)界面上單擊“班級管理”選擇“添加班級信息”會出現(xiàn)如圖 61 所示的界面，這時可以向系統(tǒng)中添加一個新的班級