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

1、<p>　　學(xué)院名稱(chēng)：機(jī)械工程學(xué)院</p><p>　　專(zhuān)業(yè)名稱(chēng)：機(jī)械設(shè)計(jì)制造及其自動(dòng)化</p><p><b>　　學(xué)生姓名：xx</b></p><p><b>　　學(xué)生學(xué)號(hào)：xx</b></p><p><b>　　學(xué)生班級(jí)：xx</b></p>

2、<p><b>　　指導(dǎo)教師：xx</b></p><p>　　設(shè)計(jì)時(shí)間：2012-9-4~~2012-9-13</p><p><b>　　目錄</b></p><p><b>　　選題的意義</b></p><p>　　1、 選擇的題目名稱(chēng)：</p>

3、<p>　　2、選擇該題的原因：</p><p>　　3、運(yùn)用的知識(shí)點(diǎn)： </p><p><b>　　4、時(shí)間的安排：</b></p><p><b>　　5、參考書(shū)籍：</b></p><p><b>　　系統(tǒng)功能需求分析</b></p><

4、p><b>　　1、用戶(hù)登錄</b></p><p><b>　　2、學(xué)生成績(jī)的維護(hù)</b></p><p><b>　　3、學(xué)生成績(jī)的查詢(xún)</b></p><p><b>　　4、學(xué)生密碼修改</b></p><p><b>　　5、學(xué)生

5、成績(jī)錄入</b></p><p><b>　　6.修改學(xué)生成績(jī)</b></p><p><b>　　7、學(xué)生成績(jī)查看</b></p><p><b>　　8、教師密碼修改</b></p><p><b>　　9、添加學(xué)生用戶(hù)</b></p

6、><p><b>　　10、刪除學(xué)生用戶(hù)</b></p><p><b>　　11、添加教師用戶(hù)</b></p><p><b>　　12、刪除教師用戶(hù)</b></p><p>　　13、添加管理員用戶(hù)</p><p>　　14、添加學(xué)生基本信息</p

7、><p><b>　　15、成績(jī)管理頁(yè)面</b></p><p>　　三、系統(tǒng)功能需求分析</p><p><b>　　1、用戶(hù)登錄</b></p><p><b>　　2、學(xué)生成績(jī)的維護(hù)</b></p><p><b>　　3、學(xué)生成績(jī)的查詢(xún)&l

8、t;/b></p><p>　　4、下面是學(xué)生成績(jī)管理系統(tǒng)結(jié)構(gòu)圖</p><p><b>　　四、系統(tǒng)實(shí)現(xiàn)</b></p><p>　　1、學(xué)生、教師、管理員不同身份登錄</p><p><b>　　2、學(xué)生查看成績(jī)</b></p><p><b>　　3、成

9、績(jī)管理頁(yè)面</b></p><p><b>　　4、學(xué)生成績(jī)錄入 </b></p><p><b>　　5、添加學(xué)生用戶(hù)</b></p><p><b>　　6、添加教師用戶(hù)</b></p><p><b>　　7、添加管理員用戶(hù)</b><

10、;/p><p><b>　　8、學(xué)生密碼修改</b></p><p><b>　　9、刪除學(xué)生用戶(hù)</b></p><p><b>　　10、刪除教師用戶(hù)</b></p><p><b>　　11、退出</b></p><p><

11、b>　　12、教師密碼修改</b></p><p>　　13、學(xué)生個(gè)人信息查詢(xún)</p><p>　　14、教師登錄成績(jī)查詢(xún)</p><p><b>　　五、總結(jié)</b></p><p><b>　　1、總結(jié)</b></p><p>　　2 、存在的主要問(wèn)題&

12、lt;/p><p><b>　　選題的意義</b></p><p><b>　　選擇的題目名稱(chēng)：</b></p><p><b>　　學(xué)生成績(jī)管理系統(tǒng) </b></p><p>　　2、選擇該題的原因：</p><p>　　現(xiàn)在我國(guó)的一些院校的學(xué)生成績(jī)管理水

13、平普遍不高，有的還停留在紙介質(zhì)基礎(chǔ)上，這種管理手段已不能適應(yīng)時(shí)代的發(fā)展，因?yàn)樗速M(fèi)了了許多的人力和物力。在當(dāng)今信息時(shí)代這種傳統(tǒng)的管理方法必然被計(jì)算機(jī)為基礎(chǔ)的信息管理系統(tǒng)所代替。如果本系統(tǒng)能被學(xué)校所采用，將會(huì)改變以前靠手工管理學(xué)生成績(jī)的狀況，可以樹(shù)立良好的辦學(xué)形象，提高工作效率。</p><p>　　學(xué)生成績(jī)管理系統(tǒng)是為本校開(kāi)發(fā)的，本系統(tǒng)所采用的語(yǔ)言是Visual Basic語(yǔ)言，通過(guò)本校內(nèi)部的信息，依據(jù)統(tǒng)一數(shù)據(jù)信

