1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

type
  { Oracle database interaction class }
  TDBConn = class

  private

    mSession : TOracleSession; //oracle session object
    mPackage : TOraclePackage; //oracle package object
    mLevel : Integer; //assigned client level
    mConnStr : String; //connection string
    mStatus : Integer; //current client status

    procedure Init(); //initialize the database connection
    procedure Login(); //perform a BXCT login
    procedure Logout(); //perform a BXCT logout    
    procedure UpdateStatus(); //read the current status from the database

    //returns whether the instance is currently connected to the database or not
    function IsConnected() : Boolean;

  public

    constructor Create(connstr : string; level : integer); Overload;    
    constructor Create(connstr : string); Overload;

    // custom destructor
    procedure MyDestroy(Sender : TObject);

  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

constructor TDBConn.Create(connstr : string; level : integer);
  begin
    inherited Create(); //inherit default constructor

    //store connection info
    mConnStr := connstr;
    mLevel := level;

    //try database connection
    Init();
  end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var DB : TDBConn;

initialization
  TActiveFormFactory.Create(
    ComServer,
    TActiveFormControl,
    BXCT,
    Class_BXCT,
    1,
    '',
    OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
    tmApartment);

    DB := TDBConn.Create('test', 1);
end.