unit Employee;
interface
uses
  SysUtils, Classes, DB, DBTables;
type
  TEmployee = class(TQuery)
  private
    FEmpNO : string;
    procedure SetEmpNO(Value:string);
  protected
    { Protected declarations }
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
  published
    property EmpNO : string read FEmpNO write SetEmpNO;
  end;
procedure Register;
implementation
procedure Register;
begin
  RegisterComponents('CustomComponents', [TEmployee]);
end;
{ TEmployee }
constructor TEmployee.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Self.SQL.Clear;
  Self.SQL.Add('Select * From Employees Where Employee_Number=:EMPNO');
  Self.Prepare;
end;
destructor TEmployee.Destroy;
begin
  inherited Destroy;
end;
procedure TEmployee.SetEmpNO(Value: string);
begin
  FEmpNO := Value;
  Self.Close;
  Self.ParamByName('EMPNO').AsString := FEmpNO;
  Self.Open;
end;
end.