unit12.~pas

作者针对当前酒店客房管理的现状

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, DB, DBTables;

type
  TForm12 = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    Label1: TLabel;
    Button1: TButton;
    Query1: TQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Button2: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    sfind:string;//存查询条件
  public
    { Public declarations }
  end;

var
  Form12: TForm12;


implementation

{$R *.dfm}

procedure TForm12.Button1Click(Sender: TObject);
begin
  with Query1 do
  begin
    Close;
    Sql.Clear;
    Sql.Add('select * from book where '+sfind+' like ' +''''+edit1.Text+'''');
    Open;
  end;
end;

procedure TForm12.RadioButton1Click(Sender: TObject);
begin
  case (Sender as TRadioButton).Tag of
    1:sfind:='code';
    2:sfind:='Bookname';
    3:sfind:='concern';
    4:sfind:='author';          
  end
end;

procedure TForm12.Button2Click(Sender: TObject);
begin
  Close;
end;

end.