roombrowse.pas

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

unit roombrowse;

interface

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

type
  TRoomFindForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    GroupBox2: TGroupBox;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    DBGrid1: TDBGrid;
    BitBtn1: TBitBtn;
    ADOConnection1: TADOConnection;
    DataSource1: TDataSource;
    GroupBox3: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    ComboBox1: TComboBox;
    GroupBox4: TGroupBox;
    Label2: TLabel;
    Edit2: TEdit;
    ADODataSet1: TADODataSet;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure GroupBox1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure setfindrange;
  end;

var
  RoomFindForm: TRoomFindForm;

implementation

{$R *.dfm}

procedure TRoomFindForm.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TRoomFindForm.FormActivate(Sender: TObject);
begin
  initiate;
end;
procedure TRoomFindForm.initiate;
var
  adotable1:TAdoTable;
begin
  radiobutton1.checked:=true;
  radiobutton4.Checked:=true;
  label1.Caption:='客房编号';
  combobox1.Visible:=false;
  combobox1.Text:='';
  adotable1:=TAdoTable.Create(self);
  adotable1.Connection:=adoconnection1;
  adotable1.TableName:='客房价格表';
  adotable1.Open;
  combobox1.Items.Clear;
  while not adotable1.Eof do
  begin
         combobox1.Items.Add(adotable1.fieldbyname('客房等级').asstring);
         adotable1.Next;
  end;
  adotable1.Close; 
  edit1.Visible:=true;
  edit1.text:='';
  adoconnection1.LoginPrompt:=false;
  dbgrid1.DataSource:=datasource1;
  dbgrid1.ReadOnly:=true;
  datasource1.DataSet:=adodataset1;
  adodataset1.Connection:=adoconnection1;
  adodataset1.CommandText:='select * from 客房管理';
  adodataset1.Active:=true ;
  edit2.Text:=inttostr(datasource1.DataSet.RecordCount);
  edit2.Enabled:=false;
  edit2.ReadOnly:=true;
end;
procedure TRoomFindForm.setfindrange;
begin
  adodataset1.Active:=false;
  adodataset1.Parameters.Clear;  
  if radiobutton1.Checked then
  begin
          if radiobutton4.checked then
          begin
              if edit1.text<>'' then
              begin
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[0].Name:='s0';
                   adodataset1.Parameters[0].DataType:=ftstring;
                   adodataset1.Parameters[0].Direction:=pdinput;
                   adodataset1.Parameters[0].Size:=4;
                   adodataset1.Parameters[0].Value:=edit1.text;
                   adodataset1.commandtext:='select * from 客房管理 where 客房编号=:s0'
              end
              else
                  adodataset1.commandtext:='select * from 客房管理';
          end
          else
          begin
              if edit1.text<>'' then
              begin
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[0].Name:='s0';
                   adodataset1.Parameters[0].DataType:=ftstring;
                   adodataset1.Parameters[0].Direction:=pdinput;
                   adodataset1.Parameters[0].Size:=4;
                   adodataset1.Parameters[0].Value:=edit1.text;
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[1].Name:='s1';
                   adodataset1.Parameters[1].DataType:=ftboolean;
                   adodataset1.Parameters[1].Direction:=pdinput;
                   adodataset1.Parameters[1].Value:=radiobutton5.checked;
                   adodataset1.commandtext:='select * from 客房管理 where 客房编号=:s0 and 使用标志=:s1'
              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:=radiobutton5.checked;
                   adodataset1.commandtext:='select * from 客房管理 where 使用标志=:s1'
              end
          end
    end
    else if radiobutton2.Checked then
    begin
              if radiobutton4.Checked then
              begin
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[0].Name:='s0';
                   adodataset1.Parameters[0].DataType:=ftstring;
                   adodataset1.Parameters[0].Direction:=pdinput;
                   adodataset1.Parameters[0].Size:=2;
                   adodataset1.Parameters[0].Value:=combobox1.Items[combobox1.ItemIndex];
                   adodataset1.commandtext:='select * from 客房管理 where 客房等级=:s0';
            end
            else
            begin
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[0].Name:='s0';
                   adodataset1.Parameters[0].DataType:=ftstring;
                   adodataset1.Parameters[0].Direction:=pdinput;
                   adodataset1.Parameters[0].Size:=2;
                   adodataset1.Parameters[0].Value:=combobox1.Items[combobox1.ItemIndex];
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[1].Name:='s1';
                   adodataset1.Parameters[1].DataType:=ftboolean;
                   adodataset1.Parameters[1].Direction:=pdinput;
                   adodataset1.Parameters[1].Value:=radiobutton5.checked;
                   adodataset1.commandtext:='select * from 客房管理 where 客房等级=:s0 and 使用标志=:s1';
            end
    end
    else
    begin
         if radiobutton4.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:=radiobutton3.checked;
                  adodataset1.commandtext:='select * from 客房管理 where 钟点房标志=:s0';
         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:=radiobutton3.checked;
                   adodataset1.Parameters.AddParameter;
                   adodataset1.Parameters[1].Name:='s1';
                   adodataset1.Parameters[1].DataType:=ftboolean;
                   adodataset1.Parameters[1].Direction:=pdinput;
                   adodataset1.Parameters[1].Value:=radiobutton5.checked;
                  adodataset1.commandtext:='select * from 客房管理 where 钟点房标志=:s0 and 使用标志=:s1';
          end;
     end ;
     adodataset1.Active:=true; 
end;

procedure TRoomFindForm.GroupBox1Click(Sender: TObject);
begin
      if radiobutton1.Checked then
      begin
            label1.Visible:=true;
            label1.caption:='客房编号';
            edit1.Visible:=true;
            edit1.Text:='';
            edit1.SetFocus;
            combobox1.Visible:=false;
      end
      else if radiobutton2.Checked then
      begin
            label1.Visible:=true;
            label1.Caption:='客房等级';
            combobox1.Visible:=true;
            edit1.Visible:=false;
            combobox1.SetFocus;
      end
      else
      begin
            label1.Visible:=false;
            edit1.Visible:=false;
            combobox1.Visible:=false;
      end
end;

procedure TRoomFindForm.BitBtn2Click(Sender: TObject);
begin
      setfindrange
end;

end.