审核→审批。

Frames/CheckerFme.pas

@@ -191,7 +191,7 @@ begin
   end
   else
   begin
-    sErrors := Format('无法读取审核人列表，这将会导致桌面程序崩溃！%s地址：%s%s标段ID：%s，期号：%s',
+    sErrors := Format('无法读取审批人列表，这将会导致桌面程序崩溃！%s地址：%s%s标段ID：%s，期号：%s',
       [#13#10#13#10, sURL, #13#10#13#10, IntToStr(vProj.WebID), IntToStr(vProj.PhaseIndex)]);
     Application.MessageBox(PChar(sErrors), '错误', MB_OK + MB_ICONERROR);
     Application.Terminate;

Frames/OrderCheckerFme.pas

@@ -19,7 +19,7 @@ type
   TCheckStatus = (csNotBegin, csChecking, csFinished, csNotPass);  // 末审核，审核中，审核完成，审核不通过
 
 const
-  CheckStatusNames: array[TCheckStatus] of string = ('未审核', '审核中', '审核通过', '审核不通过');
+  CheckStatusNames: array[TCheckStatus] of string = ('未审批', '审批中', '审批通过', '审批不通过');
   CheckStatusColors: array[TCheckStatus] of TColor = ($00B7B7B7, $000099FF, $000E9D00, clRed);
 
 type
@@ -142,9 +142,9 @@ begin
       begin
         CheckedOnLine := ACheckedOnLine;
         if ACheckedOnLine = 0 then
-          sOnLine := '线下审核'
+          sOnLine := '线下审批'
         else if ACheckedOnLine = 1 then
-          sOnLine := '线上审核';
+          sOnLine := '线上审批';
 
         CheckedTime := Format('[%s][%s]', [ACheckedTime, sOnLine]);
       end;
@@ -248,7 +248,7 @@ var sURL: string;
   vProj: TProjectData;
   vArr: array of string;
 begin
-  if Application.MessageBox('确定要删除该审核人吗？', '询问', MB_YESNO + MB_ICONQUESTION) = ID_No then
+  if Application.MessageBox('确定要删除该审批人吗？', '询问', MB_YESNO + MB_ICONQUESTION) = ID_No then
     Exit;
 
   vProj := TProjectData(TCheckerFrame(Owner).ProjectData);
@@ -267,13 +267,13 @@ begin
     end;
     0:
     begin
-      Application.MessageBox(PChar(PHPWeb.PageError('无法删除审核人' + '[' + vArr[0] + ']')),
+      Application.MessageBox(PChar(PHPWeb.PageError('无法删除审批人' + '[' + vArr[0] + ']')),
         '警告', MB_OK + MB_ICONWARNING);
       Exit;
     end;
     -1:
     begin
-      Application.MessageBox(PChar(PHPWeb.NetError('无法删除审核人')),
+      Application.MessageBox(PChar(PHPWeb.NetError('无法删除审批人')),
         '警告', MB_OK + MB_ICONWARNING);
     end;
   end;

Frames/ProjectFme.dfm

@@ -207,7 +207,7 @@ object ProjectFrame: TProjectFrame
           Tag = 5
           Left = 305
           Top = 0
-          Caption = #23457#26680#20154
+          Caption = #23457#25209#20154
           Enabled = False
           ImageIndex = 4
           Style = tbsCheck

Frames/ProjectFme.pas

@@ -356,7 +356,7 @@ begin
           ['tenderid', 'phaseno'], [IntToStr(FProjectData.WebID),
           IntToStr(iBef + 1)], vArr) <> 1 then
         begin
-          Application.MessageBox(Pchar('云端自动创建本期审核人列表出错，请重新尝试！'), '警告', MB_OK + MB_ICONWARNING);
+          Application.MessageBox(Pchar('云端自动创建本期审批人列表出错，请重新尝试！'), '警告', MB_OK + MB_ICONWARNING);
           Exit;
         end;
       end;
@@ -551,7 +551,7 @@ procedure TProjectFrame.dxsbViewControlItemClick(Sender: TObject;
   begin
     if FProjectData.ProjProperties.PhaseCount = 0 then
     begin
-      ErrorMessage('当前项目未开始计量，暂无审核比较数据！');
+      ErrorMessage('当前项目未开始计量，暂无审批比较数据！');
       dxsbViewControl.SelectedItem := dxsbViewControl.ActiveGroup.Items[jpsMain.ActivePageIndex];
       Abort;
     end;
@@ -876,7 +876,7 @@ begin
       bSubmit := True;
       if not CheckerFrame.HasNormalChecker then
       begin
-        Application.MessageBox('上报审批前请先配置审核人！', '提示', MB_OK + MB_ICONWARNING);
+        Application.MessageBox('上报审批前请先配置审批人！', '提示', MB_OK + MB_ICONWARNING);
         tobtnShowChecker.Down := True;
         tobtnShowChecker.Click;
         Exit;
@@ -1003,7 +1003,7 @@ begin
               CheckerFrame.Me.CheckStatus := csNotPass;
 
             CheckerFrame.Me.CheckerMemo := sCheckerMemo;
-            CheckerFrame.Me.CheckedTime := Format('[%s][线下审核]',[DateToStr(Date)]);
+            CheckerFrame.Me.CheckedTime := Format('[%s][线下审批]',[DateToStr(Date)]);
           end;
         end;
 

Frames/ProjectManagerFme.pas

@@ -367,7 +367,7 @@ begin
 
       if not MainForm.CurProjectFrame.CheckFileAndCloudChekerList then
       begin
-        sHint := '项目校验：“' + FWebBidName_OnLine + '”文件中的审核人和云端的审核人不一致，' +
+        sHint := '项目校验：“' + FWebBidName_OnLine + '”文件中的审批人和云端的审批人不一致，' +
           '禁止继续操作，项目即将关闭！请删除本地项目重新从云端获取，' +
           '重新获取后如果仍然存在同样的问题，请联系纵横服务人员以寻求帮助。';
         Application.MessageBox(PChar(sHint), '文件错误', MB_OK +MB_ICONWARNING);
@@ -444,7 +444,7 @@ begin
            vNode.LocateInControl;
          end;
       1: ErrorMessage('当前标段处于打开状态，未能成功接收，请先关闭标段再次接收。');
-      2: ErrorMessage('下载数据与审核状态不一致，未能成功接收，请再次接收。');
+      2: ErrorMessage('下载数据与审批状态不一致，未能成功接收，请再次接收。');
       3: ErrorMessage('升级数据失败，未能成功接收，请再次接收。');
     end;
     vRP.Free;