project1.~dpr

来自「是个文档,和软件工程类似,如何实现一工程所需步骤」· ~DPR 代码 · 共 45 行

program Project1;

uses
  Forms,
  right in 'right.pas' {frmright},
  member in 'member.pas' {frmmember},
  bcustomer in 'bcustomer.pas' {frmcustomer},
  sale in 'sale.pas' {frmsale},
  code in 'code.pas' {frmcode},
  integration in 'integration.pas' {frmintegration},
  salestatic in 'salestatic.pas' {frmsalestatic},
  drawback in 'drawback.pas' {frmdrawback},
  main in 'main.pas' {frmmain},
  instorage in 'instorage.pas' {frminstorage},
  outstorage in 'outstorage.pas' {frmoutstorage},
  fillbought in 'fillbought.pas' {frmfillbought},
  boughtcheck in 'boughtcheck.pas' {frmboughtcheck},
  style in 'style.pas' {frmstyle},
  login in 'login.pas' {Frmlogin},
  Unit3 in 'Unit3.pas' {Frame3: TFrame},
  Unit9 in 'Unit9.pas' {frmnew};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TFrmlogin, Frmlogin);
  Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(Tfrmcode, frmcode);
  Application.CreateForm(Tfrmsale, frmsale);
  Application.CreateForm(Tfrmmember, frmmember);
  Application.CreateForm(Tfrmright, frmright);
  Application.CreateForm(Tfrmcustomer, frmcustomer);
  Application.CreateForm(Tfrmintegration, frmintegration);
  Application.CreateForm(Tfrmsalestatic, frmsalestatic);
  Application.CreateForm(Tfrmdrawback, frmdrawback);
  Application.CreateForm(Tfrminstorage, frminstorage);
  Application.CreateForm(Tfrmoutstorage, frmoutstorage);
  Application.CreateForm(Tfrmfillbought, frmfillbought);
  Application.CreateForm(Tfrmboughtcheck, frmboughtcheck);
  Application.CreateForm(Tfrmstyle, frmstyle);
  Application.CreateForm(Tfrmnew, frmnew);
  Application.Run;
end.