procedure Tcpya_app.FormCreate(Sender: TObject);
begin
datamodule2.tree.close;
datamodule2.tree.sql.clear;
datamodule2.tree.sql.add('select name from plat order by name');
datamodule2.tree.Active:=true;
datamodule2.tree.Open;
while not datamodule2.tree.Eof do
begin
with tv.Items do
begin
MyTreeNode1 := Add(nil,trim(datamodule2.tree.fields[0].asstring));//增加根节点
with datamodule2 do
begin
child.close;
child.SQL.Clear;
child.SQL.Add('select comp from dalei where plat='''+Trim(datamodule2.tree.Fields[0].asstring)+''''+' order by comp');
child.Active:=true;
child.Open;
While Not child.Eof do
begin
TV.Items.AddChild(mytreenode1,trim(child.Fields[0].AsString));
child.Next;
end; en
控件treeview的使用
最新推荐文章于 2021-08-08 01:08:29 发布
这篇博客介绍了如何在Delphi中操作TreeView控件,包括在FormCreate事件中加载数据,通过SQL查询动态添加根节点和子节点,以及进行删除、编辑节点的操作。关键步骤包括关闭并清除数据,设置SQL查询,激活并打开数据,以及在添加大量数据时使用BeginUpdate和EndUpdate来提高效率。
摘要由CSDN通过智能技术生成