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;