unit10.~pas

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

//客户订房信息一览
//guestqueryform
unit Unit10;

interface

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

type
  Tguestqueryform = class(TForm)
    DBGrid1: TDBGrid;
    ADOConnection1: TADOConnection;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    Edit1: TEdit;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    GroupBox3: TGroupBox;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    GroupBox4: TGroupBox;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit12: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Label21: TLabel;
    Edit21: TEdit;
    Label22: TLabel;
    Edit22: TEdit;
    Label23: TLabel;
    Edit23: TEdit;
    RadioButton3: TRadioButton;
    GroupBox5: TGroupBox;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    BitBtn7: TBitBtn;
    GroupBox6: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    Label24: TLabel;
    Edit24: TEdit;
    procedure BitBtn2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
    procedure RadioButton3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure loadform;
    procedure editnull;
  end;

var
  guestqueryform: Tguestqueryform;
//  datasource1:TDataSource;

implementation

uses Unit12, Unit1;

{$R *.dfm}
procedure Tguestqueryform.editnull;
begin
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit9.Text:='';
edit10.Text:='';
edit11.Text:='';
edit12.Text:='';
edit13.Text:='';
edit14.Text:='';
edit15.Text:='';
edit16.Text:='';
edit17.Text:='';
edit18.Text:='';
edit19.Text:='';
edit20.Text:='';
edit21.Text:='';
edit22.Text:='';
edit23.Text:='';
edit24.Text:='';

end;
procedure Tguestqueryform.loadform;
begin
edit2.Text:=adodataset1.FieldByName('客户名称').AsString;
edit3.Text:=adodataset1.FieldByName('性别').AsString;
edit4.Text:=adodataset1.FieldByName('籍贯').AsString;
edit5.Text:=datetostr(adodataset1.FieldByName('出生年月').AsDateTime);

edit6.Text:=adodataset1.FieldByName('证件名称').AsString;
edit7.Text:=adodataset1.FieldByName('证件号码').AsString;
edit8.Text:=adodataset1.FieldByName('源地').AsString;
edit9.Text:=adodataset1.FieldByName('目的地').AsString;
edit10.Text:=adodataset1.FieldByName('工作单位').AsString;
edit11.Text:=adodataset1.FieldByName('通信地址').AsString;
edit12.Text:=adodataset1.FieldByName('联系方式').AsString;
edit13.Text:=adodataset1.FieldByName('房间编号').AsString;
edit14.Text:=inttostr(adodataset1.FieldByName('住房单价').AsInteger);
edit15.Text:=datetostr(adodataset1.FieldByName('登记日期').AsDateTime);
edit16.Text:=inttostr(adodataset1.FieldByName('预计天数').AsInteger);
edit17.Text:=inttostr(adodataset1.FieldByName('押金数').AsInteger);
edit18.Text:=inttostr(adodataset1.FieldByName('其他费用').AsInteger);
edit19.Text:=inttostr(adodataset1.FieldByName('折扣率').AsInteger);
edit20.Text:=adodataset1.FieldByName('说明').AsString;
if adodataset1.FieldByName('钟点房').AsBoolean then
begin
if adodataset1.FieldByName('预订标志').AsBoolean then
edit21.Text:='钟点房已预订'
else
edit21.Text:='钟点房已使用';
end
else
begin
if adodataset1.FieldByName('预订标志').AsBoolean then
edit21.Text:='客房已预订'
else
edit21.Text:='客房已使用';
end;
edit22.Text:=adodataset1.FieldByName('操作员').AsString;
edit23.Text:=datetostr(adodataset1.FieldByName('操作日期').AsDateTime);
edit24.Text:=adodataset1.FieldByName('订房序号').AsString;



end;
{procedure Tguestqueryform.loadform;
begin
('客户名称').AsString;
('性别').AsString;

'籍贯').AsString;

maskedit1.Text:=adodataset1.FieldValues['出生年月'];
edit5.Text:=adodataset1.FieldValues['证件名称'];
edit6.Text:=adodataset1.FieldValues['证件号码'];
edit7.Text:=adodataset1.FieldValues['工作单位'];
edit8.Text:=adodataset1.FieldValues['通信地址'];
edit9.Text:=adodataset1.FieldValues['联系方式'];
edit10.Text:=adodataset1.FieldValues['源地'];
edit11.Text:=adodataset1.FieldValues['目的地'];
edit19.Text:=adodataset1.FieldValues['房间编号'];
edit14.Text:=adodataset1.FieldValues['住房单价'];
edit12.Text:=adodataset1.FieldValues['登记日期'];
edit13.Text:=adodataset1.FieldValues['预计天数'];
edit16.Text:=adodataset1.FieldValues['押金数'];
edit18.Text:=adodataset1.FieldValues['其他费用'];
edit15.Text:=adodataset1.FieldValues['折扣率'];
edit17.Text:=adodataset1.FieldValues['说明'];


end; }

procedure Tguestqueryform.BitBtn2Click(Sender: TObject);
begin
label1.Visible:=false;
edit1.Visible:=false;
edit1.Text:='';

