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

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    ToolBar: TPanel;
    btGet: TButton;
    ConnectDialog: TConnectDialog;
    sqGet: TOraSQL;
    Memo: TMemo;
    btPut: TButton;
    sqPut: TOraSQL;
    gdDept: TDBGrid;
    dsDept: TDataSource;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    btOpen: TButton;
    quDept: TOraQuery;
    StatusBar1: TStatusBar;
    cbUseNet: TCheckBox;
    cbDebug: TCheckBox;
    procedure btGetClick(Sender: TObject);
    procedure btPutClick(Sender: TObject);
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbUseNetClick(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

procedure TfmMain.btGetClick(Sender: TObject);
var
  St:string;
  i:integer;
begin
  sqGet.Execute;

  Memo.Lines.Clear;
  for i := 1 to sqGet.ParamByName('NameArr').Length do begin
    if sqGet.ParamByName('NameArr').ItemIsNull[i] then
      St:= ''
    else
      St:= sqGet.ParamByName('NameArr').ItemAsString[i];
    Memo.Lines.Add(St);
  end;
end;

procedure TfmMain.btPutClick(Sender: TObject);
var
  i:integer;
begin
  for i := 1 to sqGet.ParamByName('NameArr').Length do
    sqPut.ParamByName('NameArr').ItemAsString[i]:= Memo.Lines[i - 1];

  sqPut.Execute;

  if quDept.Active then
    quDept.Refresh
  else
    quDept.Open;
end;

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

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

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

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

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

end.