Question

VB修改密码代码

是这样的！我想做个修改密码的小程序，他是接在主程序上的，有两个文本框text1和text2，还有一个data1，是连接数据库的，我现在不想要这个data1，直接存放到text3中，但是如何给text3加密！！如何让他们实现修改密码功能啊！您还可以给我建议您的代码！
为了不浪费分数！我最后会给100分！！谢谢各位哈！

Answer 1

这个有点纠结，下面我把我自己做的一个修改密码的程序给你讲解一下。
首先设置两个文本框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

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