【学生】修改密码时显示旧密码

【前言】

在进行学生信息管理系统的时候，在修改密码的时候需要验证原密码是否是正确的。

【正文】

加入一个label控件，显示现在的用户名。

进入数据库进行查询，显示当前用户名。

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String

    Width = 6252
    Height = 5640
    txtoldPassword.Text = ""
    txtPassword1.Text = ""
    txtPassword2.Text = ""
    
    '连接数据库
    txtSQL = "select * from [user_Info] where user_ID= '" & username & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    'label框查询数据库
    Label4.Caption = Trim(mrc.Fields(0))
'    Label4.Caption = "当前用户名为：" & username
    Me.Show
    txtoldPassword.SetFocus
End Sub

在确认修改的控件下，加一个判断，进入数据库进行判断，判断旧密码是否是当前用户的密码。正确就进行下一步，不正确就警示并重新输入。

'验证原密码是否正确
        If Trim(txtoldPassword.Text) = Trim(mrc.Fields(1)) Then
        Else
            MsgBox "旧密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtoldPassword.SetFocus
            txtoldPassword.Text = ""
            txtPassword1.Text = ""
            txtPassword2.Text = ""
            Exit Sub
        End If
        '验证新密码与原密码不能一致
        If Trim(txtoldPassword.Text) <> Trim(txtPassword1.Text) Then
        Else
            MsgBox "新密码与旧密码不能一致，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtPassword1.SetFocus
            txtPassword1.Text = ""
            txtPassword2.Text = ""
            Exit Sub
        End If

【后记】

有错误请联系我。