以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助可视化授权代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=13803)
--  作者：lime7523
--  发布时间：2011/10/28 3:25:00
--  求助可视化授权代码

我想要功能区、功能组、按键的不可见代码

 

我发现在表A建立窗口以后，虽然可视化授权可以做到，表不可见和不可编辑，但是我在窗口上设置一个按键事件为Tables("表A").Current.Delete能操作！

 

那么我想吧用户直接不可见，功能区、或功能组、或按键。这样虽然绑定了表。也没法操作了！

 

 

不知道我这样的想法对不对，请专家们给点好的建议

 

顺便我想要功能区、功能组、按键，不可见代码，谢谢
--  作者：狐狸爸爸
--  发布时间：2011/10/28 7:35:00
--  
Dim dr As DataRow = DataTables("授权表").Select("用户名 = \'" & User.Name & "\' And 表名 = \'" & CurrentTable.DataTable.Name & "\'" )
if dr is Nothing OrElse dr("允许删除")  = True
    Tables("表A").Current.Delete
End if
 
 
[此贴子已经被作者于2011-10-28 7:35:29编辑过]