book_find.pas

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

unit BOOK_FIND;

interface

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

type
  TBOOKFINDForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    ComboBox1: TComboBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    ADODataSet1: TADODataSet;
    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
  adodataset1.close;
  CLOSE;
end;

procedure TBOOKFINDForm.FormActivate(Sender: TObject);
var
  adotable1:tadotable;
begin
    dbgrid1.datasource:=datasource1;
    dbgrid1.ReadOnly:=true;
    datasource1.DataSet:=adodataset1;
    adodataset1.Connection:=adoconnection1;
    radiobutton1.Checked:=true;
    combobox1.Items.Clear;
    adotable1:=tadotable.Create(self);
    adotable1.Connection:=adoconnection1;
    adotable1.TableName:='客房价格表';
    adotable1.open;
    while not adotable1.eof do
    begin
          combobox1.Items.add(adotable1.fieldbyname('客房等级').ASSTRING);
          adotable1.next;
    end;
    combobox1.Items.add('全部');
    //combobox1.text:='全部';
    adotable1.close;
    adodataset1.Parameters.Clear;
    adodataset1.Parameters.AddParameter;
    adodataset1.Parameters[0].Name:='s0';
    adodataset1.Parameters[0].DataType:=ftboolean;
    adodataset1.Parameters[0].Direction:=pdinput;
    adodataset1.Parameters[0].Value:=false;
    adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0';
    adodataset1.Active:=true;
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
      adodataset1.Active:=false;
      adodataset1.Parameters.clear;
      if radiobutton1.Checked then
      begin
            adodataset1.Parameters.AddParameter;
            adodataset1.Parameters[0].Name:='s0';
            adodataset1.Parameters[0].DataType:=ftboolean;
            adodataset1.Parameters[0].Direction:=pdinput;
            adodataset1.Parameters[0].Value:=false;
            if combobox1.items[combobox1.ItemIndex]='全部' then
                  adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0'
            else
            begin
                  adodataset1.Parameters.AddParameter;
                  adodataset1.Parameters[1].Name:='s1';
                  adodataset1.Parameters[1].DataType:=ftstring;
                  adodataset1.Parameters[1].Direction:=pdinput;
                  adodataset1.Parameters[1].Value:=combobox1.Items[combobox1.ItemIndex];
                  adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0 and 客房等级=:s1';
            end;
      end
      else
      begin
            adodataset1.Parameters.AddParameter;
            adodataset1.Parameters[0].Name:='s0';
            adodataset1.Parameters[0].DataType:=ftboolean;
            adodataset1.Parameters[0].Direction:=pdinput;
            adodataset1.Parameters[0].Value:=false;
            adodataset1.Parameters.AddParameter;
            adodataset1.Parameters[1].Name:='s1';
            adodataset1.Parameters[1].DataType:=ftboolean;
            adodataset1.Parameters[1].Direction:=pdinput;
            adodataset1.Parameters[1].Value:=true;
            adodataset1.CommandText:='select * from 客房管理 where 使用标志=:s0 and 钟点房标志=:s1';
      end;
      adodataset1.Active:=true;
end;

end.