- 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=169622)
-- 发布时间：2021/6/23 15:23:00
-- 权限不执行
For Each dr As DataRow In DataTables("窗口权限").sqlSelect(" \',\'+角色用户+\',\' like \'%," & _UserGroup & ",%\' And 窗口名 = \'" & e.Form.Name & "\' And 权限开始日期 <= \'" & Date.Today & "\' And 权限结束日期 >= \'" & Date.Today & "\' " )
e.Form.Controls(dr("控件名")).Enabled = Not dr("权限锁定")
e.Form.Controls(dr("控件名")).visible = Not dr("权限不可见到")
Next
自定义用户与权限管理之二 第一次进入用户登录窗口上面代码不执行
-- 发布时间：2021/6/23 15:37:00
--
应该是没有符合条件的数据
msgbox(" \',\'+角色用户+\',\' like \'%," & _UserGroup & ",%\' And 窗口名 = \'" & e.Form.Name & "\' And 权限开始日期 <= \'" & Date.Today & "\' And 权限结束日期 >= \'" & Date.Today & "\' ")
dim drs as list(of datarow) = DataTables("窗口权限").sqlSelect(" \',\'+角色用户+\',\' like \'%," & _UserGroup & ",%\' And 窗口名 = \'" & e.Form.Name & "\' And 权限开始日期 <= \'" & Date.Today & "\' And 权限结束日期 >= \'" & Date.Today & "\' " )
msgbox(drs.count)
-- 发布时间：2021/6/23 15:41:00
--
直接用你这代码吗
-- 发布时间：2021/6/23 15:47:00
--
是才打开用户分组是空的，代码不执行
-- 发布时间：2021/6/23 15:50:00
--
让空值也执行代码什么改代码
-- 发布时间：2021/6/23 16:04:00
--
没有分组就没有权限，不执行不是正常的么？另外登录窗口本身没有必要做权限控制吧
-- 发布时间：2021/6/23 16:13:00
--
我把更改用户那些放在这个窗口上，只有管理员才可以用，如果不执行，谁都可以改了
-- 发布时间：2021/6/23 16:36:00
--
不应该吧，都还没有登录，怎么知道是管理员，怎么确定权限？更改用户应该另外设计窗口维护
-- 发布时间：2021/6/23 16:40:00
--
此主题相关图片如下：qq浏览器截图20210623163745.png
有没有办法让还没有登录用户就权限这些按妞
-- 发布时间：2021/6/23 16:51:00
--
问题是还没有登录，怎么知道谁是谁呀