hfcxunit.pas

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

unit hfcxunit;

interface

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

type
  ThfcxForm = class(TForm)
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DataSource1: TDataSource;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    BitBtn2: TBitBtn;
    Query1: TQuery;
    DataSource2: TDataSource;
    Query2: TQuery;
    DataSource3: TDataSource;
    Query3: TQuery;
    Label4: TLabel;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    fjh: TEdit;
    BitBtn1: TBitBtn;
    Splitter1: TSplitter;
    Splitter2: TSplitter;
    procedure FormShow(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure DataSource2DataChange(Sender: TObject; Field: TField);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  hfcxForm: ThfcxForm;
implementation
uses dataproc;
{$R *.DFM}

procedure ThfcxForm.FormShow(Sender: TObject);
var i:integer;
begin
   begdate.DateTime:=now;
   enddate.DateTime:=now+1;
   fjh.Text:='';
   query2.Active:=false;
   query2.SQL.Clear;
   query2.SQL.Add('select handno as 新房号,acctime as 算帐时间,endtime as 离店时间,money as 房间费,csmoney AS 超时费,');
   query2.SQL.Add('(select name from mode where code=jzfs) as 结帐方式 from nowin where changeroom=1 and acctime>=:pbeg and  acctime<=:pend');
   query2.SQL.Add(' union(select handno as 新房号,acctime as 算帐时间,endtime as 离店时间,money as 房间费,csmoney AS 超时费,');
   query2.SQL.Add('(select name from mode where code=jzfs) as 结帐方式 from lsnowin where changeroom=1 and acctime>=:pbeg and acctime<=:pend)');
   query2.ParamByName('pbeg').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',begdate.Date)+' '+formatdatetime('hh:mm:ss',begtime.Time));
   query2.ParamByName('pend').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',enddate.Date)+' '+formatdatetime('hh:mm:ss',endtime.Time));
   query2.Prepare;
   query2.Open;
end;

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

procedure ThfcxForm.DataSource2DataChange(Sender: TObject; Field: TField);
var tj:string;
begin
    tj:='';
    if trim(fjh.text)<>'' then
     tj:=' and handno='''+trim(fjh.text)+'''';
   query3.Active:=false;
   query3.SQL.Clear;
   query3.SQL.Add('select handno as 旧房号,acctime as 算帐时间,endtime as 离店时间,money as 房间费,csmoney AS 超时费 from changeroom where welid='''+trim(query2.Fields[1].AsString)+''''+tj);
   query3.SQL.Add(' union(select handno as 旧房号,acctime as 算帐时间,endtime as 离店时间,money as 房间费,csmoney AS 超时费 from lschangeroom where welid='''+trim(query2.Fields[1].AsString)+''''+tj+')');
   query3.Prepare;
   query3.Open;
   query1.Active:=false;
   query1.SQL.Clear;
   query1.SQL.Add('select handno as 房号,(select cusname from cusitem where cusitem.cuscode=custom.cuscode) as 消费项目,cusprice as 单价,');
   query1.SQL.Add('cusnum as 数量,money as 金额,regtime as 消费时间,czy as 操作员,djcode as 消费单号,jsj as 消费站点 from custom where custom.accno='''+trim(query2.Fields[0].AsString)+''''+tj);
   query1.SQL.Add(' union(select handno as 房号,(select cusname from cusitem where cusitem.cuscode=custom.cuscode) as 消费项目,cusprice as 单价,');
   query1.SQL.Add('cusnum as 数量,money as 金额,regtime as 消费时间,czy as 操作员,djcode as 消费单号,jsj as 消费站点 from custom where custom.accno='''+trim(query2.Fields[0].AsString)+''''+tj+')');
   query1.Prepare;
   query1.Open;
end;

procedure ThfcxForm.BitBtn1Click(Sender: TObject);
var tj:string;
begin
    tj:='';
    if trim(fjh.text)<>'' then
     tj:=' and handno='''+trim(fjh.text)+'''';
   query2.Active:=false;
   query2.SQL.Clear;
   query2.SQL.Add('select handno as 新房号,acctime as 算帐时间,endtime as 离店时间,money as 房间费,csmoney AS 超时费,');
   query2.SQL.Add('(select name from mode where code=jzfs) as 结帐方式 from nowin where changeroom=1 and acctime>=:pbeg and  acctime<=:pend'+tj);
   query2.SQL.Add(' union(select handno as 新房号,acctime as 算帐时间,endtime as 离店时间,money as 房间费,csmoney AS 超时费,');
   query2.SQL.Add('(select name from mode where code=jzfs) as 结帐方式 from lsnowin where changeroom=1 and acctime>=:pbeg and acctime<=:pend '+tj+')');
   query2.ParamByName('pbeg').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',begdate.Date)+' '+formatdatetime('hh:mm:ss',begtime.Time));
   query2.ParamByName('pend').asdatetime:=strtodatetime(formatdatetime('yyyy-mm-dd',enddate.Date)+' '+formatdatetime('hh:mm:ss',endtime.Time));
   query2.Prepare;
   query2.Open;

end;

end.