| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 可视化授权的实现 (http://foxtable.com/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
|