Foxtable(狐表)用户栏目专家坐堂 → 自定义用户权限管理用户密码自己修改问题


  共有9527人关注过本帖树形打印复制链接

主题:自定义用户权限管理用户密码自己修改问题

帅哥哟,离线,有人找我吗?
aygp
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
自定义用户权限管理用户密码自己修改问题  发帖心情 Post By:2013/1/19 19:09:00 [只看该作者]

      一般情况下,系统给用户一个初始密码,用户重新修改为自己容易记忆的密码。现在设计了一个修改密码窗体,请问修改密码的代码应该如何编写?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2013/1/20 14:21:00 [只看该作者]

用户一般都不愿意使用系统分配的密码,所以提供一个用户可以自己修改密码的功能非常重要。。


 回到顶部
帅哥哟,离线,有人找我吗?
ericsky
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:363 积分:3831 威望:0 精华:0 注册:2012/4/16 20:20:00
  发帖心情 Post By:2013/1/20 16:02:00 [只看该作者]

请看帮助中有自定义用户与权限管理一节,有相关的内容
开放更改密码的窗口给用户,就可以实现更改登录密码的功能

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2013/1/20 21:33:00 [只看该作者]

自定义用户与权限管理一节中没有找到“开放更改密码的窗口给用户”(注意,不是系统自带的权限管理中的密码改)。请帮忙指出具体说明的位置。拜托了!

 回到顶部
帅哥哟,离线,有人找我吗?
夕然
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/1/20 22:45:00 [只看该作者]

真那么找是没有的
你可以自定义一个菜单,然后将菜单的某项按钮代码设置为
forms("更改用户").show


 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2013/1/20 22:57:00 [只看该作者]

这个“更改用户”窗口是提供给管理员用的,如果“更改用户”窗口开放给了用户,那谁的密码都可以任意更改了。我需要的是‘用户’只能够修改自己的密码。

 回到顶部
帅哥哟,离线,有人找我吗?
夕然
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:619 积分:3656 威望:0 精华:1 注册:2012/6/13 22:00:00
  发帖心情 Post By:2013/1/20 23:06:00 [只看该作者]

你自己试试,那个窗口是开放给个人用户的,其他人改不了的

 回到顶部
帅哥哟,离线,有人找我吗?
lin_hailun
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:6708 积分:34304 威望:0 精华:11 注册:2012/8/18 23:10:00
  发帖心情 Post By:2013/1/21 9:09:00 [只看该作者]

以下是引用aygp在2013-1-20 22:57:00的发言:
这个“更改用户”窗口是提供给管理员用的,如果“更改用户”窗口开放给了用户,那谁的密码都可以任意更改了。我需要的是‘用户’只能够修改自己的密码。


你修改用户管理菜单的代码。根据不同的登录角色弹出不同的管理窗口,对于普通用户,就弹出普通用户的管理窗口。

例如,

If _UserGroup = "经理" then
    Forms("xxx").Open
Else
    Forms("xxx").Open
End If

 回到顶部
帅哥哟,离线,有人找我吗?
aygp
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:693 积分:5206 威望:0 精华:0 注册:2011/3/15 12:34:00
  发帖心情 Post By:2013/1/21 19:04:00 [只看该作者]

我试一试,谢谢林老师!

 回到顶部
帅哥哟,离线,有人找我吗?
gaoshr
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:39 积分:408 威望:0 精华:0 注册:2013/4/5 16:56:00
  发帖心情 Post By:2013/4/5 17:43:00 [只看该作者]

用户权限设置,按帮助中复制PrepareEdit事件无效,因为没有注册吗?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限问题.zip


 回到顶部