整了二天，终于搞定目录树授权，并且用户名表与授权表全是在后台的，启动项目时不加载，参考了夕然的视频教程，现在有个问题请老师帮助解决一下。项目中的每个功能是通过一个主窗口中的按钮进入的，所有按钮我设置成了不可用，然后在主窗口打开时执行了以下代码，但这代码好啰嗦，想用Select Case做，但这里涉及到了内部函数“ShouQuan”，不知如何改了，请帮我改下，谢谢！
If Functions.Execute("ShouQuan","合同管理","") Then
e.Form.Controls("Button_采购合同录入").Enabled = True
e.Form.Controls("Button_采购合同查询").Enabled = True
e.Form.Controls("Button_销售合同录入").Enabled = True
e.Form.Controls("Button_销售合同打印").Enabled = True
End If
If Functions.Execute("ShouQuan","合同管理","采购合同录入") Then
e.Form.Controls("Button_采购合同录入").Enabled = True
End If
If Functions.Execute("ShouQuan","合同管理","采购合同查询") Then
e.Form.Controls("Button_采购合同查询").Enabled = True
End If
If Functions.Execute("ShouQuan","合同管理","销售合同录入") Then
e.Form.Controls("Button_销售合同录入").Enabled = True
End If
If Functions.Execute("ShouQuan","合同管理","销售合同打印") Then
e.Form.Controls("Button_销售合同打印").Enabled = True
End If
加好友 
发短信
Post By：2015/6/2 12:51:00 [只看该作者]
