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

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

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

用户权限问题 发帖心情

Post By：2015/3/26 10:45:00 [只看该作者]

老师你好！

在例子中设了两个用户名，一名是医生，一名是护士，医生组只能编辑“住院记录”和“上级医师查房记录”等两个表，护士只能编辑“护理评估和护理记录单”等两个表，还有他们（医生和护士）按部门分类，例子中有个“部门管理表”（可以按部门编号）来区别。

请问用户角色和权限方面的代码怎样写？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:病历maxeh.rar

有点甜

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/3/26 11:01:00 [只看该作者]

这个说明我都看了几遍，说实话写代码方面的知识在初步阶段，所以需要老师的帮助，恳求看看我的例子

一楼的例子不全，请看看这个例子

下载信息 [文件大小：下载次数： ]
点击浏览该文件:病历maxeh.rar

有点甜

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/3/26 11:05:00 [只看该作者]

谢谢

有点甜

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/3/26 13:03:00 [只看该作者]

用上面代码以医生用户进入（例子中医生用户名“马合萨提”）还是可编辑护士平台的表，我想的是医生用户进入的时候不显示护士平台相关的表

（我设了两个用户名：马合萨提-组-医生；角色-医生平台。古丽娜孜-组-护士；角色护士平台，密码：123）

有点甜

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

ayiken

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

加好友

发短信

等级：童狐帖子：266 积分：2166 威望：0 精华：0 注册：2014/12/16 12:25:00

Post By：2015/3/26 16:27:00 [只看该作者]

以上代码切换用户时管用，但是在第一次用医生（护士）用户名登录时，起不了作用（显示出所有表），我把上满代码填写在项目属性中的LoadUserSetting里

有点甜

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

加好友

发短信

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

Post By：2015/3/26 16:36:00 [只看该作者]

呃，测试，是没有问题的，可能是你afteropenproject的代码影响了。

删除里面的代码，留一句

BaseMainform.Controls("C1Ribbon1").Font = New Font("TilKom Ekran Qara",9)

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

总数 14 1 2 下一页

主题：用户权限问题