Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于权限问题的咨询~~


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

主题：关于权限问题的咨询~~
帅哥哟，离线，有人找我吗？
wealthwind
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 21:49:00 [显示全部帖子]

这个有点看不懂，能否出个代码看看~~~

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 21:50:00 [显示全部帖子]

比如我的分组和角色~~~


图片点击可在新窗口打开查看此主题相关图片如下：360截图20140512214946093.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下：360截图20140512214939828.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 21:51:00 [显示全部帖子]

现在有可能出现，用户名，用几个角色~~

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:05:00 [显示全部帖子]

那我还想问问，如果用授权表控制，表结构是这样编写吗？？
图片点击可在新窗口打开查看此主题相关图片如下：360截图20140512220410859.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:06:00 [显示全部帖子]

另外如果用授权表，是不是，窗口中的这些代码就可以不要了~~？？

 

For Each s As String In "Button1|Button3|Button4|Button6|Button7|Button8|Button9|Button10|Button11|DateTimePicker1|DateTimePicker2|DateTimePicker3|TextBox2|TextBox4|TextBox5|TextBox6|GroupBox5|GroupBox6|GroupBox7|TextBox3|DateTimePicker4|Button01|Button02|GroupBox2".Split("|")
    If Tables("个案申请").current IsNot Nothing Then
e.Form.Controls(s).Enabled = Tables("个案申请").current.IsNull("审核")
End If
Next
For Each s As String In "Button1|Button3|Button4|TextBox4".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "区域主管")
Next
For Each s As String In "Button6|Button7|DateTimePicker2|GroupBox5|TextBox5".Split("|")
    e.Form.Controls(s).Enabled = (User.roles = "个案拆分")
Next
For Each s As String In "Button8|Button9|DateTimePicker3|GroupBox6|TextBox6".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next
For Each s As String In "Button10|Button11|DateTimePicker1|GroupBox7|TextBox2".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next
For Each s As String In "DateTimePicker4|Button01|Button02|GroupBox2|TextBox3".Split("|")
    e.Form.Controls(s).Enabled = (User.Roles = "Boss")

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:11:00 [显示全部帖子]

For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4".Split("|")
    e.Form.Controls(s).Enabled = （User.roles = "日常事务")

 

上面这段代码是这样改吗？？

For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4".Split("|")
    if user.roles like "*个案拆分*" then

e.Form.Controls(s).Enabled

end if

if user.roles like "*日常管理*" then

e.Form.Controls(s).Enabled

end if

if user.roles like "*产品管理*" then

e.Form.Controls(s).Enabled

end if
 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:12:00 [显示全部帖子]

也就是窗口代码还是需要的，只是另外用授权表可以灵活控制，对吧？？？另外授权表的格式对吗？？

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:26:00 [显示全部帖子]

是全局代码，还是全局变量？？

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:26:00 [显示全部帖子]

全局变量找不到可以录入的地方额·~~全局代码就可以。。。。。。。。

 回到顶部
帅哥哟，离线，有人找我吗？
wealthwind
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：660 积分：3965 威望：0 精华：0 注册：2014/3/16 20:34:00 		  发帖心情 Post By：2014/5/12 22:29:00 [显示全部帖子]

For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4".Split("|")
    e.Form.Controls(s).Enabled = （User.roles = "日常事务")

 

改成多用户是不是这样设置：

For Each s As String In "ComboBox1|TextBox4|Button3|Button1|Button4".Split("|")
    e.Form.Controls(s).Enabled = （User.roles = "日常事务" or User.roles = "个案拆分" )

 

》？？？？
 回到顶部
总数 27 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05322 秒, 5 次数据查询