Question

vb6.0用access连接数据库,做修改密码！ 有“原用户名”、“原密码”、新密码、新确认密码等个文本框。

数据库是：数据库.mdb;
表是：登录；
表的内容有：用户名、密码等字段。
期望有完整的代码！！！

Answer 1

If chkmm.Value = 1 Then '点击“修改密码”复选框
If Comboname.Text = "" Then '用户名为空的话，不能修改密码
r = MsgBox("没有选择用户！")
Exit Sub
End If

rec.MoveFirst
'以下判断用户名和密码是否一致
Do While Not rec.EOF '该循环取出数据库中和列表框中用户一致的密码
If rec.Fields("用户名") = Comboname.Text Then
Let mm = Trim(rec.Fields("登录密码"))
End If
rec.MoveNext
Loop
If Trim(Textpassword.Text) = mm Then '判断输入密码是否正确
If txtNewPassword.Text <> txtConPW.Text Then
r = MsgBox("新密码不一致！")
txtNewPassword.Text = "" '不一致的话，清空文本框，重新输入
txtConPW.Text = ""
txtNewPassword.Text = ""
Else
rec.Index = "PrimaryKey" '寻找数据库中的用户记录，修改相应密码
rec.Seek "=", Comboname.Text
rec.Edit
rec.Fields(1) = txtNewPassword.Text
rec.Update
r = MsgBox("密码修改成功！" )
Unload Me
Form首页.Show '用户名和密码正确的话显示Form登录界面窗体
End If
Else '就密码错误，则不能修改密码
r = MsgBox("旧密码错误！", )
Textpassword.Text = ""
Textpassword.SetFocus
Exit Sub
End If

Private Sub chkmm_Click() '处理点击修改密码复选框后的消息
Textpassword.SetFocus
If chkmm.Value = 1 Then
Form登录界面.Height = 4890
lbNpw.Visible = True
lbCpw.Visible = True
txtNewPassword.Visible = True
txtConPW.Visible = True
cmddl.Move 4000, 3840
cmdqx.Move 2760, 3840

Else

lbNpw.Visible = False
lbCpw.Visible = False
txtNewPassword.Visible = False
txtConPW.Visible = False
cmddl.Move 4000, 2880
cmdqx.Move 2760, 2880
Form登录界面.Height = 4000

End If
End Sub