PB下使用TreeView控件实现多级分类检索
PowerBuilder中的TreeView控件为树状列表,其特点是信息项呈树状层次结构,且形式灵活,可展开也可回缩,使用鼠标进行控制,操作简便。因此在应用中,可将其与DataWindow配合,一个提供信息的分类体系,一个提供具体信息,实现信息的多级分类检索,这样可大大地方便查询,提高系统的实用性。
在PowerBuilder下,TreeView控件的开发技术一般较为复杂,但如果将它的构成机制及主要事件、函数领会清楚,掌握它并不困难。下面就是使用TreeView控件实现多级分类检索涉及的主要开发技术。
一、TreeView控件的信息构成及创建
TreeView控件的基本信息单位是TreeViewItem项,它们按树状层次结构进行组织,每个TreeViewItem项一般具有下列主要属性:
Data:Any类型数据,该项对应的内部值。
Label:String型数据,该项对应的显示文字。
Children:Boolean型数据,为Ture时表示该项还有下一层(如图1中项item1),为False时表示该项没有下层,不能被展开(如项 item111)。
PictureIndex:Integer型数值,该项对应的正常图标在图标队列中的编号。
SelectedPictureIndex:Integer型数值,该项对应的选中图标在图标队列中的编号。
通过TreeView控件查阅信息,首先要将信息转化成相应的TreeViewItem项,插入到TreeView控件中。这个工作可借助PB提供的函数来完成。
二、TreeView控件实现多级分类检索涉及的主要事件
让TreeView控件和DataWindow配合,完成信息的多级分类检索,开发过程主要涉及下列三个TreeView事件:
Constructor事件:该事件在控件创建时触发
选中该事件主要用来插入第一层TreeViewItem项,这样用户一进入检索界面,第一层信息项就会出现在控件中。
ItemPopulate事件:该事件在某TreeViewItem项第一次展开时触发,触发的同时系统会将该TreeViewItem项的句柄通过参数handle传递过来。
选中该事件主要用来插入当前TreeViewItem项对应的下层信息项。选择这个事件插入下层信息项,开发时只需考虑插入本项的直 属下层,不必去管下层的下层,可大大简化开发工作;另外,由于用户在执行查询时一般只涉及一些个别类,那些没有涉及的信息类没有展 开,因而没有必要建立下层信息项,在这里做到了,因此改善了应用的执行效率。
SelectionChanged事件:该事件在每次变更选择项后触发,触发的同时系统会将变更前后选择项的句柄通过参数oldhandle、newhandle传递过来。
选中该事件主要用来控制DataWindow显示当前信息类的内容。这样每次在TreeView控件中选中一个信息项,DataWindow即刻将其详细信息显示出来。
三、具体应用实例
笔者曾参与开发了一套医院信息管理系统,其中当前有效医嘱分类检索就是采用TreeView控件和DataWindow配合完成的,界面上的TreeView控件按多级分类体系给出了当前所有有效医嘱项目,每在其中选中一个医嘱项目,旁边的DataWindow即会列出实施该项医嘱的病人清单,并给出人数统计结果。
其中医嘱项目的分类是这样进行的:首先根据医嘱的性质进行了一级分类,分为长期、临时两大类;在一级分类的基础上又根据医嘱的种类进行了二级分类,长期医嘱分为药物类、护理类,临时医嘱分为药物类、护理类、检查类;在二级分类的基础上又根据医嘱的具体类型进行了三级分类,药物类分为口服、肌肉注射、静脉点滴等类,护理类分为特护、一级护理、二级护理等,检查类分为各类具体检查,由此形成了三级分类体系。
为了简化编程,窗口上又增设两个DataStore对象--ds_yzzl和ds_yzjtzl,其中ds_yzlx的作用是根据医嘱性质到库中提取当前医嘱种类,而ds_yzjtlx则是根据医嘱性质、种类到库中提取当前有效医嘱的具体类型。
下面即是3个事件的对应脚本
TreeView控件Constructor事件
TreeViewItem tv_new
//建立一个图标队列,供其中的TreeViewItem项引用,在这里建立主要是为了能够控制图标大小
//首先设定图标显示尺寸
This.PictureHeight=15
This.PictureWidth=16
//图标队列由4个图标构成,前3个用于标识医嘱类项目的级别,第4个用于标识项目的选中状态
This.AddPicture("DosEdit5! ")
This.AddPicture("custom023!")
This.AddPicture("custom036!")
This.AddPicture("Custom050!")
//建立第一级医嘱类项目,本级项目共两个,一个是长期医嘱项目,一个是临时医嘱项目
tv_New.Label='长期医嘱'
tv_New.Data='0'
tv_New.PictureIndex=1
tv_New.SelectedPictureIndex=4
tv_New.Children=True
This.InsertItemLast(0, tv_New)
tv_New.Label='临时医嘱'
tv_New.Data=' 1’
This.InsertItemLast(0, tv_New)
TreeView控件的ItemPopulate事件
Integer Level, n, I
string Parm1, Parm2
Long 11_Parent
TreeViewItem tv_Current, tv_Parent, tv_New
//由句柄获得TreeViewItem项,存入变量tv_Current
GetLtem(handle, tv_Current)
Level=tv_Current, Level+1
tv_New. PictureIndex=Level
tv_New.SelectedPictureIndex= 4
//根据展开级别,建立当前展开项目
CHOOSE CASE Level
CASE 2
//展开第2级医嘱类项目
tv_New.Children=True
Parm1= tv_Current, Data
//通过ds_yzzl检索当前项目类所具有的医嘱种类
n= ds_yzzl.Retrieve(Parm1)
//依次到ds_yzzl中提取医嘱种类,建立该项目
FOR i=1 TO n
//取ds_yzzl中zl字段的显示内容和内部值,
作为这里对应项的显示文字和内部值
tv_New.Label=ds_yzzl.Describe("evaluate
('lookupdisplay(zl)',"+ string(i)+")")
tv_New.Data=ds_yzzl.GetItemString(i, 'zl')
This.InsertItemLast(handle, tv_New)
NEXT
CASE 3
//展开第3级医嘱类项目
tv_New.Children=false
//由句柄获取其父项的句柄
11_Parent=FindItem(ParentTreeItem!,handle)
GetItem(11_Parent, tv_Parent)
Parm1=tv_Parent.Data
Parm2=tv_Current.Data
//通过ds_yzjtlx检索当前医嘱类所具有的具体医嘱类型
n=ds_yzjtlx.retrieve(Parm1, Parm2)
//依次到ds_yzjtlx中提取具体医嘱类型,建立该项目
FOR i=1 TO n
tv_New.Label=ds_yzjtlx.Describe("evaluate
('lookupdisplay(jtlx)',"&+ string(i)+")")
tv_New.Data= ds_yzjtlx.GetItemString(i,'jtlx')
This.InsertItemLast(handle, tv_New)
NEXT
END CHOOSE
TreeView控件的SelectionChanged事件
integer Level,
string Parm1, Parm2, Parm3
long 11_Parent
TreeViewItem tv_Current, tv_ Parent
GetItem(newhandle, tv_Current)
Level=tv_Current.Level
//判断当前项目是否为第3级医嘱类,
如是让旁边的DataWindow列出实施该项医嘱的病人清单
//否则,将其置空。
IF Level=3 THEN
11_Parent=FindItem(ParentTreeItem!,newhandle)
getitem(11_Parent, tv_Parent)
Parm2=tv_Parent.data
11_Parent=FindItem(ParentTreeItem!, 11_Parent)
GetItem(11_Parent, tv_Parent)
Parm1=tv_Parent.data
Parm3=tv_Current.data
dw_1.SetFilter("xz='"+Parm1"'and zl'"
+parm2+"'and jtlx='+Parm3+"'")
dw_1. Filter()
ELSE
dw_1.SetFilter('1=2')
dw_1. Filter()
end if