14、息進(jìn)行管理，把任何一塊信息所產(chǎn)生的數(shù)據(jù)變動(dòng)及時(shí)地反映給其它相關(guān)信息，做到數(shù)據(jù)共享。</p><p>　　我這次選的課程設(shè)計(jì)題目是小型學(xué)生成績(jī)管理系統(tǒng)，該課程設(shè)計(jì)題目主要圍繞學(xué)生成績(jī)信息錄入、管理與維護(hù)展開(kāi)的，通過(guò)對(duì)系統(tǒng)的設(shè)置將各方面的信息聯(lián)系在一起，使用戶(hù)對(duì)學(xué)生成績(jī)的信息一目了然，能夠簡(jiǎn)潔、迅速的瀏覽信息，查詢(xún)信息，快速的找到自己想要的信息。</p><p>　　本次課程設(shè)計(jì)應(yīng)達(dá)到的目的是

15、通過(guò)對(duì)該題目的設(shè)計(jì)，掌握軟件開(kāi)發(fā)過(guò)程的問(wèn)題分析，系統(tǒng)設(shè)計(jì)，程序編碼，測(cè)試等基本方法和技能；掌握數(shù)據(jù)庫(kù)的基礎(chǔ)知識(shí)，利用數(shù)據(jù)庫(kù)管理器進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)的方法，使用Data空間訪問(wèn)數(shù)據(jù)的方法和掌握利用VB開(kāi)發(fā)數(shù)據(jù)庫(kù)系統(tǒng)的方法。</p><p>　　通過(guò)這次課程設(shè)計(jì)，我對(duì)VB課程設(shè)計(jì)有了更深入的了解。由于以前只是一些抽象的理論課程，所以對(duì)一些具體的課程設(shè)計(jì)沒(méi)有具體的接觸，對(duì)一些語(yǔ)言功能也不是很了解，沒(méi)有獨(dú)立完成一次真正的課程

16、設(shè)計(jì)。通過(guò)這次實(shí)際操作，我收獲很大，對(duì)VB的認(rèn)識(shí)也不僅僅停留在以前的層面上，認(rèn)識(shí)到自身存在很大的不足，對(duì)VB的認(rèn)識(shí)還需要更深入的了解，進(jìn)行更詳盡的學(xué)習(xí)，并且需要多次的實(shí)踐練習(xí)。</p><p>　　這門(mén)課程設(shè)計(jì)是針對(duì)剛學(xué)完Visual Basic課程的本科專(zhuān)業(yè)學(xué)生的課程設(shè)計(jì)教學(xué)。Visual Basic設(shè)計(jì)是學(xué)生的一門(mén)計(jì)算機(jī)語(yǔ)言課程，課程結(jié)束后，學(xué)生已經(jīng)對(duì)Visual Basic程序設(shè)計(jì)有了較全面的了解，但接觸的

17、基本上是為了闡述相關(guān)概念或知識(shí)點(diǎn)而列舉的示例，都是較小的程序，程序功能單一，因此缺乏整體觀點(diǎn)和編寫(xiě)一個(gè)具體實(shí)用的綜合程序的思想。</p><p>　　對(duì)于學(xué)生而言，登錄學(xué)生成績(jī)管理系統(tǒng)是司空見(jiàn)慣的事，所以也對(duì)其系統(tǒng)結(jié)構(gòu)和功能有著較強(qiáng)的印象。但是，如果自己編寫(xiě)一個(gè)類(lèi)似的成績(jī)管理系統(tǒng)，不一定是件輕松的事。本生基于剛學(xué)完Visual Basic課程，所以就選擇了這個(gè)題目，來(lái)測(cè)試自己所學(xué)的能力。如此一來(lái)，不但可以更深地了

18、解這門(mén)課程的作用，還可以提高編寫(xiě)和修改Visual Basic程序的能力。順便讓同學(xué)們?cè)囈辉囄覀兯幍某绦虻目蓪?shí)用性。</p><p><b>　　3、運(yùn)用的知識(shí)點(diǎn)：</b></p><p><b>　?、艠?biāo)簽的使用；</b></p><p><b>　?、?文本框的使用；</b></p>

19、<p><b>　　⑶命令按鈕的使用；</b></p><p><b>　　⑷圖片的加載；</b></p><p>　　⑸data控件的使用；</p><p><b>　　⑹時(shí)鐘控件的使用；</b></p><p>　?、舜绑w的加載、顯示和隱藏；</p>

20、;<p>　?、虜?shù)據(jù)庫(kù)的建立和鏈接：</p><p>　　⑼不同身份訪問(wèn)權(quán)限的設(shè)置；</p><p>　?、蝘f語(yǔ)句的條件判斷；</p><p>　?、螹sgbox對(duì)話框的使用；</p><p><b>　?、忻艽a的修改；</b></p><p><b>　?、烟砑有掠脩?hù)。

21、</b></p><p><b>　　4、時(shí)間的安排：</b></p><p>　　9月4號(hào)：進(jìn)行Visual Basic課程設(shè)計(jì)題目的選擇；</p><p>　　9月5號(hào)：查詢(xún)成績(jī)管理系統(tǒng)的相關(guān)資料；</p><p>　　9月6號(hào)：查詢(xún)成績(jī)管理系統(tǒng)的相關(guān)資料；</p><p>　　9

