一种树型控件在Delphi中的使用方法

摘 要 树型控件是一种有效的表示方法,在数据库应用程序的开发中经常用它可视化表示对象之间的层次关系。本文介绍了Developer Express inc. 的ExpressQuantumGrid Suite中树型控件 TdxDBTreeList 的使用方法和技巧，特别是由多关系表构成树型结构的情况。

　　关键词 树型控件，TdxDBTreeList，多关系表

　　简介

　　树型控件是一种有效的表示方法,在数据库应用程序的开发中经常用它可视化表示对象之间的层次关系，便于用户的操作和使用。比如：表示一个公司部门的层次结构；磁盘文件系统等。Borland 公司的Delphi 开发系统提供了一般的树型控件TTreeView,它可以在设计时或运行时生成必要的树型结构图，方法是通过生成控件对象的 Items 属性。设计时方式通过手工方式增加items，主要适用于静态、少量的 items 的情况；运行时方式通过程序生成树型结构的 items，它既适合静态又可用于动态的情况。在实际工作中，树状结构中的 items 经常来自数据库的一个或若干个关系表中，若想利用 TTreeView 控件生成相关的树状结构，设计时方式很难实现，运行时方式虽然可以实现，但需要程序员设计大量的代码，而且容易出错。因此，为了提高开发效率，减少重复开发，我们必须使用 data-aware 树型控件。Developer Express inc. 的ExpressQuantumGrid Suite 中树型控件TdxDBTreeList 属于 data-aware 型，items 不仅可以来自数据库的关系表，而且可以为数组等其它数据源。本文介绍了TdxDBTreeList 的使用方法和技巧，特别是由多关系表构成树型结构的情况。

　　TdxDBTreeList 概述

　　Developer Express inc. 开发的The ExpressQuantumGrid Suite 包含三个功能强大的控件，它们分别是：TdxTreeList 、 TdxDBTreeList 和 TdxDBGrid。TdxDBTreeList 直接继承于 TCustomdxDBTreeListControl ，它是 data-aware 型的，不仅结合标准的树型视图和列表控件的特性，而且具有独特的特性：运行时列定制、一个树结点内编辑任意列的能力和由dataset 生成树结构。

　　使用该树型控件关键是设定属性页中几个重要的属性，分别为：DataSource、KeyField、ParentField 和 Bands。其中 DataSource 为提供树型结构的数据源，可以为来自一个或若干个关系表的元组的集合，因此它是必须的且不为空；KeyField 为 DataSource 的元组中唯一标识自身的关键码；树型控件表示的是对象之间的层次关系，除树根结点之外（最上层项目），每一个结点都有一个唯一的双亲结点(直接上层结点)。ParentField 即是元组中标识其双亲结点的 KeyField 。根结点的 ParentField 值必须不是 DataSource 代表的元组中 KeyField 值之一；Bands 控制树型结构显示的列数，通过它提供的 Add 方法增加合适的 Columns ，Columns 有两个重要的属性：Caption 和 FieldName 。Caption 可以设定树型结构的标题，FieldName 代表 DataSource 的元组表示树型结构项目的字段。例如用如下的部门关系表作为 DataSource 形成树型结构：

　　表1 unti 关系表

UnitNo unitName superiorUnit 0000 东南大学 -1 0001 计算机系 0000 000101 硬件教研室 0001 000102 软件教研室 0001 0002 外语系 0000 000201 大外教研室 0002 000202 专外教研室 0002
　　其中，unitNo 表示部门号；unitName 部门名称；superiorUnit 上级部门号。KeyField 设为unitNo；ParentField 设为 superiorUnit ；Bands 的一列 Columns 的 FieldName 设为 unitName 。这样形成如图1所示的树型结构。


　　多关系表生成的树结构

　　实际应用中经常需要由两个或若干个关系表构成树型结构，从表面上看，TdxDBTreeList 仅支持一个关系表。我们可以巧妙地利用 SQL 中功能强大的 SELECT 语句生成必要的数据源 DataSource 。SELECT 语句不仅可以由一个关系表生成元组集合，还可以由多表生成，语法形式为：

select ………. Union select …….. union select ………。

　　如存在如下两个关系表 unit 部门表和 teacher 教师表：

create table unit (
　unitNo varchar2(6) not null, ………..部门号
　unitName varchar2(30), ……….部门名称
　superiorUnitNo varchar2（6）, …..上级部门号
　primary key (unitNo ))
　create teacher (
　　teacherNo varchar2(8) not null , ……..教师号
　　teacherName varchar2(10) , ……..教师名
　　unitNo varchar(6), ……..教师所在教研室号
　　primary key (teacherNo),
　　foreign key unitNo(unitNo) references unit )
　　其中，teacher 表的字段 unitNo 为引用unit表的外键。假设unit 的关系表内容同表1；teacher的内容如下：

　　表2 teacher 关系表

teacherNo teacherName unitNo 00010001 Computer1 000101 00010002 Computer2 000102 00020001 Foreign1 000201 00020001 Foreign2 000202
　　如要生成如图2所示的来自unit 和 teacher 两个关系表数据的树型结构：

　　　　　
　　　　　　　　　图2 待生成的unit 和 teacher 两个关系表数据的树型结构

　　可以用下列语句：

select unitNo||' ' as unitNo,unitName, superiorUnit
from depart
union
select teacherNo as unitNo,teacherName as unitName,unitNo||' ' as superiorUnit from teacher
　　生成的数据集作为 TdxDBTreeList 的数据源；unitNo 作为 KeyField；superiorUnit 作为 ParentField 等。需要注意的是,其中 uintNo||' '是一种字符串连接运算,之所以要这么做是因为 unit 关系模式中 unitNo 的字段宽度为 6 位，而 teacher 中的 teacherNo 为 8 位，作为 TdxDBTreeList 的 KeyField 必须统一二者的宽度，否则可能出现问题，读者可以亲自试验。

　　结论

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有