vba编程教程 VB如何实现修改密码的功能？求代码和方法？

VB如何实现修改密码的功能？求代码和方法？

这有点纠结。现在我将向你解释一个我用来修改密码的程序。

首先，设置两个Text1 Text2 Text1、一个按钮command1、一个ADO控件并连接到数据库，然后双击command1并输入以下代码。

专用子命令1_uu单击（）

adodc1。RecordSource=“从用户名=”“文本1的登录名中选择*。”。文本“”

adodc1。刷新

如果adodc1记录集.记录计数=0则

msgbox（”用户不存在！“”

Text1.Text=“”

Text2.Text=“”

Else

如果Trim（Text2.Text）=Trim（Adodc1）。记录集字段（“password”）然后

msgbox（“login successful”！")

我。躲起来

物料管理信息系统。Show

else

msgbox（”密码错误！“”

Text2.Text=“”

End If

End If

End Sub

Private Sub Command2uuclick（）

卸载我

End Sub

Private Sub Text2ukeydown（keycode为整数，shift为整数）

如果keycode=13，则

调用Command1uclick

否则

End If

End Sub上述命令可以运行！

vba编程教程 vb设置登录用户名密码代码 vb中程序如何修改密码

版权声明：本文内容由互联网用户自发贡献，本站不承担相关法律责任.如有侵权/违法内容,本站将立刻删除。