报表模板管理。

DataModules/ReportManagerDM.pas

@@ -208,20 +208,6 @@ begin
 end;
 
 procedure TReports.Load;
-
-  procedure ReadHead(AFile: string; var AHead: TScFile7Head);
-  var vFS: TFileStream;
-  begin
-    vFS := TFileStream.Create(AFile, fmOpenRead);
-    try
-//      vFS.Seek($00, soFromBeginning);
-      vFS.Read(AHead, SizeOf(AHead));
-    finally
-      vFS.Free;
-    end;
-  end;
-
-
 var
   vReport: TReport;
   SRec: TSearchRec;
@@ -230,6 +216,7 @@ var
   vHead7: TScFile7Head;
   vSL: TStringList;
   sProp, sURL, sIDs, sArea: string;
+  vFS: TFileStream;
 begin
   if FList.Count > 0 then
     FList.Clear;
@@ -242,7 +229,13 @@ begin
     begin
       if (SRec.Attr and faDirectory) = 0 then
       begin
-        ReadHead(FPath + SRec.Name, vHead7);
+        vFS := TFileStream.Create(FPath + SRec.Name, fmOpenRead);
+        try
+          vFS.Read(vHead7, SizeOf(vHead7));
+        finally
+          vFS.Free;
+        end;
+
         SetString(sProp, vHead7.ReportProperties, 256);
         if sProp <> '' then
         begin
@@ -304,13 +297,7 @@ begin
     end;
   end;
 
-  // 再读线上的。接口返回值为：
-  {areacate:"1"
-  catename:"结算表/子表"
-  edittime:"20170707114000"
-  itemid:"0"
-  reportid:"9"
-  reportname:"通用表3"   }
+  // 线上报表按地区获取；线下广东和全国分开装，报表不会混合，所以本地无需作区分
   {$IFDEF _mGuangDong}
      sArea := '2';   // 广东
   {$ELSE}

Dprs/CSL/Measure_Cloud.dof

@@ -115,7 +115,7 @@ AutoIncBuild=1
 MajorVer=3
 MinorVer=1
 Release=3
-Build=1133
+Build=1134
 Debug=0
 PreRelease=0
 Special=0
@@ -126,7 +126,7 @@ CodePage=936
 [Version Info Keys]
 CompanyName=珠海纵横创新软件有限公司
 FileDescription=纵横结算决算计量一体化云版
-FileVersion=3.1.3.1133
+FileVersion=3.1.3.1134
 InternalName=
 LegalCopyright=
 LegalTrademarks=

Forms/ReportManagerFrm.dfm

@@ -22,7 +22,7 @@ object ReportManagerForm: TReportManagerForm
     Top = 0
     Width = 809
     Height = 442
-    ActivePage = tsLocal
+    ActivePage = tsOnline
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -99,7 +99,7 @@ object ReportManagerForm: TReportManagerForm
         TabOrder = 0
         object cbCategory: TComboBox
           Left = 0
-          Top = 4
+          Top = 2
           Width = 273
           Height = 27
           Style = csDropDownList
@@ -117,9 +117,9 @@ object ReportManagerForm: TReportManagerForm
       end
       object zgOnline: TZJGrid
         Left = 0
-        Top = 36
+        Top = 33
         Width = 801
-        Height = 346
+        Height = 349
         Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
         OptionsEx = []
         ColCount = 7

Forms/ReportsFrm.dfm

@@ -89,7 +89,7 @@ object ReportsForm: TReportsForm
     BevelOuter = bvNone
     TabOrder = 6
     object sprReportPreview: TSplitter
-      Left = 211
+      Left = 225
       Top = 0
       Height = 425
       AutoSnap = False
@@ -97,7 +97,7 @@ object ReportsForm: TReportsForm
     object pnlReportsList: TPanel
       Left = 0
       Top = 0
-      Width = 211
+      Width = 225
       Height = 425
       Align = alLeft
       BevelOuter = bvNone
@@ -105,7 +105,7 @@ object ReportsForm: TReportsForm
       object extvReport: TExTreeView
         Left = 0
         Top = 35
-        Width = 211
+        Width = 225
         Height = 390
         Align = alClient
         Font.Charset = DEFAULT_CHARSET
@@ -138,7 +138,7 @@ object ReportsForm: TReportsForm
       object pnlTopButton: TPanel
         Left = 0
         Top = 0
-        Width = 211
+        Width = 225
         Height = 35
         Align = alTop
         BevelOuter = bvNone
@@ -146,7 +146,7 @@ object ReportsForm: TReportsForm
         object tobaTemplateManager: TToolBar
           Left = 0
           Top = 0
