标题：ylm老师,请教您一下....

你在项目发布栏发的自定义登陆实例..我研究了半天,搞不明白到底如何设置代码使权限内打勾的项目生效....
能否指点一二?

帮助文档里都是诸如:If User.Name <> "张经理"或者If User.Group <> "经理"又或者If User.Type = UserTypeEnum.Administrator的例子....

如果设置了
If tables("用户权限").Cols("开通") = True Then
之类的语句,又如何与登陆用户关联?真的头大....

此主题相关图片如下：001.jpg

大至思路是这样的：

你在登陆后将用户名写入一个全局变量，不就等于有了 User.Name 差不多了。
诸如:If User.Name <> "张经理"改成If Vars( 全局变量名 ） <> "张经理"

同时，用Find查找该用户对应的用户组，也写入用户组全局变量。

做好上述工作后，以后每一要控制权限的操作，在执行前先用Find查找用户权限表中对应用户组全局变量是否有开通该权限，if分别处理....

 

我也没仔细考虑过，你试试看看吧