pmisusr.dpr

《Delphi中小型信息管理系统》原书光盘

program PMISUSR;

uses
  Forms,
  u_main in 'u_main.pas' {F_main},
  crypt in 'crypt.pas',
  u_about in 'u_about.pas' {F_about},
  u_data in 'u_data.pas' {DM_main: TDataModule},
  u_room in 'u_room.pas' {F_room},
  u_search in 'u_search.pas' {F_search},
  u_bill in 'u_bill.pas' {F_bill},
  u_add_custom in 'u_add_custom.pas' {F_add_custom},
  u_report in 'u_report.pas' {F_report};

{$R *.RES}

begin
  Application.Initialize;
  Application.Title := '客房管理-前台管理';
  Application.HelpFile := '.\help\PMISUSR.HLP';
  {创建封面}
  F_about:=TF_about.Create(Application);
  F_about.Show;   //显示封面
  F_about.Update; //强制更新
  while F_about.Timer1.Enabled do
    Application.ProcessMessages; //延时
  Application.CreateForm(TDM_main, DM_main);
  Application.CreateForm(TF_main, F_main);
  Application.CreateForm(TF_room, F_room);
  Application.CreateForm(TF_search, F_search);
  Application.CreateForm(TF_bill, F_bill);
  Application.CreateForm(TF_add_custom, F_add_custom);
  Application.CreateForm(TF_report, F_report);
  F_about.Hide;
  F_about.Free;
  Application.Run;
end.