main.pas

ODAC 5.7.0.28

unit Main;

interface

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

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    ToolBar: TPanel;
    btConnect: TButton;
    btDisconnect: TButton;
    ConnectDialog: TConnectDialog;
    meSQL: TMemo;
    btExecute: TButton;
    OraSQL: TOraSQL;
    meResult: TMemo;
    Splitter1: TSplitter;
    btParType: TButton;
    cbNonBlocking: TCheckBox;
    ToolButton1: TToolButton;
    StatusBar: TStatusBar;
    btBreak: TButton;
    Label1: TLabel;
    cbUseNet: TCheckBox;
    cbDebug: TCheckBox;
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure btExecuteClick(Sender: TObject);
    procedure meSQLExit(Sender: TObject);
    procedure btParTypeClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure OraSQLAfterExecute(Sender: TObject; Result: Boolean);
    procedure cbNonBlockingClick(Sender: TObject);
    procedure btBreakClick(Sender: TObject);
    procedure cbUseNetClick(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

uses ParamType;

{$R *.dfm}

procedure TfmMain.FormShow(Sender: TObject);
begin
  fmParamType.OraSQL := OraSQL;
  OraSQL.SQL := meSQL.Lines;
  cbNonBlocking.Checked := OraSQL.NonBlocking;
  cbUseNet.Checked := OraSession.Options.Net;
  cbDebug.Checked := OraSQL.Debug;
end;

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

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

procedure TfmMain.btExecuteClick(Sender: TObject);
var
  i:integer;
  Untyped:boolean;
begin
  Untyped := False;
  for i := 0 to OraSQL.Params.Count-1 do
    if OraSQL.Params[i].DataType = ftUnknown then begin
      Untyped := True;
    end;

  if Untyped then
    fmParamType.ShowModal;

  StatusBar.Panels[0].Text := 'Executing...';
  OraSQL.Execute;
end;

procedure TfmMain.meSQLExit(Sender: TObject);
begin
  OraSQL.SQL := meSQL.Lines;
end;

procedure TfmMain.btParTypeClick(Sender: TObject);
begin
  fmParamType.ShowModal;
end;

procedure TfmMain.OraSQLAfterExecute(Sender: TObject; Result: Boolean);
var
  i:integer;
begin
  if Result then begin
    StatusBar.Panels[0].Text := 'Success' + '  (' + IntToStr(OraSQL.RowsProcessed) +
      ' rows processed)';
    meResult.Lines.Clear;
    for i := 0 to OraSQL.Params.Count-1 do begin
      meResult.Lines.Add(OraSQL.Params[i].Name + ' = ' +
       OraSQL.Params[i].AsString);
    end;
  end
  else
    StatusBar.Panels[0].Text := 'Fail';
{$IFDEF MSWINDOWS}
  MessageBeep(MB_OK);
{$ENDIF}  
end;

procedure TfmMain.cbNonBlockingClick(Sender: TObject);
begin
  OraSQL.NonBlocking := cbNonBlocking.Checked;
end;

procedure TfmMain.btBreakClick(Sender: TObject);
begin
  OraSQL.BreakExec;
end;

{
declare
  C NUMBER;
begin
  SELECT Count(*)
    INTO :C
    FROM Scott.Dept;
end;
}

procedure TfmMain.cbUseNetClick(Sender: TObject);
begin
  OraSession.Options.Net := cbUseNet.Checked;
end;

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

end.