- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 按钮可视化授权 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=117691)
-- 发布时间：2018/4/17 16:46:00
-- 按钮可视化授权
老师好：
我参考了http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=73034&authorid=0&page=0&star=1这个做了一下按钮可视化授权，最后用了大红袍老师写的最后一段代码，可是用不了。
想实现结果：根据权限表"可点击"列出现的用户，可以使用"按钮名称"列中的按钮，用了大红袍老师的代码之后也出现了同样的问题，不同用户进入后所有按钮都是灰色的，无法点击，请老师协助修改一下，谢谢！最后附上数据库
-- 发布时间：2018/4/17 16:52:00
--
上传一下附件
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:access数据源.rar |
-- 发布时间：2018/4/17 16:55:00
--
项目和数据库都打包发上来。
-- 发布时间：2018/4/17 17:05:00
--
老师好，已打包一起上传，所有按钮均在目录窗体-系统管理-可视化授权，之前的代码写在目录窗体的AfterLoad里了，密码888
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:desktop.rar |
-- 发布时间：2018/4/17 17:52:00
--
For Each c As object In e.Form.Controls
If typeof c Is winform.button Then
If DataTables("权限").find("按钮名称 = \'" & c.name & "\' and (\',\' + 可点击 + \',\') like \'%," & user.name & ",%\'") IsNot Nothing Then
c.Enabled = True
Else
c.Enabled = False
End If
End If
Next
-- 发布时间：2018/4/17 18:00:00
--
在5楼的基础上，你还要【请选择用户】改成【请选择账户】
-- 发布时间：2018/4/17 18:16:00
--
成功了！谢谢老师！还帮我发现粗心出现的问题