vb課程設(shè)計(jì)設(shè)計(jì)報(bào)告---小型學(xué)生成績管理系統(tǒng)

上傳人：奔*** IP屬地：河北更新時(shí)間：2024-03-01 格式：doc 頁數(shù)：30 大小：1.20MB 人氣指數(shù)：12 舉報(bào) 版權(quán)申訴

已閱讀1頁，還剩29頁未讀，繼續(xù)免費(fèi)閱讀

版權(quán)說明：本文檔由用戶提供并上傳，收益歸屬內(nèi)容提供方，若內(nèi)容存在侵權(quán)，請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡介

1、　　Vb語言課程設(shè)計(jì)　　小型學(xué)生成績管理系統(tǒng) 　　單位分院(系)　　專業(yè) 　　學(xué) 號(hào)

2、;　　學(xué)生姓名 　　指導(dǎo)教師 　　完成日期年月日　　摘要　　成績管理是學(xué)校管理中相當(dāng)繁重的工作，牽涉到學(xué)生成績管理、教師管理和課程管理等。由于成績記錄的數(shù)量眾

3、多、管理復(fù)雜容易造成混亂，成績管理系統(tǒng)可以實(shí)現(xiàn)對(duì)整個(gè)成績信息進(jìn)行準(zhǔn)確而高效的記載。　　本系統(tǒng)的主要功能及任務(wù)是：　　·方便學(xué)生對(duì)自己的成績信息進(jìn)行瀏覽；　　·方便教師對(duì)學(xué)生的成績信息進(jìn)行瀏覽、查找并進(jìn)行管理；　　·提供一個(gè)電子化的成績管理平臺(tái)

4、。　　為滿足為學(xué)校服務(wù)這一基本功能，數(shù)字校園應(yīng)定位于信息服務(wù)，對(duì)學(xué)生的成績的高效而準(zhǔn)確的管理系統(tǒng)設(shè)計(jì)的出發(fā)點(diǎn)和最終目的，既要能夠滿足學(xué)生和老師的一般需求，又要能夠針對(duì)用戶的類型、需求特征等確定它的的權(quán)限以便進(jìn)行管理。　　學(xué)生成績管理系統(tǒng)以學(xué)校實(shí)際成績管理情況為依據(jù)，提供了成績?yōu)g覽、查找和更新，統(tǒng)計(jì)查詢等實(shí)用而豐富的功能。本系統(tǒng)使用Visual Basic

5、 6.0中文版作為開發(fā)工具，后臺(tái)數(shù)據(jù)庫采用 Microsoft Access 的MDB數(shù)據(jù)庫。　　關(guān)鍵詞：小型學(xué)生成績管理系統(tǒng)，SQL， VB，數(shù)據(jù)庫，控件，控件與數(shù)據(jù)庫的綁定　　目錄　　一．選題的意義………………………………………………………………4

6、　　1 選擇該題目的原因………………………………………………………4 　　2 完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)…………………………………4　　二．系統(tǒng)功能簡介……………………………………………………………5　　1 系統(tǒng)概述…………………………………………………………………5<p

7、>　　2 系統(tǒng)的組成及各模塊的功能……………………………………………5　　3 系統(tǒng)的運(yùn)行環(huán)境…………………………………………………………5　　三．系統(tǒng)設(shè)計(jì)…………………………………………………………………6　　1 總體結(jié)構(gòu)設(shè)計(jì)…………………………………………………………6<

8、;p>　　2 數(shù)據(jù)庫設(shè)計(jì)……………………………………………………………6　　四．系統(tǒng)實(shí)現(xiàn)…………………………………………………………………7　　1 登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)…………………………………………………8　　2 學(xué)生登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)……………………………………………9&

9、lt;p>　　3 教師登錄模塊的設(shè)計(jì)和實(shí)現(xiàn)……………………………………………10　　4 學(xué)生成績查詢模塊設(shè)計(jì)和實(shí)現(xiàn)…………………………………………11　　5 學(xué)生密碼修改模塊設(shè)計(jì)和實(shí)現(xiàn)…………………………………………12　　6 主窗體模塊的設(shè)計(jì)與實(shí)現(xiàn)………………………………………………13</