-          Width = 211
+          Width = 225
           Height = 35
           AutoSize = True
           ButtonHeight = 35
@@ -156,18 +156,25 @@ object ReportsForm: TReportsForm
           Images = ilstTemplateContorl
           ShowCaptions = True
           TabOrder = 0
-          object tbImportSrt: TToolButton
+          object btnRMgr: TToolButton
             Left = 0
             Top = 0
-            Hint = #25253#34920#27169#26495
-            Caption = #25253#34920#27169#26495
+            Caption = #25253#34920#31649#29702
+            ImageIndex = 7
+            OnClick = btnRMgrClick
+          end
+          object tbImportSrt: TToolButton
+            Left = 55
+            Top = 0
+            Hint = #23548#20837#27169#26495
+            Caption = #23548#20837#27169#26495
             ImageIndex = 5
             ParentShowHint = False
             ShowHint = True
             OnClick = tbImportSrtClick
           end
           object tbExportSrt: TToolButton
-            Left = 55
+            Left = 110
             Top = 0
             Hint = #23548#20986#25253#34920#27169#26495
             Caption = #23548#20986#27169#26495
@@ -177,7 +184,7 @@ object ReportsForm: TReportsForm
             OnClick = tbExportSrtClick
           end
           object tbDeleteSrt: TToolButton
-            Left = 110
+            Left = 165
             Top = 0
             Hint = #21024#38500#25253#34920#27169#26495
             Caption = #21024#38500#27169#26495
@@ -190,9 +197,9 @@ object ReportsForm: TReportsForm
       end
     end
     object sbReportsPreview: TScrollBox
-      Left = 214
+      Left = 228
       Top = 0
-      Width = 893
+      Width = 879
       Height = 425
       HorzScrollBar.Increment = 48
       HorzScrollBar.Tracking = True
