| Class TBenTable (unit BenTable) |
TTable
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
function ApplyLog(Log: TStrings): boolean;
destructor Destroy;
function MachineName: string;
function NormalStr(const s: string): string;
procedure RestoreIndex;
function SafeStr(const s: string): string;
procedure SaveIndex;
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;
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;