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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用户权限问题

共有3176人关注过本帖树形打印复制链接主题：用户权限问题

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 10:47:00 [显示全部帖子]

看完开发指南，权限管理

http://www.foxtable.com/help/topics/2253.htm

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 11:02:00 [显示全部帖子]

LoadUserSetting加入类似代码

[此贴子已经被作者于2015/3/26 11:06:51编辑过]

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 11:07:00 [显示全部帖子]

代码写错了，改成这样

If user.Type <> UserTypeEnum.Developer Then
    For Each dt As DataTable In DataTables
        dt.AllowEdit = False
    Next
    If user.Roles = "医生平台" Then
        DataTables("住院记录").AllowEdit = True
        DataTables("上级医师查房记录").AllowEdit = True
    Else If user.Roles = "护士平台" Then
        DataTables("护理评估").AllowEdit = True
        DataTables("护理记录单").AllowEdit = True
    End If
End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2015/3/26 14:10:00 [显示全部帖子]

If user.Type <> UserTypeEnum.Developer Then
    For Each dt As Table In Tables
        dt.AllowEdit = False

        dt.Visible = False
    Next
    If user.Roles = "医生平台" Then
        Tables("住院记录").AllowEdit = True
        Tables("上级医师查房记录").AllowEdit = True

        Tables("住院记录").Visible = True
        Tables("上级医师查房记录").Visible = True

    Else If user.Roles = "护士平台" Then
        Tables("护理评估").AllowEdit = True
        Tables("护理记录单").AllowEdit = True

        Tables("护理评估").Visible = True
        Tables("护理记录单").Visible = True
    End If
End If