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, QButtons,
  DBAccess, DB,
{$ELSE}
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  DBCtrls, ExtCtrls, Grids, DBGrids, StdCtrls, ToolWin, ComCtrls, OdacVcl, Buttons,
  DBAccess, DB, 
{$ENDIF}
  Ora, MemDS, OraSmart;

type
  TfmMain = class(TForm)
    OraSession: TOraSession;
    DBGrid: TDBGrid;
    DataSource: TDataSource;
    ToolBar: TPanel;
    btOpen: TButton;
    DBNavigator: TDBNavigator;
    btClose: TButton;
    Memo: TMemo;
    SmartQuery: TSmartQuery;
    ConnectDialog: TConnectDialog;
    btConnect: TButton;
    btDisconnect: TButton;
    cbFetchAll: TCheckBox;
    edFetchRows: TEdit;
    cbDebug: TCheckBox;
    StaticText1: TLabel;
    cbLock: TComboBox;
    cbCheck: TComboBox;
    cbExpand: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Bevel1: TBevel;
    btView: TSpeedButton;
    cbAutoCommit: TCheckBox;
    edKeyFields: TEdit;
    Label4: TLabel;
    cbFullRefresh: TCheckBox;
    btLock: TButton;
    btRefreshRecord: TButton;
    cbDMLRefresh: TCheckBox;
    StatusBar: TStatusBar;
    edFilter: TEdit;
    Label5: TLabel;
    cbFiltered: TCheckBox;
    Splitter1: TSplitter;
    cbRefreshBeforeEdit: TCheckBox;
    cbRefreshAfterInsert: TCheckBox;
    cbRefreshAfterUpdate: TCheckBox;
    cbUseNet: TCheckBox;
    procedure btOpenClick(Sender: TObject);
    procedure btCloseClick(Sender: TObject);
    procedure btConnectClick(Sender: TObject);
    procedure btDisconnectClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure cbFetchAllClick(Sender: TObject);
    procedure edFetchRowsExit(Sender: TObject);
    procedure cbDebugClick(Sender: TObject);
    procedure cbLockChange(Sender: TObject);
    procedure cbCheckChange(Sender: TObject);
    procedure cbExpandClick(Sender: TObject);
    procedure btViewClick(Sender: TObject);
    procedure cbAutoCommitClick(Sender: TObject);
    procedure edKeyFieldsExit(Sender: TObject);
    procedure cbFullRefreshClick(Sender: TObject);
    procedure btLockClick(Sender: TObject);
    procedure btRefreshRecordClick(Sender: TObject);
    procedure cbDMLRefreshClick(Sender: TObject);
    procedure DataSourceDataChange(Sender: TObject; Field: TField);
    procedure DataSourceStateChange(Sender: TObject);
    procedure edFilterExit(Sender: TObject);
    procedure cbFilteredClick(Sender: TObject);
    procedure cbRefreshBeforeEditClick(Sender: TObject);
    procedure cbRefreshAfterInsertClick(Sender: TObject);
    procedure cbRefreshAfterUpdateClick(Sender: TObject);
    procedure cbUseNetClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmMain: TfmMain;

implementation

{$R *.nfm}

procedure TfmMain.btOpenClick(Sender: TObject);
begin
  SmartQuery.SQL.Assign(Memo.Lines);

  SmartQuery.Open;
  btView.Enabled := True;
end;

procedure TfmMain.btCloseClick(Sender: TObject);
begin
  SmartQuery.Close;
  btView.Enabled := False;
end;

procedure TfmMain.btConnectClick(Sender: TObject);
begin
  OraSession.Connect;
end;

procedure TfmMain.btDisconnectClick(Sender: TObject);
begin
  OraSession.Disconnect;
  btView.Enabled := False;
end;

procedure TfmMain.FormShow(Sender: TObject);
begin
  cbDebug.Checked := SmartQuery.Debug;
  cbFetchAll.Checked := SmartQuery.FetchAll;
  edFetchRows.Text := IntToStr(SmartQuery.FetchRows);
  cbAutoCommit.Checked := SmartQuery.AutoCommit;

  cbLock.ItemIndex := Integer(SmartQuery.LockMode);
  cbCheck.ItemIndex := Integer(SmartQuery.CheckMode);
  cbRefreshBeforeEdit.Checked := roBeforeEdit in SmartQuery.RefreshOptions;
  cbRefreshAfterInsert.Checked := roAfterInsert in SmartQuery.RefreshOptions;
  cbRefreshAfterUpdate.Checked := roAfterUpdate in SmartQuery.RefreshOptions;
  cbExpand.Checked := SmartQuery.Expand;
  cbFullRefresh.Checked := SmartQuery.FullRefresh;
  cbDMLRefresh.Checked := SmartQuery.DMLRefresh;

  edKeyFields.Text := SmartQuery.KeyFields;

  edFilter.Text := SmartQuery.Filter;
  cbFiltered.Checked := SmartQuery.Filtered;
  
  cbUseNet.Checked := OraSession.Options.Net;

  Memo.Lines.Text := SmartQuery.SQL.Text;
