laborage.dpr

考勤管理是企业内部管理的重要环节和基础

program laborage;

uses
  Forms,
  AddUserFrm in 'AddUserFrm.pas',
  Dialog in 'dialog.pas',
  Globals in 'Globals.pas',
  logofrm in 'logofrm.pas' {Logoform},
  SiBoFrm in 'sibofrm.pas' {SiBoForm},
  Childfrm in 'Childfrm.pas' {Childform},
  ChildGridFrm in 'ChildGridFrm.pas' {ChildGridform},
  SDIfrm in 'SDIfrm.pas' {SDIForm},
  ChangeNameFrm in 'ChangeNameFrm.pas' {ChangeNameForm},
  ChangeUserFrm in 'ChangeUserFrm.pas' {ChangeUserForm},
  DataBackupFrm in 'DataBackupFrm.pas' {DataBackupForm},
  DepartmentEditFrm in 'DepartmentEditFrm.pas' {DepartmentEditForm},
  DepartmentFrm in 'DepartmentFrm.pas' {DepartMentForm},
  AccreditFrm in 'AccreditFrm.pas' {AccreditForm},
  unDM2 in 'unDM2.pas' {DM2: TDataModule},
  Pickdate in 'pickdate.pas' {BrDateForm},
  ProgressFrm in 'ProgressFrm.pas' {ProgressForm},
  navigatefrm in 'navigatefrm.pas' {NavigateForm},
  ModiPassFrm in 'ModiPassFrm.pas' {ModiPassForm},
  DM in 'DM.pas' {DM1: TDataModule},
  startFrm in 'startFrm.pas' {startform},
  selectfrm in 'selectfrm.pas' {selectForm},
  EmployEditFrm in 'EmployEditFrm.pas' {EmployEditForm},
  EmployFrm in 'EmployFrm.pas' {EmployForm},
  EmpTypeFrm in 'EmpTypeFrm.pas' {EmpTypeForm},
  EmpTypeEditFrm in 'EmpTypeEditFrm.pas' {EmpTypeEditForm},
  WorkProFrm in 'WorkProFrm.pas' {WorkProForm},
  SaveAsFrm in 'SaveAsFrm.pas' {SaveAsForm},
  SrchDlg in 'srchdlg.pas' {SearchDlg},
  ProjectFrm in 'ProjectFrm.pas' {ProjectForm},
  ProjectEditFrm in 'ProjectEditFrm.pas' {ProjectEditForm},
  BillFrm in 'BillFrm.pas' {BillForm},
  MakeFrm in 'MakeFrm.pas' {MakeForm},
  FormualFrm in 'FormualFrm.pas' {FormulaForm},
  PieceWorkFrm in 'PieceWorkFrm.pas' {PieceWorkForm},
  PieceWorkEditFrm in 'PieceWorkEditFrm.pas' {PieceWorkEditForm},
  CopyPieceWorkFrm in 'CopyPieceWorkFrm.pas' {CopyPieceWorkForm},
  ExpressionFrm in 'ExpressionFrm.pas' {ExpressionForm},
  ExpressionEditFrm in 'ExpressionEditFrm.pas' {ExpressionEditForm},
  SelectMonthFrm in 'SelectMonthFrm.pas' {SelectMonthForm},
  LaborageFrm in 'LaborageFrm.pas' {LaborageForm},
  SumFrm in 'SumFrm.pas' {SumForm},
  FilterFrm in 'FilterFrm.pas' {FilterForm},
  ProjectFilterFrm in 'ProjectFilterFrm.pas' {ProjectFilterForm},
  FilterProjectFrm in 'FilterProjectFrm.pas' {FilterProjectForm},
  PrintOptionFrm in 'PrintOptionFrm.pas' {PrintOptionForm},
  ReportFrm in 'ReportFrm.pas' {ReportForm},
  addaccset in 'addaccset.pas' {AddAccSetFrm},
  PWFilterFrm in 'PWFilterFrm.pas' {PWFilterForm},
  ModiAccreditFrm in 'ModiAccreditFrm.pas' {ModiAccreditForm},
  ReportWPFrm in 'ReportWPFrm.pas' {ReportWPForm},
  OpenPictureFrm in 'OpenPictureFrm.pas' {OpenPictureForm},
  DutyFrm in 'DutyFrm.pas' {DutyForm},
  DutyEditFrm in 'DutyEditFrm.pas' {DutyEditForm},
  Pg2 in 'pg2.pas';

{$R Laborage.RES}

begin
  Application.Initialize;
  startform:=tstartform.create(application);
  startform.Show;
  startform.Update;
  Application.Title := '工资核算系统';
  Application.CreateForm(TDM1, DM1);
  selectForm:=TselectForm.Create(nil);
  startform.hide;
  startform.free;
  selectForm.Show;
  selectForm.Update;
  while not AccSetselected do
     Application.ProcessMessages;
  if QuitApp then begin
      selectForm.Hide;
      selectForm.Free;
      Application.terminate;
  end else begin
      selectForm.Hide;
      selectForm.Free;
      Application.CreateForm(TSiBoForm, SiBoForm);
      Application.CreateForm(TBrDateForm, BrDateForm);
      Application.Run;
    end;
end.