1、浅谈如何利用 PB 实现动态添加菜单本文拟结合 POWERBUILDER 语言，简述如何实现动态添加菜单效果。在实际开发过程当中很多时候会因为权限控制的需要，根据用户的不同权限来动态添加菜单项目，如何避免使用繁琐的 API 函数（如： CreateMenu、InsertMenu 、InsertMenuItem、AppendMenu 等） ，利用 POWERBUILDER 语言自身功能达到这一目的呢？本文将就此问题简单予以论述。一、基本思路在 PB 帮助的 MENU OBJECT 一节当中，关于其 PROPERTIES 描述当中有一项：Item Menu Specifies the Menu o
2、bjects under a Menu object.这看似简单的一句话其实包含了三层含义：1、这句话说明 MENU 对象有一个属性为数组类型，它其中的各个元素记录了其所有的具体子 ITEM 项目，可以借助这个数组中各元素来访问底层的各子菜单；2、这些子 ITEM 项目仍是 MENU 类型，因此可以按照第一点的逻辑继续向下层推广，借助该子 ITEM 的 ITEM属性可以进而访问其所属下层的第二层子菜单，推而广之，即可全面遍历整个菜单体系的所有子菜单项目；3、既然该属性是一个数组类型，那么就可以按照数组类型变量来处理，我们可以对其进行upperbound()、lowerbound()等函数操作，
3、还可以进行数组的扩展，即添加新项目，这一点很重要，它是我们整篇文章的核心，如何利用 PB 实现动态添加菜单，说白了就是添加这个数组元素（读者必须对此有一个清晰的认识） ，同时期间有一些配套具体的实现技巧，详见下文。二、具体实现（一）基本工作创建一个 WINDOW 窗口和二个 MENU 菜单，其中一个菜单命名为 m_main，用作窗口的基本主菜单，新增菜单将在其上添加，该菜单初始可以包含一些基本菜单，如：文件、添加、删除、保存、退出等；另外一个菜单命名为 m_new，该菜单只有主菜单一个 ITEM，其下没有进一步的子菜单，因此该菜单其实就是一个菜单 ITEM。在主窗口中声明实例变量（INSTAN
4、CE VARIABLES）：menu im_new /声明一菜单数组用于引用新增菜单integer ii_count /声明一变量记录总共新增菜单个数（二）具体代码1、添加一级菜单功能的实现：/用途：在最后一项以及菜单之后新增一项一级菜单/时间：2003-6-1/integer li_itemcount /声明变量记录当前一级菜单总个数；/新创建一个菜单对象，并将其放到菜单数组 im_new当中；ii_count+im_newii_count=create m_new/此处对新创建的菜单对象获取引用；li_itemcount=upperbound(m_main.item)m_main.item
5、li_itemcount + 1=im_newii_count.item1/下面是设置新生成菜单的 TEXT 属性，这个属性可以从数据库中取，但此处省略简化掉了；m_main.itemli_itemcount + 1.text=“新增一级-“ + string(li_itemcount + 1)/下面是设置新生成菜单的 TAG 属性，这个属性可以从数据库中取，但此处省略简化掉了；/通过这个 TAG 可以当作功能号等来使用，通过 gf_menumessage()函数来予以公共处理；/m_main.itemli_itemcount + 1.tag=“xxxxxxxxx“/此处来将新生成的菜单对象显
6、示出来；m_main.item1.hide()m_main.item1.show()2、添加二级菜单功能的实现：/用途：在最后一项一级菜单下新增一项二级菜单/时间：2003-6-1/声明变量记录当前一级菜单总个数、最后一项一级菜单对应的二级菜单总个数；integer li_precount,li_itemcount/新创建一个菜单对象，并将其放到菜单数组 im_new当中；ii_count+im_newii_count=create m_new/此处对新创建的菜单对象获取引用；li_precount=upperbound(m_main.item)li_itemcount=upperbound(
7、m_main.itemli_precount.item)m_main.itemli_precount.itemli_itemcount + 1=im_newii_count.item1/下面是设置新生成菜单的 TEXT 属性，这个属性可以从数据库中取，但此处省略简化掉了；m_main.itemli_precount.itemli_itemcount + 1.text=“新增二级-“ + string(li_precount) + “-“ + string(li_itemcount + 1)/下面是设置新生成菜单的 TAG 属性，这个属性可以从数据库中取，但此处省略简化掉了；/通过这个 TAG
8、可以当作功能号等来使用，通过 gf_menumessage()函数来予以公共处理；/m_main.itemli_precount.itemli_itemcount + 1.tag=“xxxxxxxxx“/此处来将新生成的菜单对象显示出来；m_main.item1.hide()m_main.item1.show()3、添加三级菜单功能的实现：/用途：在最后一项二级菜单下新增一项三级菜单/时间：2003-6-1/声明变量记录当前一级菜单总个数、最后一项一级菜单对应的二级菜单总个数；integer li_fircount,li_precount,li_itemcount/新创建一个菜单对象，并将其放
9、到菜单数组 im_new当中；ii_count+im_newii_count=create m_new/此处对新创建的菜单对象获取引用；li_fircount=upperbound(m_main.item)li_precount=upperbound(m_main.itemli_fircount.item)if li_precount = 0 thenmessagebox(“提示“,“请先点击-添加二级菜单-按钮创建一个二级菜单，：）“)returnend ifli_itemcount=upperbound(m_main.itemli_fircount.itemli_precount.item
10、)m_main.itemli_fircount.itemli_precount.itemli_itemcount + 1=im_newii_count.item1/下面是设置新生成菜单的 TEXT 属性，这个属性可以从数据库中取，但此处省略简化掉了；m_main.itemli_fircount.itemli_precount.itemli_itemcount + 1.text=“新增三级-“ + string(li_fircount) &+ “-“ + string(li_precount) + “-“ + string(li_itemcount + 1)/下面是设置新生成菜单的 TAG 属性
11、，这个属性可以从数据库中取，但此处省略简化掉了；/通过这个 TAG 可以当作功能号等来使用，通过 gf_menumessage()函数来予以公共处理；/m_main.itemli_precount.itemli_itemcount + 1.tag=“xxxxxxxxx“/此处来将新生成的菜单对象显示出来；m_main.item1.hide()m_main.item1.show()4、处理动态生成菜单的 CLICKED 事件：总体思想是采用参数化思想，借助统一的函数，根据函数参数不同来予以不同处理。（1 ）处理 m_new 对象的 clicked 事件：/用途：根据新生成的各菜单所对应的功能号，
12、即从数据库中取出的 TAG 属性/ 来调用 gf_menumessage()全局函数来实现不同的系统功能；/时间：2003-6-1/此处本应该去调用 gf_menumessage()全局函数来处理不同功能所对应要处理的功能号，/但此处均略掉了，具体内容可参见 gf_menumessage() 函数；/此处仅仅演示一个 messagebox()功能，如下；/integer li_ret/li_ret = gf_menumessage(this.tag)/下面代码是避免点击含有下一级子菜单的菜单时会弹出对话框，导致无法显示下一级菜单的情况；if upperbound(this.item) 0 th
13、enreturnend ifmessagebox(“动态菜单演示“,“您当前点击的菜单是：“ + this.text)（2 ）编写 gf_menumessage 函数：/用途：根据新生成的各菜单所对应传进来的功能号，即从数据库中取出的 TAG 属性/ 来动态判断所要进行的操作；/时间：2003-6-1/输入：string 型 as_funcode:对应传进来的菜单要实现的功能号；/输出：integer 型 1:成功/ -1:失败/注：根据新生成的各菜单所对应传进来的功能号，即从数据库中取出的 TAG 属性/ 来动态判断所要进行的操作；此操作需要连接数据库，故此处简列思路，具体略string ls_funcode /声明一变量用于记录传进来的功能号；ls_funcode = as_funcodechoose case ls_funcodecase “1“/比如 1 代表入库管理，则去调用入库管理函数 gf_rk()等等case “2“/比如 1 代表出库管理，则去调用出库管理函数 gf_ck()等等/case elsereturn -1end choosereturn 1至此，动态添加菜单效果全部完成，效果图见：
