机房收费系统之一般用户修改密码窗体

界面设计

流程图

代码实现

Private Sub cmdok_Click()
    Dim mrc As adodb.Recordset
    Dim txtsql As String
    Dim msgtext As String
    
    '判断各个文本框的内容是否为空
    If testtxt(txtoldcode.Text) = False Or testtxt(txtnewcode1.Text) = False Or testtxt(txtnewcode2.Text) = False Then
        MsgBox "密码不能为空，请输入！", 0 + 48, 警告
        Exit Sub
    End If
        
    '从card_info表中进行查询
    txtsql = "select * from card_info where cardno='" & Trim(username) & "'"
    Set mrc = ExecuteSQL(txtsql, msgtext)
    
    '判断原密码是否正确
    If Trim(mrc!pwd) = Trim(txtoldcode.Text) Then
        '判断原密码和新密码是否一致
        If Trim(mrc!pwd) = Trim(txtnewcode1.Text) Then
            MsgBox "密码没有任何修改！", 0 + 48, 警告
            txtnewcode1.Text = ""
            txtnewcode2.Text = ""
            txtnewcode1.SetFocus
            Exit Sub
        Else
            '判断两次新密码是否一致
            If Trim(txtnewcode1.Text) <> Trim(txtnewcode2.Text) Then
                MsgBox "两次新密码不一致！", 0 + 48, 警告
                txtnewcode1.Text = ""
                txtnewcode2.Text = ""
                txtnewcode1.SetFocus
                Exit Sub
            Else
                '更新card_info表，修改密码成功
                txtsql = "update card_info set pwd='" & Trim(txtnewcode1.Text) & "' where cardno='" & Trim(username) & "'"
                Set mrc = ExecuteSQL(txtsql, msgtext)
                MsgBox "修改密码成功，下次登录时新密码生效！"
                Unload Me
            End If
        End If
    Else
        MsgBox "原密码不正确，请重新输入！", 0 + 48, 警告
        txtoldcode.Text = ""
        txtoldcode.SetFocus
        Exit Sub
    End If