Class TgOraDb (unit OraDb) |
Inherits from
TComponent
constructor Create( AOwner: TComponent );
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 );
property About : TAboutOraDb
property Connected : Boolean
property DbName : String
property Instance : String
property Params : TStrings
property Password : String
property User : String
FAboutBox : TAboutOraDb;
FConnected : Boolean;
FDatabase : TDatabase;
FDbName : String;
FInstance : String;
FParams : TStrings;
FPassword : String;
FUser : String;
constructor Create( AOwner: TComponent );
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 );
property About : TAboutOraDb
property Connected : Boolean
property DbName : String
property Instance : String
property Params : TStrings
property Password : String
property User : String
FAboutBox : TAboutOraDb;
FConnected : Boolean;
FDatabase : TDatabase;
FDbName : String;
FInstance : String;
FParams : TStrings;
FPassword : String;
FUser : String;