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

1、<p><b>　　一.課程設(shè)計題目</b></p><p><b>　　學(xué)生成績管理系統(tǒng)</b></p><p><b>　　二．功能描述</b></p><p>　　系統(tǒng)主要由四部分組成：系統(tǒng)用戶的管理、學(xué)生成績的管理、學(xué)生信息的管理、，學(xué)生成績信息的統(tǒng)計，其中還包括登錄界面等模塊。&l

2、t;/p><p>　　各模塊的主要功能如下：</p><p>　?。?）.系統(tǒng)用戶的管理：實現(xiàn)用戶的添加、刪除和密碼的修改</p><p>　　(3).學(xué)生成績的管理：實現(xiàn)學(xué)生成績的錄入，查詢，刪除和修改。</p><p>　　(4).學(xué)生成績信息的統(tǒng)計：實現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計。</p><p>　　(2)

3、.學(xué)生信息的管理：實現(xiàn)學(xué)生學(xué)籍信息的添加，查詢、刪除和修改。</p><p><b>　　三．概要設(shè)計</b></p><p>　　對上述各項功能進(jìn)行集中、分塊，按照結(jié)構(gòu)化層序設(shè)計的要求，得到如圖1所示的系統(tǒng)功能模塊圖。</p><p><b>　　圖1系統(tǒng)功能模塊圖</b></p><p><

4、;b>　　四．?dāng)?shù)據(jù)庫設(shè)計</b></p><p>　　數(shù)據(jù)庫在本成績管理系統(tǒng)中占有非常重要的地位，數(shù)據(jù)庫結(jié)構(gòu)的好壞將直接對應(yīng)用系統(tǒng)的效率以及實現(xiàn)的效率產(chǎn)生影響。合理的數(shù)據(jù)庫及結(jié)構(gòu)設(shè)計可以提高數(shù)據(jù)存儲的效率，保證數(shù)據(jù)的完整和一致。同時合理的數(shù)據(jù)庫結(jié)構(gòu)也將有利于程序的實現(xiàn)。設(shè)計本系統(tǒng)的數(shù)據(jù)庫應(yīng)該充分滿足用戶的需求。</p><p>　　針對一般學(xué)生管理系統(tǒng)的需求，通過對學(xué)生學(xué)

5、習(xí)過程的內(nèi)容的分析，設(shè)計如下面所示的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)。</p><p>　?。?）基本信息表：包括的字段有：學(xué)號，姓名，性別，年齡，聯(lián)系電話，家庭住址。 表1 基本信息表</p><p>　　（2）成績表： 包括的字段有： 學(xué)號，姓名，性別，班級，高數(shù)成績，英語成績，計算機(jī)成績。 </p><p><b>　　表

6、2 成績表</b></p><p>　?。?），學(xué)生密碼表： 包括的字段有： 用戶名，密碼。</p><p><b>　　表3密碼表</b></p><p>　?。?）教師密碼表：包括的字段有：用戶名，密碼。</p><p>　　表4 教師密碼表 </p><p><b>

7、　　五．詳細(xì)設(shè)計</b></p><p>　　系統(tǒng)主要由五部分組成：系統(tǒng)用戶的管理、學(xué)生成績的管理、學(xué)生信息的管理、信息的查詢，其中還包括登錄界面以及成績的統(tǒng)計模塊。</p><p>　　各模塊的主要功能如下：</p><p>　　1.系統(tǒng)用戶的管理：實現(xiàn)用戶的添加、刪除和密碼的修改。通過.Hide對象方法隱藏原有窗體界面，通過.Show對象方法顯示所要

8、用到的窗體界面。</p><p>　　2.學(xué)生信息的管理：通過創(chuàng)建數(shù)據(jù)庫，連接數(shù)據(jù)庫，調(diào)用數(shù)據(jù)庫及Data控件Adodc控件，MSHFlexGrid控件的使用來實現(xiàn)學(xué)生信息的添加，查詢，刪除和修改。</p><p>　　3.學(xué)生成績的管理：通過創(chuàng)建數(shù)據(jù)庫，連接數(shù)據(jù)庫，調(diào)用數(shù)據(jù)庫以及Data控件Adodc控件，MSHFlexGrid控件的使用來實現(xiàn)學(xué)生成績的錄入，查詢，刪除和修改。</

