根据数据库结构生成TreeView

根据数据库结构⽣成TreeView
现在⼤多数的⽅法是采⽤递归，但这种操作会频繁的去select数据库，降低了执⾏效率，稍微改动⼀些，效果会好不少，这⾥介绍⼀种⽅法，即⼀次性select出所有数据，然后按照ParentID排序，逐条添加到TreeView，添加前，先遍历TreeView，查找他的上⼀级节点，遍历Treeview可⽐select数据快啊，下⾯看代码：
数据表结构，最顶级parentid值我⽤的是-1，⼤家也可以⽤其他值，但要保证最顶级parentid值最⼩，层次越深，parentid越⼤
procedure TUIOperate.FillTree(treeview: TTreeView);
var
findq: TADOQuery;
node: TTreeNode;
//这个⽅法是根据记录的id字段值，查找TreeView上的⽗节点
function FindParentNode(id:Integer):TTreeNode;
var
i:Integer;
begin
Result := nil;
for i := 0 to treeview.Items.Count - 1 do
begin
//⽐较Node的Data值和记录的id值
if Integer(treeview.Items[i].Data) = id then
begin
Result := treeview.Items[i];
Break;
end;
end;
end;
begin
findq := TADOQuery.Create(nil);
findq.Connection := controler.DataConnect.Connection; //这⾥的Connection指向你的数据连接
try
treeview.Items.BeginUpdate;
treeview.Items.Clear;
//选出所有记录，并按parentid排序，这样可以保证先添加顶级节点，在下级记录添加时，总能找到⽗节点
findq.SQL.Text := 'SELECT * FROM [Catalog] order by parentid,id';
findq.Open;
while not findq.Eof do
begin
//如果是最顶级，直接添加到Treeview
if findq.FieldByName('parentid').AsInteger = -1 then
//将id值，保存在Node的Data中，以便查找⽤
treeview.Items.AddObject(nil,findq.FieldByName('CatalogName').AsString,Pointer(findq.FieldByName('id').AsInteger))
else
begin
//查找上级节点
node := FindParentNode(findq.FieldByName('parentid').AsInteger);
if node <> nil then
treeview.Items.AddChildObject(node,findq.FieldByName('CatalogName').AsString,Pointer(findq.FieldByName('id').AsInteger));
end;
findq.Next;
end;
finally
findq.Free;
treeview.Items.EndUpdate; end;
end;。