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, Buttons, OdacVcl,
{$ELSE}
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs, QStdCtrls,
  QDBCtrls, QComCtrls, QExtCtrls, QGrids, QDBGrids, QButtons, OdacClx,
{$ENDIF}
  Db, OraErrHand, DBAccess, Ora, MemDS, OraSmart;

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    quMaster: TSmartQuery;
    DBGrid: TDBGrid;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    Splitter1: TSplitter;
    ToolBar1: TToolBar;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    quDetail: TSmartQuery;
    dsDetail: TDataSource;
    ConnectDialog: TConnectDialog;
    btCreateError: TButton;
    sqCreateErrorTable: TOraSQL;
    sqInsertMsg: TOraSQL;
    OraErrorHandler: TOraErrorHandler;
    dsMaster: TDataSource;
    cbDebug: TCheckBox;
    ToolButton1: TToolButton;
    cbDebug1: TCheckBox;
    ToolButton2: TToolButton;
    cbUseNet: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btCreateErrorClick(Sender: TObject);
    procedure OraErrorHandlerError(Sender: TObject; E: Exception;
      ErrorCode: Integer; const ConstraintName: String; var Msg: String);
    procedure FormShow(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure cbDebug1Click(Sender: TObject);
    procedure cbUseNetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation
uses
  OraError;

{$R *.dfm}

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  quMaster.Open;
  //quDetail.Prepare;
  //quDetail.Open;
  quDetail.Execute;

  OraErrorHandler.Active:= True;
end;

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

procedure TfmMain.btCreateErrorClick(Sender: TObject);
begin
  sqCreateErrorTable.Execute;
  sqInsertMsg.Execute;
end;

procedure TfmMain.OraErrorHandlerError(Sender: TObject; E: Exception;
  ErrorCode: Integer; const ConstraintName: String; var Msg: String);
begin
  if E is EOraError then
    case ErrorCode of
      1005:  Msg:= 'Need password';
      1017:  Msg:= 'Invalid username or password';
      12203: Msg:= 'Need server name';
    end;
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbDebug.Checked := quMaster.Debug;
  cbDebug1.Checked := quDetail.Debug;
  cbUseNet.Checked := OraSession.Options.Net;  
end;

procedure TfmMain.cbDebugClick(Sender: TObject);
begin
  quMaster.Debug:= cbDebug.Checked;
  OraErrorHandler.Debug:= cbDebug.Checked;
  sqCreateErrorTable.Debug:= cbDebug.Checked;
  sqInsertMsg.Debug:= cbDebug.Checked;
end;

procedure TfmMain.cbDebug1Click(Sender: TObject);
begin
  quDetail.Debug:= cbDebug1.Checked;
end;

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

end.