unt_detailfind.pas

来自「酒店资源管理的软件」· PAS 代码 · 共 210 行

unit unt_DetailFind;

interface

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

type
  TDetailFindForm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    SpeedButton1: TSpeedButton;
    query1: TADOQuery;
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Edit2: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure SpeedButton1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
     
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DetailFindForm: TDetailFindForm;

implementation
uses Main, unt_CheckUser, unt_DetailFindRep;
{$R *.dfm}

procedure TDetailFindForm.BitBtn2Click(Sender: TObject);
begin
  DetailFindForm.Close;
end;

procedure TDetailFindForm.RadioButton1Click(Sender: TObject);
begin
  if RadioButton1.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '订房编号';
    Edit1.Visible := True;
    Label2.Visible := False;
    Edit2.Visible := False;
  end;
end;

procedure TDetailFindForm.RadioButton2Click(Sender: TObject);
begin
  if RadioButton2.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '客房编号';
    Edit1.Visible := True;
    Label2.Visible := False;
    Edit2.Visible := False;
  end;
end;

procedure TDetailFindForm.RadioButton3Click(Sender: TObject);
begin
  if RadioButton3.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '客人名称';
    Edit1.Visible := True;
    Label2.Visible := False;
    Edit2.Visible := False;
  end;
end;

procedure TDetailFindForm.RadioButton4Click(Sender: TObject);
begin
  if RadioButton4.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '证件编号';
    Edit1.Visible := True;
    Label2.Visible := False;
    Edit2.Visible := False;
  end;
end;

procedure TDetailFindForm.RadioButton5Click(Sender: TObject);
begin
  if RadioButton5.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '起始日期';
    Edit1.Visible := True;
    Label2.Visible := True;
    Label2.Caption := '终止日期';
    Edit2.Visible := True;
  end;
end;

procedure TDetailFindForm.RadioButton6Click(Sender: TObject);
begin
  if RadioButton6.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '起始日期';
    Edit1.Visible := True;
    Label2.Visible := True;
    Label2.Caption := '终止日期';
    Edit2.Visible := True;
  end;
end;

procedure TDetailFindForm.RadioButton7Click(Sender: TObject);
begin
  if RadioButton7.Checked then
  begin
    Label1.Visible := True;
    Label1.Caption := '操作员';
    Edit1.Visible := True;
    Label2.Visible := False;
    Edit2.Visible := False;
  end;
end;

procedure TDetailFindForm.RadioButton8Click(Sender: TObject);
begin
  if RadioButton8.Checked then
  begin
    Label1.Visible := False;
    Edit1.Visible := False;
    Label2.Visible := False;
    Edit2.Visible := False;
  end;
end;

procedure TDetailFindForm.SpeedButton1Click(Sender: TObject);
var
  sSql: String;
begin
  if radiobutton1.Checked then
  begin
    sSql := 'select * from zjmxtable where bookno=''' + Edit1.Text + '''';
  end
  else if radiobutton2.Checked then
  begin
    sSql := 'select * from zjmxtable where roomno=''' + Edit1.Text + '''';
  end
  else if radiobutton3.Checked then
  begin
    sSql := 'select * from zjmxtable where name=''' + Edit1.Text + '''';
  end
  else if radiobutton4.Checked then
  begin
    sSql := 'select * from zjmxtable where certi_no=''' + Edit1.Text + '''';
  end
  else if radiobutton5.Checked then
  begin
    sSql := 'select * from zjmxtable where registerday>#' + Edit1.Text
          + '# and registerday<#' + Edit2.Text + '#';
  end
  else if radiobutton6.Checked then
  begin
    sSql := 'select * from zjmxtable where accountday>#' + Edit1.Text
          + '# and accountday<#' + Edit2.Text + '#';
  end
  else if radiobutton7.Checked then
  begin
    sSql := 'select * from zjmxtable where operator=''' + Edit1.Text + '''';
  end
  else
    sSql := 'select * from zjmxtable';
  mainForm.exeSql(query1,sSql,'1');
  query1.Active := True;

end;

procedure TDetailFindForm.FormShow(Sender: TObject);
begin
  Label1.Visible := False;
  Label2.Visible := False;
  Edit1.Visible := False;
  Edit2.Visible := False;

end;



end.