vb學生成績管理系統(tǒng)課程設計報告

1、<p><b>　　VB程序設計</b></p><p><b>　　課程設計報告</b></p><p><b>　　班 級： </b></p><p><b>　　姓 名： </b></p><p><b>　　序

2、 號： </b></p><p><b>　　指導老師： </b></p><p><b>　　目 錄</b></p><p><b>　　1、課設的目的3</b></p><p>　　2、界面設計和功能設計3</p><p>　　3、

3、系統(tǒng)功能實施12</p><p>　　4、系統(tǒng)功能設計19</p><p>　　5、總結(jié)和體會28</p><p><b>　　一、課設的目的</b></p><p>　　1.通過本次課程設計，提高實踐動手能力；</p><p>　　2.通過本次課程設計，進一步理解計算機程序設計的思路與方法

4、；</p><p>　　3.通過本次課程設計，進一步熟練運用VB的語言元素和流程控制語句；</p><p>　　4.通過本次課程設計，達到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷耄?lt;/p><p>　　5.通過本次課程設計，熟悉用戶界面的設計；</p><p>　　6.通過本次課程設計，熟悉數(shù)據(jù)訪問控件ADO及相關對象的使用，能基于A

5、DO控件實現(xiàn)Access的數(shù)據(jù)訪問與操縱； </p><p>　　二、界面設計和功能設計</p><p>　　1、下面的界面為用戶登陸界面：</p><p>　　用戶名和密碼均已設定，用戶名為zg，密碼為10902，只有輸入正確，然后點擊“登陸“按鈕才能進入主界面。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。 當你點擊“退出“按鈕時，彈出一個對話窗，界面如下：&

6、lt;/p><p>　　在對話框上點擊“是”按鈕，則退出系統(tǒng)，如果點擊“否”，則該界面不變。</p><p>　　2、當用戶名和密碼均輸入正確，點擊“登陸”按鈕，進入主界面——“學生成績管理系統(tǒng)”界面，該界面是其他子界面的入口，界面如下：</p><p>　　3、進入主界面后，點擊“學生管理（刪除\添加）”，進入學生管理界面，界面如下：</p><p

7、>　　該界面上有一個ADO控件，用于連接數(shù)據(jù)庫，當用戶在六個文本框中輸入數(shù)據(jù)時，點擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數(shù)據(jù)就會被刪除，點擊”保存“按鈕時，輸入的數(shù)據(jù)就會自動保存在數(shù)據(jù)庫里，點擊”返回主窗體“按鈕，該窗體消失，主窗體出現(xiàn)。</p><p>　　4、在主界面點擊“各科成績查詢“按鈕，出現(xiàn)如下界面：</p><p>　　該界面有一

8、個ADO控件，用來連接數(shù)據(jù)庫，還有一個DataGrid控件，用來顯示學生成績的查詢結(jié)果，當用戶選擇了要查詢的科目和條件后，點擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——</p><p>　　5、在主界面點擊“姓名查詢“按鈕后，會出現(xiàn)如下界面：</p><p>　　該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在Da

9、taGrid控件上顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——</p><p>　　5、在主界面點擊“班級查詢“按鈕后，會出現(xiàn)如下界面：</p><p>　　在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——</p><p>　　6、在主界面上點擊“各科成績段查詢“按鈕后，會出現(xiàn)如下界面：</p&g

10、t;<p>　　點擊“計算分數(shù)段統(tǒng)計“按鈕后，就會出現(xiàn)所要查詢的結(jié)果。下面為查詢的結(jié)果——</p><p>　　7、在主界面點擊“排名“按鈕后，出現(xiàn)如下界面：</p><p>　　在該界面上點擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結(jié)果，點擊”清除排名“按鈕后，剛才結(jié)果消失，顯示原來結(jié)果。下面為所現(xiàn)實的結(jié)果——</p><p>

11、;　　8、在主界面點擊“統(tǒng)計直方圖“按鈕后，出現(xiàn)如下界面：</p><p>　　在該界面點擊各個按鈕后，就會出現(xiàn)與之相關科目的成績統(tǒng)計直方圖，下面為查詢的結(jié)果——</p><p>　　9、在主界面點擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：</p><p>　　點擊按鈕查詢后，結(jié)果就會在界面上顯示出來。下面為所查詢的結(jié)果——</p><p><

