-- 作者:ylm
-- 发布时间:2008/12/31 12:01:00
--
大至思路是这样的:
你在登陆后将用户名写入一个全局变量,不就等于有了 User.Name 差不多了。 诸如:If User.Name <> "张经理"改成If Vars( 全局变量名 ) <> "张经理"
同时,用Find查找该用户对应的用户组,也写入用户组全局变量。
做好上述工作后,以后每一要控制权限的操作,在执行前先用Find查找用户权限表中对应用户组全局变量是否有开通该权限,if分别处理....
我也没仔细考虑过,你试试看看吧
|