payunit.pas

东华休闲山庄洗浴、餐饮、客房管理系统

unit PayUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUIImagePanel, StdCtrls, SUIComboBox, SUIEdit,
  SUIButton;

type
  TPayForm = class(TForm)
    suiPanel1: TsuiPanel;
    btn1: TsuiButton;
    btn2: TsuiButton;
    suiEdit1: TsuiEdit;
    suiEdit2: TsuiEdit;
    suiComboBox1: TsuiComboBox;
    lbl1: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    procedure btn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure suiEdit1KeyPress(Sender: TObject; var Key: Char);
    procedure suiComboBox1DropDown(Sender: TObject);
    procedure suiComboBox1KeyPress(Sender: TObject; var Key: Char);
    procedure suiEdit2KeyPress(Sender: TObject; var Key: Char);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    id,state:string;
    guestid:string;
  end;

var
  PayForm: TPayForm;

implementation

uses LoginUnit, MainUnit;

{$R *.dfm}

procedure TPayForm.btn2Click(Sender: TObject);
begin
  close;
end;

procedure TPayForm.FormCreate(Sender: TObject);
begin
  loginform.ExecuteSQL('select * from room where room_num='''+mainform.roomnum+'''');
  state:=LoginForm.dsQuery.FieldByName('room_state').AsString;
  id:=LoginForm.dsQuery.FieldByName('room_id').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select guest from house where id='''+id+''' and room='''+mainform.roomnum+'''');
  guestid:=loginform.dsQuery.fieldbyname('guest').AsString;
  loginform.dsQuery.Close;
  loginform.ExecuteSQL('select name from guest where id='+guestid);
  Self.suiPanel1.Caption:='房间号【'+mainform.roomnum+'】'+
                          '宾客姓名【'+loginform.dsQuery.fieldbyname('name').AsString+'】';
  LoginForm.dsQuery.Close;
end;

procedure TPayForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  MainForm.RefrushRoomState(0);
  MainForm.Enabled:=true;
end;

procedure TPayForm.FormActivate(Sender: TObject);
begin
  Self.lbl1.Caption:='续住天数';
  if state='钟点' then
    Self.lbl1.Caption:='续住时间';
  self.suiEdit1.Text:='1';
  self.suiEdit2.Text:='200.00';
  self.suiComboBox1.Text:='现金';
  self.suiEdit1.SetFocus;
end;

procedure TPayForm.suiEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#48..#57,#13,#8]) then
    key:=#0
  else
    if key=#13 then
      self.suiComboBox1.SetFocus;
end;

procedure TPayForm.suiComboBox1DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox1,'select name from paymode');
end;

procedure TPayForm.suiComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
    Self.suiEdit2.Text;
end;

procedure TPayForm.suiEdit2KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#48..#57,#13,#8,#46]) then
    key:=#0
  else
    if key=#13 then
      self.btn1.SetFocus;
end;

procedure TPayForm.btn1Click(Sender: TObject);
var
  day:integer;
  menoy:Double;
  leavetime:tdatetime;
  room:string;
begin
  loginform.ExecuteSQL('select * from house where id='''+id+''' and room='''+mainform.roomnum+'''');
  room:=LoginForm.dsQuery.fieldbyname('memozs').AsString;
  LoginForm.dsQuery.Close;
  Delete(room,1,9);
  room:=Copy(room,1,Pos(';',room)-1);
  loginform.ExecuteSQL('select * from house where id='''+id+''' and room='''+room+'''');
  day:=LoginForm.dsQuery.fieldbyname('days').AsInteger;
  menoy:=LoginForm.dsQuery.fieldbyname('deposit').AsFloat;
  leavetime:=loginform.dsQuery.fieldbyname('leavetime').AsDateTime+strtoint(Self.suiEdit1.Text);
  day:=day+strtoint(Self.suiEdit1.Text);
  menoy:=menoy+strtofloat(self.suiEdit2.Text);
  loginform.ExecuteSQL('update house set days='''+inttostr(day)+''','+
                                        'leavetime='''+formatdatetime('yyyy-mm-dd hh:nn:ss',leavetime)+''' '+
                       'where id='''+id+'''');
  loginform.ExecuteSQL('update house set deposit='''+formatfloat('0.00',menoy)+''' '+
                       'where id='''+id+''' and room='''+room+'''');
  loginform.ExecuteSQL('insert into yjgl '+
                       'values('''+id+''','''+room+''','''+self.suiEdit2.Text+
                               ''','''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.username+
                               ''','''+Self.suiEdit1.Text+''','''+self.suiComboBox1.Text+''')');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                               ''','''+LoginForm.username+''',''房间【'+room+'】'+'续存押金'+
                               formatfloat('￥0.00',strtofloat(self.suiEdit2.Text))+''')');
  MessageDlg('房间【'+room+'】续存押金'+formatfloat('￥0.00',strtofloat(self.suiEdit2.Text))+'！',
             mtConfirmation, [mbYes], 0);
  Close;
end;

end.