数据结构如下：
สร้างตาราง [tbtree] (
[ID] [VARCHAR] (4) คอลเล็ตไม่ใช่ NULL
[บริบท] [Nvarchar] (50) Null
[parentid] [varchar] (4) null,
ข้อ จำกัด [pk_tbtree] คีย์หลักคลัสเตอร์
-
[id]
) บน [หลัก]
) บน [หลัก]
代码如下：
lprocedure tform1.readtree (tnode: ttreenode; fvalue: สตริง); LVAR LI: จำนวนเต็ม; L FLIST: TSTRINGLIST; L FLIST1: TSTRINGLIST; l str: สตริง; lbegin l qrytree.close; l qrytree.sql.clear; l qrytree.sql.add ('เลือก 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 do l เริ่มต้น l flist.add (trim (qrytree.fieldbyname ('บริบท'). assTring)); l flist1.add (qrytree.fieldbyname ('id'). assTring); l qrytree.next; ให้ยืม; l สำหรับ i: = 0 ถึง flist.count-1 ทำ 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; ให้ยืม;