数据结构如下
Criar tabela [tbtree] (
[Id] [Varchar] (4) colar não nulo,
[Contexto] [Nvarchar] (50) NULL,
[Parentid] [Varchar] (4) Null,
Restrição [pk_tbtree] chave primária em cluster
(
[EU IA]
) Em [primário]
) Em [primário]
代码如下
lprocedure tform1.readTree (tNode: ttreenode; fValue: string); Lvar Li: Inteiro; L Flist: TStringList; l flist1: tStringList; l str: string; LBEGIN L QRYTREE.CLOSE; l QRYTREE.SQL.CLEAR; l QRYTREE.SQL.ADD ('SELECT ParentId, ID, Contexto de Tbtree'); l QRYTREE.SQL.ADD ('Where isNull (parentid,' '' ') ='); l QRYTREE.SQL.ADD ('' ''+fValue+'' ''); l QRYTREE.OPEN; l QRYTREE.PREST; l flist: = tStringList.create; l flist1: = tStringList.create; l embora não seja QRYTREE.EOF LE COMEÇAR L FLIST.ADD (TRIM (QRYTREE.FIELBYNAME ('CONTEXTO'). ASSTRING)); l flist1.add (Qrytree.fieldbyname ('id'). Asstring); L QRYTREE.NEXT; emprestar; l para i: = 0 para flist.count-1 do começo ls: = flist1.strings [i]; l str: = flist.strings [i]; l snode: = TreeView1.items.addchild (tnode, str); l readtree (snode, s); emprestar; l flist.free; l flist1.free; emprestar;