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, MemDS, DBAccess, Ora, OraSmart;

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ConnectDialog: TConnectDialog;
    ToolBar: TPanel;
    btOpen: TButton;
    btClose: TButton;
    btPrepare: TButton;
    btUnPrepare: TButton;
    btExecute: TButton;
    DBNavigator: TDBNavigator;
    StatusBar: TStatusBar;
    Panel1: TPanel;
    edTableName: TEdit;
    Label1: TLabel;
    OraTable: TOraTable;
    Label2: TLabel;
    Label3: TLabel;
    edKeyFields: TEdit;
    edOrderFields: TEdit;
    cbDebug: TCheckBox;
    edFilterSQL: TEdit;
    Label4: TLabel;
    cbUseNet: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btPrepareClick(Sender: TObject);
    procedure btUnPrepareClick(Sender: TObject);
    procedure btExecuteClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure edTableNameExit(Sender: TObject);
    procedure edKeyFieldsExit(Sender: TObject);
    procedure edOrderFieldsExit(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure edFilterSQLExit(Sender: TObject);
    procedure cbUseNetClick(Sender: TObject);
  private
    { Private declarations }
    procedure ShowState;
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

procedure TfmMain.ShowState;
var
  St:string;

  procedure AddSt(S:string);
  begin
    if St <> '' then
      St:= St + ', ';
    St:= St + S;
  end;

begin
  St:= '';

  if OraTable.Prepared then begin
    AddSt('Prepared');

    if OraTable.IsQuery then
      AddSt('IsQuery');

    if OraTable.IsPLSQL then
      AddSt('IsPLSQL');
  end;

  if OraTable.Active then
    AddSt('Active')
  else
    AddSt('Inactive');

  StatusBar.Panels[0].Text:= St;
end;

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  try
    OraTable.Open;
  finally
    edKeyFields.Text:= OraTable.KeyFields;  
    ShowState;
  end;
end;

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

procedure TfmMain.btPrepareClick(Sender: TObject);
begin
  try
    OraTable.Prepare;
  finally
    edKeyFields.Text:= OraTable.KeyFields;  
    ShowState;
  end;
end;

procedure TfmMain.btUnPrepareClick(Sender: TObject);
begin
  OraTable.UnPrepare;
  ShowState;
end;

procedure TfmMain.btExecuteClick(Sender: TObject);
begin
  try
    OraTable.Execute;
  finally
    edKeyFields.Text:= OraTable.KeyFields;  
    ShowState;
  end;
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  edTableName.Text:= OraTable.TableName;
  edKeyFields.Text:= OraTable.KeyFields;
  edOrderFields.Text:= OraTable.OrderFields;
  edFilterSQL.Text:= OraTable.FilterSQL;  
  cbDebug.Checked:= OraTable.Debug;
  cbUseNet.Checked := OraSession.Options.Net;  
  ShowState;
end;

procedure TfmMain.edTableNameExit(Sender: TObject);
begin
  OraTable.TableName:= edTableName.Text;
  edKeyFields.Text:= OraTable.KeyFields;
  ShowState;
end;

procedure TfmMain.edKeyFieldsExit(Sender: TObject);
begin
  OraTable.KeyFields:= edKeyFields.Text;
  ShowState;
end;

procedure TfmMain.edOrderFieldsExit(Sender: TObject);
begin
  OraTable.OrderFields:= edOrderFields.Text;
  edKeyFields.Text:= OraTable.KeyFields;
  ShowState;
end;

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

procedure TfmMain.edFilterSQLExit(Sender: TObject);
begin
  try
    OraTable.FilterSQL:= edFilterSQL.Text;
  finally
    edFilterSQL.Text:= OraTable.FilterSQL;
    ShowState;
  end;
end;

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

end.