有关TREEVIEW+数据库的问题，高手请进

[miner]

有一数据库结构如下，
---------------------------------------------
B1-----------B2---------------- B3---------
^11F 辅料 1430000 20*12
^11Z 主料 1930000
^12FCC-1 FCC-1合同
^13FCC-1001 橡皮盘
^12Z02
^21101 现金 32000
^2210101 现金_美元
----------------------------------------------
(1430000)为一级长度为一,二级为四,
B1为科目编码信息B2 为名称,B3 规格.
实现如下
and ----所有材料
and ---Z 辅料
and ---FCC-1 合同号
and ---橡皮盘
and 账务科目
and ----101 现金
and ---01 美元


:

[gsoft]

下面是我写的一个TREEVIEW小程序的代码，你可以看，
var rootnode,subnode,personnode,matenode:ttreenode;
i,j,k:integer;
begin
rootnode:=tv1.items.add(nil,'公司');
qrymaster.Close;
qrymaster.sql.add('select * from master');
qrymaster.Open;
qrymaster.First;
for i:=0 to qrymaster.RecordCount-1 do
begin
subnode:=tv1.Items.Addchild(rootnode,qrymaster.FieldByName('company').AsString);
//原形：rootnode=tv1.items.add(nil,string);
// rootnode.ImageIndex :=0;
// rootnode.stateIndex =0;
qrysub.Close;
qrysub.SQL.clear;
qrysub.SQL.Add('select * from submaster where companyid=:dd');
qrysub.ParamByName('dd').asinteger:=qrymaster.FieldByName('companyid').asinteger;
qrysub.Open;
qrysub.First;
for j:=0 to qrysub.RecordCount-1 do
begin
personnode:=tv1.Items.AddChild(subnode,qrysub.FieldByName('personname').AsString);
// subnode.ImageIndex :=-1;
// subnode.StateIndex :=-1;
qrymate.close;
qrymate.sql.clear;
qrymate.sql.add('select * from comunication where personid=:personid');
qrymate.parambyname('personid').asinteger:=qrysub.fieldbyname('personid').asinteger;
qrymate.open;

for k:=0 to qrymate.recordcount-1 do
begin
matenode:=tv1.items.addchild(personnode,qrymate.fieldbyname('name').asstring);
qrymate.next;
end;
qrysub.Next;
end;

qrymaster.Next;
end;
end;

[gsoft]

是这样的格式：
公司
-companyname
-公司人员名
-公司人员的通讯录
如：
公司
-用友公司
-王晨
-李明
-王亮
-张东
-李海
-明明
-刚风