Delphi中根据分类数据生成树形结构最优方法.docVIP

Delphi中根据分类数据生成树形结构的最优方法 引言： TreeView控件适合于表示具有多层次关系的数据。它以简洁的界面，表现形式清晰、形象，操作简单而深受用户喜爱。而且用它可以实现ListView、ListBox所无法实现的很多功能，因而受到广大程序员的青睐。 树形结构在Windows环境中被普遍应用，但在数据库开发中面对层次多、结构复杂的数据，如何快速构造树形目录并实现导航呢？ 二、 实现关键技术： 在Delphi提供的控件中包含了TreeView控件，但树的具体形成还需要用户编写代码。即它的列表项要在程序中动态添加，而这些列表数据通常由用户已录入在数据库表中，并作为数据库维护的一项内容。 许多人用TreeView构造树形目录时，通常都使用多个嵌套循环，或递归算法，将代码“编织”成树。这样不但算法复杂，且运行效率低下，不是最佳选择。这里介绍的是基于编码结构的高效算法。该算法的主要优点是：程序短小精悍，运行效率高，能快速实现数据库的树形结构，可以适应任何复杂的层次数据，实现方法简单，且树的内容有变动时，无需更改程序行。 算法的关键在于代码字典表中的代码字段的设计上一定要符合一定的代码设计要求，数据类型使用字符型。用户新增和修改代码时，必须有严格的约束，否则会导致程序出错。编码表的基本字段包括编码和编码名称，其编码规则是以数字、字母的位数来区分不同层次，同一层编码位数相同，层次按位数递增，程序通过判断编码位数来决定所在层数。 本例程中编码结构是“222”，编码格式为 “XX XX XX”。例如：第一层为10~99两位，第二层为1001~1099四位，用户需要做的是先要设计树的结构和对应编码，并录入相应名称，然后程序在读取这些数据时形成树。本例程不需要用户自己进行编码，程序中自动实现各层编码，保证了代码格式的正确性。 用TreeView导航表时，采用弹出式菜单，通过对话框操作数据表，同步更新树形控件和数据库。在所有操作中，树形控件不用重构，从而避免了重构时TreeView控件出现的闪动，也提高了程序的运行速度。 本示例程序为了使大家看清楚数据表中记录是否同步更新，用TDBGrid控件显示当前数据库表中所有记录。下面给出范例程序和主要代码分析。 三、 范例程序和主要代码分析： 我们以建立一个城市名称的树形结构为例来说明如何快速生成树形并实现导航数据表。 1． 先建立编码表：city_tree(bianma,cityname)。 2． 新建一个项目，按默认保存。 3． 新建一公共单元pubvar，在其中定义以下常量： Const cTreeCodeFormat = ‘222’;//编码格式为 XX XX XX cTreeMaxLevel = 3;//最大编码层次 cTreeRootTxt = ‘城市’;//树根结点名称 这样做为了提高程序的通用性，以后用于其他代码字典的维护时，只需要更改这些特征常量。 4． 程序源代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, DBTables, ImgList, ComCtrls , PubVar, Grids, DBGrids, Menus , StrUtils, StdCtrls; type TForm1 = class(TForm) Tree: TTreeView; ImageList1: TImageList; Table1: TTable; DataSource1: TDataSource; DBGrid1: TDBGrid; PopupMenu1: TPopupMenu; AddMenu: TMenuItem; DeleteMenu: TMenuItem; RenameMenu: TMenuItem; Query1: TQuery; DataSource2: TDataSource; procedure AddMenuClick(Sender: TObject);//点击增加子项菜单 procedure RenameMenuClick(Sender: TObject);//点击重命名菜单 procedure DeleteMenuClick(Sender: TObject); //点