Class Tip_AUTOINC (unit _ipAUTOINC)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


function LastID:integer;


procedure WriteID(ID:integer);


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);

Protected declarations

procedure AfterInsert(DataSet: TDataSet);

if Value <> nil then Value.

procedure BeforePost(DataSet: TDataSet);


function FirstField:TField;


function GetDataset: TDataset;


procedure SetDataset(Value: TDataset);


Properties

property DataSet : TDataset

Published declarations } //property DataField: string read GetDataField write SetDataField;

property Enabled : Boolean


property FirstID : Integer


property Prefix : String


property UpdateAction : TUpdateActions


Events

Variables

FAfterInsertEvent : TDataSetNotifyEvent;


FBeforePostEvent : TDataSetNotifyEvent;


FDataset : TDataset;


FEnabled : Boolean;


FFirstID : Integer;


FPrefix : String;


FUpdateAction : TUpdateActions;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


function LastID:integer;


procedure WriteID(ID:integer);


procedure Loaded;


procedure Notification(AComponent: TComponent; Operation: TOperation);

Protected declarations


procedure AfterInsert(DataSet: TDataSet);

if Value <> nil then Value.FreeNotification(Self);


procedure BeforePost(DataSet: TDataSet);


function FirstField:TField;


function GetDataset: TDataset;


procedure SetDataset(Value: TDataset);


Properties


property DataSet : TDataset

Published declarations } //property DataField: string read GetDataField write SetDataField;


property Enabled : Boolean


property FirstID : Integer


property Prefix : String


property UpdateAction : TUpdateActions


Events


Variables


FAfterInsertEvent : TDataSetNotifyEvent;


FBeforePostEvent : TDataSetNotifyEvent;


FDataset : TDataset;


FEnabled : Boolean;


FFirstID : Integer;


FPrefix : String;


FUpdateAction : TUpdateActions;