标签：控件 unitNo Delphi 树型 TdxDBTreeList teacher unit
概述：在实际工作中，树状结构中的 items 经常来自数据库的一个或若干个关系表中，若想利用 TTreeView 控件生成相关的树状结构，设计时方式很难实现，运行时方式虽然可以实现，但需要程序员设计大量的代码，而且容易出错。因此，为了提高开发效率，减少重复开发，我们必须使用 data-aware 树型控件。本文介绍了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所示的树型结构。
图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 必须统一二者的宽度，否则可能出现问题，读者可以亲自试验。
结论
树型控件是一种强有力的交互工具，利用第三方提供的 data-aware 树型控件可以效、可靠地开发应用程序。SQL 中的 SELECT 是一个功能强大的语句，灵活的使用它可以实现过程性语言所无法代替的效果。
标签：控件,unitNo,Delphi,树型,TdxDBTreeList,teacher,unit 来源： https://www.cnblogs.com/jijm123/p/13971790.html
本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享； 2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关； 3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关； 4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除； 5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。