Foxtable(狐表)用户栏目专家坐堂 → [求助]授权


  共有504人关注过本帖树形打印复制链接

主题:[求助]授权

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/8 20:23:00 [显示全部帖子]

使用find到权限表里查询:http://www.foxtable.com/webhelp/topics/0396.htm

Dim dr As DataRow
dr = 
DataTables("
权限表").Find("姓名 ='李四' and 表名='某表' and 角色='审核'")
If 
dr Is Nothing Then
   msgbox("没有权限")
else
   msgbox("有权限")
End If

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/9 13:04:00 [显示全部帖子]

dr = DataTables("权限表").Find("姓名 ='李四' and 表名='某表' and 角色='反审核'")

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/9 15:28:00 [显示全部帖子]

登录的用户是李四吗

Dim dr As DataRow
dr = DataTables("授权表").Find("姓名 ='李四' and 表名='入库.入库明细' and 角色='反审核'")
If dr Is Nothing Then
   msgbox("没有权限")
Else
   msgbox("有权限")
For Each r As Row In Tables("入库.入库明细").rows   ' 当前窗口表解锁
    r.locked = False
Next
End If




 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/9 20:13:00 [显示全部帖子]

如果是从授权表查询权限的,和黄色代码没有什么关系

 回到顶部
帅哥,在线噢!
有点蓝
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/9 22:08:00 [显示全部帖子]

If dr Is Nothing Then
    MessageBox.show("你无审核权限!")
else
    Tables("入库").Current("审核人") = User.Name
    Tables("入库").Current("审核日期") = Date.now
Tables("入库.入库明细"). Current.Save()
    Tables("入库").Current.Save()
End If

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/10 8:51:00 [显示全部帖子]

明细表PrepareEdit事件禁止了任何人进行编辑

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/10 9:14:00 [显示全部帖子]


Dim dr As DataRow
dr = DataTables("授权表").Find("(',' + 姓名 + ',' like '%," & _UserName & ",%' or ',' + 用户分组 + ',' like '%," & _Usergroup & ",%') and 表名='入库.入库明细' and 角色='录入人'")
If dr is nothing orelse e.Row.isnull("审核人")=false Then '如果审批人列不为空
    e.Cancel = True '则禁止编辑
End If
[此贴子已经被作者于2024/12/10 9:16:00编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/10 9:45:00 [显示全部帖子]

有什么问题?

 回到顶部
帅哥,在线噢!
有点蓝
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/10 10:01:00 [显示全部帖子]

15楼就是

 回到顶部
帅哥,在线噢!
有点蓝
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111394 积分:567040 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/12/10 10:52:00 [显示全部帖子]

这个datacolchanged事件处理,和PrepareEdit事件没有什么关系。不同事件有不同的用途,不是随便找个事件就解决问题的

PrepareEdit原来做权限控制,datacolchanged做数据处理

 回到顶部
总数 17 1 2 下一页