stateeditunit.pas

来自「东华休闲山庄洗浴、餐饮、客房管理系统」· PAS 代码 · 共 94 行

unit StateEditUnit;

interface

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

type
  TStateEditForm = class(TForm)
    suiPanel1: TsuiPanel;
    suiImageButton1: TsuiImageButton;
    suiImageButton2: TsuiImageButton;
    suiImageButton3: TsuiImageButton;
    lbl1: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure suiImageButton2Click(Sender: TObject);
    procedure suiImageButton3Click(Sender: TObject);
    procedure suiImageButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    state:string;
  end;

var
  StateEditForm: TStateEditForm;

implementation

uses MainUnit, LoginUnit;

{$R *.dfm}

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

procedure TStateEditForm.FormCreate(Sender: TObject);
begin
  loginform.ExecuteSQL('select room_state from room where room_num='''+mainform.roomnum+'''');
  state:=LoginForm.dsQuery.Fields[0].AsString;
  LoginForm.dsQuery.Close;
  Self.suiPanel1.Caption:='餐台【'+mainform.roomnum+'】处于【'+state+'】状态';
end;

procedure TStateEditForm.suiImageButton2Click(Sender: TObject);
begin
  if state<>'可供' then
    begin
      loginform.ExecuteSQL('update room set room_state=''可供'',room_id='''' where room_num='''+mainform.roomnum+'''');
      loginform.ExecuteSQL('insert into log '+
                           'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                                   ''','''+LoginForm.username+''',''将餐台【'+mainform.roomnum+'】'+
                                   '状态由【'+state+'】变为【可供】'')');
      Close;
    end;
end;

procedure TStateEditForm.suiImageButton3Click(Sender: TObject);
begin
  if state<>'清理' then
    begin
      loginform.ExecuteSQL('update room set room_state=''清理'' where room_num='''+mainform.roomnum+'''');
      loginform.ExecuteSQL('insert into log '+
                           'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                                   ''','''+LoginForm.username+''',''将餐台【'+mainform.roomnum+'】'+
                                   '状态由【'+state+'】变为【清理】'')');
      Close;
    end;
end;

procedure TStateEditForm.suiImageButton1Click(Sender: TObject);
begin
  if state<>'停用' then
    begin
      loginform.ExecuteSQL('update room set room_state=''停用'' where room_num='''+mainform.roomnum+'''');
      loginform.ExecuteSQL('insert into log '+
                           'values('''+FormatDatetime('yyyy-mm-dd hh:nn:ss',now)+''','''+loginform.userid+
                                   ''','''+LoginForm.username+''',''将餐台【'+mainform.roomnum+'】'+
                                   '状态由【'+state+'】变为【停用】'')');
      Close;
    end;
end;

end.