数据库结构:
字段 类型
ID 整型 索引(无重复)
name 文本
father 整型
//tree初始化
procedure TForm1.FormActivate(Sender: TObject);
var i:integer;
begin
treeview1.Items.BeginUpdate;
while not(adotable1.Eof) do
begin
if ADOTable1.FieldValues['father']=0 then
treeview1.Items.addchild(treeview1.DropTarget,ADOTable1.FieldValues['name'])
else
begin
i:=0;
repeat
if treeview1.Item...[ 查看全文 ]