10、p>　　7 添加用戶模塊的設(shè)計(jì)與實(shí)現(xiàn)……………………………………………15　　8 修改密碼模塊的設(shè)計(jì)與實(shí)現(xiàn)……………………………………………16　　9 學(xué)生信息添加模塊的設(shè)計(jì)與實(shí)現(xiàn)………………………………………18　　10 學(xué)生信息修改模塊的設(shè)計(jì)與實(shí)現(xiàn)…………………………………

11、…19　　11 學(xué)生信息查詢模塊的設(shè)計(jì)與實(shí)現(xiàn)……………………………………21　　12 學(xué)生成績錄入模塊的設(shè)計(jì)與實(shí)現(xiàn)…………………………………22　　13 學(xué)生成績修改模塊的設(shè)計(jì)與實(shí)現(xiàn)…………………………………24　　14 學(xué)生成績查詢模塊的設(shè)計(jì)與實(shí)現(xiàn)……………………

12、…………26　　15 項(xiàng)目統(tǒng)計(jì)模塊的設(shè)計(jì)與實(shí)現(xiàn)……………………………………28　　五.總結(jié)…………………………………………………………28　　1 遇到及解決的問題………………………………………………28　　2 心得體會(huì)……………………………………………………………2

13、9　　3 后記…………………………………………………………………29　　參考文獻(xiàn)…………………………………………………………29　　一選題的意義　　1.選該題的原因&l

14、t;p>　　從大的方面來講，現(xiàn)在我國的部分高中及其以下級(jí)別的大部分中學(xué)，學(xué)生成績的管理水平還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機(jī)制已經(jīng)不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了許多人力和物力，在信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理所取代。我選擇這個(gè)題目，希望可以在信息管理方面有所提高。改革的總設(shè)計(jì)師鄧小平同志說過“科學(xué)技術(shù)是第一生產(chǎn)力”，我希望能用我一年的所學(xué)編制出一個(gè)實(shí)用的程序來幫助學(xué)校進(jìn)行更有效的信息管理。

15、;　　從小的方面來說，我感覺這個(gè)題目和我的學(xué)校生活密切相關(guān)，我也比較熟悉該系統(tǒng)，更容易學(xué)到對(duì)于我vb語言學(xué)習(xí)有用的知識(shí)。　　2．完成此題目用到的數(shù)據(jù)結(jié)構(gòu)和知識(shí)點(diǎn)。　　2.1數(shù)據(jù)結(jié)構(gòu)：　　通過可視化數(shù)據(jù)管理器可以進(jìn)行數(shù)據(jù)庫操作。建立數(shù)據(jù)庫：啟動(dòng)可視化數(shù)據(jù)管

16、理器，創(chuàng)建數(shù)據(jù)庫，創(chuàng)建數(shù)據(jù)庫表，然后編輯數(shù)據(jù)庫。　　2.2知識(shí)點(diǎn)：　　Access技術(shù)：可以開發(fā)關(guān)系數(shù)據(jù)庫，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲(chǔ)和檢索。數(shù)據(jù)庫(Database)是由一些有意義和有關(guān)系的數(shù)據(jù)(data)所組合而成。一個(gè)數(shù)據(jù)庫中，包含了許多條記錄(Record),而每條記錄是由多個(gè)字段(Field)所組成

17、,不同的字段存放這不同的數(shù)據(jù)。所以數(shù)據(jù)庫的嚴(yán)格定義是一組相關(guān)記錄的集合，而字段則是最基本的數(shù)據(jù)項(xiàng)，也是數(shù)據(jù)庫中最小的單位。在計(jì)算機(jī)中用來幫我們管理數(shù)據(jù)庫的系統(tǒng)，我們稱之為數(shù)據(jù)庫管理管理系統(tǒng)（Database Management System DBMS）。數(shù)據(jù)庫管理系統(tǒng)是架構(gòu)在一個(gè)或多個(gè)數(shù)據(jù)庫之上，并針對(duì)數(shù)據(jù)庫中的數(shù)據(jù)進(jìn)行管理運(yùn)用。Access 的優(yōu)點(diǎn)在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息，數(shù)據(jù)表示圖提供了一種類似于 Excel

