学生信息管理系统总结（优化二）

学生信息管理系统无时无刻不在进行优化，接下来继续给大家分享我对学生信息管理系统的优化，希望对大家有所帮助哦。

一、显示当前数据位置

Private Sub nextCommand_Click()
    If mrc.EOF = True Then
        MsgBox "已经是最后一条数据"
    Else
         mrc.MoveNext
    End If
    Call viewData
End Sub

Private Sub previousCommand_Click()
    If mrc.BOF = True Then
        MsgBox "已经是第一条数据"
    Else
         mrc.MovePrevious
    End If
    Call viewData
End Sub

二、判断输入的分数

Private Sub txtResult_Change()
    If Val(txtResult.Text) > 150 Then
        MsgBox "成绩已超出范围，成绩范围为0~150哦"
        txtResult.SetFocus
        txtResult.Text = ""
    End If
End Sub

三、修改密码前输入旧密码

txtSQL = "select * from user_Info where user_ID ='" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If (Userpwd = Text2.Text) Then
      MsgBox "请输入正确的旧密码！"
      Text2.Text = ""
end if

四、新密码和旧密码是否一致

txtSQL = "select * from user_Info where user_ID ='" & UserName & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If (Userpwd = Text1(1).Text) Then
    MsgBox "与旧密码重复，请重新修改！"
    Text1(1).Text = ""
    Text1(2).Text = ""
    Text1(1).SetFocus
else
    mrc.Fields(1) = Text1(1).Text
    mrc.Update
    mrc.Close
    MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
    Unload Me
End If

五、不重复添加课程

Static b  As Integer
Dim s As String
Dim w As Integer

If listAllcourse.ListIndex <> -1 Then
    For b = 0 To listSelectcourse.ListCount - 1
        If listSelectcourse.List(b) = listAllcourse.List(listAllcourse.ListIndex) Then
            MsgBox "不能重复添加课程！"
            w = 3
        End If
    Next
        If w = 3 Then
    Exit Sub
Else
    listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If