9、p><p>　　4．學(xué)生成績信息的統(tǒng)計：實現(xiàn)學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計</p><p><b>　　六．效果及存在問題</b></p><p>　　（1），登陸界面：選擇用戶類型，可選擇教師，學(xué)生，分別進(jìn)入不同界面。功能截圖如圖2所示：</p><p><b>　　圖2 登陸界面</b><

10、/p><p>　　（2），學(xué)生登陸：輸入學(xué)號，輸入學(xué)生密碼，單擊確定即進(jìn)入學(xué)生界面如圖3所示：</p><p><b>　　圖3學(xué)生登錄</b></p><p>　?。?），學(xué)生密碼修改:輸入學(xué)生新密碼。再次輸入學(xué)生新密碼，單擊確定按鈕，修改學(xué)生密碼，功能截圖如圖4所示：</p><p><b>　　圖4修改密碼&

11、lt;/b></p><p>　　（4），主窗體界面：系統(tǒng)用戶的管理：包括用戶的添加、刪除和密碼的修改；學(xué)生信息的管理：包括學(xué)生信息的添加，查詢、刪除和修改；學(xué)生成績的管理：包括學(xué)生成績的錄入，查詢，刪除和修改；學(xué)生成績信息的統(tǒng)計：包括學(xué)生男女生人數(shù)以及不及格人數(shù)的統(tǒng)計。功能截圖如圖5所示：</p><p><b>　　圖5主界面</b></p>

12、<p>　?。?），成績查詢：輸入學(xué)生學(xué)號，單擊查詢按鈕，查詢學(xué)生成績。功能截圖如圖6所示：</p><p><b>　　圖6成績查詢</b></p><p><b>　　七．結(jié)論或心得體會</b></p><p>　　設(shè)計之前由于數(shù)據(jù)庫知識的空白，使得我們毫無頭緒，無從下去手，只是盲目的按照課本和參考資料進(jìn)行設(shè)

13、計和編程，沒有動腦子思考，也沒有進(jìn)行結(jié)構(gòu)的規(guī)劃，使得我們的程序進(jìn)行到一半時夭折，那時候我們就開始意識到，不應(yīng)該盲目，我們認(rèn)真地看了課本，有了數(shù)據(jù)庫的思想和思路，自己又重新規(guī)劃了系統(tǒng)的結(jié)構(gòu)，但是由于時間的關(guān)系，我們錯過了中期檢查，但是我們并沒有氣餒，而是更加熱情地的投入到系統(tǒng)的設(shè)計中，但我們又出現(xiàn)了新問題，我和另一個男生本來分工合作的，可是我們的窗體總是銜接不上，而且數(shù)據(jù)庫也不同，而我們又都想嘗試一下其他窗體的創(chuàng)建，獲得更多的知識，于是我

14、們最終各自完成了各自的管理系統(tǒng)。</p><p>　　這次課程設(shè)計實習(xí)我流的汗和淚，都是以成功的完成課程設(shè)計任務(wù)為收獲的。不斷的調(diào)試，使我認(rèn)識即時丁點的錯誤也可以導(dǎo)致系統(tǒng)的非正常運(yùn)行，細(xì)節(jié)決定成敗。我只有在以后的學(xué)習(xí)之路上做到一絲不茍，才能獲得成功.</p><p>　　面對新的問題，以前的我會覺的十分畏懼，可通過這次實習(xí)，我發(fā)現(xiàn)自己變得勇敢，積極地從正面面對問題，認(rèn)真地查閱資料、動手實踐

15、、和同學(xué)交流，問題便能解決。此次實習(xí)培養(yǎng)了我自主學(xué)習(xí)和動手實踐能力，讓我體會到完成任務(wù)的成就感和喜悅。</p><p><b>　　八．參考文獻(xiàn)</b></p><p>　　1．劉天惠 等. Visual Basic程序設(shè)計教程, 清華大學(xué)出版社. 2006.2</p><p>　　2．李春葆 等. Access2003程序設(shè)計教程(第2版),

