主题：关于权限问题的咨询~~

 

用几个角色，改权限控制的代码。

 

比如 A，有三个角色 xyz

 

代码里面，如果有x角色，就允许做；如果有y角色，就允许做；如果是z角色，就允许做；

 

if user.roles like "*x*" then

 

end if

if user.roles like "*y*" then

 

end if

if user.roles like "*z*" then

 

end if

 

 用全局变量就可以这样写

 

a = "x"

b = "y"

c = "z"

 

if user.roles like "*" & a & "*" then

 

end if

if user.roles like "*" & b & "*" then

 

end if 

if user.roles like "*" & c & "*" then

 

end if

 

那我还想问问，如果用授权表控制，表结构是这样编写吗？？
此主题相关图片如下：360截图20140512220410859.jpg

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

 

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")

 

 

 回复23楼，不是不要了。而是用代码、用变量去代替。

 

 用授权表，只是不让代码写死，可以灵活变换。

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

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

呃，错了

 

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 = (ser.roles like "*日常事务*")

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

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

 

在全局代码

 

参考

 

http://www.foxtable.com/help/topics/1842.htm

 

http://www.foxtable.com/help/topics/0325.htm