main.pas

ODAC 5.7.0.28

unit Main;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Forms, Dialogs,
  ToolWin,  Ora, DBAccess, Db, MemDS, OraScript, CoreLab.Odac.OdacVcl,
  Borland.Vcl.Grids, Borland.Vcl.DBGrids, Borland.Vcl.StdCtrls,
  Borland.Vcl.DBCtrls, Borland.Vcl.Controls, Borland.Vcl.ExtCtrls,
  System.ComponentModel, Borland.Vcl.ComCtrls;

type
  TfmMain = class(TForm)
    StatusBar1: TStatusBar;
    ToolBar: TPanel;
    DBGrid1: TDBGrid;
    Panel1: TPanel;
    DBGrid2: TDBGrid;
    DBGrid3: TDBGrid;
    Panel2: TPanel;
    btConnectProxy: TButton;
    DBNavigator1: TDBNavigator;
    btOpenProxy: TButton;
    btDisconnectProxy: TButton;
    btCreateUsers: TButton;
    btDropUsers: TButton;
    cbDebug: TCheckBox;
    DBNavigator2: TDBNavigator;
    btConnectClient1: TButton;
    btOpenClient1: TButton;
    btDisconnectClient1: TButton;
    DBNavigator3: TDBNavigator;
    btConnectClient2: TButton;
    btOpenClient2: TButton;
    btDisconnectClient2: TButton;
    ManagerSession: TOraSession;
    scCreateUsers: TOraScript;
    scDropUsers: TOraScript;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    OraProxySession: TOraSession;
    OraProxyQuery: TOraQuery;
    OraClientOneSession: TOraSession;
    OraClientTwoSession: TOraSession;
    OraClientOneQuery: TOraQuery;
    OraClientTwoQuery: TOraQuery;
    ConnectDialog1: TConnectDialog;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure cbDebugClick(Sender: TObject);
    procedure btConnectProxyClick(Sender: TObject);
    procedure btDisconnectProxyClick(Sender: TObject);
    procedure btOpenProxyClick(Sender: TObject);
    procedure btCreateUsersClick(Sender: TObject);
    procedure btDropUsersClick(Sender: TObject);
    procedure btConnectClient1Click(Sender: TObject);
    procedure btDisconnectClient1Click(Sender: TObject);
    procedure btOpenClient1Click(Sender: TObject);
    procedure btConnectClient2Click(Sender: TObject);
    procedure btDisconnectClient2Click(Sender: TObject);
    procedure btOpenClient2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.NFM}

procedure TfmMain.FormCreate(Sender: TObject);
begin
  OraClientOneSession.ProxySession := OraProxySession;
  OraClientTwoSession.ProxySession := OraProxySession;
  cbDebug.Checked := OraProxyQuery.Debug;
end;

procedure TfmMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  OraClientOneSession.Disconnect;
  OraClientTwoSession.Disconnect;
  OraProxySession.Disconnect;
end;

procedure TfmMain.cbDebugClick(Sender: TObject);
begin
  OraProxyQuery.Debug := cbDebug.Checked;
  OraClientOneQuery.Debug := cbDebug.Checked;
  OraClientTwoQuery.Debug := cbDebug.Checked;
  scCreateUsers.Debug := cbDebug.Checked;
  scDropUsers.Debug := cbDebug.Checked;
end;

procedure TfmMain.btConnectProxyClick(Sender: TObject);
begin
  OraProxySession.Connect;
end;

procedure TfmMain.btDisconnectProxyClick(Sender: TObject);
begin
   if OraClientOneSession.Connected or OraClientTwoSession.Connected then
     raise Exception.Create('You should disconnect all proxy clients first');
   OraProxySession.Disconnect;
end;

procedure TfmMain.btOpenProxyClick(Sender: TObject);
begin
  OraProxyQuery.Open;
end;

procedure TfmMain.btCreateUsersClick(Sender: TObject);
begin
  scCreateUsers.Execute;
end;

procedure TfmMain.btDropUsersClick(Sender: TObject);
begin
  scDropUsers.Execute;
end;

procedure TfmMain.btConnectClient1Click(Sender: TObject);
begin
  OraClientOneSession.Server := OraProxySession.Server;
  OraClientOneSession.Connect;
end;

procedure TfmMain.btDisconnectClient1Click(Sender: TObject);
begin
  OraClientOneSession.Disconnect;
end;

procedure TfmMain.btOpenClient1Click(Sender: TObject);
begin
  OraClientOneQuery.Open;
end;

procedure TfmMain.btConnectClient2Click(Sender: TObject);
begin
  OraClientTwoSession.Server := OraProxySession.Server;
  OraClientTwoSession.Connect;
end;

procedure TfmMain.btDisconnectClient2Click(Sender: TObject);
begin
  OraClientTwoSession.Disconnect;
end;

procedure TfmMain.btOpenClient2Click(Sender: TObject);
begin
  OraClientTwoQuery.Open;
end;

end.