菜单遍历的实现及使用.doc

菜单遍历的实现及使用（深圳：独孤求败2003-05-26）-在使用PB开发信息系统中,我们经常需要对用户的操作进行权限控制,结合数据库功能,对用户从菜单一级进行限制是一种切实可行的方法,本文为了说明方便设计三个表:用户表userdata,用户组表groupdata和菜单数据表menudata(在实际使用时,相应数据可直接与对系统表取得),其表结构和数据如下:userdata:nochar(2)/用户号namename(10)/用户名passwdname(8)/口令groupnochar(2)/组号groupdata:nochar(2)/组号namename(10)/组名示例数据:01数据库管理员02数据管理员03高级查询用户04中查询用户05初级查询用户menudata:group_nochar(2)/组号menu_idvarchar(10)/菜单号menu_namevarchar(30)/菜单名statuschar(1)/权限T:可操作F:不可操作-设计菜单遍历函数uf_menu_all,作用:将菜单数据根据用户组表groupdata的内容写入菜单数据表menudata中,此函数在w_main_mdi的open事件中调用,方法为:IfinitflagThen/*initflag初始化标记*/Deletefrommenudata;/*删除menudata的原有数据*/uf_menu_all(This.MenuID,)EndIf函数uf_menu_all的Script如下:IntegernMenuTitle,nTotalTitles,nPosStringmenuitem_id,menuitem_name,menuitem_help,l_groupnonTotalTitles=UpperBound(menu_item.item)FornMenuTitle=1TonTotalTitlesIfnMenuTitle10Thenmenuitem_id=menu_id+0+String(nMenuTitle)Elsemenuitem_id=menu_id+String(nMenuTitle)EndIfmenuitem_name=menu_item.ItemnMenutitle.TextIfmatch(menuitem_name,)ThennPos=pos(menuitem_name,1)menuitem_name=left(menuitem_name,nPos-1)EndIfmenuitem_help=menu_item.ItemnMenutitle.MicrohelpIfmenuitem_name-ThenDeclarecursor1CursorForSelectnoFromgroupdataOrderByno;Opencursor1;label1:Fetchcursor1Into:l_groupno;Ifsqlca.sqlcode=0ThenIfUpperBound(menu_item.ItemnMenutitle.Item)0ThenInsertIntomenudata(group_no,menu_id,menu_name,menu_help,status)values(:l_groupno,:menuitem_id+00,:menuitem_name,:menuitem_help,T);ElseInsertIntomenudata(group_no,menu_id,menu_name,menu_help,status)values(:l_groupno,:menuitem_id,:menuitem_name,:menuitem_help,T);EndIfGotolabel1EndifClosecursor1;EndIfIfUpperBound(menu_item.ItemnMenutitle.Item)0Thenuf_menu_all(menu_item.ItemnMenutitle,menuitem_id)EndIfNext-设计菜单动态授权函数uf_menu_enabled,作用:根据用户登录所在的用户组生成相应的权限菜单,此函数在w_main_mdi的open事件中调用,方法为:IFg_userdbaTHEN/*g_user是用户登录名,为全局变量,dba为数据库的超级用户,根据用户所连接的后台数据库进行修改*/uf_menu_enabled(This.MenuID,F)ELSEuf_menu_enabled(This.MenuID,T)ENDIF函数uf_menu_enanabled的Script如下:IntegernMenuTitle,nTotalTitles,nPosStringmenuitem_id,menuitem_name,menuitem_help,ls_status,ls_nonTotalTitles=UpperBound(menu_item.item)Selectgroup_noInto:ls_noFromuserdataWhereno=:g_user;FornMenuTitle=1TonTotalTitlesIfnMenuTitle10Thenmenuitem_id=menu_id+0+String(nMenuTitle)Elsemenuitem_id=menu_id+String(nMenuTitle)EndIfmenuitem_name=menu_item.ItemnMenutitle.TextIfmatch(menuitem_name,)ThennPos=pos(menuitem_name,1)menuitem_name=left(menuitem_name,nPos-1)EndIfmenuitem_help=menu_item.ItemnMenutitle.MicrohelpIfmenuitem_name-ThenIfflag=FThenSelectstatusInto:ls_statusFrommenudataWheregroup_no=:ls_noandmenu_id=:menuitem_id;Iftrim(ls_status)=FThenDisable(menu_item.ItemnMenutitle)ELSEEnable(menu_item.ItemnMenutitle)EndIfElseEnable(menu_item.