[窗体] 谁能帮我完成“修改密码”窗体的代码

2818110

请各位大虾指教,小弟感激不尽

2818110

刚才忘了传附件,不好意思

roych

建议转为2003版本，以便更多的网友帮忙解决问题。
我这里只能给一段代码你试试看：

1. 
   
2. Private Sub Cmd_Submit_Click()
   
3. DoCmd.SetWarnings False
   
4. '说明：T_User为用户表，pwd为表中密码字段，Me.Txt_User为窗体用户文本框，Me.Txt_oldPwd为旧密码文本框
   
5. If DLookup("pwd", "T_User", "[Login User]='" & Me.Txt_User & "'") <> Me.Txt_oldPwd Or IsNull(Me.Txt_oldPwd) Then
   
6. MsgBox "旧密码错误", vbCritical, "出错"
   
7. Me.Txt_User.SetFocus
   
8. 'Me.Txt_NewPwd为新密码文本框，Me.Txt_CfmPwd为确认密码文本框
   
9. ElseIf IsNull(Me.Txt_NewPwd) Or IsNull(Me.Txt_CfmPwd) Then
   
10. MsgBox "请输入新密码", vbInformation, "出错"
    
11. Me.Txt_NewPwd.SetFocus
    
12. ElseIf Me.Txt_NewPwd.Value <> Me.Txt_CfmPwd.Value Then
    
13. MsgBox "确认密码和新密码不一致", vbCritical, "出错"
    
14. Me.Txt_CfmPwd = ""
    
15. Me.Txt_NewPwd = ""
    
16. Me.Txt_NewPwd.SetFocus
    
17. Else
    
18. '全部对得上之后进行更新查询。
    
19. SSql = "UPDATE T_User SET T_User.Pwd = '" & Me.Txt_NewPwd.Value & "' WHERE ( T_User.[Login User] = '" & Me.Txt_User.Value & "')"
    
20. DoCmd.RunSQL (SSql)
    
21. If MsgBox("已成功更改密码" & Chr(13) & Chr(13) & "新密码为：" & Me.Txt_NewPwd & Chr(13) & Chr(13) & "请记住新密码", vbInformation + vbOKOnly, "成功更新密码") = vbOK Then
    
22. ‘关闭更改密码的窗体。
    
23. DoCmd.Close acForm, "frm_ChgPwd", acSaveYes
    
24. End If
    
25. End If
    
26. End Sub

复制代码