u1_8.pas

前言 随着旅游业的发展

unit U1_8;

interface

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

type
  TF1_8 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    CBoxtiaojian: TComboBox;
    CBoxkeren: TComboBox;
    Label2: TLabel;
    EDtime: TEdit;
    Label3: TLabel;
    EDtime1: TEdit;
    SBTshuaxin: TSpeedButton;
    Bevel1: TBevel;
    SBTsearch: TSpeedButton;
    Bevel2: TBevel;
    SBTyulan: TSpeedButton;
    SBTout: TSpeedButton;
    Bevel3: TBevel;
    SBTback: TSpeedButton;
    PCinfo: TPageControl;
    TabSdengji: TTabSheet;
    DBGrid2: TDBGrid;
    procedure SetTime;
    procedure readinfo;
    procedure SBTshuaxinClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SBTbackClick(Sender: TObject);
    procedure CBoxkerenChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses UDmo;

{$R *.dfm}

procedure TF1_8.readinfo;
begin
  with dmo.ADOQuery1 do
  begin
    close;
    sql.Clear;
    sql.Add('select na as ''姓名'',sex as ''性别'','
            +'country as ''国家'',works as ''工作单位'','
            +'address as ''详细住址'',birthday as ''出生日期'','
            +'sfz as ''身份证'',cishu as ''入住次数'','
            +'ruzhutime as ''入住时间'',likaitime as ''离开时间'' from binkeinfo');
    sql.add('where ruzhutime>=:ruzhutime');
    parameters.ParamByName('ruzhutime').Value:=strTodate(EDtime.Text);
    if (CBoxkeren.Text='进店日期在') or (CBoxkeren.Text='离店日期在') then
    begin
      sql.Add(' and likaitime<:likaitime');
      parameters.ParamByName('likaitime').Value:=(strTodate(EDtime1.Text));
    end;

    open;
  end;
end;

procedure TF1_8.SetTime;
begin
  if CBoxkeren.Text='昨日来宾' then
    EDtime.Text:=FormatDateTime('yyyy-mm-dd',NOW-1)
  else
    EDtime.Text:=FormatDateTime('yyyy-mm-dd',NOW);
  readinfo;
end;

procedure TF1_8.SBTshuaxinClick(Sender: TObject);
begin
  readInfo;
end;

procedure TF1_8.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Dmo.ADOQuery1.Close;
  Action:=caFree;
end;

procedure TF1_8.SBTbackClick(Sender: TObject);
begin
  Close;
end;

procedure TF1_8.CBoxkerenChange(Sender: TObject);
begin
   if (CBoxkeren.Text='进店日期在') or (CBoxkeren.Text='离店日期在') then
   begin
     EDtime.Enabled:=true;
     EDtime1.Enabled:=true;
   end
   else
   begin
      setTime;
      EDTime.Enabled:=false;
      EDtime.Enabled:=false;
   end;
   readinfo;

end;

end.