BillsEditor/MF/MainForm.pas

unit MainForm;

interface

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  Graphics,
  Controls,
  Forms,
  Dialogs,
  dxBar,
  dxBarExtItems,
  ImgList,
  ActnList,
  ZjDbaActns,
  ComCtrls,
  ExtCtrls,
  AboutForm,
  JimPages,
  JimTabs,
  ConstVarUnit,
  BillsProjectFrame,
  ScProjectManager,
  ConstMethodUnit,
  ScPageControl,
  ScStdBillsCtrl,
  ToolWin,
  XPMenu,
  BMDThread,
  fraFileManagerFrame,
  dxsbar,
  ProjectFileManager,
  ScPHPWeb,
  AddLeafBillsFrm,
  BatchReplaceBillsFrm,
//  {$IFDEF _beOnLine}
//  , ScClientDM
//  {$ENDIF},

  SingleObjectAggregateUnit, Menus;

type
  TMainFrm = class(TForm)
    dxBarManager: TdxBarManager;
    ActionList: TActionList;
    dxNew: TdxBarButton;
    dxSave: TdxBarButton;
    dxBarButton7: TdxBarButton;
    acNew: TAction;
    acOpen: TAction;
    acSave: TAction;
    acSaveAs: TAction;
    imgsSmall: TImageList;
    dxCut: TdxBarButton;
    dxPaste: TdxBarButton;
    dxAdd: TdxBarButton;
    dxOpenWithHistory: TdxBarButton;
    dxMoveRight: TdxBarButton;
    dxMoveLeft: TdxBarButton;
    dxDelete: TdxBarButton;
    dxMoveUp: TdxBarButton;
    dxMoveDown: TdxBarButton;
    acExit: TAction;
    dxFile: TdxBarSubItem;
    dxEdit: TdxBarSubItem;
    dxBarListItem1: TdxBarListItem;
    dxGater: TdxBarSubItem;
    dxHelp: TdxBarSubItem;
    dxbNew: TdxBarButton;
    dxbOpen: TdxBarButton;
    dxbSave: TdxBarButton;
    dxbSaveAs: TdxBarButton;
    dxbExit: TdxBarButton;
    dxBarButton6: TdxBarButton;
    dxGather: TdxBarButton;
    acBillsManage: TAction;
    dxBillsManage: TdxBarButton;
    dxBarButton10: TdxBarButton;
    acImportExcel: TAction;
    acGatherBills: TAction;
    dxbImprotExcel: TdxBarButton;
    dxbGather: TdxBarButton;
    dxbCopy: TdxBarButton;
    dxbCut: TdxBarButton;
    dxbPaste: TdxBarButton;
    dxbLeft: TdxBarButton;
    dxbRight: TdxBarButton;
    dxbUp: TdxBarButton;
    dxbDown: TdxBarButton;
    dxbInsert: TdxBarButton;
    dxbDelete: TdxBarButton;
    dxCompany: TdxBarStatic;
    dxBarWord: TdxBarStatic;
    dxBarProgressItem: TdxBarProgressItem;
    ZjDbaInsert: TZjDbaInsert;
    ZjDbaDelete: TZjDbaDelete;
    ZjDbaUpMove: TZjDbaUpMove;
    ZjDbaDownMove: TZjDbaDownMove;
    ZjTreeDbaUpLevel: TZjTreeDbaUpLevel;
    ZjTreeDbaDownLevel: TZjTreeDbaDownLevel;
    ZjGridCopy: TZjGridCopy;
    ZjGridCut: TZjGridCut;
    ZjGridPaste: TZjGridPaste;
    dxBarButton1: TdxBarButton;
    acHelp: TAction;
    dxBarButton2: TdxBarButton;
    dxShowOptions: TdxBarButton;
    SaveDialog: TSaveDialog;
    acCopyBills: TAction;
    dxCopyBills: TdxBarButton;
    acCloseCurProject: TAction;
    xppCloseProject: TdxBarPopupMenu;
    dxBarButton5: TdxBarButton;
    dxbExportToExcel: TdxBarButton;
    actnExportToExcel: TAction;
    XPMenu: TXPMenu;
    ZjGridRemapedPaste: TZjGridRemapedPaste;
    dxRemapedPaste: TdxBarButton;
    actnShowOptions: TAction;
    dxProject: TdxBarSubItem;
    dxbSetOptions: TdxBarButton;
    actnClearAllQuantity: TAction;
    dxBarButton3: TdxBarButton;
    dxXiang: TdxBarButton;
    dxMu: TdxBarButton;
    dxJie: TdxBarButton;
    dxXiMu: TdxBarButton;
    dxLevel5: TdxBarButton;
    dxLevel6: TdxBarButton;
    dxAll: TdxBarButton;
    dxliLocateBills: TdxBarListItem;
    actnLocateBills: TAction;
    tmrAutoSave: TTimer;
    actnHisResPoint: TAction;
    dxBarButton4: TdxBarButton;
    actnSaveFixedPoint: TAction;
    dxBarSubItem1: TdxBarSubItem;
    dxBarButton8: TdxBarButton;
    dxBarButton9: TdxBarButton;
    dxSet: TdxBarSubItem;
    dxOperation: TdxBarSubItem;
    dxOnlyXMJ: TdxBarButton;
    btCheckServer: TBMDThread;
    tmrOnLine: TTimer;
    tmrEncrypt: TTimer;
    actnAuthorize: TAction;
    dxAuthorize: TdxBarButton;
    actnRemoveZeroQty: TAction;
    dxBarButton11: TdxBarButton;
    jpManager: TJimPages;
    jpManagerProject: TJimPage;
    jpManagerPage: TJimPage;
    jpsBillsProjects: TJimPages;
    Splitter1: TSplitter;
    pnlDock: TPanel;
    actnImportQtyItems: TAction;
    dxBarSubItem2: TdxBarSubItem;
    dxBarSubItem3: TdxBarSubItem;
    dxBarButton12: TdxBarButton;
    actnProjectBills: TAction;
    dxBarButton13: TdxBarButton;
    dxBarButton14: TdxBarButton;
    actnQtyBills: TAction;
    actnItems: TAction;
    ilstLarge: TImageList;
    xsbMain: TdxSideBar;
    Splitter2: TSplitter;
    Panel1: TPanel;
    jtsBillsProjects: TJimTabSet;
    tbBillsToolView: TToolBar;
    tbStdproject: TToolButton;
    tbQtyItems: TToolButton;
    dxBarButton15: TdxBarButton;
    dxBarButton16: TdxBarButton;
    actnStdBills: TAction;
    actnLocate: TAction;
    dxBarButton17: TdxBarButton;
    dxBarButton18: TdxBarButton;
    dxBarButton19: TdxBarButton;
    dxBarButton20: TdxBarButton;
    FileManagerFrame: TFileManagerFrame;
    actnMergeProject: TAction;
    actnSplitProject: TAction;
    dxBarSubItem4: TdxBarSubItem;
    dxBarButton21: TdxBarButton;
    dxBarButton22: TdxBarButton;
    actnShowBidLotAlias: TAction;
    dxBarButton23: TdxBarButton;
    actnExportStdItems: TAction;
    actnManagerStdItems: TAction;
    dxBarButton24: TdxBarButton;
    dxBarButton25: TdxBarButton;
    actnSelectGatherNodeByName: TAction;
    actnAbolishAllGatherChoose: TAction;
    dxBarButton26: TdxBarButton;
    dxBarButton27: TdxBarButton;
    actnCalculateAll: TAction;
    dxBarButton28: TdxBarButton;
    dxBarButton29: TdxBarButton;
    dxBarSubItem5: TdxBarSubItem;
    dxBarSubItem6: TdxBarSubItem;
    dxBarButton30: TdxBarButton;
    actnUndoText: TAction;
    dxBarButton31: TdxBarButton;
    dbbLocateFromProjectBills: TdxBarButton;
    actnLocateFromProjectBills: TAction;
    dbbLocateFromQtyBills: TdxBarButton;
    actnLocateFromQtyBills: TAction;
    xbUpdateMemo: TdxBarButton;
    xbGradeView: TdxBarButton;
    actnShowGradeView: TAction;
    xbGrade: TdxBarButton;
    actnGrade: TAction;
    xbStat: TdxBarButton;
    xbClearUserFlags: TdxBarButton;
    actnStat: TAction;
    actnClearUserFlags: TAction;
    dxBarSubItem7: TdxBarSubItem;
    dxBarSubItem8: TdxBarSubItem;
    xbQuantityError: TdxBarButton;
    xbLostLine: TdxBarButton;
    xbIgnoreCode: TdxBarButton;
    xbIgnoreName: TdxBarButton;
    xbIgnoreUnits: TdxBarButton;
    xbIgnoreQuantity: TdxBarButton;
    xbIgnoreSuperscale: TdxBarButton;
    xbIgnoreRepeatLine: TdxBarButton;
    xbIgnoreLostPre: TdxBarButton;
    xbIgnoreLostNext: TdxBarButton;
    xbIgnoreLostChild: TdxBarButton;
    dxBarSubItem9: TdxBarSubItem;
    xbNameError: TdxBarButton;
    xbUnitsError: TdxBarButton;
    xbCodeError: TdxBarButton;
    xbSuperscale: TdxBarButton;
    xbRepeatLine: TdxBarButton;
    xbGradeCurItem: TdxBarButton;
    actnGradeCurItem: TAction;
    xbClearAllUnitPrices: TdxBarButton;
    actnClearAllUnitPrice: TAction;
    dxBarButton32: TdxBarButton;
    actnGatherBillsQuantity: TAction;
    dxBarClearUnit: TdxBarButton;
    actClearUnit: TAction;
    actnShowRecycleBin: TAction;
    dxbtnShowRecycleBin: TdxBarButton;
    dxbtnShowStdXiang: TdxBarButton;
    dxbtnShowStdMu: TdxBarButton;
    dxbtnShowStdJie: TdxBarButton;
    dxbtnShowStdXiMu: TdxBarButton;
    dxbtnShowStdFiveLvl: TdxBarButton;
    dxbtnShowStdSixLvl: TdxBarButton;
    dxbtnShowStdAll: TdxBarButton;
    dxbtnLocateAtStdBills: TdxBarButton;
    actnLocateAtStdBills: TAction;
    dxbtnAddLeafBills: TdxBarButton;
    actnAddLeafBills: TAction;
    dxbtnBatchReplaceBillsData: TdxBarButton;
    actnBatchReplaceBillsData: TAction;
    dxbtnExportFlatExcel: TdxBarButton;
    actnExportFlatExcel: TAction;
    procedure acExitExecute(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure acHelpExecute(Sender: TObject);
    procedure acSaveExecute(Sender: TObject);
    procedure acSaveAsExecute(Sender: TObject);
    procedure acImportExcelExecute(Sender: TObject);
    procedure acSaveUpdate(Sender: TObject);
    procedure acImportExcelUpdate(Sender: TObject);
    procedure jtsBillsProjectsChange(Sender: TObject; NewTab: Integer;
      var AllowChange: Boolean);
    procedure acGatherBillsExecute(Sender: TObject);
    procedure acCopyBillsExecute(Sender: TObject);
    procedure acCloseCurProjectExecute(Sender: TObject);
    procedure jtsBillsProjectsMouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    procedure actnExportToExcelExecute(Sender: TObject);
    procedure pnlDockUnDock(Sender: TObject; Client: TControl;
      NewTarget: TWinControl; var Allow: Boolean);
    procedure actnShowOptionsExecute(Sender: TObject);
    procedure actnClearAllQuantityExecute(Sender: TObject);
    procedure dxXiangClick(Sender: TObject);
    // Added by GiLi 2012-3-19 16:10:31
    // 标准清单的层次显示
    procedure dxStdXiangClick(Sender: TObject);
    procedure actnLocateBillsExecute(Sender: TObject);
    procedure tmrAutoSaveTimer(Sender: TObject);
    procedure actnHisResPointExecute(Sender: TObject);
    procedure actnSaveFixedPointExecute(Sender: TObject);
    procedure dxOnlyXMJClick(Sender: TObject);
    procedure ZjDbaDeleteExecute(Sender: TObject);
    procedure ZjDbaDeleteUpdate(Sender: TObject);
    procedure btCheckServerExecute(Sender: TObject;
      Thread: TBMDExecuteThread; var Data: Pointer);
    procedure btCheckServerTerminate(Sender: TObject;
      Thread: TBMDExecuteThread; var Data: Pointer);
    procedure tmrOnLineTimer(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure tmrEncryptTimer(Sender: TObject);
    procedure actnAuthorizeExecute(Sender: TObject);
    procedure actnRemoveZeroQtyExecute(Sender: TObject);
    procedure acBillsManageExecute(Sender: TObject);
    procedure acBillsManageUpdate(Sender: TObject);
    procedure actnImportQtyItemsExecute(Sender: TObject);
    procedure actnProjectBillsExecute(Sender: TObject);
    procedure actnQtyBillsExecute(Sender: TObject);
    procedure actnItemsExecute(Sender: TObject);
    procedure actnItemsUpdate(Sender: TObject);
    procedure actnQtyBillsUpdate(Sender: TObject);
    procedure actnProjectBillsUpdate(Sender: TObject);
    procedure xsbMainItemClick(Sender: TObject; Item: TdxSideBarItem);
    procedure actnStdBillsExecute(Sender: TObject);
    procedure actnLocateExecute(Sender: TObject);
    procedure dxBarButton17Click(Sender: TObject);
    procedure actnRemoveZeroQtyUpdate(Sender: TObject);
    procedure actnStdBillsUpdate(Sender: TObject);
    procedure acExitUpdate(Sender: TObject);
    procedure actnMergeProjectExecute(Sender: TObject);
    procedure actnMergeProjectUpdate(Sender: TObject);
    procedure actnSplitProjectUpdate(Sender: TObject);
    procedure actnSplitProjectExecute(Sender: TObject);
    procedure FileManagerFrameactnExportProjectUpdate(Sender: TObject);
    procedure actnShowBidLotAliasExecute(Sender: TObject);
    procedure actnShowBidLotAliasUpdate(Sender: TObject);
    procedure actnExportStdItemsExecute(Sender: TObject);
    procedure actnManagerStdItemsExecute(Sender: TObject);
    procedure actnSelectGatherNodeByNameUpdate(Sender: TObject);
    procedure actnSelectGatherNodeByNameExecute(Sender: TObject);
    procedure actnAbolishAllGatherChooseExecute(Sender: TObject);
    procedure actnCalculateAllExecute(Sender: TObject);
    procedure actnUndoTextExecute(Sender: TObject);
    procedure actnUndoTextUpdate(Sender: TObject);
    procedure actnLocateFromProjectBillsExecute(Sender: TObject);
    procedure actnLocateFromQtyBillsExecute(Sender: TObject);
    procedure actnLocateFromQtyBillsUpdate(Sender: TObject);
    procedure xbUpdateMemoClick(Sender: TObject);
    procedure actnShowGradeViewUpdate(Sender: TObject);
    procedure actnShowGradeViewExecute(Sender: TObject);
    procedure actnGradeExecute(Sender: TObject);
    procedure actnStatExecute(Sender: TObject);
    procedure actnClearUserFlagsExecute(Sender: TObject);
    procedure actnGradeUpdate(Sender: TObject);
    procedure actnStatUpdate(Sender: TObject);
    procedure actnClearUserFlagsUpdate(Sender: TObject);
    procedure xbQuantityErrorClick(Sender: TObject);
    procedure xbLostLineClick(Sender: TObject);
    procedure xbIgnoreCodeClick(Sender: TObject);
    procedure xbIgnoreNameClick(Sender: TObject);
    procedure xbIgnoreUnitsClick(Sender: TObject);
    procedure xbIgnoreQuantityClick(Sender: TObject);
    procedure xbIgnoreSuperscaleClick(Sender: TObject);
    procedure xbIgnoreRepeatLineClick(Sender: TObject);
    procedure xbIgnoreLostPreClick(Sender: TObject);
    procedure xbIgnoreLostNextClick(Sender: TObject);
    procedure xbIgnoreLostChildClick(Sender: TObject);
    procedure xbNameErrorClick(Sender: TObject);
    procedure xbUnitsErrorClick(Sender: TObject);
    procedure xbCodeErrorClick(Sender: TObject);
    procedure xbSuperscaleClick(Sender: TObject);
    procedure xbRepeatLineClick(Sender: TObject);
    procedure actnGradeCurItemExecute(Sender: TObject);
    procedure actnGradeCurItemUpdate(Sender: TObject);
    procedure actnClearAllUnitPriceExecute(Sender: TObject);
    procedure actnClearAllUnitPriceUpdate(Sender: TObject);
    procedure actnGatherBillsQuantityExecute(Sender: TObject);
    procedure actClearUnitUpdate(Sender: TObject);
    procedure actClearUnitExecute(Sender: TObject);
    procedure actnShowRecycleBinExecute(Sender: TObject);
    procedure actnLocateAtStdBillsUpdate(Sender: TObject);
    procedure actnLocateAtStdBillsExecute(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure acCopyBillsUpdate(Sender: TObject);
    procedure ZjGridPasteUpdate(Sender: TObject);
    procedure actnAddLeafBillsExecute(Sender: TObject);
    procedure actnBatchReplaceBillsDataExecute(Sender: TObject);
    procedure actnBatchReplaceBillsDataUpdate(Sender: TObject);
    procedure actnExportFlatExcelExecute(Sender: TObject);
  private
    function GetAutoSave: Boolean;
    function GetSaveInteval: Integer;
    procedure SetAutoSave(const Value: Boolean);
    procedure SetSaveInteval(const Value: Integer);
  private
    FOpening: Boolean;
    FDirPath: string;
    FUnitList: TStringList;
    {$IFDEF _beOnLine}
    FCheckServerErr: Boolean;
    {$ENDIF}
    FBillsProjectManager: TProjectManager;
    FProjectFileManager: TProjectFileMgr;
    FStdBillsCtrl: TStdBillsCtrl;
    FIsSave: Boolean;

    function GetPosition: Integer;
    procedure SetPosition(const Value: Integer);
    procedure SetCaption(const aTabName: string);
    property prgPosition: Integer read GetPosition write SetPosition;
    {hint}
    


    procedure ReadUnitList(AStringList: TStrings);
    function GetAcitveProject: TProject;


    property AutoSaveProjects: Boolean read GetAutoSave write SetAutoSave;
    property AutoSaveInterval: Integer read GetSaveInteval write SetSaveInteval;

    procedure CMIncProgress(var Msg: TMessage); message SM_ProgressInc;
    procedure CMDisplayStdBillsLib(var Msg: TMessage); message SM_StdBillsLib;
    procedure CMCheckProjectOpened(var Msg: TMessage); message SM_CheckProject;
    procedure CMLocateBills(var Msg: TMessage); message SM_LocateBills;
    procedure CMAutoSaveProjects(var Msg: TMessage); message SM_AutoSaveProjects;
    procedure HideStdBillsForm;
    procedure ShowStdBillsForm(aPage: Integer);

    {$IFDEF _beOnLine}
    procedure SyncCheckServerErr(Sender: TObject);
    {$ENDIF}
    function ExportBuildProject(const aShortName: string; aIsMerge: Boolean): Boolean;
    procedure RefreshSplitBidLot(aProject: TObject);
    {Argument is fullpath}
    function LocateProject(const aIdx: Integer; aIsOpen: Boolean): Boolean;
    procedure OpenProject(const AFileName, AShortName: string; aProjType, aID: Integer);
    {Argument is shortname}
    procedure CloseProject(aProject: TObject);
    procedure CloseProjectByID(AID: Integer);
    {save project}
    procedure SaveProject(aCreatePoint: Boolean; aFixed: Boolean = False);
    {New delete}
    procedure DeleteBills;
    procedure DeleteRecords;

    {Clear Cur Bills Quantity and the DrawQtys}
    procedure ClearCurNodeQty;
    {Remove Bills which is Zero}
    procedure RemoveZeroQtyBills;
    { FXQD }
    procedure ExportStdItems(aFileFlag: Integer);
    { Select GahterNode By Name }
    procedure SelectGatherNodeByName;
    procedure AbolishAllGatherChoose;
    { Calculate All }
    procedure CalculateAll;
  public
    { Public declarations }
    // 别的单元要使用这两个方法
    procedure EndUserOperation;
    procedure BeginUserOperation(const TextWord: string);
    // chenshilong, 2011-01-12 11:02:24
    procedure GetGatherProjects(ASL: TStringList);
    property ProjectManager: TProjectManager read FBillsProjectManager;
    property ProjectFileManager: TProjectFileMgr read FProjectFileManager;
    property StdBillsCtrl: TStdBillsCtrl read FStdBillsCtrl;
    // 另外单元要使用这个属性。2012.1.10 HXY
    property CurProject: TProject read GetAcitveProject;
    property DirPath: string read FDirPath;
    property IsSave: Boolean read FIsSave write FIsSave;
  end;

var
  MainFrm: TMainFrm;

implementation

uses
  ConstTypeUnit, ScOptionsFrm, ScConfig, HisRestorePointFrm,
  ZjGrid, ZjGridDBA, NewProjectFrm, ExportExFrm,
  ProjectMergeSplitUnit
  {$IFDEF _beEncrypt}
  , ScEncryptUnit, ScAuthFrm
  {$ENDIF},
  StdLibsManagerFrm, BidLotAliasFrm, ShellAPI,
  ScProgressFrm, ScCustomSetErrorFrm, ScReportsFrm,
  RecycleBinFrm, DataBase;

{$R *.dfm}

procedure TMainFrm.acExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TMainFrm.FormCreate(Sender: TObject);
begin
  FProjectFileManager := TProjectFileMgr.Create;
  FProjectFileManager.CloseProjectProc := CloseProject;
  FProjectFileManager.OpenProjectProc := OpenProject;
  FileManagerFrame.ProjectFileMgr := FProjectFileManager;

  FBillsProjectManager := TProjectManager.Create;
  FProjectFileManager.ProjectManager := FBillsProjectManager;
  FDirPath := Format('%s\我的清单\', [ExtractFileDir(ParamStr(0))]);

  FStdBillsCtrl := TStdBillsCtrl.Create(FBillsProjectManager);
  { TODO : online }
  {$IFDEF _beOnLine}
  FCheckServerErr := False;
  tmrOnLine.Enabled := True;
  {$ENDIF}
  SetCaption('项目管理');
  
  jpManager.ActivePageIndex := 1;
  xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[0];

  FUnitList := TStringList.Create;
  ReadUnitList(FUnitList);
  {set auto save}
  AutoSaveInterval := ScConfigInfo.AutoSaveInterval;
  AutoSaveProjects := ScConfigInfo.AutoSaveProjects;

  {$IFDEF _beEncrypt}
  tmrEncrypt.Enabled := True;
  {$ELSE}
  dxAuthorize.Action := nil;
  dxAuthorize.Visible := ivNever;
  {$ENDIF}
//  ActiveControl := FileManagerFrame.zgGatherBid;

  // Modified by GiLi 2012-3-18 13:22:30
  // 屏蔽 清单评分
  xbGradeView.Visible := ivNever;
  xbGrade.Visible := ivNever;
  xbGradeCurItem.Visible := ivNever;
end;

procedure TMainFrm.FormDestroy(Sender: TObject);
begin
  FProjectFileManager.Free;
  FBillsProjectManager.Free;
  FStdBillsCtrl.Free;
  FUnitList.Free;
  {$IFDEF _beOnLine}
  if not FCheckServerErr then
    PHPWeb.Logout;
  {$ENDIF}

  {$IFDEF _beEncrypt}
  tmrEncrypt.Enabled := False;
  SaveDog;
  {$ENDIF}
end;

procedure TMainFrm.acHelpExecute(Sender: TObject);
var
  AboutFrm: TAboutFrm;
begin
  AboutFrm := TAboutFrm.Create(nil);
  try
    AboutFrm.ShowModal;
  finally
    AboutFrm.Free;
  end;
end;

procedure TMainFrm.acSaveExecute(Sender: TObject);
begin
  SaveProject(True);
end;

procedure TMainFrm.acSaveAsExecute(Sender: TObject);
begin
  BeginUserOperation(sSaveAsWord);
  Screen.Cursor := crHourGlass;
  SaveDialog.InitialDir := FDirPath;
  try
    if SaveDialog.Execute then
    begin
      CurProject.SaveAs(SaveDialog.FileName);
    end;
  finally
    Screen.Cursor := crDefault;
    EndUserOperation;
  end;
end;

procedure TMainFrm.BeginUserOperation(const TextWord: string);
begin
  dxBarWord.Caption := TextWord;
  Application.ProcessMessages;
end;

procedure TMainFrm.EndUserOperation;
begin
  dxBarWord.Caption := sInitWord;
  Update;
end;

procedure TMainFrm.CMIncProgress(var Msg: TMessage);
begin
  prgPosition := prgPosition + Msg.WParam;
  if prgPosition >= 100 then prgPosition := 0;
end;

function TMainFrm.GetPosition: Integer;
begin
  Result := dxBarProgressItem.Position;
end;

procedure TMainFrm.SetPosition(const Value: Integer);
begin
  dxBarProgressItem.Position := Value;
  Update;
end;

function TMainFrm.GetAcitveProject: TProject;
begin
  if Assigned(FBillsProjectManager) then
    Result := FBillsProjectManager.ActiveProject
  else Result := nil;
end;

procedure TMainFrm.acImportExcelExecute(Sender: TObject);
var
  strFileName: string;
begin
  if OpenFileDialog('导入', '.xls', '', 'Excel files (*.xls)|*.xls', strFileName) then
  begin
    if MessageBox(0, PChar(sImportExcelHint), PChar(sQuestTip),
      MB_YESNO or MB_ICONQUESTION) = IDNO then Exit;

    Screen.Cursor := crHourGlass;
    BeginUserOperation(sImportExcel);
    try
      CurProject.ImportExcelFile(strFileName);
    finally
      EndUserOperation;
      Screen.Cursor := crDefault;
    end;
  end;
end;

procedure TMainFrm.acSaveUpdate(Sender: TObject);
begin
  acSave.Enabled := Assigned(CurProject) {and CurProject.NeedSaveDatabase};
end;

procedure TMainFrm.acImportExcelUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             {and
                             (CurProject.ProjectView.JimPages.ActivePageIndex = 0)};
end;

procedure TMainFrm.ReadUnitList(AStringList: TStrings);
var
  I: Integer;
begin
  AStringList.Clear;
  for I := Low(UnitsArray) to High(UnitsArray) do
  begin
    AStringList.Add(UnitsArray[I]);
//    AStringList.Add(ConvertUnitStr(UnitsArray[I]));
  end;
end;

procedure TMainFrm.jtsBillsProjectsChange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  if FOpening then Exit;

  if NewTab = 0 then
  begin
    jpManager.ActivePageIndex := 1;
    SetCaption(jtsBillsProjects.Tabs[NewTab]);
  end
  else
    LocateProject(NewTab - 1, False);
end;

procedure TMainFrm.acGatherBillsExecute(Sender: TObject);

  procedure CheckSelectedBeforeGather;
  begin
    with CurProject.BillsData do
      if not HasSelected then
      begin
        if MessageQuest('该项目没有选择汇总项,是否需要自动打勾?') then
          SelectGatherNode(XMJBillsTree.FirstNode, True);
      end;
  end;

var
  iID: Integer;
  sGatherName: string;
  strFilePath: string;
  iProjectType, iProjKind, iGatherID: Integer;
  aProject, nProject: TProject;
begin
  {$IFDEF _beEncrypt}
  DelayCheckDog;
  CheckDogErrorCountAndHint;
  {$ENDIF}
  CheckSelectedBeforeGather;
  CurProject.CheckBeforeGather;
  
  sGatherName := Format('%s[项目清单]', [jtsBillsProjects.Tabs[jtsBillsProjects.TabIndex]]);
  iProjectType := FBillsProjectManager.ActiveProject.ProjectType;
  if not NewProjectInfo(nil, sGatherName, iProjectType, iProjKind, iGatherID) then Exit;

  strFilePath := FProjectFileManager.CreateNewProject(sGatherName, iID, CurProject.GetGatherID);
  Application.ProcessMessages;

  Screen.Cursor := crHourGlass;
  BeginUserOperation(sGatherWord);
  
  aProject := FBillsProjectManager.ActiveProject;
  nProject := FBillsProjectManager.CreateNewProject(strFilePath, sGatherName, FStdBillsCtrl, iProjectType, iID);
  nProject.ProjectView.Project{.BillsData} := nil;
  IncProgressUI(15);
  try
    if not aProject.GatherProject(nProject) then
    begin
      IncProgressUI(80);
      MessageHint(0, sGatherError);
      DeleteFile(Format('%s%s.smb', [FDirPath, sGatherName]));
    end;
  finally
    FBillsProjectManager.RemoveProject(nProject, aProject);

    EndUserOperation;
    Screen.Cursor := crDefault;
    IncProgressUI(100);
  end;

  
end;

procedure TMainFrm.acCopyBillsExecute(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  BeginUserOperation(sCopyBills);
  try
    CurProject.ProjectView.CopyBills;
  finally
    EndUserOperation;
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.acCloseCurProjectExecute(Sender: TObject);
begin
  CloseProject(CurProject);
end;

procedure TMainFrm.jtsBillsProjectsMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  if (Button = mbRight) and (jtsBillsProjects.TabIndex <> 0) then
    xppCloseProject.PopupFromCursorPos;
end;

procedure TMainFrm.ShowStdBillsForm(aPage: Integer);
begin
  LockWindowUpdate(Handle);
  try
    if not pnlDock.Visible then
    begin
      FStdBillsCtrl.StdBillsLibFrm.ManualDock(pnlDock, nil, alClient);
      pnlDock.Visible := True;
      Splitter1.Visible := True;
      FStdBillsCtrl.StdBillsLibFrm.ShowPage(aPage);
    end
    else
    begin
      if FStdBillsCtrl.StdBillsLibFrm.GetPageIdx = aPage then
        HideStdBillsForm
      else
      begin
        if aPage = 0 then
          tbQtyItems.Down := False
        else
          tbStdproject.Down := False;
        FStdBillsCtrl.StdBillsLibFrm.ShowPage(aPage);
      end;
    end;
  finally
    LockWindowUpdate(0);
  end;
end;

procedure TMainFrm.actnExportToExcelExecute(Sender: TObject);
var
  sFileName, sProjName, sFullName: string;
  strBidLot, strProjBills: TStrings;
begin
  BeginUserOperation(sExportExcel);
  strBidLot := TStringList.Create;
  strProjBills := TStringList.Create;
  try
    if CurProject.Flag <> 1 then
    begin
      FProjectFileManager.GetNameByID(CurProject.ID, sProjName, sFullName);
      strBidLot.AddObject(sProjName, Pointer(sFullName));
      FProjectFileManager.GetBidLotsByID(CurProject.ID, strProjBills);

      if not ExportExForm(strBidLot, strProjBills) then Exit;
      Application.ProcessMessages;
    end;

    sFileName := GetSaveFile;
    if not CheckFileEnabled(sFileName) then Exit;
    Application.ProcessMessages;

    Screen.Cursor := crHourGlass;
    try
      CurProject.ExportExcel(FBillsProjectManager, sFileName, strBidLot, CurProject.Flag);
      {$IF Not DEFINED(_beEncrypt) and not DEFINED(_beOnLine)}
      MessageHint(Handle, '导出成功! 学习版仅导出100行!');
      {$IFEND}
    finally
      Screen.Cursor := crDefault;
    end;
  finally
    strBidLot.Free;
    strProjBills.Free;
    EndUserOperation;
  end;
end;

procedure TMainFrm.pnlDockUnDock(Sender: TObject; Client: TControl;
  NewTarget: TWinControl; var Allow: Boolean);
begin
  pnlDock.Visible := False;
  Splitter1.Visible := False;
end;

procedure TMainFrm.CMDisplayStdBillsLib(var Msg: TMessage);
begin
  tbStdproject.Down := False;
  pnlDock.Visible := False;
  Splitter1.Visible := False;
  FStdBillsCtrl.StdBillsLibFrm.Hide;
end;

procedure TMainFrm.CMCheckProjectOpened(var Msg: TMessage);
var
  strName: string;
begin
  strName := String(Msg.LParam);
  Msg.Result := FBillsProjectManager.CheckProjectExists(strName);
  if Msg.Result = -1 then Exit;
  if Msg.WParam <> -1 then
  begin
    if FBillsProjectManager.LocateProject(Msg.Result) then
    begin
      jtsBillsProjects.TabIndex := Msg.Result;
      jpsBillsProjects.ActivePageIndex := Msg.Result;
      SetCaption(jtsBillsProjects.Tabs[Msg.Result]);
//      Caption := Format('%s - [%s]', [SoftWareName, jtsBillsProjects.Tabs[Msg.Result]]);
    end;
  end;
end;

procedure TMainFrm.OpenProject(const AFileName, AShortName: string; aProjType, aID: Integer);
var
  idx: Integer;
  jimPage: TJimPage;
begin
  {check file is opened}
  if not FileExists(AFileName) then
    raise Exception.Create('文件不存在.');
  idx := FBillsProjectManager.CheckProjectExists(AFileName);
  if LocateProject(idx, True) then Exit;

  BeginUserOperation(sOpenWord);
  IncProgressUI(10);
  FBillsProjectManager.CreateNewProject(AFileName, AShortName, FStdBillsCtrl,
                                        aProjType, aID);
  CurProject.ParentID := FProjectFileManager.GetParentID(aID);
  CurProject.Flag := FProjectFileManager.GetProjectFlag(aID);
  if CurProject.Flag = 1 then
    RefreshSplitBidLot(CurProject);

  IncProgressUI(35);

  FOpening := True;
  LockWindowUpdate(Handle);
  try
    idx := jtsBillsProjects.Tabs.Add(AShortName);
    if (idx > 0) and (idx < jtsBillsProjects.Tabs.Count) then
      jtsBillsProjects.TabIndex := idx
    else
      jtsBillsProjects.TabIndex := 0;
      
    IncProgressUI(10);
    jimPage := TJimPage.Create(nil);
    jimPage.Pages := jpsBillsProjects;
    CurProject.ProjectView.Parent := jimPage;
    jpsBillsProjects.ActivePage := jimPage;
    IncProgressUI(15);
    CurProject.ProjectView.Align := alClient;
    CurProject.ProjectView.UnitsList := FUnitList;
    CurProject.ProjectView.Visible := True;
    CurProject.ProjectView.AdjustControlsSize;
    jpManager.ActivePageIndex := 0;
    IncProgressUI(20);
    SetCaption(AShortName);
    IncProgressUI(10);
    xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[0];
    CurProject.Navigation := 0;
    HideStdBillsForm;
  finally
    LockWindowUpdate(0);
    FOpening := False;
  end;
  EndUserOperation;
end;

procedure TMainFrm.actnShowOptionsExecute(Sender: TObject);
var
  frmOptions: TfrmOptions;
begin
  frmOptions := TfrmOptions.Create(nil);
  try
    frmOptions.ShowModal;
  finally
    frmOptions.Free;
  end;
end;

procedure TMainFrm.actnClearAllQuantityExecute(Sender: TObject);
begin
//  CurProject.BillsData.ClearCurNodeQty;
  ExcuteTemplateMethod(@TMainFrm.ClearCurNodeQty, Self);
end;

procedure TMainFrm.dxXiangClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  CurProject.ProjectView.BeginUpdate;
  try
    CurProject.BillsData.ShowLevel(TdxBarButton(Sender).Tag);
  finally
    CurProject.ProjectView.EndUpdate;
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.CMLocateBills(var Msg: TMessage);
begin                     
  Msg.Result := Integer(dxliLocateBills.Items);
end;

procedure TMainFrm.actnLocateBillsExecute(Sender: TObject);
var
  iBillsID: Integer;
begin
  iBillsID := Integer(dxliLocateBills.Items.Objects[dxliLocateBills.ItemIndex]);
  if iBillsID > 0 then
  begin
    CurProject.BillsData.LocateBills(iBillsID);
  end;
end;

procedure TMainFrm.CMAutoSaveProjects(var Msg: TMessage);
begin
  AutoSaveInterval := Msg.LParam;
  AutoSaveProjects := Msg.WParam <> 0;
end;

function TMainFrm.GetAutoSave: Boolean;
begin
  Result := tmrAutoSave.Enabled;
end;

function TMainFrm.GetSaveInteval: Integer;
begin
  Result := tmrAutoSave.Interval;
end;

procedure TMainFrm.SetAutoSave(const Value: Boolean);
begin
  tmrAutoSave.Enabled := Value;
end;

procedure TMainFrm.SetSaveInteval(const Value: Integer);
begin
  tmrAutoSave.Interval := Value * 60 * 1000;
end;

procedure TMainFrm.tmrAutoSaveTimer(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    FBillsProjectManager.SaveProjects(ScConfigInfo.SaveAllProjects,
                                      ScConfigInfo.SaveRestorePoint);
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actnHisResPointExecute(Sender: TObject);
var
  frmRestorePoint: TfrmRestorePoint;
begin
  frmRestorePoint := TfrmRestorePoint.Create(nil);
  try
    frmRestorePoint.OpenProjectProc := OpenProject;
    frmRestorePoint.CloseProjectProc := CloseProject;
    frmRestorePoint.Project := CurProject;
    frmRestorePoint.ShowModal;
  finally
    frmRestorePoint.Free;
  end;
end;

procedure TMainFrm.CloseProject(aProject: TObject);
var
  idx: Integer;
  bCanClose: Boolean;
begin
  idx := FBillsProjectManager.RemoveProjectForClose(bCanClose, TProject(aProject), nil, True);
  if (idx = -1) or (not bCanClose) then Exit;

  CloseProjectByID(idx);
end;

function TMainFrm.LocateProject(const aIdx: Integer; aIsOpen: Boolean): Boolean;
begin
  Result := False;
  if FBillsProjectManager.LocateProject(aIdx) then
  begin
    jpsBillsProjects.ActivePageIndex := aIdx;
    jpManager.ActivePageIndex := 0;
    xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[CurProject.Navigation];
    CurProject.ProjectView.SetGridFocus(CurProject.Navigation);
    TStdBillsCtrl(CurProject.StdBillsCtrl).DMStdBillsLib.RefreshCustomStep;
    if aIsOpen then jtsBillsProjects.TabIndex := aIdx + 1;
    SetCaption(jtsBillsProjects.Tabs[aIdx + 1]);
    HideStdBillsForm;
    FStdBillsCtrl.StdBillsLibFrm.ClearFilter;
    Result := True;
  end;
end;

procedure TMainFrm.actnSaveFixedPointExecute(Sender: TObject);
begin
  SaveProject(True, True);
end;

procedure TMainFrm.SaveProject(aCreatePoint: Boolean; aFixed: Boolean);
begin
  BeginUserOperation(sSaveWord);
  Screen.Cursor := crHourGlass;
  try
    CurProject.Save(aCreatePoint, aFixed);
  finally
    Screen.Cursor := crDefault;
    EndUserOperation;
  end;
end;

procedure TMainFrm.dxOnlyXMJClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  CurProject.ProjectView.BeginUpdate;
  try
  //  CurProject.BillsData.CheckTree(CurProject.BillsData.BillsTree.FirstNode);
    CurProject.BillsData.OnlyShowXMJ;
  finally
    CurProject.ProjectView.EndUpdate;
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.DeleteRecords;
begin
  if SameText(ZjDbaDelete.GridDba.Grid.Name, 'zgBills') then
  begin
    if MessageQuest(sDeleteBillsHint) then
    begin
      CurProject.ProjectView.CopyBillsToRecycleBin;
      DeleteBills;
    end;
  end
  else
    ZjDbaDelete.ExecuteTarget(ZjDbaDelete.GridDba.Grid);
end;

procedure TMainFrm.DeleteBills;
var
  iBillsCount, iPreID, iLastID, iParentID: Integer;
  strList: TStringList;
begin
  strList := TStringList.Create;
  try
    iBillsCount := CurProject.ProjectView.GetSelection(strList, iPreID, iLastID, iParentID);
    if iBillsCount > 0 then
    begin
      CurProject.BillsData.DeleteBills(strList, iPreID, iLastID, iParentID);
    end;
  finally
    strList.Free;
  end;
end;

procedure TMainFrm.ZjDbaDeleteExecute(Sender: TObject);
begin
//  DeleteRecords;
  {对象方法需要传自身做为EAX}
  ExcuteTemplateMethod(@TMainFrm.DeleteRecords, Self);
end;

procedure TMainFrm.ZjDbaDeleteUpdate(Sender: TObject);
var
  I: Integer;
begin
  ZjDbaDelete.GridDba := nil;
  if Screen.ActiveControl is TZjGrid then
  begin
    with Screen.ActiveControl as TZJGrid do
    begin
      for I := 0 to HelpmateCount - 1 do
        if Helpmates[I] is TZjGridDba then
        begin
          ZjDbaDelete.GridDba := TZjGridDBA(Helpmates[I]);
          Break;
        end;
    end;
  end;

  ZjDbaDelete.Enabled := (ZjDbaDelete.GridDba <> nil)
                         and
                         ZjDbaDelete.GridDba.CanDelete
                         and
                         (jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.ClearCurNodeQty;
begin
  if MessageQuest(sClearBillsQtyHint) then
    CurProject.BillsData.ClearCurNodeQty;
end;

{$IFDEF _beOnLine}
procedure TMainFrm.SyncCheckServerErr(Sender: TObject);
begin
  MessageWarning(0, sLoginFailed , sErrorTip, MB_OK);

  FCheckServerErr := True;
  Application.Terminate;
end;
{$ENDIF}

procedure TMainFrm.btCheckServerExecute(Sender: TObject;
  Thread: TBMDExecuteThread; var Data: Pointer);
begin
  {$IFDEF _beOnLine}
  if (not PHPWeb.CheckOnLine) then
  begin
    Thread.Synchronize(SyncCheckServerErr);
  end;
  {$ENDIF}
end;

procedure TMainFrm.btCheckServerTerminate(Sender: TObject;
  Thread: TBMDExecuteThread; var Data: Pointer);
begin
  {$IFDEF _beOnLine}
  btCheckServer.Stop;
  {$ENDIF}
end;

procedure TMainFrm.tmrOnLineTimer(Sender: TObject);
begin
  {$IFDEF _beOnLine}
  if not btCheckServer.Runing then
    btCheckServer.Start;
  {$ENDIF}
end;

procedure TMainFrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  {$IFDEF _beOnline}
  tmrOnLine.Enabled := False;
  if btCheckServer.Runing then
    btCheckServer.Stop;
  {$ENDIF}
end;

procedure TMainFrm.tmrEncryptTimer(Sender: TObject);
begin
  {$IFDEF _beEncrypt}
  DelayCheckDog;
  CheckDogErrorCountAndHint;
  {$ENDIF}
end;

procedure TMainFrm.actnAuthorizeExecute(Sender: TObject);
begin
  {$IFDEF _beEncrypt}
  Authorize;
  {$ELSE}
  MessageHint(Handle, sWelcomeText);
  {$ENDIF}
end;

procedure TMainFrm.actnRemoveZeroQtyExecute(Sender: TObject);
begin
  if MessageQuest(sRemoveBillsZeorQty) then
    ExcuteTemplateMethod(@TMainFrm.RemoveZeroQtyBills, Self);
end;

procedure TMainFrm.RemoveZeroQtyBills;
begin
  CurProject.BillsData.RemoveZeroQtyBills;
end;

procedure TMainFrm.acBillsManageExecute(Sender: TObject);
begin
  jpManager.ActivePageIndex := Integer(jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.acBillsManageUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := jtsBillsProjects.Tabs.Count > 0;
end;

procedure TMainFrm.actnImportQtyItemsExecute(Sender: TObject);
var
  strFileName: string;
begin
  if OpenFileDialog('导入', '.xls', '', 'Excel files (*.xls)|*.xls', strFileName) then
  begin
    Screen.Cursor := crHourGlass;
    BeginUserOperation(sImportExcel);
    try
      CurProject.ImportQtyItems(strFileName);
    finally
      EndUserOperation;
      Screen.Cursor := crDefault;
    end;
  end;
end;

procedure TMainFrm.actnProjectBillsExecute(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  LockWindowUpdate(Handle);
  CurProject.ProjectView.BeginUpdate;
  try
    xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[1];
    CurProject.Navigation := 1;
    HideStdBillsForm;
    CurProject.BillsData.EnterXMJBills;
    CurProject.ProjectView.EnterXMJBills;
    CurProject.BillsData.IsProjectBills := True;
    CurProject.ProjectView.ActivePage := 2;
  finally
    CurProject.ProjectView.EndUpdate;
    LockWindowUpdate(0);
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actnQtyBillsExecute(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  LockWindowUpdate(Handle);
  try
    xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[2];
    CurProject.Navigation := 2;
    HideStdBillsForm;
    if CurProject.ProjectView.CanRefreshQtyItem then
   // if CurProject.ProjectView.ActivePage = 0 then
      CurProject.DetailItemsDM.RefreshPQItems;
    CurProject.ProjectView.ActivePage := 1;
    CurProject.BillsData.LeaveXMJBills;
    CurProject.ProjectView.LeaveXMJBills;
    CurProject.BillsData.IsProjectBills := False;     
  finally
    LockWindowUpdate(0);
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actnItemsExecute(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  LockWindowUpdate(Handle);
  try
    xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[0];
    CurProject.Navigation := 0;
    CurProject.BillsData.LeaveXMJBills;
    CurProject.ProjectView.LeaveXMJBills;
    CurProject.BillsData.IsProjectBills := False;
    CurProject.ProjectView.ActivePage := 0;
  finally
    LockWindowUpdate(0);
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actnItemsUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and (jpManager.ActivePageIndex = 0)
                             and (CurProject.ProjectView.ActivePage <> 0);
end;

procedure TMainFrm.actnQtyBillsUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and (jpManager.ActivePageIndex = 0)
                             and (CurProject.ProjectView.ActivePage <> 1);
end;

procedure TMainFrm.actnProjectBillsUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and (jpManager.ActivePageIndex = 0)
                             and (CurProject.ProjectView.ActivePage <> 2);
end;

procedure TMainFrm.xsbMainItemClick(Sender: TObject; Item: TdxSideBarItem);
var s: string;
begin
  case Item.Tag of
    0: actnItems.Execute;
    1: actnQtyBills.Execute;
    2: actnProjectBills.Execute;
    {3:
    begin
      ShowReportForm(FBillsProjectManager.ActiveProject);
      xsbMain.SelectedItem := xsbMain.ActiveGroup.Items.Items[0];
      actnItems.Execute;
    end;}
    3:
    begin
      s := '此处报表预览功能已取消。' + #10#13 +
        '如需预览报表数据，请从“文件”菜单下的“导出”—>“导出三级清单”导出EXCEL数据；' + #10#13 +
        '如需打印报表，请将导出的EXCEL文件在EXCEL软件中设置打印区域和打印标题，或者将项目' + #10#13 +
        '导入到编审系统中进行打印报表。';

      MessageHint(0, s);
      xsbMain.SelectedItem := xsbMain.Groups[0].Items[0];
      actnItems.Execute;
      Exit;
//      FBillsProjectManager.ActiveProject.BillsData.Save;
//      DisplayReports(FBillsProjectManager.ActiveProject);
    end;
  end;
end;

procedure TMainFrm.actnStdBillsExecute(Sender: TObject);
begin
  ShowStdBillsForm(0);
end;

procedure TMainFrm.actnLocateExecute(Sender: TObject);
begin
  ShowStdBillsForm(1);
end;

procedure TMainFrm.dxBarButton17Click(Sender: TObject);
begin
  jpManager.ActivePageIndex := 1;
  jtsBillsProjects.TabIndex := 0;
end;

procedure TMainFrm.actnRemoveZeroQtyUpdate(Sender: TObject);
begin
  if Assigned(CurProject) and (CurProject.ProjectView = nil) then
  begin
    TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0);
  end
  else
    TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.ProjectView.JimPages.ActivePageIndex = 0);
end;

procedure TMainFrm.HideStdBillsForm;
begin
  pnlDock.Visible := False;
  Splitter1.Visible := False;
  FStdBillsCtrl.StdBillsLibFrm.Hide;
  tbStdproject.Down := False;
  tbQtyItems.Down := False;
end;

procedure TMainFrm.actnStdBillsUpdate(Sender: TObject);
begin
  if not Assigned(CurProject) then Exit;
  if not Assigned(CurProject.ProjectView) then Exit;

  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.ProjectView.JimPages.ActivePageIndex = 0);
                             
  if tbBillsToolView.Visible <> actnStdBills.Enabled then
    tbBillsToolView.Visible := actnStdBills.Enabled;
end;

procedure TMainFrm.acExitUpdate(Sender: TObject);
begin
  if not tbBillsToolView.Visible then
  begin
    actnStdBills.Update;
  end;  
end;

procedure TMainFrm.actnMergeProjectExecute(Sender: TObject);
var
  sProjName, sFullName: string;
  sgsProjectList: TStrings;
  PctConverter: TProjectConverter;
  bMergeByCode: Boolean;
begin
  sgsProjectList := TStringList.Create;
  try
    { 只有标段才汇总 }
    if jpManager.ActivePageIndex = 0 then
    begin
      // 从打开的当前项目取标段
      FProjectFileManager.GetNameByID(CurProject.ParentID, sProjName, sFullName);
      FProjectFileManager.GetBidLotsByID(CurProject.ParentID, sgsProjectList);
      FProjectFileManager.LocateBuildProject(CurProject.ParentID);
    end
    else
    begin
      // 从项目管理取标段
      FProjectFileManager.GetNameByID(FProjectFileManager.GetProjID(1), sProjName, sFullName);
      FProjectFileManager.GetBidLotsByID(FProjectFileManager.GetProjID(1), sgsProjectList);
    end;

    if not ExportBuildProject(sProjName, True) then Exit;

    if SelectProjectForm(sgsProjectList, sProjName, bMergeByCode) then
    begin
      // sFullName : BuildProject's Name
      CreateProgressForm(0, '开始合并！');
      AddProgressForm(5, '正在收集信息…');
      BeginUserOperation(sMergeProject);
      Screen.Cursor := crHourGlass;
      PctConverter := TProjectConverter.Create(FBillsProjectManager, False, bMergeByCode);
      try
        CreateProgressForm(15, '正在合并清单！');
        PctConverter.MergeNew(sgsProjectList, sFullName);
        //PctConverter.Merge(sgsProjectList, sFullName);
      finally
        PctConverter.Free;
        Screen.Cursor := crDefault;
        EndUserOperation;
      end;
      CloseProgressForm;
    end;
  finally
    sgsProjectList.Free;
  end;
end;

procedure TMainFrm.actnMergeProjectUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.Flag = 2)
                             or
                             FileManagerFrame.zgBidLot.Focused;
end;

procedure TMainFrm.actnSplitProjectUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.Flag = 1)
                             or
                             FileManagerFrame.zgGatherBid.Focused
                             and
                             (FProjectFileManager.GetProjID(1) <> 1);
end;

procedure TMainFrm.actnSplitProjectExecute(Sender: TObject);
var
  sProjName, sFullName: string;
  PctConverter: TProjectConverter;
begin
  if jpManager.ActivePageIndex = 0 then
  begin
    // 从打开的当前项目取
    FProjectFileManager.GetNameByID(CurProject.ID, sProjName, sFullName);
    FProjectFileManager.LocateBuildProject(CurProject.ID);
  end
  else
  begin
    // 从项目管理取
    FProjectFileManager.GetNameByID(FProjectFileManager.GetProjID(1), sProjName, sFullName);
  end;
  
  { Export BuildProject }
  if not ExportBuildProject(sProjName, False) then Exit;

  BeginUserOperation(sSplitProject);
  Screen.Cursor := crHourGlass;
  PctConverter := TProjectConverter.Create(FBillsProjectManager, True, False);
  try
    PctConverter.Split(sFullName);
  finally
    PctConverter.Free;
    Screen.Cursor := crDefault;
    EndUserOperation;
  end;
end;

function TMainFrm.ExportBuildProject(const aShortName: string; aIsMerge: Boolean): Boolean;
var
  sFileName: string;
  sHintText: string;
begin
  if aIsMerge then
    sHintText := sMergeProjectHint
  else
    sHintText := sSplitProjectHint;

  Result := True;
  if not MessageQuest(sHintText) then
  begin
    if SaveFileDialog(sExportTip, '.pcf', aShortName,
                      '清单编制 (*.pcf)|*.pcf', sFileName)
    then
    begin
      FProjectFileManager.ExportProjects(sFileName, 1);
    end
    else
      Result := False;
  end;

end;

procedure TMainFrm.FileManagerFrameactnExportProjectUpdate(
  Sender: TObject);
begin
  TAction(Sender).Enabled := jpManager.ActivePageIndex = 1;
end;

procedure TMainFrm.actnShowBidLotAliasExecute(Sender: TObject);
var
  sgsBidLot: TStrings;
  BidAliasForm: TBidAliasForm;
begin
  sgsBidLot := TStringList.Create;
  BidAliasForm := TBidAliasForm.Create(nil);
  try
    BidAliasForm.Project := CurProject;
    SingleObjectAggregate.BidLotDM.Project := CurProject;
    FProjectFileManager.GetBidLotsByID(CurProject.ID, sgsBidLot);
    SingleObjectAggregate.BidLotDM.RefreshBidLot(sgsBidLot);
    BidAliasForm.DataSet := SingleObjectAggregate.BidLotDM.BidLotDB;
    BidAliasForm.BuildProjectName := CurProject.ProjectName;
    BidAliasForm.ShowModal;
    SingleObjectAggregate.BidLotDM.SyncProjectView;
  finally
    sgsBidLot.Free;
    BidAliasForm.Free;
  end;
end;

procedure TMainFrm.actnShowBidLotAliasUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.Flag = 1);
end;

procedure TMainFrm.RefreshSplitBidLot(aProject: TObject);
var
  sgsBidLot: TStrings;
begin
  sgsBidLot := TStringList.Create;
  try
    SingleObjectAggregate.BidLotDM.Project := aProject;
    FProjectFileManager.GetBidLotsByID(TProject(aProject).ID, sgsBidLot);
    SingleObjectAggregate.BidLotDM.RefreshBidLot(sgsBidLot);
    SingleObjectAggregate.BidLotDM.SyncProjectView;
  finally
    sgsBidLot.Free;
  end;
end;

procedure TMainFrm.SetCaption(const aTabName: string);
begin
  {$IFDEF _beOnLine}
  Caption := SoftWareName_OnLine + ' - [' + aTabName + ']';
  {$ELSE}
    {$IFDEF _beCommon}
    Caption := SoftWareName_ZY_Common + ' - [' + aTabName + ']';
    {$ELSE}
      {$IFDEF _beEncrypt}
      Caption := SoftWareName_ZY + ' - [' + aTabName + ']';
      {$ELSE}
      Caption := SoftWareName_XX + ' - [' + aTabName + ']';
      {$ENDIF}
    {$ENDIF}
  {$ENDIF}
end;

procedure TMainFrm.actnExportStdItemsExecute(Sender: TObject);
begin
  ExportStdItems(1);
end;

procedure TMainFrm.ExportStdItems(aFileFlag: Integer);
var
  sOldLibName: string;
  sNewLibName: string;
begin
  if aFileFlag = 1 then
    sOldLibName := jtsBillsProjects.Tabs[jtsBillsProjects.TabIndex] + '分项清单'
  else
    sOldLibName := jtsBillsProjects.Tabs[jtsBillsProjects.TabIndex] + '工程量清单';

  sNewLibName := sOldLibName;
  while ScInputQuery('标准清单', '清单名称', sNewLibName) do
  begin
    if not CheckSpecialChar(sNewLibName) then
    begin
      if not FStdBillsCtrl.FXQDManager.CheckLibExists(sNewLibName) then
      begin
        Application.ProcessMessages;
        BeginUserOperation(sExportStdLib);
        Screen.Cursor := crHourGlass;
        try
          FStdBillsCtrl.FXQDManager.FileFlag := aFileFlag;
          FStdBillsCtrl.FXQDManager.AddFile(sNewLibName);
          FStdBillsCtrl.StdBillsLibFrm.AddLib(sNewLibName, aFileFlag);
        finally
          Screen.Cursor := crDefault;
          EndUserOperation;
        end;

        Break;
      end
      else
      begin
        sNewLibName := sOldLibName;
        MessageWarning(Screen.ActiveForm.Handle, sSameFileName);
      end;
    end
    else
    begin
      sNewLibName := sOldLibName;
      MessageWarning(Screen.ActiveForm.Handle, sSpecialChar);
    end;
  end;
end;

procedure TMainFrm.actnManagerStdItemsExecute(Sender: TObject);
var
  StdLibsManagerForm: TStdLibsManagerForm;
begin
  StdLibsManagerForm := TStdLibsManagerForm.Create(nil);
  try
    StdLibsManagerForm.StdBillsCtrl := FStdBillsCtrl;
    StdLibsManagerForm.ShowModal;
  finally
    StdLibsManagerForm.Free;
  end;
end;

procedure TMainFrm.actnSelectGatherNodeByNameUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.ProjectView.JimPages.ActivePageIndex = 2);
end;

procedure TMainFrm.actnSelectGatherNodeByNameExecute(Sender: TObject);
begin
  ExcuteTemplateMethod(@TMainFrm.SelectGatherNodeByName, Self);
end;

procedure TMainFrm.AbolishAllGatherChoose;
begin
  CurProject.ProjectView.ControlBillsTreeRT(False);
  CurProject.ProjectView.ControlXMJTreeView(False);
  try
    CurProject.BillsData.SelectGatherNode(CurProject.BillsData.XMJBillsTree.FirstNode, False);
  finally
    CurProject.ProjectView.ControlBillsTreeRT(True);
    CurProject.ProjectView.ControlXMJTreeView(True);
  end;
end;

procedure TMainFrm.SelectGatherNodeByName;
begin
  CurProject.ProjectView.ControlBillsTreeRT(False);
  CurProject.ProjectView.ControlXMJTreeView(False);
  try
    CurProject.BillsData.SelectGatherNode(CurProject.BillsData.XMJBillsTree.FirstNode, True);
  finally
    CurProject.ProjectView.ControlXMJTreeView(True);
    CurProject.ProjectView.ControlBillsTreeRT(True);
  end;
end;

procedure TMainFrm.actnAbolishAllGatherChooseExecute(Sender: TObject);
begin
  ExcuteTemplateMethod(@TMainFrm.AbolishAllGatherChoose, Self);
end;

procedure TMainFrm.actnCalculateAllExecute(Sender: TObject);
begin
  ExcuteTemplateMethod(@TMainFrm.CalculateAll, Self);
end;

procedure TMainFrm.CalculateAll;
begin
  CurProject.ProjectView.ControlBillsTreeRT(False);
  CurProject.ProjectView.ControlXMJTreeView(False);
  try
    CurProject.BillsData.CalculateAll;
  finally
    CurProject.ProjectView.ControlXMJTreeView(True);
    CurProject.ProjectView.ControlBillsTreeRT(True);
  end;
end;

procedure TMainFrm.actnUndoTextExecute(Sender: TObject);
begin
  if CurProject.ProjectView.zgBills.Focused and CurProject.BillsData.CanUnDoBillsText then
    CurProject.BillsData.UnDoBillsText
  else if CurProject.ProjectView.zgDrawingQuantity.Focused and
    CurProject.BillsData.CanUnDoDrawQtyText
  then
    CurProject.BillsData.UnDoDrawQtyText;
end;

procedure TMainFrm.actnUndoTextUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             ((CurProject.ProjectView.zgBills.Focused
                             and
                             CurProject.BillsData.CanUnDoBillsText)
                             or
                             (CurProject.ProjectView.zgDrawingQuantity.Focused
                             and
                             CurProject.BillsData.CanUnDoDrawQtyText));

end;

procedure TMainFrm.actnLocateFromProjectBillsExecute(Sender: TObject);
begin
  CurProject.BillsData.LocateProjectBills;
  actnItems.Execute;
end;

procedure TMainFrm.actnLocateFromQtyBillsExecute(Sender: TObject);
begin
  CurProject.DetailItemsDM.LocateBills;
  actnItems.Execute;
end;

procedure TMainFrm.actnLocateFromQtyBillsUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and CurProject.DetailItemsDM.CanLocateBills;
end;

procedure TMainFrm.GetGatherProjects(ASL: TStringList);
var
  sProjName, sFullName: string;
begin
  ASL.Clear;
  if CurProject.Flag <> 1 then
  begin
    FProjectFileManager.GetNameByID(CurProject.ID, sProjName, sFullName);
    FProjectFileManager.GetBidLotsByID(CurProject.ID, ASL);
  end;
end;


procedure TMainFrm.xbUpdateMemoClick(Sender: TObject);
var sPath: string;
begin
  sPath := ExtractFilePath(Application.ExeName);
  ShellExecute(Handle, 'open', PChar(sPath + '清单编制升级说明.txt'), nil, nil, SW_SHOW);
end;

procedure TMainFrm.actnShowGradeViewUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and (jpManager.ActivePageIndex = 0);
  if Assigned(CurProject) then
  begin
    TAction(Sender).Checked := CurProject.ProjectView.IsGradeView;
    xbGradeView.Down := CurProject.ProjectView.IsGradeView;
  end;
end;

procedure TMainFrm.actnShowGradeViewExecute(Sender: TObject);
begin
  actnShowGradeView.Checked := not actnShowGradeView.Checked;
  CurProject.ProjectView.SwitchBillsGradeView(actnShowGradeView.Checked);
end;

procedure TMainFrm.actnGradeExecute(Sender: TObject);
begin
  {$IFNDEF _beEncrypt}
  MessageHint(0, '对不起，此版本不提供评分功能，请购买正式版。');
  Exit;
  {$ENDIF}
  Screen.Cursor := crHourGlass;
  try
    CurProject.BillsData.Grade;
    AddProgressForm(1, '正在进行评分统计…');
    CurProject.BillsData.Stat;
  finally
    Screen.Cursor := crDefault;
    CloseProgressForm;
  end;
end;

procedure TMainFrm.actnStatExecute(Sender: TObject);
begin
  {$IFNDEF _beEncrypt}
  MessageHint(0, '对不起，此版本不提供评分功能，请购买正式版。');
  Exit;
  {$ENDIF}
  
  Screen.Cursor := crHourGlass;
  try
    CurProject.BillsData.Stat;
  finally
    Screen.Cursor := crDefault;
    CloseProgressForm;
  end;
end;

procedure TMainFrm.actnClearUserFlagsExecute(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    CurProject.BillsData.ClearUserFlags;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actnGradeUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and (jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.actnStatUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and (jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.actnClearUserFlagsUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and (jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.xbQuantityErrorClick(Sender: TObject);
begin
  CurProject.BillsData.AddError(ecQuantityError, 1);
end;

procedure TMainFrm.xbLostLineClick(Sender: TObject);
var vLostKind: TErrorCategory;
  iCount: Integer;
begin
  if ExecCustomSetErrorForm(vLostKind, iCount) then
  begin
    if iCount = 0 then Exit;
    CurProject.BillsData.AddError(vLostKind, iCount);
  end;
end;

procedure TMainFrm.xbIgnoreCodeClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecCodeError);
  CurProject.BillsData.CancelError(ecB_CodeError);
end;

procedure TMainFrm.xbIgnoreNameClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecNameError);
end;

procedure TMainFrm.xbIgnoreUnitsClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecUnitError);
end;

procedure TMainFrm.xbIgnoreQuantityClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecQuantityError);
end;

procedure TMainFrm.xbIgnoreSuperscaleClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecSuperscale);
end;

procedure TMainFrm.xbIgnoreRepeatLineClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecRepeatLine);
end;

procedure TMainFrm.xbIgnoreLostPreClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecLostPreSibling);
end;

procedure TMainFrm.xbIgnoreLostNextClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecLostNextSibling);
end;

