Foxtable(狐表)用户栏目专家坐堂 → 老师,用户组设置有问题


  共有3954人关注过本帖树形打印复制链接

主题:老师,用户组设置有问题

帅哥哟,离线,有人找我吗?
初心不改再说未来
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
老师,用户组设置有问题  发帖心情 Post By:2022/5/18 1:24:00 [只看该作者]

我的表里的group字段有管理员选项,表是根据http://www.foxtable.com/webhelp/topics/2048.htm 一步步走的


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220518011705.png
图片点击可在新窗口打开查看

然后用这个text用户登录进去,有个窗口里的按钮,afterload事件里设置了:

If User.Group <> "管理员" Then
    e.Form.Controls("Button1").Enabled = False

End If

但是按钮还是灰色:

图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220518011720.png
图片点击可在新窗口打开查看

不知道是这个字段的问题,还是自定义用户的问题?就感觉没生效一样。

谢谢老师

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/18 8:44:00 [只看该作者]

自定义用户管理不能再使用user对象。还是帮助没有认真看,请仔细看看帮助后面的总结

四、在全局代码中定义两个变量:

Public _UserName As String
Public
 _UserGroup As String

_UserName用户保存当前登录用户的名称,_UserGroup用于保存该用户的分组。


 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2022/5/18 14:06:00 [只看该作者]

登录显然不会触发LoadUserSetting事件,所以该事件中的代码应该移植到自定义用户登录窗口的"确定"按钮中。

然后就这样了。。。。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20220518140436.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/18 14:11:00 [只看该作者]

dt这个变量名称重复了,换一个名称

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2022/5/18 14:32:00 [只看该作者]

If _UserGroup = "普通用户" Then
    For Each dta As DataTable In DataTables
        dta.AllowClipBoard = False
    Next
End If

我写到了用户登录窗口的确定按钮里,为啥普通用户还是能编辑表格呢?

 回到顶部
帅哥哟,离线,有人找我吗?
初心不改再说未来
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:496 积分:3899 威望:0 精华:0 注册:2017/7/19 10:58:00
  发帖心情 Post By:2022/5/18 14:33: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 * Fro m {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")
    e.Form.Close
Else
    Messagebox.show("密码错误!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

If _UserGroup = "普通用户" Then
    For Each dta As DataTable In DataTables
        dta.AllowClipBoard = False
    Next
End If

这个是登录按钮的所有的代码
[此贴子已经被作者于2022/5/18 14:34:18编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105484 积分:536411 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/18 14:42:00 [只看该作者]


 回到顶部