main.pas

ODAC 5.7.0.28

unit Main;

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;

type
  TfmMain = class(TForm)
    Database: TDatabase;
    dsODAC: TDataSource;
    OraQuery: TOraQuery;
    gdODAC: TDBGrid;
    Query: TQuery;
    dsBDE: TDataSource;
    DBGrid1: TDBGrid;
    pnODAC: TPanel;
    btOpenODAC: TButton;
    Label1: TLabel;
    btCloseODAC: TButton;
    pnBDE: TPanel;
    Label2: TLabel;
    btOpenBDE: TButton;
    btCloseBDE: TButton;
    Bevel1: TBevel;
    ConnectDialog1: TConnectDialog;
    BDESession: TBDESession;
    btConnectBDE: TButton;
    btDisconnectBDE: TButton;
    btConnect: TButton;
    btDisconnect: TButton;
    cbConnectPrompt: TCheckBox;
    cbLoginPrompt: TCheckBox;
    StatusBar1: TStatusBar;
    StatusBar2: TStatusBar;
    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 cbConnectPromptClick(Sender: TObject);
    procedure cbLoginPromptClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BDESessionConnectChange(Sender: TObject; Connected: Boolean);
  private
    procedure ShowState;

  public
    { Public declarations }
    constructor Create(aOwner:TComponent); override;
  end;

var
  fmMain: TfmMain;

implementation
uses
  OraCall, BDE;

{$R *.DFM}

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

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

  if BDESession.Connected then
    StatusBar1.Panels[0].Text:= 'Connected'
  else
    StatusBar1.Panels[0].Text:= '';

  if Database.Connected then
    StatusBar2.Panels[0].Text:= 'Connected'
  else
    StatusBar2.Panels[0].Text:= '';
end;

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

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

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

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

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

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

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

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

procedure TfmMain.cbConnectPromptClick(Sender: TObject);
begin
  BDESession.ConnectPrompt:= cbConnectPrompt.Checked;
end;

procedure TfmMain.cbLoginPromptClick(Sender: TObject);
begin
  Database.LoginPrompt:= cbLoginPrompt.Checked;
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbConnectPrompt.Checked:= BDESession.ConnectPrompt;
  cbLoginPrompt.Checked:= Database.LoginPrompt;
end;

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

initialization
end.