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