dlggroup.pas

来自「详细说明:毕业论文中关于小型宾馆管理系统的详细设计毕 业论文中关于小型宾馆...」· PAS 代码 · 共 86 行

unit dlgGroup;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls,dialogs;

type
  TdlgGroups = class(TForm)
    OKBtn: TButton;
    CancelBtn: TButton;
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edCreator: TEdit;
    edGroupName: TEdit;
    edDate: TEdit;
    Label4: TLabel;
    edOldGroup: TEdit;
    edGroupDes: TComboBox;
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OKBtnClick(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure CancelBtnClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    IsChange:Boolean;
  end;


var
  isClose:Boolean;
  grp,grpdes:string;
implementation

{$R *.DFM}

procedure TdlgGroups.FormCreate(Sender: TObject);
begin
   isClose:=true;
end;

procedure TdlgGroups.FormShow(Sender: TObject);
begin
      grp:=edGroupName.Text;
      grpdes:=edGroupdes.Text;

end;

procedure TdlgGroups.OKBtnClick(Sender: TObject);
begin
  isChange:=false;
  isClose:=true;
  if (grp<> edGroupName.Text) or (grpdes<>edGroupDes.Text) then begin
        if MessageDlg('你想保存记录吗?',
                mtConfirmation, [mbYes, mbNo], 0) = mrNo then begin
                isClose:=false;
                Exit;
        end else begin
          if edGroupname.Text='' then begin
              MessageDlg('必须输入部门名称', mtWarning,[mbOk], 0);
              isClose:=false;
              Exit;
          end;
          isChange:=true;
        end;
  end;
end;

procedure TdlgGroups.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose:=isClose;
end;

procedure TdlgGroups.CancelBtnClick(Sender: TObject);
begin
   isClose:=true;
end;

end.