程序師世界是廣大編程愛好者互助、分享、學習的平台，程序師世界有你更精彩！
設為首頁 加入收藏
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> tree從一個表復制到另一個表

tree從一個表復制到另一個表

編輯：Delphi
由於 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;
  1. 上一頁:
  2. 下一頁:
Delphi
再學 GDI+[13]: DrawBezier - 繪制貝塞爾線

本例效果圖:　　代碼文件:unit Unit1;inter
[升級] 升級到 Delphi 10.2 Tokyo 筆記，tokyo

[升級] 升級到 Delphi 10.2 Tokyo 筆記，
關於動態代理

本來想上周末沒能用Delphi實現動態代理就算了，可是這幾
WinAPI: InvertRgn - 區域顏色取反

本例效果圖:　　代碼文件:unit　Unit1;　　int
再學 GDI+[39]: 文本輸出 - 文本樣式

本例效果圖:　　代碼文件:unit Unit1;inter
XE6移動開發環境搭建之IOS篇（7）：在Mac OSX 10.8中安裝Xcode4.6.3（有圖有真相），xe6xcode4.6.3

XE6移動開發環境搭建之IOS篇（7）：在Mac OSX 1
相關文章
閱讀排行榜
第十五章-數據訪問部件的應用及編程（二）(3) 第十七章-SQL編程（一）(2) 剪貼板的流存儲 delphi表格上所有元件載入後的事件 再學GDI+[98]: TGPImage(18) - 獲取 GDI+ 圖像格式對應的 GUID Spcomm串口控件的例程 在Delphi中巧妙利用RES文件 用Delphi編寫安裝程序(1) 隨便找個網站獲取格林威治時間, 並轉換到北京時間 用Delphi開發DLL來代替8581協議控制和采集華為PSM—A10電源(二) Delphi使用兩種不同方法獲取系統端口信息
熱門圖文
C++實現全排列 zoj 3327 Friend Number 模擬題 C# 系統應用之窗體最小化至任務欄及常用操作 Repeater控件動態變更列(Header,Item和Foot)信息實現思路 C# 委托(跨窗體操作控件)實例流程講解 漫談Java實例化類，漫談java實例 BZOJ 1227 [SDOI2009] 虔誠的墓主人 離線+樹狀數組+離散化 Zend Framework入門之環境配置及第一個Hello World示例(附demo源碼下載)
欄目導航
匯編語言DelphiGroovyWebSphereRationalPythonRuby編程解疑編程綜合問答更多關於編程編程問題解答
Copyright © 程式師世界 All Rights Reserved