请问高手如何在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;
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;
解决方案 »
- RenameFile的使用
- delphi Image1.Canvas 中的图片 如何保存 到Image2.Canvas 中
- quickreport报表中的问题,急!急急急急急急!!!!!
- 一个关于Listbox.items.strings的问题(有关AddItem(String,Object))在线等待
- 人气好差呀,无聊散分。。。
- DBGrid的刷新
- 急用............谁知道DELPHI4.0的下载地址?
- nt服务程序为什么不执行?
- 我们知道TSocketConnection比较好用。但不是稳定。。不知那位高手肯与小弟一些
- 谁有加密版的sqlite3.dll,我现在用unidac开发,需要加密,但找不到这个dll
- 一个安装文件制作的问题请教
- Delphi里面怎么实现PDF文件的读取或者转换?
如上所说在formcreate事件中写代码载入数据就ok了。
2、如何在修改treeview中数据后自动刷新
在treeview的onclick事件里写代码,不过我不赞成这种做法,这样会频繁读写数据库,如果是网络上传输的话影响效率。