密码修改的窗体较为简单,这个窗体里并没有复杂的逻辑,都是常用的查询、更新语句,此窗体没有错误集和查询集,我们就简单的分享一下它的流程图和代码片段吧^_^
一、密码修改窗体流程图
二、代码片段
①、判断是否与原密码相同
txtSQL = "select * from User_Info where userID='" & frmlogin.txtuserid.Text & "'"
Set mrc = ExecuteSQL(txtSQL, MsgText)
If Trim(mrc.Fields(1)) <> Trim(txtoldpwd.Text) Then
MsgBox "您输入的旧密码有误,请重新输入!", vbOKOnly, "温馨提示:"
txtoldpwd.SetFocus
txtoldpwd.Text = ""
Exit Sub
End If
②、判断两次密码输入是否相同
If txtnewpwd.Text <> txttruepwd.Text Then
MsgBox "您两次密码不相同,请重新输入!", vbOKOnly, "温馨提示:"
txttruepwd.SetFocus
txttruepwd.Text = ""
Exit Sub
End If
③、更新数据库数据
updatetxtSQL = "update User_Info set PWD='" & Trim(txtnewpwd.Text) & "'where userID='" & frmlogin.txtuserid.Text & "'"
Set updatemrc = ExecuteSQL(updatetxtSQL, updateMsgText)
MsgBox "密码修改成功!", vbOKOnly, "温馨提示:"
以上便是密码修改的简单梳理,下一站(学生查看上下机记录)走起^_^