18、的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許創(chuàng)建自定義報(bào)表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲(chǔ)庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點(diǎn)，可以在一個(gè)數(shù)據(jù)包中同時(shí)擁有桌面數(shù)據(jù)庫的便　　結(jié)構(gòu)化查詢語言SQL: 結(jié)構(gòu)化查詢語言(Structrued Query Laug

19、uage,SQL)是訪問數(shù)據(jù)庫的標(biāo)準(zhǔn)語言，使用SQL語言可以從數(shù)據(jù)庫中獲取數(shù)據(jù)，建立數(shù)據(jù)庫和數(shù)據(jù)庫對(duì)象，增加，修改數(shù)據(jù)和實(shí)現(xiàn)復(fù)雜的查詢功能。它是本系統(tǒng)實(shí)現(xiàn)的基礎(chǔ)。　　使用data控件訪問數(shù)據(jù)庫：主要使用的是data控件和數(shù)據(jù)綁定控件編寫數(shù)據(jù)庫應(yīng)用程序的方法。　　二．系統(tǒng)功能簡介

20、;　　1.系統(tǒng)概述　　隨著學(xué)校的規(guī)模不斷擴(kuò)大，學(xué)生數(shù)量急劇增加，有關(guān)學(xué)生的各種信息量也成倍增長。面對(duì)龐大的信息量，需要有學(xué)生管理系統(tǒng)來提高學(xué)生管理工作的效率。通過這樣的系統(tǒng)，可以做到信息的規(guī)范管理、科學(xué)統(tǒng)計(jì)和快速的查詢，從而減少管理方面的工作量。　　2.系統(tǒng)的組成以及各模塊的功能<p&g

21、t;　　系統(tǒng)開發(fā)的總?cè)蝿?wù)是實(shí)現(xiàn)學(xué)生信息關(guān)系的系統(tǒng)化、規(guī)范化和自動(dòng)化。　　系統(tǒng)主要由五部分組成：系統(tǒng)用戶的管理、學(xué)生成績的管理、學(xué)生學(xué)籍信息的管理、信息的查詢，其中還包括登錄界面以及成績的統(tǒng)計(jì)模塊。　　各模塊的主要功能如下：　　●系統(tǒng)用戶的管理：實(shí)現(xiàn)用戶的添加、刪除和密碼的修改<p&g

22、t;　　●學(xué)生學(xué)籍信息的管理：實(shí)現(xiàn)學(xué)生學(xué)籍信息的添加、刪除和修改。　　●學(xué)生成績的管理：實(shí)現(xiàn)學(xué)生成績的錄入，刪除和修改。　　●學(xué)生信息的查詢：實(shí)現(xiàn)學(xué)生學(xué)籍的查詢、成績的查詢。　　學(xué)生成績信息的統(tǒng)計(jì)：實(shí)現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計(jì)。　　3.系統(tǒng)的運(yùn)

23、行環(huán)境　　系統(tǒng)使用環(huán)境　　操作系統(tǒng)：windows xp/2000/me/98　　系統(tǒng)支持： visual basic 6.0及以上版本　　數(shù)據(jù)庫： access<

24、b>　　系統(tǒng)開發(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ì)</

25、p>　　對(duì)上述各項(xiàng)功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化層序設(shè)計(jì)的要求，得到如下所示的系統(tǒng)功能功能模塊圖。　　2.數(shù)據(jù)庫設(shè)計(jì)　　數(shù)據(jù)庫在本成績管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)的好壞將直接對(duì)應(yīng)用系統(tǒng)的效率以及實(shí)現(xiàn)的效率產(chǎn)生影響。合理的數(shù)據(jù)庫及結(jié)構(gòu)設(shè)計(jì)可以提高數(shù)據(jù)存儲(chǔ)的效率，保證數(shù)據(jù)的完整和一

26、致。同時(shí)合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實(shí)現(xiàn)。設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫應(yīng)該充分滿足用戶的需求。　　針對(duì)一般學(xué)生管理系統(tǒng)的需求，通過對(duì)學(xué)生學(xué)習(xí)過程的內(nèi)容的分析，設(shè)計(jì)如下面所示的數(shù)據(jù)項(xiàng)和數(shù)據(jù)結(jié)構(gòu)　　基本信息表：包括的字段有：學(xué)號(hào)，姓名，性別，年齡，聯(lián)系電話，家庭住址。　　成績表：包括的字段有：學(xué)號(hào)，姓名，性別，年齡

27、，高數(shù)成績，英語成績，計(jì)算機(jī)成績，平均成績。　　密碼表：包括的字段有：用戶名，密碼。　　教師密碼表：包括的字段有：用戶名，密碼。　?、频玫缴厦娴臄?shù)據(jù)項(xiàng)就可以設(shè)計(jì)出能夠滿足用戶需求的各種實(shí)體以及他們之間的關(guān)系。由上面的設(shè)計(jì)規(guī)劃出的實(shí)體有：用戶實(shí)體、信息實(shí)體、成績實(shí)體。

