Class TgOraDb (unit OraDb)

Inherits from

TComponent

Constructors


constructor Create( AOwner: TComponent );



Functions

function ChangePassword: Boolean;

-------------------------------------------------------------------------} {FUNCTION: Get new Oracle password & execute DML to change user password.

procedure Close;


destructor Destroy;


function Login( strDefaultUser: String ): Boolean;

-------------------------------------------------------------------------} {FUNCTION: Display login screen and attempt database connection.

procedure Open;


function CheckForConnect: Boolean;


function SetActiveState( Active: Boolean ): Boolean;

-------------------------------------------------------------------------} {FUNCTION: Connect/Disconnect database.

procedure SetDbName( Value: String );


procedure SetInstance( Value: String );


procedure SetParams( Value: TStrings );


Properties

property About : TAboutOraDb


property Connected : Boolean


property DbName : String


property Instance : String


property Params : TStrings


property Password : String


property User : String


Events

Variables

FAboutBox : TAboutOraDb;


FConnected : Boolean;


FDatabase : TDatabase;


FDbName : String;


FInstance : String;


FParams : TStrings;


FPassword : String;


FUser : String;



Constructors


constructor Create( AOwner: TComponent );


Functions


function ChangePassword: Boolean;

-------------------------------------------------------------------------} {FUNCTION: Get new Oracle password & execute DML to change user password.} {RETURNS: Successful/Unsuccessful password change. } {-------------------------------------------------------------------------


procedure Close;


destructor Destroy;


function Login( strDefaultUser: String ): Boolean;

-------------------------------------------------------------------------} {FUNCTION: Display login screen and attempt database connection. } {PARAMETER: strDefaultUser - Default user name to appear in login screen. } {RETURNS: Successful/Unsuccessful connection status. } {-------------------------------------------------------------------------


procedure Open;


function CheckForConnect: Boolean;


function SetActiveState( Active: Boolean ): Boolean;

-------------------------------------------------------------------------} {FUNCTION: Connect/Disconnect database. } {PARAMETER: Active - requested connection state. } {RETURNS: Successful/Unsuccessful connection status. } {-------------------------------------------------------------------------


procedure SetDbName( Value: String );


procedure SetInstance( Value: String );


procedure SetParams( Value: TStrings );


Properties


property About : TAboutOraDb


property Connected : Boolean


property DbName : String


property Instance : String


property Params : TStrings


property Password : String


property User : String


Events


Variables


FAboutBox : TAboutOraDb;


FConnected : Boolean;


FDatabase : TDatabase;


FDbName : String;


FInstance : String;


FParams : TStrings;


FPassword : String;


FUser : String;