云版，登陆任何账号，切换至往期数据后，上报审批/审批通过/审批不通过按钮均灰选。

Forms/LoginFrm.pas

@@ -260,69 +260,65 @@ var
 begin
   if G_IsTest then
   begin
-    {iIndex := StrToIntDef(edtUser.Text, -1);
-    if (iIndex > -1) and (iIndex < 11) then
-    begin
-      edtUser.Text := Users[iIndex];
-      edtPW.Text := PWs[iIndex];
-    end;}
     if edtUser.Text = '1' then
     begin
-      // 珙쑨
       edtUser.Text := '2636698008@qq.com';
       edtPW.Text := 'smartcost3850887';
     end
     else if edtUser.Text = '2' then
     begin
-      // 蠟��
       edtUser.Text := '1971614655@qq.com';
       edtPW.Text := '357134933..';
     end
     else if edtUser.Text = '3' then
     begin
-      // 뼝갖줬
       edtUser.Text := '1835082984@qq.com';
       edtPW.Text := '123456';
     end
     else if edtUser.Text = '4' then
     begin
-      // 마행행
       edtUser.Text := '2417587264@qq.com';
       edtPW.Text := 'koukou0708';
     end
     else if edtUser.Text = '5' then
     begin
-      // 킹흘
       edtUser.Text := '2609827960@qq.com';
       edtPW.Text := 'missling';
     end
     else if edtUser.Text = '6' then
     begin
       edtUser.Text := '1240621850@qq.com';
-      edtPW.Text := '147369'
+      edtPW.Text := '147369';
     end
     else if edtUser.Text = '7' then
     begin
-      // 鷺븅꺼
       edtUser.Text := '1014149875@qq.com';
-      edtPW.Text := 'zhbwoai'
+      edtPW.Text := 'zhbwoai';
     end
     else if edtUser.Text = '8' then
     begin
-
       edtUser.Text := '1525739553@qq.com';
-      edtPW.Text := ''
+      edtPW.Text := '';
     end
     else if edtUser.Text = '9' then
     begin
-      // 킹흘2
       edtUser.Text := '1391010261@qq.com';
-      edtPW.Text := 'missling'
+      edtPW.Text := 'missling';
     end
     else if edtUser.Text = '10' then
     begin
       edtUser.Text := '916960227@qq.com';
-      edtPW.Text := '123456'
+      edtPW.Text := '123456';
+    end
+    else if edtUser.Text = '11' then
+    begin
+      edtUser.Text := '916960227@qq.com';
+      edtPW.Text := '12345678';
+    end
+    else if edtUser.Text = '12' then
+    begin
+      edtUser.Text := '';
+      edtPW.Text := '';
     end;
   end;
 end;

Frames/ProjectFme.pas

@@ -319,6 +319,7 @@ begin
       FCheckerFrame.Init;
       RepairAudits;
     end;
+    ButtonControl_UpToWeb;
   end;
 end;
 

Frames/ProjectManagerFme.dfm

@@ -84,6 +84,8 @@ object ProjectManagerFrame: TProjectManagerFrame
     DefaultFixedRowHeight = 25
     Selection.AlphaBlend = False
     Selection.TransparentColor = False
+    FrozenCol = 0
+    FrozenRow = 0
     OnCurrentChanged = zgProjectsCurrentChanged
     OnDrawCellText = zgProjectsDrawCellText
     OnMouseDown = zgProjectsMouseDown
@@ -113,6 +115,8 @@ object ProjectManagerFrame: TProjectManagerFrame
       DefaultFixedColWidth = 25
       Selection.AlphaBlend = False
       Selection.TransparentColor = False
+      FrozenCol = 0
+      FrozenRow = 0
       Align = alClient
     end
   end

Frames/ProjectManagerFme.pas

@@ -346,6 +346,12 @@ var
         end;
       end;
     end
+    else if (iSearch = 10) then
+    begin
+      sHint :='该项目[' + FBidName + ']在云端已被删除，点击"确定"后，可手动删除该项目。';
+      Application.MessageBox(PChar(sHint), '系统提示', MB_OK + MB_ICONINFORMATION);
+      Exit;
+    end
     else if (iSearch = 0) or (iSearch = -1) then
     begin
       sHint := sError + '（因网络出错，无法检测[' + FBidName + ']在云端是否有更新，本次操作已取消，请重试）。';

Units/ZhAPI.pas

@@ -81,3 +81,4 @@ end.
 
 
 
+