zfgjj.dpr

使用delphi语言

program ZFGJJ;

uses
  Forms,
  Dialogs,
  Sysutils,
  mainunit in 'mainunit.pas' {mainform},
  aboutunit in 'aboutunit.pas' {aboutform},
  auto_delunit in 'auto_delunit.pas' {auto_delform},
  cxyeunit in 'cxyeunit.pas' {cxyeform},
  auto_dzunit in 'auto_dzunit.pas' {auto_dzform},
  auto_lxunit in 'auto_lxunit.pas' {auto_lxform},
  baseunit in 'baseunit.pas' {baseform},
  bmunit in 'bmunit.pas' {bmform},
  code_seleunit in 'code_seleunit.pas' {code_seleform},
  cx_dw_personunit in 'cx_dw_personunit.pas' {cx_dw_personform},
  cx_mxunit in 'cx_mxunit.pas' {cx_mxform},
  cx_yeunit in 'cx_yeunit.pas' {cx_yeform},
  cxdw_personunit in 'cxdw_personunit.pas' {cxdw_personform},
  cxmxunit in 'cxmxunit.pas' {cxmxform},
  lxunit in 'lxunit.pas' {lxform},
  getfundunit in 'getfundunit.pas' {getfundform},
  helpunit in 'helpunit.pas' {helpform},
  infor_seleunit in 'infor_seleunit.pas' {infor_seleform},
  inforunit in 'inforunit.pas' {inforform},
  loginunit in 'loginunit.pas' {loginform},
  lx_delunit in 'lx_delunit.pas' {lx_delform},
  userunit in 'userunit.pas' {userform},
  manual_lxunit in 'manual_lxunit.pas' {manual_lxform},
  manualunit in 'manualunit.pas' {manualform},
  passwordunit in 'passwordunit.pas' {passwordform},
  personunit in 'personunit.pas' {personform},
  qcyeunit in 'qcyeunit.pas' {qcyeform},
  dmunit in 'dmunit.pas' {dm: TDataModule},
  printunit in 'printunit.pas' {printform},
  databackunit in 'databackunit.pas' {databackform},
  databfunit in 'databfunit.pas' {databfform},
  datahfunit in 'datahfunit.pas' {datahfform},
  Flash in 'Flash.pas' {FlashMY};

{$R *.res}
begin
  Application.Initialize;
  FlashMY:=TFlashMY.Create(nil);
  FlashMY.Show;
  FlashMY.Update ;
  repeat
  application.ProcessMessages;
  until not Flashmy.SFShow.IsPlaying;
  Application.Title := '住房公积金管理系统';
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(Tmainform, mainform);
  FlashMY.Hide ;
  FlashMY.FreeOnRelease ;
  application.CreateForm(tloginform,loginform);
  loginform.ShowModal ;
  loginform.Free;
  Application.Run;
end.