hyjbsyunit.pas

集成酒店桑拿食管管理的完整程序

  end;

var
  hyjbsyForm: ThyjbsyForm;

implementation
  uses dataproc, yhjbsyprint;
{$R *.DFM}
procedure formini;
begin
with hyjbsyForm do
  begin
   Edit50.Text:='';
   Edit51.Text:='';
   Edit52.Text:='';
   Edit53.Text:='';
   Edit54.Text:='';
   Edit2.Text:='';
   Edit3.Text:='';
   Edit4.Text:='';
   Edit5.Text:='';
   Edit6.Text:='';
   Edit7.Text:='';
   Edit8.Text:='';
   Edit9.Text:='';
   Edit10.Text:='';
   memo1.Lines.Clear;
  end
end;

procedure ThyjbsyForm.FormShow(Sender: TObject);
 var i:integer;
begin
   formini;
   begdate.DateTime:=now;
   Query1.Active:=false;
   Query1.SQL.Clear;
   Query1.SQL.Add('select bcbegtime,bcendtime from bc where bcname='''+trim(curper.curbc)+'''');
   Query1.Open;
   begtime.Time:=strtotime(Query1.Fields[0].AsString);
   begdate.Time:=strtotime(Query1.Fields[0].AsString);
   endtime.Time:=strtotime(Query1.Fields[1].AsString);
   enddate.Time:=strtotime(Query1.Fields[1].AsString);
   Query1.SQL.Clear;
   Query1.Active:=false;
   enddate.DateTime:=now;
   if begdate.DateTime>enddate.DateTime then begdate.DateTime:=begdate.DateTime-1;
   begtime.Date:=begdate.Date;
 //  endtime.DateTime:=now;
   bcm.caption:=curper.curbc;
   czyname.Items.Clear;
   czyid.Items.Clear;
   czyname.Text:='';
   czyid.text:='';
   comadd1(czyid,czyname,2,'select code,name from stuff');
   for i:=0 to czyname.Items.Count-1 do
     if czyid.Items[i]=curper.code then czyname.ItemIndex:=i;
//    ClearAll1.Clear;
   BitBtn1Click(nil);
end;

procedure ThyjbsyForm.BitBtn1Click(Sender: TObject);
begin
    begdate.Time:=begtime.Time;
    enddate.Time:=endtime.Time;
    s1.Prepare;
   // s1.ParamByName ('@lslou').asstring:='0';
    s1.ParamByName ('@lsbegtime').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',begdate.DateTime);
    s1.ParamByName ('@lsendtime').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',enddate.DateTime);
    s1.ParamByName ('@lssj').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',now);
    s1.ParamByName ('@lsjbr').asstring:=curper.code;
    s1.Prepare;
    s1.ExecProc ;
   table1.Active:=false;
   table1.Active:=true;
{   table1.Fields[4].Visible:=false;
   DBGrid1.fields[0].displaylabel:='  站  点  名  ';
   DBGrid1.fields[1].displaylabel:=' 已  结  金  额 ';
   DBGrid1.fields[2].displaylabel:=' 免 单 (已 结 单) ';
   DBGrid1.fields[3].displaylabel:=' 本 班 销 售 额 ';
 //  DBGrid1.fields[4].Visible:=false;
   DBGrid1.fields[4].displaylabel:=' 交 班 人 ';  }
    s2.Prepare;
   // s1.ParamByName ('@lslou').asstring:='0'; @lsendtime
    s2.ParamByName('@lsbegtime').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',begdate.DateTime);
    s2.ParamByName('@lsendtime').asstring:=formatdatetime('yyyy-MM-dd hh:mm:ss',enddate.DateTime);
    s2.Prepare;
    s2.ExecProc ;
    xj.text:=s2.ParamByName('@oxj').asstring;
    zp.text:=s2.ParamByName('@ozp').asstring;
    xyk.text:=s2.ParamByName('@oxyk').asstring;
    jz.text:=s2.ParamByName('@ogz').asstring;
    gz.text:=s2.ParamByName('@ojz').asstring;
   // mshou.text:=s2.ParamByName('@oms').asstring;
    hj.text:=s2.ParamByName('@ohj').asstring;
    nb.text:=s2.ParamByName('@onb').asstring;
    ns.text:=s2.ParamByName('@ons').asstring;
    nvb.text:=s2.ParamByName('@onvb').asstring;
    nvs.text:=s2.ParamByName('@onvs').asstring;
    nhj.Text:=floattostr(s2.ParamByName('@onb').asfloat+s2.ParamByName('@ons').asfloat);
    nvhj.Text:=floattostr(s2.ParamByName('@onvb').asfloat+s2.ParamByName('@onvs').asfloat);


end;

procedure ThyjbsyForm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

procedure ThyjbsyForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
    if ((key>'9') or (key<'0')) and (key<>#8)and(key<>#13) then key:=#0;
    if (key=#13) then
    selectnext(activecontrol,true,true);

end;

procedure ThyjbsyForm.nbKeyPress(Sender: TObject; var Key: Char);
begin
    if key=#13 then
    selectnext(activecontrol,true,true)
    else
    key:=#0;
end;

procedure ThyjbsyForm.Edit35KeyPress(Sender: TObject; var Key: Char);
begin
    if ((key>'9') or (key<'0')) and (key<>#8)and(key<>#13) then key:=#0;
    if key=#13 then Edit36.SetFocus;

end;

procedure ThyjbsyForm.BitBtn3Click(Sender: TObject);
begin
  Application.CreateForm(TyhjbsyprintForm, yhjbsyprintForm);
  yhjbsyprintForm.QRLabel1.Caption:=curper.sydw+'总台收银班报表';
  yhjbsyprintForm.ny.Caption:='从'+formatdatetime('yyyy''年''m''月''d''日''',begdate.Date)+' '+formatdatetime('hh:mm',begtime.Time)+
  ' 到 '+formatdatetime('yyyy''年''m''月''d''日''',enddate.Date)+' '+formatdatetime('hh:mm',endtime.Time);
  yhjbsyprintForm.bbc.Caption:='班次:'+bcm.Caption;
  yhjbsyprintForm.bh.Caption:='编号:'+Edit1.Text;
  yhjbsyprintForm.lsly.Caption:=Edit2.Text+' 本';
  yhjbsyprintForm.lskly.Caption:=Edit3.Text;
  yhjbsyprintForm.lszly.Caption:=Edit4.Text;
  yhjbsyprintForm.lssy.Caption:=Edit12.Text+' 份';
  yhjbsyprintForm.lsksy.Caption:=Edit13.Text;
  yhjbsyprintForm.lszsy.Caption:=Edit14.Text;
  yhjbsyprintForm.lszf.Caption:=Edit22.Text+' 份';
  yhjbsyprintForm.lsyj.Caption:=Edit26.Text+' 份';
  yhjbsyprintForm.lskyj.Caption:=Edit27.Text;
  yhjbsyprintForm.lszyj.Caption:=Edit28.Text;

  yhjbsyprintForm.lgly.Caption:=Edit5.Text+' 本';
  yhjbsyprintForm.lgkly.Caption:=Edit6.Text;
  yhjbsyprintForm.lgzly.Caption:=Edit7.Text;
  yhjbsyprintForm.lgsy.Caption:=Edit15.Text+' 份';
  yhjbsyprintForm.lgksy.Caption:=Edit16.Text;
  yhjbsyprintForm.lgzsy.Caption:=Edit17.Text;
  yhjbsyprintForm.lgzf.Caption:=Edit23.Text+' 份';
  yhjbsyprintForm.lgyj.Caption:=Edit29.Text+' 份';
  yhjbsyprintForm.lgkyj.Caption:=Edit30.Text;
  yhjbsyprintForm.lgzyj.Caption:=Edit31.Text;

  yhjbsyprintForm.cyly.Caption:=Edit8.Text+' 元';
  yhjbsyprintForm.cysy.Caption:=Edit18.Text+' 元';
