unit18.~pas

酒店住宿管理系统,有完整的文件和源码, 可以下载使用

// 订房历史信息查询
//dflsxcForm
unit Unit18;

interface

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

type
  TdflsxcForm = class(TForm)
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    MaskEdit1: TMaskEdit;
    MaskEdit2: TMaskEdit;
    DateTimePicker1: TDateTimePicker;
    DateTimePicker2: TDateTimePicker;
    BitBtn1: TBitBtn;
    DBGrid1: TDBGrid;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    procedure BitBtn3Click(Sender: TObject);
    procedure FormActivate(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 BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  dflsxcForm: TdflsxcForm;

implementation

uses Unit19, Unit1;

{$R *.dfm}

procedure TdflsxcForm.BitBtn3Click(Sender: TObject);
begin
adodataset1.close;
    close;
end;

procedure TdflsxcForm.FormActivate(Sender: TObject);
var
      datasource1:Tdatasource;
begin
      datasource1:=TDataSource.Create(self);
      dbgrid1.DataSource:=datasource1;
      dbgrid1.ReadOnly:=true;
      datasource1.DataSet:=adodataset1;
      adodataset1.Connection:=adoconnection1;
      adodataset1.CommandText:='select * from 订房数据历史表';
      adodataset1.open;
      if adodataset1.RecordCount=0 then
      begin
      showmessage('无订房信息！');
      bitbtn1.Enabled:=false;
      end
      else
      bitbtn1.Enabled:=true;
      radiobutton7.Checked:=true;
      label1.Visible:=false;
      label2.Visible:=false;
      edit1.Visible:=false;
      maskedit1.Visible:=false;
      maskedit2.Visible:=false;
      datetimepicker1.Visible:=false;
      datetimepicker2.Visible:=false;
end;
procedure TdflsxcForm.RadioButton1Click(Sender: TObject);
begin
if radiobutton1.Checked=true then
      begin
            label1.Visible:=true;
            label1.Caption:='输入订房编号：';
            label2.Visible:=false;
            edit1.Visible:=true;
            edit1.text:='';
            edit1.SetFocus;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=false;
            datetimepicker2.Visible:=false;
      end;
end;

procedure TdflsxcForm.RadioButton2Click(Sender: TObject);
begin
if radiobutton2.Checked=true then
      begin
            label1.Visible:=true;
            label1.Caption:='输入客房编号：';
            label2.Visible:=false;
            edit1.Visible:=true;
            edit1.text:='';
            edit1.SetFocus;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=false;
            datetimepicker2.Visible:=false;
      end;
end;

procedure TdflsxcForm.RadioButton3Click(Sender: TObject);
begin
if radiobutton3.Checked=true then
      begin
            label1.Visible:=true;
            label1.Caption:='输入客人姓名：';
            label2.Visible:=false;
            edit1.Visible:=true;
            edit1.text:='';
            edit1.SetFocus;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=false;
            datetimepicker2.Visible:=false;

      end;
end;

procedure TdflsxcForm.RadioButton4Click(Sender: TObject);
begin
if radiobutton4.Checked=true then
      begin
            label1.Visible:=true;
            label1.Caption:='输入证件号码：';
            label2.Visible:=false;
            edit1.Visible:=true;
            edit1.text:='';
            edit1.SetFocus;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=false;
            datetimepicker2.Visible:=false;
      end;
end;

procedure TdflsxcForm.RadioButton5Click(Sender: TObject);
begin
if radiobutton5.Checked=true then
      begin
            label1.Visible:=true;
            label1.Caption:='输入操作员名称：';
            label2.Visible:=false;
            edit1.Visible:=true;
            edit1.text:='';
            edit1.SetFocus;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=false;
            datetimepicker2.Visible:=false;
      end;
end;

procedure TdflsxcForm.RadioButton6Click(Sender: TObject);
begin
if radiobutton6.Checked=true then
      begin
            label1.Visible:=true;
            label1.Caption:='输入起始日期：';
            label2.Visible:=true;
            label2.Caption:='终止日期：';
            edit1.Visible:=false;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=true;
            datetimepicker2.Visible:=true;
            datetimepicker2.DateTime:=now;

      end;
end;

procedure TdflsxcForm.RadioButton7Click(Sender: TObject);
begin
if radiobutton7.Checked=true then
      begin
            label1.Visible:=false;
            label2.Visible:=false;
            edit1.Visible:=false;
            maskedit1.Visible:=false;
            maskedit2.Visible:=false;
            datetimepicker1.Visible:=false;
            datetimepicker2.Visible:=false;
            datetimepicker2.DateTime:=now;
 end;
end;

procedure TdflsxcForm.BitBtn1Click(Sender: TObject);
begin
adodataset1.Close;
      adodataset1.Parameters.clear;
      if radiobutton1.Checked=true then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=12;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 订房数据历史表 where 订房序号=:s0';
      end
      else if radiobutton2.Checked=true then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=6;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 订房数据历史表 where 房间编号=:s0';
      end
      else if radiobutton3.Checked=true then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=8;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 订房数据历史表 where 客户名称=:s0';
      end
      else if radiobutton4.Checked=true then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=18;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 订房数据历史表 where 证件号码=:s0';
      end
      else if radiobutton5.Checked=true then
      begin
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftstring;
          adodataset1.Parameters[0].Size:=8;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=edit1.text;
          adodataset1.CommandText:='select * from 订房数据历史表 where 操作员=:s0';
      end
      else if radiobutton6.Checked=true then
      begin
          if datetimepicker1.DateTime>datetimepicker2.DateTime then
          begin
          Application.MessageBox('您输入的查询时间有错误请检查！','提示信息',mb_ok);
          exit;
          end;
          //maskedit1.Text:=datetostr(datetimepicker1.Date);
          //maskedit2.Text:=datetostr(datetimepicker2.Date);
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[0].name:='s0';
          adodataset1.Parameters[0].DataType:=ftdatetime;
          adodataset1.Parameters[0].Direction:=pdinput;
          adodataset1.Parameters[0].Value:=datetimepicker1.DateTime;
          adodataset1.Parameters.AddParameter;
          adodataset1.Parameters[1].name:='s1';
          adodataset1.Parameters[1].DataType:=ftdatetime;
          adodataset1.Parameters[1].Direction:=pdinput;
          adodataset1.Parameters[1].Value:=datetimepicker2.DateTime;
          adodataset1.CommandText:='select * from 订房数据历史表 where 登记日期>:s0 and 登记日期<:s1';
      end
      else
          adodataset1.CommandText:='select * from 订房数据历史表';
      adodataset1.open;
end;

procedure TdflsxcForm.BitBtn2Click(Sender: TObject);
begin
dflsrptForm.QRLabel16.Caption:=denglu.usename;
    dflsrptForm.QRLabel20.Caption:=datetimetostr(Now);
    dflsrptForm.QuickRep1.preview;
    adodataset1.Close;
end;

end.