【文章內(nèi)容簡介】 1）本題目中數(shù)據(jù)庫文件的設(shè)計是關(guān)鍵，可按如下方法：，包含三個數(shù)據(jù)表：院系、專業(yè)和成績。“院系”表中保存院系代號和名稱；“專業(yè)”表中保存專業(yè)代號和名稱，以及所屬院系的代號；“成績”表中保存學(xué)生姓名、院系代號、專業(yè)代號、年級和各科成績。（2）ADO控件和數(shù)據(jù)庫的連接代碼：provider = “provider=”datasource = “data source=” amp。 amp。 “”With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 “?！?amp。 datasource.CommandType = adCmdTable.RecordSource = “yx”.RefreshEnd With五、課程設(shè)計時間：2012年5月10日至2012年7月1日六、課程設(shè)計進行地點：學(xué)校機房七、書寫設(shè)計報告的要求：設(shè)計報告中包含以下幾個方面：①劃分功能模塊②確定各模塊的算法，并加以必要的注釋，有何收獲及心得體會八、課程設(shè)計的考核方式及評分方法402課程設(shè)計結(jié)束時，學(xué)生要提交課程設(shè)計報告（A4紙打?。㈦娮游臋n和源程序上傳至課程設(shè)計服務(wù)器中：ftp://找到自已指導(dǎo)教師的文件夾后，進入班級文件夾，再找到自己的文件夾，然后將文檔復(fù)制到該文件夾中即可。2．評分方法（1）出勤率（2）課程設(shè)計準備工作（3）課程設(shè)計期間紀律（4）課程設(shè)計運行結(jié)果（5）課程設(shè)計報告（6）答辯情況指導(dǎo)教師： 系主任簽字：日期：403 年月日第四篇：VB學(xué)生成績管理系統(tǒng)課程設(shè)計報告VB程序設(shè)計 課程設(shè)計報告班 級：***** 姓 名：***** 序 號：***** 指導(dǎo)老師：*****目錄課設(shè)的目的..............................................................................................................................2界面設(shè)計和功能設(shè)計............................................................................................................2系統(tǒng)功能實施...................................................................................................................11總結(jié)........................................................................................................................................30一、課設(shè)的目的，熟悉用戶界面的設(shè)計，進一步理解計算機程序設(shè)計的思路與方法，達到能熟練使用各種常見的VB控件，理解面向?qū)ο蟮乃枷?，我們進一步熟練運用VB的語言元素和流程控制語句，熟悉數(shù)據(jù)訪問控件ADO及相關(guān)對象的使用，能基于ADO控件實現(xiàn)Access的數(shù)據(jù)訪問與操縱二、界面設(shè)計和功能設(shè)計下面的界面為用戶登陸界面：用戶名和密碼均已設(shè)定，用戶名為zgzy，密碼為11201，只有輸入正確，然后點擊“登陸“按鈕才能進入主界面。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。當(dāng)你點擊“退出“按鈕時，彈出一個對話窗，界面如下：在對話框上點擊“是”按鈕，則退出系統(tǒng)，如果點擊“否”，則該界面不變。當(dāng)用戶名和密碼均輸入正確，點擊“登陸”按鈕，進入主界面——“學(xué)生成績管理系統(tǒng)”界面，該界面是其他子界面的入口，界面如下：進入主界面后，點擊“學(xué)生管理（刪除添加）”，進入學(xué)生管理界面，界面如下該界面上有一個ADO控件，用于連接數(shù)據(jù)庫，當(dāng)用戶在六個文本框中輸入數(shù)據(jù)時，點擊“添加“按鈕，可以將數(shù)據(jù)錄入到數(shù)據(jù)庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數(shù)據(jù)就會被刪除，點擊”保存“按鈕時，輸入的數(shù)據(jù)就會自動保存在數(shù)據(jù)庫里，點擊”返回主窗體“按鈕，該窗體消失，主窗體出現(xiàn)。在主界面點擊“各科成績查詢“按鈕，出現(xiàn)如下界面：該界面有一個ADO控件，用來連接數(shù)據(jù)庫，還有一個DataGrid控件，用來顯示學(xué)生成績的查詢結(jié)果，當(dāng)用戶選擇了要查詢的科目和條件后，點擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——在主界面點擊“姓名查詢“按鈕后，會出現(xiàn)如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在DataGrid控件上顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——在主界面點擊“班級查詢“按鈕后，會出現(xiàn)如下界面：在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結(jié)果。下面為輸入條件后查詢的結(jié)果——在主界面上點擊“各科成績段查詢“按鈕后，會出現(xiàn)如下界面：點擊“計算分數(shù)段統(tǒng)計“按鈕后，就會出現(xiàn)所要查詢的結(jié)果。下面為查詢的結(jié)果——在主界面點擊“計算總分“按鈕后，出現(xiàn)如下界面：點擊“清除總分”按鈕后，出現(xiàn)如下界面在主界面點擊“排名“按鈕后，出現(xiàn)如下界面：在該界面上點擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結(jié)果，點擊”清除排名“按鈕后，剛才結(jié)果消失，顯示原來結(jié)果。下面為所現(xiàn)實的結(jié)果——在主界面點擊“統(tǒng)計直方圖“按鈕后，出現(xiàn)如下界面：在該界面點擊各個按鈕后，就會出現(xiàn)與之相關(guān)科目的成績統(tǒng)計直方圖，下面為查詢的結(jié)果——在主界面點擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：點擊按鈕查詢后，結(jié)果就會在界面上顯示出來。下面為所查詢的結(jié)果——三、系統(tǒng)功能實施以上展示的是系統(tǒng)的所有界面，怎樣才能讓這所有的功能實現(xiàn)呢？數(shù)據(jù)庫和ADO控件的使用便是其中的關(guān)鍵。建立如下數(shù)據(jù)庫(學(xué)號、姓名、班級、英語、數(shù)學(xué)、VB、總分、排名)建立如下圖的所有界面：ADO控件和DataGrid控件以及數(shù)據(jù)庫的連接步驟：（這一步在設(shè)計界面的同時完成）（1）、如何加載ADO控件： 步驟1：步驟2：步驟3：各個界面的ADO控件如何連接數(shù)據(jù)庫（分兩步）：步驟1：如下面界面中的5個步驟步驟2：選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設(shè)置如下：控件綁定數(shù)據(jù)庫的字段操作說明：屬性設(shè)置說明：下面以學(xué)號為例，姓名、班級等都可參考此。將學(xué)號對應(yīng)的文本框Text1連接Adodc1顯示數(shù)據(jù)庫中的學(xué)號，需要設(shè)置DataSource和DataField兩個屬性,首先選中Text1文本框，并進行下面的兩步操作，即可綁定數(shù)據(jù)庫的學(xué)號字段。設(shè)置DataSource:設(shè)置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 。說明：DataGrid控件屬性設(shè)置以下為各個界面所對應(yīng)的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zgzy” And = “11201” Then Unload me Else MsgBox “用戶名或密碼錯誤,請重新輸入”, 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 Sub Private 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 engli