examples/employee/unit3.pas

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.

Revision:	17
Committed:	Sat Dec 28 19:22:24 2013 UTC (10 years, 3 months ago) by tony
Content type:	text/x-pascal
File size:	1104 byte(s)
Log Message:	Committing updates for Release R1-0-5
#	User	Rev	Content
1	tony	17	unit Unit3;
2
3			{$mode objfpc}{$H+}
4
5			interface
6
7			uses
8			Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
9			DbCtrls, EditBtn, Unit2, IBCustomDataSet, IBQuery, db;
10
11			type
12
13			{ TAddEmployeeDlg }
14
15			TAddEmployeeDlg = class(TEditEmployeeDlg)
16			procedure FormShow(Sender: TObject);
17			procedure IBDataSet1AfterInsert(DataSet: TDataSet);
18			private
19			{ private declarations }
20			FNewEmpNo: integer;
21			public
22			{ public declarations }
23			function ShowModal(var Emp_no: integer): TModalResult;
24			end;
25
26			var
27			AddEmployeeDlg: TAddEmployeeDlg;
28
29			implementation
30
31			{$R *.lfm}
32
33			uses Unit1;
34
35			{ TAddEmployeeDlg }
36
37			procedure TAddEmployeeDlg.FormShow(Sender: TObject);
38			begin
39			inherited;
40			IBDataSet1.Append
41			end;
42
43			procedure TAddEmployeeDlg.IBDataSet1AfterInsert(DataSet: TDataSet);
44			begin
45			inherited;
46			FNewEmpNo := DataSet.FieldByName('EMP_NO').AsInteger
47			end;
48
49			function TAddEmployeeDlg.ShowModal(var Emp_no: integer): TModalResult;
50			begin
51			Result := inherited ShowModal(-1);
52			if Result = mrOK then
53			Emp_no := FNewEmpNo;
54			end;
55
56			end.
57