@@ -2503,7 +2510,7 @@ object ReportsForm: TReportsForm
     Left = 184
     Top = 76
     Bitmap = {
-      494C010107000900040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
+      494C010108000900040010001000FFFFFFFFFF00FFFFFFFFFFFFFFFF424D3600
       0000000000003600000028000000400000003000000001002000000000000030
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
@@ -2647,113 +2654,113 @@ object ReportsForm: TReportsForm
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00B57B080000000000B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
-      FF00FFFFFF00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000D6A57300FFF7EF00F7F7
+      FF00FFFFFF00FFFFFF00B57B080000000000000000000000000000000000C070
+      40FF0000000000000000B06840FF0000000000000000A06030FF000000000000
+      0000A05830FF00000000000000000000000000000000D6A57300FFF7EF00F7F7
       EF00F7EFE700F7EFE700F7E7DE00F7E7DE005A52B5002121C6003939E7002121
       C6002121C6003942E7002121CE005252BD00B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BD
       A500FFFFFF00FFFFFF00B57B080000000000B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BD
-      A500FFFFFF00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000DEA57B00FFF7EF00EFD6
+      A500FFFFFF00FFFFFF00B57B080000000000000000000000000000000000C078
+      50FF0000000000000000B06840FF0000000000000000A06030FF000000000000
+      0000A05830FF00000000000000000000000000000000DEA57B00FFF7EF00EFD6
       BD00FFFFFF00EFD6BD00FFFFFF00FFFFFF00FFFFFF00EFC6AD002121CE004A4A
       EF004A4AEF002929D600C68C5A0000000000B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BDA500B5CED600B5CED600D6BD
       A500FFFFFF00FFFFFF00B57B080000000000B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BDA500FFFFFF00FFFFFF00D6BD
-      A500FFFFFF00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000DEAD7B00FFF7EF00EFD6
+      A500FFFFFF00FFFFFF00B57B08000000000000000000C08050FFC08050FFC078
+      50FFC07850FFC07040FFB07040FFB06840FFB06830FFB06030FFB06030FFA058
+      30FFA05830FFA05830FFA05830FF0000000000000000DEAD7B00FFF7EF00EFD6
       BD00EFD6BD00EFD6BD00EFD6BD00EFD6BD00EFD6BD00EFCEB5003939E7005A5A
       FF006363FF004242E700C68C5A0000000000B57B0800FFFFFF00D6BD9C00D6BD
       9C00D6BD9C00DEBDA500D6BD9C00D6BD9C008C9C8C00006B8C00006B8C008C9C
       8C00D6BD9C00FFFFFF00B57B080000000000B57B0800FFFFFF00D6BD9C00D6BD
       9C00D6BD9C00DEBDA500D6BD9C00D6BD9C00108C9400006B8400006B8400108C
-      9400D6BD9C00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000DEAD8400FFF7EF00EFCE
+      9400D6BD9C00FFFFFF00B57B080000000000000000000000000000000000C080
+      50FF0000000000000000C07040FF0000000000000000B06840FF000000000000
+      0000A06030FF00000000000000000000000000000000DEAD8400FFF7EF00EFCE
       B500FFFFFF00EFD6BD00FFFFFF00FFFFFF004A4ADE004A4AF7006B6BFF004242
       EF003939E7007373FF005252F7004242D600B57B0800FFFFFF00FFFFF700FFFF
       F700FFFFF700D6BD9C00FFFFFF00ADCED600006B8400009CCE00009CCE00006B
       8400ADCED600FFFFFF00B57B080000000000B57B0800FFFFFF00FFFFF700FFFF
       F700FFFFF700D6BD9C00FFFFFF00FFFFFF00006B840084E7FF0039D6FF00006B
-      8400FFFFF700FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000E7AD8400FFF7F700EFCE
+      8400FFFFF700FFFFFF00B57B080000000000000000000000000000000000C080
+      50FF0000000000000000C07840FF0000000000000000B06840FF000000000000
+      0000B06030FF00000000000000000000000000000000E7AD8400FFF7F700EFCE
       B500EFCEB500EFCEB500EFCEB500EFCEB5001010CE00A5A5E7005252DE00EFCE
       B500EFCEAD005252DE00A5A5E7001818CE00B57B0800FFFFFF00FFFFEF00FFFF
       EF00FFFFF700D6BD9400ADCECE00006B8400009CC60000B5EF0000B5EF00009C
       C600006B8400B5CED600B57B080000000000B57B0800FFFFFF00FFFFEF00FFFF
       EF00FFFFF700D6BD9400FFFFF700FFFFF7000063840063DEFF0000A5D600006B
-      8400FFFFEF00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000E7B58C00FFF7F700EFCE
+      8400FFFFEF00FFFFFF00B57B08000000000000000000D09060FFD08860FFD088
+      60FFC08050FFC08050FFC07850FFC07850FFC07040FFB06840FFB06840FFB068
+      30FFB06030FFB06030FFA05830FF0000000000000000E7B58C00FFF7F700EFCE
       AD00FFFFFF00EFCEB500FFFFFF00FFFFFF00E7E7FF002121CE005252DE00FFFF
       FF00FFFFFF00635AD6002118C600D6D6F700B57B0800FFFFFF00D6B58C00D6B5
       8C00D6BD9400DEBD9400006B8C0000C6FF0042D6FF0000B5E70000B5E70042D6
       FF0000C6FF00006B8C00B57B080000000000B57B0800FFFFFF00D6B58C00D6B5
       8C00D6BD9400DEBD9400D6BD9400D6BD9400006384004AD6FF0000A5D600006B
-      8400D6B58C00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000E7B58C00FFF7F700EFC6
+      8400D6B58C00FFFFFF00B57B080000000000000000000000000000000000D088
+      60FF0000000000000000C08050FF0000000000000000C07040FF000000000000
+      0000B06840FF00000000000000000000000000000000E7B58C00FFF7F700EFC6
       AD00EFC6AD00EFC6AD00EFC6AD00EFCEAD00EFCEB500EFC6AD00EFCEB500EFCE
       B500EFCEB500F7E7DE00CE8C5A0000000000B57B0800FFFFFF00FFF7DE00FFFF
       E700FFFFE700006B84001094A500006384000094C60000ADE70000ADE7000094
       C600006B84001094AD00006B840000000000B57B0800FFFFFF00FFF7DE00FFFF
       E700FFFFE700D6B58C00FFFFE700FFFFE7000063840039D6FF0000A5DE00006B
-      8400FFFFE700FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000E7B59400FFF7F700EFC6
+      8400FFFFE700FFFFFF00B57B080000000000000000000000000000000000D090
+      60FF0000000000000000C08050FF0000000000000000C07850FF000000000000
+      0000B06840FF00000000000000000000000000000000E7B59400FFF7F700EFC6
       A500FFFFFF00EFC6AD00FFFFFF00FFFFFF00FFFFFF00EFC6AD00FFFFFF00FFFF
       FF00FFFFFF00F7F7EF00CE8C5A0000000000B57B0800FFFFFF00FFF7D600FFF7
       DE00FFFFDE00D6B58C00FFFFDE00FFFFDE000063840000BDF70000B5E7000063
       8400FFFFDE00FFFFFF00B57B080000000000B57B0800FFFFFF00FFF7D600FFF7
       DE00FFFFDE00D6B58C00FFFFDE00FFFFDE000063840000BDFF0000ADE700006B
-      8400FFFFDE00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000EFBD9C00FFF7F700EFC6
+      8400FFFFDE00FFFFFF00B57B08000000000000000000E09870FFE09870FFD090
+      60FFD09060FFD08860FFD08860FFC08050FFC08050FFC07850FFC07840FFB070
+      40FFB07040FFB06840FFB06840FF0000000000000000EFBD9C00FFF7F700EFC6
       A500EFC6A500EFC6A500EFC6A500EFC6A500EFC6A500EFC6A500EFC6A500EFC6
       A500EFC6A500FFF7F700CE94630000000000B57B0800FFFFFF00DEB57B00E7B5
       7B00E7B58400DEB58400DEB58400DEB584000063840000BDFF0000ADE700006B
       8400DEB57B00FFFFFF00B57B080000000000B57B0800FFFFFF00DEB57B00E7B5
       7B00E7B58400DEB58400DEB58400DEB584000063840000BDF70000B5E7000063
-      8400DEB57B00FFFFFF00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000EFBD9C00FFF7F700FFFF
+      8400DEB57B00FFFFFF00B57B080000000000000000000000000000000000E098
+      60FF0000000000000000D08860FF0000000000000000C08050FF000000000000
+      0000C07040FF00000000000000000000000000000000EFBD9C00FFF7F700FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFF7F700D6946B0000000000B57B0800FFFFFF0042C6FF004AC6
       FF0042C6FF00E7B57B0042C6FF0042C6FF000063840039D6FF0000A5DE00006B
       840042C6FF00FFFFFF00B57B080000000000B57B0800FFFFFF0042C6FF004AC6
       FF0042C6FF00006B840000849C00006384000094C60000ADE70000ADE7000094
-      C600006B84001094AD00006B8400000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000EFBD9C00FFF7F7009CD6
+      C600006B84001094AD00006B840000000000000000000000000000000000E098
+      70FF0000000000000000D09060FF0000000000000000C08050FF000000000000
+      0000C07850FF00000000000000000000000000000000EFBD9C00FFF7F7009CD6
       A5009CD6A50094D69C0094CE9C008CCE940084CE8C0084C68C007BC684007BC6
       840073BD7B00FFF7F700D69C6B0000000000B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00006384004AD6FF0000A5D600006B
       8400FFFFFF00FFFFFF00B57B080000000000B57B0800FFFFFF00FFFFFF00FFFF
       FF00FFFFFF00FFFFFF00006B8C0000C6FF0042D6FF0000B5E70000B5E70042D6
-      FF0000C6FF00006B8C00B57B0800000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000EFC6AD00FFF7F700FFF7
+      FF0000C6FF00006B8C00B57B08000000000000000000E09870FFE09870FFE098
+      70FFE09870FFE09860FFD09060FFD09060FFD08860FFD08860FFD08050FFC080
+      50FFC07850FFC07850FFB07040FF0000000000000000EFC6AD00FFF7F700FFF7
       F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7F700FFF7
       F700FFF7F700FFF7F700DEA5730000000000CE9C4A00B57B0800B57B0800B57B
       0000B57B0800B57B0800B57B0800B57B08000063840063DEFF0000A5D600006B
       8400B57B0800B57B0800C694390000000000CE9C4A00B57B0800B57B0800B57B
       0000B57B0800B57B0800735A1800006B8400009CC60000B5EF0000B5EF00009C
-      C600006B840073631800C6943900000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000000000000000F7E7D600F7C6AD00EFC6
+      C600006B840073631800C694390000000000000000000000000000000000E098
+      70FF0000000000000000E09060FF0000000000000000D08860FF000000000000
+      0000C08050FF00000000000000000000000000000000F7E7D600F7C6AD00EFC6
       9C00EFBD9C00EFBD9C00EFBD9400E7B59400E7B59400E7B58C00E7AD8C00E7AD
       8400DEAD8400DEA57B00E7B59400000000000000000000000000000000000000
       000000000000000000000000000000000000006B840084E7FF0039D6FF00006B
       8400000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000A5C6CE00006B8400009CCE00009CCE00006B
-      8400A5C6CE000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
-      0000000000000000000000000000000000000000000000000000000000000000
+      8400A5C6CE00000000000000000000000000000000000000000000000000E098
+      70FF0000000000000000E09870FF0000000000000000D09060FF000000000000
+      0000D08050FF0000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000001894A500006B8400006B84001894
@@ -2895,16 +2902,15 @@ object ReportsForm: TReportsForm
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
       0000000000000000000000000000000000000000000000000000000000000000
-      00000000000000000000000000000000FF000001000100008000000100010000
-      8000000100010000800100010001000080010001000100008000000100010000
-      8000000100010000800000010001000080010001000100008001000100010000
-      8001000100010000800100010001000080010001000100008001000100010000
-      8001FF0FFE070000FFFFFF0FFF0F0000FFCFFFC7FFC1FFC18001800180008000
+      00000000000000000000000000000000FF0000010001FFFF800000010001EDB7
+      800000010001EDB78001000100018001800100010001EDB7800000010001EDB7
+      8000000100018001800000010001EDB7800100010001EDB78001000100018001
+      800100010001EDB7800100010001EDB78001000100018001800100010001EDB7
+      8001FF0FFE07EDB7FFFFFF0FFF0FFFFFFFCFFFC7FFC1FFC18001800180008000
       8001800180008000800180008000800080008000800080008001800080008000
       8001800180018001800180018001800180018001800180018001800180018001
       8001800180018001800180018001800180018001800180018001800180018001
-      8001800180018001FFFFFFFFFFFFFFFF00000000000000000000000000000000
-      000000000000}
+      8001800180018001FFFFFFFFFFFFFFFF}
   end
   object BatchPrintXml: TPrintComXML
     PreviewRows = 1

