菜单遍历的实现及使用

1、菜单遍历的实现及使用（：独孤求败 2003-05-26）-在使用 PB 开发信息系统中,经常需要对用户的操作进行权限控制,结合数据库功能,对用户从菜单一级进行限制是一种切实可行的方法,本文为了说明方便设计三个表:用户表 userdata,用户组表 groupdata 和菜单数据表data(在实际使用时,相应数据可直接与对系统表取得),其表结构和数据如下:userdata: nochar(2) namename(10) passwdname(8)groupnochar(2)/用户号/用户名/口令/组号groupdata: nochar(2)namename(10)/组号/组名示例数据:01020

2、30405数据库管理员数据管理员 高级查询用户中查询用户初级查询用户data: group_nochar(2)_idvarchar(10)_namevarchar(30)/组号/菜单号/菜单名/权限 T:可操作 F:不可操作suschar(1)-设计菜单遍历函数 uf_all,作用:将菜单数据根据用户组表 groupdata 的内容写入菜单数据表 menudata 中,此函数在 w_main_mdi 的 open 事件中调用,方法为:IfinitflagThen/*initflag 初始化标记*/Deletefrom/*删除data;data 的原有数据*/uf_all(This.EndIfI

3、D,)函数 uf_egern String name,_all 的Script 如下:Title,nTotalTitles,nitem_id,item_item_help,l_groupnonTotalTitles=UpperBound(_item.item)FornTitle=1TonTotalTitlesIfnTitle10Thenitem_id=Elseitem_id=EndIfitem_name=_id+0+String(nTitle)_id+String(nTitle)_item.Itemntitle.TextIfmatenuitem_name, )Thenn=(item_name,

4、 ,1)item_name=left(EndIfitem_name,n-1)item_help=_item.Itemntitle.MicrohelpIfitem_name-ThenDeclarecursor1CursorFor SelectnoFromgroupdataOrderByno; Opencursor1;label1:Fetchcursor1o:l_groupno;Ifsqlca.sqlcode=0ThenIfUpperBound(_item.ItemnInserttitle.Item)0Thenodata_id,(group_no,_name,_help,sus)values(:l

5、_groupno,:,:item_name,: Elseitem_id+00item_help,T);Insertid,o_name,data(group_no,_help,sus)values(:l_groupno,:item_id,:item_name,:item_help,T); EndIfGotolabel1 Endif Closecursor1;EndIfIfUpperBound(_item.Itemn uf_ntitle.Item)0Then_all(title,_item.Itemitem_id)EndIfNext-设计菜单动态函数uf_enabled,作用:根据用户登录所在的用

6、户组生成相应的权限菜单,此函数在 w_main_mdi 的 open 事件中调用,方法为:IFg_userdbaTHEN/*g_user 是用户登录名,为全局变量,dba 为数据库的超级用户,根据用户所连接的数据库进行修改*/uf_enabled(This. ELSEuf_enabled(This.ENDIFID,F)ID,T)函数 uf_enanabled 的 Script 如下:egern String_name,Title,nTotalTitles,nitem_id,itemitem_help,ls_sus,ls_no_item.item)nTotalTitles=UpperBound(

7、Selectgroup_noo:ls_noFromuserdataWhereno=:g_user;FornIfnTitle=1TonTotalTitlesTitle10Thenitem_id=Elseitem_id=EndIfitem_name=_id+0+String(nTitle)_id+String(nTitle)_item.Itemntitle.TextIfmatenuitem_name, )Thenn=(item_name, ,1)item_name=left(EndIfitem_name,n-1)item_help=item.Itemn_title.MicrohelpIfitem_name-ThenIfflag=FThenSelectsFrom anduso:ls_susdataWheregroup_no=:ls_no_id=:item_id;Iftrim(ls_s Disable( ELSEEnable( EndIf Else Enable( EndIfEndIfus)=FThen_item.Itemntitle)_item.It