學生成績管理系統vb程序(文件)

　

【正文】 繪制圖表。（3）“添加”：其中院系、專業和年級使用組合框進行選擇。（7）“圖表繪制”：分別以二維條形圖、二維圓餅圖和三維條形圖的形式顯示學生成績中優、良、中、及格和不及格的分布情況。④ 其他界面自行設計，滿足基本功能要求即可。 amp。 datasource.CommandType = adCmdTable.RecordSource = “yx”.RefreshEnd With五、課程設計時間：2012年5月10日至2012年7月1日六、課程設計進行地點：學校機房七、書寫設計報告的要求：設計報告中包含以下幾個方面：①劃分功能模塊②確定各模塊的算法，并加以必要的注釋，有何收獲及心得體會八、課程設計的考核方式及評分方法402課程設計結束時，學生要提交課程設計報告（A4紙打印），并將電子文檔和源程序上傳至課程設計服務器中：ftp://找到自已指導教師的文件夾后，進入班級文件夾，再找到自己的文件夾，然后將文檔復制到該文件夾中即可。當用戶名和密碼均輸入正確，點擊“登陸”按鈕，進入主界面——“學生成績管理系統”界面，該界面是其他子界面的入口，界面如下：進入主界面后，點擊“學生管理（刪除添加）”，進入學生管理界面，界面如下該界面上有一個ADO控件，用于連接數據庫，當用戶在六個文本框中輸入數據時，點擊“添加“按鈕，可以將數據錄入到數據庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數據就會被刪除，點擊”保存“按鈕時，輸入的數據就會自動保存在數據庫里，點擊”返回主窗體“按鈕，該窗體消失，主窗體出現。下面為輸入條件后查詢的結果——在主界面上點擊“各科成績段查詢“按鈕后，會出現如下界面：點擊“計算分數段統計“按鈕后，就會出現所要查詢的結果。建立如下數據庫(學號、姓名、班級、英語、數學、VB、總分、排名)建立如下圖的所有界面：ADO控件和DataGrid控件以及數據庫的連接步驟：（這一步在設計界面的同時完成）（1）、如何加載ADO控件： 步驟1：步驟2：步驟3：各個界面的ADO控件如何連接數據庫（分兩步）：步驟1：如下面界面中的5個步驟步驟2：選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設置如下：控件綁定數據庫的字段操作說明：屬性設置說明：下面以學號為例，姓名、班級等都可參考此。” + kc_條件 + “39。計算總分 Dim vb As IntegerDim math As Integer Dim english As Integer For i = 1 To vb = (”vb“).Valuemath = (”math“).Valueenglish = (”english“).Value(”total“).Value = vb + math + english Next i End SubPrivate Sub Command2_Click()39。填充表格數據 = 1 = For lngI = 1 To = lngI39。通過這次課程設計使我明白了自己原來知識還比較欠缺，自己要學習的東西還太多，以前上課沒怎么認真聽，現在知道它重要了，幸好為時不晚，我以后要更加的努力學好vb。在整個設計中我懂得了許多東西，也培養了我獨立工作的能力，樹立了對自己工作能力的信心，相信會對今后的學習工作生活有非常重要的影響。如果用戶名或密碼三次輸入錯誤，則系統自動退出。下面為輸入條件后查詢的結果——在主界面點擊“姓名查詢“按鈕后，會出現如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在DataGrid控件上顯示所要查詢的結果。下面為所現實的結果——在主界面點擊“統計直方圖“按鈕后，出現如下界面：在該界面點擊各個按鈕后，就會出現與之相關科目的成績統計直方圖，下面為查詢的結果——在主界面點擊“優等生“按鈕后，出現如下界面：點擊按鈕查詢后，結果就會在界面上顯示出來。設置DataSource:設置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實現數據的批量處理，該控件在控件庫Microsoft DataGrid Control 。” 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。用Data屬性向MSChart數據網格填充數據 = Val((”vb“).Value) = (”name“).ValueNext lngI = ”VB成績直方圖“ End SubPrivate Sub Command2_Click()39。這對于我們這種初次接觸這種東西的人來說，還真是有難度，如果不是老師給了我們足夠的模板和樣例，我想我還真一時半會兒，不知道從哪里下手，好在功夫不負有心人，經過幾天時間的摸索和操作，這個學生成績管理系統的雛形終于是出現了，雖說功能不太完善，但還是能滿足基本要求，這讓我很是欣慰。經過本次的vb課程設計，讓我對vb的軟件開發流程，整體籌劃發面有了一定的了解和提高，雖說我的專業并不是計算機或者軟件工程相關的專業，但我對vb編程的熱情絲毫不弱，我相信有了這次的經歷，對我以后vb的學習有很大的幫助，并祝我在vb或者其他類型的計算機語言的編程道路上走得更遠。在這一段時間里里，不能說我的vb編程能力有了多么大的提高，多么大的飛躍，但我敢說我對vb和數據庫相關的知識有了更加深刻的了解和體會，總結起來主要有以下幾點：想要用vb做出好的東西來，一定要勤動手，不能光看，因為好多錯誤憑看是看不出來的，只有通過自己不斷的操作和修改，才能對vb的語法結構和流程有自己獨到的理解；在編程和調試的過程中，總會出現一些意想不到的問題。用Data屬性向MSChart數據網格填充數據 = 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課程設計的時候，我可是相當激動啊，心想，學的東西終于可以用一用了。” 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。以下為各個界面所對應的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zg” And = “10902” Then ElseMsgBox “用戶名或密碼錯誤,請重新輸入”, vbMsgBoxSetForeground, “系統提示！” End IfStatic t As Integer t = t + 1 If t = 3 Then End End SubPrivate Sub Command2_Click()a = MsgBox(“確定要退出本系統嗎？”, 3 + 32 + 256, “系統提示！”)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