unit23.~pas

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

//客户退房
//tfform
unit Unit23;

interface

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

type
  Ttfform = class(TForm)
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label15: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    ADOConnection1: TADOConnection;
    ADODataSet1: TADODataSet;
    ADOTable1: TADOTable;
    Label14: TLabel;
    BitBtn3: TBitBtn;
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
//   procedure Edit1Change(Sender: TObject);
//    procedure Edit1Exit(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Edit1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure initiate;
    procedure savetobookroomhistorytable;
    procedure savetodtsztable;
    procedure savetoszhistorytable;
//    procedure savetozjqshistorytable;
    procedure savetozjqstable;
  end;

var
  tfform: Ttfform;

implementation

uses Unit1, Unit24;

{$R *.dfm}
procedure Ttfform.savetozjqstable;//资金清算
var
    adodataset2:TAdoDataSet;
begin
    adodataset2:=TAdoDataSet.Create(self);
    adodataset2.Connection:=adoconnection1;
    {adodataset2.Parameters.clear;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[0].name:='s0';
    adodataset2.Parameters[0].DataType:=ftstring;
    adodataset2.Parameters[0].Size:=12;
    adodataset2.Parameters[0].Direction:=pdinput;
    adodataset2.Parameters[0].Value:=adodataset1.FieldByName('订房序号').AsString;
    adodataset2.CommandText:='select *from 资金清算表 where 订房编号=:s0';}
    adodataset2.CommandText:='select *from 资金清算表';
    adodataset2.Open;
    adodataset2.Append;
    adodataset2.edit;
    adodataset2.FieldByName('订房编号').asstring:=adodataset1.FieldByName('订房序号').asstring;
    adodataset2.FieldByName('客房编号').asstring:=adodataset1.FieldByName('房间编号').asstring;
    adodataset2.FieldByName('客人名称').asstring:=adodataset1.FieldByName('客户名称').asstring;
    adodataset2.FieldByName('证件编号').asstring:=adodataset1.FieldByName('证件号码').asstring;
    adodataset2.FieldByName('押金').AsCurrency:=adodataset1.FieldByName('押金数').AsCurrency;
    adodataset2.fieldbyname('应收金额').AsCurrency:=strtofloat(edit10.text);
    adodataset2.fieldbyname('实收金额').ascurrency:=strtofloat(edit12.text);
    adodataset2.fieldbyname('结账日期').asdatetime:=strtodatetime(edit6.text);
    adodataset2.FieldByName('预计每天费用').ascurrency:=adodataset1.FieldByName('住房单价').ascurrency;
    adodataset2.FieldByName('预计天数').asinteger:=adodataset1.FieldByName('预计天数').asinteger;
    adodataset2.FieldByName('事由').asstring:='客户退客房。';
    adodataset2.fieldbyname('订房日期').asdatetime:=strtodatetime(edit6.text);
    adodataset2.fieldbyname('操作人').asstring:=denglu.usename;
    adodataset2.post;
    adodataset2.close;
end;
{procedure Ttfform.savetozjqshistorytable;
var
    adodataset2:TAdoDataSet;
begin
    adodataset2:=TAdoDataSet.Create(self);
    adodataset2.Connection:=adoconnection1;
    adodataset2.Parameters.clear;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[0].name:='s0';
    adodataset2.Parameters[0].DataType:=ftstring;
    adodataset2.Parameters[0].Size:=12;
    adodataset2.Parameters[0].Direction:=pdinput;
    adodataset2.Parameters[0].Value:=adodataset1.FieldByName('订房序号').AsString;

    adodataset2.CommandText:='select *from 资金清算历史表 where 订房编号=:s0';
    adodataset2.open;
    adodataset2.Edit;
    adodataset2.FieldByName('订房编号').asstring:=adodataset1.FieldByName('订房序号').asstring;
    adodataset2.FieldByName('客房编号').asstring:=adodataset1.FieldByName('房间编号').asstring;
    adodataset2.FieldByName('客人名称').asstring:=adodataset1.FieldByName('客户名称').asstring;
    adodataset2.FieldByName('证件编号').asstring:=adodataset1.FieldByName('证件号码').asstring;
    adodataset2.FieldByName('押金').AsCurrency:=adodataset1.FieldByName('押金数').AsCurrency;
    adodataset2.FieldByName('应收金额').AsCurrency:=strtofloat(edit10.text);
    adodataset2.FieldByName('实收金额').ascurrency:=strtofloat(edit12.text);
    adodataset2.FieldByName('预计每天费用').ascurrency:=adodataset1.FieldByName('住房单价').ascurrency;
    adodataset2.FieldByName('预计天数').asinteger:=adodataset1.FieldByName('预计天数').asinteger;
    adodataset2.FieldByName('事由').asstring:='客户退房。';
    adodataset2.FieldByName('订房日期').asdatetime:=adodataset1.fieldbyname('登记日期').asdatetime;
    adodataset2.FieldByName('结账日期').asdatetime:=strtodatetime(edit6.text);
    adodataset2.FieldByName('操作员').asstring:=denglu.usename;
    //adodataset2.FieldByName('打印发票').asboolean:=false;
    adodataset2.Post;
    adodataset2.Close;
end;}
procedure Ttfform.savetoszhistorytable;
var
      adotable1:TAdoTable;