adodataset1.Close;
close;
end;

procedure Tguestqueryform.FormActivate(Sender: TObject);

begin
      adodataset1.Close;
      dbgrid1.DataSource:=datasource1;
      dbgrid1.ReadOnly:=true;

      adodataset1.Connection:=adoconnection1;
      datasource1.DataSet:=adodataset1;

      adodataset1.Connection:=adoconnection1;
      adodataset1.CommandText:='select * from 订房数据表';
      adodataset1.open;
      loadform;
      radiobutton1.Checked:=false;
      radiobutton2.Checked:=true;
      label1.Visible:=false;
      edit1.Visible:=false;
end;

procedure Tguestqueryform.BitBtn1Click(Sender: TObject);
begin
guestrptform.QRLabel15.Caption:=datetostr(date());
guestrptform.QRLabel3.Caption:=denglu.usename;
guestrptform.QuickRep1.Preview;
adodataset1.Close;
end;

procedure Tguestqueryform.RadioButton1Click(Sender: TObject);
begin
label1.Visible:=true;
label1.Caption:='请输客人名称';
edit1.Visible:=true;
edit1.Text:='';
edit1.SetFocus;
end;

procedure Tguestqueryform.RadioButton2Click(Sender: TObject);
begin
label1.Visible:=false;
edit1.Visible:=false;
edit1.Text:='';

end;

procedure Tguestqueryform.BitBtn3Click(Sender: TObject);
begin
adodataset1.close;
adodataset1.Parameters.Clear;
if radiobutton1.Checked=true then
   begin
      if edit1.Text='' then
         begin
         Application.MessageBox('请输入客户名称！','提示信息',mb_ok);
         edit1.SetFocus;
         exit;
         end;
      adodataset1.Parameters.AddParameter;
      adodataset1.Parameters[0].name:='s0';
      adodataset1.Parameters[0].DataType:=ftstring;
      adodataset1.Parameters[0].Size:=10;
      adodataset1.Parameters[0].Direction:=pdinput;
      adodataset1.Parameters[0].Value:=trim(edit1.text);
      adodataset1.CommandText:='select * from 订房数据表 where 客户名称=:s0';
      adodataset1.Active:=true;
      if adodataset1.RecordCount=0 then
         begin
         Application.MessageBox('无此客户信息！','提示信息',mb_ok);
         editnull;
         end
      else
         loadform;
   end
else
   begin
      if radiobutton3.Checked=true then
         begin
         if edit1.Text='' then
            begin
            Application.MessageBox('请输入订房序号！','提示信息',mb_ok);
            edit1.SetFocus;
            exit;
            end;
         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';
         adodataset1.Active:=true;
         if adodataset1.RecordCount=0 then
            begin
            Application.MessageBox('无此订房序号信息！','提示信息',mb_ok);
            editnull;
            end
         else
            loadform;
         end
      else
         begin
         adodataset1.CommandText:='select * from 订房数据表';
         adodataset1.open;
         loadform;
         end;
   end;
end;
procedure Tguestqueryform.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
loadform;

end;

procedure Tguestqueryform.RadioButton3Click(Sender: TObject);
begin
label1.Visible:=true;
label1.Caption:='请输订房序号';
edit1.Visible:=true;
edit1.Text:='';
edit1.SetFocus;
end;

procedure Tguestqueryform.BitBtn4Click(Sender: TObject);
begin
if not adodataset1.Bof then
begin
adodataset1.First;
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=true;
bitbtn7.Enabled:=true;
Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
end
else
begin
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=true;
bitbtn7.Enabled:=true;
Application.MessageBox('已到第一条记录！','提示信息',mb_ok);
end;
end;

procedure Tguestqueryform.BitBtn5Click(Sender: TObject);
begin
if adodataset1.Bof then
begin
bitbtn4.Enabled:=false;
bitbtn5.Enabled:=false;
bitbtn6.Enabled:=true;
bitbtn7.Enabled:=true;

Application.MessageBox('已到第一条记录！','提示信息',mb_ok)
end
else
begin
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
bitbtn7.Enabled:=true;

adodataset1.Prior;

end;
end;

procedure Tguestqueryform.BitBtn6Click(Sender: TObject);
begin
if adodataset1.Eof then
begin
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=false;
bitbtn7.Enabled:=false;
Application.MessageBox('已到最后一条记录！','提示信息',mb_ok)
end
else
begin
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=true;
bitbtn7.Enabled:=true;
adodataset1.Next;
end;
end;

procedure Tguestqueryform.BitBtn7Click(Sender: TObject);
begin
if not adodataset1.Eof then
begin
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=false;
bitbtn7.Enabled:=false;
adodataset1.Last;

Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
end
else
begin
bitbtn4.Enabled:=true;
bitbtn5.Enabled:=true;
bitbtn6.Enabled:=false;
bitbtn7.Enabled:=false;

Application.MessageBox('已到最后一条记录！','提示信息',mb_ok);
end;
end;

end.