16、 清華大學(xué)出版社.2007.1</p><p>　　3．范立南 等. SQL Server2000實用教程, 清華大學(xué)出版社. 2005.2</p><p>　　4. 張宏 等. 30天學(xué)通Visual Basic項目案例開發(fā), 電子工業(yè)出版社.2009.7</p><p>　　5. 龔沛曾 等. Visual Basic程序設(shè)計教程, 高等教育出版社. 2005.

17、2</p><p>　　6. 蔣加伏 等. Visual Basic程序設(shè)計教程, 北京郵電大學(xué)出版社. 2004.1</p><p>　　7. 張路平等.Visual Basic 6.0編程案例精解，電子工業(yè)出版社.2004.3</p><p>　　8. 譚小丹.Visual Basic 6.0數(shù)據(jù)庫編程思想與實踐 ，冶金工業(yè)出版社.2005.6</p>

18、;<p>　　9. 周國民.Visual Basic+Access數(shù)據(jù)庫項目開發(fā)實踐，中國鐵道出版社.2006.5</p><p>　　附錄：各功能程序代碼</p><p>　　Private Sub Command1_Click()</p><p><b>　　dl.Hide</b></p><p>　　

19、xsdl.Show </p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　dl.Hide</b></p><p>　　jsdl.Show

20、 </p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Label1.Width = dl.ScaleWidth</p><p>　　Label1.Left = dl.ScaleWidth <

21、/p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　If Label1.Left + Label1.Width >= 0 Then</p><p>　　Label1.Left = Label1.Left - 50</p&g

22、t;<p><b>　　Else</b></p><p>　　Label1.Left = dl.ScaleWidth </p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Priv

23、ate Sub Command1_Click()</p><p>　　UserName = ""</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "用戶名不能為空，請重新輸入！", vbOKOnly + vbExclamation, &quo

24、t;警告" </p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from mmb where yhm='" & Text1.Text & &q

25、uot;' and mm='" & Text2.Text & "'" </p><p>　　Data1.Refresh </p><p>　　If Data1.Recordset.BOF = True And Data1.Recordset.EOF = True Then</p&

26、gt;<p>　　MsgBox "用戶名或密碼輸入錯誤，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p>　　Text2.SetFocus </p><p><b>　　Else<

27、;/b></p><p>　　UserName = Text1.Text</p><p>　　Text2.Text = ""</p><p><b>　　Me.Hide</b></p><p>　　Form4.Show </p><p><b&g

28、t;　　End If</b></p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text1.Text = ""<

29、/p><p>　　Text2.Text = ""</p><p>　　End Sub </p><p>　　Private Sub Timer1_Timer()</p><p>　　If Label1.Left + Label1.Width >= 0 Then<

30、/p><p>　　Label1.Left = Label1.Left - 50</p><p><b>　　Else</b></p><p>　　Label1.Left = dl.ScaleWidth </p><p><b>　　End If</b></p><p>

31、;<b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　UserName = ""</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox &q

32、uot;用戶名不能為空，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from jsmmb

33、where 用戶名='" & Text1.Text & "' and mm='" & Text2.Text & "'"</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.BOF = True And Data1.Recor

34、dset.EOF = True Then</p><p>　　MsgBox "用戶名或密碼輸入錯誤，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p>　　Text2.SetFocus</p><p><

35、b>　　Else</b></p><p>　　UserName = Text1.Text</p><p><b>　　Me.Hide</b></p><p><b>　　main.Show</b></p><p><b>　　End If</b></p&

36、gt;<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text2.Text = ""</p><p>　　Text3.Te

37、xt = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Timer1_Timer()</p><p>　　If Label3.Left + Label3.Width >= 0 Then</p><p>　　Label3.Left = Lab

38、el3.Left - 50</p><p><b>　　Else</b></p><p>　　Label3.Left = jsdl.ScaleWidth</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p>

39、<p>　　Private Sub Form_Load()</p><p>　　Label3.Width = jsdl.ScaleWidth</p><p>　　Label3.Left = jsdl.ScaleWidth</p><p><b>　　End Sub</b></p><p>　　Private S

40、ub Command1_Click()</p><p><b>　　End</b></p><p>　　End Sub </p><p>　　Private Sub Command2_Click()</p><p><b>　　Me.Hide</b></p>&

41、lt;p>　　xiugaimima.Show </p><p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Data1.RecordSource = "select * from cjb where xh='" &

