【文章內(nèi)容簡介】 、刪除，以及設(shè)置新的代碼。結(jié)語及致謝通過這次的設(shè)計，讓我對VB的使用有了進(jìn)一步的了解。在我做設(shè)計的過程遇到了許多的困難。通過老師和同學(xué)的幫助, 一一化解了困難，并從中學(xué)到了很多編程方面的知識。在本次畢業(yè)設(shè)計中，我要向我的指導(dǎo)老師致以深深的謝意，感謝指導(dǎo)老師在這段時間里在學(xué)習(xí)上和生活上所給予的悉心的教誨和無微不至的幫助，在我感覺到自己知識有所貧乏的時候給了我細(xì)心的指導(dǎo)和技術(shù)上的支持。使我自身的能力得到了不少的提高，這對于我以后的工作和學(xué)習(xí)都有一種巨大的幫助。感謝指導(dǎo)老師的耐心輔導(dǎo)。參考文獻(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版新版)》.機(jī)械工業(yè)出版社,2004,1 [13] 魯沐浴.《C語言最新編程技巧200例》.電子工業(yè)出版社,1997，1[14] 梁翎，李愛齊.《C語言程序設(shè)計實用技巧與程序?qū)嵗?上?？破粘霭嫔?1996，5 [15] 陳國章.《Turbo C程序設(shè)計技巧與應(yīng)用實例》.天津科學(xué)技術(shù)出版社,1995，5 [16] 王士元.《C高級實用程序設(shè)計》.清華大學(xué)出版社,1996，6第三篇：學(xué)生成績管理系統(tǒng)VB程序登陸登陸Private Sub cmdLogin_Click()If = “ ThenMsgBox(”請輸入用戶名!“) Else Call openconn sql = ”select * from login where username=39。“ amp。 Trim()amp。 ”39。 and password=39?！?amp。 Trim()amp。 ”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 學(xué)生管理Private Sub cmdStu_Click() Unload Me End Sub學(xué)生管理添加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。查詢功能 If = ”學(xué)號“ ThenIf = ”“ ThenMsgBox(”學(xué)號輸入不能為空!“)ElseDim sql1 As StringSet rs1 = New sql1 = ”select * from stuInfo where ID=39?！?amp。 amp。 ”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。 amp。 ”39?！?= adUseClient sql2, conn, adOpenDynamic, adLockOptimistic, adCmdTextIf ThenMsgBox(”查不到相關(guān)信息“)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。 = (4)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。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?！?amp。 amp。 ”39。 and =“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?！?amp。 amp。 ”39。 and name=39?！?amp。 amp。 ”39。 and =“name = sql2 = ”select Num from course where name=39。“ amp。 name amp。 ” 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。listbox控件利用循環(huán)讀取課程表中的課程名 rs(”name“)Loop End Sub查詢確定Private Sub cmdOK_Click()If txtID = ”“ ThenMsgBox(”學(xué)號不能為空！“) ElseDim sql As StringDim sum1, sum2 As SingleDim n As IntegerSet conn = New Set rs = New Call openconnsql = ”select , , from score , course where =39。“ amp。 amp。 ”39。 and =“ = adUseClient sql, conn, adOpenDynamic, adLockOptimistic, adCmdTextSet = rssum1 = 0sum2 = 0n = 0Do While Not sum1 = sum1 + Val(rs(”score“))sum2 = sum2 + Val(rs(”credit“))n = n + 1Loop = Format(sum1 / n, ”“) = sum2 End If End Sub 返回Private Sub cmdReturn_Click() Unload Me End Sub修改學(xué)生信息返回Private Sub cmdReturn_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學(xué)號不能為空！“) ElseIf = ”“ ThenMsgBox(”姓名不能為空！“) ElseIf = ”“ ThenMsgBox(”學(xué)分不能為空！“) ElseIf = ”“ ThenMsgBox(”年齡不能為空！“)