uy_qdjz.pas

阳光餐饮收银管理系统源码

 js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is null';
 cx_js;
 g_wait.close;
end;

procedure Ty_qdjz.cdClick(Sender: TObject);
begin
 if trim(y_qdjz.q_qd.FieldByName('cdbh').asstring)='' then
   begin
     messagebox(handle,'请确认将要显示的签单菜单!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
 if g_dcd=NIL then g_dcd:=Tg_dcd.Create(self);
 with y_qdjz.q_qd do
  begin
   c_zj:=FieldByName('zj').ascurrency;
   c_xj:=FieldByName('xj').ascurrency;
   c_fwf:=FieldByName('fwf').ascurrency;
   c_zkf:=FieldByName('zkf').ascurrency;
   c_zsje:=FieldByName('zsje').ascurrency;
   s_th:=FieldByName('th').asstring;
   s_tht:=FieldByName('tht').asstring;
   s_krs:=FieldByName('krs').asstring;
   s_ycrq:=formatdatetime('yyyy.mm.dd',FieldByName('ycrq').value);
   s_ycsj:=formatdatetime('hh:mm',FieldByName('ycsj').value);
   s_fwyh:=FieldByName('fwyh').asstring;
   g_dcd.cdmx1.Filter:='cdbh='+FieldByName('cdbh').asstring;
  end;
 g_dcd.db.datasource:=g_dcd.d_cdmx1;
 g_dcd.showmodal;
end;

procedure Ty_qdjz.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
 case newtab of
   0:
     begin
       cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+'''';
       js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+'''';
       cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+'''';
       js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+'''';
       cx_js;
     end;
   1:
     begin
         cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+' and qdjz is not null';
         js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+'  and qdjz is not null';
         cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is not null';
         js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is not null';
       cx_js;
     end;
   2:
     begin
        cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+' and qdjz is  null';
         js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+'  and qdjz is  null';
         cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is  null';
         js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is null';
       cx_js;
     end;
   end;
end;

procedure Ty_qdjz.N10Click(Sender: TObject);
begin
 if (tabset1.TabIndex<>2) or (y_qdjz.q_qd.FieldByName('ckbh').asstring='')  then
   begin
     messagebox(handle,'请确认将要结帐的签单常客!','系统提示信息',MB_OK+MB_ICONWARNING);
     exit;
   end;
  y_n:=1;
  y_qdjz_jz.showmodal;
end;

procedure Ty_qdjz.cxChange(Sender: TObject);
begin
 if length(trim(cx.text))=1 then
  try
    strtoint(copy(cx.text,1,1));
    i_key:=48;
   except
    i_key:=65;
  end;
 case tabset1.TabIndex of 
   0:
     begin
       cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+'''';
       js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+'''';
       cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+'''';
       js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+'''';
       cx_js;
     end;
   1:
     begin
         cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+' and qdjz is not null';
         js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+'  and qdjz is not null';
         cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is not null';
         js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is not null';
       cx_js;
     end;
   2:
     begin
        cx_sql1:='SELECT a.dwmc,a.ckbh,a.dbxm,b.cdbh,b.th,b.tht,b.ycrq,b.ycsj,b.zj,b.fwf,b.zkf,b.xj,b.qdrm,b.zsje,b.qdjz,b.krs,b.fwyh FROM cd1 b,ckzl a where a.ckbh=b.ckbh and a.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+' and qdjz is  null';
         js_sql1:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.ckbh like :s_zjm  and jzfs='+''''+'4'+''''+'  and qdjz is  null';
         cx_sql2:='SELECT b.dwmc,b.ckbh,b.dbxm,a.cdbh,a.th,a.tht,a.ycrq,a.ycsj,a.zj,a.fwf,a.zkf,a.xj,a.qdrm,a.zsje,a.qdjz,a.krs,a.fwyh FROM cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is  null';
         js_sql2:='select count(cdbh)as ds_all,sum(a.zj) as hj_all,sum(xj) as xj_all,sum(fwf) as fwf_all,sum(zkf) as zkf_all,sum(zsje) as zsje_all from cd1 a,ckzl b where a.ckbh=b.ckbh and b.zjm like :s_zjm  and jzfs='+''''+'4'+''''+'   and qdjz is null';
       cx_js;
     end;
   end;
end;

procedure Ty_qdjz.ylClick(Sender: TObject);
begin
 with yp_1 do
  begin
   case tabset1.TabIndex of
    0:yp_1.qd_bt.caption:='(所有的签单)';
    1:yp_1.qd_bt.caption:='(已结帐的签单)';
    2:yp_1.qd_bt.caption:='(未结帐的签单)';
    end;
//  qd_lj.caption:=ze.caption;
 // qd_ds.caption:=ds.caption;
  qd_xj.caption:=sb.panels[2].text;
  qd_fwf.caption:=sb.panels[4].text;
  qd_zkf.caption:=sb.panels[6].text;
  qd_zs.caption:=sb.panels[8].text;
  QuickRep3.preview;
  end;
end;

procedure Ty_qdjz.dyClick(Sender: TObject);
begin
 with yp_1 do
  begin
   case tabset1.TabIndex of
    0:yp_1.qd_bt.caption:='(所有的签单)';
    1:yp_1.qd_bt.caption:='(已结帐的签单)';
    2:yp_1.qd_bt.caption:='(未结帐的签单)';
    end;
//  qd_lj.caption:=ze.caption;
 // qd_ds.caption:=ds.caption;
  qd_xj.caption:=sb.panels[2].text;
  qd_fwf.caption:=sb.panels[4].text;
  qd_zkf.caption:=sb.panels[6].text;
  qd_zs.caption:=sb.panels[8].text;
  QuickRep3.print;
  end;
end;

procedure Ty_qdjz.N8Click(Sender: TObject);
begin
 if about=NIL then about:=Tabout.Create(self);
 about.showmodal;
end;

procedure Ty_qdjz.bzClick(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpJump('tasqdjz');
end;

procedure Ty_qdjz.N12Click(Sender: TObject);
begin
PrinterSetup.Execute;
end;

procedure Ty_qdjz.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 y_qdjz:=NIL;
 y_qdjz_jz.Release;
 y_qdjz_jz:=NIL;
 yp_1.Release;
 yp_1:=NIL;
end;

procedure Ty_qdjz.N7Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_Finder,0);
end;

procedure Ty_qdjz.N14Click(Sender: TObject);
begin
  Application.HelpFile:='\hbjd\cyzy\help\hbcy.hlp';
  Application.HelpCommand(Help_PartialKey,0);
end;

end.