- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教主窗口如何设计权限 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=40147)
-- 发布时间：2013/9/10 20:08:00
-- 请教主窗口如何设计权限
我在权限设计中使用以下代码:
If User.Type = UserTypeEnum.User Then
For Each dt As DataTable In DataTables
Tables(dt.Name).AllowEdit=False
Dim dr As DataRow = DataTables("权限管理").Find("用户名 = \'" & _UserName & "\' and 表名 = \'" & dt.Name & "\'")
If dr IsNot Nothing Then
Tables(dt.Name).AllowEdit = dr("可编辑")
End If
Next
End If
存在问题是有好多表是主窗口形式,用户还是能够编辑,请教以主窗口形式存在的表如何统一设计权限(针对全部主窗口), 其它模式窗口是在表中是在选择选定列后打开的,设计表不能编辑时模式窗口就不能打开,模式窗口是不是就可以不单独设计权限了?请教大师.
-- 发布时间：2013/9/10 20:20:00
--
往权限表里填入窗口的名称，填入表控件的name属性。然后写代码
If forms("窗口1").opened Then
forms("窗口1").controls("Table1").AllowEdit = False
End If
-- 发布时间：2013/9/10 21:01:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:权限管理.table |
理解了上面话的意思,和权限管理还是联系不起来,我做了个例子,麻烦大师具体指导一下
-- 发布时间：2013/9/10 21:20:00
--
如下例子。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:权限管理.table |
-- 发布时间：2013/9/10 21:30:00
--
谢谢有点甜老师的指教,祝万事如意!