main.pas

ODAC+SDAC源代码

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

type
  TfmMain = class(TForm)
    ToolBar1: TToolBar;
    btOpen: TButton;
    btClose: TButton;
    DBNavigator1: TDBNavigator;
    btCreate: TButton;
    btDrop: TButton;
    DBGrid: TDBGrid;
    dsData: TDataSource;
    Query: TSmartQuery;
    OraSession: TOraSession;
    ConnectDialog1: TConnectDialog;
    scCreate: TOraScript;
    scDrop: TOraScript;
    Panel: TPanel;
    cbObjectView: TCheckBox;
    cbDebug: TCheckBox;
    ToolButton1: TToolButton;
    Panel1: TPanel;
    Splitter1: TSplitter;
    DataSource1: TDataSource;
    DBNavigator2: TDBNavigator;
    OraNestedTableLeft: TOraNestedTable;
    OraNestedTable: TOraNestedTable;
    OraNestedTableRight: TOraNestedTable;
    Panel2: TPanel;
    DBGrid1: TDBGrid;
    DBGrid2: TDBGrid;
    DBNavigator3: TDBNavigator;
    DataSource2: TDataSource;
    DBGrid3: TDBGrid;
    btGetLeft: TButton;
    btGetRight: TButton;
    DataSource3: TDataSource;
    DBNavigator4: TDBNavigator;
    QuerySTR: TStringField;
    QueryNUM: TFloatField;
    QueryLEFT: TOraReferenceField;
    QueryRIGHT: TOraReferenceField;
    QueryROWID: TStringField;
    procedure btCreateClick(Sender: TObject);
    procedure btDropClick(Sender: TObject);
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbObjectViewClick(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure btGetLeftClick(Sender: TObject);
    procedure btGetRightClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation
uses
  OraCall, OraClasses, OraObjects;

{$R *.nfm}

procedure TfmMain.btCreateClick(Sender: TObject);
begin
  scCreate.Execute;
end;

procedure TfmMain.btDropClick(Sender: TObject);
begin
  scDrop.Execute;
end;

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  dsData.DataSet.Open;
  OraNestedTableLeft.Open;
  OraNestedTableRight.Open;
end;

procedure TfmMain.btCloseClick(Sender: TObject);
begin
  OraNestedTableRight.Close;
  OraNestedTableLeft.Close;  
  dsData.DataSet.Close;
end;

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

procedure TfmMain.cbObjectViewClick(Sender: TObject);
begin
  if not dsData.DataSet.Active then
    dsData.DataSet.ObjectView := cbObjectView.Checked
  else
    cbObjectView.Checked := dsData.DataSet.ObjectView;
end;

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

procedure TfmMain.Button1Click(Sender: TObject);
begin
{  OraSQL1.ParamByName('R').AsRef.ObjectType := TOraType(GetOraType(OraSession.OCISvcCtx, 'TRefObjectType'));
  OraSQL1.Execute;
  OraSQL1.ParamByName('R').AsRef.Pin;
  OraNestedTable2.Ref := OraSQL1.ParamByName('R').AsRef;
  OraNestedTable2.Open;}
end;

procedure TfmMain.btGetLeftClick(Sender: TObject);
begin
  OraNestedTable.Ref := Query.GetRef('Left');
  OraNestedTable.Open;
end;

procedure TfmMain.btGetRightClick(Sender: TObject);
begin
  OraNestedTable.Ref := Query.GetRef('Right');
  OraNestedTable.Open;
end;

end.