在PB的TreeView控件中实现自动查询

　 PowerBuilder提供的TreeView控件可以使我们以树形方式分层组织和显示数据，使程序的表现更为灵活，用户的操作更加方便。通常情况下，在TreeView控件中通过展开和折叠各分枝，可以方便地对所需信息进行查找和定位，但是如果该控件中的内容层次较多，用户对其内容又不非常了解时，要让用户逐一展开各分枝进行定位就会使效率降低，这种情况下就需要提供一种自动查询方式，让用户输入要找的信息，由程序来完成在TreeView控件中的查找和定位。

　 PowerBuilder的TreeView控件没有直接提供完成这一功能的函数或方法，也就是说不能直接在TreeView控件的各节点中查找所需的数据。该控件具有一个FindItem()函数，可用于查找节点项，但该函数不能直接对我们所要找的数据进行查找，例如字符文本或数值数据，它只能基于TreeView控件的某一节点项的句柄进行查找。不过我们可以利用该函数来获得节点项的句柄，再通过该句柄进一步获得节点项的详细信息。FindItem() 函数的语法如下：

treeviewname.FindItem 
( navigationcode, itemhandle )

　 其中，treeviewname是我们要在其中进行查找的TreeView控件的名称；

　 navigationcode参数是一个TreeNavigation枚举数据类型，用来表明itemhandle参数与要找的节点项之间的关系，有效的取值如下：

	RootTreeItem! 
    查找第一层的第一项；
	NextTreeItem! 
    在同一级中查找itemhandle后的下一项；
	PreviousTreeItem!  
　　在同一级中查找itemhandle前面的一项；
	ParentTreeItem!
    查找itemhandle的父节点；
	ChildTreeItem! 
    查找itemhandle的第一个子节点；
	FirstVisibleTreeItem!  
　　查找在TreeView控件中可视的第一项而不论层次；
	NextVisibleTreeItem!
    查找itemhandle后已展开的第一项，不分层次；
	PreviousVisibleTreeItem! 
    查找itemhandle前已展开的第一项，不分层次；
	CurrentTreeItem!  获得当前所选项；
	DropHighlightTreeItem!  
    查找DropHighlighted属性最近被设置过的项。
	Itemhandle参数表示节点项的句柄。

　 该函数返回一个长整形值，若执行成功返回找到的节点的句柄，若失败则返回 -1。除了ChildTreeItem!，FindItem不查找未展开的项。利用FindItem只能获得节点项的句柄，要得到某一节点的详细信息，还需要利用TreeView控件的GetItem()函数。该函数可通过节点项句柄得到节点项的状态信息，如label、picture index、childen等，只有比较这些状态信息如label的值，我们才能确定是否已经找到所需的节点项。该函数如下所示：

treeviewname.GetItem ( itemhandle, item)

　 其中，treeviewname是TreeView控件的名称；itemhandle 是要获取信息的节点项的句柄；item参数是一个TreeViewItem系统对象变量，用于存放节点项的信息。

　 下面的程序实现在TreeView控件进行自动查找，为了简化篇幅，而不用再建立TreeView控件，我利用PowerBuilder v6.5所提供的Code Examples中的一个现成的例子来建立查询。在PB 6.5的例子中有一个用来说明TreeView控件和Datawindows进行联系的例子，该例子中有一个w_tv_dw_link窗口，该窗口中具有一个TreeView控件和多个Datawindows，原程序已对TreeView控件的相应事件编好了程序，使得运行时TreeView控件中能显示相应的数据并且能展开各分枝。要在该TreeView控件中进行查询，需要在窗口w_tv_dw_link中增加以下几个控件，其属性设置如下：

控件   属性   属性值
StaticText   Name   ‘st_1’
      Text    ‘查找:’
SingleLineEdit      Name   ‘sle_search’
CommandButton       Name   ‘cb_ok’
      Text      ‘确定’

　 由于原程序中为了响应用户改变窗口的大小，在窗口w_tv_dw_link的Open和Resize事件中编有相应的程序，使TreeView控件和各个DataWindow能布满整个窗口。为了使我们新增的几个控件能正常显示，这里简单地使程序对窗口的Resize事件以及Open事件初始化各控件的位置和大小不作响应，这需要把w_tv_dw_link的Open和Resize事件中的以下语句屏蔽掉（在行首加‘//’使其成为注释）：

	wf_ResizeBars()
	wf_ResizePanels()

　 然后就可以在命令按钮cb_ok的clicked事件中编写以下程序，实现在TreeView控件中进行查找：

    setpointer(hourglass!)
	long ll_handle,ll_handletree[],ll_level
	int li_find
	treeviewitem ltvi_1

if sle_search.text = "" then 
	messagebox("提示","请先输入查询信息!!")
	return
end if

li_find = 0
tv_1.setredraw(false)
ll_handle = tv_1.finditem(RootTreeItem! ,0)
tv_1.expandall(ll_handle)
do while ll_handle >0
  tv_1.getitem(ll_handle,ltvi_1)
  if ltvi_1.label = sle_search.text then
	   li_find = 1
	   exit
  end if
  ll_handle = tv_1.finditem
  (NextVisibleTreeItem! ,ll_handle)
  tv_1.expandall(ll_handle)
loop
ll_level=1
if ll_handle > 0 then
	ll_handletree[ll_level]=ll_handle
	ll_handle=tv_1.finditem
    (ParentTreeItem! ,ll_handle)
	do while ll_handle > 0
		ll_level ++
		ll_handletree[ll_level]=ll_handle
		ll_handle=tv_1.finditem
       (ParentTreeItem! ,ll_handle)
  loop
end if
ll_handle = tv_1.finditem(RootTreeItem! ,0)
do while ll_handle > 0
	tv_1.CollapseItem(ll_handle)
   ll_handle = tv_1.finditem(NextTreeItem!  ,ll_handle)
loop

do while ll_level > 0 and li_find = 1
  	tv_1.expanditem(ll_handletree[ll_level])
   if ll_level = 1 then
      tv_1.selectitem(ll_handletree[ll_level])
      tv_1.setfocus()
		exit
	else
		ll_level --
	end if
loop
tv_1.setredraw(true)
if li_find = 0 then
	messagebox("提示","所给信息没有找到!!")
end if

　 该程序是在TreeView控件中逐项进行查找比较，因而执行的效率和显示结果都不是很理想，但我们在实际应用中，通常TreeView控件都是与DataWindow相联系的，因而很容易借助DataWindow实现顺着TreeView控件的树枝往下查找，执行速度快并且定位准确（不必展开一些不必要的分枝）。而且还很容易实现模糊查询（部份匹配）。