vb課程設(shè)計(jì)--學(xué)生成績(jī)管理系統(tǒng)

1、<p><b>　　學(xué)生成績(jī)管理系統(tǒng)</b></p><p>　　單 位 分院(系)</p><p>　　專 業(yè) </p><p>　　學(xué) 號(hào) </p><p>　　學(xué)生姓名 </p><p>　　指導(dǎo)教師

2、 </p><p>　　完成日期 2012 年 6 月 25 日</p><p><b>　　摘 要</b></p><p>　　對(duì)于學(xué)生成績(jī)的管理，在現(xiàn)代各類學(xué)校中的應(yīng)用已經(jīng)是相當(dāng)普遍而且重要，傳統(tǒng)的只是以紙質(zhì)的成績(jī)單雖然攜帶方便，但在現(xiàn)代，對(duì)于學(xué)生成績(jī)的管理也略顯的有些麻煩。由于計(jì)算機(jī)技術(shù)的發(fā)展，越來越多的應(yīng)用，管理，都會(huì)

3、有計(jì)算機(jī)輔助完成。尤其以visual basic軟件為基礎(chǔ)發(fā)展起來的vb技術(shù)已經(jīng)相當(dāng)成熟。</p><p>　　Vb技術(shù)面向?qū)ο蟮某绦蜷_發(fā)軟件，由于其面向?qū)ο螅录?qū)動(dòng)的特點(diǎn)，所以在程序編輯過程中有相當(dāng)大的應(yīng)用范圍。學(xué)生成績(jī)管理系統(tǒng)也是利用visual basic的這些優(yōu)良特點(diǎn)，能夠方便，靈活，輕松的完成對(duì)程序的編寫。</p><p>　　本文基于vb編程程序，設(shè)計(jì)并實(shí)現(xiàn)了該系統(tǒng)中的項(xiàng)目管

4、理子系統(tǒng)。</p><p>　　關(guān)鍵詞：成績(jī)管理系統(tǒng)，data，visual basic</p><p><b>　　目 錄</b></p><p>　　1.選題的意義……………………………………………………………4</p><p>　　2.系統(tǒng)功能需求分析……………………………………………………4</p>

5、<p>　　2.1系統(tǒng)概述…………………………………………………………………………4</p><p>　　2.2系統(tǒng)的組成及各模塊的功能………………………………………………4</p><p>　　2.3系統(tǒng)的運(yùn)行環(huán)境……………………………………………10</p><p>　　3.系統(tǒng)設(shè)計(jì)……………………………………………………………10</p&g

6、t;<p>　　3.1總體結(jié)構(gòu)設(shè)計(jì)………………………………………………………………10</p><p>　　3.2數(shù)據(jù)庫(kù)設(shè)計(jì)………………………………………………………………11</p><p>　　4.系統(tǒng)實(shí)現(xiàn)……………………………………………………………13</p><p>　　4.1登陸模塊的設(shè)計(jì)與實(shí)現(xiàn)…………………………………………………13&l

7、t;/p><p>　　5.總結(jié)……………………………………………………………………15</p><p>　　5.1總結(jié)………………………………………………………………15</p><p>　　參考文獻(xiàn)………………………………………………………………16</p><p><b>　　學(xué)生成績(jī)管理系統(tǒng)</b></p>

8、<p><b>　　1.選題的意義</b></p><p>　　學(xué)生成績(jī)管理系統(tǒng)課題的選擇，可以讓學(xué)生熟知在編輯過程中應(yīng)該用到的編輯語言，在以后的學(xué)習(xí)生活中，可以更加有利于對(duì)vb程序語言的使用，為個(gè)人成才，提供了非常大的裨益。此外，成績(jī)管理系統(tǒng)的編輯過程，可以幫助同學(xué)們更加辯證的審視在程序過程中遇到的問題，從而，更加息心調(diào)整在編程過程中遇到的難題。</p><

9、;p>　　2.系統(tǒng)功能需求分析</p><p><b>　　2.1系統(tǒng)概述</b></p><p>　　本系統(tǒng)著眼于學(xué)生成績(jī)的管理工作，來幫助老師和學(xué)生管理考試成績(jī)，從而更加便捷，快速的實(shí)現(xiàn)對(duì)學(xué)生成績(jī)的管理工作。其中，管理工作包括</p><p>　　（1）.對(duì)學(xué)生成績(jī)的錄入。</p><p>　?。?）.對(duì)學(xué)生用

10、戶信息的修改，添加，以及刪除工作。</p><p>　　（3）.對(duì)教師用戶的添加和刪除工作。</p><p>　　2.2系統(tǒng)的組成及各模塊的功能</p><p>　　總的來說，本系統(tǒng)主要包括兩大部分，有學(xué)生登陸管理部分和教師登陸管理部分。登陸界面如下：</p><p>　　以下細(xì)細(xì)介紹各部分功能。</p><p>　　

11、（1）.學(xué)生登陸，輸入學(xué)號(hào)密碼，進(jìn)入后便可查詢成績(jī)。</p><p>　　此外，還有密碼修改功能。</p><p>　　值得一提的是，在登陸界面用到了數(shù)據(jù)庫(kù)知識(shí)，用到了密碼表，對(duì)于密碼的驗(yàn)證，通過以下代碼便可實(shí)現(xiàn)。</p><p>　　Private Sub Command1_Click()</p><p>　　Text1.SetFocus&

