【文章內(nèi)容簡介】 1995，5 [16] 王士元.《C高級實用程序設(shè)計》.清華大學(xué)出版社,1996，6第三篇：VB學(xué)生成績管理系統(tǒng)任務(wù)書河北聯(lián)合大學(xué)《軟件設(shè)計基礎(chǔ)VB》課程設(shè)計任務(wù)書學(xué)院班級設(shè)計人成績一、題目：學(xué)生成績管理系統(tǒng)二、目的與要求：：，主要培養(yǎng)學(xué)生使用ACCESS數(shù)據(jù)庫和ADO控件設(shè)計信息管理類軟件。：① 要求用ACCESS搭建數(shù)據(jù)庫。② 使用ADO控件實現(xiàn)與數(shù)據(jù)庫的連接。③ 使用MSChart圖表控件繪制各種類型的圖表；使用MSFlexGrid表格控件顯示數(shù)據(jù)信息。④ 程序界面美觀，運行無差錯：在基本要求達到后，進行創(chuàng)新設(shè)計：（1）允許更改密碼。（2）增加排名次的功能。（3）可以按院系、專業(yè)和年級計算平均成績并繪制圖表。（4）用戶可以添加新的院系和專業(yè)名稱。三、設(shè)計方法和基本原理：：設(shè)計一個“學(xué)生成績管理系統(tǒng)”程序，實現(xiàn)對學(xué)生成績的添加、修改、刪除、查詢和圖表繪制，具體如下：（1）運行程序先進入“登錄”界面，要求輸入數(shù)據(jù)庫密碼，如果密碼錯誤，給出提示。（2）經(jīng)過密碼檢驗后，顯示主界面，以表格形式顯示數(shù)據(jù)庫中所有學(xué)生的成績信息。（3）“添加”：其中院系、專業(yè)和年級使用組合框進行選擇。（4）“修改”：只允許修改學(xué)生成績，不允許修改姓名、院系、專業(yè)和年級。（5）“刪除”：可以刪除學(xué)生信息，刪除前進行確認(rèn)。（6）“查詢”：可以根據(jù)院系、專業(yè)和年級進行查詢。（7）“圖表繪制”：分別以二維條形圖、二維圓餅圖和三維條形圖的形式顯示學(xué)生成績中優(yōu)、良、中、及格和不及格的分布情況。：401根據(jù)問題描述，可以將問題解決分為以下幾個方面：① 進行需求分析確定數(shù)據(jù)庫的結(jié)構(gòu)，建立相應(yīng)的數(shù)據(jù)表。② 利用ADO控件與數(shù)據(jù)庫連接。③ 設(shè)計主界面，要求有菜單、工具欄和狀態(tài)欄，具體內(nèi)容按功能要求自行設(shè)計。④ 其他界面自行設(shè)計，滿足基本功能要求即可。四、難點與提示：（1）本題目中數(shù)據(jù)庫文件的設(shè)計是關(guān)鍵，可按如下方法：，包含三個數(shù)據(jù)表：院系、專業(yè)和成績?！霸合怠北碇斜４嬖合荡柡兔Q；“專業(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紙打?。?，并將電子文檔和源程序上傳至課程設(shè)計服務(wù)器中：ftp://找到自已指導(dǎo)教師的文件夾后，進入班級文件夾，再找到自己的文件夾，然后將文檔復(fù)制到該文件夾中即可。2．評分方法（1）出勤率（2）課程設(shè)計準(zhǔn)備工作（3）課程設(shè)計期間紀(jì)律（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)如下界面：點擊“計算分?jǐ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，點擊鼠標(biāo)右鍵選擇屬性，然后界面設(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。