動態下拉式按鈕組菜單在VFP中的應用

何文輝

摘 要：采用面向對象的設計思想開發動態下拉式按鈕組菜單（以下簡稱動態菜單），規劃完善動態菜單的各項功能及其在信息管理系統中的應用。

關鍵詞：VFP;面向對象;動態下拉式按鈕組菜單;數據庫;信息管理系統

使用傳統菜單必須要一層一層地點擊，才能執行一個表單，有時容易點錯，為用戶帶來不便，并且界面也不美觀。而采用傳統菜單結合動態菜單的設計，不僅使用戶操作便捷，而且界面更加友好、更加專業化，并且動態菜單完全實現了用戶自定義菜單功能，大大降低了應用程序的修改維護，滿足各種用戶需求。

一、動態菜單的功能介紹

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

2.動態菜單將根據用戶ID和用戶自定義的菜單項，自動生成動態菜單。不同的用戶可根據自己的實際需要，由系統管理員分配菜單項及規定各級菜單的文本和圖標等。

二、設計思想

1.按照其功能，可以把每個一級菜單看作一個樹型節點，并且其行為也與樹型控件很相似，當展開一級菜單中的一個時，其他一級菜單自動關閉，也可全部展開等。當要實現其動態設定菜單項時，也需要將每個一級菜單作為一個節點類來處理

2.設計時，可以將動態菜單分為三個部分來進行。第一部分是設計子節點，子節點的功能是實現執行命令或過程等。第二部分是設計帶有子節點的父節點，父節點的功能是子節點的容器，實現二級菜單的動態填充及展開、關閉二級菜單。第三部分是設計動態菜單的主體，主體是父節點的容器，實現一級菜單的動態數據填充及管理一級菜單。

三、關鍵步驟、技術與核心代碼

1.設計子節點類。代碼如下：

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 &&執行增加的新屬性runcmd宏

ENDPROC

ENDDEFINE

2.設計父節點類。

（1）增加新屬性。

DEFINE CLASS tb_node as Container &&定義父節點

ENDDEFINE &&這條語句放在整個類定義之后

c_height =0 &&展開時容器的高度

c_maxheight =200 &&容器的最大高度，即容器顯示的子節點最多數量，當c_height

&&大于c_maxheight時，容器將顯示上、下滾動箭頭。

itemcnt =0 &&包含的子節點數

preheight =25 &&單位高度，即點擊上、下滾動箭頭時子節點移動的單位

caption =0

（2）增加兩個對象。

增加一個命令按鈕，用來顯示父節點的標題及展開、關閉父節點等功能，然后增加一個容器，用以放置子節點。代碼如下：

ADD OBJECT node_cb AS CommandButton

PROCEDURE node_cb.Click

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

This.Parent.Parent.collapseall&&調用父節點所在容器的collapseall方法

This.Parent.expand &&調用父節點展開方法

This.Parent .Parent.LockScreen =.f.

ENDPROC

ADD OBJECT node_c AS Container &&用來包含子節點的容器

（3）增加幾個方法。

增加collapse、expand、downclick、upclick、setp及ynhidecb方法，其含義分別是節點收縮、節點展開、點擊向下滾動箭頭、點擊向上滾動箭頭、運行宏及隱藏顯示命令按鈕。下面僅介紹關鍵代碼

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.設計動態菜單的主體。

設計用戶自定義菜單錄入表。根據需要，分別設計了兩個表，一個menu_sub用于保存一級菜單項目，另一個menu_item用于保存二級菜單項目，兩個表為一對多關系，menu_sub為主表，menu_item為從表。

總之，這個動態菜單是由三部分組成，分別為子節點、父節點和動態菜單本身，它們的關系均為前一個對象是后一個類的子對象。并且動態菜單的行為方式與樹型控件的行為方式很相似，因此在設計此類時自然會產生分別設計三個類的想法。并且為了使其子節點能動態關聯執行命令或過程，這里采用了宏，使得在類內的子對象可以執行外部函數。

參考文獻：

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

編輯 溫雪蓮