Office中国论坛/Access中国论坛

标题: 如何用代码更改工作组的登录密码 [打印本页]

作者: 4848 时间: 2009-2-9 17:27
标题: 如何用代码更改工作组的登录密码
本人想自己做一个修改工作组登录密码的窗体,因为系统自带的窗体"用户与组账户"中虽然可以更改登录密码,但多了'用户'和'组'两个选项.

[attach]34949[/attach]

作者: koutx 时间: 2009-2-9 17:36
本帖最后由 koutx 于 2009-2-9 20:44 编辑

文本框掩码（注：指输入时不显示原码）

作者: 4848 时间: 2009-2-9 18:33

文本框掩码
koutx 发表于 2009-2-9 17:36

不明白,能不能指点详细一点?

作者: koutx 时间: 2009-2-9 20:31
右击文本框选属性，然后照下图操作：
[attach]34953[/attach]

作者: 4848 时间: 2009-2-9 20:46
可能是我表达不清楚,koutx 有点误解,我的意思是要用代码修改密码(工作组的用户密码)而不是在文本框里输入密码格式的文本.

作者: koutx 时间: 2009-2-9 20:47
如你要修改工作组中原设密码的话，需有管理员权限。并需你创建工作组文件时的ID

作者: 4848 时间: 2009-2-9 20:49
可以说一下具体操作吗?

作者: ACMAIN_CHM 时间: 2009-2-9 21:09
可以试试通过ADOX来改一下数据库用户账号的密码。要在工程中引用adox

Public Sub tt()

Dim cat As New ADOX.Catalog
Set cat.ActiveConnection = CurrentProject.Connection

cat.Users("admin").ChangePassword "oldPasswd", "newPswd"

End Sub

******************
* 一切皆有可能 *
******************
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/SList/Access .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

作者: koutx 时间: 2009-2-9 21:28
本帖最后由 koutx 于 2009-2-9 22:02 编辑

在这种问题上费这么多精力真没必要。
不过，还是贴在下面试试吧：
Private Function RenamUserP(ByVal strUser As String, _
      ByVal strPID As String, _
      Optional ByVal strPwd As String) As Boolean
Dim catDB As ADOX.Catalog

' 实例化 Catalog 对象。
Set catDB = New ADOX.Catalog
With catDB
      ' 使用到当前数据库的连接打开Catalog 对象。
      .ActiveConnection = CurrentProject.Connection
      .user.changePassword old,new
End With
' 关闭 Catalog 对象。
Set catDB = Nothing
End Function

作者: Grant 时间: 2009-2-9 21:32
确实，自定义的模块比安全机制好用多了

作者: 4848 时间: 2009-2-9 22:38

确实，自定义的模块比安全机制好用多了
Grant 发表于 2009-2-9 21:32

不知Grant 兄是否有例子可供学习一下.本人对安全的问题很感兴趣.

作者: 4848 时间: 2009-2-9 22:39
感谢大家的指点!

作者: lqylbh 时间: 2011-6-10 01:21
学习一下哈

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)