以文本方式查看主题

-  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编辑过]