那位高手会做动态生成菜单啊？

dragoner 2003-10-16 05:03:10

我做了一个ERP的软件，原来是用静态把菜单做的。但现在不行啊，员工的权限不一样啊。要根据权限表里的数据生成菜单啊？有高手会吗？

...全文

35 19 打赏收藏转发到动态举报

写回复

用AI写文章

19 条回复

切换为时间正序

请发表友善的回复…

发表回复

remember 2004-03-26

打赏
举报

to fishead37(fishead)

呵呵，能在数据库中设置菜单，当然也可以建树实现啦！
早就有了啦！

tmxsl1214 2004-02-04

打赏
举报

blazingstar 2004-01-19

打赏
举报

我两种方法都实现了。
1、根据数据库中定义权限动态生成菜单，在数据库中存放用户名和窗口名
先定义个只有一个菜单项，并且item为空的模板菜单对象，然后每层菜单都通过创建该模板对象的实例来生成。在模板对象的clicked事件中调用Open ( 窗口名 , window )
2、根据数据库中定义权限动态生成TreeView形式的菜单，在数据库中存放用户名和窗口名
方法和第1个差不多，如何生成树不用说了吧。TreeView的clicked事件中调用Open ( 窗口名 , window )

chinalht 2004-01-18

打赏
举报

uo_mymenu lm

lm=creaet uo_mymenu
lm.text = 'Test01'
menu.item[upperbound(menu.item[]) + 1] = lm
//下面2句是为了让新加的菜单项显示出来
menu.visible=false
menu.visible=true

fishead37 2003-12-26

打赏
举报

讓你們看一個真正的系統, 無需菜單項, 它統統都在樹控件中, 雙擊即可打開此功能模塊,
根據權限設定, 從庫中讀取相關的菜單項到樹控件中.
加了分才能看到圖片, 你把email留下.

remember 2003-12-23

打赏
举报

哦，深刻同意！不过流星啊，你是否在长沙哦？
我有点怀疑我和你是网友耶~

不过不再长沙肯定就不是了~哈^-^

meteorshine 2003-12-12

打赏
举报

现在的提问者，提了问之后就不知跑到哪里去了，
解决了问题就应该结贴了啊

jiazhuo 2003-12-07

打赏
举报

没话可说顶

meteorshine 2003-12-06

打赏
举报

我能实现动态菜单，我的QQ：83718520, MSN:hlzlh@hotmail.com
但你给的分也太少了点， ^_^，哈哈，这个问题，至少也要给100分啊

创建只有一个菜单项的菜单，里面定义好其触发的事件是什么，还有其它一些属性，例如名称，Enable， Visible等属性，例如：
创建一个 ufc_m_Item 菜单对象，其属性有 String is_ClickEvent , is_MouseMoveEvent等
再为这个对象创建一个设置其属性的方法，of_SetAttrib(...)
然后创建一个全局的动态生成菜单的方法，采用递归调用的方式，
of_CreateMenu(ref ufc_m_Item am_Parent , long al_Parent)
{
//其中am_Parent 是递归调用时的父菜单项
// al_Parent 是模块的键值，用来获取当前菜单的子模块

long ll_ModuleCount , ll_ItemCount , ll_Index , ll_Joint

ll_ModuleCount = ids_Module.Retrieve(al_Parent)
ll_ItemCount = UpperBound(am_Parent)
FOR ll_Index = 1 TO ll_ModuleCount
am_Parent.Item[ll_ItemCount] = Create ufc_m_Item
//获取模块的一些属性
ll_Joint = ids_Module.GetItemNumber(ll_Index, "Joint")
//设置属性
am_Parent.Item[ll_ItemCount].Dynamic of_SetAttrib(...)

//递归调用, 创建其下一及菜单
of_CreateMenu(am_Parent.Item[ll_ItemCount], ll_Joint)
ll_ItemCount ++
NEXT

Return 1
}

alwaystar 2003-12-06