home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk15 / mastapp.pak / MASTAPP.DPR < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.3 KB  |  41 lines
  1. program Mastapp;
  2.  
  3. uses
  4.   Forms,
  5.   Main in 'MAIN.PAS' {MainForm},
  6.   Brparts in 'BRPARTS.PAS' {BrPartsForm},
  7.   Custqry in 'CUSTQRY.PAS' {CustQueryDlg},
  8.   Edparts in 'EDPARTS.PAS' {EdPartsForm},
  9.   Custord in 'CUSTORD.PAS' {BrCustOrdForm},
  10.   Edcust in 'EDCUST.PAS' {EdCustForm},
  11.   Edorders in 'EDORDERS.PAS' {OrderForm},
  12.   Brmodal in 'BRMODAL.PAS' {PickDlg},
  13.   Splash in 'SPLASH.PAS' {SplashForm},
  14.   Pickdate in 'PICKDATE.PAS' {BrDateForm},
  15.   About in 'ABOUT.PAS' {AboutBox},
  16.   Pickrep in 'PICKREP.PAS' {PickRpt};
  17.  
  18. {$R *.RES}
  19.  
  20. begin
  21.   SplashForm := TSplashForm.Create(Application);
  22.   SplashForm.Show;
  23.   SplashForm.Update;
  24.   Application.Title := 'Marine Adventures Order Entry';
  25.   Application.HelpFile := 'MASTAPP.HLP';
  26.   Application.CreateForm(TMainForm, MainForm);
  27.   Application.CreateForm(TBrPartsForm, BrPartsForm);
  28.   Application.CreateForm(TCustQueryDlg, CustQueryDlg);
  29.   Application.CreateForm(TEdPartsForm, EdPartsForm);
  30.   Application.CreateForm(TBrCustOrdForm, BrCustOrdForm);
  31.   Application.CreateForm(TEdCustForm, EdCustForm);
  32.   Application.CreateForm(TOrderForm, OrderForm);
  33.   Application.CreateForm(TPickDlg, PickDlg);
  34.   Application.CreateForm(TBrDateForm, BrDateForm);
  35.   Application.CreateForm(TAboutBox, AboutBox);
  36.   Application.CreateForm(TPickRpt, PickRpt);
  37.   SplashForm.Hide;
  38.   SplashForm.Free;
  39.   Application.Run;
  40. end.
  41.