treeview 中能否显示俩张有相互联系的俩张表的内容(100分)

现在我有俩张表
zone
zoneid zonename
1 a
2 b
3 c
4 d
5 e
phone
zoneid phoneid phoneno
1 1 6566
2 2 3333
2 3 4444
我现在想让treeview 能够显示成这样，最好开始的时候只显示zonename,不要显示其下的子项
a
-6566
b
-3333
-4444
c
d
e
请大家最好给出源码100分送出，谢谢大家！

var
str1,str2 :string;
MyTreeNode1 :TTreeNode;

with query1 do begin
close;
Sql.clear;
Sql.add('select zonename,phoneno from zone
inner join phone on zone.zoneid=phone.zoneid');
Sql.open;
first;
str1:=fieldbyname('zonename').asstring;
str:=fieldbyname('phone').asstring;
with TreeView1.Items do begin
clear;
MyTreeNode1 := Add(nil, str1);
AddChild(MyTreeNode1,str);
while not eof do begin
str2:=fieldbyname('zonename').asstring;
str:=fieldbyname('phone').asstring;
if str1<>str2 then begin
MyTreeNode1:=(nil, str2);
AddChild(MyTreeNode1,str);
end else if str1=str2 then AddChild(MyTreeNode1,str);
str1:=str2;
next;
end;
end;
end;
代码写的不够准确，还需你调试。

上次我是用1sClass中的TDBTreeview 解决这个问题的。
如果不知道怎么用再联系（我这里偶尔收不到email 通知的）

1sClass中的TDBTreeview 解决这个问题最好不过了

就用Treeview解决，请问如何解决！

李清红的只能解决有话机的区域,没有话机的区域没能表示在treeview 中

多人接受答案了。

我倒，有这么分分的么？
不是说特别在意你这点分，而是玩就要遵守游戏规则

我分错了吗？我只是哪个对我的启发最多，我就给得多了。我知道大家帮我答，是很尽力的，我是新手需要你们的帮助
如果有什么还望见谅！
那你说应该怎么分

他在后面跟的哪个帖子。。。。如果事先看到我的帖子再发，说重点是灌水啊
你要说他对你的启发大，看来我的语文不行：（
btw:
你看看哪个tong_hui的已经被答的问题吧

对不起了，是我看错了。我现在才发现分错了，对不起了！我原是想给李清红80分的
都怪我了！对不住了
谢谢你千中元！

呵呵，不客气