USEGEAR

  try
    if fdqry_dictEdit.State in [dsEdit,dsInsert] then fdqry_dictEdit.Post;
    ShowMessage('保存成功');
    unpgcntrl2.ActivePageIndex := 0;
  except
    on E: Exception do
      ShowFriendlyError('保存失敗，請檢查數據');  // ? 穩定彈窗
  end;

procedure TUniFrmBase_EquipmentSetup.ShowFriendlyError(const Msg: string);
begin
    MessageDlg(Msg, mtError, [mbOK], nil);  // 無回調，簡單彈出

end;