哈白定制表支表4-1，添加序号列

DataModules/ReportMemoryDm/rmHaBaiCustomizedDm.dfm

@@ -257,21 +257,19 @@ object rmHaBaiCustomizedData: TrmHaBaiCustomizedData
       item
         Name = 'EndPercent'
         DataType = ftFloat
-      end>
-    IndexDefs = <
-      item
-        Name = 'DEFAULT_ORDER'
       end
       item
-        Name = 'CHANGEINDEX'
+        Name = 'SerialNo'
+        DataType = ftInteger
       end>
+    IndexDefs = <>
     IndexFieldNames = 'ProjectID;ChapterID;InnerPartID;IndexCode'
     Params = <>
     StoreDefs = True
     Left = 264
     Top = 48
     Data = {
-      2C0200009619E0BD0100000018000000150000000000030000002C020950726F
+      270200009619E0BD01000000180000001600000000000300000027020950726F
       6A656374494404000100000000000B50726F6A6563744E616D6502004A000000
       0100055749445448020002009001094368617074657249440400010000000000
       0B496E6E6572506172744944040001000000000009496E646578436F64650100
@@ -287,8 +285,8 @@ object rmHaBaiCustomizedData: TrmHaBaiCustomizedData
       476174686572546F74616C5072696365080004000000000013505F456E644761
       746865725175616E74697479080004000000000015505F456E64476174686572
       546F74616C507269636508000400000000000A43757250657263656E74080004
-      00000000000A456E6450657263656E74080004000000000001000D4445464155
-      4C545F4F524445520200820000000000}
+      00000000000A456E6450657263656E7408000400000000000853657269616C4E
+      6F04000100000000000000}
     object cdsCustomProjProjectID: TIntegerField
       FieldName = 'ProjectID'
     end
@@ -356,5 +354,8 @@ object rmHaBaiCustomizedData: TrmHaBaiCustomizedData
     object cdsCustomProjEndPercent: TFloatField
       FieldName = 'EndPercent'
     end
+    object cdsCustomProjSerialNo: TIntegerField
+      FieldName = 'SerialNo'
+    end
   end
 end

DataModules/ReportMemoryDm/rmHaBaiCustomizedDm.pas

@@ -269,6 +269,7 @@ type
     cdsCustomProjP_EndGatherTotalPrice: TFloatField;
     cdsCustomProjCurPercent: TFloatField;
     cdsCustomProjEndPercent: TFloatField;
+    cdsCustomProjSerialNo: TIntegerField;
   private
     FhbGatherType: THaBaiGatherType;
     FProjectData: TProjectData;
@@ -691,7 +692,7 @@ end;
 
 procedure TrmHaBaiCustomizedData.WriteReport4_1;
 var
-  iProject, iChapter: Integer;
+  iProject, iChapter, iSerialNo: Integer;
   sProjectName: string;
 
   procedure WriteGclNodeData(AGclNode: TGclNode; AChapterID: Integer);
@@ -718,7 +719,9 @@ var
     cdsCustomProjP_EndGatherTotalPrice.AsFloat := AGclNode.P_EndGatherTotalPrice[iProject];
     cdsCustomProjCurPercent.AsFloat := AGclNode.CurPercent;
     cdsCustomProjEndPercent.AsFloat := AGclNode.EndPercent;
+    cdsCustomProjSerialNo.AsInteger := iSerialNo;
     cdsCustomProj.Post;
+    Inc(iSerialNo);
   end;
 
   procedure WriteGclChapterData(AGclChapter: TGclChapter);
@@ -749,12 +752,15 @@ var
     cdsCustomProjP_EndGatherTotalPrice.AsFloat := AGclChapter.P_EndGatherTotalPrice[iProject];
     cdsCustomProjCurPercent.AsFloat := AGclChapter.CurPercent;
     cdsCustomProjEndPercent.AsFloat := AGclChapter.EndPercent;
+    cdsCustomProjSerialNo.AsInteger := iSerialNo;
     cdsCustomProj.Post;
+    Inc(iSerialNo);
   end;
 
 begin
   for iProject := 0 to FGclControl.ProjectCount - 1 do
   begin
+    iSerialNo := 1;
     sProjectName := FGclControl.ProjectName[iProject];
     for iChapter := 0 to FGclControl.GclChapterCount - 1 do
       WriteGclChapterData(FGclControl.GclChapter[iChapter]);