42、amp; xsdl.Text1.Text & "'"</p><p>　　Data1.Refresh</p><p>　　End Sub </p><p>　　Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) <>

43、; Trim(Text2.Text) Then</p><p>　　MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = "" </p>&l

44、t;p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from mmb where yhm='" & xsdl.Text1.Text & " '"</p><p>　　Data1.Refresh</p><

45、;p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields("mm") = Text1.Text</p><p>　　Data1.Recordset.Update</p><p>　　MsgBox "密碼修改成功！", vbOKOnly + vbExclamati

46、on, "修改密碼"</p><p>　　End If </p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Text1.Text = ""</p><

47、;p>　　Text2.Text = ""</p><p>　　End Sub </p><p>　　Private Sub Command3_Click()</p><p><b>　　Me.Hide</b></p><p>　　Form4.Show </p&g

48、t;<p><b>　　End Sub</b></p><p>　　Private Sub tcxt_Click()</p><p>　　End </p><p><b>　　End Sub</b></p><p>　　Private Sub tjyh_Click

49、()</p><p><b>　　Me.Hide</b></p><p>　　tianjiayonghu.Show </p><p><b>　　End Sub</b></p><p>　　Private Sub xgmm_Click()</p><p><b

50、>　　Me.Hide</b></p><p>　　jiaoshimimaxiugai.Show </p><p><b>　　End Sub</b></p><p>　　Private Sub xmtj_Click()</p><p><b>　　Me.Hide</b></p

51、><p>　　xiangmu#Show </p><p><b>　　End Sub</b></p><p>　　Private Sub xxcx_Click()</p><p><b>　　Me.Hide</b></p><p>　　xinxichaxun.S

52、how</p><p><b>　　End Sub</b></p><p>　　Private Sub xxtj_Click()</p><p><b>　　Me.Hide</b></p><p>　　xueshengxinxitianjia.Show </p><p>

53、<b>　　End Sub</b></p><p>　　Private Sub xxxg_Click()</p><p><b>　　Me.Hide</b></p><p>　　xinxixiugai.Show </p><p><b>　　End Sub</b>&

54、lt;/p><p>　　Private Sub cjcx_Click()</p><p><b>　　main.Hide</b></p><p>　　chengjichaxun.Show </p><p>　　End Sub </p><p>　　Private Sub cjlr_Cli

55、ck()</p><p><b>　　Me.Hide</b></p><p>　　chengjiluru.Show</p><p>　　End Sub </p><p>　　Private Sub cjxg_Click() </p><p><b>

56、;　　Me.Hide</b></p><p>　　chengjixiugai.Show </p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) = "&

57、quot; Then</p><p>　　MsgBox "請輸入用戶名！", vbOKOnly + vbExclamation, "信息提示"</p><p>　　Text1.SetFocus </p><p><b>　　Exit Sub</b></p><p>

58、;<b>　　Else</b></p><p>　　Data1.RecordSource = "select * from jsmmb where yhm='" & Text1.Text & "'"</p><p>　　Data1.Refresh</p><p>　　If

59、 Not Data1.Recordset.EOF Then</p><p>　　MsgBox "用戶已存在，請重新輸入用戶名！", vbOKOnly + vbExclamation, "提示信息"</p><p>　　Text1.SetFocus</p><p>　　Text1.Text = "": Tex

60、t2.Text = "": Text3.Text = ""</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　End If </p><p>　　If Trim(Text

61、2.Text) <> Trim(Text3.Text) Then</p><p>　　MsgBox "兩次輸入的密碼不一樣，請確認(rèn)！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.SetFocus</p><p>　　Text2.Text = "&quo

62、t;</p><p>　　Text3.Text = "" </p><p><b>　　Exit Sub</b></p><p><b>　　Else</b></p><p>　　With Data1</p><p>　　.Recor

63、dset.AddNew</p><p>　　.Recordset.Fields(0) = Trim(Text1.Text)</p><p>　　.Recordset.Fields(1) = Trim(Text2.Text)</p><p>　　.Recordset.Update</p><p><b>　　End With</

64、b></p><p>　　MsgBox "添加用戶成功！", vbOKOnly + vbExclamation, "添加用戶"</p><p><b>　　End If</b></p><p><b>　　End Sub </b></p><p>　　P

65、rivate Sub Command2_Click()</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = "" </p><p><b>　　End Sub<

66、;/b></p><p>　　Private Sub Command3_Click()</p><p><b>　　Me.Hide</b></p><p>　　main.Show </p><p><b>　　End Sub</b></p><p&

67、gt;　　Private Sub Command1_Click()</p><p>　　If Trim(Text1.Text) <> Trim(Text2.Text) Then</p><p>　　MsgBox "密碼輸入不正確!", vbOKOnly + vbExclamation, "信息提示"</p><p>

68、;　　Text1.SetFocus</p><p>　　Text1.Text = "" </p><p><b>　　Else</b></p><p>　　Data1.RecordSource = "select * from mmb where yhm='" & xsdl.Tex

69、t1.Text & " '"</p><p>　　Data1.Refresh</p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields("mm") = Text1.Text</p><p>　　Data1.Record

70、set.Update </p><p>　　MsgBox "密碼修改成功！", vbOKOnly + vbExclamation, "修改密碼"</p><p><b>　　End If</b></p><p>　　End Sub </p><p>　　Pr

71、ivate Sub Command2_Click()</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　End Sub </p><p>　　Private Sub Command3_Click()</

72、p><p><b>　　Me.Hide</b></p><p>　　Form4.Show</p><p><b>　　End Sub </b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text2.Text = &q

73、uot;" Or Text3.Text = "" Then</p><p>　　MsgBox "學(xué)號和姓名不能為空！", vbOKOnly + vbExclamation, "警告"</p><p>　　Exit Sub </p><p><b>　　Else<

74、/b></p><p>　　Data1.RecordSource = "select * from xsxxb where xh='" & Trim(Text2.Text) & " ' "</p><p>　　Data1.Refresh</p><p>　　If Data1.Recor

75、dset.BOF = False And Data1.Recordset.EOF = False Then</p><p>　　MsgBox "輸入的學(xué)號已經(jīng)存在，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text2.Text = ""</p><p&g

76、t;　　Text3.Text = ""</p><p>　　Text2.SetFocus </p><p><b>　　Else</b></p><p>　　Data1.Recordset.AddNew</p><p>　　Data1.Recordset.Fields(0) = Text2.

77、Text</p><p>　　Data1.Recordset.Fields(1) = Text3.Text</p><p>　　Data1.Recordset.Fields(2) = text4.Text</p><p>　　Data1.Recordset.Fields(3) = Text5.Text</p><p>　　Data1.Reco

78、rdset.Fields(4) = Text6.Text</p><p>　　Data1.Recordset.Fields(5) = Text7.Text</p><p>　　Data1.Recordset.Fields(6) = Text8.Text</p><p>　　Data1.Recordset.Update</p><p>　　Ms

79、gBox "添加成功！" </p><p>　　Data2.RecordSource = "select * from cjb where xh='" & Trim(Text2.Text) & " ' "</p><p>　　Data2.Refresh</p><p>

80、;　　Data3.RecordSource = "select * from mmb where yhm='" & Trim(Text2.Text) & " ' "</p><p>　　Data3.Refresh</p><p>　　Data2.Recordset.AddNew</p><p>

81、　　Data2.Recordset.Fields(0) = Text2.Text</p><p>　　Data2.Recordset.Fields(1) = Text3.Text</p><p>　　Data2.Recordset.Update</p><p>　　Data3.Recordset.AddNew</p><p>　　Data3.

82、Recordset.Fields(0) = Text2.Text</p><p>　　Data3.Recordset.Fields(1) = Text2.Text</p><p>　　Data3.Recordset.Update</p><p>　　End If </p><p><b>　　End

83、 If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Me.Hide</b></p><p><b>　　main.Show</b></p&

84、gt;<p><b>　　End Sub </b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請輸入內(nèi)容！"</p><p>　

85、　Else </p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields(0) = Text2.Text</p><p>　　Data1.Recordset.Fields(1) = Text3.Text</p><p>　　Dat

86、a1.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&l

87、t;/p><p>　　Data1.Recordset.Fields(6) = Text8.Text</p><p>　　Text9.Text = Str((Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text)) / 3)</p><p>　　Data1.Recordset.Fields(7) = Text9.Text&l

88、t;/p><p>　　Data1.Recordset.Update</p><p>　　MsgBox "修改成功" </p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p&g

89、t;　　Private Sub Command10_Click()</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "學(xué)號不能為空，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1

90、.SetFocus</p><p>　　Else </p><p>　　Data1.RecordSource = "select * from cjb where xh='" & Text1.Text & " '"</p><p>　　Data1.Refre

91、sh</p><p>　　If Data1.Recordset.EOF Then</p><p>　　MsgBox "學(xué)號不存在，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p><p>　　Text1.SetFocus</p><p>　　Text1.Text =

92、 ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　text4.Text = ""</p><p>　　Text5.Text = ""</p><

93、;p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Text9.Text = "" </p><p>

94、<b>　　Else</b></p><p>　　Text2.Text = Data1.Recordset.Fields(0)</p><p>　　Text3.Text = Data1.Recordset.Fields(1)</p><p>　　text4.Text = Data1.Recordset.Fields(2)</p>

95、<p>　　Text5.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.Records

96、et.Fields(6)</p><p>　　End If </p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()&

97、lt;/p><p><b>　　Me.Hide</b></p><p><b>　　main.Show</b></p><p>　　End Sub </p><p>　　Private Sub Command3_Click()</p><p>　　If Text1.Text

98、= "" Then</p><p>　　MsgBox "請輸入內(nèi)容！"</p><p>　　Else </p><p>　　mybookmark = Data1.Recordset.Bookmark</p><p>　　Str2$ = MsgBox("是否刪除當(dāng)前記錄？"

99、;, vbOKCancel, "刪除當(dāng)前記錄")</p><p>　　If Str2$ = vbOK Then </p><p>　　Data1.Recordset.Delete </p><p>　　Data1.Refresh</p>&

100、lt;p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　text4.Text = ""</p><p>　　Text5.Text = "

101、;"</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Text9.Text = ""</p><p>

102、<b>　　End If</b></p><p>　　End If </p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Combo1.Text = "

103、按學(xué)號" Then</p><p>　　Data1.RecordSource = "select * from xsxxb where xh='" & Text1.Text & "'"</p><p>　　Data1.Refresh</p><p><b>　　Else<

104、;/b></p><p>　　Data1.RecordSource = "select * from xsxxb where xm='" & Text1.Text & "'"</p><p>　　Data1.Refresh</p><p>　　End If

105、 </p><p>　　If Text1.Text = "" Then</p><p>　　Data1.RecordSource = "select * from xsxxb "</p><p>　　Data1.Refresh</p><p><b>　　End If</b>&

106、lt;/p><p>　　End Sub </p><p>　　Private Sub Command2_Click()</p><p><b>　　Me.Hide</b></p><p>　　main.Show </p><p

107、>　　Private Sub Command1_Click()</p><p>　　If Text2.Text = "" Or Text3.Text = "" Or text4.Text = "" Or Text5.Text = "" Or Text7.Text = "" Or Text8.Text = &q

108、uot;" Or Text9.Text = "" Then</p><p>　　MsgBox "內(nèi)容不能為空，請重新輸入！"</p><p>　　Else </p><p>　　Data1.Recordset.Edit</p><p>

109、　　Data1.Recordset.Fields(0) = Text2.Text</p><p>　　Data1.Recordset.Fields(1) = Text3.Text</p><p>　　Data1.Recordset.Fields(2) = text4.Text</p><p>　　Data1.Recordset.Fields(3) = Val(Tex

110、t5.Text)</p><p>　　Data1.Recordset.Fields(4) = Val(Text7.Text)</p><p>　　Data1.Recordset.Fields(5) = Val(Text8.Text)</p><p>　　Data1.Recordset.Fields(6) = Val(Text9.Text)</p>&l

111、t;p>　　Text1.Text = Str((Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text)) / 3)</p><p>　　Data1.Recordset.Fields(7) = Text1.Text</p><p>　　Data1.Recordset.Update</p><p>　　MsgBox

112、"添加成功！" </p><p><b>　　End If</b></p><p>　　'Text2.Text = "": Text3.Text = "": text4.Text = "": Text5.Text = "": Tex

