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

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

      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); //递归添加子节点 Ado.Next; end; end; finally Ado.Free; end; end; procedure TForm1.Button2Click(Sender: TObject); //方法一 var Ado: TADOQuery; TN0, TN1: TTreeNode; begin if TreeView1.Items.Count > 0 then Treeview1.Items.Clear; TN0:=TreeView1.Items.AddFirst(nil, '中国行政区'); 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 is null Order By ID'); Ado.Open; if Not Ado.IsEmpty then begin Ado.First; while Not Ado.Eof do begin TN1:=TreeView1.Items.AddChild(TN0, Trim(Ado.Fields[1].AsString)); Add_TreeNode(Trim(InttoStr(Ado.Fields[0].AsInteger)), TN1); //添加子节点 Ado.Next; end; end else begin Application.MessageBox('没有用来显示的数据！', '提示', 0); end; finally Ado.Free; TN0.Expand(false);//仅展开根节点的儿子节点 end; end;

     

       该方法在层数多数据量大时，效率将会比较低。

       二、 用数据记录集的方法定位记录，再循环结果集生成树，具体方法如下：

procedure GetChileNodeX(TN: TTreeNode; Ado: TADOQuery; pid: String);//获取子节点 var NodeX: TTreeNode; bookmark: Pointer; begin if Not Ado.IsEmpty then begin Ado.First; while Not Ado.Eof do begin if Trim(Ado.FieldByName('PID').AsString) = pid then begin NodeX:=Form1.TreeView1.Items.AddChild(TN, Trim(Ado.FieldByName('name').AsString)); bookmark:=Ado.GetBookmark; GetChileNodeX(NodeX, Ado, Trim(Ado.FieldByName('ID').AsString)); Ado.GotoBookmark(bookmark); end; Ado.Next; end; end; end; procedure TForm1.Button1Click(Sender: TObject); //方法二 var NodeX: TTreeNode; Ado: TADOQuery; bookmark: Pointer; begin Ado:=TADOQuery.Create(nil); Ado.ConnectionString:=Conn; //Conn是连接数据库的字符串常量 try if TreeView1.Items.Count > 0 then TreeView1.Items.Clear; Ado.SQL.Clear; Ado.SQL.Add('Select * From placename Order by ID'); Ado.Open; if Not Ado.IsEmpty then begin Ado.First; while Not Ado.Eof do begin if Ado.FieldByName('PID').IsNull then begin NodeX:=TreeView1.Items.AddChild(nil, Trim(Ado.FieldByName('name').AsString)); bookmark:=Ado.GetBookmark;//记录当前数据的书签位置 Ado.DisableControls; //切断Ado与数据察觉部件的联系 Unit1.GetChileNodeX(NodeX, Ado, Trim(Ado.FieldByName('ID').AsString)); Ado.GotoBookmark(bookmark);//重新定位记录指针回到原来的位置 Ado.EnableControls;// Ado.FreeBookmark(bookmark); //删除书签bookmark标志 end; Ado.Next; end; end else begin Application.MessageBox('没有用来显示的数据！', '提示', 0); end; finally Ado.Free; end; end;

      

      该方法只访问一次数据库，但是需要循环往复多次操作结果集。

      三、只访问一次数据库，具体的实现如下（来源与网络）：

　　1、一次性从数据库中取出所有的数据，并按照PID字段进行排序，这样就保证每一条数据的父节点都在它的前面（个人认为如果PID字段数据无规律，排序所得结果恐怕不理想）。

　　2、取出第一条数据画到树中，在添加到树中时先找到这条数据的父节点，如果没有 则将此记录直接作为树的第一级节点

　　3、如果还有数据，则取出来执行第2步，直到没有数据为止。

　　程序实现：

　　   本程序将用一个id的TStringList变量来存放对应树中每一个节点的ID值，用GetNode函数来查找父节点。

  function GetNode(pid: String): TTreeNode; var i: Integer; s1,s2: String; begin Result:=nil; index:=0; for i:=0 to Form1.TreeView1.Items.Count-1 do begin s1:= id.Strings[i]; if s1 = pid then begin Result:=Form1.TreeView1.Items.Item[i]; s2:= Result.Text; index:=i; Break; end; end; end; procedure TForm1.Button3Click(Sender: TObject); //方法三 var NodeX: TTreeNode; begin if TreeView1.Items.Count > 0 then TreeView1.Items.Clear; ADOQuery1.SQL.Clear; ADOQuery1.SQL.Add('Select * From placename Order By PID'); ADOQuery1.Open; if Not ADOQuery1.IsEmpty then begin ADOQuery1.First; try id:=TStringList.Create; id.Clear; while Not ADOQuery1.Eof do begin if ADOQuery1.FieldByName('PID').IsNull then begin NodeX:=TreeView1.Items.AddChild(nil, Trim(ADOQuery1.FieldByName('name').AsString)); id.Add(Trim(ADOQuery1.FieldByName('ID').AsString)); end else begin NodeX:=TreeView1.Items.AddChild(GetNode(Trim(ADOQuery1.FieldByName('PID').AsString)), Trim(ADOQuery1.FieldByName('name').AsString)); id.Insert(index + (NodeX.Index+1), Trim(ADOQuery1.FieldByName('ID').AsString)); end; ADOQuery1.Next; end; finally id.Free; end; end else begin Application.MessageBox('没有用来显示的数据！', '提示', 0); end; end;

 

       这3种算法各有优缺点，可根据实际情况选择使用，具体程序下载地址：http://download.csdn.net/source/1515305