机房收费系统——修改密码

最新推荐文章于 2020-05-26 20:45:54 发布

LYH--宇航

最新推荐文章于 2020-05-26 20:45:54 发布

阅读量185

点赞数

文章标签： vb 第一次机房收费系统注册

本文链接：https://blog.csdn.net/weixin_44459831/article/details/97615020

版权

第一开始机房的这个修改密码的时候我只直接用学生系统的修改密码的代码的，但是一直报错显示查询不到数据，找不到我的这个账号的主键所以我研究了半天还把小伙伴叫了过来也研究了一下，还是不行。结果过了一天他说知道问题的原因了，就是在修改密码这个窗体上多加了一行定义

~~Public UserName As String~~
这行定义直接定义到模块里就行了，不用再在窗体上定义了。

Private Sub cmdOK_Click()
     Dim txtSQL As String
     Dim MsgText As String
     Dim mrc As ADODB.Recordset
    
    txtSQL = "select * from User_info where userID='" & UserName & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    If Trim(txtOldPassword.Text) <> Trim(mrc.Fields(1)) Then
        MsgBox "原密码输入不正确！", vbOKOnly + vbExclamation, "警告"
        txtOldPassword.SetFocus
        txtOldPassword.Text = ""
        Text1(1).Text = ""
        Text1(2).Text = ""
        Exit Sub
    Else
 
    If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then
        MsgBox "密码输入不正确！", vbOKOnly + vbExclamation, "警告"
        Text1(1).SetFocus
        Text1(1).Text = ""
    Else
        txtSQL = "select * from user_Info where userID = '" & UserName & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)

        mrc.Fields(1) = Text1(1).Text
        mrc.Update
        mrc.Close
        MsgBox "密码修改成功！", vbOKOnly + vbExclamation, "修改密码"
        Me.Hide
        txtOldPassword.Text = ""
        Text1(1).Text = ""
        Text1(2).Text = ""
    End If
    

 FrmMain.Hide
 frmLogin.Show
End If
End Sub

这个是修改完成后的代码。