- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎样让得到授权的用户拥有权限 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=168884)
-- 发布时间：2021/5/26 1:20:00
-- 怎样让得到授权的用户拥有权限
如果角色是审核，在按钮中写的如下码，通过角色授权，我在用户表（外部表）users中添加了一列授权用户，
此主题相关图片如下：图片1.png
下面的码怎么改才能让授权用户实现“审核功能\'
If _userrole = "审核" Then
If Tables("采购主表.采购明细").current.IsNull("入库申请") Then
MessageBox.Show("不能批准还未入库申请的行.")
Return
Else
Tables("采购主表.采购明细").Current("查验审核") = _UserName
Tables("采购主表.采购明细").Current("查验审核日期") = Date.Today()
Tables("采购主表.采购明细").Current.Save()
End If
Else
MessageBox.show("你无查验审核权限!")
Return
[此贴子已经被作者于2021/5/26 1:56:22编辑过]
-- 发布时间：2021/5/26 8:27:00
--
代码没有提，登录的时候有没有给_userrole赋值？
msgbox(_userrole)
-- 发布时间：2021/5/26 9:59:00
--
没有
-- 发布时间：2021/5/26 10:00:00
--
那就补上呗
-- 发布时间：2021/5/26 10:14:00
--
补上之后，一楼代码怎么改？
-- 发布时间：2021/5/26 10:14:00
--
不需要改
-- 发布时间：2021/5/26 10:15:00
--
我这样做之后，一楼代码怎么改？
Dim UserName As String = e.Form.Controls("UserName").Value
Dim cmd As New SQLCommand
Dim dt As DataTable
Dim dr As DataRow
cmd.C
If UserName = "" Then
Messagebox.show("请选择用户!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
cmd.CommandText = "Select * F rom {Users} Where [Name] = \'" & UserName & "\'"
dt = cmd.ExecuteReader
If dt.DataRows.Count = 0 Then
Messagebox.show("此用户不存在!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return
End If
dr = dt.DataRows(0)
If e.Form.Controls("PassWord").Value = dr("Password") Then
_UserName = UserName
_UserGroup = dr("Group")
_combobox = dr("工作单位")
_UserRole = dr("Role")
_Usersf = dr("省份")
_userdq = dr("地区")
_Userxs = dr("县市")
Else
Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
-- 发布时间：2021/5/26 10:33:00
--
不需要改
-- 发布时间：2021/5/26 11:44:00
--
问题是，授权后不起作用，授了权，但操作的时候还是没有权限
-- 发布时间：2021/5/26 11:54:00
--
请上传实例说明