| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 关于用户删减行权限代码的问题，求大神帮写代码。 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=62780) |
| -- 作者：nclo -- 发布时间：2015/1/7 22:02:00 -- 关于用户删减行权限代码的问题，求大神帮写代码。 question1:表的第一列有A,B,C,D四个类容。假设用户1登陆进去后，只能看到有A的行，然后新增一行或多行，第一列强制性的带有A，不能编辑第一列的内容。 假设用户2登陆进去后，只能看到有B的行，然后新增一行或多行，第一列强制性的带有B，不能编辑第一列的内容。 ..... 另外假设第10列为逻辑判断列。需要只有管理员能够编辑，一旦管理员设为TURE后，其他用户均不能删除行。假设其他用户在“区县组”里 求教代码该怎么写啊。。小白请教大神！谢谢，版本为开发版。
|
| -- 作者：有点甜 -- 发布时间：2015/1/7 22:21:00 -- 去看 开发指南->权限管理
|
| -- 作者：nclo -- 发布时间：2015/1/7 23:07:00 -- Select Case User.Name Case "jialing" e.Col.name "第一列"=嘉陵区 End Select 写了代码，报错。。
|
| -- 作者：有点甜 -- 发布时间：2015/1/7 23:18:00 -- 明显代码写错了，认认真真看。 |
| -- 作者：nclo -- 发布时间：2015/1/7 23:29:00 -- 谢谢甜老师，改过来了。 本人确实基础太差，刚才那个弄成功了，请问甜老师，问题1是写在AfterOpenProject还是LOADUSERSETING或者加载外部表事件里？
|
| -- 作者：Bin -- 发布时间：2015/1/8 8:10:00 -- 前两个事件 何来的 e.col 当然写在加载表事件里 |
| -- 作者：有点甜 -- 发布时间：2015/1/8 9:08:00 -- 回复5楼，LOADUSERSETING 事件，帮助文档说得很清楚了。 |
| -- 作者：nclo -- 发布时间：2015/1/8 11:07:00 -- 甜老师，怎么你回答和BIN不一样。 |
| -- 作者：Bin -- 发布时间：2015/1/8 11:09:00 -- 我是根据你3楼的提问回复, 忽略了你真正的问题. 是我搞错了. |
| -- 作者：nclo -- 发布时间：2015/1/8 12:06:00 -- If User.Name = "开发者" Then DataTables("表A").LoadFilter = "" DataTables("表B").LoadFilter = "" Else If User.Name = "jialing" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .嘉陵区 & "\'"End If If User.Name = "shunqing" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .顺庆区 & "\'"End If If User.Name = "gaoping" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .高坪区 & "\'"End If If User.Name = "langzhong" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .阆中市 & "\'"End If If User.Name = "nanbu" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .南部县 & "\'"End If If User.Name = "xichong" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .西充县 & "\'"End If If User.Name = "yingshan" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .营山县 & "\'"End If If User.Name = "pengan" Then DataTables("表A").LoadFilter = Filter = "第1列 = \'" & .蓬安县 & "\'"End If If User.Name = "yilong" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .仪陇县 & "\'"End If If User.Name = "jialing" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .嘉陵区 & "\'"End If If User.Name = "shunqing" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .顺庆区 & "\'"End If If User.Name = "gaoping" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .高坪区 & "\'"End If If User.Name = "langzhong" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .阆中市 & "\'"End If If User.Name = "nanbu" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .南部县 & "\'"End If If User.Name = "xichong" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .西充县 & "\'"End If If User.Name = "yingshan" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .营山县 & "\'"End If If User.Name = "pengan" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .蓬安县 & "\'"End If If User.Name = "yilong" Then DataTables("表B").LoadFilter = Filter = "第1列 = \'" & .仪陇县 & "\'"End If DataTables("表A").Load() DataTables("表B").Load()
|