program hotel;
uses
Forms,
sysutils,
hotelmis in 'hotelmis.pas' {hotelfm},
RoomTypeUt in 'RoomTypeUt.pas' {RoomTypeFm},
DataConUt in 'DataConUt.pas' {DataFm: TDataModule},
RoommessageUt in 'RoommessageUt.pas' {RoomMessFm},
RoomStatusUt in 'RoomStatusUt.pas' {RoomStatusFm},
inroomUt in 'inroomUt.pas' {inroomFm},
inut in 'inut.pas' {infm},
inlistut in 'inlistut.pas' {inlistfm},
conut in 'conut.pas' {confm},
posut in 'posut.pas' {posfm},
inhisfindut in 'inhisfindut.pas' {inhisfindfm},
drydbbut in 'drydbbut.pas' {drydbbdyfm},
roomtypemaut in 'roomtypemaut.pas' {ftxgfm},
gzryglut in 'gzryglut.pas' {gzryglfm},
hybhglut in 'hybhglut.pas' {hybhglfm},
xtbfut in 'xtbfut.pas' {xtbffm},
xtrzut in 'xtrzut.pas' {xtrzfm},
xgmmut in 'xgmmut.pas' {xgmmfm},
loginut in 'loginut.pas' {loginfm},
gyxtut in 'gyxtut.pas' {gyxtfm},
Uflash in 'Uflash.pas' {U_Flash};
{$R *.res}
begin
Application.Initialize;
u_flash:=TU_flash.create(nil);
u_flash.Show;
u_flash.Update;
sleep(3000);
u_flash.Close;
Application.Title := '宾馆管理系统';
Application.CreateForm(Thotelfm, hotelfm);
Application.CreateForm(TDataFm, DataFm);
Application.CreateForm(Tloginfm, loginfm);
//Application.CreateForm(Tinfm, infm);
Application.Run;
end.
