c_hcjs.pas

经典的酒店管理系统

    AHh := 0;
    tblKrjz.Insert;
    tblKrjz.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrjz.FieldByName('D_HH').AsInteger  := AHh;
    tblKrjz.FieldByName('D_JZLX').AsString := JZLX_FYK;
    tblKrjz.FieldByName('D_XFJE').AsCurrency := FSjje;
    tblKrjz.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrjz.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrjz.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrjz.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrjz.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrjz.FieldByName('D_BZ').AsString := JZBZ_FYK+' '+edtKrxm.Text;
    tblKrjz.FieldByName('D_JZFS').AsString := FJzfs;
    tblKrjz.FieldByName('D_XYKBH').AsString := FXykbh;
    tblKrjz.FieldByName('D_KHBH').AsString := FKhbh;
    tblKrjz.Post;
    Inc(AHh);
    if tblYdhcD_HCZJ.Value>0 then
    begin
    tblKrjz.Insert;
    tblKrjz.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrjz.FieldByName('D_HH').AsInteger  := AHh;
    tblKrjz.FieldByName('D_XMBH').AsString := XMBH_HCF;
    tblKrjz.FieldByName('D_JZLX').AsString := JZLX_FYK;
    tblKrjz.FieldByName('D_XFJE').AsCurrency := tblYdhcD_HCZJ.Value;
    tblKrjz.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrjz.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrjz.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrjz.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrjz.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrjz.FieldByName('D_BZ').AsString := JZBZ_FYK+' '+edtKrxm.Text;
    tblKrjz.FieldByName('D_JZFS').AsString := FJzfs;
    tblKrjz.FieldByName('D_XYKBH').AsString := FXykbh;
    tblKrjz.FieldByName('D_KHBH').AsString := FKhbh;
    tblKrjz.Post;
    Inc(AHh);
    end;
    if tblYdhcD_HFJE.Value>0 then
    begin
    tblKrjz.Insert;
    tblKrjz.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrjz.FieldByName('D_HH').AsInteger  := AHh;
    tblKrjz.FieldByName('D_XMBH').AsString := FXmbhhf;
    tblKrjz.FieldByName('D_JZLX').AsString := JZLX_FYK;
    tblKrjz.FieldByName('D_XFJE').AsCurrency := tblYdhcD_HFJE.Value;
    tblKrjz.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrjz.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrjz.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrjz.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrjz.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrjz.FieldByName('D_BZ').AsString := JZBZ_FYK+' '+edtKrxm.Text;
    tblKrjz.FieldByName('D_JZFS').AsString := FJzfs;
    tblKrjz.FieldByName('D_XYKBH').AsString := FXykbh;
    tblKrjz.FieldByName('D_KHBH').AsString := FKhbh;
    tblKrjz.Post;
    Inc(AHh);
    end;
    if tblYdhcD_XHJE.Value>0 then
    begin
    tblKrjz.Insert;
    tblKrjz.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrjz.FieldByName('D_HH').AsInteger  := AHh;
    tblKrjz.FieldByName('D_XMBH').AsString := FXmbhxh;
    tblKrjz.FieldByName('D_JZLX').AsString := JZLX_FYK;
    tblKrjz.FieldByName('D_XFJE').AsCurrency := tblYdhcD_XHJE.Value;
    tblKrjz.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrjz.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrjz.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrjz.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrjz.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrjz.FieldByName('D_BZ').AsString := JZBZ_FYK+' '+edtKrxm.Text;
    tblKrjz.FieldByName('D_JZFS').AsString := FJzfs;
    tblKrjz.FieldByName('D_XYKBH').AsString := FXykbh;
    tblKrjz.FieldByName('D_KHBH').AsString := FKhbh;
    tblKrjz.Post;
    Inc(AHh);
    end;
    if tblYdhcD_SGJE.Value>0 then
    begin
    tblKrjz.Insert;
    tblKrjz.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrjz.FieldByName('D_HH').AsInteger  := AHh;
    tblKrjz.FieldByName('D_XMBH').AsString := FXmbhsg;
    tblKrjz.FieldByName('D_JZLX').AsString := JZLX_FYK;
    tblKrjz.FieldByName('D_XFJE').AsCurrency := tblYdhcD_SGJE.Value;
    tblKrjz.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrjz.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrjz.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrjz.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrjz.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrjz.FieldByName('D_BZ').AsString := JZBZ_FYK+' '+edtKrxm.Text;
    tblKrjz.FieldByName('D_JZFS').AsString := FJzfs;
    tblKrjz.FieldByName('D_XYKBH').AsString := FXykbh;
    tblKrjz.FieldByName('D_KHBH').AsString := FKhbh;
    tblKrjz.Post;
    Inc(AHh);
    end;
    if tblYdhcD_QTJE.Value>0 then
    begin
    tblKrjz.Insert;
    tblKrjz.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrjz.FieldByName('D_HH').AsInteger  := AHh;
    tblKrjz.FieldByName('D_XMBH').AsString := FXmbhqt;
    tblKrjz.FieldByName('D_JZLX').AsString := JZLX_FYK;
    tblKrjz.FieldByName('D_XFJE').AsCurrency := tblYdhcD_QTJE.Value;
    tblKrjz.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrjz.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrjz.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrjz.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrjz.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrjz.FieldByName('D_BZ').AsString := JZBZ_FYK+' '+edtKrxm.Text;
    tblKrjz.FieldByName('D_JZFS').AsString := FJzfs;
    tblKrjz.FieldByName('D_XYKBH').AsString := FXykbh;
    tblKrjz.FieldByName('D_KHBH').AsString := FKhbh;
    tblKrjz.Post;
    end;

  finally
    tblKrjz.Close;
  end;
