bdesess.pas

Oracle Data Access Components Source Code ODAC v.6.70.0.45

unit BDESess;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Ora, BDESession, DBTables, StdCtrls, Db, MemDS, Grids, DBGrids,
  ExtCtrls, OraSmart, OraClasses, Buttons, ComCtrls, DBAccess, OdacVcl,
  OdacDemoForm, OdacDemoFrame;

type
  TBDESessionFrame = class(TOdacDemoFrame)
    Database: TDatabase;
    dsODAC: TDataSource;
    OraQuery: TOraQuery;
    gdODAC: TDBGrid;
    Query: TQuery;
    dsBDE: TDataSource;
    DBGrid1: TDBGrid;
    pnODAC: TPanel;
    Label1: TLabel;
    pnBDE: TPanel;
    Label2: TLabel;
    ConnectDialog1: TConnectDialog;
    BDESession: TBDESession;
    Panel1: TPanel;
    Panel2: TPanel;
    btCloseBDE: TSpeedButton;
    btOpenBDE: TSpeedButton;
    btDisconnectBDE: TSpeedButton;
    btConnectBDE: TSpeedButton;
    btConnect: TSpeedButton;
    btDisconnect: TSpeedButton;
    btOpenODAC: TSpeedButton;
    btCloseODAC: TSpeedButton;
    Splitter1: TSplitter;
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure btOpenODACClick(Sender: TObject);
    procedure btCloseODACClick(Sender: TObject);
    procedure btOpenBDEClick(Sender: TObject);
    procedure btCloseBDEClick(Sender: TObject);
    procedure btConnectBDEClick(Sender: TObject);
    procedure btDisconnectBDEClick(Sender: TObject);
    procedure BDESessionConnectChange(Sender: TObject; Connected: Boolean);
  private
    procedure ShowState;

  public
    { Public declarations }
    constructor Create(aOwner:TComponent); override;
  public
    procedure SetDebug(Value: boolean); override;
  end;

implementation
uses
  OraCall, BDE;

{$R *.dfm}

constructor TBDESessionFrame.Create(aOwner:TComponent);
begin
  inherited Create(aOwner);
end;

procedure TBDESessionFrame.ShowState;
begin
  if csDestroying in ComponentState then
    Exit;

  if BDESession.Connected then
    OdacForm.StatusBar.Panels[1].Text:= 'ODAC Connected'
  else
    OdacForm.StatusBar.Panels[1].Text:= '';

  if Database.Connected then
    OdacForm.StatusBar.Panels[2].Text:= 'BDE Connected'
  else
    OdacForm.StatusBar.Panels[2].Text:= '';
end;

procedure TBDESessionFrame.btConnectClick(Sender: TObject);
begin
  BDESession.Connect;
end;

procedure TBDESessionFrame.btDisconnectClick(Sender: TObject);
begin
  BDESession.Disconnect;
end;

procedure TBDESessionFrame.btOpenODACClick(Sender: TObject);
begin
  OraQuery.Open;
end;

procedure TBDESessionFrame.btCloseODACClick(Sender: TObject);
begin
  OraQuery.Close;
end;

procedure TBDESessionFrame.btConnectBDEClick(Sender: TObject);
begin
  Database.Open;
  ShowState
end;

procedure TBDESessionFrame.btDisconnectBDEClick(Sender: TObject);
begin
  Database.Close;
  ShowState
end;

procedure TBDESessionFrame.btOpenBDEClick(Sender: TObject);
begin
  Query.Open;
  ShowState
end;

procedure TBDESessionFrame.btCloseBDEClick(Sender: TObject);
begin
  Query.Close;
end;

procedure TBDESessionFrame.SetDebug(Value: boolean);
begin
  OraQuery.Debug := Value;
end;

procedure TBDESessionFrame.BDESessionConnectChange(Sender: TObject;
  Connected: Boolean);
begin
  ShowState;
end;

initialization
end.