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, ToolWin, ComCtrls, OdacVcl,
{$ENDIF}
  Db, DBAccess, Ora, MemDS;

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    Query: TOraQuery;
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ToolBar: TToolBar;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    OraQuery1: TOraQuery;
    DataSource1: TDataSource;
    ConnectDialog: TConnectDialog;
    brGetCursor: TButton;
    ToolButton1: TToolButton;
    ToolButton3: TToolButton;
    btClose1: TButton;
    QueryDEPTNO: TIntegerField;
    QueryDNAME: TStringField;
    QueryLOC: TStringField;
    QueryEMPS: TCursorField;
    ToolButton2: TToolButton;
    OraSQL: TOraSQL;
    cbDebug: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure brGetCursorClick(Sender: TObject);
    procedure btClose1Click(Sender: TObject);
    procedure DBGridDrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure FormShow(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation
uses
  OraError;

{$R *.nfm}

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

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

procedure TfmMain.brGetCursorClick(Sender: TObject);
begin
  OraQuery1.Cursor:=
    TCursorField(Query.FieldByName('Emps')).AsCursor;
  OraQuery1.Open;
  DBGrid.Repaint;
end;

procedure TfmMain.btClose1Click(Sender: TObject);
begin
  OraQuery1.Close;
end;

procedure TfmMain.DBGridDrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
  if (Field is TCursorField) and not TCursorField(Field).AsCursor.CanFetch then
    TDBGrid(Sender).Canvas.Brush.Color:= clRed;
  TDBGrid(Sender).DefaultDrawDataCell(Rect, Field, State);
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbDebug.Checked := Query.Debug;
end;

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

end.