报表管理模板使用线上服务器。

DataModules/ReportManagerDM.pas

@@ -138,6 +138,9 @@ implementation
   uses Variants, ScFileArchiverConsts, ArchiverRoot, PHPWebDm, CslJson,
     XMLDoc, XMLIntf, Windows, Math, Forms;
 
+const G_ReportDNS = 'http://vc.6jlzf.cn';   // ×îºó²»ÄÜ´ø"/"
+
+
 var
   Reports: TReports;
 
@@ -271,7 +274,7 @@ begin
       sIDs := sIDs + ',' + IntToStr(TRePort(FList[i]).ID);
 
       Delete(sIDs, 1, 1);
-      sURL := 'http://jlzfbb.com/api/report/update/get';
+      sURL := G_ReportDNS + '/api/report/update/get';
 
       case PHPWeb.Search(sURL, ['idlist'], [sIDs], VersArr) of
         1:
@@ -303,7 +306,7 @@ begin
   {$ELSE}
      sArea := '1';   // È«¹ú
   {$ENDIF}
-  PHPWeb.Search('http://jlzfbb.com/api/getreportmsg', ['areacate'], [sArea], FOnlineAry);
+  PHPWeb.Search(G_ReportDNS + '/api/getreportmsg', ['areacate'], [sArea], FOnlineAry);
   if Length(FOnlineAry) > 0 then
   begin
     cdsOnline.DisableControls;
@@ -430,7 +433,7 @@ var vArr: array of string;
 begin
   Result := False;
   vArr := VarArrayOf(['downloadurl']);
-  sURL := Format('http://jlzfbb.com/api/downloadurl/%d/%s', [FID, AVer]);
+  sURL := Format(G_ReportDNS + '/api/downloadurl/%d/%s', [FID, AVer]);
   PHPWeb.Search(sURL, vArr);
   sLocalFile := Path + CheckExt(FFileName, '.xml');
 
@@ -670,7 +673,7 @@ procedure TReport.GetHistoryVer;
 var vArr: TOVArr;
   sURL, sLocalFile: string;
 begin
-  sURL := Format('http://jlzfbb.com/api/getversionmsg/%d', [FID]);
+  sURL := Format('%s/api/getversionmsg/%d', [G_ReportDNS, FID]);
   PHPWeb.Search(sURL, vArr);
 
   try
@@ -706,7 +709,7 @@ var FOnlineAry: TOVArr;
 begin
   Result := False;
 
-  PHPWeb.Search('http://jlzfbb.com/api/getreportmsg', ['itemcode'], [ACode], FOnlineAry);
+  PHPWeb.Search(G_ReportDNS + '/api/getreportmsg', ['itemcode'], [ACode], FOnlineAry);
   if Length(FOnlineAry) > 0 then
   begin
     cdsCustom.DisableControls;

Dprs/CSL/Measure_Cloud.dof

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

Forms/ReportManagerFrm.dfm

@@ -1,10 +1,10 @@
 object ReportManagerForm: TReportManagerForm
-  Left = 679
-  Top = 296
+  Left = 996
+  Top = 209
   BorderStyle = bsDialog
   Caption = #25253#34920#27169#26495
-  ClientHeight = 442
-  ClientWidth = 809
+  ClientHeight = 535
+  ClientWidth = 841
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
@@ -20,9 +20,9 @@ object ReportManagerForm: TReportManagerForm
   object pcReport: TPageControl
     Left = 0
     Top = 0
-    Width = 809
-    Height = 442
-    ActivePage = tsCustom
+    Width = 841
+    Height = 535
+    ActivePage = tsOnline
     Align = alClient
     Font.Charset = DEFAULT_CHARSET
     Font.Color = clWindowText
@@ -44,8 +44,8 @@ object ReportManagerForm: TReportManagerForm
       object zgLoacl: TZJGrid
         Left = 0
         Top = 0
-        Width = 801
-        Height = 382
+        Width = 833
+        Height = 475
         Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
         OptionsEx = []
         ColCount = 7
@@ -73,8 +73,8 @@ object ReportManagerForm: TReportManagerForm
       object pnlHint: TPanel
         Left = 0
         Top = 0
-        Width = 801
-        Height = 382
+        Width = 833
+        Height = 475
         Align = alClient
         BevelOuter = bvNone
         Caption = #26412#22320#36824#27809#26377#25253#34920#65292#35831#20351#29992#8220#32447#19978#25253#34920#24211#8221#19979#36733#25253#34920
@@ -93,13 +93,13 @@ object ReportManagerForm: TReportManagerForm
       object Panel1: TPanel
         Left = 0
         Top = 0
-        Width = 801
-        Height = 37
+        Width = 833
+        Height = 33
         Align = alTop
         BevelOuter = bvNone
         TabOrder = 0
         object cbCategory: TComboBox
-          Left = 0
+          Left = 1
           Top = 2
           Width = 273
           Height = 27
@@ -119,8 +119,8 @@ object ReportManagerForm: TReportManagerForm
       object zgOnline: TZJGrid
         Left = 0
         Top = 33
-        Width = 801
-        Height = 349
+        Width = 833
+        Height = 442
         Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
         OptionsEx = []
         ColCount = 7
@@ -143,7 +143,7 @@ object ReportManagerForm: TReportManagerForm
         Font.Name = #24494#36719#38597#40657
         Font.Style = []
         ParentFont = False
-        Align = alBottom
+        Align = alClient
       end
     end
     object tsCustom: TTabSheet
@@ -152,8 +152,8 @@ object ReportManagerForm: TReportManagerForm
       object pnlCustom: TPanel
         Left = 0
         Top = 0
-        Width = 801
-        Height = 382
+        Width = 833
+        Height = 475
         Align = alClient
         BevelOuter = bvNone
         Caption = 'pnlCustom'
@@ -161,8 +161,8 @@ object ReportManagerForm: TReportManagerForm
         object zgCustom: TZJGrid
           Left = 0
           Top = 0
-          Width = 801
-          Height = 382
+          Width = 833
+          Height = 475
           Options = [goRangeSelect, goRowSizing, goColSizing, goCellNotMaintainData, goFixedRowShowNo, goFixedColShowNo, goAlwaysShowSelection]
           OptionsEx = []
           ColCount = 7
@@ -191,8 +191,8 @@ object ReportManagerForm: TReportManagerForm
       object pnlInputCode: TPanel
         Left = 0
         Top = 0
-        Width = 801
-        Height = 382
+        Width = 833
+        Height = 475
         Align = alClient
         BevelOuter = bvNone
         TabOrder = 0

Forms/ReportManagerFrm.pas

@@ -15,7 +15,6 @@ type
     tsCustom: TTabSheet;
     zgLoacl: TZJGrid;
     Panel1: TPanel;
-    cbCategory: TComboBox;
     pnlInputCode: TPanel;
     edtCode: TEdit;
     Label2: TLabel;
@@ -28,6 +27,7 @@ type
     pnlHint: TPanel;
     zgCustom: TZJGrid;
     zaCustom: TZjGridDBA;
+    cbCategory: TComboBox;
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
     procedure zgLoaclCellGetFont(Sender: TObject; ACoord: TPoint;