Foxtable(狐表)用户栏目专家坐堂 → [求助][建议]


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

主题:[求助][建议]

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


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
[求助][建议]  发帖心情 Post By:2015/10/14 20:08:00 [只看该作者]

在当前用户为“管理员”下,怎样让管理员身份的用户不可以通过“用户管理窗口”修改其“用户角色”和“用户分组”为“开发者”?  或者代码切换用户时只调用“用户切换”窗口但不调用“用户管理”窗口”?  谢谢
[此贴子已经被作者于2015/10/14 20:19:09编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/14 20:23:00 [只看该作者]

管理员,是可以修改每个用户的用户角色的。没办法限制。

 

 


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


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2015/10/14 20:28:00 [只看该作者]

谢谢  那怎样实现代码切换用户时只调用“用户切换”窗口但不调用“用户管理”窗口”?

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


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2015/10/14 20:34:00 [只看该作者]

问题是管理员权限下调用“用户管理”窗口通过“修改”按钮 把管理员用户修改成“开发者”角色或用户组

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/14 20:36:00 [只看该作者]

把菜单隐藏,如

 

RibbonTabs("Project").Groups("Users").Items("Users").Visible = False

 

或者

 

RibbonTabs("Project").Groups("Users").Items("Users").Enabled = False


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


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2015/10/14 20:39:00 [只看该作者]

好的  太谢谢了 不过管理员角色或用户组下不应允许修改成“开发者”角色或用户组

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


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2015/10/14 20:53:00 [只看该作者]

谢谢大红袍! 我是想调用“用户属性”窗口时,使“用户分组”和“用户角色”的下拉菜单False 只允许修改改密码 其他的都不允许修改 谢谢!
[此贴子已经被作者于2015/10/14 20:56:41编辑过]

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/10/14 20:59:00 [只看该作者]

做一个计划任务,加上下面代码

 

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then    
    If frm.name = "Class182" Then
        frm.controls("cmbGroups").Enabled = False
        frm.controls("cmbRoles").Enabled = False
    End If
End If


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


加好友 发短信
等级:婴狐 帖子:78 积分:600 威望:0 精华:0 注册:2014/1/21 21:47:00
  发帖心情 Post By:2015/10/14 21:05:00 [只看该作者]

谢谢大红泡老师耐心的指教!

 回到顶部