inhisfindut.pas

来自「宾馆客房管理系统,功能强大,界面美观,全部delphi源代码」· PAS 代码 · 共 107 行

unit inhisfindut;

interface

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

type
  Tinhisfindfm = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    bfado: TADOQuery;
    Label1: TLabel;
    tj1: TComboBox;
    Label2: TLabel;
    gjz: TEdit;
    cxbt: TBitBtn;
    gbbt: TBitBtn;
    sxbt: TBitBtn;
    ydsj: TDateTimePicker;
    procedure FormCreate(Sender: TObject);
    procedure cxbtClick(Sender: TObject);
    procedure gbbtClick(Sender: TObject);
    procedure gjzKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure tj1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  inhisfindfm: Tinhisfindfm;

implementation

{$R *.dfm}

procedure Tinhisfindfm.FormCreate(Sender: TObject);
begin
tj1.Text:='';
gjz.Text:='';
ydsj.Date:=date();
 with bfado do
   begin
     close;
     sql.Clear;
     sql.Add('select * from 入住单历史表 order by 编号');
     open;
   end;
end;

procedure Tinhisfindfm.cxbtClick(Sender: TObject);
 var
 str:string;
begin
  str:='select * from 入住单历史表 where id=""';
  if (tj1.Text<>'') then
    begin
      str:=str+' and '+trim(tj1.Text)+'=:gjz';
    end;

 with bfado do
   begin
    close;
    sql.Clear;
    sql.Add(str);
    if (tj1.Text<>'')and (tj1.Text<>'抵店时间') then
    Parameters.ParamByName('gjz').Value:=trim(gjz.Text);
    if tj1.Text='抵店时间' then
    Parameters.ParamByName('gjz').Value:=datetostr(ydsj.Date);
      open;
   end;
end;

procedure Tinhisfindfm.gbbtClick(Sender: TObject);
begin
close;
end;

procedure Tinhisfindfm.gjzKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=13 then
cxbt.Click;
end;

procedure Tinhisfindfm.tj1Change(Sender: TObject);
begin
 if tj1.Text='抵店时间' then
 begin
 ydsj.Visible:=true;
 gjz.Visible:=false;
 end
 else
 begin
  ydsj.Visible:=false;
 gjz.Visible:=true;
 end;
end;

end.