📄 pmain.~dpr
字号:
program PMain;
uses
Forms,
UMainForm in 'UMainForm.pas' {MainForm},
UAdjust in 'UAdjust.pas' {FAdjust},
UCheckIn in 'UCheckIn.pas' {FCheckIn},
U5_3 in 'U5_3.pas' {F5_3},
UPre in 'UPre.pas' {FPre},
U1_3 in 'U1_3.pas' {F1_3},
U1_4 in 'U1_4.pas' {F1_4},
U3_1 in 'U3_1.pas' {F3_1},
U5_1 in 'U5_1.pas' {F5_1},
U2_1 in 'U2_1.pas' {F2_1},
U1_8 in 'U1_8.pas' {F1_8},
U2_2 in 'U2_2.pas' {F2_2},
U3_2 in 'U3_2.pas' {F3_2},
U4_8 in 'U4_8.pas' {F4_8},
U5_5 in 'U5_5.pas' {F5_5},
U5_6 in 'U5_6.pas' {F5_6},
U1_7 in 'U1_7.pas' {F1_7},
U1_6 in 'U1_6.pas' {F1_6},
U2_3 in 'U2_3.pas' {F2_3},
U3_8 in 'U3_8.pas' {F3_8},
U3_3 in 'U3_3.pas' {F3_3},
U3_5 in 'U3_5.pas' {F3_5},
U3_6 in 'U3_6.pas' {F3_6},
U3_10 in 'U3_10.pas' {F3_10},
U4_1 in 'U4_1.pas' {F4_1},
U4_3 in 'U4_3.pas' {F4_3},
U4_4 in 'U4_4.pas' {F4_4},
U4_5 in 'U4_5.pas' {F4_5},
U4_7 in 'U4_7.pas' {F4_7},
U3_9 in 'U3_9.pas' {F3_9},
U3_7 in 'U3_7.pas' {F3_7},
U3_5_1 in 'U3_5_1.pas' {Fzd},
U5_2 in 'U5_2.pas' {F5_2},
UDmo in 'UDmo.pas' {Dmo: TDataModule},
Uinfo in 'Uinfo.pas' {Finfo},
Ushow in 'Ushow.pas' {Fshow},
ULogo in 'ULogo.pas' {Flogo},
U6_2 in 'U6_2.pas' {F6_2},
U6_3 in 'U6_3.PAS' {Fgy},
Ureport in 'Ureport.pas' {QRListForm};
{$R *.res}
var
Fshow:TFshow;
begin
Application.Initialize;
Application.Title := '酒店管理试用版';
Application.CreateForm(TMainForm, MainForm);
MainForm.Hide;
Fshow:=TFshow.Create(Application);
Fshow.Show;
Fshow.Update;
Application.CreateForm(TFlogo, Flogo);
Application.CreateForm(TF6_2, F6_2);
Application.CreateForm(TFgy, Fgy);
Application.CreateForm(TF1_3, F1_3);
Application.CreateForm(TF1_4, F1_4);
Application.CreateForm(TF5_1, F5_1);
Application.CreateForm(TF3_2, F3_2);
Application.CreateForm(TF4_8, F4_8);
Application.CreateForm(TF5_5, F5_5);
Application.CreateForm(TF5_6, F5_6);
Application.CreateForm(TF3_8, F3_8);
Application.CreateForm(TF3_3, F3_3);
Application.CreateForm(TF4_7, F4_7);
Application.CreateForm(TF3_9, F3_9);
Application.CreateForm(TF3_7, F3_7);
Application.CreateForm(TFAdjust, FAdjust);
Application.CreateForm(TFzd, Fzd);
Application.CreateForm(TF5_2, F5_2);
Application.CreateForm(TDmo, Dmo);
Application.CreateForm(TFinfo, Finfo);
Fshow.Close;
Fshow.Free;
Flogo.ShowModal;
Application.Run;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -