报表内存表，新增截止日期，格式化至年月字段

DataModules/ReportMemoryDm/rmGridHeaderDm.dfm

@@ -66,6 +66,11 @@ object rmGridHeaderData: TrmGridHeaderData
         Name = 'CurTime'
         DataType = ftWideString
         Size = 10
+      end
+      item
+        Name = 'DeadlineFormat'
+        DataType = ftWideString
+        Size = 20
       end>
     IndexDefs = <>
     Params = <>
@@ -73,7 +78,7 @@ object rmGridHeaderData: TrmGridHeaderData
     Left = 56
     Top = 40
     Data = {
-      680100009619E0BD01000000180000000C00000000000300000068010B50726F
+      8B0100009619E0BD01000000180000000D0000000000030000008B010B50726F
       6A6563744E616D6501004A000000010005574944544802000200640008446561
       6C436F646501004A000000010005574944544802000200280005434E616D6501
       004A000000010005574944544802000200640005534E616D6501004A00000001
@@ -84,7 +89,8 @@ object rmGridHeaderData: TrmGridHeaderData
       02004A000000010005574944544802000200FE01084465616C5479706501004A
       000000010005574944544802000200640008506861736553747201004A000000
       01000557494454480200020014000743757254696D6501004A00000001000557
-      494454480200020014000000}
+      494454480200020014000E446561646C696E65466F726D617401004A00000001
+      000557494454480200020028000000}
     object cdsGridHeaderProjectName: TWideStringField
       FieldName = 'ProjectName'
       Size = 50
@@ -131,5 +137,8 @@ object rmGridHeaderData: TrmGridHeaderData
       FieldName = 'CurTime'
       Size = 10
     end
+    object cdsGridHeaderDeadlineFormat: TWideStringField
+      FieldName = 'DeadlineFormat'
+    end
   end
 end

DataModules/ReportMemoryDm/rmGridHeaderDm.pas

@@ -20,6 +20,7 @@ type
     cdsGridHeaderDealType: TWideStringField;
     cdsGridHeaderPhaseStr: TWideStringField;
     cdsGridHeaderCurTime: TWideStringField;
+    cdsGridHeaderDeadlineFormat: TWideStringField;
   private
   public
     function AssginData(AProjectData: TProjectData): TDataSet;
@@ -51,6 +52,8 @@ begin
   cdsGridHeaderDealType.AsString := AProjectData.Projproperties.DealType;
   cdsGridHeaderPhaseStr.AsString := Format('%.2d', [AProjectData.PhaseIndex]);
   cdsGridHeaderCurTime.AsString := FormatDateTime('yyyymm', Now);
+  cdsGridHeaderDeadlineFormat.AsString := FormatDateTime('yyyymm',
+    StrToDateDef(AProjectData.ProjProperties.Deadline, Now));
   cdsGridHeader.Post;
   Result := cdsGridHeader;
 end;