数据结构如下：
创建表[tbtree]（
[id] [varchar]（4）整理不为null，
[context] [nvarchar]（50）null，
[parendid] [varchar]（4）null，
约束[pk_tbtree]主键群集
（（
[ID]
）在[初级]
）在[初级]
代码如下：
lprocedure tform1.ReadTree（tnode：ttreenode; fvalue：string）; lvar li：整数； l flist：tstringlist; l flist1：tstringlist; l str：string; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add（'select parentid，id，tbtree中的上下文'）; l qrytree.sql.add（'where isnull（parendId，'''''''）='）; l qrytree.sql.add（''''+fvalue+''''）; l qrytree.open; l qrytree.first; l flist：= tstringlist.create; l flist1：= tstringlist.create; l d qrytree.eof do l oging l flist.add（trim（qrytree.fieldbyname（'context'）。asstring））; l flist1.add（qrytree.fieldbyname（'id'）。asstring）; l qrytree.next; l结束； l对于i：= 0 to flist.count-1 do l begin ls ls：= flist1.strings [i]; l str：= flist.strings [i]; l snode：= treeview1.items.addchild（tnode，str）; l readtree（Snode，s）; l结束； l flist。 l flist1.free;借;