- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 自定义用户角色问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=161074)
-- 发布时间：2021/3/4 22:06:00
-- 自定义用户角色问题
蓝总：自定义登录，用户名用_username, 分组_UserGroup，角色是_userIsRole 吗？怎么用法？在全局代码里加Public _UserIsRole As String 接着 _userIsRole（”“）这样吗
[此贴子已经被作者于2021/3/4 22:07:27编辑过]
-- 发布时间：2021/3/4 22:35:00
--
角色和分组一样用即可。如果有多个角色，可以使用逗号分开。
-- 发布时间：2021/3/4 23:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:itemclick.txt |
蓝总：改成自定义用户后，系统管理员角色失效了，快捷菜单”上传“中的代码 中”系统管理员“ 不起作用
-- 发布时间：2021/3/4 23:28:00
--
msgbox(_userIsRole) 角色存储的是什么内容？
-- 发布时间：2021/3/4 23:34:00
--
我也刚想到，测了一下是空，但是外部数据源里有数据
-- 发布时间：2021/3/4 23:36:00
--
在什么地方给_userIsRole赋值的，完整代码发上来看看
-- 发布时间：2021/3/4 23:45:00
--
这是新增用户代码：
-- 发布时间：2021/3/5 8:48:00
--
我指的是在什么地方给_userIsRole这个变量赋值的，正常不应该是登录窗口吗？而不是指什么地方给保存表格数据
-- 发布时间：2021/3/6 21:51:00
--
我已经修正，的确是没有在登陆器赋值。
蓝总：自定义登陆器 中通过“新增用户” 添加的角色 可以生效，但是原本已经新增的空角色用户 通过更改用户 添加的角色不能生效，外部数据表中显示该账户有新增的角色。更改用户代码如下：
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:更改用户.txt |
-- 发布时间：2021/3/7 20:30:00
--
cmd.CommandText = cmd.CommandText & "\', [Password] = \'" & Password & "\' Where [Name]= \'" & OldUserName & "\'"
msgbox(cmd.CommandText)
If cmd.ExecuteNonQuery = 1 Then \'返回1表示更改成功