- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]授权可视化设置 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=127891)
-- 发布时间：2018/11/24 13:42:00
-- [求助]授权可视化设置
在系统中用“开发者”登录，可看到可视化“授权”表格，在此表格中的授权选项总是起不了作用，请大师帮忙，谢谢各位了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:人事管理系统.table |
-- 发布时间：2018/11/24 14:18:00
--
数据库发上来
-- 发布时间：2018/11/24 14:36:00
--
谢谢大师！
-- 发布时间：2018/11/24 14:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:database.rar |
-- 发布时间：2018/11/24 15:03:00
--
数据库奉上，谢谢大师了！！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:database.rar |
-- 发布时间：2018/11/24 15:10:00
--
同样的问题，请看：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=127872&skin=0
-- 发布时间：2018/11/24 20:00:00
--
还是没有办法，请有点蓝老师继续指导！谢谢！！
以下是在LoadUserSetting中的代码，但我找不到问题出在哪儿，总是达不到设置权限的效果。
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
Return
End If
For Each dr As DataRow In DataTables("授权").Select("UserName = \'" & _UserName & "\'" )
If dr.IsNull("ColName") Then
For Each t As Table In Tables
If t.DataTable.Name = dr("DateName") Then
t.Visible = Not dr("NoShow")
t.AllowEdit = Not dr("NoEdit")
End If
Next
Else
For Each t As Table In Tables
If t.DataTable.Name = dr("DateName") Then
For Each c As Col In t.Cols
If c.Name = dr("ColName") Then
c.Visible = Not dr("Noshow")
c.AllowEdit = Not dr("Noedit")
End If
Next
End If
Next
End If
Next
-- 发布时间：2018/11/25 17:44:00
--
7楼的代码，删除这段即可
If User.Type <> UserTypeEnum.User Then
Return
End If