cursor.pas

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

unit Cursor;

interface

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

type
  TCursorFrame = class(TOdacDemoFrame)
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ToolBar: TPanel;
    Query: TOraQuery;
    OraSQL: TOraSQL;
    Panel1: TPanel;
    btOpen: TSpeedButton;
    btClose: TSpeedButton;
    DBNavigator: TDBNavigator;
    btGetCursor: TSpeedButton;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btGetCursorClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Initialize; override;
    procedure SetDebug(Value: boolean); override;
  end;

implementation
uses
  OraCall;

{$IFDEF CLR}
{$R *.nfm}
{$ENDIF}
{$IFDEF WIN32}
{$R *.dfm}
{$ENDIF}
{$IFDEF LINUX}
{$R *.xfm}
{$ENDIF}

procedure TCursorFrame.btOpenClick(Sender: TObject);
begin
  Query.Open;
end;

procedure TCursorFrame.btCloseClick(Sender: TObject);
begin
  Query.Close;
end;
{
begin
  OPEN :Cur FOR
    SELECT D.*, D.RowId
    FROM Scott.Dept D;
end;
}
procedure TCursorFrame.btGetCursorClick(Sender: TObject);
begin
  Query.Close;
  OraSQL.Execute;
  Query.Cursor := OraSQL.ParamByName('Cur').AsCursor;
  Query.Open;
end;

procedure TCursorFrame.Initialize;
begin
  inherited;

  Query.Connection := Connection;
  OraSQL.Connection :=Connection;
end;

procedure TCursorFrame.SetDebug(Value: boolean);
begin
  Query.Debug := Value;
  OraSQL.Debug :=Value;
end;

end.