lsjzcx.pas

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

unit lsjzcx;

interface

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

type
  Tlsjzcxform = class(TForm)
    Bevel1: TBevel;
    cx: TQuery;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    hz: TQuery;
    Panel3: TPanel;
    Label2: TLabel;
    cxbut: TBitBtn;
    MaskEdit1: TMaskEdit;
    BitBtn1: TBitBtn;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    Label1: TLabel;
    Label3: TLabel;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    Splitter1: TSplitter;
    Label4: TLabel;
    MaskEdit2: TMaskEdit;
    Label5: TLabel;
    MaskEdit3: TMaskEdit;
    md: TCheckBox;
    xj: TCheckBox;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure cxbutClick(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure DataSource2DataChange(Sender: TObject; Field: TField);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  lsjzcxform: Tlsjzcxform;

implementation
uses dataproc;

{$R *.DFM}
var
  acc:string;

procedure Tlsjzcxform.FormCreate(Sender: TObject);
begin
   shortdateformat:='yyyy-MM-dd';
   begdate.DateTime:=now-1;
   enddate.DateTime:=now;
   begtime.Time:=strtotime('00:00:00');
   endtime.Time:=strtotime('23:59:59');
   maskedit1.text:='0';
   maskedit2.text:='0';
   maskedit3.text:='0';

end;

procedure Tlsjzcxform.cxbutClick(Sender: TObject);
var  tj:string; hzxf,hzroom,hzmd:float;
begin
  hzxf:=0; hzroom:=0;hzmd:=0;
  tj:='';
  if (md.Checked) then
  begin
    if tj='' then tj:=' and jzfs=''05'' else
    tj:=tj+' and jzfs=''05'' '
  end;
  if (xj.Checked) then
  begin
    if tj='' then tj:=' and jzfs=''01'' else
    tj:=tj+' and jzfs=''01'' '
  end;
    hz.Active :=false;
    hz.sql.clear;
    hz.sql.add('select accno,handno,isnull(sum(roommoney+rmcsmoney+sanmoney+sancsmoney),0) as 房费,cusmoney,phmoney,jjmoney,');
    hz.sql.add(' mmmoney,ysmoney,ismf,ismxf,jztime,czy,jzfs from lsjz where jztime>=:pbeg and jztime<=:pend '+tj );
    hz.sql.add(' GROUP BY accno, handno, cusmoney, phmoney, jjmoney, mmmoney, ysmoney, ismf,ismxf, jztime, czy, jzfs ')
    hz.ParamByName('pbeg').asdatetime:=strtodatetime(formatdatetime('yyyy-MM-dd',begdate.Date)+' '+formatdatetime('hh:mm:ss',begtime.Time));
    hz.ParamByName('pend').asdatetime:=strtodatetime(formatdatetime('yyyy-MM-dd',enddate.Date)+' '+formatdatetime('hh:mm:ss',endtime.Time));
    hz.Prepare;
    hz.Open;
    while not hz.Eof do
    begin
     hzxf:=hzxf+hz.FieldByName('cusmoney').asfloat;
     hzroom:=hzxf+hz.FieldByName('房费').asfloat;
    end;

end;

procedure Tlsjzcxform.BitBtn1Click(Sender: TObject);
begin
   close;
end;

procedure Tlsjzcxform.DataSource2DataChange(Sender: TObject;
  Field: TField);
begin
   if DataSource1.DataSet=nil then exit;
         cx.Active :=false;
         cx.sql.clear;
         cx.sql.add('select lscustom.handno,lssex.sexname,cusitem.cusname,lscustom.cusprice,lscustom.cusnum,lscustom.money,lscustom.isxj,lscustom.ismd,lscustom.regtime,lscustom.czy,pdid,Proid,lscustom.djcode,lscustom.sex  from lscustom,cusitem,lssex');
         cx.sql.add('  where (lscustom.cuscode=cusitem.cuscode) and (lssex.sex=lscustom.sex) ');
         cx.sql.add(' order by lscustom.cuscode ');
         cx.Prepare;
         cx.Open;
         chinesegrid(dbgrid1);
         cx.active:=true;

end;

end.