只需22行代码，加载菜单权限不要太简单

加菲猫的VFP

发布于 2021-08-16 15:07:08

5710

文章被收录于专栏：加菲猫的VFP加菲猫的VFP

在VFP制作的菜单中，有一个属性叫跳过（skip），可以利用它来实现菜单的开闭。

我们来做一个最简单的菜单权限设计：

需设计数据表：用户表，菜单表，用户菜单权限表

一、用户表的设计

二、菜单表和菜单的设计如下图：

菜单description相当于菜单设计器的提示（菜单名）,但可以多个菜单名对应一个description。

三、权限表的设计

我们用一个SQL语句来查看用户id=1 的菜单权限的设置情况

select description,isnull(enabled,0) enabled,userid from rights left join  
(SELECT a1.userid,right_id, enabled FROM RoleRight
 inner join  
(
select  id userid from user_pass where USER_PASS.id=1
) a1
on RoleRight.userid=a1.userid
)  b1  on Rights.id=right_id

查询结果如下

用了左连接是因为菜单表以后随时会增加，这样查询就会将新增加的菜单项的设置项也全部展现出来，防止出现找不到权限的情况。

四、菜单权限的加载

表单的LOAD事件加载如下代码

TEXT TO lcSQLCmd NOSHOW TEXTMERGE
select description,isnull(enabled,0) enabled,userid from rights left join  
(SELECT a1.userid,right_id, enabled FROM RoleRight
 inner join  
(
select  id userid from user_pass where USER_PASS.id=1
) a1
on RoleRight.userid=a1.userid
)  b1  on Rights.id=right_id
ENDTEXT
oDBSQLhelper=Newobject("MSSQLHelper","MSSQLHelper.prg")
If oDBSQLhelper.SQLQuery(lcSQLCmd,"main_menus")<0
    Messagebox(oDBSQLhelper.errrmsg)
    Return .F.
Endif
*--表变成对象(表的纵向记录变成了横向属性，*--方便菜单权限控制，简单高效)Select main_menus
oMenus=Createobject("empty")
Scan
    AddProperty(oMenus,Alltrim(description),enabled)
Endscan
AddProperty(_screen,"oMenus",oMenus)  &&将属性添到_screen

这里面用的技巧就是表的纵向记录变成对象的横向属性，从而很方便地设置跳过（skip）属性。