- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]授权 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=194419)
-- 发布时间：2024/12/8 12:34:00
-- [求助]授权
老师好
此主题相关图片如下：授权.png
[此贴子已经被作者于2024/12/8 18:29:20编辑过]
-- 发布时间：2024/12/8 18:34:00
--
老师，数据库无法上传
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:授权.rar |
[此贴子已经被作者于2024/12/8 18:41:59编辑过]
-- 发布时间：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("没有权限")
dr = DataTables("权限表").Find("姓名 =\'李四\' and 表名=\'某表\' and 角色=\'审核\'")
If dr Is Nothing Then
msgbox("没有权限")
else
msgbox("有权限")
End If
End If
-- 发布时间：2024/12/9 12:21:00
--
老师，反审核没有权限，下面代码不会修改。谢谢
If User.IsRole("录入") =False Then \'如果审批人列不为空
e.Cancel = True \'则禁止编辑
End If
If e.Row("审核人") <> "" Then
e.Cancel = True \'则禁止编辑
En d If
-- 发布时间：2024/12/9 13:04:00
--
dr = DataTables("权限表").Find("姓名 =\'李四\' and 表名=\'某表\' and 角色=\'反审核\'")
-- 发布时间：2024/12/9 15:22:00
--
If Tables("入库.入库明细") .Rows.count = 0 Then
MessageBox.Show("没有可反审项!")
Return
End If
老师，反审核没有用。
Dim dr As DataRow
dr = DataTables("授权表").Find("姓名 =\'李四\' and 表名=\'入库.入库明细\' and 角色=\'反审核\'")
If dr Is Nothing Then
msgbox("没有权限")
Else
msgbox("有权限")
End If
For Each r As Row In Tables("入库.入库明细").rows \' 当前窗口表解锁
r.locked = False
Next
-- 发布时间：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
-- 发布时间：2024/12/9 19:00:00
--
老师，这下面代码搞不明白。
If Tables("入库") .Rows.count = 0 OrElse Tables("入库.入库明细") .Rows.count = 0 Then
MessageBox.Show("没有可审核内容!")
Return
End If
Dim dr As DataRow
dr = DataTables("授权表").Find("姓名 =\'李四\' and 表名=\'入库.入库明细\' and 角色=\'审核\'")
If dr Is Nothing Then
’If U ser.IsRole ("审核") Then
Tables("入库").Current("审核人") = User.Name
Tables("入库").Current("审核日期") = Date.now
Tables("入库.入库明细"). Current.Save()
Tables("入库").Current.Save()
Else
MessageBox.show("你无审核权限!")
End If
-- 发布时间：2024/12/9 20:13:00
--
如果是从授权表查询权限的，和黄色代码没有什么关系
-- 发布时间：2024/12/9 20:45:00
--
老师，通过审核按钮审核列自动勾选审核人、审核日期列自动填写。
Dim dr As DataRow
dr = DataTables("授权表").Find("(\',\' + 姓名 + \',\' like \'%," & _UserName & ",%\' or \',\' + 用户分组 + \',\' like \'%," & _Usergroup & ",%\') and 表名=\'入库.入库明细\' and 角色=\'审核\'")
If dr Is Nothing Then
Tables("入库").Current("审核人") = U s er.Name
Tables("入库").Current("审核日期") = Date.now
Tables("入库.入库明细"). Current.Save()
Tables("入库").Current.Save()
\'Else
MessageBox.show("你无审核权限!")
\'End If
\'---------------------------
else
msgbox("有权限")
End If