動(dòng)態(tài)下拉式按鈕組菜單在VFP中的應(yīng)用

何文輝

摘 要：采用面向?qū)ο蟮脑O(shè)計(jì)思想開發(fā)動(dòng)態(tài)下拉式按鈕組菜單（以下簡稱動(dòng)態(tài)菜單），規(guī)劃完善動(dòng)態(tài)菜單的各項(xiàng)功能及其在信息管理系統(tǒng)中的應(yīng)用。

關(guān)鍵詞：VFP;面向?qū)ο?動(dòng)態(tài)下拉式按鈕組菜單;數(shù)據(jù)庫;信息管理系統(tǒng)

使用傳統(tǒng)菜單必須要一層一層地點(diǎn)擊，才能執(zhí)行一個(gè)表單，有時(shí)容易點(diǎn)錯(cuò)，為用戶帶來不便，并且界面也不美觀。而采用傳統(tǒng)菜單結(jié)合動(dòng)態(tài)菜單的設(shè)計(jì)，不僅使用戶操作便捷，而且界面更加友好、更加專業(yè)化，并且動(dòng)態(tài)菜單完全實(shí)現(xiàn)了用戶自定義菜單功能，大大降低了應(yīng)用程序的修改維護(hù)，滿足各種用戶需求。

一、動(dòng)態(tài)菜單的功能介紹

1.動(dòng)態(tài)菜單布局：第一級(jí)菜單作為動(dòng)態(tài)菜單的第一層，第二級(jí)菜單作為動(dòng)態(tài)菜單的第二級(jí)，本例只用了兩級(jí)，可以根據(jù)需要拓展到多級(jí)，并且一般情況下，級(jí)數(shù)不要多于2層，否則影響使用效果。其用法是，當(dāng)點(diǎn)擊第一層菜單，如“查詢統(tǒng)計(jì)”，系統(tǒng)將下拉展開“查詢統(tǒng)計(jì)”的二級(jí)菜單。再次點(diǎn)擊其他的第一層菜單時(shí)，如“日常管理”時(shí)，只展開“日常管理”的二級(jí)菜單。其他一級(jí)菜單關(guān)閉。

2.動(dòng)態(tài)菜單將根據(jù)用戶ID和用戶自定義的菜單項(xiàng)，自動(dòng)生成動(dòng)態(tài)菜單。不同的用戶可根據(jù)自己的實(shí)際需要，由系統(tǒng)管理員分配菜單項(xiàng)及規(guī)定各級(jí)菜單的文本和圖標(biāo)等。

二、設(shè)計(jì)思想

1.按照其功能，可以把每個(gè)一級(jí)菜單看作一個(gè)樹型節(jié)點(diǎn)，并且其行為也與樹型控件很相似，當(dāng)展開一級(jí)菜單中的一個(gè)時(shí)，其他一級(jí)菜單自動(dòng)關(guān)閉，也可全部展開等。當(dāng)要實(shí)現(xiàn)其動(dòng)態(tài)設(shè)定菜單項(xiàng)時(shí)，也需要將每個(gè)一級(jí)菜單作為一個(gè)節(jié)點(diǎn)類來處理

2.設(shè)計(jì)時(shí)，可以將動(dòng)態(tài)菜單分為三個(gè)部分來進(jìn)行。第一部分是設(shè)計(jì)子節(jié)點(diǎn)，子節(jié)點(diǎn)的功能是實(shí)現(xiàn)執(zhí)行命令或過程等。第二部分是設(shè)計(jì)帶有子節(jié)點(diǎn)的父節(jié)點(diǎn)，父節(jié)點(diǎn)的功能是子節(jié)點(diǎn)的容器，實(shí)現(xiàn)二級(jí)菜單的動(dòng)態(tài)填充及展開、關(guān)閉二級(jí)菜單。第三部分是設(shè)計(jì)動(dòng)態(tài)菜單的主體，主體是父節(jié)點(diǎn)的容器，實(shí)現(xiàn)一級(jí)菜單的動(dòng)態(tài)數(shù)據(jù)填充及管理一級(jí)菜單。

三、關(guān)鍵步驟、技術(shù)與核心代碼

1.設(shè)計(jì)子節(jié)點(diǎn)類。代碼如下：

