树型视图控件

                      

树型视图控件

PowerBuilder 5.0自去年5月发布以来,至今已有一年多了。但是笔者却发现不少用户对5.0的新特性缺乏了解,在开发中不能充分利用这些新特性,或是向笔者提出一些属于版本差异的问题。其主要原因一方面由于许多有经验的、较早从事开发的程序员是从4.0以下开始的,他们　向初学者传授的编程经验多以4.0为主,而且市场上大多数的PowerBuilder的技术书籍也是以4.0为基础。另一方面,5.0同老版本相比有了许多根本性的改变,新增及扩充的功能要比以往的版本升级都多。从本期起,我们将陆续介绍一些PowerBuilder 5.0的新特性及其应用。

5.0在窗口的控件中增加了几个在Windows 95中新增的控件,如标签形式(Tab Folder

)、树型视图 (TreeView)、列表视图(ListView),而且这些控件在Windows 3.x的版本中也能正常使用,这样就大大丰富了窗口的表现形式,特别是针对Windows 3.x平台。

树型视图控件

树型视图控件最适合显示具有层次关系的数据,在Windows 95中文件和文件夹(子目录)之间的关系就是用树型视图来表现的。在数据库中树型视图是管理大量数据的好方法,因为用户只需简单地点击鼠标就可以选择自己需要的数据。

当我们对数据的表现有以下要求时,我们可首先考虑使用树型视图控件:

* 显示层次结构中元素之间的关系;

* 元素在层次结构之间漫游(元素间的拷贝、移动等);

* 描述每个元素相关信息;

* 将大量数据检索的过程划分为若干步骤,只表现其中需要的部分。

例如在PowerBuilder5.0的例子Example50中,就有可用树型列表的形式来表现的实例:在公司的业务部门中有若干名业务员,他们每个人分别掌握着一定数量的客户,这些客户都曾经同本公司签订了一些合同,每份合同中又包括有订购的产品。因此我们需要表现这些信息中这样的层次关系:业务员→客户→合同→产品。又如一个新闻单位下属了几个不同的部门,每个部门有若干记者,每个记者在不同时期又完成了一定数量的稿件。当这个新闻单位的主编审稿或统计记者工作业绩时,也可以采用树型视图的形式来表现层次信息:部门→记者→稿件。

对树型视图的编程是窗口中较为复杂的部分,它无法像数据窗口那样使用一条Retrieve()函数就可以将数据表现出来。在PowerBuilder中树型视图控件包括了树型视图(TreeView)和树型视图项(TreeViewItem)两个对象。其中树型视图对象可以在窗口画笔中通过点击鼠标的方式创建,而树型视图项则必须通过编程来声明及定义它们的属性。

在窗口画笔中用鼠标在窗口上放置了一个树型视图的控件后,可以认可将在窗口的这个位置采用树型视图来表现的一些信息;还可以通过设置这个控件的属性确定它是否可见、是否显示连线等基本属性。而这时运行这个窗口,看到的只是这个树型控件的空架子,其中没有任何数据。

树型控件的每一个数据项都是一个TreeViewItem,而这些树型视图项只能在程序中逐项加入。一般来讲,当数据量很小而且数据间没有复杂的关系时,可以在树型视图创建时就预先直接把各项加入到树型视图中　。而数据较多时,则根据需要来制定树视图,不要制定整个树型视图控件的每一层的每一项,而是将用户检索数据的过程划分为若干步骤。只是在用户打开一个具体的树型视图项时,才根据用户的需要检索数据。

在制定时,可以在某一项被选中时制定该项的下一层,也可以制定该项的下两层。第二种方法可以保证打开按钮与数据同步。

将树型视图项加入到树型视图中的方法是使用InsertItem()系列函数中的一种,其中:

·InsertItemFirst()将加入项作为第一个子项;

·InsertItemLast()将加入项作为最后一个子项;

·InsertItem()将加入项放在指定的子项后面;

·InsertItemSort()按排序的顺序放置加入项。

注意:表示层次结构中的根节点的句柄为0。

在制定树型视图控件时,主要使用的事件有:

*ItemPopulate(只有在选中的项第一次被打开时才被激活;再打开该项时不被激活)

* ItemExpanding

* ItemExpanded

在关闭树型视图的下一层数据时,发生下列事件:

* ItemCollapsing

* ItemCollapsed

请注意ItemPopulate这一事件发生的特点。如果数据是静态的,我们只需使用ItemPopulate事件,对树型视图控件中的每一项制定一次就可以了。如果数据是动态的,那么在每一个数据项被打开时我们都要刷新它。仅使用ItemPopulate事件就不能满足需要了,还必须使用其它四个事件的组合:用一个打开事件制定被选择项的下层数据;用一个关闭事件删除被选择项的下层数据。下次再打开这项时,还要重新制定它。

举　例

下面的例子制定一个简单树型视图控件的前两层,该树型视图控件用于显示一个CD集的类别、歌手以及唱片。在Constructor事件中编写脚本。用一个DataStore搜集数据。代码在DataStore中循环,每个循环一行,用类别号和类别名字制定树型视图的第一层。在显示歌手号时,制定第二层。

Integer li_rowcount, li_row, li_current_categoryid, li_last_categoryid, li _current_artistid, li_last_artistidTreeViewItem ltvi_level_one, ltvi_level_two

DataStore lds_data

Long ll_handle_level_one, ll_handle_level_two

lds_data = CREATE datastore

lds_data.DataObject = "d_category_artist_albums"

lds_data.SetTransObject(SQLCA)

li_rowcount = lds_data.Retrieve()

//在DataStore中循环,以定制TreeView的数据项

FOR li_row=1 TO li_rowcount

li_current_categoryid = Integer(lds_data.Object.category_id[li_row])

li_current_artistid = Integer(lds_data.Object.artist_id[li_row])

IF IsNull(li_current_artistid) THEN li_current_artist = 0

IF li_current_categoryid ＜＞ li_last_categoryid THEN

//定制树型视图的第一级,当歌手的编号有效时设置其下一层的属性

ltvi_level_one.data = String(lds_dta.Object.category_name[li_row]

ltvi_level_one.data = li_current_categoryid

ltvi_level_one.pictureindex = 1

ltvi_level_one.selectedpictureindex = 2

ltvi_level_one.children = (li_current_artistid＞0)

ll_handle_level_one = This.InsertItemLast(0,ltvi_level_one)

END IF

IF li_current_artistid ＜＞ li_last_artistid THEN

IF li_current_artistid＞0 THEN

ltvi_level_two.label = String(li_current_artistid)

ltvi_level_two.pictureindex = 3

ltvi_level_two.selectedpictureindex = 3

ltvi_level_two.data = li_current_artistid

ltvi_level_two.children = true

ll_handle_level_two = This.InsertItemLast(ll_handle_level_one, ltvi_level_two)

END IF

END IF

li_last_categoryid = li_current_categoryid

li_last_artistid = li_current_artistid

NEXT