【正文】 ).Value(”total“).Value = vb + math + english Next i End SubPrivate Sub Command2_Click()39。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。填充表格數(shù)據(jù) = 1 = For lngI = 1 To = lngI39。在沒有做課程設(shè)計(jì)以前覺得課程設(shè)計(jì)好難，我可能做不了，但是通過這次做課程設(shè)計(jì)發(fā)現(xiàn)自己錯(cuò)了。通過這次課程設(shè)計(jì)使我明白了自己原來知識(shí)還比較欠缺，自己要學(xué)習(xí)的東西還太多，以前上課沒怎么認(rèn)真聽，現(xiàn)在知道它重要了，幸好為時(shí)不晚，我以后要更加的努力學(xué)好vb。此外，還得出一個(gè)結(jié)論：世上無難事，只怕有心人。在整個(gè)設(shè)計(jì)中我懂得了許多東西，也培養(yǎng)了我獨(dú)立工作的能力，樹立了對(duì)自己工作能力的信心，相信會(huì)對(duì)今后的學(xué)習(xí)工作生活有非常重要的影響。雖然這個(gè)設(shè)計(jì)做的也不太好，但是在設(shè)計(jì)過程中所學(xué)到的東西是這次課程設(shè)計(jì)的最大收獲和財(cái)富，使我終身受益。如果用戶名或密碼三次輸入錯(cuò)誤，則系統(tǒng)自動(dòng)退出。當(dāng)用戶名和密碼均輸入正確，點(diǎn)擊“登陸”按鈕，進(jìn)入主界面——“學(xué)生成績管理系統(tǒng)”界面，該界面是其他子界面的入口，界面如下：進(jìn)入主界面后，點(diǎn)擊“學(xué)生管理（刪除添加）”，進(jìn)入學(xué)生管理界面，界面如下：該界面上有一個(gè)ADO控件，用于連接數(shù)據(jù)庫，當(dāng)用戶在六個(gè)文本框中輸入數(shù)據(jù)時(shí)，點(diǎn)擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時(shí)點(diǎn)擊”刪除“按鈕，則剛才輸入的數(shù)據(jù)就會(huì)被刪除，點(diǎn)擊”保存“按鈕時(shí)，輸入的數(shù)據(jù)就會(huì)自動(dòng)保存在數(shù)據(jù)庫里，點(diǎn)擊”返回主窗體“按鈕，該窗體消失，主窗體出現(xiàn)。下面為輸入條件后查詢的結(jié)果——在主界面點(diǎn)擊“姓名查詢“按鈕后，會(huì)出現(xiàn)如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點(diǎn)擊“查詢“按鈕，就會(huì)在DataGrid控件上顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——在主界面上點(diǎn)擊“各科成績段查詢“按鈕后，會(huì)出現(xiàn)如下界面：點(diǎn)擊“計(jì)算分?jǐn)?shù)段統(tǒng)計(jì)“按鈕后，就會(huì)出現(xiàn)所要查詢的結(jié)果。下面為所現(xiàn)實(shí)的結(jié)果——在主界面點(diǎn)擊“統(tǒng)計(jì)直方圖“按鈕后，出現(xiàn)如下界面：在該界面點(diǎn)擊各個(gè)按鈕后，就會(huì)出現(xiàn)與之相關(guān)科目的成績統(tǒng)計(jì)直方圖，下面為查詢的結(jié)果——在主界面點(diǎn)擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：點(diǎn)擊按鈕查詢后，結(jié)果就會(huì)在界面上顯示出來。建立如下數(shù)據(jù)庫(學(xué)號(hào)、姓名、班級(jí)、英語、數(shù)學(xué)、VB、總分、排名)建立如下圖的所有界面：ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：（這一步在設(shè)計(jì)界面的同時(shí)完成）（1）、如何加載ADO控件： 步驟1：步驟2：步驟3：各個(gè)界面的ADO控件如何連接數(shù)據(jù)庫（分兩步）：步驟1：如下面界面中的5個(gè)步驟步驟2：選中ADO控件Adodc1，點(diǎn)擊鼠標(biāo)右鍵選擇屬性，然后界面設(shè)置如下：控件綁定數(shù)據(jù)庫的字段操作說明：屬性設(shè)置說明：下面以學(xué)號(hào)為例，姓名、班級(jí)等都可參考此。設(shè)置DataSource:設(shè)置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實(shí)現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 。以下為各個(gè)界面所對(duì)應(yīng)的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zg” And = “10902” Then ElseMsgBox “用戶名或密碼錯(cuò)誤,請重新輸入”, 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?！? 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?！? 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。用Data屬性向MSChart數(shù)據(jù)網(wǎng)格填充數(shù)據(jù) = Val((”vb“).Value) = (”name“).ValueNext lngI = ”VB成績直方圖“ End SubPrivate Sub Command2_Click()39。用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五、總結(jié)和體會(huì)想來，當(dāng)時(shí)那會(huì)兒聽說要搞vb課程設(shè)計(jì)的時(shí)候，我可是相當(dāng)激動(dòng)啊，心想，學(xué)的東西終于可以用一用了。這對(duì)于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時(shí)半會(huì)兒，不知道從哪里下手，好在功夫不負(fù)有心人，經(jīng)過幾天時(shí)間的摸索和操作，這個(gè)學(xué)生成績管理系統(tǒng)的雛形終于是出現(xiàn)了，雖說功能不