28、　按照以上實(shí)體進(jìn)行設(shè)計(jì)：（1）打開可視化數(shù)據(jù)管理器程序（2）建立數(shù)據(jù)庫（3）創(chuàng)建數(shù)據(jù)庫表（4）添加字段（5）生成表⑹ 添加內(nèi)容　　基本信息表　　等。　　四系統(tǒng)實(shí)現(xiàn)<

29、p>　　現(xiàn)在已經(jīng)完成了程序各個(gè)功能模塊的創(chuàng)建，現(xiàn)在可以進(jìn)行系統(tǒng)的實(shí)現(xiàn)了　　1 登錄界面實(shí)現(xiàn)　　第一個(gè)登陸界面選擇用戶類型，分為教師和學(xué)生。具體圖形及相關(guān)代碼如下所示：　　核心代碼：　　Pri

30、vate Sub Command1_Click()　　dl.Hide　　xsdl.Show 進(jìn)入學(xué)生登陸界面　　End Sub　　Private Sub Comma

31、nd2_Click()　　dl.Hide　　jsdl.Show 進(jìn)入教師登陸界面　　End Sub　　Private Sub Form_Load

32、()　　Label1.Width = dl.ScaleWidth　　Label1.Left = dl.ScaleWidth 設(shè)定標(biāo)簽（歡迎使用成績管理系統(tǒng)）的起始值　　End Sub　　Private Sub Ti

33、mer1_Timer()　　If Label1.Left + Label1.Width >= 0 Then　　Label1.Left = Label1.Left - 50　　Else　　Label1.Left = dl.Scal

34、eWidth 使上述標(biāo)簽以一定的時(shí)間運(yùn)動(dòng)　　End If　　End Sub　　學(xué)生登陸界面　　核心代碼如下：

35、;　　Private Sub Command1_Click()　　UserName = ""　　If Trim(Text1.Text) = "" Then　　MsgBox "用戶名不能為空，請(qǐng)重新輸入！", vb

36、OKOnly + vbExclamation, "警告" ‘ 判斷輸入是否為空，若是，則彈出窗體警告！　　Text1.SetFocus　　Else　　Data1.RecordSource = "select * from 密

37、碼表 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'" 連接數(shù)據(jù)庫，查找滿足條件的記錄。　　Data1.Refresh 刷新數(shù)據(jù)庫

38、;　　If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then　　MsgBox "用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text1.SetFocus&l

39、t;p>　　Text2.SetFocus 判斷所查找的記錄是否存在，即輸入的用戶名和密碼是否匹配 　　Else　　UserName = Text1.Text　　Text2.Text = ""<p&

40、gt;　　Me.Hide　　Form4.Show 若是匹配，則當(dāng)前窗體隱藏，進(jìn)入學(xué)生成績查詢界面。　　End If　　End If

41、　　End Sub　　Private Sub Command2_Click()　　Text1.Text = ""　　Text2.Text = ""　　End Sub

42、 “取消”按鈕，使兩個(gè)文本框內(nèi)容為空。　　Private Sub Timer1_Timer()　　If Label1.Left + Label1.Width >= 0 Then　　Label1.Left = Label1.Left - 50<p&

43、gt;　　Else　　Label1.Left = dl.ScaleWidth 使標(biāo)簽按一定的時(shí)間運(yùn)動(dòng)，達(dá)到電子滾動(dòng)的效果。　　End If　　End Sub

44、;　　教師登陸界面：　　核心代碼如下所示；　　該界面代碼與上個(gè)界面基本一致。　　Private Sub Command1_Click()　　UserName = "

45、"　　If Trim(Text1.Text) = "" Then　　MsgBox "用戶名不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text1.SetFocus<p

46、>　　Else　　Data1.RecordSource = "select * from 教師密碼表 where 用戶名='" & Text1.Text & "' and 密碼='" & Text2.Text & "'"<

47、/p>　　Data1.Refresh　　If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then　　MsgBox "用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"

48、;　　Text1.SetFocus　　Text2.SetFocus　　Else　　UserName = Text1.Text　　Me.Hide</p

49、>　　main.Show　　End If　　End If　　End Sub　　Private

