在PB的TREEVIEW控件中实现自动查询1.doc

在PB的TreeView控件中实现自动查询1
（深圳：独孤求败 2003-05-30）
---- 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控件的树枝往下查找，执行速度快并且定位准确（不必展开一些不必要的分枝）。而且还很容易 实现模糊查询（部份匹配）。