scmanger.dpr

来自「DELPHI 编写的生产企业管理软件 毛织管理器」· DPR 代码 · 共 42 行

program scmanger;

uses
  Forms,
  login in 'LOGIN.PAS' {loginfm},
  mddata in 'MDDATA.PAS' {DataModule2: TDataModule},
  constb in 'constb.pas',
  scmain in 'SCMAIN.PAS' {scmainfm},
  scbrow in 'scbrow.pas' {scbrowfm},
  gxmanage in 'gxmanage.pas' {gxmanagefm},
  guestmanage in 'guestmanage.pas' {guestmanagefm},
  pnmanage in 'pnmanage.pas' {pnmanagefm},
  about in 'about.pas' {AboutBoxfm},
  pnomainrpt in 'pnomainrpt.pas' {pnomainrptfm},
  pnofinishrpt in 'pnofinishrpt.pas' {pnofinishrptfm},
  finishpnomxrpt in 'finishpnomxrpt.pas' {finishpnomxrptfm},
  gzyrpt in 'gzyrpt.pas' {gzyrptfm},
  gzyrpt1 in 'gzyrpt1.pas' {gzyrptfm1},
  finishpnomem in 'finishpnomem.pas' {finishpnomemfm},
  fpnojrpt in 'fpnojrpt.pas' {fpnojrptfm},
  fpnojrpt1 in 'fpnojrpt1.pas' {fpnojrptfm1},
  nfinishpno in 'nfinishpno.pas' {nfinishpnofm},
  scgxprint in 'scgxprint.pas' {scgxprtfm},
  fdeptgx in 'fdeptgx.pas' {fdeptgxfm},
  pprice in 'pprice.pas' {ppricefm};

{$R *.res}

begin

   datamodule2 := tdatamodule2.create(application);
  loginfm := tloginfm.Create(application);
  loginfm.ShowModal;
  if loginflg then
  begin
    Application.Initialize;
    Application.CreateForm(Tscmainfm, scmainfm);
  Application.Run;
  end;
end.