main.dfm

ODAC 5.7.0.28

object fmMain: TfmMain
  Left = 211
  Top = 206
  Width = 668
  Height = 443
  HorzScrollBar.Range = 523
  VertScrollBar.Range = 211
  ActiveControl = meSQL
  AutoScroll = False
  Caption = 'Oracle Data Access Demo - using TOraSQL 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 Splitter1: TSplitter
    Left = 0
    Top = 189
    Width = 660
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Label1: TLabel
    Left = 491
    Top = 52
    Width = 32
    Height = 13
    Caption = 'Label1'
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 660
    Height = 27
    Align = alTop
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 396
      Top = 2
      Width = 31
      Caption = 'ToolButton1'
      ImageIndex = 0
      Style = tbsSeparator
    end
    object btConnect: TButton
      Left = 0
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Connect'
      TabOrder = 0
      OnClick = btConnectClick
    end
    object btDisconnect: TButton
      Left = 75
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Disconnect'
      TabOrder = 1
      OnClick = btDisconnectClick
    end
    object btExecute: TButton
      Left = 150
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Execute'
      TabOrder = 2
      OnClick = btExecuteClick
    end
    object btBreak: TButton
      Left = 225
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Break'
      TabOrder = 5
      OnClick = btBreakClick
    end
    object btParType: TButton
      Left = 300
      Top = 2
      Width = 96
      Height = 24
      Caption = 'Params Type ...'
      TabOrder = 3
      OnClick = btParTypeClick
    end
    object cbNonBlocking: TCheckBox
      Left = 407
      Top = 3
      Width = 90
      Height = 22
      Caption = 'NonBlocking'
      TabOrder = 4
      OnClick = cbNonBlockingClick
    end
    object cbUseNet: TCheckBox
      Left = 497
      Top = 5
      Width = 76
      Height = 17
      Caption = 'Use Net'
      TabOrder = 6
      OnClick = cbUseNetClick
    end
    object cbDebug: TCheckBox
      Left = 577
      Top = 5
      Width = 76
      Height = 17
      Caption = 'Debug'
      TabOrder = 7
      OnClick = cbDebugClick
    end
  end
  object meSQL: TMemo
    Left = 0
    Top = 27
    Width = 660
    Height = 162
    Align = alTop
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 11
    Font.Name = 'MS Sans Serif'
    Font.Pitch = fpVariable
    Font.Style = []
    Lines.Strings = (
      'declare'
      '  C NUMBER;'
      'begin'
      '  SELECT Count(*)'
      '    INTO :C'
      '    FROM Scott.Dept;'
      'end;')
    ParentFont = False
    TabOrder = 1
    OnExit = meSQLExit
  end
  object meResult: TMemo
    Left = 0
    Top = 192
    Width = 660
    Height = 205
    TabStop = False
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = 12
    Font.Name = 'Courier New'
    Font.Pitch = fpVariable
    Font.Style = []
    ParentFont = False
    ReadOnly = True
    TabOrder = 2
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 397
    Width = 660
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object OraSession: TOraSession
    Username = 'Scott'
    Password = 'tiger'
    Server = 'ora'
    ConnectDialog = ConnectDialog
    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 = 472
    Top = 32
  end
  object OraSQL: TOraSQL
    Session = OraSession
    SQL.Strings = (
      'UPDATE Large1'
      '  SET Field8 = Field9'
      '  WHERE Code < 1000')
    Debug = True
    AfterExecute = OraSQLAfterExecute
    Left = 504
    Top = 32
  end
end