老师好,权限管理下面代码(内部函数)没用了,
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
Dim result = Functions.Execute("授权隐藏窗口",e) ‘’引用内部函数
If result = Nothing Then Return