50、 Sub Command2_Click()　　Text2.Text = ""　　Text3.Text = ""　　End Sub　　Private Sub Timer1_Timer()</

51、p>　　If Label3.Left + Label3.Width >= 0 Then　　Label3.Left = Label3.Left - 50　　Else　　Label3.Left = jsdl.ScaleWidth

52、;　　End If　　End Sub　　Private Sub Form_Load()　　Label3.Width = jsdl.ScaleWidth　　Label3.Lef

53、t = jsdl.ScaleWidth　　End Sub　　學(xué)生成績查詢界面：　　使用一個(gè)data控件，一個(gè)MSFlexgrid控件，兩個(gè)命令按鈕。　　代碼如下：</b&g

54、t;　　Private Sub Command1_Click()　　End　　End Sub 單擊“退出系統(tǒng)”按鈕，結(jié)束程序。　　Private Sub Command2_Click()

55、　　Me.Hide　　xiugaimima.Show 單擊修改 “密碼按鈕”，進(jìn)入學(xué)生修改密碼界面。　　End Sub　　Private Sub Form_Load()&l

56、t;p>　　Data1.RecordSource = "select * from 成績表 where 學(xué)號(hào)='" & xsdl.Text1.Text & "'"　　Data1.Refresh　　End Sub 當(dāng)界面載入的時(shí)候，就連接數(shù)據(jù)庫，并查找出滿

57、足學(xué)號(hào)等于學(xué)生登陸窗體中的用戶名的記錄。　　學(xué)生密碼修改界面：　　代碼如下：　　Private Sub Command1_Click()　　If Trim(Text1.Text) <>

58、 Trim(Text2.Text) Then　　MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"　　Text1.SetFocus　　Text1.Text = "" 判斷兩次輸入地密碼是否一致，若

59、不一致，則彈出警告，重新輸入！　　Else　　Data1.RecordSource = "select * from 密碼表 where 用戶名='" & xsdl.Text1.Text & " '"

60、　Data1.Refresh　　Data1.Recordset.Edit　　Data1.Recordset.Fields("密碼") = Text1.Text　　Data1.Recordset.Update　　MsgBox "密碼修改成功！&

61、quot;, vbOKOnly + vbExclamation, "修改密碼"　　End If 若是一致，則連接數(shù)據(jù)庫，將所輸入的新密碼修改并加入數(shù)據(jù)庫。　　End Sub　　Private Sub Command2_Click()<

62、/p>　　Text1.Text = ""　　Text2.Text = ""　　End Sub 單擊“取消”按鈕，將文本框清空。　　Private Sub Command3_Click()

63、　　Me.Hide　　Form4.Show 單擊“返回”按鈕，當(dāng)前窗體隱藏，學(xué)生成績查詢界面出現(xiàn)。　　End Sub　　主窗體界面：&l

64、t;p>　　代碼如下：　　Private Sub tcxt_Click()　　End 單擊“退出系統(tǒng)”按鈕，結(jié)束程序。　　End Sub　　Private Sub

65、 tjyh_Click()　　Me.Hide　　tianjiayonghu.Show 單擊“添加用戶”按鈕，當(dāng)前窗體隱藏，“添加用戶窗體”出現(xiàn)。 　　End Sub　　Private

66、 Sub xgmm_Click()　　Me.Hide　　jiaoshimimaxiugai.Show 單擊“修改密碼”按鈕，當(dāng)前窗體隱藏，“教師修改密碼”窗體出現(xiàn)。　　End Sub　　Priva

67、te Sub xmtj_Click()　　Me.Hide　　xiangmu#Show 單擊“項(xiàng)目統(tǒng)計(jì)”按鈕，進(jìn)入“項(xiàng)目統(tǒng)計(jì)”界面　　End Sub　　Private Sub

68、xxcx_Click()　　Me.Hide　　xinxichaxun.Show單擊“信息查詢”按鈕，進(jìn)入“學(xué)生信息查詢”界面。　　End Sub　　Private Sub xxtj_Click(

69、)　　Me.Hide　　xueshengxinxitianjia.Show 單擊“信息添加”按鈕，進(jìn)入“學(xué)生信息添加”界面。　　End Sub　　Private Sub xxxg_Click(

70、)　　Me.Hide　　xinxixiugai.Show 單擊“信息修改”按鈕，進(jìn)入“學(xué)生信息修改”界面。　　End Sub　　Private Sub cjcx_Click()&l

