學生成績管理系統vb程序(編輯修改稿)

　

【文章內容簡介】 1995，5 [16] 王士元.《C高級實用程序設計》.清華大學出版社,1996，6第三篇：VB學生成績管理系統任務書河北聯合大學《軟件設計基礎VB》課程設計任務書學院班級設計人成績一、題目：學生成績管理系統二、目的與要求：：，主要培養學生使用ACCESS數據庫和ADO控件設計信息管理類軟件。：① 要求用ACCESS搭建數據庫。② 使用ADO控件實現與數據庫的連接。③ 使用MSChart圖表控件繪制各種類型的圖表；使用MSFlexGrid表格控件顯示數據信息。④ 程序界面美觀，運行無差錯：在基本要求達到后，進行創新設計：（1）允許更改密碼。（2）增加排名次的功能。（3）可以按院系、專業和年級計算平均成績并繪制圖表。（4）用戶可以添加新的院系和專業名稱。三、設計方法和基本原理：：設計一個“學生成績管理系統”程序，實現對學生成績的添加、修改、刪除、查詢和圖表繪制，具體如下：（1）運行程序先進入“登錄”界面，要求輸入數據庫密碼，如果密碼錯誤，給出提示。（2）經過密碼檢驗后，顯示主界面，以表格形式顯示數據庫中所有學生的成績信息。（3）“添加”：其中院系、專業和年級使用組合框進行選擇。（4）“修改”：只允許修改學生成績，不允許修改姓名、院系、專業和年級。（5）“刪除”：可以刪除學生信息，刪除前進行確認。（6）“查詢”：可以根據院系、專業和年級進行查詢。（7）“圖表繪制”：分別以二維條形圖、二維圓餅圖和三維條形圖的形式顯示學生成績中優、良、中、及格和不及格的分布情況。：401根據問題描述，可以將問題解決分為以下幾個方面：① 進行需求分析確定數據庫的結構，建立相應的數據表。② 利用ADO控件與數據庫連接。③ 設計主界面，要求有菜單、工具欄和狀態欄，具體內容按功能要求自行設計。④ 其他界面自行設計，滿足基本功能要求即可。四、難點與提示：（1）本題目中數據庫文件的設計是關鍵，可按如下方法：，包含三個數據表：院系、專業和成績。“院系”表中保存院系代號和名稱；“專業”表中保存專業代號和名稱，以及所屬院系的代號；“成績”表中保存學生姓名、院系代號、專業代號、年級和各科成績。（2）ADO控件和數據庫的連接代碼：provider = “provider=”datasource = “data source=” amp。 amp。 “”With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。 “。” amp。 datasource.CommandType = adCmdTable.RecordSource = “yx”.RefreshEnd With五、課程設計時間：2012年5月10日至2012年7月1日六、課程設計進行地點：學校機房七、書寫設計報告的要求：設計報告中包含以下幾個方面：①劃分功能模塊②確定各模塊的算法，并加以必要的注釋，有何收獲及心得體會八、課程設計的考核方式及評分方法402課程設計結束時，學生要提交課程設計報告（A4紙打印），并將電子文檔和源程序上傳至課程設計服務器中：ftp://找到自已指導教師的文件夾后，進入班級文件夾，再找到自己的文件夾，然后將文檔復制到該文件夾中即可。2．評分方法（1）出勤率（2）課程設計準備工作（3）課程設計期間紀律（4）課程設計運行結果（5）課程設計報告（6）答辯情況指導教師： 系主任簽字：日期：403 年月日第四篇：VB學生成績管理系統課程設計報告VB程序設計 課程設計報告班 級：***** 姓 名：***** 序 號：***** 指導老師：*****目錄課設的目的..............................................................................................................................2界面設計和功能設計............................................................................................................2系統功能實施...................................................................................................................11總結........................................................................................................................................30一、課設的目的，熟悉用戶界面的設計，進一步理解計算機程序設計的思路與方法，達到能熟練使用各種常見的VB控件，理解面向對象的思想 ，我們進一步熟練運用VB的語言元素和流程控制語句，熟悉數據訪問控件ADO及相關對象的使用，能基于ADO控件實現Access的數據訪問與操縱二、界面設計和功能設計下面的界面為用戶登陸界面：用戶名和密碼均已設定，用戶名為zgzy，密碼為11201，只有輸入正確，然后點擊“登陸“按鈕才能進入主界面。如果用戶名或密碼三次輸入錯誤，則系統自動退出。當你點擊“退出“按鈕時，彈出一個對話窗，界面如下：在對話框上點擊“是”按鈕，則退出系統，如果點擊“否”，則該界面不變。當用戶名和密碼均輸入正確，點擊“登陸”按鈕，進入主界面——“學生成績管理系統”界面，該界面是其他子界面的入口，界面如下：進入主界面后，點擊“學生管理（刪除添加）”，進入學生管理界面，界面如下該界面上有一個ADO控件，用于連接數據庫，當用戶在六個文本框中輸入數據時，點擊“添加“按鈕，可以將數據錄入到數據庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數據就會被刪除，點擊”保存“按鈕時，輸入的數據就會自動保存在數據庫里，點擊”返回主窗體“按鈕，該窗體消失，主窗體出現。在主界面點擊“各科成績查詢“按鈕，出現如下界面：該界面有一個ADO控件，用來連接數據庫，還有一個DataGrid控件，用來顯示學生成績的查詢結果，當用戶選擇了要查詢的科目和條件后，點擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結果。下面為輸入條件后查詢的結果——在主界面點擊“姓名查詢“按鈕后，會出現如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在DataGrid控件上顯示所要查詢的結果。下面為輸入條件后查詢的結果——在主界面點擊“班級查詢“按鈕后，會出現如下界面：在文版框中輸入所要查詢的班級，DataGrid控件上就會顯示所要查詢的結果。下面為輸入條件后查詢的結果——在主界面上點擊“各科成績段查詢“按鈕后，會出現如下界面：點擊“計算分數段統計“按鈕后，就會出現所要查詢的結果。下面為查詢的結果——在主界面點擊“計算總分“按鈕后，出現如下界面：點擊“清除總分”按鈕后，出現如下界面在主界面點擊“排名“按鈕后，出現如下界面：在該界面上點擊“排名“按鈕后，在DataGrid控件上會顯示出按成績高低排名的結果，點擊”清除排名“按鈕后，剛才結果消失，顯示原來結果。下面為所現實的結果——在主界面點擊“統計直方圖“按鈕后，出現如下界面：在該界面點擊各個按鈕后，就會出現與之相關科目的成績統計直方圖，下面為查詢的結果——在主界面點擊“優等生“按鈕后，出現如下界面：點擊按鈕查詢后，結果就會在界面上顯示出來。下面為所查詢的結果——三、系統功能實施以上展示的是系統的所有界面，怎樣才能讓這所有的功能實現呢？數據庫和ADO控件的使用便是其中的關鍵。建立如下數據庫(學號、姓名、班級、英語、數學、VB、總分、排名)建立如下圖的所有界面：ADO控件和DataGrid控件以及數據庫的連接步驟：（這一步在設計界面的同時完成）（1）、如何加載ADO控件： 步驟1：步驟2：步驟3：各個界面的ADO控件如何連接數據庫（分兩步）：步驟1：如下面界面中的5個步驟步驟2：選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設置如下：控件綁定數據庫的字段操作說明：屬性設置說明：下面以學號為例，姓名、班級等都可參考此。將學號對應的文本框Text1連接Adodc1顯示數據庫中的學號，需要設置DataSource和DataField兩個屬性,首先選中Text1文本框，并進行下面的兩步操作，即可綁定數據庫的學號字段。設置DataSource:設置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實現數據的批量處理，該控件在控件庫Microsoft DataGrid Control 。說明：DataGrid控件屬性設置以下為各個界面所對應的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zgzy” And = “11201” Then Unload me Else MsgBox “用戶名或密碼錯誤,請重新輸入”, 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 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。