切换期数，强制刷新期数显示控件（某些情况下，数据刷新，但是期数显示未刷新）

Frames/ProjectFme.pas

@@ -331,7 +331,12 @@ begin
 end;
 
 procedure TProjectFrame.jcbPhaseChanged(Sender: TObject);
+var
+  cr: TCursor;
 begin
+  cr := Screen.Cursor;
+  Screen.Cursor := crHourGlass;
+  
   if ProjectData.PhaseIndex = jcbPhase.ItemIndex + 1 then Exit;
 
   FProjectData.PhaseIndex := jcbPhase.ItemIndex + 1;
@@ -353,6 +358,9 @@ begin
     ButtonControl_UpToWeb;
     UpFileManageView.RefreshViews;
   end;
+  jcbPhase.Invalidate;
+
+  Screen.Cursor := cr;
 end;
 
 function TProjectFrame.CreateNewPhase: Boolean;