VB課程設(shè)計(jì)報(bào)告模板

1、石家莊鐵道學(xué)院課程設(shè)計(jì)Vb語(yǔ)言課程設(shè)計(jì)小型學(xué)生成績(jī)管理系統(tǒng) 單 位 分院(系)專(zhuān) 業(yè) 學(xué) 號(hào) 學(xué)生姓名 指導(dǎo)教師 完成日期 年月日摘 要成績(jī)管理是學(xué)校管理中相當(dāng)繁重的工作，牽涉到學(xué)生成績(jī)管理、教師管理和課程管理等。由于成績(jī)記錄的數(shù)量眾多、管理復(fù)雜容易造成混亂，成績(jī)管理系統(tǒng)可以實(shí)現(xiàn)對(duì)整個(gè)成績(jī)信息進(jìn)行準(zhǔn)確而高效的記載。本系統(tǒng)的主要功能及任務(wù)是：·方便學(xué)生對(duì)自己的成績(jī)信息進(jìn)行瀏覽；·方便教師對(duì)學(xué)生的成績(jī)信息進(jìn)行瀏覽、查找并進(jìn)行管理；·提供一個(gè)電子化的成績(jī)管理平臺(tái)。為滿足為學(xué)校服務(wù)這一基本功能，數(shù)字校園應(yīng)定位于信息服務(wù)，對(duì)學(xué)生的成績(jī)的高效而準(zhǔn)確的管理系統(tǒng)設(shè)計(jì)的出發(fā)點(diǎn)和最終

2、目的，既要能夠滿足學(xué)生和老師的一般需求，又要能夠針對(duì)用戶的類(lèi)型、需求特征等確定它的的權(quán)限以便進(jìn)行管理。 學(xué)生成績(jī)管理系統(tǒng)以學(xué)校實(shí)際成績(jī)管理情況為依據(jù)，提供了成績(jī)?yōu)g覽、查找和更新，統(tǒng)計(jì)查詢等實(shí)用而豐富的功能。本系統(tǒng)使用Visual Basic 6.0中文版作為開(kāi)發(fā)工具，后臺(tái)數(shù)據(jù)庫(kù)采用 Microsoft Access 的MDB數(shù)據(jù)庫(kù)。關(guān)鍵詞：小型學(xué)生成績(jī)管理系統(tǒng)，SQL， VB，數(shù)據(jù)庫(kù)，控件，控件與數(shù)據(jù)庫(kù)的綁定目 錄一選題的意義41 選擇該題目的原因4 2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)4二系統(tǒng)功能簡(jiǎn)介51 系統(tǒng)概述52 系統(tǒng)的組成及各模塊的功能53 系統(tǒng)的運(yùn)行環(huán)境5三系統(tǒng)設(shè)計(jì)61 總體結(jié)構(gòu)設(shè)

3、計(jì)62 數(shù)據(jù)庫(kù)設(shè)計(jì)6四系統(tǒng)實(shí)現(xiàn)71 登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)82 學(xué)生登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)93 教師登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)104 學(xué)生成績(jī)查詢模塊設(shè)計(jì)和實(shí)現(xiàn)115 學(xué)生密碼修改模塊設(shè)計(jì)和實(shí)現(xiàn)126 主窗體模塊的設(shè)計(jì)與實(shí)現(xiàn)137 添加用戶模塊的設(shè)計(jì)與實(shí)現(xiàn)158 修改密碼模塊的設(shè)計(jì)與實(shí)現(xiàn)169 學(xué)生信息添加模塊的設(shè)計(jì)與實(shí)現(xiàn)1810 學(xué)生信息修改模塊的設(shè)計(jì)與實(shí)現(xiàn)1911 學(xué)生信息查詢模塊的設(shè)計(jì)與實(shí)現(xiàn)2112 學(xué)生成績(jī)錄入模塊的設(shè)計(jì)與實(shí)現(xiàn)2213 學(xué)生成績(jī)修改模塊的設(shè)計(jì)與實(shí)現(xiàn)2414 學(xué)生成績(jī)查詢模塊的設(shè)計(jì)與實(shí)現(xiàn)2615 項(xiàng)目統(tǒng)計(jì)模塊的設(shè)計(jì)與實(shí)現(xiàn)28五.總結(jié)281 遇到及解決的問(wèn)題282 心得體會(huì)293 后

