main.dfm

ODAC 5.7.0.28

object fmMain: TfmMain
  Left = 158
  Top = 195
  Width = 761
  Height = 479
  VertScrollBar.Range = 82
  ActiveControl = btOpen
  AutoScroll = False
  Caption = 'Oracle Data Access Demo - using TOraQuery component'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object DBGrid: TDBGrid
    Left = 0
    Top = 139
    Width = 753
    Height = 294
    Align = alClient
    DataSource = DataSource
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 753
    Height = 24
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object btOpen: TButton
      Left = 0
      Top = 0
      Width = 70
      Height = 24
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 70
      Top = 0
      Width = 69
      Height = 24
      Caption = 'Close'
      TabOrder = 1
      OnClick = btCloseClick
    end
    object btPrepare: TButton
      Left = 139
      Top = 0
      Width = 70
      Height = 24
      Caption = 'Prepare'
      TabOrder = 2
      OnClick = btPrepareClick
    end
    object btUnPrepare: TButton
      Left = 209
      Top = 0
      Width = 70
      Height = 24
      Caption = 'UnPrepare'
      TabOrder = 3
      OnClick = btUnPrepareClick
    end
    object btExecute: TButton
      Left = 279
      Top = 0
      Width = 69
      Height = 24
      Caption = 'Execute'
      TabOrder = 4
      OnClick = btExecuteClick
    end
    object btBreak: TButton
      Left = 348
      Top = 0
      Width = 70
      Height = 24
      Caption = 'Break'
      TabOrder = 5
      OnClick = btBreakClick
    end
    object cbNonBlocking: TCheckBox
      Left = 430
      Top = 4
      Width = 90
      Height = 16
      Caption = 'NonBlocking'
      TabOrder = 6
      OnClick = cbNonBlockingClick
    end
    object cbFetchAll: TCheckBox
      Left = 522
      Top = 4
      Width = 79
      Height = 16
      Caption = 'FetchAll'
      TabOrder = 7
      OnClick = cbFetchAllClick
    end
    object cbUseNet: TCheckBox
      Left = 610
      Top = 4
      Width = 89
      Height = 16
      Caption = 'Use Net'
      TabOrder = 8
      OnClick = cbUseNetClick
    end
  end
  object meSQL: TMemo
    Left = 0
    Top = 24
    Width = 753
    Height = 91
    Align = alTop
    ScrollBars = ssVertical
    TabOrder = 0
    OnExit = meSQLExit
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 433
    Width = 753
    Height = 19
    Panels = <
      item
        Text = 'State'
        Width = 200
      end>
    SimplePanel = False
  end
  object Panel1: TPanel
    Left = 0
    Top = 115
    Width = 753
    Height = 24
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
    object DBNavigator1: TDBNavigator
      Left = 0
      Top = 0
      Width = 220
      Height = 24
      DataSource = DataSource
      TabOrder = 0
    end
    object btLock: TButton
      Left = 236
      Top = 0
      Width = 70
      Height = 24
      Caption = 'Lock'
      TabOrder = 1
      OnClick = btLockClick
    end
    object btRefreshRecord: TButton
      Left = 306
      Top = 0
      Width = 94
      Height = 24
      Caption = 'RefreshRecord'
      TabOrder = 2
      OnClick = btRefreshRecordClick
    end
    object cbDebug: TCheckBox
      Left = 492
      Top = 4
      Width = 59
      Height = 16
      Caption = 'Debug'
      TabOrder = 3
      OnClick = cbDebugClick
    end
    object btShowState: TButton
      Left = 400
      Top = 0
      Width = 70
      Height = 24
      Caption = 'ShowState'
      TabOrder = 4
      OnClick = btShowStateClick
    end
  end
  object OraSession: TOraSession
    Username = 'Scott'
    Password = 'tiger'
    ConnectDialog = ConnectDialog
    Left = 344
    Top = 32
  end
  object OraQuery: TOraQuery
    SQLInsert.Strings = (
      'INSERT INTO Scott.Dept'
      '  (DEPTNO, DNAME, LOC)'
      'VALUES'
      '  (:DEPTNO, :DNAME, :LOC)')
    SQLDelete.Strings = (
      'DELETE FROM Scott.Dept'
      'WHERE'
      '  DEPTNO = :DEPTNO')
    SQLUpdate.Strings = (
      'UPDATE Scott.Dept'
      'SET'
      '  DEPTNO = :DEPTNO,'
      '  DNAME = :DNAME,'
      '  LOC = :LOC'
      'WHERE'
      '  DEPTNO = :OLD_DEPTNO')
    SQLLock.Strings = (
      'SELECT * FROM Scott.Dept'
      'WHERE'
      '  DEPTNO = :DEPTNO'
      'FOR UPDATE NOWAIT')
    SQLRefresh.Strings = (
      'WHERE'
      '  D1.DEPTNO = :DEPTNO')
    Session = OraSession
    SQL.Strings = (
      'SELECT D1.*,D2.DName'
      'FROM'
      '  Scott.Dept D1, Scott.Dept D2'
      'WHERE'
      '  D1.DeptNo = D2.DeptNo')
    Debug = True
    LockMode = lmLockImmediate
    RefreshOptions = [roAfterInsert, roAfterUpdate]
    AfterExecute = OraQueryAfterExecute
    Left = 408
    Top = 32
  end
  object DataSource: TDataSource
    DataSet = OraQuery
    Left = 440
    Top = 32
  end
  object ConnectDialog: TConnectDialog
    SavePassword = True
    Caption = 'Connect'
    UsernameLabel = 'Username'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    LabelSet = lsCustom
    Left = 376
    Top = 32
  end
end