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