Foxtable(狐表) → 用户栏目 → 专家坐堂 → 可视化授权的问题


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

主题：可视化授权的问题
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		可视化授权的问题  发帖心情 Post By：2022/6/23 16:10:00 [显示全部帖子]

老师，咨询一下，我按照 可视化授权的实现 那一章设置了 授权表。 的确可以控制用户的查看与编辑表的权限。



但是如果 主页存在导航按钮，该 用户还是可以用导航按钮进去，怎么控制 该用户无法查看 窗口表 呢？
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）同样的方法，控制导航按钮咯。没有权...  发帖心情 Post By：2022/6/23 17:07:00 [显示全部帖子]


是在授权表里面增加一列“窗口名”吗？

还是另外再搞个“窗口授权表”？
直接控制菜单http://www.foxtable.com/webhelp/scr/2438.htm   的话，得一个个写代码，可以做窗口的可视化授权吗?
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）可以在授权表里用，表名存窗口名，列...  发帖心情 Post By：2022/6/24 16:26:00 [显示全部帖子]

老师，问一下，这个权限设置，是否可以按照可视化设置那样添加“不可见”？

按照常理，没有授权的窗口应该是打不开的，这个在没有授权的情况下一样可以打开窗口，应该怎么设置才好？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:权限.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）测试没有问题啊[upload=png,1.png]Up...  发帖心情 Post By：2022/6/24 16:51:00 [显示全部帖子]

“测试窗口”为啥打不开呢？

 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）有打开啊，切换到表Chttp://www.foxt...  发帖心情 Post By：2022/7/4 16:53:00 [显示全部帖子]

老师：
      这种授权方式好像得把每个窗口都把授权代码写进去才能控制。比表格式授权又麻烦一些。


图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）有打开啊，切换到表Chttp://www.foxt...  发帖心情 Post By：2022/7/4 17:03:00 [显示全部帖子]

老师：
      我模拟这个树形授权的时候。预览窗口，窗口的after load事件老是报错。

Dim tr As WinForm.TreeView
Dim nd As WinForm.TreeNode
tr = e.Form.Controls("用户")
nd = Tr.Nodes.Add("所有用户","所有用户")
For Each u As UserInfo In Users
    If u.Type = UserTypeEnum.User Then
        If tr.Nodes("所有用户").Nodes.Contains(u.Group) = False Then
            tr.Nodes("所有用户").Nodes.Add(u.Group)
        End If
        tr.Nodes("所有用户").Nodes(u.Group).Nodes.Add(u.Name)
    End If
Next
tr.ExpandAll

Dim tr1 As WinForm.TreeView
Dim nd1 As WinForm.TreeNode
tr1 = e.Form.Controls("模块")
nd1= Tr1.Nodes.Add("所有模块","所有模块")
nd1.Nodes.Add("所有表")
For Each dt As DataTable In DataTables
    If dt.Name <>"权限表" AndAlso dt.name <> "权限明细" Then
        tr1.Nodes("所有模块").Nodes("所有表").Nodes.Add(dt.Name)
    End If
Next
nd1.Nodes.Add("所有窗口")
For Each frm As WinForm.Form In Forms
    If frm.Name <> "权限设置" AndAlso frm.name <> "导航窗口" Then
        tr1.Nodes("所有模块").Nodes("所有窗口").Nodes.Add(frm.Name)
    End If
Next
tr1.ExpandAll



图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）学一下 http://www.foxtable.co...  发帖心情 Post By：2022/7/5 15:08:00 [显示全部帖子]

谢谢老师，第二个案例的恢复数据库报错。  能指点一下吗？

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）试试删除现有的同名数据库，再还原  发帖心情 Post By：2022/7/5 15:34:00 [显示全部帖子]

老师：
      新建了一个数据库用于恢复，好像还是不行。

图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）不需要新建数据库，删除掉。然后直接...  发帖心情 Post By：2022/7/5 16:49:00 [显示全部帖子]

老师：
      这个提示，必须要选择还原的目标数据库，选择了以后，点击确定，也是报错。


图片点击可在新窗口打开查看





图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		回复：（有点蓝）不需要选啊，从源设备里选bak文件的时...  发帖心情 Post By：2022/7/5 17:19:00 [显示全部帖子]

按照老师的指导，恢复成功了，谢谢。

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10938 秒, 6 次数据查询