DEFINE CLASS tb_cbnode as Commandbutton

Alignment=0

Height=25

Pictureposition =1

Width=124

runcmd=“”&&增加的新屬性

PROCEDURE Click

LOCAL ls_runcmd

ls_runcmd =This.runcmd

&ls_runcmd &&執(zhí)行增加的新屬性runcmd宏

ENDPROC

ENDDEFINE

2.設(shè)計(jì)父節(jié)點(diǎn)類。

（1）增加新屬性。

DEFINE CLASS tb_node as Container &&定義父節(jié)點(diǎn)

ENDDEFINE &&這條語句放在整個(gè)類定義之后

c_height =0 &&展開時(shí)容器的高度

c_maxheight =200 &&容器的最大高度，即容器顯示的子節(jié)點(diǎn)最多數(shù)量，當(dāng)c_height

&&大于c_maxheight時(shí)，容器將顯示上、下滾動(dòng)箭頭。

itemcnt =0 &&包含的子節(jié)點(diǎn)數(shù)

preheight =25 &&單位高度，即點(diǎn)擊上、下滾動(dòng)箭頭時(shí)子節(jié)點(diǎn)移動(dòng)的單位

caption =0

（2）增加兩個(gè)對(duì)象。

增加一個(gè)命令按鈕，用來顯示父節(jié)點(diǎn)的標(biāo)題及展開、關(guān)閉父節(jié)點(diǎn)等功能，然后增加一個(gè)容器，用以放置子節(jié)點(diǎn)。代碼如下：

ADD OBJECT node_cb AS CommandButton

PROCEDURE node_cb.Click

This.Parent .Parent.LockScreen =.t. &&防止刷屏

This.Parent.Parent.collapseall&&調(diào)用父節(jié)點(diǎn)所在容器的collapseall方法

This.Parent.expand &&調(diào)用父節(jié)點(diǎn)展開方法

This.Parent .Parent.LockScreen =.f.

ENDPROC

ADD OBJECT node_c AS Container &&用來包含子節(jié)點(diǎn)的容器

（3）增加幾個(gè)方法。

增加collapse、expand、downclick、upclick、setp及ynhidecb方法，其含義分別是節(jié)點(diǎn)收縮、節(jié)點(diǎn)展開、點(diǎn)擊向下滾動(dòng)箭頭、點(diǎn)擊向上滾動(dòng)箭頭、運(yùn)行宏及隱藏顯示命令按鈕。下面僅介紹關(guān)鍵代碼

PROCEDURE expand

LOCAL li_height

IF This.c_maxheight>=This.c_height

li_height=This.c_height

ELSE

li_height=This.c_maxheight

ENDIF

This.node_c .Height =li_height

This.Height=This.node_cb.Height ?+This.node_c.Height

ENDPROC

3.設(shè)計(jì)動(dòng)態(tài)菜單的主體。

設(shè)計(jì)用戶自定義菜單錄入表。根據(jù)需要，分別設(shè)計(jì)了兩個(gè)表，一個(gè)menu_sub用于保存一級(jí)菜單項(xiàng)目，另一個(gè)menu_item用于保存二級(jí)菜單項(xiàng)目，兩個(gè)表為一對(duì)多關(guān)系，menu_sub為主表，menu_item為從表。

總之，這個(gè)動(dòng)態(tài)菜單是由三部分組成，分別為子節(jié)點(diǎn)、父節(jié)點(diǎn)和動(dòng)態(tài)菜單本身，它們的關(guān)系均為前一個(gè)對(duì)象是后一個(gè)類的子對(duì)象。并且動(dòng)態(tài)菜單的行為方式與樹型控件的行為方式很相似，因此在設(shè)計(jì)此類時(shí)自然會(huì)產(chǎn)生分別設(shè)計(jì)三個(gè)類的想法。并且為了使其子節(jié)點(diǎn)能動(dòng)態(tài)關(guān)聯(lián)執(zhí)行命令或過程，這里采用了宏，使得在類內(nèi)的子對(duì)象可以執(zhí)行外部函數(shù)。

參考文獻(xiàn)：

張洪舉.Visual FoxPro 6.0～9.0解決方案與范例大全.人民郵電出版社，2006.

編輯 溫雪蓮