【正文】 6 實例演示 下面執(zhí)行一下這個系統(tǒng)來看看實際的效果。 amp。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 學(xué)號重復(fù)，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else If Not IsDate() Then MsgBox 出生時間應(yīng)輸入日期格式（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyymmdd) If Not IsDate() Then MsgBox 入校時間應(yīng)輸入日期格式（ 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 添加學(xué)籍信息成功！ , 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 在該模塊中選擇“修改學(xué)籍信息”將出現(xiàn)圖 54所示界面，在這個界面上可以修改系統(tǒng)中已有的學(xué)生的學(xué)籍信息。 amp。在登錄界面中輸 9 入正確的用戶名和密碼后單擊“確定”即可進(jìn)入主 界面進(jìn)行相應(yīng)的操作了。 從系統(tǒng)分析可以知道，學(xué)生的成績是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個系統(tǒng)的三個實體。 （ 6） 數(shù)據(jù)計算自動完成，盡量減少人工干預(yù)。 2 系統(tǒng)概述 本學(xué)生 管理 信息系統(tǒng)可以說是一個綜合性的 管理 信息 系統(tǒng)， 因為 它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生 班級 管理系統(tǒng)、學(xué)生 課程管理系統(tǒng)、學(xué)生成績 管理系統(tǒng)等多種功能 在一起，并且 具有較強(qiáng)的實用性和先進(jìn)性。 畢 業(yè) 論 文 中 文 摘 要 2 學(xué)生管理信息系統(tǒng)是典型的管理信息系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個方面。 因為學(xué)生信息一般包括學(xué)籍信息、 班級信息、 課程信息和成績信息等，又考慮到學(xué)校的一些需 求，所以該學(xué)生管理信息系統(tǒng)主要包括系統(tǒng)、學(xué)籍管理、班級管理、課程管理、成績管理和幫助幾個模塊。 可行性分析 1) 技術(shù)可行性 分析 本系統(tǒng)采用 Visual Basic 語言和 Access 數(shù)據(jù)庫 在 Windows XP 操作系統(tǒng)上實現(xiàn)，在技術(shù)上是可行的。 再分析三個實體之間的聯(lián)系。 圖 42 系統(tǒng) 登陸界面圖 根據(jù)需要該 系統(tǒng) 要 實現(xiàn) 學(xué)生學(xué)籍信息、班級信息、課程信息、成績信息等相關(guān)信息的管理，所以該信息系統(tǒng)包括以下幾個功能模塊：系統(tǒng)管理、學(xué)籍管理、班級管理、課程信息、成績管理和幫助 。 amp。具體的代碼如下所示。 amp。運行程序就會出現(xiàn) 圖 42 所示的系統(tǒng)登錄 界面。其 它模塊的代碼就不再贅述 。 student_Name = 39。 39。check for correct password UserName = If Trim( = ) Then MsgBox 沒有 這 個用 戶 ，請 重新 輸 入用 戶名 ！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 運行本系統(tǒng)之前首先要進(jìn)行登陸，登陸界面如圖 42所示。 3 系統(tǒng)分析 實體聯(lián)系圖 首先來做出學(xué)生成績管理系統(tǒng)的 ER 圖，分析這個問題的實體。 （ 5） 在相應(yīng)的管理權(quán)限下，刪除數(shù)據(jù)方便簡單，數(shù)據(jù)穩(wěn)定性好。該學(xué)生管理信息系統(tǒng)包括學(xué)生學(xué)籍 信息 管理系統(tǒng)、學(xué)生 班級信息 管理系統(tǒng)、學(xué)生 課程信息 管理系統(tǒng)、學(xué)生 成績信息 管理系統(tǒng)等多種功能，在下面將一一介紹 。對于前者要求建立起數(shù)據(jù)一致性和完整性強(qiáng)、數(shù)據(jù)安全性好的數(shù)據(jù)庫。 （ 1）系統(tǒng)模塊的主要任務(wù)是維護(hù)系統(tǒng)的正常運行和安全性設(shè)置，包括添加用戶、修改密碼、退出系統(tǒng)三個模塊。 而且學(xué)校用于學(xué)生管理的微機(jī)一般在存儲量、速度方面 都能滿足數(shù)據(jù)庫運行的要求。首先，這三個實體不是一個統(tǒng)一體，學(xué)生成績與教師沒有內(nèi)在聯(lián)系，教師必須通過課程實體才能與學(xué)生建立聯(lián)系，因而先不考慮。 該系統(tǒng)主界面如圖 43所示，選擇相應(yīng)的模塊就可以進(jìn)行各個模塊的相應(yīng)操作了。 39。 圖 54 修改學(xué)籍信息模塊 圖 Dim mrc As Dim myBookmark As Variant Dim mcclean As Boolean Private Sub editCommand_Click() mcclean = False = False = False = False = False = False = True = True 19 = True = True = True = True = True = True = True myBookmark = End Sub Private Sub cancelCommand_Click() If Not mcclean Then = True = True = True = True = True = False = False = False = False = False = False = False = False = False = myBookmark Call viewData Else 20 MsgBox 什么都沒有修改， 確定取消？ , vbOKOnly + vbExclamation, 警告 End If End Sub Private Sub deleteCommand_Click() myBookmark = str2$ = MsgBox(是否刪除當(dāng)前記錄？ , vbOKCancel, 刪除當(dāng)前記錄 ) If str2$ = vbOK Then If Then myBookmark = = myBookmark Call viewData Else myBookmark = = myBookmark Call viewData End If Else = myBookmark Call viewData End If End Sub 21 Private Sub firstCommand_Cli