book_find.~pas

我自己写的一个有关酒店管理系统的代码 大家

unit BOOK_FIND;

interface

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

type
  TBOOKFINDForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    DataSource1: TDataSource;
    Query1: TQuery;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  BOOKFINDForm: TBOOKFINDForm;

implementation

{$R *.dfm}

procedure TBOOKFINDForm.BitBtn1Click(Sender: TObject);
begin
  query1.close;
  CLOSE;
end;

procedure TBOOKFINDForm.FormActivate(Sender: TObject);
begin
    dbgrid1.datasource:=datasource1;
    dbgrid1.ReadOnly:=true;
    datasource1.DataSet:=query1;
    radiobutton1.Checked:=true;
    combobox1.Items.Clear;
    query1.SQL.Clear;
    query1.SQL.add('select * from room');
    query1.open;
    while not query1.eof do
    begin
          combobox1.Items.add(query1.fieldbyname('roomclass').ASSTRING);
          query1.next;
    end;
    combobox1.Items.add('全部');
    query1.close;
    query1.SQL.clear;
    query1.sql.Add('select * from room_manager where use_id=:s0');
    query1.ParamByName('s0').AsBoolean:=false;
    query1.open;
end;

procedure TBOOKFINDForm.RadioButton1Click(Sender: TObject);
begin
    combobox1.Enabled:=true;
    combobox1.text:='';
end;

procedure TBOOKFINDForm.RadioButton2Click(Sender: TObject);
begin
    combobox1.Text:='全部';
    combobox1.Enabled:=false;
end;

procedure TBOOKFINDForm.BitBtn2Click(Sender: TObject);
begin
      query1.Active:=false;
      if radiobutton1.Checked then
      begin
            if combobox1.items[combobox1.ItemIndex]='全部' then
            begin
                  query1.SQL.clear;
                  query1.sql.add('select * from room_manager where use_id=:s0');
                  query1.ParamByName('s0').AsBoolean:=false;
            end
            else
            begin
                  query1.SQL.clear;
                  query1.sql.add('select * from room_manager where use_id=:s0 and roomclass=:s1');
                  query1.ParamByName('s0').AsBoolean:=false;
                  query1.ParamByName('s1').Asstring:=combobox1.Items[combobox1.ItemIndex];
            end;
      end
      else
      begin
                  query1.SQL.clear;
                  query1.sql.add('select * from room_manager where use_id=:s0 and hour_id=:s1');
                  query1.ParamByName('s0').AsBoolean:=false;
                  query1.ParamByName('s1').Asboolean:=true;
      end;
      query1.open;
end;

end.