📄 project1.dpr
字号:
program Project1;
uses
Forms,
Unit1 in 'Unit1.pas' {frmmain},
Unit2 in 'Unit2.pas' {frmusers},
Unit3 in 'Unit3.pas' {dm1: TDataModule},
Unit4 in 'Unit4.pas' {frmlogin},
Unit5 in 'Unit5.pas' {frmoperates},
Unit6 in 'Unit6.pas' {frmedusers},
Unit7 in 'Unit7.pas' {frmedop},
Unit8 in 'Unit8.pas' {frmequipment},
Unit9 in 'Unit9.pas' {frmedeqp},
Unit10 in 'Unit10.pas' {frmuse_comp},
Unit11 in 'Unit11.pas' {frmpjc},
Unit12 in 'Unit12.pas' {frmsuemath};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(Tdm1, dm1);
Application.CreateForm(Tfrmlogin, frmlogin);
frmLogin.showmodal;
if frmLogin.ModalResult=1 then
begin
frmLogin.Free;
Application.CreateForm(Tfrmmain, frmmain);
end
else
frmLogin.Free;
Application.Run;
end.
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -