dmlarray.xfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited DMLArrayFrame: TDMLArrayFrame
  HorzScrollBar.Range = 61
  VertScrollBar.Range = 192
  object Splitter1: TSplitter
    Left = 0
    Top = 170
    Width = 451
    Height = 3
    Cursor = crVSplit
    Align = alTop
    Beveled = True
    Color = 170
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 451
    Height = 26
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 4
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 574
      Height = 24
      BevelOuter = bvNone
      Color = 170
      TabOrder = 0
      object btPut: TSpeedButton
        Left = 250
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Put Names'
        Flat = True
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
        Transparent = False
        OnClick = btPutClick
      end
      object btGet: TSpeedButton
        Left = 167
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Get Names'
        Flat = True
        Font.Color = clText
        Font.Height = 11
        Font.Name = 'MS Sans Serif'
        Font.Pitch = fpVariable
        Font.Style = []
        ParentFont = False
        Transparent = False
        OnClick = btGetClick
      end
      object btClose: TSpeedButton
        Left = 84
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object DBNavigator: TDBNavigator
        Left = 333
        Top = 1
        Width = 240
        Height = 22
        DataSource = dsDept
        Flat = True
        TabOrder = 0
      end
    end
  end
  object Memo: TMemo
    Left = 61
    Top = 192
    Width = 390
    Height = 112
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 1
  end
  object gdDept: TDBGrid
    Left = 0
    Top = 26
    Width = 451
    Height = 144
    Align = alTop
    DataSource = dsDept
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 13
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object Memo1: TMemo
    Left = 0
    Top = 192
    Width = 61
    Height = 112
    Align = alLeft
    ReadOnly = True
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 173
    Width = 451
    Height = 19
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object Label1: TLabel
      Left = 66
      Top = 2
      Width = 46
      Height = 15
      Caption = 'DNAME'
    end
    object Label2: TLabel
      Left = 4
      Top = 2
      Width = 51
      Height = 15
      Caption = 'DEPTNO'
    end
  end
  object sqGet: TOraSQL
    Session = ODACForm.OraSession
    SQL.Strings = (
      'begin'
      '  SELECT *'
      '  INTO :DeptNo, :DName, :RowNum'
      '  FROM '
      '    (SELECT DeptNo,DName,RowNum RowNo'
      '    FROM Scott.Dept)'
      '  WHERE'
      '    RowNo = :RowNum;'
      'end;')
    Debug = True
    Left = 408
    Top = 32
    ParamData = <
      item
        DataType = ftInteger
        Name = 'DeptNo'
        Value = 10
      end
      item
        DataType = ftString
        Name = 'DName'
        Size = 50
        Value = 'f5'
      end
      item
        DataType = ftInteger
        Name = 'RowNum'
        Value = 1
      end>
  end
  object sqPut: TOraSQL
    Session = ODACForm.OraSession
    SQL.Strings = (
      'UPDATE Scott.Dept'
      'SET DName = :DName'
      'WHERE DeptNo = :DeptNo'
      ''
      '')
    Debug = True
    Left = 440
    Top = 32
    ParamData = <
      item
        DataType = ftString
        Name = 'DName'
        Size = 1999
      end
      item
        DataType = ftInteger
        Name = 'DeptNo'
      end>
  end
  object dsDept: TDataSource
    DataSet = quDept
    Left = 408
    Top = 64
  end
  object quDept: 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')
    Session = ODACForm.OraSession
    SQL.Strings = (
      'SELECT * FROM Scott.Dept')
    Debug = True
    AutoCommit = False
    Left = 376
    Top = 64
  end
end