arrays.xfm

ODAC 6 最新版的﹐網上找了好久才找到﹐不太好找啊﹐大家一起共享

inherited ArraysFrame: TArraysFrame
  VertScrollBar.Range = 49
  object DBGrid: TDBGrid
    Left = 0
    Top = 49
    Width = 451
    Height = 255
    Align = alClient
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 451
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object ToolBar1: TPanel
      Left = 1
      Top = 1
      Width = 414
      Height = 47
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object btClose: TSpeedButton
        Left = 87
        Top = 1
        Width = 85
        Height = 22
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object btUpdateRecord: TSpeedButton
        Left = 87
        Top = 24
        Width = 85
        Height = 22
        Caption = 'Update Record'
        Flat = True
        Transparent = False
        OnClick = btUpdateRecordClick
      end
      object btAddRecord: TSpeedButton
        Left = 1
        Top = 24
        Width = 85
        Height = 22
        Caption = 'Add Record'
        Flat = True
        Transparent = False
        OnClick = btAddRecordClick
      end
      object DBNavigator1: TDBNavigator
        Left = 173
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource
        Flat = True
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 173
        Top = 24
        Width = 240
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object cbObjectView: TCheckBox
          Left = 24
          Top = 3
          Width = 77
          Height = 16
          Caption = 'ObjectView'
          TabOrder = 0
          OnClick = cbObjectViewClick
        end
        object cbSparseArrays: TCheckBox
          Left = 120
          Top = 3
          Width = 88
          Height = 16
          Caption = 'SparseArrays'
          TabOrder = 1
          OnClick = cbSparseArraysClick
        end
      end
    end
  end
  object DataSource: TDataSource
    DataSet = Query
    Left = 24
    Top = 80
  end
  object Query: TSmartQuery
    SQL.Strings = (
      'SELECT RowNum, RowId, T.* FROM ODAC_Array T'
      '')
    Debug = True
    LockMode = lmNone
    ObjectView = True
    Left = 240
    Top = 56
  end
  object sqInsert: TOraSQL
    SQL.Strings = (
      'INSERT INTO ODAC_Array'
      '  (Code, Title, Arr1, Arr2, Arr3, Obj)'
      'VALUES'
      '  (:Code, :Title, :Arr1, :Arr2, :Arr3, :Obj)'
      '')
    Debug = True
    Left = 240
    Top = 88
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'Code'
      end
      item
        DataType = ftUnknown
        Name = 'Title'
      end
      item
        DataType = ftUnknown
        Name = 'Arr1'
      end
      item
        DataType = ftUnknown
        Name = 'Arr2'
      end
      item
        DataType = ftUnknown
        Name = 'Arr3'
      end
      item
        DataType = ftUnknown
        Name = 'Obj'
      end>
  end
end