用户的权限设置不生效 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户的权限设置不生效

共有2970人关注过本帖树形打印复制链接主题：用户的权限设置不生效

able88

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：269 威望：0 精华：0 注册：2015/5/5 14:18:00

用户的权限设置不生效 发帖心情

Post By：2015/5/5 14:23:00 [只看该作者]

按照帮助中的设计，但不生效，隐藏和禁用，都没生效，是不是还有其它地方要设才会生效，。

示例一

我们增加一个用户“录入员”，如果该用户登录，隐藏“数据表”和“管理项目”两个功能区，并禁用杂项功能区的“执行SQL”和 “命令窗口”两个按钮。

第一步当然是增加一个名为“录入员”的用户，然后在菜单系统事件LoadUserSetting加入如下代码：

If User.Name = "录入员" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If

设计完成后，请切换到录入员用户，看看是否已经实现设计要求。

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/5 14:24:00 [只看该作者]

肯定有效果.你把你做的例子文件发上来看看

able88

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：269 威望：0 精华：0 注册：2015/5/5 14:18:00

用户权限不生效 发帖心情

Post By：2015/5/5 14:40:00 [只看该作者]

见附件，录入者密码也是888，用录入者登陆，还是没有隐藏“数据表”和“管理项目”

Bin

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/5 14:41:00 [只看该作者]

不会的, 录入者和录入员是不一样的哦. 你判断的是录入员

able88

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：24 积分：269 威望：0 精华：0 注册：2015/5/5 14:18:00

Post By：2015/5/5 14:58:00 [只看该作者]

8M多的，上传不了，有没有邮箱。是“录入员”，刚才发论坛打错了

Bin

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2015/5/5 14:58:00 [只看该作者]

你可以做个简单例子发上来,无需把你整个项目发上来.

狐狸爸爸

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/5/5 15:00:00 [只看该作者]

加一行代码，显示一下用户名看看：

Messagebox.show("用户名是：'" & User.Name & "'")
If User.Name = "录入员" Then
    RibbonTabs("Table").Visible = False
    RibbonTabs("Project").Visible = False
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = False
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = False
Else
    RibbonTabs("Table").Visible = True
    RibbonTabs("Project").Visible = True
    RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled = True
    RibbonTabs("Other").Groups("Execute").Items("Command").Enabled = True
End If

[此贴子已经被作者于2015/5/5 15:00:43编辑过]