内存表表头，新增当前年月的format字段

DataModules/ReportMemoryDm/rmGridHeaderDm.dfm

@@ -61,6 +61,11 @@ object rmGridHeaderData: TrmGridHeaderData
         Name = 'PhaseStr'
         DataType = ftWideString
         Size = 10
+      end
+      item
+        Name = 'CurTime'
+        DataType = ftWideString
+        Size = 10
       end>
     IndexDefs = <>
     Params = <>
@@ -68,7 +73,7 @@ object rmGridHeaderData: TrmGridHeaderData
     Left = 56
     Top = 40
     Data = {
-      4C0100009619E0BD01000000180000000B0000000000030000004C010B50726F
+      680100009619E0BD01000000180000000C00000000000300000068010B50726F
       6A6563744E616D6501004A000000010005574944544802000200640008446561
       6C436F646501004A000000010005574944544802000200280005434E616D6501
       004A000000010005574944544802000200640005534E616D6501004A00000001
@@ -78,7 +83,8 @@ object rmGridHeaderData: TrmGridHeaderData
       655F3201004A000000010005574944544802000200640008446561646C696E65
       02004A000000010005574944544802000200FE01084465616C5479706501004A
       000000010005574944544802000200640008506861736553747201004A000000
-      01000557494454480200020014000000}
+      01000557494454480200020014000743757254696D6501004A00000001000557
+      494454480200020014000000}
     object cdsGridHeaderProjectName: TWideStringField
       FieldName = 'ProjectName'
       Size = 50
@@ -121,5 +127,9 @@ object rmGridHeaderData: TrmGridHeaderData
       FieldName = 'PhaseStr'
       Size = 10
     end
+    object cdsGridHeaderCurTime: TWideStringField
+      FieldName = 'CurTime'
+      Size = 10
+    end
   end
 end

DataModules/ReportMemoryDm/rmGridHeaderDm.pas

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

Units/ReportManager.pas

@@ -780,8 +780,8 @@ begin
     59: Result := FrmWuJiuZqzfGatherData.AssignData(AProjectData);
   end;
   // For Inner Test
-  if _IsDebugView then
-    ShowTestForm(Result);
+  //if _IsDebugView then
+    //ShowTestForm(Result);
 end;
 
 function TMemoryReportManager.GetSqlResultDataSet(const ASql: string;