xfzdunit.pas

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

unit XFZDUnit;

interface

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

type
  TXFZDForm = class(TForm)
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    suiComboBox1: TsuiComboBox;
    btn1: TsuiButton;
    btn2: TsuiButton;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure suiComboBox1DropDown(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    xfid:array of string;
  end;

var
  XFZDForm: TXFZDForm;

implementation

uses ZJXFUnit, LoginUnit, MainUnit, AbortUnit;

{$R *.dfm}

procedure TXFZDForm.FormCreate(Sender: TObject);
begin
  self.suiComboBox1.Clear;
  Self.Label4.Caption:=MainForm.roomnum;
  Self.Label5.Caption:=ZJXFForm.ds2.fieldbyname('Lbxf_xfxm').AsString;
  Self.Label6.Caption:=ZJXFForm.ds2.fieldbyname('Lbxf_xmdj').AsString;
  Self.Label10.Caption:=ZJXFForm.ds2.fieldbyname('lbxf_dzbl').AsString;
  Self.Label11.Caption:=ZJXFForm.ds2.fieldbyname('Lbxf_xfsl').AsString;
  Self.Label12.Caption:=ZJXFForm.ds2.fieldbyname('Lbxf_xfje').AsString;
end;

procedure TXFZDForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ZJXFForm.RefrushData;
  ZJXFForm.Enabled:=True;
end;

procedure TXFZDForm.FormActivate(Sender: TObject);
begin
  suiComboBox1.SetFocus;
end;

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

procedure TXFZDForm.suiComboBox1DropDown(Sender: TObject);
var
  index:Integer;
begin
  suiComboBox1.Items.Clear;
  suiComboBox1.Items.BeginUpdate;
  loginform.ExecuteSQL('select roomtype.type_mc,room.room_num,room.room_ID from room,roomtype '+
                       'where (room.room_type=roomtype.type_xh) and '+
                             '((room_state=''散客'') or '+
                             '(room_state=''团体'') or '+
                             '(room_state=''包房'') or '+
                             '(room_state=''钟点'')) and '+
                             '(room.room_num<>'''+mainform.roomnum+''') '+
                       'order by room.room_num');
  SetLength(xfid,LoginForm.dsQuery.RecordCount);
  index:=0;
  LoginForm.dsQuery.First;
  while not LoginForm.dsQuery.Eof do
    begin
      xfid[index]:=LoginForm.dsQuery.Fields[2].AsString;
      suiComboBox1.Items.Add(LoginForm.dsQuery.Fields[0].AsString+':'+LoginForm.dsQuery.Fields[1].AsString);
      LoginForm.dsQuery.Next;
      inc(index);
    end;
  suiComboBox1.Items.EndUpdate;
  LoginForm.dsQuery.Close;
end;

procedure TXFZDForm.btn1Click(Sender: TObject);
var
  roomnum:string;
begin
  if suiComboBox1.ItemIndex>=0 then
    begin
      roomnum:=self.suiComboBox1.Items.Strings[suiComboBox1.ItemIndex];
      delete(roomnum,1,pos(':',roomnum));
      loginform.ExecuteSQL('update consume set Lbxf_xfbh='''+xfid[suiComboBox1.ItemIndex]+''','+
                                              'Lbxf_sph='''+roomnum+''' '+
                           'where Lbxf_xfbh='''+zjxfform.id+''' and Lbxf_sph='''+mainform.roomnum+''' and '+
                                 'Lbxf_xfBegin='''+zjxfform.ds2.fieldbyname('Lbxf_xfBegin').AsString+'''');
      loginform.ExecuteSQL('insert into log '+
                           'values('''+formatdatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+''','''+LoginForm.username+
                                   ''',''消费项目【'+self.Label5.Caption+'】消费金额【'+self.Label12.Caption+'】'+
                                   '由房间'+mainform.roomnum+
                                   '转单到房间'+self.suiComboBox1.Items.Strings[suiComboBox1.ItemIndex]+''')');
      close;
    end
  else
    MessageDlg('尚未选择目标房间,请先选择目标房间！',mtConfirmation, [mbYes], 0);
end;

end.