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

 

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;