Class TAisIni (unit AisIni)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

=========================================================================== Function/Proc Name: Create(AOwner: TComponent) Description: This is where the two databases are created.


Functions

procedure ChangePrivDir(Directory: String);

=========================================================================== Function/Proc Name: ChangePrivDir(Directory: String) Description: Closes the Priv Database, and puts the proper parameters in the database including the new directory.

procedure ChangeWorkDir(Directory: String);

=========================================================================== Function/Proc Name: ChangeWorkDir(Directory: String) Description: Closes the Work Database, and puts the proper parameters in the database including the new directory.

destructor Destroy;

=========================================================================== Function/Proc Name: Destroy Description: Free the two database resources Notes: Calling Convention: Returns : None ===========================================================================

function GetPrivDir: String;

=========================================================================== Function/Proc Name: GetPrivDir Description: This function looks in the WIN.

function GetWorkDir: String;

=========================================================================== Function/Proc Name: GetWorkDir Description: This function looks in the WIN.

procedure WritePrivDir(Directory: String);

=========================================================================== Function/Proc Name: WritePrivDir(Directory: String) Description: Writes the Private Directory path to the appropriate place in the WIN.

procedure WriteWorkDir(Directory: String);

=========================================================================== Function/Proc Name: WriteWorkDir(Directory: String) Description: Writes the Working Directory path to the appropriate place in the WIN.

function PrivExist: Boolean;

Private declarations

=========================================================================== Function/Proc Name: PrivExist Description: This function checks to see if a PRIV database already exists, if it does return True Notes: Calling Convention: Returns : True if PRIV database already exists otherwise False ===========================================================================


function WorkExist: Boolean;

=========================================================================== Function/Proc Name: WorkExist Description: This function checks to see if a WORK database already exists, if it does return True Notes: Calling Convention: Returns : True if WORK database already exists otherwise False ===========================================================================

Properties

Events

Variables

PrivDatabase : TDatabase;

Public declarations

WorkDatabase : TDatabase;



Constructors


constructor Create(AOwner: TComponent);

=========================================================================== Function/Proc Name: Create(AOwner: TComponent) Description: This is where the two databases are created. The method checks to see if the PRIV or WORK database is already defined. If they exist, the new databases will not be assign. Notes: The database components are created no matter what. if the databases exist, they won't be given names or assigned. Calling Convention: Returns : None ===========================================================================


Functions


procedure ChangePrivDir(Directory: String);

=========================================================================== Function/Proc Name: ChangePrivDir(Directory: String) Description: Closes the Priv Database, and puts the proper parameters in the database including the new directory. It save the database connection state so that it can return it to the proper state when it is done. Notes: Calling Convention: Directory is the path of the database to be referenced. Returns : None ===========================================================================


procedure ChangeWorkDir(Directory: String);

=========================================================================== Function/Proc Name: ChangeWorkDir(Directory: String) Description: Closes the Work Database, and puts the proper parameters in the database including the new directory. It save the database connection state so that it can return it to the proper state when it is done. Notes: Calling Convention: Directory is the path of the database to be referenced. Returns : None ===========================================================================


destructor Destroy;

=========================================================================== Function/Proc Name: Destroy Description: Free the two database resources Notes: Calling Convention: Returns : None ===========================================================================


function GetPrivDir: String;

=========================================================================== Function/Proc Name: GetPrivDir Description: This function looks in the WIN.INI file to find the location of the private directory Notes: Looks for the Paradox section first in the WIN.INI file. If that is not found then check the Database Desktop. Future version might have a property that allows you to pick which one to check first. Calling Convention: Returns : The Private Directory path or ERROR ===========================================================================


function GetWorkDir: String;

=========================================================================== Function/Proc Name: GetWorkDir Description: This function looks in the WIN.INI file to find the location of the work directory Notes: Looks for the Paradox section first in the WIN.INI file. If that is not found then check the Database Desktop. Future version might have a property that allows you to pick which one to check first. Calling Convention: Returns : The Work Directory path or ERROR ===========================================================================


procedure WritePrivDir(Directory: String);

=========================================================================== Function/Proc Name: WritePrivDir(Directory: String) Description: Writes the Private Directory path to the appropriate place in the WIN.INI. It first checks to see if Paradox is installed and writes that private directory. If Paradox is not installed, it modifies the DBD private directory. Notes: Calling Convention: Directory is the path of the database to be written to the WIN.INI. Returns : None ===========================================================================


procedure WriteWorkDir(Directory: String);

=========================================================================== Function/Proc Name: WriteWorkDir(Directory: String) Description: Writes the Working Directory path to the appropriate place in the WIN.INI. It first checks to see if Paradox is installed and writes that working directory. If Paradox is not installed, it modifies the DBD working directory. Notes: Calling Convention: Directory is the path of the database to be written to the WIN.INI. Returns : None ===========================================================================


function PrivExist: Boolean;

Private declarations

=========================================================================== Function/Proc Name: PrivExist Description: This function checks to see if a PRIV database already exists, if it does return True Notes: Calling Convention: Returns : True if PRIV database already exists otherwise False ===========================================================================


function WorkExist: Boolean;

=========================================================================== Function/Proc Name: WorkExist Description: This function checks to see if a WORK database already exists, if it does return True Notes: Calling Convention: Returns : True if WORK database already exists otherwise False ===========================================================================


Properties


Events


Variables


PrivDatabase : TDatabase;

Public declarations


WorkDatabase : TDatabase;