project1.~dpr

来自「该是一个比较好的图书馆系统,是现在大学生软件课程设计的好模板」· ~DPR 代码 · 共 52 行

program Project1;

uses
  Forms,
  login in 'login.pas' {log},
  account_information in 'account_information.pas' {account_inf},
  password_edit in 'password_edit.pas' {pass_edit},
  browse in 'browse.pas' {browser},
  browse_users in 'browse_users.pas' {browse_user},
  card_lost in 'card_lost.pas' {cardlost},
  borrow_card in 'borrow_card.pas' {borrowcard},
  new_book in 'new_book.pas' {newbook},
  num_set in 'num_set.pas' {numset},
  book_arrange in 'book_arrange.pas' {bookarrange},
  seek_user in 'seek_user.pas' {seekuser},
  seek_book in 'seek_book.pas' {seekbook},
  end_data in 'end_data.pas' {enddata},
  search_self in 'search_self.pas' {searchself},
  end_warn in 'end_warn.pas' {endwarn},
  user_lost in 'user_lost.pas' {userlost},
  about_inf in 'about_inf.pas' {about},
  borrow_return in 'borrow_return.pas' {borrow},
  borrow_history in 'borrow_history.pas' {borrowhistory},
  give_up in 'give_up.pas' {giveup};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tlog, log);
  Application.CreateForm(Taccount_inf, account_inf);
  Application.CreateForm(Tpass_edit, pass_edit);
  Application.CreateForm(Tbrowser, browser);
  Application.CreateForm(Tbrowse_user, browse_user);
  Application.CreateForm(Tcardlost, cardlost);
  Application.CreateForm(Tborrowcard, borrowcard);
  Application.CreateForm(Tnewbook, newbook);
  Application.CreateForm(Tnumset, numset);
  Application.CreateForm(Tbookarrange, bookarrange);
  Application.CreateForm(Tseekuser, seekuser);
  Application.CreateForm(Tseekbook, seekbook);
  Application.CreateForm(Tenddata, enddata);
  Application.CreateForm(Tsearchself, searchself);
  Application.CreateForm(Tendwarn, endwarn);
  Application.CreateForm(Tuserlost, userlost);
  Application.CreateForm(Tabout, about);
  Application.CreateForm(Tborrow, borrow);
  Application.CreateForm(Tborrowhistory, borrowhistory);
  Application.CreateForm(Tgiveup, giveup);
  Application.Run;
end.