--- ibx/trunk/examples/employee/unit3.pas	2013/02/28 16:56:14	16
+++ ibx/trunk/examples/employee/unit3.pas	2013/12/28 19:22:24	17
@@ -1,57 +1,57 @@
-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.
-
+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.
+