Database 版 (精华区)

发信人: lizhenguo (夸父·追日), 信区: Database
标  题: 22
发信站: 哈工大紫丁香 (2001年09月26日18:45:24 星期三), 站内信件

 bbs.hit.edu.cn
PowerBuilder专栏
[回到开始][上一层][下一篇]
----------------------------------------------------------------------------
----
发信人: carsam (独自偷...), 信区: Database
标 题: PowerBuilder应用开发系列讲座 (22)
发信站: 逸仙时空 Yat-sen Channel (Wed Jan 5 12:31:33 2000), 站内信件
PowerBuilder应用开发系列讲座 (22)
----------------------------------------------------------------------------

----
树型视图控件
PowerBuilder 5.0自去年5月发布以来,至今已有一年多了。但是笔者却发现不少用户对

5.0的新特性缺乏了解,在开发中不能充分利用这些新特性,或是向笔者提出一些属于版本

差异的问题。其主要原因一方面由于许多有经验的、较早从事开发的程序员是从4.0以下

开始的,他们　向初学者传授的编程经验多以4.0为主,而且市场上大多数的PowerBuilde

r的技术书籍也是以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中树型视图控件包括了树型视图(TreeVi

ew)和树型视图项(TreeViewItem)两个对象。其中树型视图对象可以在窗口画笔中通过点

击鼠标的方式创建,而树型视图项则必须通过编程来声明及定义它们的属性。
在窗口画笔中用鼠标在窗口上放置了一个树型视图的控件后,可以认可将在窗口的这个位

置采用树型视图来表现的一些信息;还可以通过设置这个控件的属性确定它是否可见、是

否显示连线等基本属性。而这时运行这个窗口,看到的只是这个树型控件的空架子,其中

没有任何数据。
树型控件的每一个数据项都是一个TreeViewItem,而这些树型视图项只能在程序中逐项加

入。一般来讲,当数据量很小而且数据间没有复杂的关系时,可以在树型视图创建时就预

先直接把各项加入到树型视图中　。而数据较多时,则根据需要来制定树视图,不要制定

整个树型视图控件的每一层的每一项,而是将用户检索数据的过程划分为若干步骤。只是

在用户打开一个具体的树型视图项时,才根据用户的需要检索数据。
在制定时,可以在某一项被选中时制定该项的下一层,也可以制定该项的下两层。第二种

方法可以保证打开按钮与数据同步。
将树型视图项加入到树型视图中的方法是使用InsertItem()系列函数中的一种,其中:
·InsertItemFirst()将加入项作为第一个子项;
·InsertItemLast()将加入项作为最后一个子项;
·InsertItem()将加入项放在指定的子项后面;
·InsertItemSort()按排序的顺序放置加入项。
注意:表示层次结构中的根节点的句柄为0。
在制定树型视图控件时,主要使用的事件有:
*ItemPopulate(只有在选中的项第一次被打开时才被激活;再打开该项时不被激活)
* ItemExpanding
* ItemExpanded
在关闭树型视图的下一层数据时,发生下列事件:
* ItemCollapsing
* ItemCollapsed
请注意ItemPopulate这一事件发生的特点。如果数据是静态的,我们只需使用ItemPopul

ate事件,对树型视图控件中的每一项制定一次就可以了。如果数据是动态的,那么在每一

个数据项被打开时我们都要刷新它。仅使用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_tw

o
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_tw

o)
END IF
END IF
li_last_categoryid = li_current_categoryid
li_last_artistid = li_current_artistid
NEXT
--
我想自由自在地飞......
飞过大海...
飞过沙漠...
飞翔在星的夜空......
※ 来源:．逸仙时空 Yat-sen Channel bbs.zsu.edu.cn．[FROM: 202.116.90.29]
----------------------------------------------------------------------------
----
[回到开始][上一层][下一篇]
欢迎访问Cterm主页

--
《列子·汤问》：“夸父不量力，欲追日影，逐之于隅谷之际。渴欲 得饮，赴饮河渭
。河渭不足，将走北饮大泽。未至，道渴而死。”

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.229.154]