【正文】 = For lngI = 1 To = lngI39?！?+ kc_條件 + “39。設置DataSource:設置DataField:（2）、如何加載DataGrid控件 控件DataGrid，可以實現(xiàn)數(shù)據(jù)的批量處理，該控件在控件庫Microsoft DataGrid Control 。下面為所現(xiàn)實的結(jié)果——在主界面點擊“統(tǒng)計直方圖“按鈕后，出現(xiàn)如下界面：在該界面點擊各個按鈕后，就會出現(xiàn)與之相關科目的成績統(tǒng)計直方圖，下面為查詢的結(jié)果——在主界面點擊“優(yōu)等生“按鈕后，出現(xiàn)如下界面：點擊按鈕查詢后，結(jié)果就會在界面上顯示出來。下面為輸入條件后查詢的結(jié)果——在主界面點擊“姓名查詢“按鈕后，會出現(xiàn)如下界面：該界面與上一界面相似，在文本框輸入要查詢的姓名后，點擊“查詢“按鈕，就會在DataGrid控件上顯示所要查詢的結(jié)果。如果用戶名或密碼三次輸入錯誤，則系統(tǒng)自動退出。 “。“院系”表中保存院系代號和名稱；“專業(yè)”表中保存專業(yè)代號和名稱，以及所屬院系的代號；“成績”表中保存學生姓名、院系代號、專業(yè)代號、年級和各科成績。② 利用ADO控件與數(shù)據(jù)庫連接。（5）“刪除”：可以刪除學生信息，刪除前進行確認。三、設計方法和基本原理：：設計一個“學生成績管理系統(tǒng)”程序，實現(xiàn)對學生成績的添加、修改、刪除、查詢和圖表繪制，具體如下：（1）運行程序先進入“登錄”界面，要求輸入數(shù)據(jù)庫密碼，如果密碼錯誤，給出提示。④ 程序界面美觀，運行無差錯：在基本要求達到后，進行創(chuàng)新設計：（1）允許更改密碼。判斷學號是否存在 rs(”ID“)= rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”添加成功！“)Unload MeElseMsgBox(”學號已存在!)End If End If End Sub第三篇：VB學生成績管理系統(tǒng)任務書河北聯(lián)合大學《軟件設計基礎VB》課程設計任務書學院班級設計人成績一、題目：學生成績管理系統(tǒng)二、目的與要求：：，主要培養(yǎng)學生使用ACCESS數(shù)據(jù)庫和ADO控件設計信息管理類軟件。“ amp。 amp。 amp。 ” 39。 ”39。 ”39。 and =“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 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?！?= 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。查詢功能 If = ”學號“ ThenIf = ”“ ThenMsgBox(”學號輸入不能為空!“)ElseDim sql1 As StringSet rs1 = New sql1 = ”select * from stuInfo where ID=39。“ amp?！?amp。使我自身的能力得到了不少的提高，這對于我以后的工作和學習都有一種巨大的幫助。結(jié)語及致謝通過這次的設計，讓我對VB的使用有了進一步的了解。系統(tǒng)維護的目的是保證管理信息系統(tǒng)正常而可靠地運行，并能使系統(tǒng)不斷地得到改善和提高，以充分發(fā)揮作用。 score表此表是記錄學生成績信息表。 ”“ Set = conn With (”select * from yonghu“).MoveFirst End With = (0)Do While Not ((0)) Loop = ” End Sub 信息查詢主要是對學生的基本信息和學生的成績進行查詢。第三章 前臺界面分析 登陸界面主要代碼Option Explicit Dim m As IntegerDim conn As New Dim rs As New Private rsmc As Public username As String Private Sub cmdOk_Click()Dim ee As String If m 3 Then If Trim()= “ Or = ”“ Then MsgBox ”用戶名或密碼不能為空！請重新輸入！“, vbInformation, ”登錄信息“ Exit Sub End If Do While Not If (0)= And (1)= Then MsgBox ”歡迎你進入學生成績管理系統(tǒng),“ Unload Me Exit Sub End If Loop m = m + 1 ee = MsgBox(”用戶名或密碼錯誤！請重新輸入！“, vbCritical + vbRetryCancel, ”登錄信息“)39。因此，比較適合于采用數(shù)據(jù)庫管理。⑵ 由于該系統(tǒng)的使用對象多,要求有較好的權限管理。C語言程序設計及相應的開發(fā)環(huán)境。學生成績管理系統(tǒng)軟件應用的好壞直接影響到學校以及學校今后發(fā)展。Keywords: visual basic，Student result management the system，database, enquiries第一章 引言在高科技不斷發(fā)展的今天，計算機技術己經(jīng)廣泛應用到社會的各個領域。本文對Visual ，利用其提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口這一能方便而簡潔操縱數(shù)據(jù)庫的智能化對象，主要完成了對學生成績管理系統(tǒng)的系統(tǒng)分析部分，界面的設計、數(shù)據(jù)庫的設計等；系統(tǒng)設計部分主要介紹了系統(tǒng)功能設計和數(shù)據(jù)庫設計及代碼設計；關鍵詞：visual basic，學生成績管理系統(tǒng)，數(shù)據(jù)庫，查詢Abstract:Along with science technique is on the management more and more thorough but extensive application, manage information system of technique already gradually result management the system is a new academics which develops continuously, the whichever school wants to exist to want a development, highefficiencily internal activity organically the organization get up, because manage these huge systems are very difficult, think organically the organization get up, have to build up is mutually acmodative with oneself characteristics of result management text to Visual application program design tool carried on more thorough study and application, making use of what it provide various development tool which face to object, is the intelligence that data window way39。學生成績管理系統(tǒng)是一個不斷發(fā)展的新型學科，任何一個學校要生存要發(fā)展，要高效率地把內(nèi)部活動有機地組織起來，因為管理這些龐大的體系是非常困難的，要想有機地組織起來，就必須建立與自身特點相適應的成績管理系統(tǒng)。The system design part mainly introduced design and database design of the system function and code design。盡管開發(fā)人員已經(jīng)提供了很多解決的方法，但是現(xiàn)在開發(fā)、應用管理信息系統(tǒng)軟件的過程中，仍會碰到以下的情形。本課程設計的目的和任務： 系統(tǒng)設計的實驗環(huán)境硬件要求能運行Windows 2000/XP操作系統(tǒng)的微機系統(tǒng)。通過調(diào)查,要求系統(tǒng)需要有以下功能: ⑴ 由于操作人員的計算機知識普遍較差,要求有良好的人機界面。由于本系統(tǒng)管理的對象單一,都是在校學生，且每個數(shù)據(jù)內(nèi)容具有較強的關聯(lián)性，涉及的計算過程不是很復雜。本系統(tǒng)的設計是在Windows XP中文版操作系統(tǒng)環(huán)境下，使用Visual Basic 。 amp。 student 表學生的各種信息都來源于這個表。系統(tǒng)維護就是為了保證系統(tǒng)中的各個要素隨著環(huán)境的變化始終處于最新的，正確的工作狀態(tài)。隨著系統(tǒng)應用范圍的擴大，應用環(huán)境的變化，系統(tǒng)中的各種代碼都需要進行一定程度的增加、修改、刪除，以及設置新的代碼。在本次畢業(yè)設計中，我要向我的指導老師致以深深的謝意，感謝指導老師在這段時間里在學習上和生活上所給予的悉心的教誨和無微不至的幫助，在我感覺到自己知識有所貧乏的時候給了我細心的指導和技術上的支持。新版)》.機械工業(yè)出版社,2004,1 [13] 魯沐浴.《C語言最新編程技巧200例》.電子工業(yè)出版社,1997，1[14] 梁翎，李愛齊.《C語言程序設計實用技巧與程序?qū)嵗?上?？破粘霭嫔?1996，5 [15] 陳國章.《Turbo C程序設計技巧與應用實例》.天津科學技術出版社,1995，5 [16] 王士元.《C高級實用程序設計》.清華大學出版社,1996，6第二篇：學生成績管理系統(tǒng)VB程序登陸登陸Private Sub cmdLogin_Click()If = “ ThenMsgBox(”請輸入用戶名!“) Else Call openconn sql = ”select * from login where username=39。 and password=39。“ sql, conn, adOpenDynamic, adLockOptimistic If ThenMsgBox ”用戶不存在！“ElseUnload Me End If End If End Sub退出Private Sub cmdRegister_Click()Unload Me End Sub功能選擇選課管理Private Sub cmdChoice_Click() Unload Me End Sub 退出Private Sub cmdExit_Click()End End Sub 查詢Private Sub cmdFind_Click() Unload Me End Sub 成績管理Private Sub cmdGrade_Click() Unload Me End Sub 學生管理Private Sub cmdStu_Click() Unload Me End Sub學生管理添加Private Sub cmdAdd_Click() Unload Me End Sub 刪除Private Sub cmdDel_Click() MsgBox(”刪除成功！“)End Sub 編輯Private Sub cmdEdit_Click() Unload Me End Sub 查找Private Sub cmdFind_Click()39。 ”39。 ”39。獲取選中行的第5列數(shù)據(jù)End Sub 窗體Private Sub Form_Load()Dim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo“ = adUseClient sql, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet = rs 39。 ”39。 amp。 amp。 name amp。“ amp?！?amp。判斷學號是否存在 rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”修改成功！“)ElseMsgBox(”學號不存在!“)End If End If End Sub 窗體Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(