关于窗口CANEDIT的分用户识别 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

有一个窗口，有很多个控件，然后有四个角色，分别是“区域主管”、”行销部主管“、”行销部经理“、”BOSS“

我希望达到的效果是，根据不同用户登录，识别该用户可用的控件，其他控件锁死；；如果通过IF代码，达到这样的效果；

我自己编了一段代码，但是实现不了，请老师给予指点；；；；

Dim CanEdit As Boolean = (user.roles = "区域主管") ' 如果是角色,请改用user.roles

e.Form.Controls("Button5").Enabled = CanEdit

e.Form.Controls("Button3").Enabled = CanEdit

e.Form.Controls("Button1").Enabled = CanEdit

e.Form.Controls("Button4").Enabled = CanEdit

e.Form.Controls("textbox4").Enabled = CanEdit

Dim CanEdit As Boolean = (user.roles = "行销部主管") ' 如果是角色,请改用user.roles

e.Form.Controls("TextBox5").Enabled = CanEdit

e.Form.Controls("DateTimePicker2").Enabled = CanEdit

e.Form.Controls("Button6").Enabled = CanEdit

e.Form.Controls("Button7").Enabled = CanEdit

Dim CanEdit As Boolean = (user.roles = "行销部经理") ' 如果是角色,请改用user.roles

e.Form.Controls("TextBox6").Enabled = CanEdit

e.Form.Controls("DateTimePicker3").Enabled = CanEdit

e.Form.Controls("Button8").Enabled = CanEdit

e.Form.Controls("Button9").Enabled = CanEdit

Dim CanEdit As Boolean = (user.roles = "boss") ' 如果是角色,请改用user.roles

e.Form.Controls("TextBox2").Enabled = CanEdit

e.Form.Controls("DateTimePicker1").Enabled = CanEdit

e.Form.Controls("Button10").Enabled = CanEdit

e.Form.Controls("Button11").Enabled = CanEdit

如果将以上代码，结合成一个逻辑性的代码？？？

试试：

For Each s As String In "Button6|Button7|DateTimePicker2|TextBox5".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "行销部主管")
Next

For Each s As String In "Button8|Button9|DateTimePicker3|TextBox6".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "行销部经理")
Next

For Each s As String In "Button10|Button11|DateTimePicker1|TextBox2".Split("|")
e.Form.Controls(s).Enabled = (User.Roles = "boss")
Next

如果你的角色是做死的，后面不会变动的话，建议楼主换个一个思路

在设计时，控件命名就加上角色名，如Button1 的名称：Button1_行销部经理

判断的话，遍历

e.Form.Controls(s).Enabled = s.Contains(User.Roles)

当然 User.Roles 为空要判断过

权限控制，千变万化。

要做到既轻松，又严密，很难。

反正用代码，这么细致的控制，一是累人，二是缺少灵活性。

很好，这段代码基本可以~~谢谢

那我应该如何处理，才会显得轻松点？？

以下是引用wealthwind在2014-4-25 13:14:00的发言：
那我应该如何处理，才会显得轻松点？？

初学，先把功能实现。等熟悉了再改造。

主题：关于窗口CANEDIT的分用户识别