guanli.dpr

来自「源代码竟供大家参考」· DPR 代码 · 共 20 行

program GuanLi;

uses
  Forms,
  Controls,
  windows,
  GuanLiU in 'GuanLiU.pas' {FrmGuanli},
  MgrLoginU in 'MgrLoginU.pas' {FrmLogin};

{$R *.res}

begin
  Application.Initialize;
  FrmLogin := TFrmLogin.Create(Application);
  if FrmLogin.ShowModal()<>mrok then exit;

  Application.CreateForm(TFrmGuanli, FrmGuanli);
  Application.Run;
end.