Class TBusinessObject (unit BusinessObject)

Inherits from

TObject

Constructors


constructor Create;



Functions

procedure Assign(obj: TBusinessObject);


procedure ClearModified;


procedure ClearNew;


function DBDelete: Boolean;


destructor Free;


function GetNextKey(table: string): Longint;


function GetTempTableVariable(table: string): TTable;


function IsEqual(obj: TBusinessObject): Boolean;


function IsModified: Boolean;


function IsNew: Boolean;


function Load: Boolean;

Set to local database alias

function Save: Boolean;


procedure SetModified;


procedure SetNew;


Properties

Events

Variables

m_bIsModified : Boolean;


m_bIsNew : Boolean;



Constructors


constructor Create;


Functions


procedure Assign(obj: TBusinessObject);


procedure ClearModified;


procedure ClearNew;


function DBDelete: Boolean;


destructor Free;


function GetNextKey(table: string): Longint;


function GetTempTableVariable(table: string): TTable;


function IsEqual(obj: TBusinessObject): Boolean;


function IsModified: Boolean;


function IsNew: Boolean;


function Load: Boolean;

Set to local database alias


function Save: Boolean;


procedure SetModified;


procedure SetNew;


Properties


Events


Variables


m_bIsModified : Boolean;


m_bIsNew : Boolean;