procedure TMainFrm.xbIgnoreLostChildClick(Sender: TObject);
begin
  CurProject.BillsData.CancelError(ecLostChildren);
end;

procedure TMainFrm.xbNameErrorClick(Sender: TObject);
begin
  CurProject.BillsData.AddError(ecNameError, 1);
end;

procedure TMainFrm.xbUnitsErrorClick(Sender: TObject);
begin
  CurProject.BillsData.AddError(ecUnitError, 1);
end;

procedure TMainFrm.xbCodeErrorClick(Sender: TObject);
begin
  with CurProject.BillsData do
  begin
    case BillCategory(cdsOrgBillsCode.AsString, cdsOrgBillsB_Code.AsString) of
      bcYSXMJ: AddError(ecCodeError, 1);
      bcQDZMH: AddError(ecB_CodeError, 1);
    end;
  end;
end;

procedure TMainFrm.xbSuperscaleClick(Sender: TObject);
begin
  CurProject.BillsData.AddError(ecSuperscale, 1);
end;

procedure TMainFrm.xbRepeatLineClick(Sender: TObject);
begin
  CurProject.BillsData.AddError(ecRepeatLine, 1);
end;

procedure TMainFrm.actnGradeCurItemExecute(Sender: TObject);
begin
  {$IFNDEF _beEncrypt}
  MessageHint(0, '对不起，此版本不提供评分功能，请购买正式版。');
  Exit;
  {$ENDIF}
  
  Screen.Cursor := crHourGlass;
  try
    CurProject.BillsData.Grade(False);
    AddProgressForm(1, '正在进行评分统计…');
    CurProject.BillsData.Stat;
  finally
    Screen.Cursor := crDefault;
    CloseProgressForm;
  end;
