bookmgr.~dpr

来自「学生信息管理系统 简单容易上手」· ~DPR 代码 · 共 46 行

program bookmgr;

uses
  Forms,
  main in 'main.pas' {mainfrm},
  login in 'login.pas' {loginfrm},
  regulation in 'regulation.pas' {regfrm},
  setpath in 'setpath.pas' {setpathfrm},
  about in 'about.pas' {aboutfrm},
  uquery in 'uquery.pas' {uqueryfrm},
  newbook in 'newbook.pas' {newfrm},
  borrowbooks in 'borrowbooks.pas' {borrowfrm},
  exbookinfo in 'exbookinfo.pas' {extimebookfrm},
  enc in 'enc.pas' {encfrm},
  userinfo in 'userinfo.pas' {userinfofrm},
  returnbook in 'returnbook.pas' {returnbookfrm},
  delrec in 'delrec.pas' {delfrm},
  modify in 'modify.pas' {modifyfrm},
  mgrquery in 'mgrquery.pas' {mgrqfrm},
  global in 'global.pas',
  owner in 'owner.pas' {ownerfrm};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '图书信息管理系统1.0';
  Application.CreateForm(Tmainfrm, mainfrm);
  Application.CreateForm(Tlonginfrm, longinfrm);
  Application.CreateForm(Tregfrm, regfrm);
  Application.CreateForm(Tsetpathfrm, setpathfrm);
  Application.CreateForm(Taboutfrm, aboutfrm);
  Application.CreateForm(Tuqueryfrm, uqueryfrm);
  Application.CreateForm(Tnewfrm, newfrm);
  Application.CreateForm(Tborrowfrm, borrowfrm);
  Application.CreateForm(Textimebookfrm, extimebookfrm);
  Application.CreateForm(Tencfrm, encfrm);
  Application.CreateForm(Tuserinfofrm, userinfofrm);
  Application.CreateForm(Treturnbookfrm, returnbookfrm);
  Application.CreateForm(Tdelfrm, delfrm);
  Application.CreateForm(Tmodifyfrm, modifyfrm);
  Application.CreateForm(Tmgrqfrm, mgrqfrm);
  Application.CreateForm(Townerfrm, ownerfrm);
  Application.Run;
end.