cxlshk.pas

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

unit cxlshk;

interface

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

type
  TcxlshkForm = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    ksdate: TDateTimePicker;
    kstime: TDateTimePicker;
    jsdate: TDateTimePicker;
    jstime: TDateTimePicker;
    Label1: TLabel;
    Query1: TQuery;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure ksdateChange(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  cxlshkForm: TcxlshkForm;

implementation
uses dataproc,qxrz;
{$R *.DFM}

procedure TcxlshkForm.FormShow(Sender: TObject);
begin
  ksdate.DateTime:=now-1;
  kstime.Time:=strtotime('00:00');
  jsdate.DateTime:=now;
  jstime.DateTime:=now;
  ksdateChange(nil);
end;

procedure TcxlshkForm.ksdateChange(Sender: TObject);
begin
    Query1.Active:=false;
    ksdate.Time:=kstime.Time;
    jsdate.Time:=jstime.Time;
    Query1.ParamByName('pbeg').asdatetime:=ksdate.DateTime;
    Query1.ParamByName('pend').asdatetime:=jsdate.DateTime;
    Query1.Open;
    DBGrid1.Columns[2].width:=120;
end;

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

procedure TcxlshkForm.BitBtn1Click(Sender: TObject);
var ls:string;
begin
   ls:='';
 { Application.CreateForm(Tqxrzform, qxrzform);
  qxrzform.showmodal;
  if qxrzform.name.Caption<>'' then ls:=qxrzform.name.Caption;
  qxrzform.free;
  if ls<>'' then
  begin }
  addlogo(curper.code,datetimetostr(now),'会客查询删除');
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  fm.Query2.SQL.Add('delete from lsguest where endtime>:pbeg and endtime<:pend');
  fm.Query2.ParamByName('pbeg').asdatetime:=ksdate.DateTime;
  fm.Query2.ParamByName('pend').asdatetime:=jsdate.DateTime;
  fm.Query2.ExecSQL;
  fm.Query2.Active:=false;
  fm.Query2.SQL.Clear;
  Query1.Active:=false;
  Query1.Open;
 // end else
 // Application.MessageBox('不能删除','提示信息',48);

end;

end.