Forms/ReportsFrm.pas

@@ -61,6 +61,7 @@ type
     dxcciExcelMode: TdxBarControlContainerItem;
     pnlReports: TPanel;
     BatchPrintXml: TPrintComXML;
+    btnRMgr: TToolButton;
     procedure PreviewComXMLGetDataConnection(var ADOCon: TADOConnection);
     procedure xlbRealSizeClick(Sender: TObject);
     procedure xlbOnePageClick(Sender: TObject);
@@ -91,6 +92,7 @@ type
     procedure chkFillZeroClick(Sender: TObject);
     procedure PreviewComXMLGetDatasetEvent(DatasetInfo: PDatasetInfoRec;
       var ADataset: TDataSet);
+    procedure btnRMgrClick(Sender: TObject);
   private
     FProjectData: TProjectData;
     FCurPage: Integer;
@@ -670,7 +672,6 @@ begin
     Result := AddClassNode(nil, ANode.ClassNum + '.' + ANode.ClassName);
 end;
 
-{ 启用报表模板管理器，报表导入功能取消。
 procedure TReportsForm.tbImportSrtClick(Sender: TObject);
 
   procedure ImportReportTemplate(const AFileName: string);
@@ -711,22 +712,8 @@ begin
   finally
     sgsFiles.Free;
   end;
-end; }
-
-procedure TReportsForm.tbImportSrtClick(Sender: TObject);
-var vRDForm: TReportManagerForm;
-begin
-  Screen.Cursor := crHourGlass;
-  vRDForm := TReportManagerForm.Create(nil);
-  try
-    vRDForm.ShowModal;
-  finally
-    vRDForm.Free;
-    Screen.Cursor := crDefault;
-  end;
 end;
 
-
 procedure TReportsForm.tbDeleteSrtClick(Sender: TObject);
 var
   vTemplateNode: TTemplateNode;
@@ -1333,6 +1320,16 @@ begin
   rdbtnA3.Checked := SameText(rdbtnA3.Caption, ReportConfig.PageSize);
   rdbtnA4.Checked := SameText(rdbtnA4.Caption, ReportConfig.PageSize);
   SetPrinterPageSize(ReportConfig.PageSize);
+  if G_IsCloud then
+  begin
+    btnRMgr.Visible := True;
+    tbImportSrt.Visible := False;
+  end
+  else
+  begin
+    btnRMgr.Visible := False;
+    tbImportSrt.Visible := True;
+  end;
 end;
 
 procedure TReportsForm.LoadExcelBorder(var Border: TColumnLineRec);
@@ -1571,4 +1568,18 @@ begin
   inherited;
 end;
 
+//  启用报表模板管理器，报表导入功能取消。
+procedure TReportsForm.btnRMgrClick(Sender: TObject);
+var vRDForm: TReportManagerForm;
+begin
+  Screen.Cursor := crHourGlass;
+  vRDForm := TReportManagerForm.Create(nil);
+  try
+    vRDForm.ShowModal;
+  finally
+    vRDForm.Free;
+    Screen.Cursor := crDefault;
+  end;
+end;
+
 end.