可视化授权的实现 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可视化授权的实现

共有5011人关注过本帖树形打印复制链接主题：可视化授权的实现

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

可视化授权的实现 发帖心情

Post By：2013/6/6 10:45:00 [显示全部帖子]

在 可视化授权的实现中开发者是否需要授权？

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 10:49:00 [显示全部帖子]

可我在项目中以开发者登陆后，除权限表外其他表都隐藏了；以其他分组名登陆其他表可见

[此贴子已经被作者于2013-6-6 10:49:41编辑过]

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 10:52:00 [显示全部帖子]

用户管理中的用户分组和授权表中的分组名是否一致？

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 11:02:00 [显示全部帖子]

表隐藏我想是因为设置：

For Each t As Table In Tables
    t.Visible = False
    t.AllowEdit = true
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next

把：t.Visible = True 改成了 False

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 11:04:00 [显示全部帖子]

所以连开发者都需授权才能看见其他表

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 11:16:00 [显示全部帖子]

那要如何修改代码来判断当开发者登陆时不隐藏。

For Each t As Table In Tables
    t.Visible = True
    t.AllowEdit = true
    For Each c As Col In t.Cols
        c.Visible = True
        c.AllowEdit = True
    Next
Next
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )
If User.Type = UserTypeEnum.User Then
    For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Group & "'" )
        If dr.IsNull("列名") Then
            Tables(dr("表名")).Visible = Not dr("不可见")
            Tables(dr("表名")).AllowEdit = Not dr("不可编辑")
        Else
            Tables(dr("表名")).Cols(dr("列名")).Visible = Not dr("不可见")
            Tables(dr("表名")).Cols(dr("列名")).AllowEdit = Not dr("不可编辑")
        End If
    Next
End If

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 11:18:00 [显示全部帖子]

另外在授权表中设置隐藏关联表没有起作用

wqb1102

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

加好友

发短信

等级：小狐帖子：321 积分：2210 威望：0 精华：0 注册：2008/8/31 22:37:00

Post By：2013/6/6 11:31:00 [显示全部帖子]

多谢了

下一主题 >> << 上一主题

主题：可视化授权的实现