Bug 修改仅原报可修改中间计量类型后，新建项目报错

Frames/ZJJLFme.pas

@@ -153,6 +153,7 @@ procedure TZJJLFrame.RefreshTitle;
 var
   iType: Integer;
 begin
+  if not TPhaseData(FZJJLData.PhaseData).Active then Exit;
   iType := TPhaseData(FZJJLData.PhaseData).PhaseProperty.ZJJLType;
   case iType of
     0: labTitle.Caption := 'Öмä¼ÆÁ¿(0ºĄ̊ÕË)';