學生成績管理系統vb程序-全文預覽

　　

【正文】 () 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。建立如下數據庫(學號、姓名、班級、英語、數學、VB、總分、排名)建立如下圖的所有界面：ADO控件和DataGrid控件以及數據庫的連接步驟：（這一步在設計界面的同時完成）（1）、如何加載ADO控件： 步驟1：步驟2：步驟3：各個界面的ADO控件如何連接數據庫（分兩步）：步驟1：如下面界面中的5個步驟步驟2：選中ADO控件Adodc1，點擊鼠標右鍵選擇屬性，然后界面設置如下：控件綁定數據庫的字段操作說明：屬性設置說明：下面以學號為例，姓名、班級等都可參考此。下面為輸入條件后查詢的結果——在主界面上點擊“各科成績段查詢“按鈕后，會出現如下界面：點擊“計算分數段統計“按鈕后，就會出現所要查詢的結果。當用戶名和密碼均輸入正確，點擊“登陸”按鈕，進入主界面——“學生成績管理系統”界面，該界面是其他子界面的入口，界面如下：進入主界面后，點擊“學生管理（刪除添加）”，進入學生管理界面，界面如下：該界面上有一個ADO控件，用于連接數據庫，當用戶在六個文本框中輸入數據時，點擊“添加“按鈕，可以將數據錄入到數據庫中，如果此時點擊”刪除“按鈕，則剛才輸入的數據就會被刪除，點擊”保存“按鈕時，輸入的數據就會自動保存在數據庫里，點擊”返回主窗體“按鈕，該窗體消失，主窗體出現。雖然這個設計做的也不太好，但是在設計過程中所學到的東西是這次課程設計的最大收獲和財富，使我終身受益。此外，還得出一個結論：世上無難事，只怕有心人。在沒有做課程設計以前覺得課程設計好難，我可能做不了，但是通過這次做課程設計發現自己錯了。填充表格數據 = 1 = For lngI = 1 To = lngI39。” + kc_條件 + “39。設置DataSource:設置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實現數據的批量處理，該控件在控件庫Microsoft DataGrid Control 。下面為所現實的結果——在主界面點擊“統計直方圖“按鈕后，出現如下界面：在該界面點擊各個按鈕后，就會出現與之相關科目的成績統計直方圖，下面為查詢的結果——在主界面點擊“優等生“按鈕后，出現如下界面：點擊按鈕查詢后，結果就會在界面上顯示出來。下面為輸入條件后查詢的結果——在主界面點擊“姓名查詢“按鈕后，會出現如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在DataGrid控件上顯示所要查詢的結果。如果用戶名或密碼三次輸入錯誤，則系統自動退出。 “。“院系”表中保存院系代號和名稱；“專業”表中保存專業代號和名稱，以及所屬院系的代號；“成績”表中保存學生姓名、院系代號、專業代號、年級和各科成績。② 利用ADO控件與數據庫連接。（5）“刪除”：可以刪除學生信息，刪除前進行確認。三、設計方法和基本原理：：設計一個“學生成績管理系統”程序，實現對學生成績的添加、修改、刪除、查詢和圖表繪制，具體如下：（1）運行程序先進入“登錄”界面，要求輸入數據庫密碼，如果密碼錯誤，給出提示。④ 程序界面美觀，運行無差錯：在基本要求達到后，進行創新設計：（1）允許更改密碼。新版)》.機械工業出版社,2004,1 [13] 魯沐浴.《C語言最新編程技巧200例》.電子工業出版社,1997，1[14] 梁翎，李愛齊.《C語言程序設計實用技巧與程序實例》.上海科普出版社,1996，5 [15] 陳國章.《Turbo C程序設計技巧與應用實例》.天津科學技術出版社,1995，5 [16] 王士元.《C高級實用程序設計》.清華大學出版社,1996，6第三篇：VB學生成績管理系統任務書河北聯合大學《軟件設計基礎VB》課程設計任務書學院班級設計人成績一、題目：學生成績管理系統二、目的與要求：：，主要培養學生使用ACCESS數據庫和ADO控件設計信息管理類軟件。在本次畢業設計中，我要向我的指導老師致以深深的謝意，感謝指導老師在這段時間里在學習上和生活上所給予的悉心的教誨和無微不至的幫助，在我感覺到自己知識有所貧乏的時候給了我細心的指導和技術上的支持。隨著系統應用范圍的擴大，應用環境的變化，系統中的各種代碼都需要進行一定程度的增加、修改、刪除，以及設置新的代碼。系統維護就是為了保證系統中的各個要素隨著環境的變化始終處于最新的，正確的工作狀態。 student 表學生的各種信息都來源于這個表。 amp。本系統的設計是在Windows XP中文版操作系統環境下，使用Visual Basic 。由于本系統管理的對象單一,都是在校學生，且每個數據內容具有較強的關聯性，涉及的計算過程不是很復雜。通過調查,要求系統需要有以下功能: ⑴ 由于操作人員的計算機知識普遍較差,要求有良好的人機界面。本課程設計的目的和任務： 系統設計的實驗環境硬件要求能運行Windows 2000/XP操作系統的微機系統。盡管開發人員已經提供了很多解決的方法，但是現在開發、應用管理信息系統軟件的過程中，仍會碰到以下的情形。The system design part mainly introduced design and database design of the system function and code design。學生成績管理系統是一個不斷發展的新型學科，任何一個學校要生存要發展，要高效率地把內部活動有機地組織起來，因為管理這些龐大的體系是非常困難的，要想有機地組織起來，就必須建立與自身特點相適應的成績管理系統。 amp。 ”39。 ”39。“ sql1, conn, adOpenDynamic, adLockOptimistic sql2, conn, adOpenDynamic, adLockOptimisticIf Thenrs1(”ID“)= rs1(”Num“)= rs2(”Num“)MsgBox(”選課成功！“)ElseMsgBox(”已選過該課！“)End If End If End Sub 窗體Private Sub Form_Load()Dim sql As StringSet conn = New Set rs = New sql = ”select * from course“Call openconn sql, conn, adOpenDynamic, adLockOptimisticDo Until 39。 and =“name = sql2 = ”select Num from course where name=39。 and name=39。sql1 = ”select * from course“ = adUseClient sql1, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet = rs1 End Sub 窗體Private Sub Form_Load()Dim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from course“ sql, conn, adOpenDynamic, adLockOptimisticDo Until rs(”name“)Loop End Sub選課管理返回Private Sub cmdReturn_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If txtID = ”“ ThenMsgBox(”請輸入學號！“) ElseIf = ”“ ThenMsgBox(”請選擇課程！“)ElseDim sql1 As StringDim sql2, name As StringSet rs2 = New Set rs1 = New sql1 = ”select , from score , course where ID=39。“ amp。 = (4)39。“ amp。“ amp。 Trim()amp。 Trim()amp。“ amp。“ amp。查詢功能 If = ”學號“ ThenIf = ”“ ThenMsgBox(”學號輸入不能為空!“)ElseDim sql1 As StringSet rs1 = New sql1 = ”select * from stuInfo where ID=39。“ = adUseClient sql1, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf ThenMsgBox(”查不到相關信息“)ElseSet = rs1End IfEnd If ElseIf = ”“ ThenMsgBox(”姓名輸入不能為空!“)ElseDim sql2 As StringSet rs2 = New sql2 = ”select * from stuInfo where name=39。“ = adUseClient sql2, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf ThenMsgBox(”查不到相關信息“)ElseSet = rs2End IfEnd If End If End Sub 返回Private Sub cmdReturn_Click() Unload Me End Sub 輸出窗口Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)39。datagrid綁定數據源 End Sub成績查詢返回 Private Sub cmdReturn_Click() Unload Me End Sub 確定Private Sub Command1_Click() = Trim()+ ”課程成績“Dim sql1 As StringSet rs1 = New sql1 = ”select , from score, course where name=39。 and =“39。 ”39。 ”39。 ” 39。 amp。 amp。“ amp。判斷學號是否存在 rs(”ID“)= rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”添加成功！“)Unload MeElseMsgBox(”學號已存在!)End If End If End Sub第二篇：vb學生成績管理系統論文目 錄摘要……………………………………………………………………………………….2 第一