22、月7號(hào)：確定設(shè)計(jì)方案；</p><p>　　9月8號(hào)：開(kāi)始設(shè)計(jì)程序、編代碼；</p><p>　　9月9號(hào)：開(kāi)始設(shè)計(jì)程序、編代碼； </p><p>　　9月10號(hào)：開(kāi)始調(diào)試程序；</p><p>　　9月11號(hào)：開(kāi)始調(diào)試程序；</p><p>　　9月12號(hào)：寫(xiě)課程設(shè)計(jì)報(bào)告書(shū)；</p><

23、;p>　　9月13號(hào)：寫(xiě)課程設(shè)計(jì)報(bào)告書(shū)。</p><p><b>　　5、參考書(shū)籍：</b></p><p>　　1. 《Visual Basic 6.0編程案例精解》， 張路平，電子工業(yè)出版社</p><p>　　2.《Visual Basic 6.0數(shù)據(jù)庫(kù)編程思想與實(shí)踐》 ，譚小丹，冶金工業(yè)出版社</p><p&g

24、t;　　3. 《Visual Basic+Access數(shù)據(jù)庫(kù)項(xiàng)目開(kāi)發(fā)實(shí)踐》，周?chē)?guó)民，中國(guó)鐵道出版社</p><p>　　4《Visual Basic程序設(shè)計(jì)》，王學(xué)軍，張玉梅，中國(guó)鐵道出版社</p><p><b>　　系統(tǒng)功能需求分析</b></p><p><b>　　1、用戶(hù)登錄</b></p><

25、;p>　　通過(guò)輸入用戶(hù)名和密碼登錄學(xué)生信息管理系統(tǒng)。</p><p><b>　　2、學(xué)生成績(jī)的維護(hù)</b></p><p>　　能夠輸入學(xué)生信息，實(shí)現(xiàn)對(duì)數(shù)據(jù)的添加、刪除、修改功能?；A(chǔ)數(shù)據(jù)包括用戶(hù)信息的添加和修改，學(xué)生高數(shù)、英語(yǔ)、計(jì)算機(jī)成績(jī)的添加和修改，添加學(xué)生密碼的錄入，實(shí)現(xiàn)管理員管理。</p><p><b>　　3、學(xué)生

26、成績(jī)的查詢(xún)</b></p><p>　　基礎(chǔ)數(shù)據(jù)包括學(xué)生基本信息和其學(xué)科成績(jī)信息的記錄，可以按學(xué)生名稱(chēng)和按學(xué)生學(xué)號(hào)進(jìn)行查詢(xún)和瀏覽。</p><p>　　由于在學(xué)校學(xué)生成績(jī)管理系統(tǒng)運(yùn)用的非常普遍，所以該系統(tǒng)有著強(qiáng)大的和廣泛的用處。</p><p>　　4、下面是學(xué)生成績(jī)管理系統(tǒng)結(jié)構(gòu)圖</p><p><b>　　三、系統(tǒng)設(shè)

27、計(jì)</b></p><p><b>　　1.登錄頁(yè)面</b></p><p>　　Private Sub Form_Load()</p><p>　　Label2.Caption = "歡迎進(jìn)入成績(jī)管理系統(tǒng)" '設(shè)置標(biāo)簽的標(biāo)題</p><p>　　Label2.FontName =

28、 "宋體" '設(shè)置標(biāo)簽字體</p><p>　　Label2.FontSize = 22 '設(shè)置字號(hào)</p><p>　　Label2.ForeColor = vbBlue '設(shè)置字體顏色</p><p>　　Text1.Text = "" '初始化文本框</p><p>

29、;　　Text2.Text = ""</p><p>　　Combo1.AddItem "學(xué)生" '為combo1添加選擇條件</p><p>　　Combo1.AddItem "教師"</p><p>　　Combo1.AddItem "管理員"</p><

30、p>　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對(duì)路徑及數(shù)據(jù)庫(kù)名稱(chēng)</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer() '將標(biāo)簽設(shè)置為移動(dòng)的</p>&l

31、t;p>　　If Label2.Left + Label2.Width > 0 Then</p><p>　　Label2.Move Label2.Left - 24</p><p><b>　　Else</b></p><p>　　Label2.Left = frm_dl.ScaleWidth '當(dāng)標(biāo)簽從左邊出去后，使其再

32、從右邊出來(lái)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　2、學(xué)生成績(jī)查看</b></p><p>　　Private Sub Command1_Click()</p><p

33、>　　If Combo1.Text = "學(xué)生" Then '學(xué)生登錄</p><p>　　If Trim(Text1.Text) = "" Then '用戶(hù)名為空，彈出警告對(duì)話框</p><p>　　MsgBox "用戶(hù)名不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, &qu

34、ot;警告"</p><p>　　Text1.SetFocus '為用戶(hù)名設(shè)置焦點(diǎn)</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from 學(xué)生密碼 where 學(xué)號(hào)='" & Text1.Text &

35、; "' and 密碼='" & Text2.Text & "'" '從數(shù)據(jù)庫(kù)學(xué)生密碼表中讀取學(xué)號(hào)密碼</p><p>　　Data1.Refresh '刷新數(shù)據(jù)庫(kù)</p><p>　　If Data1.Recordset.BOF And Data1.Recordset.EOF Then 

