【正文】 該模塊對(duì)各個(gè)班級(jí)的課程進(jìn)行 添加、修改 和 設(shè)置，并可在其中設(shè)置各門課程的教材選用情況，方便了學(xué)校教材管理部門和教務(wù)處的教學(xué)管理人員的工作。check for correct password UserName = If Trim( = ) Then MsgBox 沒有 這 個(gè)用 戶 ，請 重新 輸 入用 戶名 ！ , vbOKOnly + vbExclamation, 警告 Else txtSQL = select * from user_Info where user_ID = 39。 UserName amp。 39。 Trim() amp。 student_Name = 39。 39。其 它模塊的代碼就不再贅述 。 參考文獻(xiàn) [1] 陳艷峰，高文姬，邵蘊(yùn)秋等編著 .Visual Basic 數(shù)據(jù)庫項(xiàng)目案例導(dǎo)航 [M].北京：清華大學(xué)出版社， 20xx： 192237， 167168 [2] 鄭阿奇，曹 . Visual Basic 實(shí)用教程（第 2 版） [M].北京：電子工業(yè)出版社，20xx（ 7） [3] 明日科技，安劍，孫 秀梅 . Visual Basic 數(shù)據(jù)庫系統(tǒng)開發(fā)自學(xué)手冊 [M].北京：人民郵電出版社， 20xx [4] 王要武 .管理信息系統(tǒng) [M].北京：電子工業(yè)出版社， 20xx [5] 鄭小玲 .Access 20xx 中文版實(shí)用教程 [M].北京：清華大學(xué)出版社 ,20xx [6] 黃明，梁旭 . Visual Basic 信息系統(tǒng)設(shè)計(jì)與開發(fā)實(shí)例 （第 2版） [M].北京： 機(jī)械工業(yè)出版社， 20xx（ 2）， 111 。運(yùn)行程序就會(huì)出現(xiàn) 圖 42 所示的系統(tǒng)登錄 界面。 class_No = 39。 amp。 End If End If If Check1(1).Value Then If Trim() = Then sMeg = 姓名不能為空 MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Exit Sub Else dd(1) = True If dd(0) Then txtSQL = txtSQL amp。具體的代碼如下所示。 Set mrc = ExecuteSQL(txtSQL, MsgText) (1) = Text1(1).Text MsgBox 密碼修改成功！ , vbOKOnly + vbExclamation, 修改密碼 End If End Sub 學(xué)生 學(xué)籍信息 管理模塊 學(xué)生學(xué)籍信息管理模塊 的具體界面如圖 52 所示。 amp。 成績管理模塊 界面設(shè)計(jì) 學(xué)校的成績管理工作是檢驗(yàn)學(xué)生學(xué)習(xí)情況的一個(gè)主要手段 ,其中 設(shè)置了 添加成績 信息 、 修改成績信息和查詢成績信息三個(gè) 功能模塊。 圖 42 系統(tǒng) 登陸界面圖 根據(jù)需要該 系統(tǒng) 要 實(shí)現(xiàn) 學(xué)生學(xué)籍信息、班級(jí)信息、課程信息、成績信息等相關(guān)信息的管理，所以該信息系統(tǒng)包括以下幾個(gè)功能模塊：系統(tǒng)管理、學(xué)籍管理、班級(jí)管理、課程信息、成績管理和幫助 。 圖 32 教師和課程的實(shí)體聯(lián)系圖 其它 管理系統(tǒng)的實(shí)體聯(lián)系圖可參照學(xué)生成績管理系統(tǒng)的 ER圖進(jìn)行分析 。 再分析三個(gè)實(shí)體之間的聯(lián)系。 Visual Basic 是一種可視化的、面對(duì)對(duì)象和 調(diào) 用事件驅(qū)動(dòng)方式的結(jié)構(gòu)化高級(jí)程序設(shè)計(jì) 語言 ，可用于開發(fā) Windows 環(huán)境下的 應(yīng) 用程序。 可行性分析 1) 技術(shù)可行性 分析 本系統(tǒng)采用 Visual Basic 語言和 Access 數(shù)據(jù)庫 在 Windows XP 操作系統(tǒng)上實(shí)現(xiàn)，在技術(shù)上是可行的。 該學(xué)生管理信息系統(tǒng)可作為數(shù)據(jù)庫信息系統(tǒng)的一種應(yīng)用，所以其開發(fā)流程主要包括系統(tǒng)概述、系統(tǒng)分 析、系統(tǒng)設(shè)計(jì)和 代碼的分析與 實(shí)現(xiàn)等。 因?yàn)閷W(xué)生信息一般包括學(xué)籍信息、 班級(jí)信息、 課程信息和成績信息等，又考慮到學(xué)校的一些需 求，所以該學(xué)生管理信息系統(tǒng)主要包括系統(tǒng)、學(xué)籍管理、班級(jí)管理、課程管理、成績管理和幫助幾個(gè)模塊。 system design introduced some of the major system design and database structure design, etc. 。 畢 業(yè) 論 文 中 文 摘 要 2 學(xué)生管理信息系統(tǒng)是典型的管理信息系統(tǒng) (MIS),其開發(fā)主要包括后臺(tái)數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。 analysis analyzes physical contact maps and functionallevel plans。 2 系統(tǒng)概述 本學(xué)生 管理 信息系統(tǒng)可以說是一個(gè)綜合性的 管理 信息 系統(tǒng)， 因?yàn)?它集成了學(xué)生學(xué)籍管理系統(tǒng)、學(xué)生 班級(jí) 管理系統(tǒng)、學(xué)生 課程管理系統(tǒng)、學(xué)生成績 管理系統(tǒng)等多種功能 在一起，并且 具有較強(qiáng)的實(shí)用性和先進(jìn)性。 （ 6）幫助模塊能夠?yàn)槭褂迷撓到y(tǒng)的用戶提供一定的幫助，讓用戶更加了解本系統(tǒng)并正確的使用。 （ 6） 數(shù)據(jù)計(jì)算自動(dòng)完成，盡量減少人工干預(yù)。 系統(tǒng)設(shè)計(jì)的背景 本系統(tǒng)的設(shè)計(jì)是在 Windows XP 操作系統(tǒng)環(huán)境下，使用 Visual Basic 中文版 結(jié)合 Access 數(shù)據(jù)庫 開發(fā)成功 的。 從系統(tǒng)分析可以知道，學(xué)生的成績是由任課教師按照課程給出的，學(xué)生、課程、教師組成了這個(gè)系統(tǒng)的三個(gè)實(shí)體。其 ER 圖如圖 32 所示。在登錄界面中輸 9 入正確的用戶名和密碼后單擊“確定”即可進(jìn)入主 界面進(jìn)行相應(yīng)的操作了。該模塊包括 添加課程信息、修改課程信息和設(shè)置班級(jí)課程三 個(gè)模塊 。 amp。 39。 Set mrc = ExecuteSQL(txtSQL, MsgText) If = False Then MsgBox 學(xué)號(hào)重復(fù)，請重新輸入！ , vbOKOnly + vbExclamation, 警告 Else If Not IsDate() Then MsgBox 出生時(shí)間應(yīng)輸入日期格式（ yyyymmdd）！ , vbOKOnly + vbExclamation, 警告 Else txtBorndate = Format(txtBorndate, yyyymmdd) If Not IsDate() Then MsgBox 入校時(shí)間應(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所示界面，在這個(gè)界面上可以修改系統(tǒng)中已有的學(xué)生的學(xué)籍信息。 39。 amp。 Else txtSQL = txtSQL amp。 6 實(shí)例演示 下面執(zhí)行一下這個(gè)系統(tǒng)來看看實(shí)際的效果