學生成績管理系統vb程序(已修改)

　

【正文】 第一篇：學生成績管理系統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 學生管理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。查詢功能 If = ”學號“ ThenIf = ”“ ThenMsgBox(”學號輸入不能為空!“)ElseDim sql1 As StringSet rs1 = New sql1 = ”select * from stuInfo where ID=39。“ amp。 amp。 ”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。“ amp。 amp。 ”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。 = (4)39。39。獲取選中行的第5列數據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綁定數據源 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(”請輸入學號！“) 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控件利用循環讀取課程表中的課程名 rs(”name“)Loop End Sub查詢確定Private Sub cmdOK_Click()If txtID = ”“ ThenMsgBox(”學號不能為空！“) 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修改學生信息返回Private Sub cmdReturn_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學號不能為空！“) ElseIf = ”“ ThenMsgBox(”姓名不能為空！“) ElseIf = ”“ ThenMsgBox(”學分不能為空！“) 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。判斷學號是否存在 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(”age“) = rs(”pro“)End Sub添加學生返回Private Sub cmdReset_Click() Unload Me End Sub 提交Private Sub cmdSubmit_Click()If = ”“ ThenMsgBox(”學號不能為空！“) ElseIf = ”“ ThenMsgBox(”請輸入姓名！“) ElseIf = ”“ ThenMsgBox(”請輸入性別！“) 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。判斷學號是否存在 rs(”ID“)= rs(”name“)= rs(”sex“)= rs(”age“)= rs(”pro“)= MsgBox(”添加成功！“)Unload MeElseMsgBox(”學號已存在!)End If End If End Sub第二篇：vb學生成績管理系統論文目 錄摘要……………………………………………………………………………………….2 第一章 引言...........................................................3 第二章 系統設計的目的與要求...........................................3 ....................................................3 ................................................4 ................................................3 ....................................................4第三章 系統的概述.....................................................3 .......