VB修改密码代码

发布网友发布时间：2022-05-18 20:25

共1个回答

热心网友时间：2023-08-16 11:48

这个有点纠结，下面我把我自己做的一个修改密码的程序给你讲解一下。
首先设置两个文本框text1 text2 一个按钮Command1 一个ADO控件并与你制作的数据库连接，然后再双击Command1 输入下面的代码即可。
Private Sub Command1_Click()
Adodc1.RecordSource = "select * from 登录 where 用户名='" + Text1.Text + "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox ("用户不存在！")
Text1.Text = ""
Text2.Text = ""
Else
If Trim(Text2.Text) = Trim(Adodc1.Recordset.Fields("密码")) Then
MsgBox ("登陆成功！")
Me.Hide
物资管理信息系统.Show
Else
MsgBox ("密码错误！")
Text2.Text = ""
End If
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text2_keydown(keycode As Integer, shift As Integer)
If keycode = 13 Then
Call Command1_Click
Else
End If
End Sub

上面这个是可以运行的啊！