xffltj.pas

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

            wj.Text:=q1.Fields[0].asstring;
         q1.Active :=false;
         q1.sql.clear;
         if mxname.TabIndex=0 then
            q1.sql.add('select sum(Money) from lscustom where (regtime>=:pbgtm1) and (regtime<=:pedtm1) and substring(custype,1,2)='''+xflb.Items[xfname.itemIndex]+'''')
         else
            q1.sql.add('select sum(Money) from lscustom where (regtime>=:pbgtm1) and (regtime<=:pedtm1) and custype='''+mxlb.Items[mxname.tabIndex]+'''');
         q1.ParamByName ('pbgtm1').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
         q1.ParamByName ('pedtm1').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
         q1.Prepare;
         q1.open;
         if (q1.Fields[0].isnull) or (trim(q1.Fields[0].asstring)='') then
            yjzhj.Caption:='0'
         else
            yjzhj.Caption:=q1.Fields[0].asstring;
         q1.Active :=false;
         q1.sql.clear;
         if mxname.TabIndex=0 then
            q1.sql.add('select sum(Money) from lscustom where isxj=1 and (regtime>=:pbgtm1) and (regtime<=:pedtm1) and substring(custype,1,2)='''+xflb.Items[xfname.itemIndex]+'''')
         else
            q1.sql.add('select sum(Money) from lscustom where  isxj=1 and (regtime>=:pbgtm1) and (regtime<=:pedtm1) and custype='''+mxlb.Items[mxname.tabIndex]+'''');
         q1.ParamByName ('pbgtm1').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
         q1.ParamByName ('pedtm1').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
         q1.Prepare;
         q1.open;
         if (q1.Fields[0].isnull) or (trim(q1.Fields[0].asstring)='') then
            yxj.text:='0'
         else
            yxj.text:=q1.Fields[0].asstring;
         q1.Active :=false;
         q1.sql.clear;
         if mxname.TabIndex=0 then
            q1.sql.add('select sum(Money) from lscustom where ismd=1 and (regtime>=:pbgtm1) and (regtime<=:pedtm1) and substring(custype,1,2)='''+xflb.Items[xfname.itemIndex]+'''')
         else
            q1.sql.add('select sum(Money) from lscustom where ismd=1 and  (regtime>=:pbgtm1) and (regtime<=:pedtm1) and custype='''+mxlb.Items[mxname.tabIndex]+'''');
         q1.ParamByName ('pbgtm1').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
         q1.ParamByName ('pedtm1').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
         q1.Prepare;
         q1.open;
         if (q1.Fields[0].isnull) or (trim(q1.Fields[0].asstring)='') then
            ymd.text:='0'
         else
            ymd.text:=q1.Fields[0].asstring;
         hj.Caption:=floattostr(strtofloat(wjzhj.Caption)+strtofloat(yjzhj.Caption));
         q1.Active :=false;
         q1.sql.clear;
         q1.SQL.Add('delete from customls');
         q1.Active :=false;
         q1.sql.clear;
         if mxname.TabIndex=0 then
         begin
            q1.sql.add('insert into customls select * from custom where (Regtime>=:pbgtm1) and (regtime<=:pedtm1) and substring(custype,1,2)='''+xflb.Items[xfname.ItemIndex]+'''');
            q1.sql.add('insert into customls select * from lscustom where (Regtime>=:pbgtm1) and (regtime<=:pedtm1) and substring(custype,1,2)='''+xflb.Items[xfname.ItemIndex]+'''');
         end
         else
         begin
            q1.sql.add('insert into customls select * from custom where (Regtime>=:pbgtm1) and (regtime<=:pedtm1) and custype='''+mxlb.Items[mxname.TabIndex]+'''');
            q1.sql.add('insert into customls select * from lscustom where (Regtime>=:pbgtm1) and (regtime<=:pedtm1) and custype='''+mxlb.Items[mxname.TabIndex]+'''');
         end;
         q1.ParamByName ('pbgtm1').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
         q1.ParamByName ('pedtm1').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
         q1.Prepare;
         q1.ExecSQL;
      end;
      q1.Active :=false;
      q1.sql.clear;
      q1.SQL.Add('select CusName,cusjc,Price,Unit,(select sum(CusNum) from customls where cuscode=cusitem.cuscode) as sl,(select sum(Money) from customls where cuscode=cusitem.cuscode) as hj from cusitem where cuscode in (select cuscode from customls)');
      q1.open;
      DataSource1.DataSet:=q1;
  end;
end;

procedure xflbini;
begin
  with xffltjform do
  begin
   DataSource1.DataSet:=nil;
   mxlb.Items.Clear;
   mxname.Tabs.Clear;
   mxlb.Items.Add('');
   mxname.Tabs.Add('全部');
   if xfname.ItemIndex<>0 then
   begin
      q1.Active :=false;
      q1.sql.clear;
      q1.sql.add('select CusType,CusName from custype where parentcode='''+xflb.Items[xfname.ItemIndex]+'''');
      q1.Open;
      while not q1.Eof do
      begin
         mxlb.Items.Add(q1.Fields[0].asstring);
         mxname.Tabs.Add(q1.Fields[1].asstring);
         q1.Next;
      end;
   end;
   formini;
  end;
end;


procedure Txffltjform.FormCreate(Sender: TObject);
var i:integer;
begin
   shortdateformat:='yyyy-MM-dd';
   begdate.date:=now;
   begtime.Time:=strtotime('00:00');
   enddate.datetime:=now;
   endtime.time:=strtotime('23:59');
 //  Panel4.Caption:=curper.sydw+curper.workjsj+'站点消费收入统计表';
   xflb.Items.Clear;
   xfname.Items.Clear;
   xflb.Items.Add('');
   xfname.Items.Add('全部');
   xfname.DropDownCount:=1;
      q1.Active :=false;
      q1.sql.clear;
      q1.sql.add('select CusType,CusName from custype where parentcode=''0'' or parentcode=''00'' ' );
      q1.Open;
      while not q1.Eof do
      begin
         xflb.Items.Add(q1.Fields[0].asstring);
         xfname.Items.Add(q1.Fields[1].asstring);
         xfname.DropDownCount:=xfname.DropDownCount+1;
         q1.Next;
      end;

  {  cwsys.Items.Clear;
  try
     cwsys.Items.LoadFromFile(curper.workpath+'\cwsys.dll');
   except
   end;
   for i:=1 to cwsys.Items.Count-1 do
   begin
      xflb.Items.Add(trim(copy(cwsys.Items[i],1,4)));
      xfname.Items.Add(trim(copy(cwsys.Items[i],15,30)));
      xfname.DropDownCount:=xfname.DropDownCount+1;
   end;}
   xfname.ItemIndex:=0;
   xflbini;
end;


procedure Txffltjform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
    if xt=1 then help(3);
    if xt=0 then help(5);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     xffltjform.close;
end;

procedure Txffltjform.FormClose(Sender: TObject; var Action: TCloseAction);
begin

         q1.Active :=false;
         q1.sql.clear;
         q1.SQL.Add('delete from customls');
         q1.ExecSQL;
         q1.Active :=false;
         q1.sql.clear;
         q1.free;
end;

procedure Txffltjform.begdateChange(Sender: TObject);
begin
   q1.Close;

end;

procedure Txffltjform.xfnameChange(Sender: TObject);
begin
   xflbini;
end;

procedure Txffltjform.mxnameChange(Sender: TObject);
begin
   formini;
end;

procedure Txffltjform.SpeedButton1Click(Sender: TObject);
begin
  if (DataSource1.DataSet=q1) and (q1.Active) then
  begin
     application.CreateForm(Txftjprinform,xftjprinform);
     xftjprinform.QRLabel1.Caption:=Panel4.Caption;
     xftjprinform.QRLabel12.Caption:=formatdatetime('yyyy''年''m''月''d''日''',begdate.Date)+formatdatetime('hh''时''mm''分''',begtime.Time)+'至'+formatdatetime('yyyy''年''m''月''d''日''',enddate.Date)+formatdatetime('hh''时''mm''分''',endtime.Time);
     if xfname.ItemIndex<>0 then xftjprinform.QRLabel12.Caption:=xftjprinform.QRLabel12.Caption+' 消费类型：'+xfname.Text;
     if mxname.TabIndex<>0 then xftjprinform.QRLabel12.Caption:=xftjprinform.QRLabel12.Caption+'/'+mxname.Tabs[mxname.TabIndex];
     xftjprinform.QRLabel12.Caption:=xftjprinform.QRLabel12.Caption+' 统计结果';
     xftjprinform.QRLabel3.Caption:='已结帐合计：'+yjzhj.Caption+'  未结帐合计：'+wjzhj.Caption+'  总合计：'+hj.Caption;
     xftjprinform.hide;
     xftjprinform.qr1.Print;
     xftjprinform.free;
  end;


