缓存报表查询数据，处理中间计量转义字符

Units/ProjectData.pas

@@ -251,7 +251,8 @@ implementation
 
 uses UtilMethods, Globals, ProjectCommands, sdIDTree, StageDm,
   ZJJLDm, PHPWebDm, XMLDoc, XMLIntf, ConstUnit, PasswordInputFrm,
-  mProgressProFrm, mDataRecord, ConditionalDefines, DbTreeImport;
+  mProgressProFrm, mDataRecord, ConditionalDefines, DbTreeImport,
+  StrUtils;
 
 { TProjectData }
 
@@ -914,6 +915,12 @@ procedure TProjectData.CopyPhaseData;
   end;
 
   procedure UpdateZJJLData;
+
+    function EscString(const AStr: string): string;
+    begin
+      Result := AnsiReplaceStr(AStr, '''', '''''');
+    end;
+
   const
     sUpdateSql = 'Update P_ZJJL' +
                  '  Set BGLCode = ''%s'', PegName = ''%s'', FBFXName = ''%s'',' +
@@ -929,8 +936,8 @@ procedure TProjectData.CopyPhaseData;
       while not cdsZJJL.Eof do
       begin
         ZJJLInfoRec := GetInfoRec(cdsZJJLBillsID.AsInteger, cdsZJJLType.AsInteger);
-        sSql := Format(sUpdateSql, [ZJJLInfoRec.BGLCode, ZJJLInfoRec.PegName,
-            ZJJLInfoRec.FBFXName, ZJJLInfoRec.UnitName, ZJJLInfoRec.DrawingCode,
+        sSql := Format(sUpdateSql, [EscString(ZJJLInfoRec.BGLCode), EscString(ZJJLInfoRec.PegName),
+            EscString(ZJJLInfoRec.FBFXName), EscString(ZJJLInfoRec.UnitName), EscString(ZJJLInfoRec.DrawingCode),
             cdsZJJLID.AsInteger]);
         ExecuteSql(sSql);
         cdsZJJL.Next;