changeunit.pas

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

unit ChangeUnit;

interface

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

type
  TChangeForm = class(TForm)
    suiPanel1: TsuiPanel;
    Label12: TLabel;
    suiComboBox5: TsuiComboBox;
    Label11: TLabel;
    suiComboBox6: TsuiComboBox;
    suiButton1: TsuiButton;
    suiButton2: TsuiButton;
    procedure suiButton2Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure suiComboBox5KeyPress(Sender: TObject; var Key: Char);
    procedure suiComboBox5DropDown(Sender: TObject);
    procedure suiComboBox6KeyPress(Sender: TObject; var Key: Char);
    procedure suiComboBox6DropDown(Sender: TObject);
    procedure suiComboBox6Select(Sender: TObject);
    procedure suiComboBox5Change(Sender: TObject);
    procedure suiButton1Click(Sender: TObject);
    procedure suiComboBox5Select(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    id:string;
    memo:string;
  end;

var
  ChangeForm: TChangeForm;

implementation

uses MainUnit, LoginUnit;

{$R *.dfm}

procedure TChangeForm.suiButton2Click(Sender: TObject);
begin
  close;
end;

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

procedure TChangeForm.FormActivate(Sender: TObject);
begin
  self.suiComboBox5.SetFocus;
end;

procedure TChangeForm.FormCreate(Sender: TObject);
begin
  self.suiComboBox5.Clear;
  self.suiComboBox6.Clear;
  self.suiPanel1.Caption:='原餐台【'+mainform.typename+':'+mainform.roomnum+'】';
  loginform.ExecuteSQL('select room_id from room where room_num='''+mainform.roomnum+'''');
  id:=LoginForm.dsQuery.Fields[0].AsString;
  LoginForm.dsQuery.Close;
  loginform.ExecuteSQL('select memozs from house where id='''+id+''' and room='''+mainform.roomnum+'''');
  memo:=LoginForm.dsQuery.Fields[0].AsString;
  LoginForm.dsQuery.Close;
end;

procedure TChangeForm.suiComboBox5KeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure TChangeForm.suiComboBox5DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox5,'select type_mc from roomtype');
  self.suiComboBox5.ItemIndex:=0;
end;

procedure TChangeForm.suiComboBox6KeyPress(Sender: TObject; var Key: Char);
begin
  key:=#0;
end;

procedure TChangeForm.suiComboBox6DropDown(Sender: TObject);
begin
  loginform.AddCombobox(suiComboBox6,'select room_num from room '+
                                     'where (room_state=''可供'') and '+
                                           '(room_type in (select type_xh from roomtype '+
                                                          'where type_mc='''+suiComboBox5.Text+'''))');
end;

procedure TChangeForm.suiComboBox6Select(Sender: TObject);
begin
  self.suiButton1.SetFocus;
end;

procedure TChangeForm.suiComboBox5Change(Sender: TObject);
begin
  self.suiComboBox6.Clear;
end;

procedure TChangeForm.suiButton1Click(Sender: TObject);
var
  count:Integer;
  index:Integer;
begin
  if self.suiComboBox6.Text='' then
    begin
      MessageDlg('调换到房间信息不可以为空,请重新选择！',mtConfirmation, [mbYes], 0);
      exit;
    end;
  LoginForm.ExecuteSQL('select count(*) from consume '+
                      'where Lbxf_xfbh='''+id+''' and Lbxf_sph='''+mainform.roomnum+'''');
  count:=LoginForm.dsQuery.Fields[0].AsInteger;
  LoginForm.dsQuery.Close;
  if count=0 then
    LoginForm.ExecuteSQL('update room set room_state=''可供'',room_id='''' where room_num='''+mainform.roomnum+'''')
  else
    loginform.ExecuteSQL('update room set room_state=''清理'',room_id='''' where room_num='''+mainform.roomnum+'''');
  loginform.ExecuteSQL('update room set room_state=''占用'',room_ID='''+id+''' '+
                       'where room_num='''+self.suiComboBox6.Text+'''');
  loginform.ExecuteSQL('update consume set Lbxf_sph='''+self.suiComboBox6.Text+''' '+
                       'where Lbxf_xfbh='''+id+''' and Lbxf_sph='''+mainform.roomnum+'''');
  loginform.ExecuteSQL('update house set room='''+self.suiComboBox6.Text+''' '+
                       'where id='''+id+''' and room='''+mainform.roomnum+'''');
  index:=pos(mainform.roomnum,memo);
  delete(memo,index,length(mainform.roomnum));
  insert(self.suiComboBox6.Text,memo,index);
  loginform.ExecuteSQL('update house set memozs='''+memo+''' where id='''+id+'''');
  loginform.ExecuteSQL('insert into log '+
                       'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','+
                               ''''+loginform.userid+''','''+LoginForm.username+''','''+
                               '餐台由【'+mainform.roomnum+'】调换到【'+self.suiComboBox6.Text+'】'')');
  MessageDlg('餐台由【'+mainform.roomnum+'】调换到【'+self.suiComboBox6.Text+'】！',mtConfirmation, [mbYes], 0);
  close;
end;

procedure TChangeForm.suiComboBox5Select(Sender: TObject);
begin
  self.suiComboBox6.SetFocus;
end;

end.