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:	7
Committed:	Sun Aug 5 18:28:19 2012 UTC (12 years, 3 months ago) by tony
Content type:	text/x-pascal
File size:	1047 byte(s)
Log Message:	Committing updates for Release R1-0-0
#	Content
1	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