以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助：按钮可视化授权  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77866)
--  作者：shixia
--  发布时间：2015/11/26 16:57:00
--  求助：按钮可视化授权
帮助中有根据用户名对表和列进行“不可见”、“不可编辑”可视化授权，我想增加对需要授权控制的窗口控件进行授权，求实例
--  作者：Hyphen
--  发布时间：2015/11/26 16:59:00
--  
 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=59745&skin=0

 

 
--  作者：大红袍
--  发布时间：2015/11/26 17:05:00
--  

其实就是在afterLoad事件，循环每一个控件，然后查表取得权限，设置Visible和Enabled而已。

 

For Each c As Winform.Control In e.Form.Controls
    Dim fdr As DataRow = DataTables("权限").find("名称 = \'" & c.name & "\' and 窗口 = \'" & e.form.name & "\'")
    If fdr IsNot Nothing Then
        c.visble = fdr("可见")
        c.Enabled = fdr("可用")
    End If
Next