36、9;沒(méi)有該用戶(hù)名或用戶(hù)名與密碼不一致，彈出警告對(duì)話框</p><p>　　MsgBox "用戶(hù)名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.Text = "" '清空該文本框數(shù)據(jù)</p><p>　　Text1.Se

37、tFocus '清空該文本框數(shù)據(jù)</p><p><b>　　Else</b></p><p>　　Text2.Text = "" '初始化文本框</p><p>　　frm_dl.Hide '隱藏登錄窗體</p><p>　　frm_xscxcj.Show '彈出學(xué)

38、生成績(jī)查詢(xún)窗體</p><p>　　frm_xscxcj.Data1.DatabaseName = App.Path & "\student.mdb" '設(shè)置數(shù)據(jù)庫(kù)路徑及名稱(chēng)</p><p>　　frm_xscxcj.Data1.RecordSource = "select * from 成績(jī)單 where 學(xué)號(hào)='" &am

39、p; frm_dl.Text1.Text & "'" '從數(shù)據(jù)庫(kù)中讀取該學(xué)生成績(jī)</p><p>　　frm_xscxcj.Data1.Refresh '刷新數(shù)據(jù)庫(kù)</p><p><b>　　End If</b></p><p><b>　　End If</b><

40、/p><p>　　ElseIf Combo1.Text = "教師" Then '教師登錄</p><p>　　If Trim(Text1.Text) = "" Then '用戶(hù)名為空，彈出警告對(duì)話框</p><p>　　MsgBox "用戶(hù)名不能為空，請(qǐng)重新輸入！", vbOKOnly + v

41、bExclamation, "警告"</p><p>　　Text1.SetFocus '設(shè)置焦點(diǎn)</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from 教師密碼 where 用戶(hù)名='" & Te

42、xt1.Text & "' and 密碼='" & Text2.Text & "'" '從數(shù)據(jù)庫(kù)中讀取教師用戶(hù)名和密碼</p><p>　　Data1.Refresh '刷新數(shù)據(jù)庫(kù)</p><p>　　If Data1.Recordset.BOF And Data1.Recordset.

43、EOF Then '沒(méi)有該教師用戶(hù)名或用戶(hù)名與密碼不一致，彈出警告對(duì)話框</p><p>　　MsgBox "用戶(hù)名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.Text = "" '清空該文本框數(shù)據(jù)</p><p

44、>　　Text1.SetFocus '清空該文本框數(shù)據(jù)</p><p><b>　　Else</b></p><p>　　frm_dl.Hide '隱藏登錄窗體</p><p>　　frm_cjgl.Show '彈出成績(jī)管理窗體</p><p>　　frm_cjgl.tjjsyh.Enabl

45、ed = False '教師沒(méi)有添加教師用戶(hù)的權(quán)限</p><p>　　frm_cjgl.scxsyh.Enabled = False '教師沒(méi)有刪除學(xué)生用戶(hù)的權(quán)限</p><p>　　frm_cjgl.scjsyh.Enabled = False '教師沒(méi)有刪除教師用戶(hù)的權(quán)限</p><p>　　frm_cjgl.tjxsyh.Enable

46、d = False '教師沒(méi)有添加學(xué)生用戶(hù)的權(quán)限</p><p>　　frm_cjgl.tjgly.Enabled = False '教師沒(méi)有添加管理員的權(quán)限</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><

47、b>　　Else</b></p><p>　　If Trim(Text1.Text) = "" Then '用戶(hù)名為空，彈出警告對(duì)話框</p><p>　　MsgBox "用戶(hù)名不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>

48、;　　Text1.SetFocus '設(shè)置焦點(diǎn)</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from 管理員密碼 where 用戶(hù)名='" & Text1.Text & "' and 密碼='" &

49、amp; Text2.Text & "'" '從數(shù)據(jù)庫(kù)中讀取管理員用戶(hù)名和密碼</p><p>　　Data1.Refresh '刷新數(shù)據(jù)庫(kù)</p><p>　　If Data1.Recordset.BOF And Data1.Recordset.EOF Then '沒(méi)有該管理員用戶(hù)名或用戶(hù)名與密碼不一致，彈出警告對(duì)話框</

50、p><p>　　MsgBox "用戶(hù)名或密碼輸入錯(cuò)誤，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.Text = "" '清空該文本框數(shù)據(jù)</p><p>　　Text1.SetFocus '清空該文本框數(shù)據(jù)</p>

51、<p><b>　　Else</b></p><p>　　frm_dl.Hide '隱藏登錄窗體</p><p>　　frm_cjgl.Show '彈出成績(jī)管理窗體</p><p>　　frm_cjgl.xscjlr.Enabled = False '管理員沒(méi)有成績(jī)錄入的權(quán)限</p><p

52、>　　frm_cjgl.xscjxg.Enabled = False '管理員沒(méi)有成績(jī)修改入的權(quán)限</p><p>　　frm_cjgl.jsmmxg.Enabled = False '管理員沒(méi)有修改教師密碼的權(quán)限</p><p><b>　　End If</b></p><p><b>　　End If<

