学生成绩管理系统VB程序.doc

登陆登陆Private Sub cmdLogin_Click()If txtUser.Text = Then MsgBox (请输入用户名!) txtUser.SetFocusElse Call openconn sql = select * from login where username= & Trim(txtUser.Text) & and password= & Trim(txtPwd.Text) & rs.Open sql, conn, adOpenDynamic, adLockOptimistic If rs.EOF Then MsgBox 用户不存在！ Else Unload Me frmMain.Show End IfEnd IfEnd Sub退出Private Sub cmdRegister_Click()Unload MeEnd Sub功能选择选课管理Private Sub cmdChoice_Click()frmChoice.ShowUnload MeEnd Sub退出Private Sub cmdExit_Click()EndEnd Sub查询Private Sub cmdFind_Click()frmFind.ShowUnload MeEnd Sub成绩管理Private Sub cmdGrade_Click()frmGrade.ShowUnload MeEnd Sub学生管理Private Sub cmdStu_Click()frmStu.ShowUnload MeEnd Sub学生管理添加Private Sub cmdAdd_Click()frmAddStu.ShowUnload MeEnd Sub删除Private Sub cmdDel_Click()rs.DeleteMsgBox (删除成功!)End Sub编辑Private Sub cmdEdit_Click()frmEditStu.ShowUnload MeEnd Sub查找Private Sub cmdFind_Click() 查询功能If cboFind.Text = 学号 Then If txtInput.Text = Then MsgBox (学号输入不能为空!) txtInput.SetFocus Else Dim sql1 As String Set rs1 = New ADODB.Recordset sql1 = select * from stuInfo where ID= & txtInput.Text & rs1.CursorLocation = adUseClient rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then MsgBox (查不到相关信息) txtInput.SetFocus Else Set DataGrid1.DataSource = rs1 DataGrid1.Refresh End If End IfElse If txtInput.Text = Then MsgBox (姓名输入不能为空!) txtInput.SetFocus Else Dim sql2 As String Set rs2 = New ADODB.Recordset sql2 = select * from stuInfo where name= & txtInput.Text & rs2.CursorLocation = adUseClient rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic, adCmdText If rs.EOF Then MsgBox (查不到相关信息) txtInput.SetFocus Else Set DataGrid1.DataSource = rs2 DataGrid1.Refresh End If End IfEnd IfEnd Sub返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub输出窗口Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer) txtInput.Text = DataGrid1.Columns.Item(4) 获取选中行的第5列数据End Sub窗体Private Sub Form_Load() Dim sql As String Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Call openconn sql = select * from stuInfo rs.CursorLocation = adUseClient rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs datagrid绑定数据源End Sub成绩查询返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub确定Private Sub Command1_Click() lblGrade.Caption = Trim(cboCourse.Text) + 课程成绩 Dim sql1 As String Set rs1 = New ADODB.Recordset sql1 = select score.ID,score.Num,score.score from score, course where name= & cboCourse.Text & and score.Num=course.Num sql1 = select * from course rs1.CursorLocation = adUseClient rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs1End Sub窗体Private Sub Form_Load() Dim sql As String Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Call openconn sql = select * from course rs.Open sql, conn, adOpenDynamic, adLockOptimistic Do Until rs.EOF cboCourse.AddItem rs(name) rs.MoveNext LoopEnd Sub选课管理返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub提交Private Sub cmdSubmit_Click()If txtID = Then MsgBox (请输入学号!) txtID.SetFocusElseIf lstCourse.Text = Then MsgBox (请选择课程!)Else Dim sql1 As String Dim sql2, name As String Set rs2 = New ADODB.Recordset Set rs1 = New ADODB.Recordset sql1 = select score.ID, score.Num from score , course where ID= & txtID.Text & and name= & lstCourse.Text & and score.Num=course.Num name = lstCourse.Text sql2 = select Num from course where name= & name & rs1.Open sql1, conn, adOpenDynamic, adLockOptimistic rs2.Open sql2, conn, adOpenDynamic, adLockOptimistic If rs1.EOF Then rs1.AddNew rs1(ID) = txtID.Text rs1(Num) = rs2(Num) rs1.Update MsgBox (选课成功!) rs1.Close Else MsgBox (已选过该课!) End IfEnd IfEnd Sub窗体Private Sub Form_Load() Dim sql As String Set conn = New ADODB.Connection Set rs = New ADODB.Recordset sql = select * from course Call openconn rs.Open sql, conn, adOpenDynamic, adLockOptimistic Do Until rs.EOF listbox控件利用循环读取课程表中的课程名 lstCourse.AddItem rs(name) rs.MoveNext LoopEnd Sub查询确定Private Sub cmdOK_Click()If txtID = Then MsgBox (学号不能为空!) txtID.SetFocusElse Dim sql As String Dim sum1, sum2 As Single Dim n As Integer Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Call openconn sql = select , score.score , course.credit from score , course where score.ID= & txtID.Text & and score.Num=course.Num rs.CursorLocation = adUseClient rs.Open sql, conn, adOpenDynamic, adLockOptimistic, adCmdText Set DataGrid1.DataSource = rs sum1 = 0 sum2 = 0 n = 0 Do While Not rs.EOF sum1 = sum1 + Val(rs(score) sum2 = sum2 + Val(rs(credit) n = n + 1 rs.MoveNext Loop lblAvg.Caption = Format(sum1 / n, 0.0) lblCredit.Caption = sum2End IfEnd Sub返回Private Sub cmdReturn_Click()frmMain.ShowUnload MeEnd Sub修改学生信息返回Private Sub cmdReturn_Click()frmStu.ShowUnload MeEnd Sub提交Private Sub cmdSubmit_Click()If txtID.Text = Then MsgBox (学号不能为空！) txtID.SetFocusElseIf txtName.Text = Then MsgBox (姓名不能为空！) txtName.SetFocusElseIf txtSex.Text = Then MsgBox (学分不能为空！) txtSex.SetFocusElseIf txtAge.Text = Then MsgBox (年龄不能为空！) txtAge.SetFocusElse Dim sql As String Set conn = New ADODB.Connection Set rs = New ADODB.Recordset Call openconn sql = select * from stuInfo where ID= & txtID.Text & rs.Open sql, conn, adOpenDynamic, adLockOptimistic If Not rs.EOF Then 判断学号是否存在 rs(name) = txtName.Text rs(sex) = txtSex.Text rs(age) = txtAge.Text rs(pro) = cboPro.Text rs.Update MsgBox (修改成功！) Else MsgBox (学号不存在!) End IfEnd IfEnd Sub窗体Private Sub Form_Load()txtID = rs(ID)txtName = rs(name)txtSex = rs(sex)txtAge = rs(age)cboPro.Text = rs(pro)End Sub添加学生返回Private Sub cmdReset_Click()frmStu.ShowUnload MeEnd Sub提交Private Sub cmdSubmit_Click()If txtID.Text = Then MsgBox (学号不