mainprj.dpr

来自「Delphi实战演练一书的配套光盘」· DPR 代码 · 共 46 行

program MainPrj;

uses
  Forms,
  Main in 'Main.pas' {MainFrm},
  QcZlWh in 'QcZlWh.pas' {QcZlWhFrm},
  XzlzlWh in 'XzlzlWh.pas' {XzlzlWhFrm},
  RczpWh in 'RczpWh.pas' {RczpWhFrm},
  RcjlzxWh in 'RcjlzxWh.pas' {RcJlzxWhFrm},
  EsqcChx in 'EsqcChx.pas' {EsqcChxFrm},
  QcZlChx in 'QcZlChx.pas' {QczlChxFrm},
  XzlzlChx in 'XzlzlChx.pas' {XzlZlChxFrm},
  RczpChx in 'RczpChx.pas' {RczpChxFrm},
  GlxxFwrcTj in 'GlxxFwrcTj.pas' {GlxxFwrcTjFrm},
  EsqcKpdy in 'EsqcKpdy.pas' {EsqcKpdyFrm},
  GlxxFwrcTjtbDy in 'GlxxFwrcTjtbDy.pas' {GlxxFwrcTjtbDyFrm},
  QcShchLbDy in 'QcShchLbDy.pas' {QcShchLbDyFrm},
  YonghuDenglu in 'YonghuDenglu.pas' {YonghuDengluFrm},
  XiugaiKouling in 'XiugaiKouling.pas' {XiugaiKoulingFrm},
  YonghuQuanxianGl in 'YonghuQuanxianGl.pas' {YonghuQuanxianGlFrm},
  EsqcWh in 'EsqcWh.pas' {EsqcWhFrm};

{$R *.RES}

begin
  Application.Initialize;
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TQcZlWhFrm, QcZlWhFrm);
  Application.CreateForm(TXzlzlWhFrm, XzlzlWhFrm);
  Application.CreateForm(TRczpWhFrm, RczpWhFrm);
  Application.CreateForm(TRcJlzxWhFrm, RcJlzxWhFrm);
  Application.CreateForm(TEsqcChxFrm, EsqcChxFrm);
  Application.CreateForm(TQczlChxFrm, QczlChxFrm);
  Application.CreateForm(TXzlZlChxFrm, XzlZlChxFrm);
  Application.CreateForm(TRczpChxFrm, RczpChxFrm);
  Application.CreateForm(TGlxxFwrcTjFrm, GlxxFwrcTjFrm);
  Application.CreateForm(TEsqcKpdyFrm, EsqcKpdyFrm);
  Application.CreateForm(TGlxxFwrcTjtbDyFrm, GlxxFwrcTjtbDyFrm);
  Application.CreateForm(TQcShchLbDyFrm, QcShchLbDyFrm);
  Application.CreateForm(TYonghuDengluFrm, YonghuDengluFrm);
  Application.CreateForm(TXiugaiKoulingFrm, XiugaiKoulingFrm);
  Application.CreateForm(TYonghuQuanxianGlFrm, YonghuQuanxianGlFrm);
  Application.CreateForm(TEsqcWhFrm, EsqcWhFrm);
  Application.Run;
end.