53、/b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click() '退出系統(tǒng)</p><p><b>　　End</b></p>

54、<p><b>　　End Sub</b></p><p>　　Private Sub frm_dl_Load()</p><p>　　Label2.Width = frm_dl.ScaleWidth '設(shè)置標(biāo)簽的尺寸</p><p>　　Label2.Left = frm_dl.ScaleWidth</p>

55、<p>　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對(duì)路徑及數(shù)據(jù)庫(kù)名稱(chēng)</p><p><b>　　End Sub </b></p><p>　　Private Sub Command1_Click()</p><p>　　

56、If combo1.Text = "按學(xué)號(hào)" Then</p><p>　　Data1.RecordSource = "select * from 成績(jī)單 where 學(xué)號(hào)='" & Text1.Text & "'" '按學(xué)號(hào)搜尋個(gè)人成績(jī)</p><p>　　Data1.Refresh &#

57、39;顯示個(gè)人成績(jī)</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from 成績(jī)單 where 姓名='" & Text1.Text & "'" '按姓名搜尋個(gè)人成績(jī)</p><p>

58、　　Data1.Refresh '顯示個(gè)人成績(jī)</p><p><b>　　End If</b></p><p>　　If Text1.Text = "" Then '顯示所有學(xué)生成績(jī)</p><p>　　Data1.RecordSource = "select * from 成績(jī)單 "

59、</p><p>　　Data1.Refresh '顯示所有人成績(jī)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　

60、frm_cxcj.Hide '隱藏成績(jī)查詢(xún)窗體</p><p>　　frm_cjgl.Show '彈出成績(jī)管理窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　combo1.AddItem "按學(xué)號(hào)&

61、quot; '為combo1添加選擇條件</p><p>　　combo1.AddItem "按姓名"</p><p>　　combo1.AddItem "按班級(jí)"</p><p>　　Text1.Text = "" '初始化文本框</p><p>　　Data1.D

62、atabaseName = App.Path & "\student.mdb" '用data控件連接數(shù)據(jù)庫(kù)路徑及名稱(chēng)</p><p>　　Data1.RecordSource = "select * from 成績(jī)單 order by 學(xué)號(hào) asc" '搜尋所有人的成績(jī)，按升序排列</p><p>　　Data1.Refres

63、h '</p><p><b>　　End Sub</b></p><p><b>　　3.學(xué)生信息查看</b></p><p>　　Private Sub Command1_Click()</p><p>　　frm_xscxxx.Hide '關(guān)閉學(xué)生信息查詢(xún)窗體</p>

64、;<p>　　frm_xscxcj.Show '打開(kāi)學(xué)生查詢(xún)成績(jī)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.DatabaseName = App.Path & "\student.mdb&qu

65、ot; '設(shè)置連接數(shù)據(jù)庫(kù)的路徑</p><p>　　Data1.RecordSource = "select * from 學(xué)生基本信息 where 學(xué)號(hào)='" & frm_dl.Text1.Text & "'" '從數(shù)據(jù)庫(kù)讀取學(xué)生基本信息</p><p>　　Data1.Refresh '刷新

66、</p><p><b>　　End Sub</b></p><p><b>　　4、學(xué)生密碼修改</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) <> Trim(Text2.Text) T

67、hen '兩次密碼輸入不一致，彈出信息提示對(duì)話框</p><p>　　MsgBox "兩次密碼輸入不一致，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Text1.SetFocus '設(shè)置焦點(diǎn)</p><p>　　Text1.Text = "&

68、quot; '清空文本框</p><p>　　Text2.Text = ""</p><p>　　Else '從數(shù)據(jù)庫(kù)中讀取學(xué)號(hào)和密碼</p><p>　　Data1.RecordSource = "select * from 學(xué)生密碼 where 學(xué)號(hào)='" & frm_dl.Text1.Te

69、xt & "'"</p><p>　　Data1.Refresh '刷新</p><p>　　Data1.Recordset.Edit '修改學(xué)生密碼</p><p>　　Data1.Recordset.Fields("密碼") = Text1.Text</p><p>

70、　　Data1.Recordset.Update '更新數(shù)據(jù)庫(kù)，彈出修改成功對(duì)話框</p><p>　　i = MsgBox("密碼修改成功,是否重新登錄？", vbOKCancel + vbQuestion, "提示")</p><p>　　If i = 1 Then '確認(rèn)</p><p>　　frm_xs

71、mmxg.Hide '關(guān)閉修改學(xué)生密碼窗體</p><p>　　frm_dl.Show '打開(kāi)登錄窗體</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b><

72、/p><p>　　Private Sub Command2_Click()</p><p>　　Text1.Text = "" '清空文本框</p><p>　　Text2.Text = ""</p><p>　　frm_xsmmxg.Hide '關(guān)閉修改學(xué)生密碼窗體</p>

73、<p>　　frm_xscxcj.Show '打開(kāi)修改學(xué)生成績(jī)窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub form_resize()</p><p>　　Text1.Text = "" '清空文本框</p><p>　

