m2002.dpr

来自「从盒子上面转过来的一个很小的软件」· DPR 代码 · 共 46 行

program M2002;

uses
  Windows,
  Forms,
  Main_u in 'Main_u.pas' {Main},
  Boot_U in 'Boot_U.pas' {Boot},
  Login_U in 'Login_U.pas' {Login},
  DB_U in 'DB_U.pas' {customerdata: TDataModule},
  LBZY_U in 'LBZY_U.PAS' {LBZY},
  ADDLBZY_U in 'ADDLBZY_U.pas' {ADDLBZY},
  DJ_U in 'DJ_U.pas' {DJ},
  FYMC_U in 'FYMC_U.pas' {FYMC},
  ADDFYMC_U in 'ADDFYMC_U.pas' {AddFYMC},
  CXTJ_U in 'CXTJ_U.pas' {CXTJ},
  Find_U in 'Find_U.pas' {Find};

{$R *.res}

begin
  Application.Initialize;
  Boot:=TBoot.Create(Boot);
  Boot.Show;
  Boot.Update;
  Application.Title := '美容美发管理系统';
  Application.CreateForm(Tcustomerdata, customerdata);
  Application.CreateForm(TMain, Main);
  Application.CreateForm(TLBZY, LBZY);
  Application.CreateForm(TADDLBZY, ADDLBZY);
  Application.CreateForm(TDJ, DJ);
  Application.CreateForm(TFYMC, FYMC);
  Application.CreateForm(TAddFYMC, AddFYMC);
  Application.CreateForm(TCXTJ, CXTJ);
  Application.CreateForm(TFind, Find);
  sleep(1000);
  Boot.hide;
  Boot.free;
  Login:=TLogin.Create(Login);
  Login.Showmodal;
  Login.Update;
  Login.hide;
  Login.free;
  if login.ModalResult=1 then
     Application.Run;
end.