unit Unit3; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  DbCtrls, EditBtn, Unit2, IBCustomDataSet, IBQuery, db;

type

  { TAddEmployeeDlg }

  TAddEmployeeDlg = class(TEditEmployeeDlg)
    procedure FormShow(Sender: TObject);
    procedure IBDataSet1AfterInsert(DataSet: TDataSet);
  private
    { private declarations }
    FNewEmpNo: integer;
  public
    { public declarations }
    function ShowModal(var Emp_no: integer): TModalResult;
  end; 

var
  AddEmployeeDlg: TAddEmployeeDlg;

implementation

{$R *.lfm}

uses Unit1;

{ TAddEmployeeDlg }

procedure TAddEmployeeDlg.FormShow(Sender: TObject);
begin
  inherited;
  IBDataSet1.Append
end;

procedure TAddEmployeeDlg.IBDataSet1AfterInsert(DataSet: TDataSet);
begin
  inherited;
  FNewEmpNo := DataSet.FieldByName('EMP_NO').AsInteger
end;

function TAddEmployeeDlg.ShowModal(var Emp_no: integer): TModalResult;
begin
  Result := inherited ShowModal(-1);
  if Result = mrOK then
    Emp_no := FNewEmpNo;
end;

end.