数据结构如下 ：
테이블 작성 [tbtree] (
[id] [Varchar] (4) Collate Not Null,
[컨텍스트] [Nvarchar] (50) NULL,
[Parentid] [Varchar] (4) Null,
제약 조건 [PK_TBTREE] 1 차 키 클러스터
(
[ID]
)에서 [1 차]
)에서 [1 차]
代码如下 ：
lprocedure tform1.readtree (tnode : ttreenode; fvalue : String); Lvar Li : 정수; l flist : tstringlist; l flist1 : tstringlist; l str : 문자열; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add ( ''select parentid, id, tbtree의 컨텍스트 '); l qrytree.sql.add ( 'isnull (parentid,' ''= '); l qrytree.sql.add ( '' ''+fvalue+'' ''); l qrytree.open; l qrytree.first; l flist : = tstringlist.create; l flist1 : = tstringlist.create; l qrytree.eof는 l flist.add를 시작하지 않지만 (trim (qrytree.fieldbyName ( 'context'). Asstring); l flist1.add (qrytree.fieldByName ( 'id'). asstring); l qrytree.next; 빌려주다; l i : = 0 to flist.count-1 do l ls : = flist1.strings [i]; l str : = flist.strings [i]; l snode : = treeview1.items.addchild (tnode, str); l readtree (snode, s); 빌려주다; l flist.free; l flist1.free; 빌려주다;