请问高手如何在form创建时自动连接数据库显示treeview的内容?如何在修改treeview中数据后自动刷新,谢谢哦!下面是显示treeview内容的代码
var
pnode:TTreeNode;
i:integer;
//pnode为树节点类型的变量
scode,scodel,sname:string;
ItemLevel,ParentIndex:integer;begin
table1.Open;
i:=1;
while not table1.Eof do
beginscodel:=table1.FieldByName('brno').AsString;
sname:=table1.FieldByName('BrnoName').AsString;
ItemLevel:=table1.FieldByName('ItemLevel').AsInteger;
ParentIndex:=table1.FieldByName('ParentIndex').AsInteger;
//将表中的数据按数据储存的绝对顺序AbsIndex排列依次取出
//按绝对顺序读出数据可以为本实例的完成提供许多方便
mytable[i,1]:=scode;
mytable[i,2]:=scodel;
mytable[i,3]:=sname;
i:=i+1;
//储存类别名,单位编号和类别到前面定义好的字符串数组中
if (ItemLevel=0) then
begin
treeview1.Items.AddFirst(nil,sname);
//如果是第一个节点,那么它没有父节点,其父节点是nil(空),创建第一个节点的数据
end
else
begin
pnode:=treeview1.Items.Item[ParentIndex];
treeview1.Items.AddChild(pnode,sname);
//根据记录的父节点属性,依次为所有记录创建树形图
end;
table1.Next;
end;
end;