12、b>　　三、系統(tǒng)功能實施</b></p><p>　　以上展示的是系統(tǒng)的所有界面，怎樣才能讓這所有的功能實現(xiàn)呢？數(shù)據(jù)庫和ADO控件的使用便是其中的關鍵。</p><p><b>　　1、建立如下數(shù)據(jù)庫</b></p><p>　　(學號、姓名、班級、英語、數(shù)學、VB、總分、排名)</p><p>　　2

13、、建立如下圖的所有界面：</p><p>　　3、ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：（這一步在設計界面的同時完成）</p><p>　　（1）、如何加載ADO控件：</p><p><b>　　步驟1：</b></p><p><b>　　步驟2：</b></p>

14、<p><b>　　步驟3：</b></p><p>　　各個界面的ADO控件如何連接數(shù)據(jù)庫（分兩步）：</p><p><b>　　步驟1：</b></p><p>　　如下面界面中的5個步驟</p><p><b>　　步驟2：</b></p>&l

15、t;p>　　選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設置如下：</p><p>　　控件綁定數(shù)據(jù)庫的字段操作說明：</p><p>　　屬性設置說明：下面以學號為例，姓名、班級等都可參考此。將學號對應的文本框Text1連接Adodc1顯示數(shù)據(jù)庫中的學號，需要設置DataSource和DataField兩個屬性,首先選中Text1文本框，并進行下面的兩步操作，即可綁定

16、數(shù)據(jù)庫的學號字段。</p><p>　　設置DataSource:</p><p>　　設置DataField:</p><p>　?。?）、如何加載DataGrid控件</p><p>　　控件DataGrid，可以實現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 6.0中。</p>&l

17、t;p>　　說明：DataGrid控件屬性設置</p><p><b>　　四、系統(tǒng)功能設計</b></p><p>　　系統(tǒng)功能的設計，其核心就是程序代碼的編寫過程，如何讓讓系統(tǒng)更加完善、界面更加友好呢，這就得益于代碼的編寫。以下為各個界面所對應的代碼——</p><p><b>　　該界面代碼如下：</b><

18、;/p><p>　　Private Sub Command1_Click()</p><p>　　If Text1.Text = "zg" And Text2.Text = "10902" Then</p><p>　　mainfrm.Show</p><p>　　dlfrm.Hide</p>

19、<p><b>　　Else</b></p><p>　　MsgBox "用戶名或密碼錯誤,請重新輸入", vbMsgBoxSetForeground, "系統(tǒng)提示?。?quot;</p><p><b>　　End If</b></p><p>　　Static t As Int

20、eger</p><p><b>　　t = t + 1</b></p><p>　　If t >= 3 Then End</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>

21、　　a = MsgBox("確定要退出本系統(tǒng)嗎？", 3 + 32 + 256, "系統(tǒng)提示??！")</p><p>　　If a = 6 Then</p><p><b>　　Unload Me</b></p><p><b>　　End If</b></p><

22、;p><b>　　End Sub</b></p><p><b>　　該界面代碼如下： </b></p><p>　　Private Sub Command1_Click()</p><p>　　xsglfrm.Show</p><p><b>　　End Sub</b>

23、</p><p>　　Private Sub Command10_Click()</p><p>　　ydsfrm.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command3_Click()</p><p>　　jszffrm.Sho

24、w</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p><p>　　pmfrm.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Co

25、mmand5_Click()</p><p>　　zftjtfrm.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command6_Click()</p><p>　　cjcxfrm.Show</p><p><b>　　End

26、 Sub</b></p><p>　　Private Sub Command7_Click()</p><p>　　xmcxfrm.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command8_Click()</p><p>

27、;　　bjcxfrm.Show</p><p><b>　　End Sub</b></p><p>　　Private Sub Command9_Click()</p><p>　　gkcjfrm.Show</p><p><b>　　End Sub</b></p><p>

28、<b>　　該界面代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Me.Adodc1.Recordset.AddNew</p><p><b>　　End Sub</b></p><p>　　Private Sub Command

29、2_Click()</p><p>　　If Me.Adodc1.Recordset.RecordCount = 0 Or Me.Adodc1.Recordset.EOF Then</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>

30、;　　Me.Adodc1.Recordset.Delete</p><p>　　Me.Adodc1.Recordset.MoveNext</p><p>　　If Me.Adodc1.Recordset.RecordCount = 0 Then</p><p><b>　　Exit Sub</b></p><p><

31、;b>　　End If</b></p><p>　　If Me.Adodc1.Recordset.EOF Then Me.Adodc1.Recordset.MoveLast</p><p><b>　　End Sub</b></p><p>　　Private Sub Command4_Click()</p>&

