bysj.~dpr

本系统是一个房屋出租方面的管理系统

program BYSJ;

uses
  Forms,
  sysutils,
  Dialogs,
  Unit1 in 'Unit1.pas' {FormZ},
  Unit2 in 'Unit2.pas' {FormDL},
  Unit3 in 'Unit3.pas' {DATABASE: TDataModule},
  Unit4 in 'Unit4.pas' {FormFWXXZ},
  Unit5 in 'Unit5.pas' {FormFWXXXG},
  Unit6 in 'Unit6.pas' {FormFWXXTJ},
  Unit7 in 'Unit7.pas' {FormFWXXSC},
  Unit8 in 'Unit8.pas' {FormXYFWZ},
  Unit9 in 'Unit9.pas' {FormCZXXZ},
  Unit10 in 'Unit10.pas' {FormZHDJZ},
  Unit11 in 'Unit11.pas' {FormCZXXTJ},
  Unit12 in 'Unit12.pas' {FormCZXXCX},
  Unit13 in 'Unit13.pas' {FormCZXXJS},
  Unit14 in 'Unit14.pas' {FormZHDJTJ},
  Unit15 in 'Unit15.pas' {FormZHDJSC},
  Unit16 in 'Unit16.pas' {FormFWXXCX},
  Unit17 in 'Unit17.pas' {FormAbout},
  Unit18 in 'Unit18.pas' {FormBegin},
  Unit19 in 'Unit19.pas' {Form_MMXG};

{$R *.res}
var
   time :Tdatetime;
begin
  formbegin:=TFormbegin.Create(nil);
  formbegin.Show;
  formbegin.Update;
  time:=now;
  repeat until time+strtotime('00:00:1') <= now;

  Application.Initialize;
  Application.Title := '房屋出租管理系统';
  Application.CreateForm(TDATABASE, DATABASE);
  if not database.ADOConnection1.Connected then
  begin
    ShowMessage('连接后台数据库失败!请检查配置是否完好，数据库是否存在');
    application.Terminate;
  end;
  formbegin.Hide;
  Application.CreateForm(TFormDL, FormDL);
  Application.CreateForm(TFormZ, FormZ);
  Application.CreateForm(TFormFWXXZ, FormFWXXZ);
  Application.CreateForm(TFormFWXXXG, FormFWXXXG);
  Application.CreateForm(TFormFWXXTJ, FormFWXXTJ);
  Application.CreateForm(TFormFWXXSC, FormFWXXSC);
  Application.CreateForm(TFormXYFWZ, FormXYFWZ);
  Application.CreateForm(TFormCZXXZ, FormCZXXZ);
  Application.CreateForm(TFormZHDJZ, FormZHDJZ);
  Application.CreateForm(TFormCZXXTJ, FormCZXXTJ);
  Application.CreateForm(TFormCZXXCX, FormCZXXCX);
  Application.CreateForm(TFormCZXXJS, FormCZXXJS);
  Application.CreateForm(TFormZHDJTJ, FormZHDJTJ);
  Application.CreateForm(TFormZHDJSC, FormZHDJSC);
  Application.CreateForm(TFormFWXXCX, FormFWXXCX);
  Application.CreateForm(TFormAbout, FormAbout);
  Application.CreateForm(TForm_MMXG, Form_MMXG);
  Application.Run;

end.