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

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

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

wqb1102

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

加好友

发短信

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

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

Post By：2013/6/6 10:45:00 [只看该作者]

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

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/6/6 10:47:00 [只看该作者]

开发者不用，拥有全部权限

wqb1102

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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编辑过]

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/6/6 10:50:00 [只看该作者]

你那些表本来就是隐藏了吧

wqb1102

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

加好友

发短信

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

Post By：2013/6/6 10:52:00 [只看该作者]

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

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/6/6 10:57:00 [只看该作者]

用户管理中的用户分组是你自己建立的

帮助的授权表中是用系统的自带的用户管理设置的

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

wqb1102

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

加好友

发短信

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

Post By：2013/6/6 11:04:00 [只看该作者]

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

XYT

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

加好友

发短信

等级：六尾狐帖子：1418 积分：7167 威望：0 精华：0 注册：2013/3/18 8:37:00

Post By：2013/6/6 11:07:00 [只看该作者]

这个不是授权，这个隐藏无论授权不授权都是隐藏的，因为你都没有判断什么情况才隐藏

wqb1102

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

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

总数 16 1 2 下一页

主题：可视化授权的实现