Class TAFEmployee (unit AFEmployeeImp)

Inherits from

TActiveForm

IAFEmployee

Constructors



Functions

procedure btnSearchClick(Sender: TObject);


procedure EventSinkChanged(const EventSink: IUnknown);

Protected declarations

TAFEmployee


function FindEmployee(EmpNo: Integer): WordBool;


function Get_Active: WordBool;


function Get_AutoScroll: WordBool;


function Get_AxBorderStyle: TxActiveFormBorderStyle;


function Get_Caption: WideString;


function Get_Color: TColor;


function Get_Cursor: Smallint;


function Get_DropTarget: WordBool;


function Get_Enabled: WordBool;


function Get_Font: Font;


function Get_HelpFile: WideString;


function Get_KeyPreview: WordBool;


function Get_PixelsPerInch: Integer;


function Get_PrintScale: TxPrintScale;


function Get_Scaled: WordBool;


function Get_Search: WideString;


function Get_Visible: WordBool;


function Get_WindowState: TxWindowState;


procedure Initialize;


procedure Set_AutoScroll(Value: WordBool);


procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle);


procedure Set_Caption(const Value: WideString);


procedure Set_Color(Value: TColor);


procedure Set_Cursor(Value: Smallint);


procedure Set_DropTarget(Value: WordBool);


procedure Set_Enabled(Value: WordBool);


procedure Set_Font(const Value: Font);


procedure Set_HelpFile(const Value: WideString);


procedure Set_KeyPreview(Value: WordBool);


procedure Set_PixelsPerInch(Value: Integer);


procedure Set_PrintScale(Value: TxPrintScale);


procedure Set_Scaled(Value: WordBool);


procedure Set_Search(const Value: WideString);


procedure Set_Visible(Value: WordBool);


procedure Set_WindowState(Value: TxWindowState);


procedure ShowSearchControls(Value : WordBool);


procedure ActivateEvent(Sender: TObject);


procedure ClickEvent(Sender: TObject);


procedure CreateEvent(Sender: TObject);


procedure DblClickEvent(Sender: TObject);


procedure DeactivateEvent(Sender: TObject);


procedure DestroyEvent(Sender: TObject);


procedure KeyPressEvent(Sender: TObject; var Key: Char);


procedure PaintEvent(Sender: TObject);


Properties

Events

Variables

btnSearch : TButton;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


dsEmployee : TDataSource;


edSearch : TEdit;


lblSearch : TLabel;


tblEmployee : TTable;


FEvents : IAFEmployeeEvents;

Private declarations


Constructors


Functions


procedure btnSearchClick(Sender: TObject);


procedure EventSinkChanged(const EventSink: IUnknown);

Protected declarations

TAFEmployee


function FindEmployee(EmpNo: Integer): WordBool;


function Get_Active: WordBool;


function Get_AutoScroll: WordBool;


function Get_AxBorderStyle: TxActiveFormBorderStyle;


function Get_Caption: WideString;


function Get_Color: TColor;


function Get_Cursor: Smallint;


function Get_DropTarget: WordBool;


function Get_Enabled: WordBool;


function Get_Font: Font;


function Get_HelpFile: WideString;


function Get_KeyPreview: WordBool;


function Get_PixelsPerInch: Integer;


function Get_PrintScale: TxPrintScale;


function Get_Scaled: WordBool;


function Get_Search: WideString;


function Get_Visible: WordBool;


function Get_WindowState: TxWindowState;


procedure Initialize;


procedure Set_AutoScroll(Value: WordBool);


procedure Set_AxBorderStyle(Value: TxActiveFormBorderStyle);


procedure Set_Caption(const Value: WideString);


procedure Set_Color(Value: TColor);


procedure Set_Cursor(Value: Smallint);


procedure Set_DropTarget(Value: WordBool);


procedure Set_Enabled(Value: WordBool);


procedure Set_Font(const Value: Font);


procedure Set_HelpFile(const Value: WideString);


procedure Set_KeyPreview(Value: WordBool);


procedure Set_PixelsPerInch(Value: Integer);


procedure Set_PrintScale(Value: TxPrintScale);


procedure Set_Scaled(Value: WordBool);


procedure Set_Search(const Value: WideString);


procedure Set_Visible(Value: WordBool);


procedure Set_WindowState(Value: TxWindowState);


procedure ShowSearchControls(Value : WordBool);


procedure ActivateEvent(Sender: TObject);


procedure ClickEvent(Sender: TObject);


procedure CreateEvent(Sender: TObject);


procedure DblClickEvent(Sender: TObject);


procedure DeactivateEvent(Sender: TObject);


procedure DestroyEvent(Sender: TObject);


procedure KeyPressEvent(Sender: TObject; var Key: Char);


procedure PaintEvent(Sender: TObject);


Properties


Events


Variables


btnSearch : TButton;


DBGrid1 : TDBGrid;


DBNavigator1 : TDBNavigator;


dsEmployee : TDataSource;


edSearch : TEdit;


lblSearch : TLabel;


tblEmployee : TTable;


FEvents : IAFEmployeeEvents;

Private declarations