71、t;/p>　　main.Hide　　chengjichaxun.Show 　　End Sub 單擊“成績查詢”按鈕，進(jìn)入“成績查詢”界面。　　Private Sub cjlr_Click()</p&g

72、t;　　Me.Hide　　chengjiluru.Show　　End Subv 單擊“成績錄入”按鈕，進(jìn)入“成績錄入”界面。　　Private Sub cjxg_Click() <

73、p>　　Me.Hide　　chengjixiugai.Show 單擊“成績修改”按鈕，進(jìn)入成績修改界面。　　End Sub　　添加用戶界面：<p

74、>　　代碼如下：　　Private Sub Command1_Click()　　If Trim(Text1.Text) = "" Then　　MsgBox "請(qǐng)輸入用戶名！", vbOKOnly + vbExclamation,

75、"信息提示"　　Text1.SetFocus 判斷用戶名是否為空，若為空，則彈出警告，輸入用戶名！　　Exit Sub　　Else　　Data1.Recor

76、dSource = "select * from 教師密碼表 where 用戶名='" & Text1.Text & "'"　　Data1.Refresh　　If Not Data1.Recordset.EOF Then　　MsgBox &q

77、uot;用戶已存在，請(qǐng)重新輸入用戶名！", vbOKOnly + vbExclamation, "提示信息"　　Text1.SetFocus　　Text1.Text = "": Text2.Text = "": Text3.Text = ""

78、　　Exit Sub　　End If　　End If 若不為空，連接數(shù)據(jù)庫，判斷該用戶名是否已經(jīng)存在，若已經(jīng)存在，彈出警告，重新輸入！ 　　If Trim(Text2.Text) <>

79、; Trim(Text3.Text) Then　　MsgBox "兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！", vbOKOnly + vbExclamation, "警告"　　Text2.SetFocus　　Text2.Text = ""&

80、lt;p>　　Text3.Text = "" 若兩次輸入地密碼不一致，則彈出警告，確認(rèn)并重新輸入密碼。　　Exit Sub　　Else　　With Data1<

81、p>　　.Recordset.AddNew　　.Recordset.Fields(0) = Trim(Text1.Text)　　.Recordset.Fields(1) = Trim(Text2.Text)　　.Recordset.Update

82、End With　　MsgBox "添加用戶成功！", vbOKOnly + vbExclamation, "添加用戶"　　End If　　End Sub 若上述情況均沒有，則連接數(shù)據(jù)庫，將輸入的用戶信

83、息添加到“教師密碼表”中去。　　Private Sub Command2_Click()　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = "" 單擊

84、“取消”按鈕，將文本框清空。　　End Sub　　Private Sub Command3_Click()　　Me.Hide　　main.Show 單擊“返回”按鈕，

85、返回到主界面。　　End Sub　　修改密碼界面：　　代碼如下：　　Private Sub Command1_Click()<p

86、>　　If Trim(Text1.Text) <> Trim(Text2.Text) Then　　MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"　　Text1.SetFocus　　Text1.Text

87、 = "" 判斷兩次輸入的密碼是否一致，若不一致，彈出警告，并重新輸入。　　Else　　Data1.RecordSource = "select * from 密碼表 where 用戶名='" & xsdl.Text1.Text & "

88、 '"　　Data1.Refresh　　Data1.Recordset.Edit　　Data1.Recordset.Fields("密碼") = Text1.Text　　Data1.Recordset.Update

89、若一致，連接數(shù)據(jù)庫，進(jìn)行修改，將所輸入密碼保存到數(shù)據(jù)庫中去。　　MsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"　　End If　　End Sub 彈出“修改成功

90、”的窗體。　　Private Sub Command2_Click()　　Text1.Text = ""　　Text2.Text = ""　　End Sub 清空文本框。<

91、p>　　Private Sub Command3_Click()　　Me.Hide　　Form4.Show　　End Sub 返回主界面。　　添加學(xué)生信息界面：<

92、/p>　　代碼如下：　　Private Sub Command1_Click()　　If Text2.Text = "" Or Text3.Text = "" Then　　MsgBox "學(xué)號(hào)和姓名

93、不能為空！", vbOKOnly + vbExclamation, "警告"　　Exit Sub 判斷“學(xué)號(hào)”和“姓名”是否為空，若是，則彈出警告，重新輸入!　　Else　　Data1.RecordSource = &qu

