main.pas

ODAC 5.7.0.28

unit Main;

interface

uses
{$IFDEF LINUX}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids, OdacClx,
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ComCtrls, OdacVcl,
{$ENDIF}
  Db, DASQLMonitor, OraSQLMonitor, DBAccess, Ora, MemDS, OraSmart;

type
  TfmMain = class(TForm)
    OraSession1: TOraSession;
    Query1: TSmartQuery;
    DataSource1: TDataSource;
    ConnectDialog1: TConnectDialog;
    Panel1: TPanel;
    DBGrid1: TDBGrid;
    Splitter1: TSplitter;
    ToolBar1: TPanel;
    ToolBar: TPanel;
    btOpen: TButton;
    btClose: TButton;
    DBNavigator1: TDBNavigator;
    Panel2: TPanel;
    DBGrid2: TDBGrid;
    ToolBar2: TPanel;
    DBNavigator2: TDBNavigator;
    DataSource2: TDataSource;
    OraSession2: TOraSession;
    Query2: TSmartQuery;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    btCommit: TButton;
    cbAutoCommit: TCheckBox;
    OraSQLMonitor1: TOraSQLMonitor;
    cbDebug: TCheckBox;
    edInterval: TEdit;
    Label3: TLabel;
    cbUseSameEvent: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure Query1AfterSmartRefresh(DataSet: TDataSet);
    procedure Query2AfterSmartRefresh(DataSet: TDataSet);
    procedure btCommitClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure cbAutoCommitClick(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure edIntervalExit(Sender: TObject);
    procedure cbUseSameEventClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  Query1.Open;
  if not OraSession2.Connected then begin
    OraSession2.Assign(OraSession1);
    OraSession2.Connect;
  end;
  Query2.Open;
end;

procedure TfmMain.btCloseClick(Sender: TObject);
begin
  Query1.Close;
  Query2.Close;
end;

procedure TfmMain.Query1AfterSmartRefresh(DataSet: TDataSet);
begin
  MessageBeep(1);
end;

procedure TfmMain.Query2AfterSmartRefresh(DataSet: TDataSet);
begin
  MessageBeep(1);
end;

procedure TfmMain.btCommitClick(Sender: TObject);
begin
  OraSession1.Commit;
  OraSession2.Commit;
end;

procedure TfmMain.FormCreate(Sender: TObject);
begin
  cbAutoCommit.Checked := Query1.AutoCommit;
  cbDebug.Checked := Query1.Debug;
  edInterval.Text := IntToStr(OraSmart.RefreshInterval);
  cbUseSameEvent.Checked := True;  
end;

procedure TfmMain.cbAutoCommitClick(Sender: TObject);
begin
  Query1.AutoCommit := cbAutoCommit.Checked;
  Query2.AutoCommit := cbAutoCommit.Checked;
end;

procedure TfmMain.cbDebugClick(Sender: TObject);
begin
  Query1.Debug := cbDebug.Checked;
  Query2.Debug := cbDebug.Checked;
end;

procedure TfmMain.edIntervalExit(Sender: TObject);
begin
  OraSmart.RefreshInterval := StrToInt(edInterval.Text);
end;

procedure TfmMain.cbUseSameEventClick(Sender: TObject);
begin
  if cbUseSameEvent.Checked then begin
    Query1.RefreshEvent := 'ODAC';
    Query1.DependEvents := 'ODAC';
    Query2.RefreshEvent := 'ODAC';
    Query2.DependEvents := 'ODAC';
  end
  else begin
    Query1.RefreshEvent := Query1.Name;
    Query1.DependEvents := Query1.Name;
    Query2.RefreshEvent := Query2.Name;
    Query2.DependEvents := Query2.Name;
  end;
end;

end.