mastapp.dpr

Delphi利用MVC开发的典型例子

program Mastapp;

uses
  Forms,
  patterns,
  Splash in 'SPLASH.PAS' {SplashForm},
  mainview in 'mainview.pas' {ViewMain},
  Brparts in 'BRPARTS.PAS' {BrPartsForm},
  QryCust in 'QryCust.pas' {QueryCustDlg},
  Edparts in 'edparts.pas' {EdPartsForm},
  BrCstOrd in 'BrCstOrd.pas' {BrCustOrdForm},
  Edcust in 'EDCUST.PAS' {EdCustForm},
  Edorders in 'EDORDERS.PAS' {EdOrderForm},
  SrchDlg in 'SrchDlg.pas' {SearchDlg},
  Pickdate in 'PICKDATE.PAS' {BrDateForm},
  About in 'ABOUT.PAS' {AboutBox},
  Pickrep in 'pickrep.pas' {PickRpt},
  DataMod in 'datamod.pas' {MastData: TDataModule},
//  CustRpt in 'CustRpt.pas' {CustomerByInvoiceReport: TQuickRep},
//  OrderRpt in 'OrderRpt.pas' {OrdersByDateReport: TQuickRep},
//  InvcRpt in 'InvcRpt.pas' {InvoiceByOrderNoReport: TQuickRep},
  PickInvc in 'PickInvc.pas' {PickOrderNoDlg},
  Commandlist in 'Commandlist.pas',
  mainctrl in 'mainctrl.pas',
  ReportCtrl in 'ReportCtrl.pas';

{$R *.RES}

begin

  Application.Title := 'Marine Adventures Order Entry';
  Application.HelpFile := 'MASTAPP.HLP';
  SplashForm.Hide;
  SplashForm.Free;
  ControlCenter.run;
end.