begin
    adotable1:=TAdoTable.Create(self);
    adotable1.Connection:=adoconnection1;
    adotable1.TableName:='收支历史报表';
    adotable1.open;
    adotable1.append;
    adotable1.edit;
    adotable1.FieldByName('订房编号').asstring:=adodataset1.FieldByName('订房序号').asstring;
    adotable1.FieldByName('客房编号').asstring:=adodataset1.FieldByName('房间编号').asstring;
    adotable1.FieldByName('客人名称').asstring:=adodataset1.FieldByName('客户名称').asstring;
    adotable1.FieldByName('证件编号').asstring:=adodataset1.FieldByName('证件号码').asstring;
    adotable1.FieldByName('实收金额').AsCurrency:=Strtofloat(edit12.text);
    adotable1.FieldByName('说明').asstring:='客户退房';
    adotable1.fieldbyname('日期').asdatetime:=strtodatetime(edit6.text);
    adotable1.fieldbyname('操作人').asstring:=denglu.usename;
    adotable1.post;
    adotable1.close;
end;
procedure Ttfform.savetodtsztable;
var
      adotable1:TAdoTable;
begin
    adotable1:=TAdoTable.Create(self);
    adotable1.Connection:=adoconnection1;
    adotable1.TableName:='当天收支报表';
    adotable1.open;
    adotable1.Append;
    adotable1.edit;
    adotable1.FieldByName('订房编号').asstring:=adodataset1.FieldByName('订房序号').asstring;
    adotable1.FieldByName('客房编号').asstring:=adodataset1.FieldByName('房间编号').asstring;
    adotable1.FieldByName('客人名称').asstring:=adodataset1.FieldByName('客户名称').asstring;
    adotable1.FieldByName('证件编号').asstring:=adodataset1.FieldByName('证件号码').asstring;
    adotable1.FieldByName('实收金额').AsCurrency:=Strtofloat(edit12.text);
    adotable1.FieldByName('说明').asstring:='退房';
    adotable1.fieldbyname('日期').asdatetime:=strtodatetime(edit6.text);
    adotable1.fieldbyname('操作人').asstring:=denglu.usename;
    adotable1.post;
    adotable1.close;
end;
procedure Ttfform.savetobookroomhistorytable;
var
    adodataset2:TAdoDataSet;
begin
    adodataset2:=TAdoDataSet.Create(self);
    adodataset2.Connection:=adoconnection1;
    adodataset2.Parameters.clear;
    adodataset2.Parameters.AddParameter;
    adodataset2.Parameters[0].name:='s0';
    adodataset2.Parameters[0].DataType:=ftstring;
    adodataset2.Parameters[0].Size:=12;
    adodataset2.Parameters[0].Direction:=pdinput;
    adodataset2.Parameters[0].Value:=adodataset1.FieldByName('订房序号').AsString;

    adodataset2.CommandText:='select *from 订房数据历史表 where 订房序号=:s0';
    adodataset2.open;
    adodataset2.Edit;
    adodataset2.fieldbyname('结账日期').asdatetime:=strtodatetime(edit6.text);
    adodataset2.FieldByName('应收金额').Ascurrency:=StrToInt(edit10.text);
    adodataset2.fieldbyname('实收金额').ascurrency:=strtoint(edit12.text);
    adodataset2.FieldByName('说明').AsString:='退房';
    adodataset2.FieldByName('操作员').AsString:=denglu.usename;
    adodataset2.post;
    adodataset2.Close;
end;
procedure Ttfform.initiate;
begin
edit1.Text:='';
      edit1.setfocus;
      edit2.text:='';
//      edit2.Enabled:=false;
//      edit2.TabStop:=false;
      edit3.text:='';
//      edit3.Enabled:=false;
//      edit3.TabStop:=false;
      edit4.text:='';
//      edit4.Enabled:=false;
//      edit4.TabStop:=false;
      edit5.text:='';
//      edit5.Enabled:=false;
//      edit5.TabStop:=false;
      edit6.text:='';
//      edit6.Enabled:=false;
//      edit6.TabStop:=false;
      edit7.text:='';
//      edit7.Enabled:=false;
//      edit7.TabStop:=false;
      edit8.text:='';
//      edit8.Enabled:=false;
//      edit8.TabStop:=false;
      edit9.text:='';
//      edit9.Enabled:=false;
//      edit9.TabStop:=false;
      edit10.text:='';
      edit11.text:='';
//      edit11.Enabled:=false;
//      edit11.TabStop:=false;
      edit12.text:='';
//      edit12.Enabled:=false;
//      edit12.TabStop:=false;
      edit13.text:='';
//      edit13.Enabled:=false;
//      edit13.TabStop:=false;
      edit14.text:='';
      bitbtn1.Enabled:=false;
end;