VFP 愛用者社區

Ruey · 註冊時間: 2003-03-12 文章: 1698 來自: tunglo 第 1 樓

在VFP5.0中使用 TreeView控制項
http://www.ithome-cn.net/technology/fox/fox45.htm
黃　明
　　當資料庫中保存的資料之間具有層次隸屬關係時(如表示各種社會組織結構的資料)，就要用到能以樹型結構顯示並操作這類資料的控制項：TreeView。

　　TreeView是Windows95/98下的ActiveX控制項，包含在Comctl32.ocx中，當安裝了VFP5.0或VB5.0專業版中的ActiveX後，可以在Windows的System子目錄下找到。

　　下面通過一個簡單的例子介紹如何在VFP中方便地使用TreeView。

　　先建立一個表，用來表示圖1所示的結構。表結構及資料如表1。

　　單位代碼欄位按路徑代碼法編碼，其中包含著資料庫中各記錄對應節點在樹中的位置資訊(也即保存著各記錄之間的層次隸屬關係)。這種代碼能表示出從根節點到指定節點的整個路徑。圖1所示為一個三層結構，圖中的數位即是相應單位的路徑代碼。

　　現在創建一個新表單，把tree.dbf添加到表單的資料環境中。添加TreeView控制項，添加方法：在表單控制項工具欄中選擇OLE容器控制項，添加到表單中，出現Insert Object對話方塊後，選Insert Control，在列表框裏選Microsoft TreeView Control。

　　給表單添加一個新方法:myparentnode用於獲得樹中某節點父節點的鍵值。

　　PARAMETERS nodecode

　　IF RIGHT(nodecode,1)=′0′

　　RETURN ′000′

　　ELSE

　　RETURN LEFT(nodecode,2)＋′0′

　　ENDIF

　　在TreeView的Init事件裏加入下面的程式，用tree.dbf中的記錄填充TreeView：

　　SELECT tree

　　GO TOP

　　THIS.Nodes.ADD(,,′K′＋tree.單位代碼,RTRIM(tree.單位名稱))

　　SKIP

　　DO WHILE .NOT. EOF()

　　THIS.Nodes.ADD(′K′＋THISFORM.myparentnode(tree.單位代碼),4,′K′＋tree.單位代碼,RTRIM(tree.單位名稱))

SKIP

　　ENDD

　　GO TOP

　　程式中ADD是Nodes的方法，與列表框的ADDItem方法類似，用於向TreeView中添加節點。

　　為了實現TreeView控制項的導航功能(操縱資料庫)，需要在TreeView的NodeClick事件中加入下面的程式：

　　LPARAMETERS NODE

　　SELECT tree

　　GO TOP

　　LOCATE FOR tree.單位代碼==SUBSTR(NODE.KEY,2)

　　THISFORM.REFRESH

　　在表單中添加一個編輯框，設置ControlSource=′tree.概況′

　　現在運行表單，展開所有非葉節點，可以看到TreeView已經按圖1所示的層次關係顯示出了表tree.dbf中的記錄。單擊TreeView各節點，編輯框中的內容隨著不同的節點而改變，說明上面的程式已使TreeView具備了導航功能。

　　為了讓讀者能更好地在VFP中使用TreeView控制項，這裏再介紹幾點使用技巧和注意事項。

　　在VFP中使用TreeView時，應充分利用Node的Key屬性。可以為節點指定有意義的字串作為它的key值，這正是存放路徑代碼的好地方。但要注意，不能用純數位字串作為Node的Key屬性的值。否則TreeView將產生無效鍵值錯誤。因此，上面的程式中在引用Key屬性的地方都合併了一個字元“K”。

　　當樹中的節點比較多時，應對各節點排序，以方便用戶檢索。方法是設置各節點的Sorted屬性為真。

　　編程時，還可以利用TreeView的ImageList屬性和Node的Image屬性為性質不同的節點指定不同的圖示，美化用戶介面。如在上面的例子中，向表單裏添加一個ImageList控制項（方法同添加TreeView），在其屬性對話方塊裏插入四個圖示，設置各圖示的Key屬性分別為：root、open、close、leaf。在上述TreeView的Init事件裏追加下面的代碼：

　　THIS.imagelist=THISFORM.oleimage.OBJECT

　　THIS.Nodes(1).IMAGE=′root′

　　FOR imagelist=2 TO THIS.Nodes.COUNT

IF THIS.Nodes(imagelist).children>0

THIS.Nodes(imagelist).IMAGE=′close′

THIS.Nodes(imagelist).expandedimage=′open′

ELSE

THIS.Nodes(imagelist).IMAGE=′leaf′

ENDI

　　ENDF

　　與在VB中使用ImageList不同，當向VFP表單加入一個ImageList後，在設計狀態下，並不能直接設置TreeView的ImageList屬性。解決的辦法是在程式中指定TreeView的ImageList屬性，並應設置為包容ImageList的OLE容器控制項的Object。

表1 表名為tree.dbf
單位名稱
(字元型,長度20) 單位代碼
(字元型,長度3) 概況
(備註型)
總公司 000 memo
分公司1 010 memo
人事部 011 memo
開發部 012 memo
生產部 013 memo
分公司2 020 memo
人事部 021 memo
經營部 022 memo

　　圖1 某公司的組織結構