audiomng.dpr

一个音像租赁店铺的管理软件,可以维护影片库信息和会员信息,及日常业务的实现(出租/归还).这是我学delphi整一个月的纪念品,有些简单,不过我还是希望和大家分享一下我的成长历程.

program AudioMng;

uses
  Forms,
  UnitMain in 'UnitMain.pas' {frmMain},
  UnitAllFilm in 'UnitAllFilm.pas' {frmAllFilm},
  UnitDM in 'UnitDM.pas' {DM: TDataModule},
  UnitSearchFilm in 'UnitSearchFilm.pas' {frmSearchFilm},
  UnitAddFilm in 'UnitAddFilm.pas' {frmAddFilm},
  UnitType in 'UnitType.pas' {frmType},
  UnitMenber in 'UnitMenber.pas' {frmMenber},
  UnitRegist in 'UnitRegist.pas' {frmRegist},
  UnitSearchMenber in 'UnitSearchMenber.pas' {frmSearchMenber},
  UnitComCZ in 'UnitComCZ.pas' {frmComCZ},
  UnitMenCZ in 'UnitMenCZ.pas' {frmMenCZ},
  UnitComGH in 'UnitComGH.pas' {frmComGH},
  UnitMenGH in 'UnitMenGH.pas' {frmMenGH},
  UnitAbout in 'UnitAbout.pas' {frmAbout},
  UnitPub in 'UnitPub.pas';

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '音像店管理程序';
  Application.CreateForm(TfrmMain, frmMain);
  Application.CreateForm(TfrmAllFilm, frmAllFilm);
  Application.CreateForm(TDM, DM);
  {
  Application.CreateForm(TfrmSearch, frmSearch);
  Application.CreateForm(TfrmAddFilm, frmAddFilm);
  Application.CreateForm(TfrmType, frmType);
  Application.CreateForm(TfrmMenber, frmMenber);
  Application.CreateForm(TfrmRegist, frmRegist);
  Application.CreateForm(TfrmSearchMenber, frmSearchMenber);
  Application.CreateForm(TfrmComCZ, frmComCZ);
  Application.CreateForm(TfrmMenCZ, frmMenCZ);
  Application.CreateForm(TfrmComGH, frmComGH);
  Application.CreateForm(TfrmMenGH, frmMenGH);
  Application.CreateForm(TfrmAbout, frmAbout);
  }
  Application.Run;
end.