| Class TAFEmployee (unit AFEmployeeImp) |
TActiveForm
| Constructors |
| Functions |
procedure btnSearchClick(Sender: TObject);
procedure EventSinkChanged(const EventSink: IUnknown);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;| 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