Measure/Forms/MainFrm.pas

unit MainFrm;

interface

uses
  // Uses Units Please Try This Category
  // View
  ProjectManagerFme, ProjectFme, ProjectPropertiesFrm, OptionFrm, AboutFrm,
  AuthFrm,
  // Model & Data & Data Control ...
  ProjectData, SupportUnit, Globals, ZhAPI, ExcelImport, ConditionalDefines,
  // Controls & Delphi Default ... (Almost By Add Controls)
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, JimPages, ComCtrls, dxStatusBar, cxControls, JimTabs,
  dxBar, ImgList, UtilMethods, ZjDbaActns, ActnList, XPStyleActnCtrls, ActnMan,
  dxBarExtItems, sdDB, ExtCtrls, jpeg, StdCtrls, CslLabel, pngimage;

type
  TMainForm = class(TForm)
    dxBarManager: TdxBarManager;
    Images: TImageList;
    dxsiFile: TdxBarSubItem;
    jtsProjects: TJimTabSet;
    dxStatusBar: TdxStatusBar;
    dxStatusBarContainer2: TdxStatusBarContainerControl;
    ProgressBar: TProgressBar;
    jpsMain: TJimPages;
    jpsMainProjectsManager: TJimPage;
    jpsMainProjects: TJimPage;
    jpsProjects: TJimPages;
    dxsiEdit: TdxBarSubItem;
    dxsiHelp: TdxBarSubItem;
    dxbtnCopy: TdxBarButton;
    dxbtnPaste: TdxBarButton;
    dxbtnCut: TdxBarButton;
    dxbtnInsert: TdxBarButton;
    dxbtnDelete: TdxBarButton;
    dxbtnUpMove: TdxBarButton;
    dxbtnDownMove: TdxBarButton;
    dxbtnUpLevel: TdxBarButton;
    dxbtnDownLevel: TdxBarButton;
    dxbtnAuthorizeDog: TdxBarButton;
    dxbtnAbout: TdxBarButton;
    dxbtnNewProject: TdxBarButton;
    dxbtnOpenProject: TdxBarButton;
    dxbtnDeleteProject: TdxBarButton;
    ActionManager1: TActionManager;
    ZjDbaInsert: TZjDbaInsert;
    ZjDbaDelete: TZjDbaDelete;
    ZjDbaUpMove: TZjDbaUpMove;
    ZjDbaDownMove: TZjDbaDownMove;
    ZjTreeDbaUpLevel: TZjTreeDbaUpLevel;
    ZjTreeDbaDownLevel: TZjTreeDbaDownLevel;
    ZjGridCopy: TZjGridCopy;
    ZjGridPaste: TZjGridPaste;
    ZjGridCut: TZjGridCut;
    ZjGridRemapedPaste: TZjGridRemapedPaste;
    dxpmTabSet: TdxBarPopupMenu;
    dxbtnCloseProject: TdxBarButton;
    actnCloseProject: TAction;
    dxbtnNewPhase: TdxBarButton;
    dxbtnCalculateLedger: TdxBarButton;
    actnNewPhase: TAction;
    dxbtnProjectProperties: TdxBarButton;
    actnProjectProperties: TAction;
    dxbtnSaveProject: TdxBarButton;
    actnSaveProject: TAction;
    dxbtnRemapedPaste: TdxBarButton;
    dxbtnImportExcel: TdxBarButton;
    actnImportExcel: TAction;
    dxbtnNewAudit: TdxBarButton;
    dxbtnCopyBillsBlock: TdxBarButton;
    actnNewAudit: TAction;
    dxbtnFinalAudit: TdxBarButton;
    dxbtnSubmitProject: TdxBarButton;
    dxbtnReceiveProject: TdxBarButton;
    dxbtnReplyProject: TdxBarButton;
    dxbtnAcceptProject: TdxBarButton;
    dxbtnCalculateAll: TdxBarButton;
    dxbtnNewSubProject: TdxBarButton;
    dxbtnNewTender: TdxBarButton;
    dxbtnOptions: TdxBarButton;
    actnOptions: TAction;
    dxbtnCalculatePhasePay: TdxBarButton;
    actnSubmit: TAction;
    actnReply: TAction;
    dxbtnSubmit: TdxBarButton;
    dxbtnReply: TdxBarButton;
    dxbtnFirstLevel: TdxBarButton;
    dxbtnSecondLevel: TdxBarButton;
    dxbtnThirdLevel: TdxBarButton;
    dxbtnFourthLevel: TdxBarButton;
    dxbtnFifthLevel: TdxBarButton;
    dxbtnAllLevel: TdxBarButton;
    dxbtnAllXmj: TdxBarButton;
    dxbtnExportGridToExcel: TdxBarButton;
    dxbtnRefresh: TdxBarButton;
    dxbtnUnlockInfo: TdxBarButton;
    actnUnlockInfo: TAction;
    dxUser: TdxBarSubItem;
    pnlUser: TPanel;
    lblAccount: TLabel;
    lblCompany: TLabel;
    lblRole: TLabel;
    dxLoginCloud: TdxBarButton;
    dxManageAccount: TdxBarButton;
    pnl1: TPanel;
    imgUserImage: TImage;
    lblMail: TLabel;
    dxUserContainer: TdxBarControlContainerItem;
    dxbtnBatchAddChild: TdxBarButton;
    dxbtnBatchAddNext: TdxBarButton;
    dxbtnReorderChildrenCode: TdxBarButton;
    dxbtnImportBillsPrice: TdxBarButton;
    dxsiImportExcel: TdxBarSubItem;
    dxbtnImportDealBills: TdxBarButton;
    actnImportBillsPrice: TAction;
    actnImportDealBills: TAction;
    dxbtnBatchReplaceBillsInfo: TdxBarButton;
    tAutoSave: TTimer;
    dxsiExportExcel: TdxBarSubItem;
    dxbtnExportExcel: TdxBarButton;
    actnExportExcel: TAction;
    dxbtnCurPhase: TdxBarButton;
    dxSync: TdxBarButton;
    dxbtnBatchWritePos_Reason: TdxBarButton;
    dxbtnExportCloudTenderFile: TdxBarButton;
    actnExportCloudTenderFile: TAction;
    dxtbnImportCloudTenderFile: TdxBarButton;
    actnImportCloudTenderFile: TAction;
    dxbtnCheckAndClear: TdxBarButton;
    dxbtnModifyDealBills: TdxBarButton;
    dxbtnLocateBills: TdxBarButton;
    dxbtnOpenBackupFolder: TdxBarButton;
    dxbtnSetBookmark: TdxBarButton;
    dxbtnExportFxBillsExcel: TdxBarButton;
    actnExportFxBillsExcel: TAction;
    dxseBatchInsert: TdxBarSpinEdit;
    actnBatchInsert: TAction;
    dxbtnRename: TdxBarButton;
    dxbtnImportGclBillsToXmj: TdxBarButton;
    dxbtnChangeDealBillsMode: TdxBarButton;
    dxsiExpandTo: TdxBarSubItem;
    dxbtnLocateBookmark: TdxBarButton;
    dxbtnImportPlaneFxBillsToXmj: TdxBarButton;
    dxbtnAllPeg: TdxBarButton;
    dxsiData: TdxBarSubItem;
    dxbtnTenderPartition: TdxBarButton;
    dxbtnSetDealPayPlan: TdxBarButton;
    dxbtnAddDetailGLs: TdxBarButton;
    dxbtnCopyDetailGls: TdxBarButton;
    dxbtnApplyToSameBills: TdxBarButton;
    dxbtnCalculatePriceMargin: TdxBarButton;