4、記29參考文獻(xiàn)29一 選題的意義1.選該題的原因從大的方面來(lái)講，現(xiàn)在我國(guó)的部分高中及其以下級(jí)別的大部分中學(xué)，學(xué)生成績(jī)的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我選擇這個(gè)題目，希望可以在信息管理方面有所提高。改革的總設(shè)計(jì)師鄧小平同志說(shuō)過(guò)“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我一年的所學(xué)編制出一個(gè)實(shí)用的程序來(lái)幫助學(xué)校進(jìn)行更有效的信息管理。從小的方面來(lái)說(shuō)，我感覺(jué)這個(gè)題目和我的學(xué)校生活密切相關(guān)，我也比較熟悉該系統(tǒng)，更容易學(xué)到對(duì)于我vb語(yǔ)言學(xué)習(xí)有用的知識(shí)。2完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)

5、。2.1數(shù)據(jù)結(jié)構(gòu)：通過(guò)可視化數(shù)據(jù)管理器可以進(jìn)行數(shù)據(jù)庫(kù)操作。建立數(shù)據(jù)庫(kù)：?jiǎn)?dòng)可視化數(shù)據(jù)管理器，創(chuàng)建數(shù)據(jù)庫(kù)，創(chuàng)建數(shù)據(jù)庫(kù)表，然后編輯數(shù)據(jù)庫(kù)。2.2知識(shí)點(diǎn)：Access技術(shù)：可以開(kāi)發(fā)關(guān)系數(shù)據(jù)庫(kù)，數(shù)據(jù)庫(kù)能匯集各種信息以供查詢、存儲(chǔ)和檢索。數(shù)據(jù)庫(kù)(Database)是由一些有意義和有關(guān)系的數(shù)據(jù)(data)所組合而成。一個(gè)數(shù)據(jù)庫(kù)中，包含了許多條記錄(Record),而每條記錄是由多個(gè)字段(Field)所組成,不同的字段存放這不同的數(shù)據(jù)。所以數(shù)據(jù)庫(kù)的嚴(yán)格定義是一組相關(guān)記錄的集合，而字段則是最基本的數(shù)據(jù)項(xiàng)，也是數(shù)據(jù)庫(kù)中最小的單位。在計(jì)算機(jī)中用來(lái)幫我們管理數(shù)據(jù)庫(kù)的系統(tǒng)，我們稱之為數(shù)據(jù)庫(kù)管理管理系統(tǒng)（Databas

6、e Management System DBMS）。數(shù)據(jù)庫(kù)管理系統(tǒng)是架構(gòu)在一個(gè)或多個(gè)數(shù)據(jù)庫(kù)之上，并針對(duì)數(shù)據(jù)庫(kù)中的數(shù)據(jù)進(jìn)行管理運(yùn)用。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類(lèi)似于 Excel 的電子表格，可以使數(shù)據(jù)庫(kù)一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫(kù)中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫(kù)，可以使用桌面數(shù)據(jù)庫(kù)文件把數(shù)據(jù)庫(kù)文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫(kù)。如上所述，Access 作為關(guān)系數(shù)據(jù)庫(kù)開(kāi)發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫(kù)的便利和關(guān)系數(shù)據(jù)庫(kù)的強(qiáng)大功能。結(jié)構(gòu)化查詢語(yǔ)言SQL: 結(jié)構(gòu)

