[浏览完整版]
标题：[求助]授权
1楼
苏州老街 发表于：2024/11/28 8:37:00Dim e As Object = Args(0)
Dim drs As List(Of DataRow) = DataTables("授权表").Select("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') And 窗口名1 = '" & e.Form.Name & "'")
If drs.Count = 0 Then
老师好，下面代码只要在授权表设置字段不用逻辑列（不可见）勾选 ，同样也打不开窗口。老师 能不能勾选后在打不开。
msgbox("你无权打开窗口")
e.Form.close
unlockbasemainform
Return False
End If
For Each dr As DataRow In drs
If dr("按扭名") = Nothing Then
msgbox("你无权打开窗口")
e.Form.close
unlockbasemainform
Return False
Else
e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")
e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")
End If
Next
Return True
2楼
有点蓝 发表于：2024/11/28 9:01:00没看懂是什么问题？
3楼
苏州老街 发表于：2024/11/28 15:30:00老师好，下面代码只要在授权表窗口列设置每窗口，逻辑列（不可见）不勾选 ，同样也打不开窗口。提示你无权打开窗口。
Dim e As Object = Args(0)
Dim drs As List(Of DataRow) = DataTables("授权表").Select("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') And 窗口名1 = '" & e.Form.Name & "'")
If drs.Count = 0 Then
msgbox("你无权打开窗口")
e.Form.close
unlockbasemainform
Return False
End If
For Each dr As DataRow In drs
If dr("按扭名") = Nothing Then
msgbox("你无权打开窗口")
e.Form.close
unlockbasemainform
Return False
Else
e.Form.Controls(dr("按扭名")).Visible = not dr("不可见")
e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑")
End If
Next
Return True
[此贴子已经被作者于2024/11/28 15:30:29编辑过]
4楼
有点蓝 发表于：2024/11/28 15:35:00还是没看懂。什么情况下可以打开，什么情况下不能打开？查询的时候只查询可以打开的窗口不就行了
5楼
苏州老街 发表于：2024/11/28 15:45:00
此主题相关图片如下：2024-11-28 15 42 24.png
6楼
有点蓝 发表于：2024/11/28 15:47:00如果不勾选，是能打开？还是不能打开？
7楼
苏州老街 发表于：2024/11/28 17:20:00不勾选也不能打开
8楼
有点蓝 发表于：2024/11/28 17:31:00那就是勾选也可以打开咯
加上勾选条件
Dim drs As List(Of DataRow) = DataTables("授权表").Select("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') And 窗口名1 = '" & e.Form.Name & "' and 不可见=true")
9楼
苏州老街 发表于：2024/11/28 17:40:00老师，还是不行。勾选打不开，不勾选也打不开，我是要勾选打不开，不勾选可以打开。
此主题相关图片如下：2024-11-28 17 38 39.jpg
[此贴子已经被作者于2024/11/28 17:42:11编辑过]
10楼
有点蓝 发表于：2024/11/28 19:50:00Dim e As Object = Args(0) dim dr2 as datarow = DataTables("授权表").Find("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') And 窗口名1 = '" & e.Form.Name & "' and 不可见=false and 按扭名 is null") if dr2 is nothing then msgbox("你无权打开窗口") e.Form.close unlockbasemainform Return False end if Dim drs As List(Of DataRow) = DataTables("授权表").Select("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') And 窗口名1 = '" & e.Form.Name & "' and 按扭名 is not null") For Each dr As DataRow In drs e.Form.Controls(dr("按扭名")).Visible = not dr("不可见") e.Form.Controls(dr("按扭名")).Enabled = not dr("不可编辑") Next Return True |