tianya.dpr

工廠採購管理系統

program tianya;

uses
  Forms,
  uconst in 'uconst.pas',
  ufunction in 'ufunction.pas',
  frmwlcplb in 'frmwlcplb.pas' {ufrmwlcplb},
  Unit_treepublic in 'Unit_treepublic.pas',
  umaterial_info in 'umaterial_info.pas' {frmmaterial_info},
  ufrmian in 'ufrmian.pas' {frmmain},
  udm1 in 'udm1.pas' {dm1: TDataModule},
  ufrmproduct_info in 'ufrmproduct_info.pas' {frmproduct_info},
  ufrmsupplier_info in 'ufrmsupplier_info.pas' {frmsupplier_info},
  ufrmcustomer_info in 'ufrmcustomer_info.pas' {frmcustomer_info},
  ucx in 'ucx.pas' {frmcx},
  uarea in 'uarea.pas' {frmarea},
  uwlsmallclass in 'uwlsmallclass.pas' {frmwlsmallclass},
  ucpsmallclass in 'ucpsmallclass.pas' {frmcpsmallclass},
  ucountry in 'ucountry.pas' {frmcountry},
  ugyslb in 'ugyslb.pas' {frmgyslb},
  ucgjhd in 'ucgjhd.pas' {frmcgjhd},
  usccgxq in 'usccgxq.pas' {frmsccgxq},
  uhtlb in 'uhtlb.pas' {frmhtlb},
  uqtcgjh_lr in 'uqtcgjh_lr.pas' {frmqtcgjh_lr},
  uddhm_lb in 'uddhm_lb.pas' {frmddhm_lb},
  uwllb in 'uwllb.pas' {frmwllb},
  ucgjh_lb in 'ucgjh_lb.pas' {frmcgjh_lb},
  ucgjh_lr in 'ucgjh_lr.pas' {frmcgjh_lr},
  uthgl in 'uthgl.pas' {frmthgl},
  uxqdh_lb in 'uxqdh_lb.pas' {frmxqdh_lb},
  ucgdd_wllb in 'ucgdd_wllb.pas' {frmcgdd_wllb},
  uthd_lb in 'uthd_lb.pas' {frmthd_lb},
  ucgjhdh_lb in 'ucgjhdh_lb.pas' {frmcgjhdh_lb},
  ugysbj in 'ugysbj.pas' {frmgysbj},
  ubjd_lb in 'ubjd_lb.pas' {frmbjd_lb},
  uwlzxqtj in 'uwlzxqtj.pas' {frmwlzxqtj},
  uwljcmx in 'uwljcmx.pas' {frmwljcmx},
  uwljg_db in 'uwljg_db.pas' {frmwljg_db},
  ucgdd in 'ucgdd.pas' {frmcgdd},
  ubjdh_lb in 'ubjdh_lb.pas' {frmbjdh_lb},
  ucgdd_lb in 'ucgdd_lb.pas' {frmcgdd_lb},
  uwclwl in 'uwclwl.pas' {frmwclwl},
  ugysgywl in 'ugysgywl.pas' {frmgysgywl},
  ucgwltj in 'ucgwltj.pas' {frmcgwltj},
  Connectsql in 'Connectsql.pas' {ConnectsqlForm},
  uxqdwcqk in 'uxqdwcqk.pas' {frmxqdwcqk},
  uwlkczt in 'uwlkczt.pas' {frmwlkczt},
  uddshqk in 'uddshqk.pas' {frmcgshqk},
  uemplyer in 'uemplyer.pas' {frmemplyer},
  Unit3 in 'Unit3.pas' {Form3},
  ucgjh_wllb in 'ucgjh_wllb.pas' {frmcgjh_wllb},
  Backup in 'Backup.pas' {BackUpForm},
  restore in 'restore.pas' {RestoreForm},
  MYclass in 'MYclass.pas',
  Wait in 'Wait.pas' {WaitForm},
  usjql in 'usjql.pas' {frmsjql},
  uqxsz in 'uqxsz.pas' {frmqxsz},
  uflash in 'uflash.pas' {frmflash},
  loginunit in 'loginunit.pas' {loginform},
  uuser in 'uuser.pas' {frmuser},
  uuser_password in 'uuser_password.pas' {frmpassword},
  uabout in 'uabout.pas' {frmabout},
  ucompany in 'ucompany.pas' {frmcompany},
  uwdwltj in 'uwdwltj.pas' {frmwdwltj},
  uwlbj in 'uwlbj.pas' {frmwlbj},
  frmunit in 'frmunit.pas' {uunit},
  ucgzxqk in 'ucgzxqk.pas' {frmcgzxqk},
  ushd_wllb in 'ushd_wllb.pas' {frmshd_wllb},
  ushdh_lb in 'ushdh_lb.pas' {frmshdh_lb},
  ChatFrm in 'ChatFrm.pas' {ChatClientForm},
  MainFrm in 'MainFrm.pas' {ChatInfo},
  xBASE in 'xBASE.pas',
  umessage in 'umessage.pas' {frmmessage},
  uthwl in 'uthwl.pas' {frmthwl},
  uwlty in 'uwlty.pas' {frmwlty},
  Umaterial_gys in 'Umaterial_gys.pas' {frmmaterial_gys},
  ugysdd in 'ugysdd.pas' {frmgysdd},
  uemplyer_lb in 'uemplyer_lb.pas' {frmemplyer_lb},
  Uxqwcqk in 'Uxqwcqk.pas' {frmxqwcqk},
  Ugdwcqk in 'Ugdwcqk.pas' {frmgdwcqk},
  uxqwcjs in 'uxqwcjs.pas' {frmxqwcjs},
  uxqdh_wllb in 'uxqdh_wllb.pas' {frmcgxq_wllb},
  uprofession in 'uprofession.pas' {frmprofession},
  updwlap in 'updwlap.pas' {frmpdwlap},
  ubgkz in 'ubgkz.pas' {frmbgkz},
  ufrmylgdcx in 'ufrmylgdcx.pas' {frmylgdcx},
  uwlfpcx in 'uwlfpcx.pas' {frmwlfpcx},
  uwbg_mater_info in 'uwbg_mater_info.pas' {frmswbgwl},
  Ufrmwllbxz in 'Ufrmwllbxz.pas' {frmwllbxz},
  Ushdzlasmonth in 'Ushdzlasmonth.pas' {frmshdzlasmonth},
  Ushdasmonth in 'Ushdasmonth.pas' {frmshdasmonth};

{$R *.res}

begin
  Application.Initialize;
  Application.Title := '力盈采购管理系统';
  Application.CreateForm(Tfrmmain, frmmain);
  Application.CreateForm(Tdm1, dm1);
  Application.CreateForm(Tfrmwllbxz, frmwllbxz);
  if isclose=true then
     begin
     application.Terminate;
     exit;
     end;
  Application.CreateForm(Tloginform, loginform);
  Application.CreateForm(Tfrmmessage, frmmessage);
  Application.CreateForm(Tfrmwllb, frmwllb);
  Application.CreateForm(Tfrmhtlb, frmhtlb);
  Application.CreateForm(Tfrmflash, frmflash);
  loginform.showmodal;
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TChatClientForm, ChatClientForm);
  Application.CreateForm(TChatInfo, ChatInfo);
  ChatClientForm.Show;
  ChatClientForm.Hide;
  Application.Run;
end.