7、化查詢語(yǔ)言(Structrued Query Lauguage,SQL)是訪問(wèn)數(shù)據(jù)庫(kù)的標(biāo)準(zhǔn)語(yǔ)言，使用SQL語(yǔ)言可以從數(shù)據(jù)庫(kù)中獲取數(shù)據(jù)，建立數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)對(duì)象，增加，修改數(shù)據(jù)和實(shí)現(xiàn)復(fù)雜的查詢功能。它是本系統(tǒng)實(shí)現(xiàn)的基礎(chǔ)。使用data控件訪問(wèn)數(shù)據(jù)庫(kù)：主要使用的是data控件和數(shù)據(jù)綁定控件編寫(xiě)數(shù)據(jù)庫(kù)應(yīng)用程序的方法。 二系統(tǒng)功能簡(jiǎn)介 1.系統(tǒng)概述隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長(zhǎng)。面對(duì)龐大的信息量，需要有學(xué)生管理系統(tǒng)來(lái)提高學(xué)生管理工作的效率。通過(guò)這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。2.系統(tǒng)的組成以及各模塊的功能系統(tǒng)開(kāi)發(fā)

8、的總?cè)蝿?wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化。系統(tǒng)主要由五部分組成：系統(tǒng)用戶的管理、學(xué)生成績(jī)的管理、學(xué)生學(xué)籍信息的管理、信息的查詢，其中還包括登錄界面以及成績(jī)的統(tǒng)計(jì)模塊。各模塊的主要功能如下：系統(tǒng)用戶的管理：實(shí)現(xiàn)用戶的添加、刪除和密碼的修改學(xué)生學(xué)籍信息的管理：實(shí)現(xiàn)學(xué)生學(xué)籍信息的添加、刪除和修改。學(xué)生成績(jī)的管理：實(shí)現(xiàn)學(xué)生成績(jī)的錄入，刪除和修改。學(xué)生信息的查詢：實(shí)現(xiàn)學(xué)生學(xué)籍的查詢、成績(jī)的查詢。 學(xué)生成績(jī)信息的統(tǒng)計(jì)：實(shí)現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計(jì)。3.系統(tǒng)的運(yùn)行環(huán)境系統(tǒng)使用環(huán)境操作系統(tǒng)：windows xp/2000/me/98系統(tǒng)支持： visual basic 6.0及以上版本數(shù)據(jù)

9、庫(kù)： access系統(tǒng)開(kāi)發(fā)環(huán)境操作系統(tǒng)：windows xp/2000/me/98系統(tǒng)支持： visual basic 6.0三 系統(tǒng)設(shè)計(jì)1.總體結(jié)構(gòu)設(shè)計(jì)對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化層序設(shè)計(jì)的要求，得到如下所示的系統(tǒng)功能功能模塊圖。小型成績(jī)管理系統(tǒng)成績(jī)查詢成績(jī)修改成績(jī)錄入成績(jī)管理信息查詢信息修改信息添加學(xué)生信息項(xiàng)目統(tǒng)計(jì)退出系統(tǒng)修改密碼添加用戶統(tǒng)計(jì)信息系統(tǒng)管理2.數(shù)據(jù)庫(kù)設(shè)計(jì)數(shù)據(jù)庫(kù)在本成績(jī)管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫(kù)結(jié)構(gòu)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效率產(chǎn)生影響。合理的數(shù)據(jù)庫(kù)及結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一致。同時(shí)合理的數(shù)據(jù)庫(kù)結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)

10、。設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫(kù)應(yīng)該充分滿足用戶的需求。針對(duì)一般學(xué)生管理系統(tǒng)的需求，通過(guò)對(duì)學(xué)生學(xué)習(xí)過(guò)程的內(nèi)容的分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)l 基本信息表：包括的字段有：學(xué)號(hào)，姓名，性別，年齡，聯(lián)系電話，家庭住址。l 成績(jī)表： 包括的字段有： 學(xué)號(hào)，姓名，性別，年齡，高數(shù)成績(jī)，英語(yǔ)成績(jī)，計(jì)算機(jī)成績(jī)，平均成績(jī)。l 密碼表： 包括的字段有： 用戶名，密碼。l 教師密碼表：包括的字段有：用戶名，密碼。得到上面的數(shù)據(jù)項(xiàng)就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體以及他們之間的關(guān)系。由上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：用戶實(shí)體、信息實(shí)體、成績(jī)實(shí)體。按照以上實(shí)體進(jìn)行設(shè)計(jì)：（1）打開(kāi)可視化數(shù)據(jù)管理器程序（2）建立數(shù)據(jù)庫(kù)（3）