32、lt;p>　　Me.Adodc1.Recordset.Save</p><p><b>　　End Sub</b></p><p>　　Private Sub Command5_Click()</p><p><b>　　Unload Me</b></p><p>　　mainfrm.Show

33、</p><p><b>　　End Sub</b></p><p><b>　　該界面代碼如下：</b></p><p>　　Dim kc_條件 As String</p><p>　　Dim kc As String</p><p>　　Private Sub Comma

34、nd1_Click()</p><p>　　kc_條件 = Me.Text1</p><p>　　Me.Adodc1.RecordSource = "select * from stu where " + kc + " " + kc_條件</p><p>　　Me.Adodc1.Refresh</p><p

35、><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　kc_條件 = ">=92"</p><p><b>　　kc = "vb"</b></p><p><b>　

36、　End Sub</b></p><p>　　Private Sub Option1_Click()</p><p><b>　　kc = "VB"</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Option2

37、_Click()</p><p>　　kc = "math"</p><p><b>　　End Sub</b></p><p>　　Private Sub Option3_Click()</p><p>　　kc = "English"</p><p>&

38、lt;b>　　End Sub</b></p><p><b>　　該界面代碼如下：</b></p><p>　　Dim kc_條件 As String</p><p>　　Dim kc As String</p><p>　　Private Sub Command1_Click()</p>

39、<p>　　kc_條件 = Me.Text1</p><p>　　Me.Adodc1.RecordSource = "select * from stu where " + kc + "='" + kc_條件 + "'"</p><p>　　Me.Adodc1.Refresh</p>&l

40、t;p><b>　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　kc = "name"</p><p><b>　　End Sub</b></p><p><b>　　該界面代碼如下：</b

41、></p><p>　　Dim kc_條件 As String</p><p>　　Dim kc As String</p><p>　　Private Sub Command1_Click()</p><p>　　kc_條件 = Me.Text1</p><p>　　Me.Adodc1.RecordSource

42、 = "select * from stu where " + kc + "='" + kc_條件 + "'"</p><p>　　Me.Adodc1.Refresh</p><p><b>　　End Sub</b></p><p>　　Private Sub For

43、m_Load()</p><p>　　kc = "class"</p><p><b>　　End Sub</b></p><p><b>　　該界面代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p

44、>　　Dim vb_A As Integer</p><p>　　Dim vb_B As Integer</p><p>　　Dim vb_C As Integer</p><p>　　Dim vb_D As Integer</p><p>　　Dim vb_E As Integer</p><p>　　Dim

45、Math_A As Integer</p><p>　　Dim Math_B As Integer</p><p>　　Dim Math_C As Integer</p><p>　　Dim Math_D As Integer</p><p>　　Dim Math_E As Integer</p><p>　　Dim

46、English_A As Integer</p><p>　　Dim English_B As Integer</p><p>　　Dim English_C As Integer</p><p>　　Dim English_D As Integer</p><p>　　Dim English_E As Integer</p>

47、<p>　　Me.Adodc1.RecordSource = "select * from stu where vb>=90"</p><p>　　Me.Adodc1.Refresh</p><p>　　vb_A = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text1 = vb_A

48、</p><p>　　Me.Adodc1.RecordSource = "select * from stu where vb>=80 and vb<90"</p><p>　　Me.Adodc1.Refresh</p><p>　　vb_B = Me.Adodc1.Recordset.RecordCount</p>&

49、lt;p>　　Me.Text2 = vb_B</p><p>　　Me.Adodc1.RecordSource = "select * from stu where vb>=70 and vb<80"</p><p>　　Me.Adodc1.Refresh</p><p>　　vb_C = Me.Adodc1.Recordset

50、.RecordCount</p><p>　　Me.Text3 = vb_C</p><p>　　Me.Adodc1.RecordSource = "select * from stu where vb>=60"</p><p>　　Me.Adodc1.Refresh</p><p>　　vb_D = Me.Adod

51、c1.Recordset.RecordCount</p><p>　　Me.Text4 = vb_D</p><p>　　Me.Adodc1.RecordSource = "select * from stu where vb<60"</p><p>　　Me.Adodc1.Refresh</p><p>　　vb_

52、B = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text5 = vb_E</p><p>　　Me.Adodc1.RecordSource = "select * from stu where math>=90"</p><p>　　Me.Adodc1.Refresh</p>

53、<p>　　Math_A = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text6 = Math_A</p><p>　　Me.Adodc1.RecordSource = "select * from stu where math>=80 and math<90"</p><p&g

