uy_yyt_jb.pas

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

  zp.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='信用卡总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj  FROM cd where jzfs="3"';
  xyk.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='签单总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj  FROM cd where jzfs="4"';
  qd.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='免单总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj  FROM cd where jzfs="5"';
  md.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='其它结帐总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zj) as hj  FROM cd where jzfs="6"';
  qt.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='销售收入';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj  FROM cd,cdmx where cd.cdbh=cdmx.cdbh and jzfs is NOT NULL';
  xssr.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='凉菜总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj  FROM cd,cdmx where cd.cdbh=cdmx.cdbh and lbh="1" and jzfs is NOT NULL';
  lc.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='热菜总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj  FROM cd,cdmx where cd.cdbh=cdmx.cdbh and lbh="2" and jzfs is NOT NULL';
  rc.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='面点总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj  FROM cd,cdmx where cd.cdbh=cdmx.cdbh and lbh="3" and jzfs is NOT NULL';
  mdd.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='酒水总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj  FROM cd,cdmx where cd.cdbh=cdmx.cdbh and lbh="4" and jzfs is NOT NULL';
  js.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='其它销售总额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj  FROM cd,cdmx where cd.cdbh=cdmx.cdbh and lbh="5" and jzfs is NOT NULL';
  qtt.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='服务费';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(fwf) as hj  FROM cd where jzfs is NOT NULL';
  fwf.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='折扣费';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(zkf) as hj  FROM cd where jzfs is NOT NULL';
  zkf.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(5);
  s_mess2:='退菜金额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj FROM cd,cdmx where cdmx.cz="1" and cd.cdbh=cdmx.cdbh and jzfs is NOT NULL';
  tcje.caption:=Format('%*.*f', [8, 2,-main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='增菜金额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj FROM cd,cdmx where cdmx.cz="2" and cd.cdbh=cdmx.cdbh and jzfs is NOT NULL';
  zcje.caption:=Format('%*.*f', [8, 2,-main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='加菜金额';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(hj) as hj FROM cd,cdmx where cdmx.cz="3" and cd.cdbh=cdmx.cdbh and jzfs is NOT NULL';
  jcje.caption:=Format('%*.*f', [8, 2,main.h_sum(s_sql)]);

  g_xtxx.ProgressBar1.StepBy(3);
  s_mess2:='客人总数';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  s_sql:='select sum(krs) as hj FROM cd';
  krs.caption:=floattostr(main.h_sum(s_sql));

  g_xtxx.ProgressBar1.StepBy(2);
  s_mess2:='客人上座率';
  g_xtxx.m1.caption:=s_mess1+s_mess2+'",请稍侯...';
  g_xtxx.Update;
  f_szl:=strtoint(krs.caption)/y_yyt.t_tai.recordcount;
  szl.caption:=Format('%*.*f', [5, 2,f_szl*100])+'%';
  except
   g_xtxx.close;
   s_mess:='"'+s_mess2+'"计算汇总失败!';
   messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
   close;
 end;
 g_xtxx.Hide;
 g_xtxx.close;
 if g_xtxx1=NIL then g_xtxx1:=Tg_xtxx1.Create(self);
end;
procedure Ty_yyt_jb.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure Ty_yyt_jb.BitBtn1Click(Sender: TObject);
var
 s_mess1,s_mess2:string;
begin
 g_xtxx1.show;
 g_xtxx1.Update;
 g_xtxx1.ProgressBar1.StepBy(10);
 s_mess1:='系统正在传送';
 s_mess2:='系统为交班做准备';
 g_xtxx1.mess.caption:=s_mess2+',请稍侯...';
 g_xtxx.Update;
 try
    q_cdjb.Active:=false;
    g_xtxx1.ProgressBar1.StepBy(10);
    q_cdmxjb.Active:=false;
    g_xtxx1.ProgressBar1.StepBy(10);
    q_cdjb.Active:=true;
    g_xtxx1.ProgressBar1.StepBy(10);
    q_cdmxjb.Active:=true;
    g_xtxx1.ProgressBar1.StepBy(10);
    s_mess2:='菜单主表数据';
    g_xtxx1.mess.caption:=s_mess1+s_mess2+',请稍侯...';
    g_xtxx.Update;
    jb1.Execute;

    g_xtxx1.ProgressBar1.StepBy(10);
    s_mess2:='菜单明细表数据';
    g_xtxx1.mess.caption:=s_mess1+s_mess2+',请稍侯...';
    g_xtxx.Update;
    jb2.Execute;
    g_xtxx1.ProgressBar1.StepBy(10);
//清除已结帐数据
 y_yyt.cd.edit;
 y_yyt.cd.Post;
 y_yyt.cd.first;

 g_xtxx1.ProgressBar1.StepBy(10);
 s_mess2:='清除当前数据';
 g_xtxx1.mess.caption:='正在'+s_mess2+',请稍侯...';
 g_xtxx.Update;
 while not y_yyt.cd.eof do
  if trim(y_yyt.cd.fieldbyname('jzfs').asstring)<>'' then
    with main.Query1 do
     begin
      SQL.Clear;
      SQL.Add('delete from cdmx where cdbh=:s_cdbh');
      ParamByName('s_cdbh').asstring:=y_yyt.cd.fieldbyname('cdbh').asstring;
      ExecSQL;
      y_yyt.cd.delete;
     end
   else
     y_yyt.cd.next;
 y_yyt.cd.edit;
 y_yyt.cd.Post;
 g_xtxx1.ProgressBar1.StepBy(20);
 except
   g_xtxx1.close;
   s_mess:='"'+s_mess2+'" 操作失败!';
   messagebox(handle,pchar(s_mess),'系统提示信息',MB_OK+MB_ICONWARNING);
   exit;
 end;
 close;
 g_xtxx1.close;
 esc_enter:=1;
end;
procedure Ty_yyt_jb.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#27 then close;
end;

procedure Ty_yyt_jb.BitBtn3Click(Sender: TObject);
begin
 if bp=NIL then bp:=Tbp.Create(self);
 bp.fdmc3.caption:=fdmc.Caption;
 bp.rq3.caption:=rq.Caption;

 bp.gdje.caption:=gdje.Caption;
 bp.gdds.caption:=gdds.Caption;
 bp.jzje.caption:=jzje.Caption;
 bp.jzds2.caption:=jzds.Caption;

 bp.xj2.caption:=xj.Caption;
 bp.qd2.caption:=qd.Caption;
 bp.zp2.caption:=zp.Caption;
 bp.md2.caption:=md.Caption;
 bp.xyk2.caption:=xyk.Caption;
 bp.qt2.caption:=qt.Caption;

 bp.cyzj2.caption:=xssr.Caption;
 bp.clc2.caption:=lc.Caption;
 bp.crc2.caption:=rc.Caption;
 bp.cmd2.caption:=mdd.Caption;
 bp.cjs2.caption:=js.Caption;
 bp.cqt2.caption:=qtt.Caption;

 bp.fwf2.caption:=fwf.Caption;
 bp.zkf2.caption:=zkf.Caption;

 bp.zcje2.caption:=zcje.Caption;
 bp.tcje2.caption:=tcje.Caption;
 bp.jcje2.caption:=jcje.Caption;

 bp.krs2.caption:=krs.Caption;
 bp.szl2.caption:=szl.Caption;
 bp.sky.caption:=skyh.Caption;
 bp.sj2.caption:=sj.Caption;
 bp.jbd.Print;
 bp.Release;
 bp:=NIL;
end;

procedure Ty_yyt_jb.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Release;
 y_yyt_jb:=NIL;
 g_xtxx1.Release;
 g_xtxx1:=NIL;
end;

end.