pos.dpr

牧羊人服饰系统 (ADO+SQL) 第三方控件：advstringgrid

program pos;

uses
  Forms,
  mainunt in '..\source\mainunt.pas' {main},
  maind in '..\source\maind.pas',
  data in '..\source\data.pas' {Dataman: TDataModule},
  jswcunt in '..\source\jswcunt.pas' {jswcfrm},
  thmainunt in '..\source\thmainunt.pas' {thmainfrm},
  thunt in '..\source\thunt.pas' {thfrm},
  vipxzunt in '..\source\vipxzunt.pas' {vipxzfrm},
  printsetupunt in '..\source\printsetupunt.pas' {printsetupfrm},
  hyszunt in '..\source\hyszunt.pas' {hyszfrm},
  pswunt in '..\source\pswunt.pas' {pswfrm},
  sysiniunt in '..\source\sysiniunt.pas' {sysinifrm},
  xtszunt in '..\source\xtszunt.pas' {xtszfrm},
  hyunt in '..\source\hyunt.pas' {hyfrm},
  drmainunt in '..\source\drmainunt.pas' {drmainfrm},
  rlunt in '..\source\rlunt.pas' {rlfrm},
  dcunt in '..\source\dcunt.pas' {dcfrm},
  mrxsfxunt in '..\source\mrxsfxunt.pas' {kccxfrm},
  yjunt in '..\source\yjunt.pas' {yjfrm},
  login in '..\source\login.pas' {loginfrm},
  datam in '..\source\datam.pas',
  hyqkcx in '..\source\hyqkcx.pas' {hyqkcxfrm},
  kcqkunt in '..\source\kcqkunt.pas' {kcqkcxfrm},
  drcxunt in '..\source\drcxunt.pas' {drcxfrm},
  dccxunt in '..\source\dccxunt.pas' {dccxfrm},
  jgwhunt in '..\source\jgwhunt.pas' {jgwhfrm},
  hyxfphunt in '..\source\hyxfphunt.pas' {hyxfphfrm},
  spxsphbunt in '..\source\spxsphbunt.pas' {xsphbfrm},
  lyunt in '..\source\lyunt.pas' {dyyjxfrm},
  sjbfunt in '..\source\sjbfunt.pas' {sjbffrm},
  sjhfunt in '..\source\sjhfunt.pas' {sjhffrm},
  cklyunt in '..\source\cklyunt.pas' {cklyfrm},
  ckdyjlunt in '..\source\ckdyjlunt.pas' {ckdyjlfrm},
  qdsxunt in '..\source\qdsxunt.pas' {qdsxfrm},
  hbunt in '..\source\hbunt.pas' {dyhbfrm},
  drwhunt in '..\source\drwhunt.pas' {drwhfrm},
  dcwhunt in '..\source\dcwhunt.pas' {dcwhfrm},
  thcxunt in '..\source\thcxunt.pas' {thcxfrm},
  thwhunt in '..\source\thwhunt.pas' {thwhfrm},
  start in '..\source\start.pas' {startfrm},
  changeunt in '..\source\changeunt.pas' {changefrm},
  pdunt in '..\source\pdunt.pas' {pdfrm},
  update in '..\source\update.pas' {updatefrm};

{$R *.res}
begin
  Application.Initialize;
  if save_display('屏幕分辨率')=true then
  begin
  dynamicchangedisplay(800,600);
  startfrm:=tstartfrm.Create(application);
  startfrm.Show;
  startfrm.Update;
  Application.Title := '牧羊人服饰';
  Application.CreateForm(Tmain, main);
  Application.CreateForm(TDataman, Dataman);
  Application.CreateForm(Tchangefrm, changefrm);
  Application.CreateForm(Tpdfrm, pdfrm);
  Application.CreateForm(Tupdatefrm, updatefrm);
  if  source_check=true then
   begin
   startfrm.Hide;
   startfrm.Free;
   IF loginfrm=nil THEN Application.CreateForm(Tloginfrm,loginfrm);
   loginfrm.showmodal;
   end;
  IF qdsxfrm=nil THEN Application.CreateForm(Tqdsxfrm,qdsxfrm);
   qdsxfrm.showmodal;
  Application.Run;
  end;
end.