现在的位置: 首页 > 综合 > 正文

ClientDataSet通过UpdateStatus方法配合Delta属性查找已删除的记录

2012年10月06日 ⁄ 综合 ⁄ 共 2520字 ⁄ 字号 小 中 大 ⁄ 评论关闭
 

  1. procedure TFrmTempSaleContract.Button1Click(Sender: TObject);
  2. var
  3.   TestXML:TNativeXml;
  4.   RootNode,MainNode,LineNode,TempNode:TXmlNode;
  5. begin
  6.   inherited;
  7.   try
  8.   TestXML:=TNativeXml.CreateName('Test');
  9.   TestXML.EncodingString:='GB2312';
  10.   RootNode:=TestXML.Root;
  11.   if CDSMain.ChangeCount>0 then
  12.     TestCdsMain.Data:=CDSMain.Delta
  13.   else
  14.     TestCdsMain.Data:=CDSMain.Data;
  15.   if CDSLine.ChangeCount>0 then
  16.     TestCdsLine.Data:=CDSLine.Delta
  17.   else
  18.     TestCdsLine.Data:=CDSLine.Data;
  20.   TestCdsMain.First;
  21.   while not TestCdsMain.Eof do
  22.   begin
  23.     If TestCdsMain.UpdateStatus<>usUnmodified then
  24.     begin
  25.       if TestCdsMain.UpdateStatus=usInserted then
  26.       begin
  27.         MainNode:=RootNode.NodeNew('Main');
  28.         MainNode.AttributeAdd('Job','New');
  29.         TestCdsLine.First;
  30.         while not TestCdsLine.Eof do
  31.         begin
  32.           LineNode:=MainNode.NodeNew('Line1');
  33.           LineNode.AttributeAdd('Job','New');
  34.           TestCdsLine.Next;
  35.         end;
  36.       end;
  37.       if TestCdsMain.UpdateStatus=usModified then
  38.       begin
  39.         MainNode:=RootNode.NodeNew('Main');
  40.         MainNode.AttributeAdd('Job','Update');
  41.         TestCdsLine.First;
  42.         while not TestCdsLine.Eof do
  43.         begin
  44.           LineNode:=MainNode.NodeNew('Line1');
  45.           LineNode.AttributeAdd('Job','Update');
  46.           TestCdsLine.Next;
  47.         end;
  48.       end;
  49.       if TestCdsMain.UpdateStatus=usDeleted then
  50.       begin
  51.         MainNode:=RootNode.NodeNew('Main');
  52.         MainNode.AttributeAdd('Job','Remove');
  53.         TestCdsLine.First;
  54.         while not TestCdsLine.Eof do
  55.         begin
  56.           LineNode:=MainNode.NodeNew('Line1');
  57.           LineNode.AttributeAdd('Job','Remove');
  58.           TestCdsLine.Next;
  59.         end;
  60.       end;
  61.     end
  62.     else
  63.     begin
  64.       MainNode:=RootNode.NodeNew('Main');
  65.       MainNode.AttributeAdd('Job','None');
  66.       TestCdsLine.First;
  67.       while not TestCdsLine.Eof do
  68.       begin
  69.         if TestCdsLine.UpdateStatus<>usUnmodified then
  70.         begin
  71.           LineNode:=MainNode.NodeNew('Line1');
  72.           if TestCdsLine.UpdateStatus=usModified then
  73.           begin
  74.             LineNode.AttributeAdd('Job','Update');  
  75.           end;
  76.           if TestCdsLine.UpdateStatus=usInserted then
  77.           begin
  78.             LineNode.AttributeAdd('Job','New');
  79.           end;
  80.           if TestCdsLine.UpdateStatus=usDeleted then
  81.           begin
  82.             LineNode.AttributeAdd('Job','Remove');
  83.           end;
  84.         end;
  85.         TestCdsLine.Next;
  86.       end;
  87.     end;
  88.     TestCdsMain.Next;
  89.   end;
  90.   ShowMessage(TestXML.WriteToString);
  91.   finally
  92.     TestXML.Free;
  93.   end;
  94.   
  95. end;
返回
【上篇】
【下篇】

作者:

抱歉!评论已关闭.

返回首页

Copyright © 2013-2018 学步园  保留所有权利.
软文销售 QQ客服：2265327166 点击这里给我发消息（其他合作也可洽谈）
必威体育
必威电竞