booklib.dpr

来自「好多上载非界面和非WEB源码」· DPR 代码 · 共 45 行

program booklib;

uses
  Forms,
  mainfrm in 'mainfrm.pas' {mainform},
  login in 'login.pas' {loginfrm},
  global in 'global.pas',
  exbookinfoUnit in 'exbookinfoUnit.pas' {extimebookfrm},
  newbookUnit in 'newbookUnit.pas' {newfrm},
  delrec in 'delrec.pas' {Form1},
  modify in 'modify.pas' {modifyfrm},
  mgrquery in 'mgrquery.pas' {mgrqfrm},
  owner in 'owner.pas' {ownerfrm},
  regulation in 'regulation.pas' {regfrm},
  setpath in 'setpath.pas' {setpathfrm},
  jiami in 'jiami.pas' {jiamifrm},
  userinfo in 'userinfo.pas' {userinfofrm},
  guanyu in 'guanyu.pas' {guanyufrm},
  returnbook in 'returnbook.pas' {returnbookfrm},
  uquery in 'uquery.pas' {uqueryfrm},
  borrowbooks in 'borrowbooks.pas' {borrowfrm};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tmainform, mainform);
  Application.CreateForm(Tloginfrm, loginfrm);
  Application.CreateForm(Textimebookfrm, extimebookfrm);
  Application.CreateForm(Tnewfrm, newfrm);
  Application.CreateForm(Tdelfrm, delfrm);
  Application.CreateForm(Tmodifyfrm, modifyfrm);
  Application.CreateForm(Tmgrqfrm, mgrqfrm);
  Application.CreateForm(Townerfrm, ownerfrm);
  Application.CreateForm(Tregfrm, regfrm);
  Application.CreateForm(Tsetpathfrm, setpathfrm);
  Application.CreateForm(Tjiamifrm, jiamifrm);
  Application.CreateForm(Tuserinfofrm, userinfofrm);
  Application.CreateForm(Tguanyufrm, guanyufrm);
  Application.CreateForm(Treturnbookfrm, returnbookfrm);
  Application.CreateForm(Tuqueryfrm, uqueryfrm);
  Application.CreateForm(Tborrowfrm, borrowfrm);
  Application.Run;
end.