74、　Text2.Text = ""</p><p>　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對(duì)路徑及數(shù)據(jù)庫(kù)名稱(chēng)</p><p><b>　　End Sub</b></p><p>　　Private Sub Te

75、xt1_LostFocus()</p><p>　　If Len(Text1.Text) < 6 Then '如果密碼字?jǐn)?shù)少于6個(gè)，彈出提醒對(duì)話框</p><p>　　MsgBox "密碼長(zhǎng)度不應(yīng)少于6位，請(qǐng)重新輸入！", vbOKOnly, "提醒"</p><p>　　Text1.Text = "&

76、quot; '清空文本框</p><p>　　Text2.Text = ""</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p><b>　　5、學(xué)生成績(jī)錄入</b></p>

77、;<p>　　Private Sub Command1_Click()</p><p>　　Data1.Recordset.MoveFirst '移動(dòng)到第一條記錄</p><p>　　Command1.Enabled = False '"第一個(gè)"不能操作</p><p>　　Command2.Enabled = Fa

78、lse '"上一個(gè)"不能操作</p><p>　　Command3.Enabled = True '"下一個(gè)"能操作</p><p>　　Command4.Enabled = True '"最后一個(gè)"能操作</p><p><b>　　End Sub</b>&l

79、t;/p><p>　　Private Sub Command2_Click()</p><p>　　Data1.Recordset.MovePrevious '移動(dòng)到第一條前記錄</p><p>　　If Data1.Recordset.BOF Then '沒(méi)有記錄</p><p>　　Data1.Recordset.MoveFi

80、rst '移動(dòng)到第一條記錄</p><p>　　Command1.Enabled = False '"第一個(gè)"不能操作</p><p>　　Command2.Enabled = False '"上一個(gè)"不能操作</p><p>　　Command3.Enabled = True '"下

81、一個(gè)"能操作</p><p>　　Command4.Enabled = True '"最后一個(gè)"能操作</p><p><b>　　Else</b></p><p>　　Command1.Enabled = True '"第一個(gè)"能操作</p><p>　

82、　Command2.Enabled = True '"上一個(gè)"能操作</p><p>　　Command3.Enabled = True '"下一個(gè)"能操作</p><p>　　Command4.Enabled = True '"最后一個(gè)"能操作</p><p><b>　

83、　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　Data1.Recordset.MoveNext '移動(dòng)到下一條記錄</p><p>　　If Data1.Recordset.

84、EOF Then '下一條沒(méi)有記錄</p><p>　　Data1.Recordset.MoveLast '移動(dòng)到最后一條記錄</p><p>　　Command1.Enabled = True '"第一個(gè)"能操作</p><p>　　Command2.Enabled = True '"上一個(gè)"

85、能操作</p><p>　　Command3.Enabled = False '"下一個(gè)"不能操作</p><p>　　Command4.Enabled = False '"最后一個(gè)"不能操作</p><p><b>　　Else</b></p><p>　　Com

86、mand1.Enabled = True '"第一個(gè)"能操作</p><p>　　Command2.Enabled = True '"上一個(gè)"能操作</p><p>　　Command3.Enabled = True '"下一個(gè)"能操作</p><p>　　Command4.Enab

87、led = True '"最后一個(gè)"能操作</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　Data1.Recordse

88、t.MoveLast '移動(dòng)到最后一條記錄</p><p>　　Command1.Enabled = True '"第一個(gè)"能操作</p><p>　　Command2.Enabled = True '"上一個(gè)"能操作</p><p>　　Command3.Enabled = False '&q

89、uot;下一個(gè)"不能操作</p><p>　　Command4.Enabled = False '"最后一個(gè)"不能操作</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　If Text

90、1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then '如果基本信息有一個(gè)為空，彈出

91、提醒對(duì)話框</p><p>　　MsgBox "內(nèi)容不能為空，請(qǐng)重新輸入！"</p><p><b>　　Else</b></p><p>　　Data1.Recordset.Edit '對(duì)基本信息進(jìn)行修改</p><p>　　Data1.Recordset.Fields(0) = frm_x

92、scjlr.Text1.Text</p><p>　　Data1.Recordset.Fields(1) = frm_xscjlr.Text2.Text</p><p>　　Data1.Recordset.Fields(2) = frm_xscjlr.Text3.Text</p><p>　　Data1.Recordset.Fields(3) = frm_xscjl

93、r.Text4.Text</p><p>　　Data1.Recordset.Fields(4) = frm_xscjlr.Text5.Text</p><p>　　Data1.Recordset.Fields(5) = frm_xscjlr.Text6.Text</p><p>　　Data1.Recordset.Fields(6) = frm_xscjlr.Te

94、xt7.Text</p><p>　　Data1.Recordset.Fields(7) = frm_xscjlr.Text8.Text</p><p>　　Data1.Recordset.Update '更新，彈出添加成功對(duì)話框</p><p>　　MsgBox "添加成功！"</p><p><b>

95、　　End If</b></p><p>　　Text5.Text = "" '清空文本框</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""

96、;</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　frm_xscjlr.Hide '隱藏學(xué)生成績(jī)錄入窗體</p><p>　　frm_cjgl.Show '打開(kāi)成績(jī)管理窗體</p><