94、ot;select * from 基本信息表 where 學(xué)號(hào)='" & Trim(Text2.Text) & " ' "　　Data1.Refresh　　If Data1.Recordset.BOF = False And Data1.Recordset.EOF = False Then&l

95、t;/p>　　MsgBox "輸入的學(xué)號(hào)已經(jīng)存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text2.Text = ""　　Text3.Text = ""　　Tex

96、t2.SetFocus 若不為空，連接數(shù)據(jù)庫，判斷輸入的學(xué)號(hào)是否已經(jīng)存在，若存在，彈出警告，重新輸入！　　Else　　Data1.Recordset.AddNew　　Data1.Recordset.Fields(0) = Text2.Text</p&g

97、t;　　Data1.Recordset.Fields(1) = Text3.Text　　Data1.Recordset.Fields(2) = text4.Text　　Data1.Recordset.Fields(3) = Text5.Text　　Data1.Recordset.Fields

98、(4) = Text6.Text　　Data1.Recordset.Fields(5) = Text7.Text　　Data1.Recordset.Fields(6) = Text8.Text　　Data1.Recordset.Update　　MsgBox "添

99、加成功！" 若不為空，且輸入的學(xué)號(hào)不存在，則連接數(shù)據(jù)庫，將所輸入的信息添加到“基本信息表”中。　　Data2.RecordSource = "select * from 成績表 where 學(xué)號(hào)='" & Trim(Text2.Text) & " ' "　　Da

100、ta2.Refresh　　Data3.RecordSource = "select * from 密碼表 where 用戶名='" & Trim(Text2.Text) & " ' "　　Data3.Refresh　　Data2.Record

101、set.AddNew　　Data2.Recordset.Fields(0) = Text2.Text　　Data2.Recordset.Fields(1) = Text3.Text　　Data2.Recordset.Update　　Data3.Recordset.AddN

102、ew　　Data3.Recordset.Fields(0) = Text2.Text　　Data3.Recordset.Fields(1) = Text2.Text　　Data3.Recordset.Update　　End If 同時(shí)

103、，也將輸入的學(xué)號(hào)添加到“成績表”與“密碼表”中，以及“成績表”中加入學(xué)號(hào)與姓名，“密碼表”中用戶名與為學(xué)號(hào)。 　　End If　　End Sub　　Private Sub Command2_Click()<p

104、>　　Me.Hide　　main.Show　　End Sub 　　修改學(xué)生信息界面：　　代碼如下：</

105、p>　　Private Sub Command1_Click()　　If Text1.Text = "" Then　　MsgBox "請(qǐng)輸入內(nèi)容！"　　Else 判斷輸入內(nèi)容是否為空</p&g

106、t;　　Data1.Recordset.Edit　　Data1.Recordset.Fields(0) = Text2.Text　　Data1.Recordset.Fields(1) = Text3.Text　　Data1.Recordset.Fields(2) = text4.Text&l

107、t;/p>　　Data1.Recordset.Fields(3) = Text5.Text　　Data1.Recordset.Fields(4) = Text6.Text　　Data1.Recordset.Fields(5) = Text7.Text　　Data1.Recordset.

108、Fields(6) = Text8.Text　　Text9.Text = Str((Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text)) / 3)　　Data1.Recordset.Fields(7) = Text9.Text　　Data1.Recordset.

109、Update　　MsgBox "修改成功" 不為空時(shí)，對(duì)數(shù)據(jù)庫進(jìn)行修改，并保存入數(shù)據(jù)庫。　　End If　　End Sub　　Private

110、Sub Command10_Click()　　If Trim(Text1.Text) = "" Then　　MsgBox "學(xué)號(hào)不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text1.SetFocus<

111、;/p>　　Else 判斷輸入學(xué)號(hào)是否為空　　Data1.RecordSource = "select * from 成績表 where 學(xué)號(hào)='" & Text1.Text & " '"　　Data1.

112、Refresh　　If Data1.Recordset.EOF Then　　MsgBox "學(xué)號(hào)不存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"　　Text1.SetFocus　　Text1.T

113、ext = ""　　Text2.Text = ""　　Text3.Text = ""　　text4.Text = ""　　Text5.Text = ""

114、　　Text6.Text = ""　　Text7.Text = ""　　Text8.Text = ""　　Text9.Text = "" 如果輸入的學(xué)號(hào)數(shù)據(jù)庫無此記錄，則