end;

procedure Txffltjform.SpeedButton2Click(Sender: TObject);
begin
  if (DataSource1.DataSet=q1) and (q1.Active) then
  begin
     application.CreateForm(Txftjprinform,xftjprinform);
     xftjprinform.QRLabel1.Caption:=Panel4.Caption;
     xftjprinform.QRLabel12.Caption:=formatdatetime('yyyy''年''MM''月''d''日''',begdate.Date)+formatdatetime('hh''时''mm''分''',begtime.Time)+'至'+formatdatetime('yyyy''年''m''月''d''日''',enddate.Date)+formatdatetime('hh''时''mm''分''',endtime.Time);
     if xfname.ItemIndex<>0 then xftjprinform.QRLabel12.Caption:=xftjprinform.QRLabel12.Caption+' 消费类型：'+xfname.Text;
     if mxname.TabIndex<>0 then xftjprinform.QRLabel12.Caption:=xftjprinform.QRLabel12.Caption+'/'+mxname.Tabs[mxname.TabIndex];
     xftjprinform.QRLabel12.Caption:=xftjprinform.QRLabel12.Caption+' 统计结果';
     xftjprinform.QRLabel3.Caption:='已结帐合计：'+yjzhj.Caption+'  未结帐合计：'+wjzhj.Caption+'  总合计：'+hj.Caption;
     xftjprinform.hide;
     xftjprinform.qr1.preview;
     xftjprinform.free;
  end;
end;

procedure Txffltjform.SpeedButton3Click(Sender: TObject);
begin
   close;
end;

procedure Txffltjform.SpeedButton4Click(Sender: TObject);
begin
  formini;
end;

end.