97、;p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Text1.Text = "" '初始化文本框</p><p>　　Text2.Text = ""</p><p>　　Text3.Tex

98、t = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p>

99、<p>　　Text8.Text = ""</p><p>　　Data1.DatabaseName = App.Path & "\student.mdb" '連接數(shù)據(jù)庫(kù)路徑和名稱(chēng)</p><p><b>　　End Sub</b></p><p><b>　　6.修改

100、學(xué)生成績(jī)</b></p><p>　　Private Sub Command2_Click()</p><p>　　If Text1.Text = "" Then '學(xué)號(hào)文本框不能為空</p><p>　　MsgBox "請(qǐng)輸入內(nèi)容！"</p><p><b>　　Else

101、</b></p><p>　　Data1.Recordset.Edit '修改各門(mén)課程成績(jī)修改</p><p>　　Data1.Recordset.Fields(0) = Text2.Text</p><p>　　Data1.Recordset.Fields(1) = Text3.Text</p><p>　　Data1.

102、Recordset.Fields(2) = Text4.Text</p><p>　　Data1.Recordset.Fields(3) = Text5.Text</p><p>　　Data1.Recordset.Fields(4) = Text6.Text</p><p>　　Data1.Recordset.Fields(5) = Text7.Text</

103、p><p>　　Data1.Recordset.Fields(6) = Text8.Text</p><p>　　Data1.Recordset.Update '更新修改后的數(shù)據(jù)</p><p>　　MsgBox "修改成功", vbOKOnly, "提示" '彈出修改成功對(duì)話框</p><p&

104、gt;<b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBo

105、x "學(xué)號(hào)不能為空，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告" '學(xué)號(hào)文本框不能為空</p><p>　　Text1.SetFocus '為學(xué)號(hào)設(shè)置焦點(diǎn)</p><p><b>　　Else</b></p><p>　　Data1.RecordSourc

106、e = "select * from 成績(jī)單 where 學(xué)號(hào)='" & Text1.Text & " '" '從數(shù)據(jù)庫(kù)中加載學(xué)號(hào)</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.EOF Then '數(shù)據(jù)庫(kù)中沒(méi)有這個(gè)學(xué)號(hào)</p>

107、<p>　　MsgBox "學(xué)號(hào)不存在，請(qǐng)重新輸入！", vbOKOnly + vbExclamation, "警告" '彈出學(xué)號(hào)不存在對(duì)話框</p><p>　　Text1.SetFocus '為學(xué)號(hào)設(shè)置焦點(diǎn)</p><p>　　Text1.Text = "" '清空文本框中數(shù)據(jù)</p&g

108、t;<p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text =

109、""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Text9.Text = ""</p><p><b>　　Else</b></p><p&

110、gt;　　Text2.Text = Data1.Recordset.Fields(0) '從數(shù)據(jù)庫(kù)中為每個(gè)文本框加載各個(gè)字段的數(shù)據(jù)</p><p>　　Text3.Text = Data1.Recordset.Fields(1)</p><p>　　Text4.Text = Data1.Recordset.Fields(2)</p><p>　　Text5.

111、Text = Data1.Recordset.Fields(3)</p><p>　　Text6.Text = Data1.Recordset.Fields(4)</p><p>　　Text7.Text = Data1.Recordset.Fields(5)</p><p>　　Text8.Text = Data1.Recordset.Fields(6)</

112、p><p><b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　frm_cj

113、xg.Hide '隱藏成績(jī)修改窗體</p><p>　　frm_cjgl.Show '彈出成績(jī)管理窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.DatabaseName = App.Path &

114、amp; "\student.mdb" '用data控件連接數(shù)據(jù)庫(kù)路徑及名稱(chēng)</p><p>　　Text1.Text = "" '初始化各個(gè)文本框</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p>

115、;<p>　　Text4.Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = &

116、quot;"</p><p><b>　　End Sub</b></p><p><b>　　7、學(xué)生成績(jī)查看</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Combo1.Text = "按學(xué)號(hào)" The

117、n</p><p>　　Data1.RecordSource = "select * from 成績(jī)單 where 學(xué)號(hào)='" & Text1.Text & "'" '按學(xué)號(hào)搜尋個(gè)人成績(jī)</p><p>　　Data1.Refresh '顯示個(gè)人成績(jī)</p><p><b&

118、gt;　　Else</b></p><p>　　Data1.RecordSource = "select * from 成績(jī)單 where 姓名='" & Text1.Text & "'" '按姓名搜尋個(gè)人成績(jī)</p><p>　　Data1.Refresh '顯示個(gè)人成績(jī)</p>

119、;<p><b>　　End If</b></p><p>　　If Text1.Text = "" Then '顯示所有學(xué)生成績(jī)</p><p>　　Data1.RecordSource = "select * from 成績(jī)單 "</p><p>　　Data1.Refresh

120、 '顯示所有人成績(jī)</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　frm_cxcj.Hide '隱藏成績(jī)查詢(xún)窗體</p>

121、;<p>　　frm_cjgl.Show '彈出成績(jī)管理窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Combo1.AddItem "按學(xué)號(hào)" '為combo1添加選擇條件</p>

122、<p>　　Combo1.AddItem "按姓名"</p><p>　　Combo1.AddItem "按班級(jí)"</p><p>　　Text1.Text = "" '初始化文本框</p><p>　　Data1.DatabaseName = App.Path & "\

123、student.mdb" '用data控件連接數(shù)據(jù)庫(kù)路徑及名稱(chēng)</p><p>　　Data1.RecordSource = "select * from 成績(jī)單 order by 學(xué)號(hào) asc" '搜尋所有人的成績(jī)，按升序排列</p><p>　　Data1.Refresh '</p><p><b>

124、;　　End Sub</b></p><p><b>　　8、教師密碼修改</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) <> Trim(Text2.Text) Then '兩次密碼輸入不一致，彈出提示對(duì)話框<

125、;/p><p>　　MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Text1.SetFocus '為第一個(gè)文本框設(shè)置焦點(diǎn)</p><p>　　Text1.Text = "" '初始化文本框</p><

126、;p>　　Text2.Text = ""</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from 教師密碼 where 用戶(hù)名='" & frm_dl.Text1.Text & "'" &#

127、39;從數(shù)據(jù)庫(kù)中讀取教師用戶(hù)名和密碼</p><p>　　Data1.Refresh '刷新數(shù)據(jù)庫(kù)</p><p>　　Data1.Recordset.Edit '修改數(shù)據(jù)庫(kù)中的密碼</p><p>　　Data1.Recordset.Fields("密碼") = Text1.Text</p><p>　　

128、Data1.Recordset.Update '更新，彈出修改成功對(duì)話框</p><p>　　MsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"</p><p>　　Text1.Text = "" '清空文本框</p><p>　　Text2

129、.Text = ""</p><p><b>　　End If</b></p><p>　　Data1.Refresh '更新數(shù)據(jù)庫(kù)</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</

130、p><p>　　Text1.Text = "" '清空文本框</p><p>　　Text2.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p&

131、gt;　　frm_jsmmxg.Hide '隱藏教師修改密碼窗體</p><p>　　frm_cjgl.Show '彈出成績(jī)管理窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Text1.Text = &qu

132、ot;" '初始化文本框</p><p>　　Text2.Text = ""</p><p>　　Data1.DatabaseName = App.Path & "\student.mdb" '為data控件設(shè)置相對(duì)路徑及數(shù)據(jù)庫(kù)名稱(chēng)</p><p><b>　　End Sub<

133、/b></p><p><b>　　9、添加學(xué)生用戶(hù)</b></p><p>　　Private Sub Command1_Click() '學(xué)號(hào)不能為空，否則彈出信息提示對(duì)話框</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgB

134、ox "請(qǐng)輸入用戶(hù)名！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Text1.SetFocus '設(shè)置焦點(diǎn)</p><p>　　Exit Sub '退出</p><p><b>　　Else</b></p><p>　

135、　Data1.RecordSource = "select * from 學(xué)生密碼 where 學(xué)號(hào)='" & Text1.Text & "'" '設(shè)置學(xué)號(hào)和密碼</p><p>　　Data1.Refresh</p><p>　　If Not Data1.Recordset.EOF Then</p>

136、;<p>　　MsgBox "用戶(hù)已存在，請(qǐng)重新輸入用戶(hù)名！", vbOKOnly + vbExclamation, "提示信息"</p><p>　　Text1.SetFocus '設(shè)置焦點(diǎn)</p><p>　　Text1.Text = "": Text2.Text = "": Text

137、3.Text = "" '清空文本框</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Trim(Text2.Text)

138、 <> Trim(Text3.Text) Then '如果兩次輸入的密碼不一致，彈出警告對(duì)話框</p><p>　　MsgBox "兩次輸入的密碼不一樣，請(qǐng)確認(rèn)！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.SetFocus '設(shè)置焦點(diǎn)</p><p

139、>　　Text2.Text = "" '清空文本框</p><p>　　Text3.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　With Data1&

140、lt;/p><p>　　.Recordset.AddNew '添加記錄</p><p>　　.Recordset.Fields(0) = Trim(Text1.Text)</p><p>　　.Recordset.Fields(1) = Trim(Text2.Text)</p><p>　　.Recordset.Update '更

141、新記錄</p><p><b>　　End With</b></p><p>　　MsgBox "添加用戶(hù)成功！", vbOKOnly + vbExclamation, "添加用戶(hù)" '彈出修改成功對(duì)話框</p><p><b>　　End If</b></p>

142、<p>　　Data1.Refresh '刷新</p><p>　　frm_tjxsyh.Hide '關(guān)閉添加學(xué)生用戶(hù)窗體</p><p>　　frm_tjxsxx.Show '打開(kāi)學(xué)生信息窗體</p><p><b>　　End Sub</b></p><p>　　Private S

143、ub Command2_Click()</p><p>　　frm_tjxsyh.Hide '關(guān)閉添加學(xué)生用戶(hù)窗體</p><p>　　frm_cjgl.Show '打開(kāi)成績(jī)管理窗體</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Clic