delphi tree 从一个表复制到另一个表

本文介绍了一种使用Delphi实现的树形结构数据递归复制方法,具体展示了如何通过递归过程复制源表中的树形数据结构到目标表,并保持原有的ID与PARENT关系。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

由于 TREE从源表复制到目标表的ID号与PARENT会变化,故不能单纯的复制数据,还要将ID与PARENT的结构关系复制到目标表。

因此我们用递归操作。

由于 myquery 的数据会变动,我们要实时创建myquery 。

下面是 delphi tree 从一个表复制到另一个表 的递归源码:

Procedure Tfrm_SysDepasManager.CopyTree(socParent, desParent: integer); //树递归复制过程
Var
myquery: TADOQuery;
mysoc, mydes: integer;
Begin
myquery := Tadoquery.Create(Nil);
Try
myquery.Connection := frmdata.ADOConnection1;
myquery.Active := false;
myquery.SQL.Clear;
myquery.SQL.Add('select * from LCConstDepa where parent=' + inttostr(socParent));
myquery.Active := true;
//插记录


While Not myquery.Eof Do
Begin
mysoc := myquery.FieldByName('ID').AsInteger;
ReDataSet2.Append;
ReDataSet2.FieldByName('shlid').AsInteger := Syspublic.LoginSchoolID;
ReDataSet2.FieldByName('name').AsString := myquery.FieldByName('name').AsString;
ReDataSet2.FieldByName('pinyin').AsString := myquery.FieldByName('pinyin').AsString;
ReDataSet2.FieldByName('parent').AsInteger := desParent;
ReDataSet2.Post;
mydes := ReDataSet2.FieldByName('ID').AsInteger;

CopyTree(mysoc, mydes);
myquery.Next;
End;
Finally
myquery.Free;
End;
End;

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值