| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 用目录树管理表权限 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=120868) |
| -- 作者：nxdx112 -- 发布时间：2018/6/25 14:54:00 -- 用目录树管理表权限 借用目录树管理表 设置权限使得学生登录时看不到管理，看不到系统，老师登录时可以看到管理，看不到系统，代码帮忙改一下！谢谢！ Dim trv As WinForm.TreeView =
e.Form.Controls("TreeView1") If _UserName <> "老师" Then trv.nodes("管理").Visible = True trv.nodes("系统").Visible = False trv.nodes("宿舍").Visible = True ElseIf_UserName <> "学生" Then trv.nodes("管理").Visible = False trv.nodes("系统").Visible = False trv.nodes("宿舍").Visible = False Else trv.nodes("管理").Visible = True trv.nodes("系统").Visible = True trv.nodes("宿舍").Visible = True End If ---------------------------------------------------------
|
| -- 作者：有点甜 -- 发布时间：2018/6/25 15:06:00 -- Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
|
| -- 作者：nxdx112 -- 发布时间：2018/6/25 15:19:00 -- 此代码写在窗口菜单AfterLoad还是AfterOpenProject还是？ |
| -- 作者：有点甜 -- 发布时间：2018/6/25 16:50:00 -- 窗口afterLoad事件。 |
| -- 作者：nxdx112 -- 发布时间：2018/6/26 15:10:00 -- 谢谢啦 [此贴子已经被作者于2018/6/27 13:56:51编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/6/26 17:20:00 -- msgbox(UserName) 弹出一下值是否正确。 |
| -- 作者：nxdx112 -- 发布时间：2018/6/27 11:10:00 -- 求助 辛苦了，还有一个问题 自己已经修改好了，但必须重新登录才有效果。中间切换后不起作用.
在切换用户名后也能起作用呢？ [此贴子已经被作者于2018/6/27 13:55:27编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/6/27 11:42:00 -- 如果你用内置的登陆窗口，应该改成 user.name 才对的。
msgbox(username) msgbox(user.name)
弹出各个值看一下。 |
| -- 作者：nxdx112 -- 发布时间：2018/6/27 15:21:00 -- 辛苦了，还有一个问题 自己已经修改好了，但必须重新登录才有效果。中间切换后不起作用.
在切换用户名后也能起作用呢？ |
| -- 作者：有点甜 -- 发布时间：2018/6/27 15:33:00 -- 以下是引用nxdx112在2018/6/27 15:21:00的发言：
辛苦了，还有一个问题 自己已经修改好了，但必须重新登录才有效果。中间切换后不起作用.
在切换用户名后也能起作用呢？
切换用户名以后，关闭窗口重新打开窗口，如代码
forms("窗口1").Close forms("窗口1").Open |