xxcx.dpr

本系统为演示Delphi的功能而开发设计

program xxcx;

uses
  Forms,
  Mainform in 'Mainform.pas' {XxcxMainForm},
  HuaXia in 'HuaXia.pas' {HuaXiaData: TDataModule},
  LoginData in 'LoginData.pas' {SystemData: TDataModule},
  login in 'login.pas' {LoginForm},
  brushlist in 'brushlist.pas' {FormMingXi},
  brushstat in 'brushstat.pas' {FormYueBao},
  returnlate in 'returnlate.pas' {FormZongHe},
  brushorder in 'brushorder.pas' {FormPaiHang},
  personquery in 'personquery.pas' {FormGeRen},
  reperson in 'reperson.pas' {personreport},
  rephb in 'rephb.pas' {phbreport},
  reyuqi in 'reyuqi.pas' {yuqireport},
  YueBaoPreview in 'YueBaoPreview.pas' {FormYueBaoPreview},
  companyquery in 'companyquery.pas' {Formdanwei},
  gquery in 'gquery.pas' {FormQuShi},
  daybrushlist in 'daybrushlist.pas' {FormRiMingXi},
  daybrushstat in 'daybrushstat.pas' {FormRiBao};

{$R *.RES}

begin
  SystemData:=TSystemData.Create(Application);
  LoginForm := TLoginForm.Create(Application);
  LoginForm.ShowModal;
  If LoginFlag=1 Then
  Begin
  Application.Initialize;
  Application.CreateForm(TXxcxMainForm, XxcxMainForm);
  Application.CreateForm(THuaXiaData, HuaXiaData);
  Application.CreateForm(TFormMingXi, FormMingXi);
  Application.CreateForm(TFormYueBao, FormYueBao);
  Application.CreateForm(TFormZongHe, FormZongHe);
  Application.CreateForm(TFormPaiHang, FormPaiHang);
  Application.CreateForm(TFormGeRen, FormGeRen);
  Application.CreateForm(Tpersonreport, personreport);
  Application.CreateForm(Tphbreport, phbreport);
  Application.CreateForm(Tyuqireport, yuqireport);
  Application.CreateForm(TFormYueBaoPreview, FormYueBaoPreview);
  Application.CreateForm(TFormdanwei, Formdanwei);
  Application.CreateForm(TFormQuShi, FormQuShi);
  Application.CreateForm(TFormRiMingXi, FormRiMingXi);
  Application.CreateForm(TFormRiBao, FormRiBao);
  Application.Run;
  End
  Else
  Application.Terminate;
end.