权限不执行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 权限不执行

共有2045人关注过本帖树形打印复制链接主题：权限不执行

qazlinle6

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/6/23 16:55:00 [只看该作者]

还没登录就当普通用户执行权限

有点蓝

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106539 积分：541860 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/23 17:05:00 [只看该作者]

那就只有一种权限，还有必要判断？不能用的都直接隐藏算了。

qazlinle6

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/6/23 17:10:00 [只看该作者]

要判断啊,你们这个发布了又不可以进窗口改代码，在说我有切用用户要用到这个

有点蓝

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：106539 积分：541860 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/6/23 17:30:00 [只看该作者]

判断一下登录信息比如_UserGroup，如果是空值，说明还没有登录。如果是切换用户，说明已经登录了，根据_UserGroup查询判断咯。

qazlinle6

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/6/23 17:34:00 [只看该作者]

没有登录，全部用户都可以更改用户加用户，那这个权限不是废了吗，有没有让没登录也执行这个代码，戓用其它办法

qazlinle6

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1503 积分：10158 威望：0 精华：0 注册：2013/6/8 16:19:00

Post By：2021/6/23 17:49:00 [只看该作者]

Dim lbl01 As WinForm.TextBox

lbl01 = e.Form.Controls("TextBox1")

lbl01.Text = _UserGroup

Dim cb As WinForm.TextBox = e.Form.Controls("TextBox1")

If cb.value = "" Then

cb.Text = "收银"

End If

For Each dr As DataRow In DataTables("窗口权限").sqlSelect(" ','+角色用户+',' like '%," & e.Form.Controls("TextBox1").value & ",%' And 窗口名 = '" & e.Form.Name & "' And 权限开始日期 <= '" & Date.Today & "' And 权限结束日期 >= '" & Date.Today & "' " )

e.Form.Controls(dr("控件名")).Enabled = Not dr("权限锁定")

e.Form.Controls(dr("控件名")).visible = Not dr("权限不可见到")

这样取代可以不

cd_tdh

小大 17楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3069 积分：20526 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2021/6/23 17:57:00 [只看该作者]

那就弄个注册窗口，注册后需要管理员审核通过才能登录，在用户表加一列审核状态，登录时同时判断一下审核状态就可以了

下一主题 >> << 上一主题

总数 17 上一页 1 2

主题：权限不执行