有关TreeView(50分)

怎样使用TreeView显示一个有层次的表的内容，我现在表中的结构是：
id int ;
parent int ;
show varchar ;
要有源码！
谢谢！

关注！！
DELPHI的TREEVIEW与VB 的OCX不同是每个节点没有KEY,要用指针操作DATA,
实现CHECKBOX还要写写代码！！

你态度很不好啊!
50分来买解答了!
要求有源码,最后还很绅士风度地说声谢谢?
没人会帮你的!

不好意思！
我的分值不多嘛！
时间问题造成文字超减，看似很生硬，其实不然！
再次道歉！
各位如有Delphi6的DBTreeView，也行！
感谢！

//两层的，多层的你自己改吧 ,递归调用
procedure TForm1.Button1Click(Sender: TObject);
var
l_ND : TTreeNode;
begin
with Query1 do
begin
Close;
SQL.Text := 'select distinct id, show from table1 order by id';
Open;
while not Eof do
begin
l_ND := TreeView1.Items.Add(nil, FieldByName('Show').AsString);
with Query2 do
begin
Close;
SQL.Text := 'select id, show from table1 where parent=' + QuotedStr(Query1.FieldByname('ID').AsString);
Open;
while not eof do
begin
TreeView1.Items.Add(l_ND, FieldByName('Show').AsString);
Next;
end;
Close;
end;
Next;
end;
Close;
end;
end;

谢谢！
不过要设计的最多有九层，恐怕这种写法不太好！
To All:有没有与delphi6兼容的DBTreeView?哪里可以下载？
谢谢！
Email:haisongzh@hotmail.com

为什么都不理我？55555