end;

procedure THcjsForm.UpdateGz(const AZdbh,AZdlb: string);
var
  AHh: Integer;
  AKrbh,AYjbh: string;
begin
  try
    tblKrzd.Filter := 'D_ZDBH='''+AZdbh+'''';
    tblKrzd.Filtered := True;
    tblKrzd.Open;
    if tblKrzd.Locate('D_HH',0,[]) then
    begin
      tblKrzd.Edit;
      tblKrzd.FieldByName('D_XFJE').AsCurrency :=
        tblKrzd.FieldByName('D_XFJE').AsCurrency + FSjje;
      tblKrzd.Post;
      AKrbh := tblKrzd.FieldbyName('D_KRBH').AsString;
      AYjbh := tblKrzd.FieldbyName('D_YJBH').AsString;
    end;
    tblKrzd.Last;
    AHh := tblKrzd.FieldbyName('D_HH').AsInteger + 1;
    if tblYdhcD_HCZJ.Value > 0 then
    begin
    tblKrzd.Insert;
    tblKrzd.FieldByName('D_ZDBH').AsString := FZdbh;
    tblKrzd.FieldByName('D_KRBH').AsString := AKrbh;
    tblKrzd.FieldByName('D_YJBH').AsString := AYjbh;
    tblKrzd.FieldByName('D_HH').AsInteger  := AHh;
    tblKrzd.FieldByName('D_XMBH').AsString := XMBH_HCF;
    tblKrzd.FieldByName('D_ZDLB').AsString := AZdlb;
    tblKrzd.FieldByName('D_XFJE').AsCurrency := tblYdhcD_HCZJ.Value;
    tblKrzd.FieldByName('D_XFRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_XFSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrzd.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_JZBZ').AsString := JZ_NO;
    tblKrzd.FieldByName('D_JSBZ').AsString := JS_NO;
    tblKrzd.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_JZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrzd.FieldByName('D_BZ').AsString := ZDBZ_GZ+' '+edtKrxm.Text;
    tblKrzd.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrzd.Post;
    Inc(AHh);
    end;
    if tblYdhcD_HFJE.Value > 0 then
    begin
    tblKrzd.Insert;
    tblKrzd.FieldByName('D_ZDBH').AsString := FZdbh;
    tblKrzd.FieldByName('D_KRBH').AsString := AKrbh;
    tblKrzd.FieldByName('D_YJBH').AsString := AYjbh;
    tblKrzd.FieldByName('D_HH').AsInteger  := AHh;
    tblKrzd.FieldByName('D_XMBH').AsString := FXmbhhf;
    tblKrzd.FieldByName('D_ZDLB').AsString := AZdlb;
    tblKrzd.FieldByName('D_XFJE').AsCurrency := tblYdhcD_HFJE.Value;
    tblKrzd.FieldByName('D_XFRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_XFSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrzd.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_JZBZ').AsString := JZ_NO;
    tblKrzd.FieldByName('D_JSBZ').AsString := JS_NO;
    tblKrzd.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_JZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrzd.FieldByName('D_BZ').AsString := ZDBZ_GZ+' '+edtKrxm.Text;
    tblKrzd.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrzd.Post;
    Inc(AHh);
    end;
    if tblYdhcD_XHJE.Value > 0 then
    begin
    tblKrzd.Insert;
    tblKrzd.FieldByName('D_ZDBH').AsString := FZdbh;
    tblKrzd.FieldByName('D_KRBH').AsString := AKrbh;
    tblKrzd.FieldByName('D_YJBH').AsString := AYjbh;
    tblKrzd.FieldByName('D_HH').AsInteger  := AHh;
    tblKrzd.FieldByName('D_XMBH').AsString := FXmbhxh;
    tblKrzd.FieldByName('D_ZDLB').AsString := AZdlb;
    tblKrzd.FieldByName('D_XFJE').AsCurrency := tblYdhcD_XHJE.Value;
    tblKrzd.FieldByName('D_XFRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_XFSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrzd.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_JZBZ').AsString := JZ_NO;
    tblKrzd.FieldByName('D_JSBZ').AsString := JS_NO;
    tblKrzd.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_JZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrzd.FieldByName('D_BZ').AsString := ZDBZ_GZ+' '+edtKrxm.Text;
    tblKrzd.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrzd.Post;
    Inc(AHh);
    end;
    if tblYdhcD_SGJE.Value > 0 then
    begin
    tblKrzd.Insert;
    tblKrzd.FieldByName('D_ZDBH').AsString := FZdbh;
    tblKrzd.FieldByName('D_KRBH').AsString := AKrbh;
    tblKrzd.FieldByName('D_YJBH').AsString := AYjbh;
    tblKrzd.FieldByName('D_HH').AsInteger  := AHh;
    tblKrzd.FieldByName('D_XMBH').AsString := FXmbhsg;
    tblKrzd.FieldByName('D_ZDLB').AsString := AZdlb;
    tblKrzd.FieldByName('D_XFJE').AsCurrency := tblYdhcD_SGJE.Value;
    tblKrzd.FieldByName('D_XFRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_XFSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrzd.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_JZBZ').AsString := JZ_NO;
    tblKrzd.FieldByName('D_JSBZ').AsString := JS_NO;
    tblKrzd.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_JZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrzd.FieldByName('D_BZ').AsString := ZDBZ_GZ+' '+edtKrxm.Text;
    tblKrzd.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrzd.Post;
    Inc(AHh);
    end;
    if tblYdhcD_QTJE.Value > 0 then
    begin
    tblKrzd.Insert;
    tblKrzd.FieldByName('D_ZDBH').AsString := FZdbh;
    tblKrzd.FieldByName('D_KRBH').AsString := AKrbh;
    tblKrzd.FieldByName('D_YJBH').AsString := AYjbh;
    tblKrzd.FieldByName('D_HH').AsInteger  := AHh;
    tblKrzd.FieldByName('D_XMBH').AsString := FXmbhqt;
    tblKrzd.FieldByName('D_ZDLB').AsString := AZdlb;
    tblKrzd.FieldByName('D_XFJE').AsCurrency := tblYdhcD_QTJE.Value;
    tblKrzd.FieldByName('D_XFRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_XFSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_YHJE').AsCurrency := 0;
    tblKrzd.FieldByName('D_JZRQ').AsDateTime := Date;
    tblKrzd.FieldByName('D_JZSJ').AsDateTime := Time;
    tblKrzd.FieldByName('D_JZBZ').AsString := JZ_NO;
    tblKrzd.FieldByName('D_JSBZ').AsString := JS_NO;
    tblKrzd.FieldByName('D_CZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_JZYXM').AsString := CZY.CzyXm;
    tblKrzd.FieldByName('D_BMBH').AsString := FBmbh;
    tblKrzd.FieldByName('D_BZ').AsString := ZDBZ_GZ+' '+edtKrxm.Text;
    tblKrzd.FieldByName('D_JZBH').AsString := FJzbh;
    tblKrzd.Post;
    end;
  finally
    tblKrzd.Close;
    tblKrzd.Filter := '';
    tblKrzd.Filtered := False;
  end;
end;

procedure THcjsForm.UpdateYsk;
var
  AHh: Integer;
begin
  try
    tblYsk.Open;
    AHh := 1;
    if tblYdhcD_HCZJ.Value > 0 then
    begin
    tblYsk.Insert;
    tblYsk.FieldByName('D_KHBH').AsString := FKhbh;
    tblYsk.FieldByName('D_ZDBH').AsString := FZdbh;
    tblYsk.FieldByName('D_HH').AsInteger  := AHh;
    tblYsk.FieldByName('D_XMBH').AsString := XMBH_HCF;
    tblYsk.FieldByName('D_XFJE').AsCurrency := tblYDhcD_HCZJ.Value;
    tblYsk.FieldByName('D_XFRQ').AsDateTime := Date;
    tblYsk.FieldByName('D_XFSJ').AsDateTime := Time;
    tblYsk.FieldByName('D_CZYXM').AsString  := CZY.CzyXm;
    tblYsk.FieldByName('D_BZ').AsString := ZDBZ_JZ+' '+edtKrxm.Text;
    tblYsk.Post;
    Inc(Ahh);
    end;
    if tblYdhcD_HFJE.Value > 0 then
    begin
    tblYsk.Insert;
    tblYsk.FieldByName('D_KHBH').AsString := FKhbh;
    tblYsk.FieldByName('D_ZDBH').AsString := FZdbh;
    tblYsk.FieldByName('D_HH').AsInteger  := AHh;
    tblYsk.FieldByName('D_XMBH').AsString := FXmbhhf;
    tblYsk.FieldByName('D_XFJE').AsCurrency := tblYdhcD_HFJE.Value;
    tblYsk.FieldByName('D_XFRQ').AsDateTime := Date;
    tblYsk.FieldByName('D_XFSJ').AsDateTime := Time;
    tblYsk.FieldByName('D_CZYXM').AsString  := CZY.CzyXm;
    tblYsk.FieldByName('D_BZ').AsString := ZDBZ_JZ+' '+edtKrxm.Text;
    tblYsk.Post;
    Inc(Ahh);
    end;
    if tblYdhcD_XHJE.Value > 0 then
    begin
    tblYsk.Insert;
    tblYsk.FieldByName('D_KHBH').AsString := FKhbh;
    tblYsk.FieldByName('D_ZDBH').AsString := FZdbh;
    tblYsk.FieldByName('D_HH').AsInteger  := AHh;
    tblYsk.FieldByName('D_XMBH').AsString := FXmbhxh;
    tblYsk.FieldByName('D_XFJE').AsCurrency := tblYdhcD_XHJE.Value;
    tblYsk.FieldByName('D_XFRQ').AsDateTime := Date;
    tblYsk.FieldByName('D_XFSJ').AsDateTime := Time;
    tblYsk.FieldByName('D_CZYXM').AsString  := CZY.CzyXm;
    tblYsk.FieldByName('D_BZ').AsString := ZDBZ_JZ+' '+edtKrxm.Text;
    tblYsk.Post;
    Inc(Ahh);
    end;
    if tblYdhcD_SGJE.Value > 0 then
    begin
    tblYsk.Insert;
    tblYsk.FieldByName('D_KHBH').AsString := FKhbh;
    tblYsk.FieldByName('D_ZDBH').AsString := FZdbh;
    tblYsk.FieldByName('D_HH').AsInteger  := AHh;
    tblYsk.FieldByName('D_XMBH').AsString := FXmbhsg;
    tblYsk.FieldByName('D_XFJE').AsCurrency := tblYDhcD_SGJE.Value;
    tblYsk.FieldByName('D_XFRQ').AsDateTime := Date;
    tblYsk.FieldByName('D_XFSJ').AsDateTime := Time;
    tblYsk.FieldByName('D_CZYXM').AsString  := CZY.CzyXm;
    tblYsk.FieldByName('D_BZ').AsString := ZDBZ_JZ+' '+edtKrxm.Text;
    tblYsk.Post;
    Inc(Ahh);
    end;
    if tblYdhcD_QTJE.Value > 0 then
    begin
    tblYsk.Insert;
    tblYsk.FieldByName('D_KHBH').AsString := FKhbh;
    tblYsk.FieldByName('D_ZDBH').AsString := FZdbh;
    tblYsk.FieldByName('D_HH').AsInteger  := AHh;
    tblYsk.FieldByName('D_XMBH').AsString := FXmbhqt;
    tblYsk.FieldByName('D_XFJE').AsCurrency := tblYdhcD_QTJE.Value;
    tblYsk.FieldByName('D_XFRQ').AsDateTime := Date;
    tblYsk.FieldByName('D_XFSJ').AsDateTime := Time;
    tblYsk.FieldByName('D_CZYXM').AsString  := CZY.CzyXm;
    tblYsk.FieldByName('D_BZ').AsString := ZDBZ_JZ+' '+edtKrxm.Text;
    tblYsk.Post;
    end;

  finally
    tblYsk.Close;
  end;
end;

procedure THcjsForm.btnOKClick(Sender: TObject);
begin
  inherited;
  if not Confirm('你确认该客人的消费结帐吗？') then
    Exit;
  
  if not IsValid then Exit;
  FXmbhhf := HotelData.FindBh('XMDM','D_XMBH','D_XMMC','横幅');
  FXmbhxh := HotelData.FindBh('XMDM','D_XMBH','D_XMMC','鲜花');
  FXmbhsg := HotelData.FindBh('XMDM','D_XMBH','D_XMMC','水果');
  FXmbhqt := HotelData.FindBh('XMDM','D_XMBH','D_XMMC','其他');
  if (FXmbhhf='')or(FXmbhxh='')or(FXmbhsg='')or(FXmbhqt='') then
  begin
    ShowWarning('消费项目编号不存在！');
    Exit;
  end;
  FBmbh := HotelData.FindBh('YGDA','D_BMBH','D_YGBH',CZY.CzyBh);
  if (FJzfs=JZFS_RMB)or(FJzfs=JZFS_ZP)or(FJzfs=JZFS_XYK) then
  begin
    UpdateKrjz;
    UpdateKrzd;
  end;

  if (FJzfs=JZFS_GSK) then
  begin
    FZdbh := HotelData.FindBh('KFZT','D_ZDBH','D_KFBH',FKfbh);
    UpdateGz(FZdbh,ZDLB_YK);
  end;

  if (FJzfs=JZFS_GTD) then
  begin
    //edit by ls.2002.12.01
    FZdbh := HotelData.GetZdbh(FKrbh);
    //FZdbh := HotelData.FindBh('KFZT','D_ZDBH','D_KRBH',FKrbh);
    UpdateGz(FZdbh,ZDLB_TD);
  end;

  if FJzfs=JZFS_JZ then
  begin
    UpdateKrzd;
    UpdateYsk;
  end;

  UpdateYdhc;

  Close;
end;

end.