Class TBenTable (unit BenTable)

Inherits from

TTable

Constructors


constructor Create(AOwner: TComponent);



Functions

function ApplyLog(Log: TStrings): boolean;

Parse the Fields

destructor Destroy;


function MachineName: string;


function NormalStr(const s: string): string;


procedure RestoreIndex;


function SafeStr(const s: string): string;


procedure SaveIndex;

Apply the fields

function SaveLogFile: boolean;


function UserName: string;


procedure AddLog(const s: string);


procedure DoAfterDelete;


procedure DoAfterInsert;


procedure DoAfterOpen;


procedure DoAfterPost;


procedure DoBeforeDelete;


procedure DoBeforeEdit;


procedure DoBeforeInsert;

Save current Index & MasterSource

procedure DoOnNewRecord;


procedure FindNextPK;


procedure GetCurFields;


function GetLogText: TStrings;


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


procedure ParseFields(const Line: string; var KeyWord: string; Params: TStrings);


procedure SetLogFile(s: string);


procedure SetPK_Field(f: TField);


procedure SetUpdateLog(b: boolean);


Properties

property AutoIncPK : boolean


property LogFile : string


property PK_Field : TField


property UpdateLog : boolean


property LogText : TStrings


property NextPK : integer


Events

event OnLogChange : TNewLogEvent


Variables

ErrLog : TStringList;


DelRecord : string;


FAutoIncPK : boolean;


FieldVals : TStringList;


FLogFile : string;


FLogText : TStringList;


FNextPK : integer;


FOnLog : TNewLogEvent;


FPK_Field : TField;


FUpdateLog : boolean;


NeedIncPK : boolean;


NeedMeta : boolean;


Old_IndexFieldNames : string;


Old_IndexName : string;


WasInsert : boolean;



Constructors


constructor Create(AOwner: TComponent);


Functions


function ApplyLog(Log: TStrings): boolean;

Parse the Fields


destructor Destroy;


function MachineName: string;


function NormalStr(const s: string): string;


procedure RestoreIndex;


function SafeStr(const s: string): string;


procedure SaveIndex;

Apply the fields


function SaveLogFile: boolean;


function UserName: string;


procedure AddLog(const s: string);


procedure DoAfterDelete;


procedure DoAfterInsert;


procedure DoAfterOpen;


procedure DoAfterPost;


procedure DoBeforeDelete;


procedure DoBeforeEdit;


procedure DoBeforeInsert;

Save current Index & MasterSource


procedure DoOnNewRecord;


procedure FindNextPK;


procedure GetCurFields;


function GetLogText: TStrings;


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


procedure ParseFields(const Line: string; var KeyWord: string; Params: TStrings);


procedure SetLogFile(s: string);


procedure SetPK_Field(f: TField);


procedure SetUpdateLog(b: boolean);


Properties


property AutoIncPK : boolean


property LogFile : string


property PK_Field : TField


property UpdateLog : boolean


property LogText : TStrings


property NextPK : integer


Events


event OnLogChange : TNewLogEvent


Variables


ErrLog : TStringList;


DelRecord : string;


FAutoIncPK : boolean;


FieldVals : TStringList;


FLogFile : string;


FLogText : TStringList;


FNextPK : integer;


FOnLog : TNewLogEvent;


FPK_Field : TField;


FUpdateLog : boolean;


NeedIncPK : boolean;


NeedMeta : boolean;


Old_IndexFieldNames : string;


Old_IndexName : string;


WasInsert : boolean;