【正文】 第一篇：學(xué)生成績(jī)管理系統(tǒng)VB程序登陸登陸Private Sub cmdLogin_Click()If = “ ThenMsgBox(”請(qǐng)輸入用戶名!“) 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 成績(jī)管理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é)號(hào)“ ThenIf = ”“ ThenMsgBox(”學(xué)號(hào)輸入不能為空!“)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成績(jī)查詢返回 Private Sub cmdReturn_Click() Unload Me End Sub 確定Private Sub Command1_Click() = Trim()+ ”課程成績(jī)“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(”請(qǐng)輸入學(xué)號(hào)！“) ElseIf = ”“ ThenMsgBox(”請(qǐng)選擇課程！“)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(”已選過(guò)該課！“)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é)號(hào)不能為空！“) 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é)號(hào)不能為空！“) ElseIf = ”“ ThenMsgBox(”姓名不能為空！“) ElseIf = ”“ ThenMsgBox(”學(xué)分不能為空！“) ElseIf = ”“ ThenMsgBox(”年齡不能為空！“) ElseDim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo where ID=39?！?amp。 amp。 ”39。“ sql, conn, adOpenDynamic, adLockOptimisticIf Not Then39。判斷學(xué)號(hào)是否存在 rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”修改成功！“)ElseMsgBox(”學(xué)號(hào)不存在!“)End If End If End Sub 窗體Private Sub Form_Load()txtID = rs(”ID“)txtName = rs(”name“)txtSex = rs(”sex“)txtAge = rs(”age“) = rs(”pro“)End Sub添加學(xué)生返回Private Sub cmdReset_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學(xué)號(hào)不能為空！“) ElseIf = ”“ ThenMsgBox(”請(qǐng)輸入姓名！“) ElseIf = ”“ ThenMsgBox(”請(qǐng)輸入性別！“) ElseIf = ”“ ThenMsgBox(”年齡不能為空！“) ElseDim sql As StringSet conn = New Set rs = New Call openconnsql = ”select * from stuInfo where ID=39。“ amp。 amp。 ”39?！?sql, conn, adOpenDynamic, adLockOptimisticIf Then39。判斷學(xué)號(hào)是否存在 rs(”ID“)= rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”添加成功！“)Unload MeElseMsgBox(”學(xué)號(hào)已存在!)End If End If End Sub第二篇：vb學(xué)生成績(jī)管理系統(tǒng)論文目 錄摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系統(tǒng)設(shè)計(jì)的目的與要求...........................................3 ....................................................3 ................................................4 ................................................3 ....................................................4第三章 系統(tǒng)的概述.....................................................3 .......