main.~dpr

来自「这是我做的一个课程设计」· ~DPR 代码 · 共 37 行

program main;

uses
  Forms,
  login in 'login.pas' {loginForm},
  dm in 'dm.pas' {DMform: TDataModule},
  MainUnit in 'MainUnit.pas' {mainForm},
  departUnit in 'departUnit.pas' {departForm},
  classUnit in 'classUnit.pas' {classForm},
  userUnit in 'userUnit.pas' {userForm},
  stuUnit in 'stuUnit.pas' {stuForm},
  queryUnit in 'queryUnit.pas' {queryForm},
  changeUnit in 'changeUnit.pas' {changeForm},
  rewardUnit in 'rewardUnit.pas' {rewardForm},
  punishUnit in 'punishUnit.pas' {punishForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TDMform, DMform);
  loginform:=tloginform.Create(application);
  loginform.ShowModal;

  if loginform.ModalResult=1 then
  begin
    application.CreateForm(tmainform,mainform);
  end
  else
  begin
    loginform:=nil;
    application.Terminate;
  end;

  Application.Run;
end.