54、t;　　Me.Adodc1.Refresh</p><p>　　Math_B = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text7 = Math_B</p><p>　　Me.Adodc1.RecordSource = "select * from stu where math>=70 and ma

55、th<80"</p><p>　　Me.Adodc1.Refresh</p><p>　　Math_C = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text8 = Math_C</p><p>　　Me.Adodc1.RecordSource = "select *

56、from stu where math>=60 "</p><p>　　Me.Adodc1.Refresh</p><p>　　Math_D = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text9 = Math_D</p><p>　　Me.Adodc1.RecordSourc

57、e = "select * from stu where math<60"</p><p>　　Me.Adodc1.Refresh</p><p>　　Math_E = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text10 = Math_E</p><p>　　Me.

58、Adodc1.RecordSource = "select * from stu where english>=90"</p><p>　　Me.Adodc1.Refresh</p><p>　　English_A = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text11 = English

59、_A</p><p>　　Me.Adodc1.RecordSource = "select * from stu where english>=80 and english<90"</p><p>　　Me.Adodc1.Refresh</p><p>　　English_B = Me.Adodc1.Recordset.RecordC

60、ount</p><p>　　Me.Text12 = English_B</p><p>　　Me.Adodc1.RecordSource = "select * from stu where english>=70 and english<80"</p><p>　　Me.Adodc1.Refresh</p><

61、p>　　English_C = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text13 = English_C</p><p>　　Me.Adodc1.RecordSource = "select * from stu where english>=60"</p><p>　　Me.Ad

62、odc1.Refresh</p><p>　　English_D = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text14 = English_D</p><p>　　Me.Adodc1.RecordSource = "select * from stu where english<60"&

63、lt;/p><p>　　Me.Adodc1.Refresh</p><p>　　English_E = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Text15 = English_E</p><p><b>　　End Sub</b></p><p>　

64、　Private Sub Form_Load()</p><p>　　Text1.Text = ""</p><p>　　Text2.Text = ""</p><p>　　Text3.Text = ""</p><p>　　Text4.Text = ""<

65、/p><p>　　Text5.Text = ""</p><p>　　Text6.Text = ""</p><p>　　Text7.Text = ""</p><p>　　Text8.Text = ""</p><p>　　Text10.Te

66、xt = ""</p><p>　　Text11.Text = ""</p><p>　　Text12.Text = ""</p><p>　　Text13.Text = ""</p><p>　　Text14.Text = ""</p&

67、gt;<p>　　Text15.Text = ""</p><p><b>　　End Sub</b></p><p><b>　　該界面代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Me.Ad

68、odc1.RecordSource = "select * from stu order by total desc"</p><p>　　Me.Adodc1.Refresh</p><p>　　Me.Adodc1.Recordset.MoveFirst</p><p>　　For i = 1 To Me.Adodc1.Recordset.Rec

69、ordCount</p><p>　　Me.Adodc1.Recordset.Fields("mc").Value = i</p><p>　　Me.Adodc1.Recordset.Update</p><p>　　Me.Adodc1.Recordset.MoveNext</p><p><b>　　Next

70、i</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Me.Adodc1.Recordset.MoveFirst</p><p>　　For i = 1 To Me.Adodc1.Recordset.R

71、ecordCount</p><p>　　Me.Adodc1.Recordset.Fields("mc").Value = Null</p><p>　　Me.Adodc1.Recordset.Update</p><p>　　Me.Adodc1.Recordset.MoveNext</p><p><b>　　

72、Next i</b></p><p><b>　　End Sub</b></p><p><b>　　該界面代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　Me.Adodc1.Refresh</p>&l

73、t;p><b>　　'填充表格數(shù)據(jù)</b></p><p>　　MSChart1.RowCount = 1</p><p>　　MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Adodc1.Recordset.MoveFirst</p&g

74、t;<p>　　For lngI = 1 To Me.Adodc1.Recordset.RecordCount</p><p>　　MSChart1.Column = lngI</p><p>　　'用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù)</p><p>　　MSChart1.Data = Val(Adodc1.Recordset.Fi

75、elds("vb").Value)</p><p>　　MSChart1.ColumnLabel = Adodc1.Recordset.Fields("name").Value</p><p>　　Adodc1.Recordset.MoveNext</p><p><b>　　Next lngI</b>&

76、lt;/p><p>　　MSChart1.RowLabel = "VB成績直方圖"</p><p><b>　　End Sub</b></p><p>　　Private Sub Command2_Click()</p><p>　　Me.Adodc1.Refresh</p><p&g

