根据数据库结构生成TreeView

现在大多数的方法是采用递归，但这种操作会频繁的去select数据库，降低了执行效率，稍微改动一些，效果会好不少，这里介绍一种方法，即一次性select出所有数据，然后按照ParentID排序，逐条添加到TreeView，添加前，先遍历TreeView，查找他的上一级节点，遍历Treeview可比select数据快啊，下面看代码：

 

数据表结构，最顶级parentid值我用的是-1，大家也可以用其他值，但要保证最顶级parentid值最小，层次越深，parentid越大

 

[delphi]  view plain copy

1. procedure TUIOperate.FillTree(treeview: TTreeView);  
2. var  
3.   findq: TADOQuery;  
4.   node: TTreeNode;  
5.   
6.   //这个方法是根据记录的id字段值，查找TreeView上的父节点  
7.   function FindParentNode(id:Integer):TTreeNode;  
8.   var  
9.     i:Integer;  
10.   begin  
11.     Result := nil;  
12.     for i := 0 to treeview.Items.Count - 1 do  
13.     begin  
14.       //比较Node的Data值和记录的id值  
15.       if Integer(treeview.Items[i].Data) = id then  
16.       begin  
17.         Result := treeview.Items[i];  
18.         Break;  
19.       end;  
20.     end;  
21.   end;  
22.   
23. begin  
24.   findq := TADOQuery.Create(nil);  
25.   findq.Connection := controler.DataConnect.Connection; //这里的Connection指向你的数据连接  
26.   try  
27.     treeview.Items.BeginUpdate;  
28.     treeview.Items.Clear;  
29.     //选出所有记录，并按parentid排序，这样可以保证先添加顶级节点，在下级记录添加时，总能找到父节点  
30.     findq.SQL.Text := 'SELECT * FROM [Catalog] order by parentid,id';  
31.     findq.Open;  
32.     while not findq.Eof do  
33.     begin  
34.       //如果是最顶级，直接添加到Treeview  
35.       if findq.FieldByName('parentid').AsInteger = -1 then  
36.         //将id值，保存在Node的Data中，以便查找用  
37.         treeview.Items.AddObject(nil,findq.FieldByName('CatalogName').AsString,Pointer(findq.FieldByName('id').AsInteger))  
38.       else  
39.       begin  
40.         //查找上级节点  
41.         node := FindParentNode(findq.FieldByName('parentid').AsInteger);  
42.         if node <> nil then  
43.           treeview.Items.AddChildObject(node,findq.FieldByName('CatalogName').AsString,Pointer(findq.FieldByName('id').AsInteger));  
44.       end;  
45.       findq.Next;  
46.     end;  
47.   finally  
48.     findq.Free;  
49.     treeview.Items.EndUpdate;  
50.   end;  
51. end;