lsrmcx.pas

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

unit lsrmcx;

interface

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

type
  Trmlscxform = class(TForm)
    DBGrid1: TDBGrid;
    q1: TQuery;
    DataSource1: TDataSource;
    Panel2: TPanel;
    Label7: TLabel;
    rmno: TEdit;
    begdate: TDateTimePicker;
    begtime: TDateTimePicker;
    enddate: TDateTimePicker;
    endtime: TDateTimePicker;
    CheckBox1: TCheckBox;
    dh: TEdit;
    cx: TCheckBox;
    BitBtn1: TBitBtn;
    CheckBox2: TCheckBox;
    procedure FormCreate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure rmnoExit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure begdateChange(Sender: TObject);
    procedure DBGrid1TitleClick(Column: TColumn);
    procedure BitBtn1Click(Sender: TObject);
    procedure cxClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  rmlscxform: Trmlscxform;

implementation
uses dataproc;
var bx:string;
{$R *.DFM}

procedure Trmlscxform.FormCreate(Sender: TObject);
begin
   shortdateformat:='yyyy-mm-dd';
   bx:='handno';
   rmno.text:='';
   dh.text:='';
   begdate.date:=now-5;
   begtime.Time:=strtotime('00:00');
   enddate.datetime:=now-1;
   endtime.datetime:=now-1;
end;

procedure Trmlscxform.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=112 then
  begin
    if xt=1 then help(3);
    if xt=0 then help(5);
  end;
  if key=13 then
     selectnext(activecontrol,true,true);
  if key=27 then
     rmlscxform.close;
end;

procedure Trmlscxform.rmnoExit(Sender: TObject);
var
  aa:array [0..1] of string;
begin
   if length(trim(rmno.text))>0 then
      begin
      aa[0]:='';
      getvalue(aa,'select roomno handno from room where roomno='''+trim(rmno.text)+'''');
      if length(trim(aa[0])) =0 then
         begin
         showmessage('房间号错误');
         rmno.setfocus;
         end;
      end;
end;

procedure Trmlscxform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   q1.free;
end;

procedure Trmlscxform.begdateChange(Sender: TObject);
begin
   q1.Close;
   rmno.text:='';
   dh.text:='';
end;

procedure Trmlscxform.DBGrid1TitleClick(Column: TColumn);
begin
  bx:=Column.DisplayName;
  BitBtn1Click(nil);
end;

procedure Trmlscxform.BitBtn1Click(Sender: TObject);
begin
      q1.Active :=false;
      q1.sql.clear;
      q1.sql.add('select handno,begtime,endtime,istime,zkmoney=money,csmoney,mode.name,djcode from lsnowin,mode where mode.code=lsnowin.jzfs ');
      if CheckBox2.Checked then
      begin  q1.sql.add(' and (begtime>=:pbgtm1) and (begtime<=:pedtm1) ');
        q1.ParamByName ('pbgtm1').asstring:=datetostr(begdate.Date)+' '+timetostr(begtime.time);
        q1.ParamByName ('pedtm1').asstring:=datetostr(enddate.Date)+' '+timetostr(endtime.time);
      end;
      if cx.Checked then
      begin
         q1.sql.text:=q1.sql.text+' and  (handno=:phdno1)';
         q1.ParamByName ('phdno1').asstring:=trim(rmno.text);
      end;
      if CheckBox1.Checked then
      begin
         q1.sql.text:=q1.sql.text+' and  (djcode=:phdno2)';
         q1.ParamByName ('phdno2').asstring:=trim(dh.text);
      end;
      q1.sql.Add(' order by '+bx);
      q1.Prepare;
      q1.open;
      chinesegrid(dbgrid1);
      DBGrid1.fields[6].displaylabel:=' 结帐方式';
      DBGrid1.fields[7].displaylabel:=' 登记单号';
      dbgrid1.Columns[2].width:=dbgrid1.Columns[2].width+5;
      q1.Active :=true;
end;

procedure Trmlscxform.cxClick(Sender: TObject);
begin
  rmno.Enabled:=cx.Checked;
  dh.Enabled:=CheckBox1.Checked;
  begdate.Enabled:= CheckBox2.Checked;
  begtime.Enabled:= CheckBox2.Checked;
  enddate.Enabled:= CheckBox2.Checked;
  endtime.Enabled:= CheckBox2.Checked;
end;

end.