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.

相关文章


计算机等级考试2级公共基础120题计算机等级考试
计算机等级考试公共基础知识总结计算机等级考试
等级考试公共基础考点分析之数据结构与算法计算机等级考试
二级公共基础总结第四章数据库系统计算机等级考试
delphitree从一个表复制到另一个表计算机等级考试
delphi数据库引擎管理器计算机等级考试
计算机二级DELPHI辅导:打开与编辑数据表计算机等级考试
使用delphi建立数据表结构计算机等级考试
计算机二级DELPHI辅导:在delphi中设置工作目录计算机等级考试
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