grade.dpr

来自「一个小的成绩信息管理系统」· DPR 代码 · 共 26 行

program grade;

uses
  Forms,
  mainUnit in 'mainUnit.pas' {mainForm},
  LoginUnit in 'LoginUnit.pas' {loginForm},
  userUnit in 'userUnit.pas' {userForm},
  accessUnit in 'accessUnit.pas' {accessForm},
  graderegUnit in 'graderegUnit.pas' {graderegForm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TmainForm, mainForm);
  mainForm.Hide;
  loginForm:=TloginForm.Create(nil);
  if loginForm.ShowModal=1 then
     begin
       loginForm.free;
       Application.Run;
     end
  else
     mainForm.Free;
end.