77、t;<b>　　'填充表格數(shù)據(jù)</b></p><p>　　MSChart1.RowCount = 1</p><p>　　MSChart1.ColumnCount = Me.Adodc1.Recordset.RecordCount</p><p>　　Me.Adodc1.Recordset.MoveFirst</p>&

78、lt;p>　　For lngI = 1 To Me.Adodc1.Recordset.RecordCount</p><p>　　MSChart1.Column = lngI</p><p>　　'用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù)</p><p>　　MSChart1.Data = Val(Adodc1.Recordset.Fields(

79、"math").Value)</p><p>　　MSChart1.ColumnLabel = Adodc1.Recordset.Fields("name").Value</p><p>　　Adodc1.Recordset.MoveNext</p><p><b>　　Next lngI</b><

80、/p><p>　　MSChart1.RowLabel = "Math成績直方圖"</p><p><b>　　End Sub</b></p><p><b>　　該界面代碼如下</b></p><p>　　Private Sub Command1_Click()</p>

81、<p>　　Dim vb As Integer</p><p>　　Dim math As Integer</p><p>　　Dim english As Integer</p><p>　　Me.Adodc1.RecordSource = "select * from stu where ((math+english+vb)/3>=

82、90) or((math+english+vb)/3>=85 and (math=100 or english=100 or vb=100 ))or((vb+english+math)/3>=85 and ((vb>=95 and english >=95)or (english>=95 and math>=95)or ( math>=95 and vb>=95 )))and (mc&l

83、t;=3) and (vb>=60 and english>=60 and math>=60)"</p><p>　　Me.Adodc1.Refresh</p><p><b>　　End Sub</b></p><p><b>　　五、總結(jié)和體會</b></p><p>

84、;　　想來，當時那會兒聽說要搞vb課程設計的時候，我可是相當激動啊，心想，學的東西終于可以用一用了。并且這次的Vb課程設計要持續(xù)兩周的時間，主要是用vb+access相關的知識來實現(xiàn)學生成績和信息的管理。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時半會兒，不知道從哪里下手，好在功夫不負有心人，經(jīng)過幾天時間的摸索和操作，這個學生成績管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說功能不太完善，

85、但還是能滿足基本要求，這讓我很是欣慰。</p><p>　　兩周的時間并不長，一晃就到了，課程設計也要畫上句號了。在這一段時間里里，不能說我的vb編程能力有了多么大的提高，多么大的飛躍，但我敢說我對vb和數(shù)據(jù)庫相關的知識有了更加深刻的了解和體會，總結(jié)起來主要有以下幾點：</p><p>　　1、想要用vb做出好的東西來，一定要勤動手，不能光看，因為好多錯誤憑看是看不出來的，只有通過自己不斷

86、的操作和修改，才能對vb的語法結(jié)構(gòu)和流程有自己獨到的理解；</p><p>　　2、在編程和調(diào)試的過程中，總會出現(xiàn)一些意想不到的問題。我發(fā)現(xiàn)并不是每一個問題都能從資料中得到解決方法，有些問題是無法預料的，這個時候就得靠自己去分析了，你必須得非常的細心，一步一步的進行調(diào)試和修改，而且不能急，往往有的錯誤就是在你急躁的時候從你眼皮底下溜過去的，這樣又得重新檢查，到頭來，既費時又費力，實在不行，還可以和同學一起進行討論

87、；</p><p>　　3、在寫代碼的時候，一定要養(yǎng)成良好的語法習慣，對窗體和控件的name屬性和caption屬性，要盡量習慣用相對應的英文單詞的縮寫或簡寫，因為這樣便于自己的查找和修改，還有就是在寫代碼的時候，不要圖簡單，一些語法結(jié)構(gòu)總是不寫全，老是用最簡單的形式，如果你對vb語法結(jié)構(gòu)很熟的話，這沒問題，但對于我們這樣的初學者來說，一定不要這樣，因為時間長了的話，對一些復雜一點的程序理解起來會很吃力的，而且對

88、其的運行過程的了解不能達到透徹；</p><p>　　4、在數(shù)據(jù)庫的操作部分，一定檢驗一下數(shù)據(jù)源的連接成功與否，還有就是在控件與數(shù)據(jù)庫連接的時候，不要忘了每個控件的datasource屬性和datafield屬性，要確保其于數(shù)據(jù)庫的成功連接。</p><p>　　經(jīng)過本次的vb課程設計，讓我對vb的軟件開發(fā)流程，整體籌劃發(fā)面有了一定的了解和提高，雖說我的專業(yè)并不是計算機或者軟件工程相關的專