- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 可视化授权代码 无法执行 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=113025)
-- 发布时间：2018/1/7 13:19:00
-- [求助] 可视化授权代码 无法执行
此主题相关图片如下：1-7.png
-- 发布时间：2018/1/7 14:03:00
--
1、加入msgbox，弹出值 msgbox(user.name)
2、如果自己做的登陆窗口，你要把代码写到自己的登陆按钮里去。user.name改成_UserName
-- 发布时间：2018/1/7 14:44:00
--
用户名应该是没错的，选用户管理 只显示登录的用户名的。狐表的菜单 显示的所示切换用户后可以查看， 登陆窗口只是改了下图片，按键没有更换
-- 发布时间：2018/1/7 16:45:00
--
加入代码，看弹出什么
msgbox(user.Type)
msgbox(user.name)
-- 发布时间：2018/1/7 16:46:00
--
如果自己不会调试，上传实例具体说明。
-- 发布时间：2018/1/8 14:40:00
--
msgbox(user.Type)
msgbox(user.name)
在LoadUserSetting 原代码中加入后切换用户 无反应
Dim dr As DataRow
Tables("授权表").Visible = (User.Type <> UserTypeEnum.User ) \'普通用记登录则隐藏
If User.Type = UserTypeEnum.User Then \'如果是普通用户登录,根据不同的用户来设定权限
For Each dr In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )
If dr IsNot Nothing Then \'未找到相应的名字
For Each t As Table In Tables
t.AllowEdit =False
Next
Else
msgbox(user.Type)
msgbox(user.name)
-- 发布时间：2018/1/8 14:41:00
--
后来我在命令窗口中执行，得到的结果是： “ 2 ” “沈良林”
-- 发布时间：2018/1/8 14:43:00
--
此主题相关图片如下：1-8.png
-- 发布时间：2018/1/8 14:47:00
--
试试改成这样
Dim dr As DataRow
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 In DataTables("授权表").Select("用户名 = \'" & User.Name & "\'" )
If dr.IsNull("列名") Then
Tables(dr("表名")).Visible = not dr("不可见")
Tables(dr("表名")).AllowEdit = dr("可编辑")
Else
Tables(dr("表名")).Cols(dr("列名")).Visible = not dr("不可见")
Tables(dr("表名")).Cols(dr("列名")).AllowEdit =dr("可编辑")
End If
Next
End If
-- 发布时间：2018/1/8 15:38:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:权限限制.rar |
此主题相关图片如下：1-8-1.png