wtxt.dpr

delphi开发的委托加工管理系统源代码

program wtxt;

uses
  Forms,
  flash1 in 'form\flash1.pas' {flash},
  log1 in 'form\log1.pas' {log},
  main1 in 'form\main1.pas' {main},
  adodm in 'form\adodm.pas' {dm: TDataModule},
  gszl1 in 'form\gszl1.pas' {gszl},
  rk1 in 'form\rk1.pas' {rk},
  ck1 in 'form\ck1.pas' {ck},
  wel in 'form\wel.pas' {ql},
  kccx1 in 'form\kccx1.pas' {kccx},
  ql1 in 'form\ql1.pas' {wl},
  wf1 in 'form\wf1.pas' {wf},
  jglb1 in 'form\jglb1.pas' {jglb},
  cklb1 in 'form\cklb1.pas' {cklb},
  zggl1 in 'form\zggl1.pas' {zggl},
  gyszl1 in 'form\gyszl1.pas' {gyszl},
  pas1 in 'form\pas1.pas' {pas},
  gzgl1 in 'form\gzgl1.pas' {gzgl},
  gy1 in 'form\gy1.pas' {gy},
  yjql1 in 'form\yjql1.pas' {yjql},
  rkdg1 in 'form\rkdg1.pas' {rkdcx},
  ckdcx1 in 'form\ckdcx1.pas' {ckdcx},
  wait1 in 'form\wait1.pas' {wait},
  rkdcx_find1 in 'form\rkdcx_find1.pas' {rkdcx_find},
  yj_find1 in 'form\yj_find1.pas' {yj_find},
  ckdcx_find1 in 'form\ckdcx_find1.pas' {ckdcx_find},
  sjzl1 in 'form\sjzl1.pas' {sjzl},
  gzcx1 in 'form\gzcx1.pas' {gzcx},
  djgx1 in 'form\djgx1.pas' {djgx},
  sgzl1 in 'form\sgzl1.pas' {sgzl},
  xjrj1 in 'form\xjrj1.pas' {xjrj},
  help1 in 'form\help1.pas' {help},
  sck1 in 'form\sck1.pas' {sck},
  kcpd1 in 'form\kcpd1.pas' {kcpd},
  skin1 in 'form\skin1.pas' {skin};

{$R *.res}

var time1:tdatetime;

begin
  flash:=tflash.Create(nil);
  flash.show;
  flash.update;
//  time1:=now;
//  repeat
//  until time1+strtotime('00:00:3')<=now;
  Application.Initialize;
  Application.Title := '加工管理系统';
  Application.CreateForm(Tlog, log);
  Application.CreateForm(Tyjql, yjql);
  Application.CreateForm(Trkdcx, rkdcx);
  Application.CreateForm(Tckdcx, ckdcx);
  Application.CreateForm(Twait, wait);
  Application.CreateForm(Trkdcx_find, rkdcx_find);
  Application.CreateForm(Tyj_find, yj_find);
  Application.CreateForm(Tckdcx_find, ckdcx_find);
  Application.CreateForm(Tsjzl, sjzl);
  Application.CreateForm(Tgzcx, gzcx);
  Application.CreateForm(Tdjgx, djgx);
  Application.CreateForm(Tsgzl, sgzl);
  Application.CreateForm(Txjrj, xjrj);
  Application.CreateForm(Thelp, help);
  Application.CreateForm(Tsck, sck);
  Application.CreateForm(Tkcpd, kcpd);
  Application.CreateForm(Tskin, skin);
  flash.Hide;
  Application.CreateForm(tckdcx, ckdcx);
  Application.CreateForm(Tdm, dm);
  Application.CreateForm(Tflash, flash);
  Application.CreateForm(Tmain, main);
  Application.Run;
end.