12、lt;/p><p>　　If Text1.Text = "" Or Text2.Text = "" Then</p><p>　　MsgBox "用戶名或密碼不能為空！請(qǐng)?jiān)俅屋斎耄?quot;, vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.Text =

13、 ""</p><p>　　Text2.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from 密碼表 where 學(xué)號(hào)

14、='" & Text1.Text & "' and 密碼='" & Text2.Text & "'" '連接數(shù)據(jù)庫(kù)，查找滿足條件的記錄</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.BOF = True A

15、nd Data1.Recordset.EOF = True Then</p><p>　　MsgBox "您的用戶名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.Text = ""</p><p>　　Text2.Text =

16、 ""</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　UserName = Text1.Text</p><p><b>　　Me.Hide</b></p><p><b>　

17、　cjcx.Show</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　對(duì)密碼的修改，用到SQL語句。</p><p

18、><b>　?。?）.教師登陸。</b></p><p>　　教師進(jìn)入，可進(jìn)到管理界面，實(shí)現(xiàn)對(duì)學(xué)生信息以及成績(jī)的管理。</p><p>　　其中管理包括對(duì)學(xué)生的刪除和密碼修改。</p><p>　　成績(jī)管理包括成績(jī)的錄入，查詢，統(tǒng)計(jì)。</p><p><b>　　還有添加教師用戶。</b>&l

19、t;/p><p>　　尤其是對(duì)學(xué)生信息的刪除，因?yàn)樯婕岸鄠€(gè)表，多已有三個(gè)data控件協(xié)助完成，實(shí)現(xiàn)與密碼表，學(xué)生成績(jī)，學(xué)生信息的關(guān)聯(lián)。</p><p>　　刪除信息部分代碼如下：</p><p>　　Data1.RecordSource = "select * from 密碼表 where 學(xué)號(hào) ='" & Text1.Text &a

20、mp; "'"</p><p>　　Data1.Refresh</p><p>　　Data2.RecordSource = "select * from 學(xué)生成績(jī) where 學(xué)號(hào) ='" & Text1.Text & "'"</p><p>　　Data2.Ref

21、resh</p><p>　　Data3.RecordSource = "select * from 學(xué)生信息 where 學(xué)號(hào) ='" & Text1.Text & "'"</p><p>　　Data3.Refresh</p><p>　　message = MsgBox("是否刪

22、除當(dāng)前記錄？", 4 + 32 + 256, "提示信息")</p><p>　　If message = vbYes Then</p><p>　　Data1.Recordset.Delete</p><p>　　Data2.Recordset.Delete</p><p>　　Data3.Recordset.

23、Delete</p><p><b>　　End If</b></p><p>　　其余部分是本人同學(xué)完成，介紹將在他的報(bào)告中有所解釋。</p><p>　　2.3系統(tǒng)的運(yùn)行環(huán)境</p><p>　　本系統(tǒng)可在window xp ，vista中運(yùn)行。</p><p><b>　　3.系統(tǒng)

24、設(shè)計(jì)。</b></p><p><b>　　3.1總體設(shè)計(jì)結(jié)構(gòu)</b></p><p><b>　　3.2數(shù)據(jù)庫(kù)結(jié)構(gòu)圖</b></p><p><b>　　密碼表：</b></p><p><b>　　學(xué)生信息：</b></p>

25、<p><b>　　教師密碼：</b></p><p><b>　　4.系統(tǒng)實(shí)現(xiàn)</b></p><p>　　4.1登陸模塊的設(shè)計(jì)與實(shí)現(xiàn)</p><p>　　用data控件實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的聯(lián)系</p><p>　　Data1.RecordSource屬性實(shí)現(xiàn)與表的聯(lián)系</p>

26、<p><b>　　界面與代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = Text2.Text And Text1.Text <> "" Then</p><p>　　Data1.RecordSourc

27、e = "select * from 密碼表 where 學(xué)號(hào) ='" & xuesheng.Text1.Text & "'"</p><p>　　Data1.Refresh</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fie

28、lds("密碼") = Text1.Text</p><p>　　Data1.Recordset.Update</p><p>　　MsgBox "hi,man.恭喜你修改成功", 0 + 48 + 0, "修改成功"</p><p>　　Text1.Text = ""</p>

29、;<p>　　Text2.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　MsgBox "您輸入的有誤，請(qǐng)重新輸入", 0 + 16 + 0, "錯(cuò)誤"</p><

30、p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text1.SetFocus</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p

31、><p><b>　　5.總結(jié)：</b></p><p>　　在本次前前后后有十天之久，其中遇到了很多棘手問題，譬如關(guān)于數(shù)據(jù)庫(kù)的連接，經(jīng)常出現(xiàn)問題，代碼的編寫也經(jīng)常遇到不懂得，還得通過書籍，網(wǎng)絡(luò)來幫助解決。</p><p>　　總而言之，本系統(tǒng)能初步完成對(duì)學(xué)生成績(jī)的管理問題，但還有考慮不周全之處，對(duì)于按鈕的enable屬性控制，仍有很多瑕疵。<

32、;/p><p>　　最后，還要感謝李中華老師的息心指導(dǎo)，本次設(shè)計(jì)方能有所成效還有，感謝學(xué)校給予我們優(yōu)良的學(xué)習(xí)環(huán)境，才能讓我們安心學(xué)習(xí)，在知識(shí)的海洋中自在的遨游。</p><p><b>　　參考文獻(xiàn)：</b></p><p>　　1. 《Visual Basic 6.0編程案例精解》， 張路平，電子工業(yè)出版社</p><p>