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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]授权代码

共有2446人关注过本帖树形打印复制链接主题：[求助]授权代码

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

[求助]授权代码 发帖心情

Post By：2017/6/26 14:50:00 [显示全部帖子]

老师，通过下面代码隐藏窗口，我在菜单窗口下拉链的工作中还是能找到的点击的时候还报错按确定后完全显示了而且能操作。

我希望能不显示或提示而不报错不能操作。

此主题相关图片如下：图像 1.png

此主题相关图片如下：图像 3.png

Dim e As Object = Args(0)

For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Name & "'and 窗口名 = '" & e.Form.Name & "'")

e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")

e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/6/26 15:15:00 [显示全部帖子]

老师，不好意思。

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/6/26 15:54:00 [显示全部帖子]

老师，没有用啊

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User )

If User.Type = UserTypeEnum.User Then

For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Name & "'" )

If dr("窗口名") = 0 Then

Forms(dr("窗口名")).Show()

Else

Forms(dr("窗口名")).Close()

End If

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/6/26 16:58:00 [显示全部帖子]

老师，4楼代码不太懂

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/6/26 18:04:00 [显示全部帖子]

老师，我是摆在项目事件中的，没有用。

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/6/26 20:03:00 [显示全部帖子]

老师，还是报错。

图片点击可在新窗口打开查看此主题相关图片如下：图像 5.png

苏州老街

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

加好友

发短信

等级：三尾狐帖子：644 积分：4124 威望：0 精华：0 注册：2016/10/19 16:45:00

Post By：2017/6/26 21:46:00 [显示全部帖子]

老师，删除这段代码还有报错。

Tables("授权表").Visible = (User.Type <> UserTypeEnum.User ) '如果是开发者?管理者,就显示授权表,否则不显示
If User.Type = UserTypeEnum.User Then '如果用户是普通用户
    msgbox(user.name)
    For Each dr As DataRow In DataTables("授权表").Select("分组名 = '" & User.Name & "'" ) '根据用户名查找信息
               msgbox(dr("窗口名"))
        Forms(dr("窗口名")).Show()
                Forms(dr("窗口名")).Close()
          Next
End If

图片点击可在新窗口打开查看此主题相关图片如下：图像 6.png