bookticket.dpr

来自「很好地delphi书籍源码」· DPR 代码 · 共 21 行

program BookTicket;

uses
  Forms,
  U_DataModule in 'U_DataModule.pas' {DataModule1: TDataModule},
  U_LoginForm in 'U_LoginForm.pas' {FrmLogin},
  U_MainForm in 'U_MainForm.pas' {FrmBookTicket},
  U_UserForm in 'U_UserForm.pas' {FrmUser};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDataModule1, DataModule1);
  FrmLogin:=TFrmLogin.Create(Application);
  FrmLogin.ShowModal;
  Application.CreateForm(TFrmBookTicket, FrmBookTicket);
  FrmLogin.Free;
  Application.Run;
end.