delphi + oracle 递归的问题

大家好：

  我目前要开发一个ERP中的BOM工时汇总程序，在ORACLE中，BOM表的结构是传统的 父件 子件 式的，工时在另一个表中，可以用left outer join来关联，可以认为，关联后的表结构为 [父件] [子件] [工时] [汇总结果]。

  我目前用DELPHI开发，我想用递归的方式来汇总子件的工时，填入汇总结果。这个递归应该怎么写啊？

---

没看明白

“汇总结果”是要计算的内容？
是要计算子件的工时？还是将子件的工时累加到父件中？

---

是将子件的工时累加到父件中？

---

你可以在网上找一下，oracle是可以递归的：


iID := 100;
  start with id = iID
  connect by prior parentid = iID;

这种格式；

---

BOM表与工时可以关联成一个表，然后做递归
给你一个类似的

create table tt(autoid int,cname varchar2(20),fartherid int);
insert into tt values(13,'星星公司', 0);
insert into tt values(14,'总公司', 13); 
insert into tt values(15,'行政部', 14); 
insert into tt values(16,'分公司', 13); 
insert into tt values(17,'销售处', 16); 

procedure TForm1.RefreshTreeView;
  procedure getStructrueInfo(vKeyID: string;tnode: TTreeNode);
  var
  oraQuery1: TOraQuery;
  Tnode1: TTreeNode;
  begin
  oraQuery1 := TOraQuery.Create(nil);
  try
  with oraQuery1 do
  begin
  close;