democlient.~dpr

很好地delphi书籍源码

program DemoClient;

uses
  Forms,
  CoverUnit in 'CoverUnit.pas' {FrmCover},
  DataModuleUnit in 'DataModuleUnit.pas' {DataModule1: TDataModule},
  LoginUnit in 'LoginUnit.pas' {FrmLogin},
  MenuXPUnit in 'MenuXPUnit.pas',
  MainFormUnit in 'MainFormUnit.pas' {MainForm},
  QRRoomFeeUnit in 'QRRoomFeeUnit.pas' {QReport1: TQuickRep},
  QRAccountUnit in 'QRAccountUnit.pas' {QReport3: TQuickRep},
  QRHotelFeeUnit in 'QRHotelFeeUnit.pas' {QReport2: TQuickRep},
  BookTicketUnit in 'BookTicketUnit.pas' {FrmBookTicket},
  AccountUnit in 'AccountUnit.pas' {FrmAccount},
  GetYourInputUnit in 'GetYourInputUnit.pas' {FrmGetYourInput},
  HotelRecordUnit in 'HotelRecordUnit.pas' {FrmHotelRecord},
  OldGuestUnit in 'OldGuestUnit.pas' {FrmOldGuest},
  ModGInfUnit in 'ModGInfUnit.pas' {FrmModGInf},
  MoneyFromHUnit1 in 'MoneyFromHUnit1.pas' {FrmMoney_1},
  UserUnit in 'UserUnit.pas' {FrmUser},
  RoomKindUnit in 'RoomKindUnit.pas' {FrmRoomKind},
  RoomPriceUnit in 'RoomPriceUnit.pas' {FrmRoomPrice},
  ShowGRoomFeeUnit in 'ShowGRoomFeeUnit.pas' {FrmLookGRoomFee},
  AddGRoomUnit in 'AddGRoomUnit.pas' {FrmAddGRoom},
  DecGRoomUnit in 'DecGRoomUnit.pas' {FrmDecGRoom},
  InputGuestInfUnit in 'InputGuestInfUnit.pas' {FrmInputGInfo},
  LivingGuestUnit in 'LivingGuestUnit.pas' {FrmLivingGuest},
  BookRoomUnit in 'BookRoomUnit.pas' {FrmBookRoom},
  DynamicFormUnit in 'DynamicFormUnit.pas' {DynamicForm},
  Dy_QReport in 'Dy_QReport.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '宾馆管理系统系统';
  FrmCover:=TFrmCover.Create(Application);
  FrmCover.ShowModal;
  Application.CreateForm(TDataModule1, DataModule1);
  FrmLogin:=TFrmLogin.Create(Application);
  FrmLogin.ShowModal;
  Application.CreateForm(TMainForm, MainForm);
  FrmLogin.Free;
  Application.CreateForm(TQReport1, QReport1);
  Application.CreateForm(TQReport3, QReport3);
  Application.CreateForm(TQReport2, QReport2);
  Application.Run;
end.