数据结构如下：
 CREATE TABLE [tbTree] (
 [ID] [varchar] (4) COLLATE  NOT NULL ,
 [Context] [nvarchar] (50)  NULL ,
 [ParentID] [varchar] (4)  NULL ,
 CONSTRAINT [PK_tbTree] PRIMARY KEY  CLUSTERED
 (
  [ID]
 )  ON [PRIMARY]
) ON [PRIMARY]
代码如下：

lprocedure TForm1.ReadTree(tnode:TTreeNode;Fvalue: String);

lVar

l  i: integer;

l  Flist:TStringList;

l  Flist1:TStringList;

l  str:string;

lbegin

l  qryTree.close;

l  qryTree.sql.clear;

l  qryTree.sql.add('select Parentid,id,context from tbtree');

l  qryTree.sql.add('where isnull(Parentid,'''')=');

l  qryTree.sql.add(''''+Fvalue+'''');

l  qryTree.Open;

l  qryTree.First;

l  Flist:=TStringList.Create;

l  Flist1:=TStringList.Create;

l  while not qryTree.eof do

l    begin

l      Flist.Add(trim(qryTree.fieldbyname('context').asstring));

l      Flist1.Add(qryTree.fieldbyname('id').asstring);

l      qryTree.next;

l    end;

l    for i:= 0 to flist.Count-1 do

l    begin

l      s:=flist1.Strings[i];

l      str:=flist.Strings[i];

l      snode:=Treeview1.items.addchild(tnode,str);

l      ReadTree(snode,s);

l    end;

l  flist.free;

l  flist1.free;

lend;