Foxtable(狐表)用户栏目专家坐堂 → 使用什么权限管理形式较好


  共有5597人关注过本帖树形打印复制链接

主题:使用什么权限管理形式较好

帅哥哟,离线,有人找我吗?
sxqq123
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
使用什么权限管理形式较好  发帖心情 Post By:2013/7/2 9:48:00 [显示全部帖子]

你好,一个项目有150张表,有150个用户,其中50个用户对不同的表和列有编辑权限,100个用户只能查看不能编辑,我采用什么样的权限管理比较好?
想采用可视化授权形式,是不是100个只能查看不能编辑的用户中每一个人都需要对150张表进行设置?还是如何处理比较好,请指教.

 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 10:37:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130702103533.jpg
图片点击可在新窗口打开查看

如果要设置某一个或几个用户能够编辑某个表,如何设置?


 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 10:43:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130702103533.jpg
图片点击可在新窗口打开查看

上面的表对无权限用户进行了限制,现在要设置某一个或几个用户能够编辑某个表,而其它用户不能编辑,如何设置?


 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 11:08:00 [显示全部帖子]


图片点击可在新窗口打开查看此主题相关图片如下:qq图片20130702110615.jpg
图片点击可在新窗口打开查看


为指定用户设置可编辑可以实现编辑功能,如何限制其它用户对同一表格的编辑功能呢,


 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 11:13:00 [显示全部帖子]

If _UserName = "王三" Then
Tables("质检数据"). AllowEdit = True
Tables("质检入库"). AllowEdit = True
Else
Tables("质检数据"). AllowEdit = False
Tables("质检入库"). AllowEdit = False
End If
就是如何实现上面的功能,原来用代码,现在想用权限表实现,

 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 11:31:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限管理.foxdb

请指教


 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 15:51:00 [显示全部帖子]

 代码设置成这样就可以呀,存在什么问题吗?

For Each dt As DataTable In DataTables

    For Each dr As DataRow In DataTables("权限管理").DataRows

        If dr("用户名") = User.Name AndAlso dr("表名")= dt.Name AndAlso dr("可编辑")=True Then

                       Tables(dt.Name).AllowEdit = True

            Else

                Tables(dt.Name).AllowEdit = False

            End If

          Next

Next


 回到顶部
帅哥哟,离线,有人找我吗?
sxqq123
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:300 积分:2307 威望:0 精华:0 注册:2012/11/14 11:25:00
  发帖心情 Post By:2013/7/2 17:10:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:权限管理.foxdb

请指教


 回到顶部