113、t7.Text = "": Text8.Text = "": Text9.Text = ""</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p><b>　　Me.Hide</

114、b></p><p><b>　　main.Show</b></p><p>　　End Sub </p><p>　　Private Sub Command3_Click()</p><p>　　Data1.Recordset.MoveFirst</p><p>　　End Sub

115、 </p><p>　　Private Sub Command4_Click()</p><p>　　Data1.Recordset.MovePrevious</p><p>　　If Data1.Recordset.BOF Then</p><p>　　Data1.Recordset.MoveFirst </p&g

116、t;<p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.R

117、ecordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p>　　End If </p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()&l

118、t;/p><p>　　Data1.Recordset.MoveLast</p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "" Then</p><p&g

119、t;　　MsgBox "請輸入內(nèi)容！"</p><p>　　Else </p><p>　　Data1.Recordset.Edit</p><p>　　Data1.Recordset.Fields(0) = Text2.Text</p><p>　　Data1.Record

120、set.Fields(1) = Text3.Text</p><p>　　Data1.Recordset.Fields(2) = text4.Text</p><p>　　Data1.Recordset.Fields(3) = Text5.Text</p><p>　　Data1.Recordset.Fields(4) = Text6.Text</p>

121、<p>　　Data1.Recordset.Fields(5) = Text7.Text</p><p>　　Data1.Recordset.Fields(6) = Text8.Text</p><p>　　Text9.Text = Str((Val(Text6.Text) + Val(Text8.Text) + Val(Text7.Text)) / 3)</p>

122、<p>　　Data1.Recordset.Fields(7) = Text9.Text</p><p>　　Data1.Recordset.Update</p><p>　　MsgBox "修改成功" </p><p><b>　　End If</b></p>&l

123、t;p><b>　　End Sub</b></p><p>　　Private Sub Command10_Click()</p><p>　　If Trim(Text1.Text) = "" Then</p><p>　　MsgBox "學(xué)號不能為空，請重新輸入！", vbOKOnly + vbE

124、xclamation, "警告"</p><p>　　Text1.SetFocus</p><p>　　Else </p><p>　　Data1.RecordSource = "select * from cjb where xh='" & Text1.Tex

125、t & " '"</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.EOF Then</p><p>　　MsgBox "學(xué)號不存在，請重新輸入！", vbOKOnly + vbExclamation, "警告"</p>

126、<p>　　Text1.SetFocus</p><p>　　Text1.Text = "" </p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　text4.

127、Text = ""</p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p>

128、;<p>　　Text9.Text = ""</p><p><b>　　Else</b></p><p>　　Text2.Text = Data1.Recordset.Fields(0)</p><p>　　Text3.Text = Data1.Recordset.Fields(1)</p>&

129、lt;p>　　text4.Text = Data1.Recordset.Fields(2)</p><p>　　Text5.Text = Data1.Recordset.Fields(3)</p><p>　　Text6.Text = Data1.Recordset.Fields(4)</p><p>　　Text7.Text = Data1.Recordse

130、t.Fields(5)</p><p>　　Text8.Text = Data1.Recordset.Fields(6)</p><p><b>　　End If</b></p><p>　　End If </p><p><b>　　End Sub</b>

131、;</p><p>　　Private Sub Command2_Click()</p><p><b>　　Me.Hide</b></p><p><b>　　main.Show</b></p><p><b>　　End Sub </b></p><p

132、>　　Private Sub Command3_Click()</p><p>　　If Text1.Text = "" Then</p><p>　　MsgBox "請輸入內(nèi)容！"</p><p>　　Else mybookmark = Data1.Records

133、et.Bookmark</p><p>　　Str2$ = MsgBox("是否刪除當(dāng)前記錄？", vbOKCancel, "刪除當(dāng)前記錄")</p><p>　　If Str2$ = vbOK Then</p><p>　　Data1.Recordset.Delete </p><

134、p>　　Data1.Refresh</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　text4.Text = ""</p&g

135、t;<p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Text9.Text =

136、""</p><p>　　End If </p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command1_Clic

137、k()</p><p>　　If Combo1.Text = "按學(xué)號" Then</p><p>　　Data1.RecordSource = "select * from cjb where xh='" & Text1.Text & "'"</p><p>　　Dat