delphitree从一个表复制到另一个表计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:26:56
来源 100Test.Com百考试题网

　　由于 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(0select * 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.