yycxunit.pas

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

unit YYCXUnit;

interface

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

type
  TYYCXForm = class(TForm)
    suiPanel1: TsuiPanel;
    img1: TsuiImagePanel;
    lbl1: TLabel;
    suiImagePanel1: TsuiImagePanel;
    Label1: TLabel;
    Label2: TLabel;
    suiImagePanel2: TsuiImagePanel;
    Label3: TLabel;
    Label4: TLabel;
    suiImagePanel3: TsuiImagePanel;
    suiImagePanel4: TsuiImagePanel;
    Label5: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure img1Click(Sender: TObject);
    procedure suiImagePanel1Click(Sender: TObject);
    procedure suiImagePanel2Click(Sender: TObject);
    procedure suiImagePanel3Click(Sender: TObject);
    procedure suiImagePanel4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  YYCXForm: TYYCXForm;

implementation

uses MainUnit, SelectLBXXUnit, SelectKRXXUnit, SelectXFQDUnit,
  SelectBKZDUnit, SelectKSDAUnit;

{$R *.dfm}

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

procedure TYYCXForm.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if key=VK_ESCAPE then
    close;
end;

procedure TYYCXForm.img1Click(Sender: TObject);
begin
  application.CreateForm(TSelectLBXXForm,SelectLBXXForm);
  SelectLBXXForm.Show;
  Enabled:=False;
end;

procedure TYYCXForm.suiImagePanel1Click(Sender: TObject);
begin
  application.CreateForm(TSelectKRXXForm,SelectKRXXForm);
  SelectKRXXForm.Show;
  Enabled:=False;
end;

procedure TYYCXForm.suiImagePanel2Click(Sender: TObject);
begin
  application.CreateForm(TSelectXFQDForm,SelectXFQDForm);
  SelectXFQDForm.Show;
  Enabled:=False;
end;

procedure TYYCXForm.suiImagePanel3Click(Sender: TObject);
begin
  application.CreateForm(TSelectBKZDForm,SelectBKZDForm);
  SelectBKZDForm.Show;
  Enabled:=False;
end;

procedure TYYCXForm.suiImagePanel4Click(Sender: TObject);
begin
  application.CreateForm(TSelectKSDAForm,SelectKSDAForm);
  SelectKSDAForm.Show;
  Enabled:=False;
end;

end.