Delphi中根据分类数据生成树形结构的方法

原创

于 2009-07-24 15:44:00 发布 · 3.2k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #数据库 #string #integer #function #算法

本文介绍了三种生成树形结构的方法，包括根据层数递归访问数据库、利用数据记录集生成树及仅访问一次数据库的不同实现方式。这些方法适用于展示层级结构数据，如行政区划等。

很多系统都有类似于如下的表结构(表名-placename)：

表名是placename，Access的数据库

Treeview用于显示按照树形结构进行组织的数据，这在实际当中用途还是比较广泛的，如计算机中的文件系统、企业或公司的组成结构等等。而且大家都习惯于用树（TreeView）来显示，这样就可以很好的显示整个表的分类情况。但如果数据量多时会造成树的生成比较慢，特别是用递归来实现时要访问数据库的次数很多（根据层数）。在此提供几个方法来生成树形结构。

一、根据层数递归访问数据库，具体实现如下：

procedure Add_TreeNode(PID: String; TN: TTreeNode); //添加子节点 var Ado: TADOQuery; TN1: TTreeNode; begin Ado:=TADOQuery.Create(nil); try Ado.ConnectionString:=Conn; //Conn是连接数据库的字符串常量 Ado.Close; Ado.SQL.Clear; Ado.SQL.Add('Select ID, name, PID From placename where PID = ' + PID + ' Order By ID'); Ado.Open; if Not Ado.IsEmpty then begin Ado.First; while Not Ado.Eof do begin TN1:=Form1.TreeView1.Items.AddChild(TN, Trim(Ado.Fields[1].AsString)); Add_TreeNode(Trim(InttoStr(Ado.Fields[0].AsInteger)), TN1); //递归添加