jzmfunit.pas

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

unit jzmfUnit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, Grids, DBGrids, ComCtrls, StdCtrls, ExtCtrls, Buttons;

type
  TjzmfForm = class(TForm)
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Query4: TQuery;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    BitBtn1: TBitBtn;
    jme: TCheckBox;
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  jzmfForm: TjzmfForm;

implementation

{$R *.DFM}
 uses dataproc;
procedure TjzmfForm.FormShow(Sender: TObject);
begin
   shortdateformat:='yyyy-mm-dd';
   begdate.DateTime:=now-1;
   enddate.DateTime:=now;
   begtime.Time:=strtotime('00:00:00');
   endtime.Time:=strtotime('00:00:00');
end;

procedure TjzmfForm.BitBtn1Click(Sender: TObject);
begin
   jzmfForm.query4.Active:=false;
   jzmfForm.query4.SQL.Clear;
   if jme.Checked then
   begin
     jzmfForm.query4.SQL.Add('select handno,roomnum as 结帐房数,sannum as 散座数,(select max(name) from lsguestmx where lsjz.accno=lsguestmx.accno) as name,jztime,(select name from mode where code=lsjz.jzfs) as 结帐方式,ysmoney as 实收,');
     jzmfForm.query4.SQL.Add(' (roommoney+rmcsmoney) as 房间费,(sanmoney+sancsmoney) as 散座费,yjmoney as 押金,cusmoney as 消费,phmoney as 电话费,jjmoney as 加收,mmmoney as 免收,czy  from lsjz where  mmmoney<>0 and jztime>=:pbegtime and  jztime<=:pendtime ');
     jzmfForm.query4.SQL.Add(' union (select ''合计'',sum(roomnum)as 结帐房数,sum(sannum) as 散座数,null,null,null,sum(ysmoney) as 实收,sum(roommoney+rmcsmoney) as 房间费,sum(sanmoney+sancsmoney) as 散座费,sum(yjmoney) as 押金,');
     jzmfForm.query4.SQL.Add(' sum(cusmoney) as 消费,sum(phmoney) as 电话费,sum(jjmoney) as 加收,sum(mmmoney) as 免收,null  from lsjz where  mmmoney<>0 and jztime>=:pbegtime and  jztime<=:pendtime) ')
   end else
   begin
     jzmfForm.query4.SQL.Add('select handno,roomnum as 结帐房数,sannum as 散座数,(select max(name) from lsguestmx where lsjz.accno=lsguestmx.accno) as name,jztime,(select name from mode where code=lsjz.jzfs) as 结帐方式,ysmoney as 实收,');
     jzmfForm.query4.SQL.Add(' (roommoney+rmcsmoney) as 房间费,(sanmoney+sancsmoney) as 散座费,yjmoney as 押金,cusmoney as 消费,phmoney as 电话费,jjmoney as 加收,mmmoney as 免收,czy  from lsjz where   jztime>=:pbegtime and  jztime<=:pendtime ');
     jzmfForm.query4.SQL.Add(' union (select ''合计'',sum(roomnum)as 结帐房数,sum(sannum) as 散座数,null,null,null,sum(ysmoney) as 实收,sum(roommoney+rmcsmoney) as 房间费,sum(sanmoney+sancsmoney) as 散座费,sum(yjmoney) as 押金,');
     jzmfForm.query4.SQL.Add(' sum(cusmoney) as 消费,sum(phmoney) as 电话费,sum(jjmoney) as 加收,sum(mmmoney) as 免收,null  from lsjz where   jztime>=:pbegtime and  jztime<=:pendtime) ')
   end ;
   jzmfForm.query4.ParamByName('pbegtime').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',begdate.Date)+' '+formatdatetime('hh:mm:ss',begdate.Time));
   jzmfForm.query4.ParamByName('pendtime').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',enddate.Date)+' '+formatdatetime('hh:mm:ss',enddate.Time));
   jzmfForm.query4.Prepare;
   jzmfForm.query4.Open;
   chinesegrid(jzmfForm.dbgrid1);

end;

end.