zoukankan      html  css  js  c++  java
  • 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;

  • 相关阅读:
    第221题:最大正方形
    第238题:除自身以外数组的乘积
    简单易懂的拓扑排序
    第207题 课程表
    第198题:打家劫舍
    第四章 初始化与清理
    【笔记】jquery判断两个日期之间相差多少天
    【笔记】spring定时器时间配置实例
    【笔记】jquery加减乘除及科学计算法处理
    string 日期相加和相减
  • 原文地址:https://www.cnblogs.com/fengju/p/6173868.html
Copyright © 2011-2022 走看看