【正文】 兩周的時間并不長，一晃就到了，課程設(shè)計也要畫上句號了?！?+ kc_條件 + “39。下面為所查詢的結(jié)果——三、系統(tǒng)功能實施以上展示的是系統(tǒng)的所有界面，怎樣才能讓這所有的功能實現(xiàn)呢？數(shù)據(jù)庫和ADO控件的使用便是其中的關(guān)鍵。當(dāng)你點擊“退出“按鈕時，彈出一個對話窗，界面如下：在對話框上點擊“是”按鈕，則退出系統(tǒng)，如果點擊“否”，則該界面不變。在這次課程設(shè)計中也使我們的同學(xué)關(guān)系更進(jìn)一步了，同學(xué)之間互相幫助，有什么不懂的大家在一起商量，聽聽不同的看法對我們更好的理解知識，所以在這里非常感謝幫助我的同學(xué)。清除總分 For i = 1 To (”total“).Value = Null Next i 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。將學(xué)號對應(yīng)的文本框Text1連接Adodc1顯示數(shù)據(jù)庫中的學(xué)號，需要設(shè)置DataSource和DataField兩個屬性,首先選中Text1文本框，并進(jìn)行下面的兩步操作，即可綁定數(shù)據(jù)庫的學(xué)號字段。在主界面點擊“各科成績查詢“按鈕，出現(xiàn)如下界面：該界面有一個ADO控件，用來連接數(shù)據(jù)庫，還有一個DataGrid控件，用來顯示學(xué)生成績的查詢結(jié)果，當(dāng)用戶選擇了要查詢的科目和條件后，點擊“查詢“按鈕，在DataGrid控件上就會顯示出所查詢的結(jié)果。 “”With Adodc1.Mode = adModeReadWrite.ConnectionString = provider amp。：401根據(jù)問題描述，可以將問題解決分為以下幾個方面：① 進(jìn)行需求分析確定數(shù)據(jù)庫的結(jié)構(gòu)，建立相應(yīng)的數(shù)據(jù)表。（4）用戶可以添加新的院系和專業(yè)名稱。參考文獻(xiàn)[1] 宗大華，200461 [2] ,2007，1，14 [3] ，2005427 [4] ，2002,01,01 [5] 于華, Basic．NET應(yīng)用程序的性能[J].計算機(jī)系統(tǒng)應(yīng)用,2004,10 [6] Basic數(shù)據(jù)庫開發(fā)技術(shù)的探討.[J].丹東紡專學(xué)報,2004,11,4 [7] Picture圖形方法的使用 CAJ原文下載[J]., 1999,04 [8] 譚浩強(qiáng).《C程序設(shè)計題解與上機(jī)指導(dǎo)（第3版）》.清華大學(xué)出版社,2005,7 [9] 聶雪軍,賀軍/譯.[美]Harvey , Paul /著.《C程序設(shè)計經(jīng)典教程(第4版)》，清華大學(xué)出版社,2006,3 [10] 李春葆,張植民,肖忠付.《C語言程序設(shè)計題典》.清華大學(xué)出版社 ,2002,7 [11] 張小潘/譯，[美]科漢/著.《C語言編程（第3版）》.電子工業(yè)出版社 ,2006,3[12] 徐寶文 李志/譯，[美]Brian , Dennis /著.《C程序設(shè)計語言(第2版此外，數(shù)據(jù)的備份與恢復(fù)，都是數(shù)據(jù)維護(hù)的工作內(nèi)容。第四章 數(shù)據(jù)庫的分析 yonghu表主要是登陸用戶所用的表。在技術(shù)難度方面，由于有指導(dǎo)老師的指導(dǎo)和相關(guān)參考文獻(xiàn)，特別是網(wǎng)上資料，特別是參考其它程序的功能，因此完全可以實現(xiàn)。第二章 系統(tǒng)的概述本學(xué)生成績管理系統(tǒng)可以說是一個綜合性的學(xué)校學(xué)生成績管理系統(tǒng)，這它集成了多種功能，因而具有較強(qiáng)的實用性和先進(jìn)性。隨著計算機(jī)技術(shù)不斷發(fā)展、完善，如何開發(fā)、應(yīng)用高效率計算機(jī)軟件、信息系統(tǒng)一直是開發(fā)人員在試圖解決的難題。判斷學(xué)號是否存在 rs(”ID“)= rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”添加成功！“)Unload MeElseMsgBox(”學(xué)號已存在!)End If End If End Sub第二篇：vb學(xué)生成績管理系統(tǒng)論文目 錄摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系統(tǒng)設(shè)計的目的與要求...........................................3 ....................................................3 ................................................4 ................................................3 ....................................................4第三章 系統(tǒng)的概述.....................................................3 ........................................................3 ........................................................4 第四章 前臺界面分析...................................................4 登陸界面..........................................................4 ..........................................................6 第五章 數(shù)據(jù)庫的分析...................................................6 YONGHU表...........................................................7 STUDENT 表.........................................................7 SCORE表...........................................................7 COURSE表...........................................................8 第六章 軟件維護(hù).......................................................8 ..........................................................9 ..........................................................9 結(jié)語及致謝............................................................9 參考文獻(xiàn)..............................................................9VB學(xué)生成績管理系統(tǒng)摘要:隨著科學(xué)技術(shù)在管理上越來越深入而廣泛的應(yīng)用，管理信息系統(tǒng)的技術(shù)已逐步成熟。 amp。 ” 39。 ”39。datagrid綁定數(shù)據(jù)源 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?！?= adUseClient sql1, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf ThenMsgBox(”查不到相關(guān)信息“)ElseSet = rs1End IfEnd If ElseIf = ”“ ThenMsgBox(”姓名輸入不能為空!“)ElseDim sql2 As StringSet rs2 = New sql2 = ”select * from stuInfo where name=39?！?amp。 Trim()amp?！?amp。 = (4)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(”請輸入學(xué)號！“) ElseIf = ”“ ThenMsgBox(”請選擇課程！“)ElseDim sql1 As StringDim sql2, name As StringSet rs2 = New Set rs1 = New sql1 = ”select , from score , course where ID=39。 and =“name = sql2 = ”select Num from course where name=39。 ”39。 amp。The system design part mainly introduced design and database design of the system function and code design。本課程設(shè)計的目的和任務(wù)： 系統(tǒng)設(shè)計的實驗環(huán)境硬件要求能運(yùn)行Windows 2000/XP操作系統(tǒng)的微機(jī)系統(tǒng)。由于本系統(tǒng)管理的對象單一,都是在校學(xué)生，且每個數(shù)據(jù)內(nèi)容具有較強(qiáng)的關(guān)聯(lián)性，涉及的計算過程不是很復(fù)雜。 amp。系統(tǒng)維護(hù)就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的，正確的工作狀態(tài)。在本次畢業(yè)設(shè)計中，我要向我的指導(dǎo)老師致以深深的謝意，感謝指導(dǎo)老師在這段時間里在學(xué)習(xí)上和生活上所給予的悉心的教誨和無微不至的幫助，在我感覺到自己知識有所貧乏的時候給了我細(xì)心的指導(dǎo)和技術(shù)上的支持。④ 程序界面美觀，運(yùn)行無差錯：在基本要求達(dá)到后，進(jìn)行創(chuàng)新設(shè)計：（1）允許更改密碼。（5）“刪除”：可以刪除學(xué)生信息，刪除前進(jìn)行確認(rèn)?！霸合怠北碇斜４嬖合荡柡兔Q；“專業(yè)”表中保存專業(yè)代號和名稱，以及所屬院系的代號；“成績”表中保存學(xué)生姓名、院系代號、專業(yè)代號、年級和各科成績。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。下面為所現(xiàn)實的結(jié)果——在主界面點擊“統(tǒng)計直方圖“按鈕后，出現(xiàn)如下界面：在該界面點擊各個按鈕后，就會出現(xiàn)與之相關(guān)科目的成績統(tǒng)計直方圖，下面為查詢的結(jié)果——在主界面點擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：點擊按鈕查詢后，結(jié)果就會在界面上顯示出來。” + kc_條件 + “39。在沒有做課程設(shè)計以前覺得課程設(shè)計好難，我可能做不了，但是通過這次做課程設(shè)計發(fā)現(xiàn)自己錯了。雖然這個設(shè)計做的也不太好，但是在設(shè)計過程中所學(xué)到的東西是這次課程設(shè)計的最大收獲和財富，使我終身受益。下面為輸入條件后查詢的結(jié)果——在主界面上點擊“各科成績段查詢“按鈕后，會出現(xiàn)如下界面：點擊“計算分?jǐn)?shù)段統(tǒng)計“按鈕后，就會出現(xiàn)所要查詢的結(jié)果。以下為各個界面所對應(yīng)的代碼——該界面代碼如下：Private Sub Command1_Click()If = “zg” And = “10902” Then ElseMsgBox “用戶名或密碼錯誤,請重新輸入”, vbMsgBoxSetForeground, “系統(tǒng)提示！” End IfStatic t As Integer t = t + 1 If t = 3 Then End End Sub