uy_qdjz.pas

恒邦餐饮管理源码。将源码放到C:hbjdcyzy 登陆:1001/1001

 js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is  null';
 cx_sql2:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is  null';
 js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.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 ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" ';
       cx_sql2:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" ';
       js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" ';
       js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" ';
       cx_js;
     end;
   1:
     begin
       cx_sql1:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is not null';
       cx_sql2:='SELECT dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is not null';
       js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is not null';
       js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is not null';
       cx_js;
     end;
   2:
     begin
       cx_sql1:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is  null';
       cx_sql2:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is  null';
       js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl  where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is  null';
       js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.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 ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" ';
       cx_sql2:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" ';
       js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" ';
       js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" ';
       cx_js;
     end;
   1:
     begin
       cx_sql1:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is not null';
       cx_sql2:='SELECT dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is not null';
       js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is not null';
       js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is not null';
       cx_js;
     end;
   2:
     begin
       cx_sql1:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is  null';
       cx_sql2:='SELECT ckzl.dwmc,ckzl.ckbh,ckzl.dbxm,cd1.cdbh,cd1.th,cd1.tht,cd1.ycrq,cd1.ycsj,cd1.zj,cd1.fwf,cd1.zkf,cd1.xj,cd1.qdrm,cd1.zsje,cd1.qdjz,cd1.krs,cd1.fwyh FROM cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.zjm) like :s_zjm  and jzfs="4" and qdjz is  null';
       js_sql1:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl  where ckzl.ckbh=cd1.ckbh and ckzl.ckbh like :s_zjm  and jzfs="4" and qdjz is  null';
       js_sql2:='select count(cdbh)as ds,sum(cd1.zj) as hj,sum(xj) as xj,sum(fwf) as fwf,sum(zkf) as zkf,sum(zsje) as zsje from cd1,ckzl where ckzl.ckbh=cd1.ckbh and upper(ckzl.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.