main.dpr

来自「用Delphi做的一个学生数据库系统」· DPR 代码 · 共 38 行

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},
  changUnit in 'changUnit.pas' {changfrom},
  rewardUnit in 'rewardUnit.pas' {rewardform},
  chufaUnit in 'chufaUnit.pas' {punishform};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '学生管理系统';
  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.