115、重新輸入。　　Else　　Text2.Text = Data1.Recordset.Fields(0)　　Text3.Text = Data1.Recordset.Fields(1)　　text4.Text = Data1.Recor

116、dset.Fields(2)　　Text5.Text = Data1.Recordset.Fields(3)　　Text6.Text = Data1.Recordset.Fields(4)　　Text7.Text = Data1.Recordset.Fields(5)

117、Text8.Text = Data1.Recordset.Fields(6)　　End If 由此記錄的話，直接顯示在文本框中。　　End If　　End Sub</p&g

118、t;　　Private Sub Command2_Click()　　Me.Hide　　main.Show　　End Sub 進(jìn)入主界面&l

119、t;p>　　Private Sub Command3_Click()　　If Text1.Text = "" Then　　MsgBox "請(qǐng)輸入內(nèi)容！"　　Else 　　mybookmark = Data1.Re

120、cordset.Bookmark　　Str2$ = MsgBox("是否刪除當(dāng)前記錄？", vbOKCancel, "刪除當(dāng)前記錄")　　If Str2$ = vbOK Then 確定刪除 　　Data1.Rec

121、ordset.Delete 刪除數(shù)據(jù)庫中的相應(yīng)記錄　　Data1.Refresh　　Text1.Text = ""　　Text2.Text = ""　　Text3.Text = "&q

122、uot;　　text4.Text = ""　　Text5.Text = ""　　Text6.Text = ""　　Text7.Text = ""　　T

123、ext8.Text = ""　　Text9.Text = ""　　End If　　End If 請(qǐng)空各文本框　　End Sub</

124、b>　　學(xué)生信息查詢界面：　　代碼如下：　　Private Sub Command1_Click()　　If Combo1.Text = "按學(xué)號(hào)" Then</p

125、>　　Data1.RecordSource = "select * from 基本信息表 where 學(xué)號(hào)='" & Text1.Text & "'"　　Data1.Refresh　　Else&

126、lt;p>　　Data1.RecordSource = "select * from 基本信息表 where 姓名='" & Text1.Text & "'"　　Data1.Refresh　　End If 選擇查詢的條件，并相應(yīng)的調(diào)入記錄。

127、　　If Text1.Text = "" Then　　Data1.RecordSource = "select * from 基本信息表 "　　Data1.Refresh　　End If<

128、/p>　　End Sub 為空時(shí)，調(diào)入全部記錄。　　Private Sub Command2_Click()　　Me.Hide　　main.Show 進(jìn)入主界

129、面　　學(xué)生成績錄入界面：　　代碼如下：　　Private Sub Command1_Click()　　If Text2.Text = "" Or Text3.Text = &q

130、uot;" Or text4.Text = "" Or Text5.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then　　MsgBox "內(nèi)容不能為空，請(qǐng)重新輸入！"</

131、p>　　Else 判斷輸入的內(nèi)容是否有空的　　Data1.Recordset.Edit　　Data1.Recordset.Fields(0) = Text2.Text　　Data1.Recordset.Fields(1) = T

132、ext3.Text　　Data1.Recordset.Fields(2) = text4.Text　　Data1.Recordset.Fields(3) = Val(Text5.Text)　　Data1.Recordset.Fields(4) = Val(Text7.Text)<p&

133、gt;　　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)</p&g

眾賞文庫> 全部分類> 畢業(yè)設(shè)計(jì)

溫馨提示

1. 本站所有資源如無特殊說明，都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
2. 本站的文檔不包含任何第三方提供的附件圖紙等，如果需要附件，請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
3. 本站RAR壓縮包中若帶圖紙，網(wǎng)頁內(nèi)容里面會(huì)有圖紙預(yù)覽，若沒有圖紙預(yù)覽就沒有圖紙。
4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
5. 眾賞文庫僅提供信息存儲(chǔ)空間，僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理，對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯，并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容，請(qǐng)與我們聯(lián)系，我們立即糾正。
7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

vb課程設(shè)計(jì)設(shè)計(jì)報(bào)告---小型學(xué)生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評(píng)論

vb課程設(shè)計(jì)設(shè)計(jì)報(bào)告---小型學(xué)生成績管理系統(tǒng)

文檔簡介

溫馨提示

最新文檔

評(píng)論

免費(fèi)下載