syssetunit.pas

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

unit SysSetUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls, DB, DBClient, Grids, DBGrids, SUIDBCtrls,
  ExtCtrls, SUIImagePanel, Mask, DBCtrls, SUIButton;

type
  TSysSetForm = class(TForm)
    suiPanel1: TsuiPanel;
    btn1: TsuiButton;
    lbl1: TLabel;
    Label3: TLabel;
    lbl2: TLabel;
    lbl3: TLabel;
    lbl4: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure btn1Click(Sender: TObject);
    procedure lbl1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure lbl2Click(Sender: TObject);
    procedure lbl3Click(Sender: TObject);
    procedure lbl4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    flag:Boolean;
  end;

var
  SysSetForm: TSysSetForm;

implementation

uses MainUnit, LoginUnit, SetRoomUnit, SetGoodUnit, SetGuestSourceUnit,
  SetUserUnit, AbortUnit, SetServerUnit;

{$R *.dfm}

procedure TSysSetForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if not flag then
    begin
      mainform.RefrushRoomState(0);
      mainform.Enabled:=true;
    end;
end;

procedure TSysSetForm.btn1Click(Sender: TObject);
begin
  close;
end;

procedure TSysSetForm.lbl1Click(Sender: TObject);
begin
  flag:=true;
  application.CreateForm(TSetRoomForm,SetRoomForm);
  SetRoomForm.Show;
  close;
end;

procedure TSysSetForm.FormCreate(Sender: TObject);
begin
  flag:=False;
end;

procedure TSysSetForm.lbl2Click(Sender: TObject);
begin
  flag:=true;
  application.CreateForm(TSetGoodForm,SetGoodForm);
  SetGoodForm.Show;
  close;
end;

procedure TSysSetForm.lbl3Click(Sender: TObject);
begin
  flag:=true;
  application.CreateForm(TSetGuestSourceForm,SetGuestSourceForm);
  SetGuestSourceForm.Show;
  close;
end;

procedure TSysSetForm.lbl4Click(Sender: TObject);
begin
  flag:=true;
  application.CreateForm(TSetServerForm,SetServerForm);
  SetServerForm.Show;
  close;
end;

end.