project1.~dpr

来自「delphi自动出题系统源代码,有兴趣的可以来看看！」· ~DPR 代码 · 共 41 行

program Project1;

uses
  Forms,
  manufacture in 'manufacture.pas' {manufactureform},
  editer in 'editer.pas' {editeform},
  inquire in 'inquire.pas' {inquireform},
  main in 'main.pas' {mainform},
  modify in 'modify.pas' {testedit},
  Unit1 in 'Unit1.pas' {generateform},
  Unit2 in 'Unit2.pas' {resultform},
  report in 'report.pas' {reporform},
  global in 'global.pas',
  enter in 'enter.pas' {enterform},
  setpasswd in 'setpasswd.pas' {setpassword},
  add in 'add.pas' {addform};

{$R *.RES}

begin
  Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(Taddform, addform);
  enterform:=Tenterform.Create(application);
  enterform.ShowModal;
  if enterform.ModalResult<>2 then
  begin
  Application.Initialize;
  Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(Tmanufactureform, manufactureform);
  Application.CreateForm(Tediteform, editeform);
  Application.CreateForm(Tinquireform, inquireform);
  Application.CreateForm(Ttestedit, testedit);
  Application.CreateForm(Tgenerateform, generateform);
  Application.CreateForm(Tresultform, resultform);
  Application.CreateForm(Treporform, reporform);
  Application.CreateForm(Tenterform, enterform);
  Application.CreateForm(Tsetpassword, setpassword);
  Application.Run;
  end;
end.