bcmdunit.pas

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

unit bcmdUnit;

interface

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

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

var
  bcmdForm: TbcmdForm;

implementation

{$R *.DFM}
 uses dataproc;
procedure TbcmdForm.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');
   begdate.Enabled:=false;
   enddate.Enabled:=false;
   begtime.Enabled:=false;
   endtime.Enabled:=false;
end;

procedure TbcmdForm.BitBtn1Click(Sender: TObject);
begin
   bcmdForm.query4.Active:=false;
   bcmdForm.query4.SQL.Clear;
   if zaizhu.Checked then
   begin
    bcmdForm.query4.SQL.Add('select roomno,(select max(name) from guestmx where nowin.accno=guestmx.accno) as name,begtime,(select name from mode where code=nowin.jzfs) as 结帐方式,');
    bcmdForm.query4.SQL.Add(' (money+csmoney) as 房间费,ismd,zkl as 折扣,ismff as 免房费,ismxf as 免消费, czy,pzr as 负责人  from nowin where  (ismd=1 or zkl<>100 or ismff=1 or ismxf=1) ');
   end;
   if not zaizhu.Checked then
   begin
     bcmdForm.query4.SQL.Add('select roomno,(select max(name) from lsguestmx where lsnowin.accno=lsguestmx.accno) as name,begtime,(select name from mode where code=lsnowin.jzfs) as 结帐方式,');
     bcmdForm.query4.SQL.Add(' (money+csmoney) as 房间费,ismd,zkl as 折扣,ismff as 免房费,ismxf as 免消费, czy,pzr as 负责人  from lsnowin where  (ismd=1 or zkl<>100 or ismff=1 or ismxf=1) and begtime>=:pbegtime and  begtime<=:pendtime ');
     bcmdForm.query4.ParamByName('pbegtime').asdatetime:=strtodatetime(formatdatetime('yyyy-MM-dd',begdate.Date)+' '+formatdatetime('hh:mm:ss',begdate.Time));
     bcmdForm.query4.ParamByName('pendtime').asdatetime:=strtodatetime(formatdatetime('yyyy-MM-dd',enddate.Date)+' '+formatdatetime('hh:mm:ss',enddate.Time));
   end;
   bcmdForm.query4.Prepare;
   bcmdForm.query4.Open;
   chinesegrid(bcmdForm.dbgrid1);

end;

procedure TbcmdForm.zaizhuClick(Sender: TObject);
begin
 if not zaizhu.Checked then
 begin
   begdate.Enabled:=true;
   enddate.Enabled:=true;
   begtime.Enabled:=true;
   endtime.Enabled:=true;
 end else
 begin
   begdate.Enabled:=false;
   enddate.Enabled:=false;
   begtime.Enabled:=false;
   endtime.Enabled:=false;
 end;
end;

end.