project1.dpr

来自「机房管理系统源代码2006-7-8制作的非常实用」· DPR 代码 · 共 34 行

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.