11、創(chuàng)建數(shù)據(jù)庫(kù)表（4）添加字段（5）生成表 添加內(nèi)容基本信息表字段名稱數(shù)據(jù)類(lèi)型字段大小學(xué)號(hào)文本10姓名文本10性別文本2年齡數(shù)字2聯(lián)系電話數(shù)字50班級(jí)文本50家庭住址文本50等。四 系統(tǒng)實(shí)現(xiàn)現(xiàn)在已經(jīng)完成了程序各個(gè)功能模塊的創(chuàng)建，現(xiàn)在可以進(jìn)行系統(tǒng)的實(shí)現(xiàn)了1 登錄界面實(shí)現(xiàn) 第一個(gè)登陸界面選擇用戶類(lèi)型，分為教師和學(xué)生。具體圖形及相關(guān)代碼如下所示：核心代碼：Private Sub Command1_Click()dl.Hidexsdl.Show 進(jìn)入學(xué)生登陸界面End SubPrivate Sub Command2_Click()dl.Hidejsdl.Show 進(jìn)入教師登陸界面End SubPrivat

12、e Sub Form_Load()Label1.Width = dl.ScaleWidthLabel1.Left = dl.ScaleWidth 設(shè)定標(biāo)簽（歡迎使用成績(jī)管理系統(tǒng)）的起始值End SubPrivate Sub Timer1_Timer()If Label1.Left + Label1.Width >= 0 ThenLabel1.Left = Label1.Left - 50ElseLabel1.Left = dl.ScaleWidth 使上述標(biāo)簽以一定的時(shí)間運(yùn)動(dòng)End IfEnd Sub學(xué)生登陸界面核心代碼如下：Private Sub Command1_Click()Use

13、rName = ""If Trim(Text1.Text) = "" ThenMsgBox "用戶名不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告" 判斷輸入是否為空，若是，則彈出窗體警告！Text1.SetFocusElseData1.RecordSource = "select * from 密碼表 where 用戶名='" & Text1.Text & "' and 密碼='" &

14、Text2.Text & "'" 連接數(shù)據(jù)庫(kù)，查找滿足條件的記錄。Data1.Refresh 刷新數(shù)據(jù)庫(kù)If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True ThenMsgBox "用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusText2.SetFocus 判斷所查找的記錄是否存在，即輸入的用戶名和密碼是否匹配 ElseUserName = Text1.TextText2

15、.Text = ""Me.HideForm4.Show 若是匹配 ，則當(dāng)前窗體隱藏，進(jìn)入學(xué)生成績(jī)查詢界面。End IfEnd IfEnd SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub “取消”按鈕，使兩個(gè)文本框內(nèi)容為空。Private Sub Timer1_Timer()If Label1.Left + Label1.Width >= 0 ThenLabel1.Left = Label1.Left - 50ElseLabel1.Left

16、= dl.ScaleWidth 使標(biāo)簽按一定的時(shí)間運(yùn)動(dòng)，達(dá)到電子滾動(dòng)的效果。End IfEnd Sub教師登陸界面：核心代碼如下所示；該界面代碼與上個(gè)界面基本一致。Private Sub Command1_Click()UserName = ""If Trim(Text1.Text) = "" ThenMsgBox "用戶名不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusElseData1.RecordSource = "select *

17、 from 教師密碼表 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'" Data1.RefreshIf Data1.Recordset.BOF = True And Data1.Recordset.EOF = True ThenMsgBox "用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusT

18、ext2.SetFocusElseUserName = Text1.TextMe.Hidemain.ShowEnd IfEnd IfEnd SubPrivate Sub Command2_Click()Text2.Text = ""Text3.Text = ""End SubPrivate Sub Timer1_Timer()If Label3.Left + Label3.Width >= 0 ThenLabel3.Left = Label3.Left - 50ElseLabel3.Left = jsdl.ScaleWidthEnd IfEnd S

19、ubPrivate Sub Form_Load()Label3.Width = jsdl.ScaleWidthLabel3.Left = jsdl.ScaleWidthEnd Sub學(xué)生成績(jī)查詢界面：使用一個(gè)data控件，一個(gè)MSFlexgrid控件，兩個(gè)命令按鈕。代碼如下：Private Sub Command1_Click()EndEnd Sub 單擊“退出系統(tǒng)”按鈕，結(jié)束程序。Private Sub Command2_Click()Me.Hidexiugaimima.Show 單擊修改 “密碼按鈕”， 進(jìn)入學(xué)生修改密碼界面。End SubPrivate Sub Form_Load()Da

20、ta1.RecordSource = "select * from 成績(jī)表 where 學(xué)號(hào)='" & xsdl.Text1.Text & "'"Data1.RefreshEnd Sub 當(dāng)界面載入的時(shí)候，就連接數(shù)據(jù)庫(kù)，并查找出滿足學(xué)號(hào)等于學(xué)生登陸窗體中的用戶名的記錄。學(xué)生密碼修改界面：代碼如下：Private Sub Command1_Click()If Trim(Text1.Text) <> Trim(Text2.Text) ThenMsgBox "密碼輸入不正確!", vbOKOnly

21、 + vbExclamation, "信息提示"Text1.SetFocusText1.Text = "" 判斷兩次輸入地密碼是否一致，若不一致 ，則彈出警告，重新輸入！ElseData1.RecordSource = "select * from 密碼表 where 用戶名='" & xsdl.Text1.Text & " '"Data1.RefreshData1.Recordset.EditData1.Recordset.Fields("密碼") = Text

22、1.TextData1.Recordset.UpdateMsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"End If 若是一致，則連接數(shù)據(jù)庫(kù)，將所輸入的新密碼修改并加入數(shù)據(jù)庫(kù)。End SubPrivate Sub Command2_Click()Text1.Text = ""Text2.Text = ""End Sub 單擊“取消”按鈕，將文本框清空。Private Sub Command3_Click()Me.HideForm4.Show 單擊“返回”按鈕，當(dāng)前

23、窗體隱藏，學(xué)生成績(jī)查詢界面出現(xiàn)。End Sub主窗體界面：代碼如下：Private Sub tcxt_Click()End 單擊“退出系統(tǒng)”按鈕， 結(jié)束程序。End SubPrivate Sub tjyh_Click()Me.Hidetianjiayonghu.Show 單擊“添加用戶”按鈕，當(dāng)前窗體隱藏，“添加用戶窗體”出現(xiàn)。 End SubPrivate Sub xgmm_Click()Me.Hidejiaoshimimaxiugai.Show 單擊“修改密碼”按鈕，當(dāng)前窗體隱藏，“教師修改密碼”窗體出現(xiàn)。End SubPrivate Sub xmtj_Click()Me.Hidexian

24、gmu#Show 單擊“項(xiàng)目統(tǒng)計(jì)”按鈕，進(jìn)入“項(xiàng)目統(tǒng)計(jì)”界面End SubPrivate Sub xxcx_Click()Me.Hidexinxichaxun.Show單擊“信息查詢”按鈕，進(jìn)入“學(xué)生信息查詢”界面。End SubPrivate Sub xxtj_Click()Me.Hidexueshengxinxitianjia.Show 單擊“信息添加”按鈕，進(jìn)入“學(xué)生信息添加”界面。End SubPrivate Sub xxxg_Click()Me.Hidexinxixiugai.Show 單擊“信息修改”按鈕，進(jìn)入“學(xué)生信息修改”界面。End SubPrivate Sub

25、cjcx_Click()main.Hidechengjichaxun.Show End Sub 單擊“成績(jī)查詢”按鈕，進(jìn)入“成績(jī)查詢”界面。Private Sub cjlr_Click()Me.Hidechengjiluru.ShowEnd Subv 單擊“成績(jī)錄入”按鈕，進(jìn)入“成績(jī)錄入”界面。Private Sub cjxg_Click() Me.Hidechengjixiugai.Show 單擊“成績(jī)修改”按鈕，進(jìn)入成績(jī)修改界面。End Sub添加用戶界面：代碼如下：Private Sub Command1_Click()If Trim(Text1.Text) = ""

