【正文】 面中的5個步驟步驟2：選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設置如下：控件綁定數(shù)據(jù)庫的字段操作說明：屬性設置說明：下面以學號為例，姓名、班級等都可參考此。將學號對應的文本框Text1連接Adodc1顯示數(shù)據(jù)庫中的學號，需要設置DataSource和DataField兩個屬性,首先選中Text1文本框，并進行下面的兩步操作，即可綁定數(shù)據(jù)庫的學號字段。設置DataSource:設置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 。說明：DataGrid控件屬性設置四、系統(tǒng)功能設計系統(tǒng)功能的設計，其核心就是程序代碼的編寫過程，如何讓讓系統(tǒng)更加完善、界面更加友好呢，這就得益于代碼的編寫。以下為各個界面所對應的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zg” And = “10902” Then ElseMsgBox “用戶名或密碼錯誤,請重新輸入”, vbMsgBoxSetForeground, “系統(tǒng)提示！” End IfStatic t As Integer t = t + 1 If t = 3 Then End End SubPrivate Sub Command2_Click()a = MsgBox(“確定要退出本系統(tǒng)嗎？”, 3 + 32 + 256, “系統(tǒng)提示！”)If a = 6 Then Unload Me End If End Sub該界面代碼如下：Private Sub Command1_Click() End Sub Private Sub Command10_Click() End Sub Private Sub Command3_Click() End Sub Private Sub Command4_Click() End Sub Private Sub Command5_Click() End SubPrivate Sub Command6_Click() End Sub Private Sub Command7_Click() End Sub Private Sub Command8_Click() End Sub Private Sub Command9_Click() End Sub該界面代碼如下：Private Sub Command1_Click() End SubPrivate Sub Command2_Click()If = 0 Or ThenExit Sub End If If = 0 ThenExit Sub End If If Then End SubPrivate Sub Command4_Click() End SubPrivate Sub Command5_Click()Unload Me End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “ ” + kc_條件 End SubPrivate Sub Form_Load()kc_條件 = “=92” kc = “vb” End SubPrivate Sub Option1_Click()kc = “VB” End Sub Private Sub Option2_Click()kc = “math” End Sub Private Sub Option3_Click()kc = “English” End Sub該界面代碼如下：Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39。” + kc_條件 + “39?！? End SubPrivate Sub Form_Load()kc = “name” End Sub該界面代碼如下： Dim kc_條件 As String Dim kc As String Private Sub Command1_Click()kc_條件 = = “select * from stu where ” + kc + “=39。” + kc_條件 + “39?！? End SubPrivate Sub Form_Load()kc = “class” End Sub該界面代碼如下：Private Sub Command1_Click()Dim vb_A As IntegerDim vb_B As IntegerDim vb_C As IntegerDim vb_D As IntegerDim vb_E As IntegerDim Math_A As IntegerDim Math_B As IntegerDim Math_C As IntegerDim Math_D As IntegerDim Math_E As IntegerDim English_A As IntegerDim English_B As IntegerDim English_C As IntegerDim English_D As IntegerDim English_E As Integer = “select * from stu where vb=90”vb_A = = vb_A = “select * from stu where vb=80 and vbvb_B = = vb_B = “select * from stu where vb=70 and vbvb_C = = vb_C = “select * from stu where vb=60”vb_D = = vb_D = “select * from stu where vbvb_B = = vb_E = “select * from stu where math=90”Math_A = = Math_A = “select * from stu where math=80 and mathMath_B = = Math_B = “select * from stu where math=70 and mathMath_C = = Math_C = “select * from stu where math=60 ”Math_D = = Math_D = “select * from stu where mathMath_E = = Math_E = “select * from stu where english=90”English_A = = English_A = “select * from stu where english=80 and englishEnglish_B = = English_B = “select * from stu where english=70 and englishEnglish_C = = English_C = “select * from stu where english=60”English_D = = English_D = “select * from stu where englishEnglish_E = = English_E End SubPrivate Sub Form_Load() = “ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ = ”“ End Sub該界面代碼如下：Private Sub Command1_Click() = ”select * from stu order by total desc“ For i = 1 To (”mc“).Value = iNext i End SubPrivate Sub Command2_Click() For i = 1 To (”mc“).Value = Null Next i End Sub該界面代碼如下：Private Sub Command1_Click()39。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((”vb“).Value) = (”name“).ValueNext lngI = ”VB成績直方圖“ End SubPrivate Sub Command2_Click()39。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((”math“).Value) = (”name“).ValueNext lngI = ”Math成績直方圖“ End Sub該界面代碼如下Private Sub Command1_Click()Dim vb As Integer Dim math As Integer Dim english As Integer = ”select * from stu where((math+english+vb)/3=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=60 and english=60 and math=60) End Sub五、總結和體會想來，當時那會兒聽說要搞vb課程設計的時候，我可是相當激動啊，心想，學的東西終于可以用一用了。并且這次的Vb課程設計要持續(xù)兩周的時間，主要是用vb+access相關的知識來實現(xiàn)學生成績和信息的管理。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時半會兒，不知道從哪里下手，好在功夫不負有心人，經(jīng)過幾天時間的摸索和操作，這個學生成績管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說功能不太完善，但還是能滿足基本要求，這讓我很是欣慰。兩周的時間并不長，一晃就到了，課程設計也要畫上句號了。在這一段時間里里，不能說我的vb編程能力有了多么大的提高，多么大的飛躍，但我敢說我對vb和數(shù)據(jù)庫相關的知識有了更加深刻的了解和體會，總結起來主要有以下幾點：想要用vb做出好的東西來，一定要勤動手，不能光看，因為好多錯誤憑看是看不出來的，只有通過自己不斷的操作和修改，才能對vb的語法結構和流程有自己獨到的理解；在編程和調試的過程中，總會出現(xiàn)一些意想不到的問題。我發(fā)現(xiàn)并不是每一個問題都能從資料中得到解決方法，有些問題是無法預料的，這個時候就得靠自己去分析了，你必須得非常的細心，一步一步的進行調試和修改，而且不能急，往往有的錯誤就是在你急躁的時候從你眼皮底下溜過去的，這樣又得重新檢查，到頭來，既費時又費力，實在不行，還可以和同學一起進行討論；在寫代碼的時候，一定要養(yǎng)成良好的語法習慣，對窗體和控件的name屬性和caption屬性，要盡量習慣用相對應的英文單詞的縮寫或簡寫，因為這樣便于自己的查找和修改，還有就是在寫代碼的時候，不要圖簡單，一些語法結構總是不寫全，老是用最簡單的形式，如果你對vb語法結構很熟的話，這沒問題，但對于我們這樣的初學者來說，一定不要這樣，因為時間長了的話，對一些復雜一點的程序理解起來會很吃力的，而且對其的運行過程的了解不能達到透徹；在數(shù)據(jù)庫的操作部分，一定檢驗一下數(shù)據(jù)源的連接成功與否，還有就是在控件與數(shù)據(jù)庫連接的時候，不要忘了每個控件的datasource屬性和datafield屬性，要確保其于數(shù)據(jù)庫的成功連接。經(jīng)過本次的vb課程設計，讓我對vb的軟件開發(fā)流程，整體籌劃發(fā)面有了一定的了解和提高，雖說我的專業(yè)并不是計算機或者軟件工程相關的專業(yè)，但我對vb編程的熱情絲毫不弱，我相信有了這次的經(jīng)歷，對我以后vb的學習有很大的幫助，并祝我在vb或者其他類型的計算機語言的編程道路上走得更遠。