project1.dpr

DELPHI影碟音像出租管理系统（优秀全套）是出租管理的一个很典型的例子

program Project1;

uses
  Forms,
  unit_addingdie in 'unit_addingdie.pas' {frm_addingdie},
  unit_addingman in 'unit_addingman.pas' {frm_addingman},
  unit_borrowing in 'unit_borrowing.pas',
  unit_dietotal in 'unit_dietotal.pas' {frm_dietotal},
  unit_first in 'unit_first.pas' {frm_first},
  unit_huiyuantotal in 'unit_huiyuantotal.pas' {frm_huiyuantotal},
  unit_yingdietotal in 'unit_yingdietotal.pas' {frm_yingdietotal};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(Tfrm_addingdie, frm_addingdie);
  Application.CreateForm(Tfrm_addingman, frm_addingman);
  Application.CreateForm(Tfrm_dietotal, frm_dietotal);
  Application.CreateForm(Tfrm_first, frm_first);
  Application.CreateForm(Tfrm_huiyuantotal, frm_huiyuantotal);
  Application.CreateForm(Tfrm_yingdietotal, frm_yingdietotal);
  Application.Run;
end.