26、 ThenMsgBox "請(qǐng)輸入用戶名！", vbOKOnly + vbExclamation, "信息提示"Text1.SetFocus 判斷用戶名是否為空，若為空，則彈出警告，輸入用戶名！Exit SubElseData1.RecordSource = "select * from 教師密碼表 where 用戶名='" & Text1.Text & "'"Data1.RefreshIf Not Data1.Recordset.EOF ThenMsgBox "用戶已存在，

27、請(qǐng)重新輸入用戶名！", vbOKOnly + vbExclamation, "提示信息"Text1.SetFocusText1.Text = "": Text2.Text = "": Text3.Text = ""Exit SubEnd IfEnd If 若不為空，連接數(shù)據(jù)庫(kù)，判斷該用戶名是否已經(jīng)存在，若已經(jīng)存在，彈出警告，重新輸入！ If Trim(Text2.Text) <> Trim(Text3.Text) ThenMsgBox "兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！",

28、vbOKOnly + vbExclamation, "警告"Text2.SetFocusText2.Text = ""Text3.Text = "" 若兩次輸入地密碼不一致，則彈出警告，確認(rèn)并重新輸入密碼。Exit SubElseWith Data1.Recordset.AddNew.Recordset.Fields(0) = Trim(Text1.Text).Recordset.Fields(1) = Trim(Text2.Text).Recordset.UpdateEnd WithMsgBox "添加用戶成功！"

29、;, vbOKOnly + vbExclamation, "添加用戶"End IfEnd Sub 若上述情況均沒(méi)有，則連接數(shù)據(jù)庫(kù)，將輸入的用戶信息添加到“教師密碼表”中去。Private Sub Command2_Click()Text1.Text = ""Text2.Text = ""Text3.Text = "" 單擊“取消”按鈕，將文本框清空。End SubPrivate Sub Command3_Click()Me.Hidemain.Show 單擊“返回”按鈕，返回到主界面。End Sub修改密碼界面：代碼

30、如下：Private Sub Command1_Click()If Trim(Text1.Text) <> Trim(Text2.Text) ThenMsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"Text1.SetFocusText1.Text = "" 判斷兩次輸入的密碼是否一致，若不一致，彈出警告，并重新輸入。ElseData1.RecordSource = "select * from 密碼表 where 用戶名='" & x

31、sdl.Text1.Text & " '"Data1.RefreshData1.Recordset.EditData1.Recordset.Fields("密碼") = Text1.TextData1.Recordset.Update 若一致，連接數(shù)據(jù)庫(kù)，進(jìn)行修改，將所輸入密碼保存到數(shù)據(jù)庫(kù)中去。MsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"End IfEnd Sub 彈出“修改成功”的窗體。Private Sub Command2_Click()

32、Text1.Text = ""Text2.Text = ""End Sub 清空文本框。Private Sub Command3_Click()Me.HideForm4.ShowEnd Sub 返回主界面。添加學(xué)生信息界面：代碼如下：Private Sub Command1_Click()If Text2.Text = "" Or Text3.Text = "" ThenMsgBox "學(xué)號(hào)和姓名不能為空！", vbOKOnly + vbExclamation, "警告"Ex

33、it Sub 判斷“學(xué)號(hào)”和“姓名”是否為空，若是，則彈出警告，重新輸入!ElseData1.RecordSource = "select * from 基本信息表 where 學(xué)號(hào)='" & Trim(Text2.Text) & " ' "Data1.RefreshIf Data1.Recordset.BOF = False And Data1.Recordset.EOF = False ThenMsgBox "輸入的學(xué)號(hào)已經(jīng)存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation,

34、"警告"Text2.Text = ""Text3.Text = ""Text2.SetFocus 若不為空，連接數(shù)據(jù)庫(kù)，判斷輸入的學(xué)號(hào)是否已經(jīng)存在，若存在，彈出警告，重新輸入！ElseData1.Recordset.AddNewData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData

35、1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Text8.TextData1.Recordset.UpdateMsgBox "添加成功！" 若不為空，且輸入的學(xué)號(hào)不存在，則連接數(shù)據(jù)庫(kù)，將所輸入的信息添加到“基本信息表”中。Data2.RecordSource = "select * from 成績(jī)表 where 學(xué)號(hào)='" & Trim(Text2.Text) & "

36、' "Data2.RefreshData3.RecordSource = "select * from 密碼表 where 用戶名='" & Trim(Text2.Text) & " ' "Data3.RefreshData2.Recordset.AddNewData2.Recordset.Fields(0) = Text2.TextData2.Recordset.Fields(1) = Text3.TextData2.Recordset.UpdateData3.Recordset.AddNewData3

37、.Recordset.Fields(0) = Text2.TextData3.Recordset.Fields(1) = Text2.TextData3.Recordset.UpdateEnd If 同時(shí)，也將輸入的學(xué)號(hào)添加到“成績(jī)表”與“密碼表”中，以及“成績(jī)表”中加入學(xué)號(hào)與姓名，“密碼表”中用戶名與為學(xué)號(hào)。 End IfEnd SubPrivate Sub Command2_Click()Me.Hidemain.ShowEnd Sub 修改學(xué)生信息界面： 代碼如下： Private Sub Command1_Click()If Text1.Text = "" ThenM

38、sgBox "請(qǐng)輸入內(nèi)容！"Else 判斷輸入內(nèi)容是否為空Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Records

39、et.Fields(6) = Text8.TextText9.Text = Str(Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields(7) = Text9.TextData1.Recordset.UpdateMsgBox "修改成功" 不為空時(shí)，對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改，并保存入數(shù)據(jù)庫(kù)。End IfEnd SubPrivate Sub Command10_Click()If Trim(Text1.Text) = "" ThenMsgBox "學(xué)號(hào)

40、不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusElse 判斷輸入學(xué)號(hào)是否為空Data1.RecordSource = "select * from 成績(jī)表 where 學(xué)號(hào)='" & Text1.Text & " '" Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox "學(xué)號(hào)不存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "

41、;警告"Text1.SetFocusText1.Text = ""Text2.Text = ""Text3.Text = ""text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = "" 如果輸入的學(xué)號(hào)數(shù)據(jù)庫(kù)無(wú)此記錄，則重新輸入。Else Text2.Text = Data1.Record

42、set.Fields(0) Text3.Text = Data1.Recordset.Fields(1) text4.Text = Data1.Recordset.Fields(2) Text5.Text = Data1.Recordset.Fields(3) Text6.Text = Data1.Recordset.Fields(4) Text7.Text = Data1.Recordset.Fields(5) Text8.Text = Data1.Recordset.Fields(6)End If 由此記錄的話，直接顯示在文本框中。End IfEnd SubPrivate Sub Comm

43、and2_Click()Me.Hidemain.ShowEnd Sub 進(jìn)入主界面Private Sub Command3_Click()If Text1.Text = "" ThenMsgBox "請(qǐng)輸入內(nèi)容！"Else mybookmark = Data1.Recordset.BookmarkStr2$ = MsgBox("是否刪除當(dāng)前記錄？", vbOKCancel, "刪除當(dāng)前記錄")If Str2$ = vbOK Then 確定刪除 Data1.Recordset.Delete 刪除數(shù)據(jù)庫(kù)中的相應(yīng)記錄Da

44、ta1.RefreshText1.Text = ""Text2.Text = ""Text3.Text = ""text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""End IfEnd If 請(qǐng)空各文本框End Sub學(xué)生信息查詢界面：代碼如下：Private Sub Command1_Cli

45、ck()If Combo1.Text = "按學(xué)號(hào)" ThenData1.RecordSource = "select * from 基本信息表 where 學(xué)號(hào)='" & Text1.Text & "'"Data1.RefreshElseData1.RecordSource = "select * from 基本信息表 where 姓名='" & Text1.Text & "'"Data1.RefreshEnd If 選擇查詢的條

46、件，并相應(yīng)的調(diào)入記錄。If Text1.Text = "" ThenData1.RecordSource = "select * from 基本信息表 "Data1.RefreshEnd IfEnd Sub 為空時(shí)，調(diào)入全部記錄。Private Sub Command2_Click()Me.Hidemain.Show 進(jìn)入主界面學(xué)生成績(jī)錄入界面：代碼如下：Private Sub Command1_Click()If Text2.Text = "" Or Text3.Text = "" Or text4.Text =

47、 "" Or Text5.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" ThenMsgBox "內(nèi)容不能為空，請(qǐng)重新輸入！"Else 判斷輸入的內(nèi)容是否有空的Data1.Recordset.EditData1.Recordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Field

48、s(2) = text4.TextData1.Recordset.Fields(3) = Val(Text5.Text)Data1.Recordset.Fields(4) = Val(Text7.Text)Data1.Recordset.Fields(5) = Val(Text8.Text)Data1.Recordset.Fields(6) = Val(Text9.Text)Text1.Text = Str(Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) / 3)Data1.Recordset.Fields(7) = Text1.Text

49、Data1.Recordset.UpdateMsgBox "添加成功！" 沒(méi)有空的時(shí)候，對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改，并保存End If'Text2.Text = "": Text3.Text = "": text4.Text = "": Text5.Text = "": Text7.Text = "": Text8.Text = "": Text9.Text = ""End Sub 清空文本框Private Sub Command2_Cl

50、ick()Me.Hidemain.ShowEnd Sub 進(jìn)入主界面Private Sub Command3_Click()Data1.Recordset.MoveFirstEnd Sub 將指針指向第一條記錄Private Sub Command4_Click()Data1.Recordset.MovePreviousIf Data1.Recordset.BOF ThenData1.Recordset.MoveFirst 將指針指向上一條，如果到達(dá)第一條，就指在第一條End IfEnd SubPrivate Sub Command5_Click()Data1.Recordset.MoveNe

51、xtIf Data1.Recordset.EOF ThenData1.Recordset.MoveLastEnd If 將指針指向下一條，如果到達(dá)最后一條，就指在最后一條End SubPrivate Sub Command6_Click()Data1.Recordset.MoveLastEnd Sub 將指針指向最后一條成績(jī)修改界面：代碼如下：Private Sub Command1_Click()If Text1.Text = "" ThenMsgBox "請(qǐng)輸入內(nèi)容！"Else 輸入內(nèi)容不能為空Data1.Recordset.EditData1.Re

52、cordset.Fields(0) = Text2.TextData1.Recordset.Fields(1) = Text3.TextData1.Recordset.Fields(2) = text4.TextData1.Recordset.Fields(3) = Text5.TextData1.Recordset.Fields(4) = Text6.TextData1.Recordset.Fields(5) = Text7.TextData1.Recordset.Fields(6) = Text8.TextText9.Text = Str(Val(Text6.Text) + Val(Tex

53、t8.Text) + Val(Text7.Text) / 3)Data1.Recordset.Fields(7) = Text9.TextData1.Recordset.UpdateMsgBox "修改成功" 對(duì)數(shù)據(jù)庫(kù)進(jìn)行修改，并將修改后的數(shù)據(jù)存入數(shù)據(jù)庫(kù)End IfEnd SubPrivate Sub Command10_Click()If Trim(Text1.Text) = "" ThenMsgBox "學(xué)號(hào)不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.Se

54、tFocusElse 輸入學(xué)號(hào)不能為空Data1.RecordSource = "select * from 成績(jī)表 where 學(xué)號(hào)='" & Text1.Text & " '" Data1.RefreshIf Data1.Recordset.EOF ThenMsgBox "學(xué)號(hào)不存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"Text1.SetFocusText1.Text = "" 判斷輸入的學(xué)號(hào)是否存在，若不存在，彈出警

55、告，并請(qǐng)空格文本框。Text2.Text = ""Text3.Text = ""text4.Text = ""Text5.Text = ""Text6.Text = ""Text7.Text = ""Text8.Text = ""Text9.Text = ""Else Text2.Text = Data1.Recordset.Fields(0) Text3.Text = Data1.Recordset.Fields(1) text4.Text = Data1.Recordset.Fields(2) Text5.Text = Data1.Recordset.Fields(3) Text