unit27.pas

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

unit Unit27;

interface

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

type
  Tdfxsxgform = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    GroupBox1: TGroupBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    BitBtn3: TBitBtn;
    GroupBox2: TGroupBox;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn4: TBitBtn;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Edit1: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    GroupBox5: TGroupBox;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    ADOConnection1: TADOConnection;
    DateTimePicker1: TDateTimePicker;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Label17: TLabel;
    ADODataSet1: TADODataSet;
    DataSource1: TDataSource;
    RadioButton5: TRadioButton;
    Edit11: TEdit;
    BitBtn5: TBitBtn;
    GroupBox6: TGroupBox;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    BitBtn6: TBitBtn;
    GroupBox7: TGroupBox;
    Label18: TLabel;
    Edit17: TEdit;
    RadioButton9: TRadioButton;
    DataSource2: TDataSource;
    ADODataSet2: TADODataSet;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Label19: TLabel;
    Label20: TLabel;
    Label21: TLabel;
    BitBtn10: TBitBtn;
    Edit18: TEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure ADODataSet1AfterScroll(DataSet: TDataSet);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit15Change(Sender: TObject);
    procedure Edit15Exit(Sender: TObject);
    procedure Edit12Change(Sender: TObject);
    procedure Edit13Change(Sender: TObject);
    procedure Edit14Change(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn10Click(Sender: TObject);
//    procedure Edit18Enter(Sender: TObject);
    procedure Edit18KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ADODataSet2AfterScroll(DataSet: TDataSet);
    procedure BitBtn7Click(Sender: TObject);
    procedure BitBtn8Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure TabSheet1Show(Sender: TObject);
    procedure TabSheet2Show(Sender: TObject);
  private
    { Private declarations }
  public
    procedure loadform;
    procedure editenabletrue;
    procedure editenablefalse;
    procedure savetodfsjlsb;
    procedure editnull;
    
    { Public declarations }
  end;

var
  dfxsxgform: Tdfxsxgform;
  roomnumber:string;
  rice:integer;
  zd:boolean;
implementation

uses Unit1, Unit7;

{$R *.dfm}
procedure Tdfxsxgform.editnull;
begin
radiobutton3.Checked:=false;
radiobutton4.Checked:=false;
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:='';
end;
{procedure Tdfxsxgform.savetoszlsb;
var
adodataset2:Tadodataset;
begin
adodataset2:=tadodataset.Create(self);
        adodataset2.Connection:=adoconnection1;
        adodataset2.Parameters.Clear;
        adodataset2.Parameters.add;
        adodataset2.Parameters[0].name:='s0';
        adodataset2.Parameters[0].DataType:=ftstring;
        adodataset2.Parameters[0].Size:=12;
        adodataset2.Parameters[0].Value:=adodataset1.FieldValues['订房序号'];
        adodataset2.CommandText:='select * from 收支历史报表 where 订房编号=:s0';
        adodataset2.FieldByName('客人名称').AsString:=edit2.Text;
        adodataset2.FieldByName('证件编号').AsString:=edit5.Text;

end;}
procedure Tdfxsxgform.savetodfsjlsb;
var
adodataset2:Tadodataset;
begin
adodataset2:=tadodataset.Create(self);
        adodataset2.Connection:=adoconnection1;
        adodataset2.Parameters.Clear;
        adodataset2.Parameters.add;
        adodataset2.Parameters[0].name:='s0';
        adodataset2.Parameters[0].DataType:=ftstring;
        adodataset2.Parameters[0].Size:=12;
        adodataset2.Parameters[0].Value:=adodataset1.FieldValues['订房序号'];
        adodataset2.CommandText:='select * from 订房数据历史表 where 订房序号=:s0';
        adodataset2.Open;
        adodataset2.Edit;
        adodataset2.FieldByName('客户名称').AsString:=edit2.Text;
        adodataset2.FieldByName('籍贯').AsString:=edit3.Text;
        adodataset2.FieldByName('出生年月').AsDateTime:=datetimepicker1.date;
        adodataset2.FieldByName('证件名称').AsString:=edit4.Text;
        adodataset2.FieldByName('证件号码').AsString:=edit5.Text;
        adodataset2.FieldByName('源地').AsString:=edit6.Text;
        adodataset2.FieldByName('目的地').AsString:=edit7.Text;
        adodataset2.FieldByName('工作单位').AsString:=edit8.Text;
        adodataset2.FieldByName('通信地址').AsString:=edit9.Text;
        adodataset2.FieldByName('联系方式').AsString:=edit10.Text;
        if radiobutton3.Checked=true then
        adodataset2.FieldByName('性别').AsString:='男'
        else
        adodataset2.FieldByName('性别').AsString:='女';
        //adodataset2.FieldByName('登记日期').AsDateTime:=strtodate(edit11.Text);
        adodataset2.FieldByName('预计天数').AsInteger:=strtoint(edit12.Text);
        adodataset2.FieldByName('押金数').AsInteger:=strtoint(edit13.Text);
        adodataset2.FieldByName('其他费用').AsInteger:=strtoint(edit14.Text);
        adodataset2.FieldByName('折扣率').AsFloat:=strtofloat(edit15.Text);
        adodataset2.FieldByName('说明').AsString:=edit16.Text;
        adodataset2.FieldByName('操作员').AsString:=denglu.usename;
        adodataset2.FieldByName('操作日期').AsDateTime:=date;
        adodataset2.Post;
        adodataset2.Close;
end;
procedure Tdfxsxgform.editenablefalse;
begin
edit2.Enabled:=false;
radiobutton3.Enabled:=false;
radiobutton4.Enabled:=false;
datetimepicker1.Enabled:=false;
edit3.Enabled:=false;
edit4.Enabled:=false;
edit5.Enabled:=false;
edit6.Enabled:=false;
edit7.Enabled:=false;
edit8.Enabled:=false;
edit9.Enabled:=false;
edit10.Enabled:=false;
edit11.Enabled:=false;
edit12.Enabled:=false;
edit13.Enabled:=false;
edit14.Enabled:=false;
edit15.Enabled:=false;
edit16.Enabled:=false;

end;
procedure Tdfxsxgform.editenabletrue;
begin
edit2.Enabled:=true;
radiobutton3.Enabled:=true;
radiobutton4.Enabled:=true;
datetimepicker1.Enabled:=true;
edit3.Enabled:=true;
edit4.Enabled:=true;
edit5.Enabled:=true;
edit6.Enabled:=true;
edit7.Enabled:=true;
edit8.Enabled:=true;
edit9.Enabled:=true;
edit10.Enabled:=true;
edit11.Enabled:=true;
edit12.Enabled:=true;
edit13.Enabled:=true;
edit14.Enabled:=true;
edit15.Enabled:=true;
edit16.Enabled:=true;
end;
procedure Tdfxsxgform.loadform;
begin
edit2.Text:=adodataset1.FieldValues['客户名称'];
edit3.Text:=adodataset1.FieldValues['籍贯'];
datetimepicker1.Date:=adodataset1.FieldValues['出生年月'];
edit4.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['联系方式'];
if adodataset1.FieldValues['性别']='男' then
radiobutton3.Checked:=true
else
radiobutton4.Checked:=true;
edit11.Text:=adodataset1.FieldValues['登记日期'];
edit12.Text:=adodataset1.FieldValues['预计天数'];
edit13.Text:=adodataset1.FieldValues['押金数'];
edit14.Text:=adodataset1.FieldValues['其他费用'];
edit15.Text:=adodataset1.FieldValues['折扣率'];
edit16.Text:=adodataset1.FieldValues['说明'];

end;

procedure Tdfxsxgform.RadioButton1Click(Sender: TObject);
begin
label1.Visible:=true;
edit1.Visible:=true;


label1.Caption:='请输入订房序号：';
edit1.Text:='';
edit1.SetFocus;
bitbtn2.Enabled:=false;
end;

procedure Tdfxsxgform.RadioButton2Click(Sender: TObject);
begin
label1.Visible:=true;
edit1.Visible:=true;


label1.Caption:='请输入客户名称：';
edit1.Text:='';
edit1.SetFocus;
bitbtn2.Enabled:=false;
end;

procedure Tdfxsxgform.BitBtn1Click(Sender: TObject);
begin

if (radiobutton1.Checked=true) and (trim(edit1.Text)='') then
begin
showmessage('请输入订房序号');
edit1.SetFocus;
exit;
end;
 if (radiobutton2.Checked=true) and (trim(edit1.Text)='') then
begin
showmessage('请输入客户名称');
edit1.SetFocus;
exit;
end;
if radiobutton1.Checked=true then
begin
adodataset1.Close;
adodataset1.Parameters.Clear;
        adodataset1.Parameters.add;
        adodataset1.Parameters[0].name:='s0';
        adodataset1.Parameters[0].DataType:=ftstring;
        adodataset1.Parameters[0].Size:=12;
        adodataset1.Parameters[0].Value:=trim(edit1.Text);
        adodataset1.CommandText:='select * from 订房数据表 where 订房序号=:s0';
        adodataset1.Active:=true;
        if adodataset1.RecordCount=0 then
        begin
        editnull;
        showmessage('无此订房序号信息！');
        exit;
        end
        else
        bitbtn2.Enabled:=true;
end;
if radiobutton2.Checked=true then
begin
adodataset1.Close;
adodataset1.Parameters.Clear;
        adodataset1.Parameters.add;
        adodataset1.Parameters[0].name:='s0';
        adodataset1.Parameters[0].DataType:=ftstring;
        adodataset1.Parameters[0].Size:=20;
        adodataset1.Parameters[0].Value:=trim(edit1.Text);
        adodataset1.CommandText:='select * from 订房数据表 where 客户名称=:s0';
        adodataset1.Active:=true;
        if adodataset1.RecordCount=0 then
        begin
        editnull;
        showmessage('无此客户信息！');
        exit;
        end
        else
        bitbtn2.Enabled:=true;


end;
if radiobutton5.Checked=true then
begin
adodataset1.Close;
adodataset1.CommandText:='select * from 订房数据表';
adodataset1.Active:=true;
if adodataset1.RecordCount=0 then
begin
editnull;
showmessage('无订房信息！');
exit;
end
else
bitbtn2.Enabled:=true;
end;
end;
procedure Tdfxsxgform.RadioButton5Click(Sender: TObject);
begin
label1.Visible:=false;
edit1.Visible:=false;
bitbtn2.Enabled:=false;


end;

procedure Tdfxsxgform.FormShow(Sender: TObject);
begin
adodataset1.Close;
pagecontrol1.ActivePage:=tabsheet1;
adodataset1.CommandText:='select * from 订房数据表';
adodataset1.Active:=true;
bitbtn2.Enabled:=true;
end;

procedure Tdfxsxgform.ADODataSet1AfterScroll(DataSet: TDataSet);
begin
if radiobutton5.Checked=true then
bitbtn2.Enabled:=true;
loadform;
//bitbtn2.Enabled:=false;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
end;

procedure Tdfxsxgform.BitBtn2Click(Sender: TObject);
begin
editenabletrue;
dbgrid1.Enabled:=false;
bitbtn2.Enabled:=false;
bitbtn3.Enabled:=true;
bitbtn4.Enabled:=true;
end;

procedure Tdfxsxgform.BitBtn4Click(Sender: TObject);
begin

dbgrid1.Enabled:=true;
editenablefalse;
loadform;
bitbtn2.Enabled:=true;
bitbtn3.Enabled:=false;
bitbtn4.Enabled:=false;
end;

procedure Tdfxsxgform.BitBtn3Click(Sender: TObject);

begin

if trim(edit2.Text)='' then
   begin
   Application.MessageBox('客户名称不能为空！','提示信息',mb_ok);
   edit2.SetFocus;
   exit;
   end;
if trim(edit3.Text)='' then
   begin
   Application.MessageBox('籍贯不能为空！','提示信息',mb_ok);
   edit3.SetFocus;
   exit;
   end;
if trim(edit4.Text)='' then
   begin
   Application.MessageBox('证件名称不能为空！','提示信息',mb_ok);
   edit4.SetFocus;
   exit;
   end;

if trim(edit5.Text)='' then
   begin
   Application.MessageBox('证件号码不能为空！','提示信息',mb_ok);
   edit5.SetFocus;
   exit;
   end;
if trim(edit6.Text)='' then
   begin
   Application.MessageBox('源地不能为空！','提示信息',mb_ok);
   edit6.SetFocus;
   exit;
   end;
if trim(edit7.Text)='' then
   begin
   Application.MessageBox('目的地不能为空！','提示信息',mb_ok);
   edit7.SetFocus;
   exit;
   end;
if trim(edit8.Text)='' then
   begin
   Application.MessageBox('工作单位不能为空！','提示信息',mb_ok);
   edit8.SetFocus;
   exit;
   end;
if trim(edit9.Text)='' then
   begin
   Application.MessageBox('通信地址不能为空！','提示信息',mb_ok);
   edit9.SetFocus;
   exit;
   end;
if trim(edit10.Text)='' then
   begin
   Application.MessageBox('联系方式不能为空！','提示信息',mb_ok);
   edit10.SetFocus;
   exit;
   end;

if trim(edit12.Text)='' then
   begin
   Application.MessageBox('预计天数不能为空！','提示信息',mb_ok);
   edit12.SetFocus;
   exit;
   end;
if trim(edit13.Text)='' then
   begin
   Application.MessageBox('交纳押金不能为空！','提示信息',mb_ok);
   edit12.SetFocus;
   exit;
   end;
if trim(edit14.Text)='' then
   begin
   Application.MessageBox('其它费用不能为空！','提示信息',mb_ok);
   edit14.SetFocus;
   exit;
   end;
if trim(edit15.Text)='' then
   begin
   Application.MessageBox('折扣率不能为空！','提示信息',mb_ok);
   edit15.SetFocus;