<<<<<<< HEAD
    dxbtnFxZJJL: TdxBarButton;
    dxbtnGclZJJL: TdxBarButton;
=======
    dxbtnInsertCol: TdxBarButton;
>>>>>>> remotes/origin/3.1.3.3
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure jtsProjectsChange(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure jtsProjectsMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure actnCloseProjectExecute(Sender: TObject);
    procedure actnCloseProjectUpdate(Sender: TObject);
    procedure actnNewPhaseExecute(Sender: TObject);
    procedure actnProjectPropertiesUpdate(Sender: TObject);
    procedure actnProjectPropertiesExecute(Sender: TObject);
    procedure actnSaveProjectExecute(Sender: TObject);
    procedure actnNewAuditExecute(Sender: TObject);
    procedure actnNewPhaseUpdate(Sender: TObject);
    procedure actnOptionsExecute(Sender: TObject);
    procedure actnImportExcelExecute(Sender: TObject);
    procedure actnReplyExecute(Sender: TObject);
    procedure actnSubmitExecute(Sender: TObject);
    procedure dxBarManagerShowToolbarsPopup(Sender: TdxBarManager;
      PopupItemLinks: TdxBarItemLinks);
    procedure actnSubmitUpdate(Sender: TObject);
    procedure actnImportExcelUpdate(Sender: TObject);
    procedure actnUnlockInfoUpdate(Sender: TObject);
    procedure actnUnlockInfoExecute(Sender: TObject);
    procedure dxbtnAboutClick(Sender: TObject);
    procedure dxLoginCloudClick(Sender: TObject);
    procedure dxManageAccountClick(Sender: TObject);
    procedure dxbtnAuthorizeDogClick(Sender: TObject);
    procedure actnImportBillsPriceExecute(Sender: TObject);
    procedure actnImportDealBillsExecute(Sender: TObject);
    procedure tAutoSaveTimer(Sender: TObject);
    procedure actnExportExcelExecute(Sender: TObject);
    procedure dxSyncClick(Sender: TObject);
    procedure actnExportCloudTenderFileExecute(Sender: TObject);
    procedure actnExportCloudTenderFileUpdate(Sender: TObject);
    procedure actnImportCloudTenderFileExecute(Sender: TObject);
    procedure actnImportCloudTenderFileUpdate(Sender: TObject);
    procedure actnExportFxBillsExcelExecute(Sender: TObject);
    procedure dxseBatchInsertKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure actnReplyUpdate(Sender: TObject);
    procedure dxbtnTenderPartitionClick(Sender: TObject);
  private
    FProjectManagerFrame: TProjectManagerFrame;
    FProjectFrames: TList;

    procedure UpdateProgressBar(APosition: Integer);
    procedure UpdateProgressHint(const AHint: string);

    procedure CreateProjectView(ARec: TsdDataRecord);

    procedure LocateProjectView(AIndex: Integer);
    procedure DeleteProjectView(AIndex: Integer);
    procedure ResetProcessView(AIndex: Integer);
    procedure ChangeLeftSideGlobalView(AIndex: Integer);
    function GetCurProjectFrame: TProjectFrame;

    procedure ResetAutoSave;
  public
    procedure UpdateProgress(APos: Integer; const AHint: string);
    procedure LocateProject(AProjectID: Integer);
    function HasOpened(AProjectID: Integer): Boolean;
    procedure OpenProject(ARec: TsdDataRecord);

    property CurProjectFrame: TProjectFrame read GetCurProjectFrame;
    property ProjectManagerFrame: TProjectManagerFrame read FProjectManagerFrame;
  end;

var
  MainForm: TMainForm;

implementation

uses
  ProjectProperty, ConstUnit, PHPWebDm, Math, ShellAPI,
  FindUserFrm, ImportExcelHintFrm, ConfigDoc, ExportExcel,
  ProjectCommands, BillsCompileDm, tpMainFrm;

{$R *.dfm}
{$R MeasureIcons.RES}

procedure TMainForm.FormCreate(Sender: TObject);

  procedure CreateProjectManagerFrame;
  begin
    FProjectManagerFrame := TProjectManagerFrame.Create(nil);
    AlignControl(FProjectManagerFrame, jpsMainProjectsManager, alClient);
  end;

  procedure SetHintFont;
  begin
    if G_IsCloud then
    begin
      Screen.HintFont.Size := 11;
      Screen.HintFont.Name := 'Microsoft YaHei';
    end
    else
    begin
      Screen.HintFont.Name := 'SmartSimSun';
      Screen.HintFont.Size := 9;
    end;
  end;

  function GetSoftName: string;
  begin
    if _ModuleType = mtCompile then
      Result := '纵横公路工程0号台账软件'
    else if _ModuleType = mtAll then
      Result := '纵横公路工程结算决算计量一体化软件';
  end;

  function GetVersionName: string;
  begin
    Result := '';
    if _IsGuangDong then
      Result := Result + '广东';
    if _ModuleType = mtAll then
    begin
      if G_IsTest then
        Result := '测试'
      else if G_IsCloud then
        Result := Result + '云'
      else if _IsEncrypt then
        Result := Result + '专业'
      else
        Result := Result + '学习';
    end;
    if Result <> '' then
      Result := Result + '版';
  end;

  procedure InitialForVersions;
  var
    sPic: string;
  begin
    if G_IsCloud then
    begin
      dxbtnNewProject.Visible := ivNever;
      dxbtnNewSubProject.Visible := ivNever;
      dxbtnReceiveProject.Visible := ivNever;
      dxbtnNewPhase.Visible := ivNever;
      dxUser.Visible := ivAlways;
      dxUser.Caption := PHPWeb.RealName;
      lblAccount.Caption := PHPWeb.RealName;
      lblMail.Caption := Format('(%s)', [PHPWeb.Account]);

      if Trim(PHPWeb.Company) <> '' then
        lblCompany.Caption := PHPWeb.Company
      else
        lblCompany.Caption := '我的单位';

      if Trim(PHPWeb.Role) <> '' then
        lblRole.Caption := PHPWeb.Role
      else
        lblRole.Caption := '我的职称';

      // 每次登录都下载到本地，再从本地读入显示。以保证图片实时更新。
      sPic := PHPWeb.UserPath + '0_' + IntToStr(PHPWeb.UserID) + '.jpg';
      if PHPWeb.DownFile(PHPWeb.UserImageURL, sPic) then
        if FileExists(sPic) then
          imgUserImage.Picture.LoadFromFile(sPic);
    end
    else
    begin
      dxUser.Visible := ivNever;
      dxbtnReceiveProject.Visible := ivAlways;
    end;

    MainForm.Caption := GetSoftName + GetVersionName;
  end;

begin
  CreateProjectManagerFrame;
  FProjectFrames := TList.Create;
  InitialForVersions;
  SetHintFont;
  ResetAutoSave;
end;

procedure TMainForm.UpdateProgress(APos: Integer; const AHint: string);
begin
  UpdateProgressBar(APos);
  UpdateProgressHint(AHint);
  Application.ProcessMessages;
end;

procedure TMainForm.UpdateProgressBar(APosition: Integer);
begin
  if APosition < ProgressBar.Max then
    ProgressBar.Position := APosition
  else
    ProgressBar.Position := ProgressBar.Min;
end;

procedure TMainForm.UpdateProgressHint(const AHint: string);
begin
  dxStatusBar.Panels[0].Text := AHint;
end;

procedure TMainForm.FormDestroy(Sender: TObject);
begin
  ClearObjects(FProjectFrames);
  FProjectFrames.Free;
  FProjectManagerFrame.Free;
end;

procedure TMainForm.OpenProject(ARec: TsdDataRecord);
begin
  if not HasOpened(ARec.ValueByName('ID').AsInteger) then
    CreateProjectView(ARec)
  else
    LocateProject(ARec.ValueByName('ID').AsInteger);
end;

function TMainForm.HasOpened(AProjectID: Integer): Boolean;
begin
  Result := OpenProjectManager.ProjectIndex(AProjectID) <> -1;
end;

procedure TMainForm.LocateProject(AProjectID: Integer);
begin
  jtsProjects.TabIndex := OpenProjectManager.ProjectIndex(AProjectID) + 1;
  if jpsMain.ActivePage <> jpsMainProjects then
    jpsMain.ActivePage := jpsMainProjects;
end;

procedure TMainForm.CreateProjectView(ARec: TsdDataRecord);

  function CreateNewProjectPage: TJimPage;
  begin
    Result := TJimPage.Create(jpsProjects);
    Result.Pages := jpsProjects;
    jpsProjects.ActivePage := Result;
  end;

  function CreateNewProjectTab(const ATabName: string; APage: TJimPage): Integer;
  begin
    Result := jtsProjects.Tabs.AddObject(ATabName, APage);
    jtsProjects.TabIndex := Result;
  end;

  procedure CreateProjectFrame(AProjectData: TProjectData; APage: TJimPage);
  var
    ProjectFrame: TProjectFrame;
  begin
    ProjectFrame := TProjectFrame.Create(AProjectData);
    FProjectFrames.Add(ProjectFrame);
    ProjectFrame.Parent := APage;
    ProjectFrame.Align := alClient;
  end;

var
  jimPage: TJimPage;
begin
  jpsMain.ActivePage := jpsMainProjects;
  jimPage := CreateNewProjectPage;
  CreateNewProjectTab(ARec.ValueByName('Name').AsString, jimPage);
  CreateProjectFrame(OpenProjectManager.Open(ARec), jimPage);
  ProjectManager.AddOpenTenderBackup(ARec.ValueByName('ID').AsInteger);
end;

procedure TMainForm.jtsProjectsChange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  LocateProjectView(NewTab - 1);
  ResetProcessView(NewTab);
end;

procedure TMainForm.LocateProjectView(AIndex: Integer);
begin
  if AIndex >= 0 then
  begin
    jpsMain.ActivePage := jpsMainProjects;
    jpsProjects.ActivePage := TJimPage(jtsProjects.Tabs.Objects[AIndex + 1]);
    OpenProjectManager.CurProjectIndex := AIndex;
    ChangeLeftSideGlobalView(AIndex);
  end
  else
    jpsMain.ActivePage := jpsMainProjectsManager;
end;

procedure TMainForm.ChangeLeftSideGlobalView(AIndex: Integer);
begin
  if (AIndex >= 0) and (AIndex < FProjectFrames.Count) then
    TProjectFrame(FProjectFrames[AIndex]).ResetAssistantView;
end;

procedure TMainForm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  try
    OpenProjectManager.SaveAll;
  except
  end;
end;

procedure TMainForm.jtsProjectsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if Button = mbRight then
    dxpmTabSet.PopupFromCursorPos;
end;

procedure TMainForm.actnCloseProjectExecute(Sender: TObject);
begin
  OpenProjectManager.CurProjectData.Save;
  DeleteProjectView(jtsProjects.TabIndex - 1);
  LocateProjectView(jtsProjects.TabIndex - 1);
  ResetProcessView(jtsProjects.TabIndex);
end;

procedure TMainForm.actnCloseProjectUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := jtsProjects.Tabs.Count > 1;
end;

procedure TMainForm.DeleteProjectView(AIndex: Integer);
begin
  TProjectFrame(FProjectFrames[AIndex]).Free;
  FProjectFrames.Delete(AIndex);
  OpenProjectManager.Delete(AIndex);
  jpsProjects.Pages.Delete(AIndex);
  jtsProjects.Tabs.Delete(AIndex + 1);
end;

procedure TMainForm.actnNewPhaseExecute(Sender: TObject);
begin
  TProjectFrame(FProjectFrames[jtsProjects.TabIndex - 1]).CreateNewPhase;
end;

procedure TMainForm.actnProjectPropertiesUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := jtsProjects.TabIndex > 0;
end;

procedure TMainForm.actnProjectPropertiesExecute(Sender: TObject);
begin
  ModifyProjectProperties(TProjectFrame(FProjectFrames[jtsProjects.TabIndex - 1]));
end;

procedure TMainForm.actnSaveProjectExecute(Sender: TObject);
begin
  OpenProjectManager.CurProjectData.Save;
end;

procedure TMainForm.actnNewAuditExecute(Sender: TObject);
begin
  TProjectFrame(FProjectFrames[jtsProjects.TabIndex - 1]).CreateNewAudit;
end;

procedure TMainForm.actnNewPhaseUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := (jtsProjects.Tabs.Count > 1) and Assigned(CurProjectFrame);
  if TAction(Sender).Enabled then
    with CurProjectFrame.ProjectData do
      TAction(Sender).Enabled := TAction(Sender).Enabled and (ProjProperties.AuditStatus = -1);
end;

function TMainForm.GetCurProjectFrame: TProjectFrame;
begin
  if jtsProjects.TabIndex > 0 then
    Result := TProjectFrame(FProjectFrames[jtsProjects.TabIndex - 1])
  else
    Result := nil;
end;

procedure TMainForm.actnOptionsExecute(Sender: TObject);
begin
  ModifiedOptions;
  ResetAutoSave;
end;

procedure TMainForm.actnImportExcelExecute(Sender: TObject);
var
  sFileName: string;
  Importor: TBillsEdtExcelImport;
  bWithLevelCode, bWithoutGclBills: Boolean;
begin
  if HintAndImportTypeSelect(bWithLevelCode, bWithoutGclBills) then
  begin
    if SelectFile(sFileName, '.xls') then
    begin
      Importor := TBillsEdtExcelImport.Create(CurProjectFrame.ProjectData);
      try
        Importor.WithLevelCode := bWithLevelCode;
        Importor.WithoutGclBills := bWithoutGclBills;
        Importor.ImportFile(sFileName);
      finally
        Importor.Free;
      end;
    end;
  end;
end;

procedure TMainForm.ResetProcessView(AIndex: Integer);
begin
  dxBarManager.Bars[2].Visible := AIndex > 0;
  if G_IsCloud then
    dxBarManager.Bars[2].Visible := False;
end;

procedure TMainForm.actnReplyExecute(Sender: TObject); // 批复
begin
  if not CurProjectFrame.CheckCanReport then Exit;

  Screen.Cursor := crHourGlass;
  try
    CurProjectFrame.ProjectData.Save;
    {$O-}
      // 失败后重复一次
      if not CurProjectFrame.ProjectData.ReplyProject then
      begin
        if not CurProjectFrame.ProjectData.ReplyProject then
          ErrorMessage('批复项目失败！');
      end;
    {$O+}
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainForm.actnSubmitExecute(Sender: TObject);   // 上报
begin
  if not CurProjectFrame.CheckCanReport then Exit;

  Screen.Cursor := crHourGlass;
  try
    CurProjectFrame.ProjectData.Save;
    {$O-}
      // 失败后重复一次
      if not CurProjectFrame.ProjectData.SubmitProject then
      begin
        if not CurProjectFrame.ProjectData.SubmitProject then
          ErrorMessage('上报项目失败！');
      end;
    {$O+}
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainForm.dxBarManagerShowToolbarsPopup(Sender: TdxBarManager;
  PopupItemLinks: TdxBarItemLinks);
begin
  // 取消菜单栏右键菜单
  PopupItemLinks.Clear;
end;

procedure TMainForm.actnSubmitUpdate(Sender: TObject);
begin
  with CurProjectFrame.ProjectData do
    TAction(Sender).Enabled := (ProjProperties.PhaseCount > 0) and
        ((ProjProperties.AuditStatus >= 0) and (ProjProperties.AuditStatus < iMaxStageCount-1));
end;

procedure TMainForm.actnImportExcelUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := (jtsProjects.Tabs.Count > 1) and Assigned(CurProjectFrame);
  if TAction(Sender).Enabled then
    with CurProjectFrame.ProjectData do
      TAction(Sender).Enabled := TAction(Sender).Enabled and (PhaseIndex < 1);
end;

procedure TMainForm.actnUnlockInfoUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := (jtsProjects.Tabs.Count > 1) and Assigned(CurProjectFrame);
end;

procedure TMainForm.actnUnlockInfoExecute(Sender: TObject);
begin
  CurProjectFrame.UnLockData;
end;

procedure TMainForm.dxbtnAboutClick(Sender: TObject);
begin
  ShowAboutForm;
end;

procedure TMainForm.dxLoginCloudClick(Sender: TObject);
begin
  ShellExecute(Application.Handle, nil, PChar(PHPWeb.LoginCloudURL), nil, nil, SW_SHOWNORMAL);
end;

procedure TMainForm.dxManageAccountClick(Sender: TObject);
begin
  ShellExecute(Application.Handle, nil, PChar(PHPWeb.PassportURL), nil, nil, SW_SHOWNORMAL);
end;

procedure TMainForm.dxbtnAuthorizeDogClick(Sender: TObject);
begin
  Authorize;
end;

procedure TMainForm.actnImportBillsPriceExecute(Sender: TObject);
var
  sFileName: string;
  Importor: TBillsPriceExcelImport;
begin
  if SelectFile(sFileName, '.xls') then
  begin
    Importor := TBillsPriceExcelImport.Create(CurProjectFrame.ProjectData);
    try
      Importor.ImportFile(sFileName);
    finally
      Importor.Free;
    end;
  end;
end;

procedure TMainForm.actnImportDealBillsExecute(Sender: TObject);
var
  sFileName: string;
  Importor: TDealBillsExcelImport;
begin
  if SelectFile(sFileName, '.xls') then
  begin
    Importor := TDealBillsExcelImport.Create(CurProjectFrame.ProjectData);
    try
      Importor.ImportFile(sFileName);
    finally
      Importor.Free;
    end;
  end;
end;

procedure TMainForm.tAutoSaveTimer(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    OpenProjectManager.SaveAll;
  finally
    screen.Cursor := crDefault;
  end;
end;

procedure TMainForm.ResetAutoSave;
begin
  with SupportManager.ConfigInfo do
  begin
    tAutoSave.Interval := AutoSaveInterval * 60 * 1000;
    tAutoSave.Enabled := AutoSave;
  end;
end;

procedure TMainForm.actnExportExcelExecute(Sender: TObject);
var
  sFileName: string;
  Exportor: TIDTreeExcelExportor;
begin
  if SaveFile(sFileName, '.xls') then
  begin
    Exportor := TIDTreeExcelExportor.Create;
    try
      Exportor.DefineCol(@ciLedger, Length(ciLedger));
      Exportor.HasLevelCode := True;
      Exportor.ExportToFile(CurProjectFrame.ProjectData.BillsCompileData.BillsCompileTree, sFileName);
    finally
      Exportor.Free;
    end;
  end;
end;

procedure TMainForm.dxSyncClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    FProjectManagerFrame.DoBatchReceiveAllOnline;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainForm.actnExportCloudTenderFileExecute(Sender: TObject);
var
  sFileName: string;
  Exportor: TTenderExport;
  Rec: TsdDataRecord;
begin
  // 导出前先保存
  CurProjectFrame.ProjectData.Save;
  // 导出云版专用
  sFileName := SupportManager.ConfigInfo.OutputPath + CurProjectFrame.ProjectData.ProjectName;
  if SaveFile(sFileName, '.ctf') then
  begin
    if FileExists(sFileName) and not QuestMessage(Format('存在同名文件“%s”，是否替换？', [ExtractFileName(sFileName)])) then
      Exit;

    Screen.Cursor := crHourGlass;
    try
      Rec := ProjectManagerFrame.Rec(CurProjectFrame.ProjectData.ProjectID);
      Exportor := TTenderExport.Create(Rec, sFileName);
      try
        Exportor.Execute;
      finally
        Exportor.Free;
      end;
    finally
      Screen.Cursor := crDefault;
    end;
  end;
end;

procedure TMainForm.actnExportCloudTenderFileUpdate(Sender: TObject);
begin
  // 仅打开的项目可以导出云版专用格式，且该项目没有进行计量
  TAction(Sender).Enabled := (jtsProjects.Tabs.Count > 1) and Assigned(CurProjectFrame);
  if TAction(Sender).Enabled then
    TAction(Sender).Enabled := CurProjectFrame.ProjectData.ProjProperties.PhaseCount = 0;
end;

procedure TMainForm.actnImportCloudTenderFileExecute(Sender: TObject);
var
  sFileName: string;
begin
  if SelectFile(sFileName, '.ctf') then
  begin
    CurProjectFrame.ProjectData.ImportCloudTenderFile(sFileName);
    CurProjectFrame.RefreshColumnDisplay;
  end;
end;

procedure TMainForm.actnImportCloudTenderFileUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := (jtsProjects.Tabs.Count > 1) and Assigned(CurProjectFrame);
  if TAction(Sender).Enabled then
    TAction(Sender).Enabled := CurProjectFrame.ProjectData.ProjProperties.PhaseCount = 0;
end;

procedure TMainForm.actnExportFxBillsExcelExecute(Sender: TObject);
var
  sFileName: string;
  Exportor: TIDTreeExcelExportor;
begin
  if SaveFile(sFileName, '.xls') then
  begin
    Exportor := TIDTreeExcelExportor.Create;
    try
      Exportor.DefineCol(@ciFxBills, Length(ciFxBills));
      Exportor.ExportToFile(CurProjectFrame.ProjectData.BillsCompileData.BillsCompileTree, sFileName);
    finally
      Exportor.Free;
    end;
  end;
end;

procedure TMainForm.dxseBatchInsertKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
  i: Integer;
begin
  if Key = 13 then
  begin
    for i := 1 to dxseBatchInsert.IntValue do
      ZjDbaInsert.ExecuteTarget(CurProjectFrame.BillsCompileFrame.zgBillsCompile);
  end;
end;

procedure TMainForm.actnReplyUpdate(Sender: TObject);
begin
  with CurProjectFrame.ProjectData do
    TAction(Sender).Enabled := (ProjProperties.PhaseCount > 0);
end;

procedure TMainForm.dxbtnTenderPartitionClick(Sender: TObject);
begin
  PartTendersModel;
end;

end.