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

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