end;

procedure TMainFrm.actnGradeCurItemUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and (jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.CloseProjectByID(AID: Integer);
begin
  jtsBillsProjects.Tabs.Delete(AID + 1);
  jpsBillsProjects.Pages.Delete(AID);

  jtsBillsProjects.TabIndex := FBillsProjectManager.ActiveIndex + 1;
  jpsBillsProjects.ActivePageIndex := FBillsProjectManager.ActiveIndex;

  if FBillsProjectManager.ProjectCount = 0 then
  begin
    SetCaption('项目管理');
    jpManager.ActivePageIndex := 1;
  end
  else
    SetCaption(FBillsProjectManager.ActiveProject.ProjectName);
end;

procedure TMainFrm.actnClearAllUnitPriceExecute(Sender: TObject);
var bCalc: Boolean;
begin
  Screen.Cursor := crHourGlass;
  try
    bCalc := ScConfigInfo.RealTimeCalc;
    ScConfigInfo.RealTimeCalc := False;

    CurProject.BillsData.ClearAllUnitPrices;
    CurProject.BillsData.CalculateAll;
  finally
    ScConfigInfo.RealTimeCalc := bCalc;
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actnClearAllUnitPriceUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and (jpManager.ActivePageIndex = 0);
end;

procedure TMainFrm.actnGatherBillsQuantityExecute(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    CurProject.BillsData.GatherBillsQuantity;
  finally
    Screen.Cursor := crDefault;
  end;
end;

procedure TMainFrm.actClearUnitUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject)
                             and
                             (jpManager.ActivePageIndex = 0)
                             and
                             (CurProject.ProjectView.JimPages.ActivePageIndex = 0);
end;

procedure TMainFrm.actClearUnitExecute(Sender: TObject);
var
  s: string;
begin
  if MessageQuest('确定要删除清单子目中非叶子节点的单位?') then
    CurProject.BillsData.DeleteLastParentUnit(1);
end;

procedure TMainFrm.actnShowRecycleBinExecute(Sender: TObject);
var
  RecycleBinForm: TRecycleBinForm;
begin
  RecycleBinForm := TRecycleBinForm.Create(nil);
  try
    RecycleBinForm.Project := GetAcitveProject;
    RecycleBinForm.ShowModal;
  finally
    RecycleBinForm.Free;
  end;
end;

procedure TMainFrm.dxStdXiangClick(Sender: TObject);
begin
  Screen.Cursor := crHourGlass;
  try
    StdBillsCtrl.ShowLevel(TdxBarButton(Sender).Tag);
  finally
    Screen.Cursor := crDefault;
  end;
end;

// Added by GiLi 2012-3-20 9:53:16
// 是否可以定位当前节点到标准清单所在的位置
procedure TMainFrm.actnLocateAtStdBillsUpdate(Sender: TObject);
begin
  if not Assigned(StdBillsCtrl) then
  begin
    actnLocateAtStdBills.Enabled := False;
  end
  else
  begin
    actnLocateAtStdBills.Enabled := StdBillsCtrl.CanLocateAtStdBills;
  end;
end;

procedure TMainFrm.actnLocateAtStdBillsExecute(Sender: TObject);
begin
  StdBillsCtrl.LocateAtStdBills;
end;

procedure TMainFrm.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
  MQResult: Integer;
  I: Integer;
  project: TProject;
begin
  if FBillsProjectManager.ProjectList.Count > 0 then
  begin
    MQResult := MessageQuest(Handle, '您没有保存文件，是否保存？', '询问', MB_YESNOCANCEL);
    case MQResult of
      ID_YES:
      begin
        // 这里注释掉，原因是放在TProjectManager.Destroy中去处理，这样更符合逻辑
        {for I := FBillsProjectManager.ProjectList.Count - 1 downto 0 do
        begin
          project := TProject(FBillsProjectManager.ProjectList[I]);
          if project.NeedSaveDatabase then
          begin
            if MessageBox(0, PChar(Format('项目[%s]是否保存？', [project.ProjectName])),
              PChar('询问'), MB_YESNO or MB_ICONQUESTION or MB_TOPMOST) = IDYES then
              project.Save(False);
          end;
          project.Free;
        end;

        FBillsProjectManager.ProjectList.Free;}
        FIsSave := True;
        CanClose := True;
      end;
      ID_NO:
      begin
        // 这里注释掉，原因是放在TProjectManager.Destroy中去处理，这样更符合逻辑
        // 为防止内存泄露加上下面代码
        {for I := FBillsProjectManager.ProjectList.Count - 1 downto 0 do
        begin
          project := TProject(FBillsProjectManager.ProjectList[I]);
          project.Free;
        end;
        FBillsProjectManager.ProjectList.Free; }
        FIsSave := False;
        CanClose := True;
      end;
      IDCANCEL:
        CanClose := False;
    end;
  end
  else
    CanClose := True;
end;

procedure TMainFrm.acCopyBillsUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := Assigned(CurProject) and CurProject.ProjectView.IsCanCopyBills;
end;

procedure TMainFrm.ZjGridPasteUpdate(Sender: TObject);
begin
  if Assigned(CurProject) then
    ZjGridPaste.Enabled := CurProject.ProjectView.IsCanGridPaste
  else
    ZjGridPaste.Enabled := True;
end;

procedure TMainFrm.actnAddLeafBillsExecute(Sender: TObject);
begin
  AddLeafBills(CurProject.BillsData);
end;

procedure TMainFrm.actnBatchReplaceBillsDataExecute(Sender: TObject);
begin
  BatchReplaceBillsData(CurProject.BillsData);
end;

procedure TMainFrm.actnBatchReplaceBillsDataUpdate(Sender: TObject);
begin
  TAction(Sender).Enabled := CurProject.BillsData.cdsBillsB_Code.AsString <> '';
end;

procedure TMainFrm.actnExportFlatExcelExecute(Sender: TObject);
var
  strFileName: string;
begin
  if SaveFileDialog('导出0号台账平面表', '.xls', '', 'Excel files (*.xls)|*.xls', strFileName) then
  begin
    Screen.Cursor := crHourGlass;
    BeginUserOperation(sExportExcel);
    try
      CurProject.ExportFlatExcel(strFileName);
    finally
      EndUserOperation;
      Screen.Cursor := crDefault;
    end;
  end;
end;

initialization
  ShortDateFormat := 'yyyy-mm-dd';
  LongDateFormat := 'yyyy-mm-dd';
  DateSeparator := '-';
  TimeSeparator := ':';
  ShortTimeFormat := 'H:mm:ss';

end.