//  yhjbsyprintForm.cyzf.Caption:=Edit25.Text+' 份';
  yhjbsyprintForm.cyyj.Caption:=Edit32.Text+' 元';

  yhjbsyprintForm.qtly.Caption:=Edit9.Text+' 本';
  yhjbsyprintForm.qtkly.Caption:=Edit10.Text;
  yhjbsyprintForm.qtzly.Caption:=Edit11.Text;
  yhjbsyprintForm.qtsy.Caption:=Edit19.Text+' 份';
  yhjbsyprintForm.qtksy.Caption:=Edit20.Text;
  yhjbsyprintForm.qtzsy.Caption:=Edit21.Text;
  yhjbsyprintForm.qtzf.Caption:=Edit25.Text+' 份';
  yhjbsyprintForm.qtyj.Caption:=Edit23.Text+' 份';
  yhjbsyprintForm.qtkyj.Caption:=Edit34.Text;
  yhjbsyprintForm.qtzyj.Caption:=Edit35.Text;

  yhjbsyprintForm.djdly.Caption:=Edit36.Text+' 本';
  yhjbsyprintForm.djdkly.Caption:=Edit37.Text;
  yhjbsyprintForm.djdzly.Caption:=Edit38.Text;
  yhjbsyprintForm.djdsy.Caption:=Edit40.Text+' 份';
  yhjbsyprintForm.djdksy.Caption:=Edit41.Text;
  yhjbsyprintForm.djdzsy.Caption:=Edit42.Text;
  yhjbsyprintForm.djdzf.Caption:=Edit44.Text+' 份';
  yhjbsyprintForm.djdyj.Caption:=Edit46.Text+' 份';
  yhjbsyprintForm.djdkyj.Caption:=Edit47.Text;
  yhjbsyprintForm.djdzyj.Caption:=Edit48.Text;

  yhjbsyprintForm.ydjj.Caption:=Edit39.Text+' 套';
  yhjbsyprintForm.ydly.Caption:=Edit43.Text+' 套';
  yhjbsyprintForm.ydfc.Caption:=Edit45.Text+' 套';
  yhjbsyprintForm.ydyj.Caption:=Edit49.Text+' 套';

  yhjbsyprintForm.bz.Lines.Text:=Memo1.Lines.Text;
  yhjbsyprintForm.nb.Caption:=nb.Text;
  yhjbsyprintForm.ns.Caption:=ns.Text;
  yhjbsyprintForm.nhj.Caption:=nhj.Text;
  yhjbsyprintForm.vb.Caption:=nvb.Text;
  yhjbsyprintForm.vs.Caption:=nvs.Text;
  yhjbsyprintForm.vhj.Caption:=nvhj.Text;

  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 现金: '+copy('         '+trim(xj.Text),length(trim(xj.Text)),10)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 支票: '+copy('         '+trim(zp.Text),length(trim(zp.Text)),10)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('  ('+copy('         '+trim(Edit55.Text),length(trim(Edit55.Text)),10)+') 张');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 信用卡: '+copy('       '+trim(xyk.Text),length(trim(xyk.Text)),8)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('  ('+copy('         '+trim(Edit56.Text),length(trim(xj.Text)),10)+') 张');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 未结帐: '+copy('       '+trim(jz.Text),length(trim(jz.Text)),8)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 记帐: '+copy('         '+trim(gz.Text),length(trim(gz.Text)),10)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 免收: '+copy('         '+trim(mshou.Text),length(trim(mshou.Text)),10)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 合计: '+copy('         '+trim(hj.Text),length(trim(hj.Text)),10)+' 元');
  yhjbsyprintForm.jkmx1.Lines.Add('');
  yhjbsyprintForm.jkmx1.Lines.Add(' 票据总数：'+copy('     '+trim(Edit50.Text),length(trim(Edit50.Text)),10)+' 张');

  yhjbsyprintForm.jkmx2.Lines.Add('');
  yhjbsyprintForm.jkmx2.Lines.Add(' 押金移交：'+copy('     '+trim(Edit51.Text),length(trim(Edit51.Text)),10)+' 元');
  yhjbsyprintForm.jkmx2.Lines.Add('');
  yhjbsyprintForm.jkmx2.Lines.Add(' 登记单：  '+copy('     '+trim(Edit52.Text),length(trim(Edit52.Text)),10)+' 张');
  yhjbsyprintForm.jkmx2.Lines.Add('');
  yhjbsyprintForm.jkmx2.Lines.Add(' 房卡移交：'+copy('     '+trim(Edit53.Text),length(trim(Edit53.Text)),10)+' 套');
  yhjbsyprintForm.jkmx2.Lines.Add('');
  yhjbsyprintForm.jkmx2.Lines.Add(' 散座手牌：'+copy('     '+trim(Edit54.Text),length(trim(Edit54.Text)),10)+' 个');

  yhjbsyprintForm.QuickRep1.Preview;
  yhjbsyprintForm.Free;
end;

procedure ThyjbsyForm.Edit54Exit(Sender: TObject);
begin
 // edit2.CanFocus;
  edit2.SetFocus;
end;

procedure ThyjbsyForm.Edit49Exit(Sender: TObject);
begin
    memo1.SetFocus;
end;

end.