[求助]自定义登录窗口及窗口控件权限 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自定义登录窗口及窗口控件权限

共有4186人关注过本帖树形打印复制链接主题：[求助]自定义登录窗口及窗口控件权限

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/8 10:23:00 [显示全部帖子]

这种用法应该放到每个窗口的afterload，窗口打开后在设置控件权限。窗口没有打开，里面的控件都是无法使用和设置的

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/9 20:40:00 [显示全部帖子]

既然的窗口里使用，就应该只查询这个窗口的数据即可。应该是根据登录的用户的角色和当前使用的窗口作为条件查询权限表，而不是遍历权限表所有在逐行判断。

逐行判断也就罢了，大不了效率低而已，但是却没有判断是否当前窗口的权限，这样其他没有打开的窗口也用上了，当然会出错

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/11 9:32:00 [显示全部帖子]

For Each c As object In e.form.controls

Dim dr As DataRow

dr = DataTables("窗口控件权限表").Find("角色 like '%" & nm & "%' and 窗口名称 = '" & e.Form.name & "' and 控件名称 = '" & c.name & "'")

If dr IsNot Nothing Then

msgbox(dr("窗口名称") & "," & dr("控件名称"))

e.form.Controls(dr("控件名称")).Enabled = False

msgbox(1) '如果这里弹不出，看看之前弹出的是什么窗口和控件

End If

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/11 11:38:00 [显示全部帖子]

窗口不要设置为自动打开

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/11 11:43:00 [显示全部帖子]

请上传实例说明

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/11 20:36:00 [显示全部帖子]

代码放到aftershow事件，或者是窗口计时器事件，启动计时器

有点蓝

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

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2022/1/11 20:39:00 [显示全部帖子]

不应该遍历窗口控件，这种也只能遍历第一层的控件，如果有页签，panel，分区面板等，里面的控件是无法遍历到的。

应该根据窗口名称去权限表查询这个窗口有哪些控件是需要授权的，根据查询出来的控件名称来设置

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

主题：[求助]自定义登录窗口及窗口控件权限