end;

procedure TfmMain.cbFetchAllClick(Sender: TObject);
begin
  SmartQuery.FetchAll := cbFetchAll.Checked;
end;

procedure TfmMain.edFetchRowsExit(Sender: TObject);
begin
  try
    SmartQuery.FetchRows := StrToInt(edFetchRows.Text);
  except
    ActiveControl := edFetchRows;
    raise;
  end;
end;

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


procedure TfmMain.cbLockChange(Sender: TObject);
begin
  SmartQuery.LockMode := TLockMode(cbLock.ItemIndex);
end;

procedure TfmMain.cbCheckChange(Sender: TObject);
begin
  SmartQuery.CheckMode := TCheckMode(cbCheck.ItemIndex);
end;

procedure TfmMain.cbExpandClick(Sender: TObject);
begin
  try
    SmartQuery.Expand := cbExpand.Checked;
  except
    cbExpand.Checked := SmartQuery.Expand;
    raise;
  end;
end;

procedure TfmMain.btViewClick(Sender: TObject);
begin
  SmartQuery.View;
end;

procedure TfmMain.cbAutoCommitClick(Sender: TObject);
begin
  SmartQuery.AutoCommit := cbAutoCommit.Checked;
end;

procedure TfmMain.edKeyFieldsExit(Sender: TObject);
begin
  try
    SmartQuery.KeyFields := edKeyFields.Text;
  finally
    edKeyFields.Text := SmartQuery.KeyFields;
  end;
end;

procedure TfmMain.cbFullRefreshClick(Sender: TObject);
begin
  SmartQuery.FullRefresh := cbFullRefresh.Checked;
end;

procedure TfmMain.btLockClick(Sender: TObject);
begin
  SmartQuery.Lock;
end;

procedure TfmMain.btRefreshRecordClick(Sender: TObject);
begin
  SmartQuery.RefreshRecord;
end;

procedure TfmMain.cbDMLRefreshClick(Sender: TObject);
begin
  SmartQuery.DMLRefresh := cbDMLRefresh.Checked;
end;

procedure TfmMain.DataSourceStateChange(Sender: TObject);
begin
  StatusBar.Panels[0].Text := 'RecordCount:' + IntToStr(SmartQuery.RecordCount);
  StatusBar.Panels[1].Text := 'RecordNo:' + IntToStr(SmartQuery.RecNo);
end;

procedure TfmMain.DataSourceDataChange(Sender: TObject; Field: TField);
begin
  DataSourceStateChange(nil);
end;

procedure TfmMain.edFilterExit(Sender: TObject);
begin
  SmartQuery.Filter := edFilter.Text;
end;

procedure TfmMain.cbFilteredClick(Sender: TObject);
begin
  SmartQuery.Filtered := cbFiltered.Checked;
end;

procedure TfmMain.cbRefreshBeforeEditClick(Sender: TObject);
begin
  if cbRefreshBeforeEdit.Checked then
    SmartQuery.RefreshOptions := SmartQuery.RefreshOptions + [roBeforeEdit]
  else
    SmartQuery.RefreshOptions := SmartQuery.RefreshOptions - [roBeforeEdit];
end;

procedure TfmMain.cbRefreshAfterInsertClick(Sender: TObject);
begin
  if cbRefreshAfterInsert.Checked then
    SmartQuery.RefreshOptions := SmartQuery.RefreshOptions + [roAfterInsert]
  else
    SmartQuery.RefreshOptions := SmartQuery.RefreshOptions - [roAfterInsert];
end;

procedure TfmMain.cbRefreshAfterUpdateClick(Sender: TObject);
begin
  if cbRefreshAfterUpdate.Checked then
    SmartQuery.RefreshOptions := SmartQuery.RefreshOptions + [roAfterUpdate]
  else
    SmartQuery.RefreshOptions := SmartQuery.RefreshOptions - [roAfterUpdate];
end;

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

initialization
{
SELECT
  E.EmpNo, E.EName, E.DeptNo, E.RowId, D.*
FROM
  Emp E, Dept D
WHERE
  E.DeptNo = D.DeptNo(+)
}
end.