emptypeeditfrm.pas

考勤管理是企业内部管理的重要环节和基础

unit EmpTypeEditFrm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Mask, DBCtrls, Buttons;

resourcestring
  sName='职员类别不能为空!';

type
  TEmpTypeEditForm = class(TForm)
    bbtnConfirm: TBitBtn;
    bbtnCancel: TBitBtn;
    bbtnAdd: TBitBtn;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    procedure bbtnConfirmClick(Sender: TObject);
    procedure bbtnCancelClick(Sender: TObject);
    procedure bbtnAddClick(Sender: TObject);
    procedure bbtnConfirmEnter(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
  private
    { Private declarations }
  public
    procedure ShowModalPopup(popup: integer);
    { Public declarations }
  end;

var
  EmpTypeEditForm: TEmpTypeEditForm;

implementation

uses unDM2;

{$R *.DFM}

procedure TEmpTypeEditForm.ShowModalPopup(popup : integer);
begin
  case popup of
    0: begin
        bbtnAdd.Visible:=true;
        DM2.tblEmpType.append;
        ShowModal;
       end;
    1: begin
        bbtnAdd.Visible:=false;
        DM2.tblEmpType.edit;
        ShowModal;
       end;
  end;
end;

procedure TEmpTypeEditForm.bbtnConfirmClick(Sender: TObject);
begin
  DM2.tblEmpType.Post;
  EmpTypeEditForm.close;
end;

procedure TEmpTypeEditForm.bbtnCancelClick(Sender: TObject);
begin
  DM2.tblEmpType.Cancel;
  EmpTypeEditForm.close;
end;

procedure TEmpTypeEditForm.bbtnAddClick(Sender: TObject);
begin
  DM2.tblEmpType.append;
  Dbedit1.SetFocus;
end;

procedure TEmpTypeEditForm.bbtnConfirmEnter(Sender: TObject);
begin
  if DBEdit1.Text='' then begin
    MessageDlg(Pchar(sItemsNull), mtError, [mbOK], 0);
    DBEdit1.SetFocus;
  end;
end;

procedure TEmpTypeEditForm.FormDestroy(Sender: TObject);
begin
  EmpTypeEditForm:=nil;
end;

procedure TEmpTypeEditForm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
end;

procedure TEmpTypeEditForm.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
  CanClose := DM2.DataSetApplyUpdates(DM2.tblEmpType, ModalResult = mrOK);
end;

end.