- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 角色授权 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126870)
-- 发布时间：2018/10/30 15:21:00
-- 角色授权
此主题相关图片如下：1111.png
我这是一个角色授权功能，选择左边的目录树，右边是权限明细，点了左边的目录树，然后选右边的权限，然后保存到角色权限表里，可是这块怎么也弄不对，保存写了代码DataTables("角色权限表").Save() 可是怎么也保存到这个表里，这个应该在哪块写
-- 发布时间：2018/10/30 15:43:00
--
上传具体的项目实例测试。
-- 发布时间：2018/10/30 22:02:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:data.rar |
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:权限管理.rar |
我要实现 在角色维护里，角色点了右面对应的权限，然后把这记录保存到角色权限表里，然后返回来再看的时候，对应的角色勾选了相应的权限
-- 发布时间：2018/10/30 22:45:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:权限管理.zip |
-- 发布时间：2018/10/31 0:38:00
--
此主题相关图片如下：222.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:权限管理.foxdb |
老师，我后面又添加了人员权限维护窗体，实现点了部门下的员工，人员编号，人员姓名 填入到对应的位置，这个不会写，员工角色权限从角色权限表里已经取出来，比如这个人拥有系统维护的连个权限，但是他还要这个角色之后包含的权限，我选择对应添加的权限，然后试着修改了角色权限窗口下的取值办法，可是不知道怎么也出来不了结果，保存不到表里，代码如下：
Dim trv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim dr As DataRow = e.node.DataRow
SystemReady= False
For Each r As Row In Tables("权限明细表").Rows
r.Checked = False
Next
For Each qx As String() In DataTables("人员权限表").GetValues("权限类别|权限明细","人员编号=\'" & dr("人员编号") & "\'")
Dim idx As Integer = Tables("权限明细表").FindRow("权限类别=\'" & qx(0) & "\' and 权限明细=\'" & qx(1) & "\'and 人员编号=\'" & qx(2) & "\'")
If idx > -1 Then
Tables("权限明细表").Rows(idx).Checked = True
End If
Next
SystemReady= True
If idx > -1 Then
Tables("权限明细表").Rows(idx).Checked = True 这块什么意思，给讲一下吧
-- 发布时间：2018/11/1 10:10:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:权限管理 (2).foxdb |