delphi tree 从一个表复制到另一个表-CSDN博客

由于 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;

转载于:https://www.cnblogs.com/fengju/archive/2009/06/18/6173868.html