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

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

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

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/13 23:39:00 [只看该作者]

以下是引用江南小镇在2017/11/13 21:20:00的发言：
老师，用户分组可以授权吗？譬如，有点窗口只有采购部有权打开，有点只有销售部可以打开。

不明白你的意思，不就是直接在表格里面设置值，就可以了？

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2017/11/14 10:08:00 [只看该作者]

老师，还是用户分组问题。

下载信息 [文件大小：下载次数： ]
点击浏览该文件:员工添加.rar

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/14 12:52:00 [只看该作者]

Dim e As Object = Args(0)
For Each dr As DataRow In DataTables("授权表").Select("(',' + 分组名 + ',' like '%," & User.Name & ",%' or ',' + 用户分组 + ',' like '%," & User.group & ",%') And 窗口名 = '" & e.Form.Name & "'")
    If dr("按扭名") = Nothing Then
        msgbox("你无权打开窗口")
        e.Form.close
        unlockbasemainform
        Return Nothing
    Else
        e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")
        e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")
    End If
Next
Return True

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2017/11/14 14:07:00 [只看该作者]

以下是引用有点甜在2017/11/14 12:52:00的发言：
Dim e As Object = Args(0)
For Each dr As DataRow In DataTables("授权表").Select("(',' + 分组名 + ',' like '%," & User.Name & ",%' or ',' + 用户分组 + ',' like '%," & User.group & ",%') And 窗口名 = '" & e.Form.Name & "'")
    If dr("按扭名") = Nothing Then
        msgbox("你无权打开窗口")
        e.Form.close
        unlockbasemainform
        Return Nothing
    Else
        e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")
        e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")
    End If
Next
Return True

老师，上面代码在授权表的分组名列中授权2个用户的话授权就不起作用了。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/14 14:16:00 [只看该作者]

测试，没，问，题。

江南小镇

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

加好友

发短信

等级：七尾狐帖子：1700 积分：11344 威望：0 精华：0 注册：2015/6/22 8:11:00

Post By：2017/11/14 14:37:00 [只看该作者]

老师，项目事件要修改吗？

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

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

If User.Type <> UserTypeEnum.User Then

Return

End If

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

If dr.IsNull("列名") Then

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

t.Visible = Not dr("不可见")

t.AllowEdit = Not dr("不可编辑")

End If

Else

For Each t As Table In Tables

If t.DataTable.Name = dr("表名") Then

For Each c As Col In t.Cols

If c.Name = dr("列名") Then

c.Visible = Not dr("不可见")

c.AllowEdit = Not dr("不可编辑")

End If

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2017/11/14 15:20:00 [只看该作者]

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

改成

For Each dr As DataRow In DataTables("授权表").Select("(',' + 分组名 + ',' like '%," & User.Name & ",%' or ',' + 用户分组 + ',' like '%," & User.group & ",%')")