以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  可视化授权的实现  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=192620)

--  作者:1234567
--  发布时间:2024/7/6 12:16:00
--  可视化授权的实现

如何通过可视化授权,实现对表A的新增行权限控制?


--  作者:有点蓝
--  发布时间:2024/7/6 13:01:00
--  
1、授权表增加一个列【不可新增】
2、开启全局表BeforeAddDataRow事件:http://www.foxtable.com/webhelp/topics/0671.htm
3、到全局表BeforeAddDataRow事件判断权限
dim dr As DataRow = DataTables("授权表").Find("用户名 = \'" & User.Name & "\' and 表名=\'" & e.datatable.name & "\'" )
if dr isnot nothing andalso dr("不可新增")=true then
    e.Cancel = True \'那么取消输入并提示用户
    Messagebox.Show(
"没有权限新增!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
end if