prj_pos.dpr

POS收银系统

program prj_pos;

uses
  Forms,
  classes,
  pfm_main in 'pfm_main.pas' {main},
  pfm_query in 'pfm_query.pas' {fm_query},
  pvar_lib in 'pvar_lib.pas',
  pfm_rightset in 'pfm_rightset.pas' {fm_rightset},
  pfm_gys in 'pfm_gys.pas' {fm_gys},
  pfm_khxx in 'pfm_khxx.pas' {fm_khxx},
  pfm_ckxx in 'pfm_ckxx.pas' {fm_ckxx},
  pfm_ygxx in 'pfm_ygxx.pas' {fm_ygxx},
  pfm_spxx in 'pfm_spxx.pas' {fm_spxx},
  pfm_bmxx in 'pfm_bmxx.pas' {fm_bmxx},
  pfm_wizard in 'pfm_wizard.pas' {fm_wizard},
  pfm_fendianxx in 'pfm_fendianxx.pas' {fm_fendianxx},
  pfm_gzxx in 'pfm_gzxx.pas' {fm_gzxx},
  pfm_viewwizard in 'pfm_viewwizard.pas' {fm_viewwizard},
  pfm_statics in 'pfm_statics.pas' {fm_statwizard},
  pfm_zengpindsel in 'pfm_zengpindsel.pas' {fm_zengpindsel},
  pfm_yskcl0 in 'pfm_yskcl0.pas' {fm_yskcl0},
  pfm_pfdmx in 'pfm_pfdmx.pas' {fm_pfdmx},
  pfm_yfkcl2 in 'pfm_yfkcl2.pas' {fm_yfkcl2},
  pfm_mdtcdsel in 'pfm_mdtcdsel.pas' {fm_mdtcdsel},
  Ado_DM in 'Ado_DM.pas' {AdoDm: TDataModule},
  pfm_mdtcdmx in 'pfm_mdtcdmx.pas' {fm_mdtcdmx},
  pfm_pfdsel in 'pfm_pfdsel.pas' {fm_pfdsel},
  pfm_yskcl2 in 'pfm_yskcl2.pas' {fm_yskcl2},
  pfm_sydsel in 'pfm_sydsel.pas' {fm_sydsel},
  pfm_viewcksyd in 'pfm_viewcksyd.pas' {fm_viewcksyd},
  pfm_rptspxx in 'pfm_rptspxx.pas' {fm_rptspxx},
  pfm_rptpfdmx in 'pfm_rptpfdmx.pas' {fm_rptpfdmx},
  pfm_rptspxxset in 'pfm_rptspxxset.pas' {fm_rptspxxset},
  pfm_rptjhdmxset in 'pfm_rptjhdmxset.pas' {fm_rptjhdmxset},
  pfm_fdthdhand in 'comdata\pfm_fdthdhand.pas' {fm_fdthdhand},
  pfm_fdtcdok in 'pfm_fdtcdok.pas' {fm_fdtcdok},
  pfm_fdthdselck in 'pfm_fdthdselck.pas' {fm_fdthdselck},
  pfm_updatefdspxx in 'pfm_updatefdspxx.pas' {fm_updatefdspxx},
  pfm_queryalltab in 'pfm_queryalltab.pas' {fm_queryalltab},
  pfm_selecttable in 'pfm_selecttable.pas' {fm_selecttable},
  pfm_queryxsrz in 'pfm_queryxsrz.pas' {fm_queryxsrz},
  pfm_zengpindmx in 'pfm_zengpindmx.pas' {fm_zengpindmx},
  pfm_sptuihuodmx in 'pfm_sptuihuodmx.pas' {fm_sptuihuodmx},
  pfm_sptuihuodsel in 'pfm_sptuihuodsel.pas' {fm_sptuihuodsel},
  pfm_jhdsel in 'pfm_jhdsel.pas' {fm_jhdsel},
  pfm_tjdmx in 'pfm_tjdmx.pas' {fm_tjdmx},
  pfm_thdsel in 'pfm_thdsel.pas' {fm_thdsel},
  pfm_sydmx in 'pfm_sydmx.pas' {fm_sydmx},
  pfm_thd2 in 'pfm_thd2.pas' {fm_thd2},
  pfm_jhd2 in 'pfm_jhd2.pas' {fm_jhd2},
  pfm_viewxsrz in 'pfm_viewxsrz.pas' {fm_viewxsrz},
  pfm_querykcsp in 'pfm_querykcsp.pas' {fm_querykcsp},
  pfm_selgridcol in 'pfm_selgridcol.pas' {fm_selgridcol},
  pfm_queryspxs in 'pfm_queryspxs.pas' {fm_queryspxs},
  pfm_inputspxx in 'pfm_inputspxx.pas' {fm_inputspxx},
  pfm_spbmlb in 'pfm_spbmlb.pas' {fm_spbmlb},
  pfm_fdthdok in 'pfm_fdthdok.pas' {fm_fdthdok},
  pfm_userpass in 'pfm_userpass.pas' {fm_userpass},
  pfm_fdlogin in 'pfm_fdlogin.pas' {fm_fdlogin},
  pfm_changepass in 'pfm_changepass.pas' {fm_changepass},
  pfm_datadel in 'pfm_datadel.pas' {fm_datadel},
  pfm_sysinit in 'pfm_sysinit.pas' {fm_sysinit},
  pfm_rptsellsh in 'pfm_rptsellsh.pas' {fm_rptsellsh},
  pfm_databack in 'pfm_databack.pas' {fm_databack},
  pfm_help in 'pfm_help.pas' {fm_help},
  pfm_updatespxx in 'pfm_updatespxx.pas' {fm_updatespxx},
  pfm_selyuangong in 'pfm_selyuangong.pas' {fm_selyuangong},
  pfm_yfkcl in 'pfm_yfkcl.pas' {fm_yfkcl},
  pfm_rptmdtcdmx in 'pfm_rptmdtcdmx.pas' {fm_rptmdtcdmx},
  pfm_rptzengpindmx in 'pfm_rptzengpindmx.pas' {fm_rptzengpindmx},
  pfm_rptsptuihuodmx in 'pfm_rptsptuihuodmx.pas' {fm_rptsptuihuodmx},
  pfm_rptthyskcl in 'pfm_rptthyskcl.pas' {fm_rptthyskcl},
  pfm_rpttjdmx in 'pfm_rpttjdmx.pas' {fm_rpttjdmx},
  pfm_rptjhdmx in 'pfm_rptjhdmx.pas' {fm_rptjhdmx},
  pfm_rptthdmx in 'pfm_rptthdmx.pas' {fm_rptthdmx},
  pfm_rptsydmx in 'pfm_rptsydmx.pas' {fm_rptsydmx},
  pfm_rptyfkcl in 'pfm_rptyfkcl.pas' {fm_rptyfkcl},
  pfm_rptpfyskcl in 'pfm_rptpfyskcl.pas' {fm_rptpfyskcl},
  pfm_optrecord in 'pfm_optrecord.pas' {fm_optrecord},
  pfm_cksetup in 'pfm_cksetup.pas' {fm_cksetup};

{$R *.RES}

begin
  Application.Initialize;
  fm_help := Tfm_help.Create(Application);
  fm_help.Panel1.Visible:=true;
  fm_help.BorderStyle:=bsnone;
  fm_help.Show;
  fm_help.Update;
  mUserright:=Tstringlist.create;
  Application.Title := 'POS管理系统';
  Application.CreateForm(Tmain, main);
  Application.CreateForm(TAdoDm, AdoDm);
  Application.CreateForm(Tfm_optrecord, fm_optrecord);
  fm_help.hide;
  fm_help.Destroy;
  Application.Run;
end.