refs.xfm

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

inherited RefsFrame: TRefsFrame
  Width = 676
  VertScrollBar.Range = 268
  object Splitter1: TSplitter
    Left = 0
    Top = 62
    Width = 676
    Height = 3
    Cursor = crVSplit
    Align = alBottom
    Beveled = True
    Color = 170
  end
  object ToolBar1: TPanel
    Left = 0
    Top = 0
    Width = 676
    Height = 26
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel4: TPanel
      Left = 1
      Top = 1
      Width = 499
      Height = 24
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btOpen: TSpeedButton
        Left = 1
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Open'
        Flat = True
        Transparent = False
        OnClick = btOpenClick
      end
      object btClose: TSpeedButton
        Left = 84
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Close'
        Flat = True
        Transparent = False
        OnClick = btCloseClick
      end
      object DBNavigator1: TDBNavigator
        Left = 167
        Top = 1
        Width = 240
        Height = 22
        DataSource = dsData
        Flat = True
        TabOrder = 0
      end
      object Panel5: TPanel
        Left = 408
        Top = 1
        Width = 90
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object cbObjectView: TCheckBox
          Left = 8
          Top = 4
          Width = 78
          Height = 14
          Caption = 'ObjectView'
          TabOrder = 0
          OnClick = cbObjectViewClick
        end
      end
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 26
    Width = 676
    Height = 36
    Align = alClient
    DataSource = dsData
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object Panel1: TPanel
    Left = 0
    Top = 65
    Width = 676
    Height = 26
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    object Panel7: TPanel
      Left = 360
      Top = 1
      Width = 242
      Height = 24
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 0
      object DBNavigator3: TDBNavigator
        Left = 1
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource2
        Flat = True
        TabOrder = 0
      end
    end
    object Panel8: TPanel
      Left = 1
      Top = 1
      Width = 242
      Height = 24
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 1
      object DBNavigator2: TDBNavigator
        Left = 1
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource1
        Flat = True
        TabOrder = 0
      end
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 181
    Width = 676
    Height = 26
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 5
    object Panel6: TPanel
      Left = 1
      Top = 1
      Width = 408
      Height = 24
      BevelOuter = bvNone
      Color = 170
      ParentColor = False
      TabOrder = 0
      object btGetLeft: TSpeedButton
        Left = 1
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Get Left'
        Flat = True
        Transparent = False
        OnClick = btGetLeftClick
      end
      object btGetRight: TSpeedButton
        Left = 84
        Top = 1
        Width = 82
        Height = 22
        Caption = 'Get Right'
        Flat = True
        Transparent = False
        OnClick = btGetRightClick
      end
      object DBNavigator4: TDBNavigator
        Left = 167
        Top = 1
        Width = 240
        Height = 22
        DataSource = DataSource3
        Flat = True
        TabOrder = 0
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 91
    Width = 676
    Height = 90
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object DBGrid1: TDBGrid
      Left = 0
      Top = 0
      Width = 361
      Height = 90
      Align = alLeft
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = 11
      TitleFont.Name = 'helvetica'
      TitleFont.Pitch = fpVariable
      TitleFont.Style = []
    end
    object DBGrid2: TDBGrid
      Left = 361
      Top = 0
      Width = 315
      Height = 90
      Align = alClient
      DataSource = DataSource2
      TabOrder = 1
      TitleFont.Color = clBlack
      TitleFont.Height = 11
      TitleFont.Name = 'helvetica'
      TitleFont.Pitch = fpVariable
      TitleFont.Style = []
    end
  end
  object DBGrid3: TDBGrid
    Left = 0
    Top = 207
    Width = 676
    Height = 97
    Align = alBottom
    DataSource = DataSource3
    TabOrder = 4
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object dsData: TDataSource
    DataSet = Query
    Left = 16
    Top = 80
  end
  object Query: TSmartQuery
    FullRefresh = True
    SQL.Strings = (
      'SELECT RowId, R.* FROM ODAC_Ref R  '
      '--SELECT REF(R) REF,RowId FROM ODAC_Ref R'
      '--SELECT R.Left FROM ODAC_Ref R  '
      '')
    Debug = True
    FetchRows = 20
    LockMode = lmNone
    Options.FullRefresh = True
    ObjectView = True
    Left = 244
    Top = 56
    object QuerySTR: TStringField
      FieldName = 'STR'
      Size = 30
    end
    object QueryNUM: TFloatField
      FieldName = 'NUM'
    end
    object QueryLEFT: TOraReferenceField
      FieldName = 'LEFT'
    end
    object QueryRIGHT: TOraReferenceField
      FieldName = 'RIGHT'
    end
    object QueryROWID: TStringField
      FieldName = 'ROWID'
      Size = 18
    end
  end
  object DataSource1: TDataSource
    DataSet = OraNestedTableLeft
    Left = 16
    Top = 192
  end
  object OraNestedTableLeft: TOraNestedTable
    DataSetField = QueryLEFT
    Left = 272
    Top = 56
  end
  object OraNestedTable: TOraNestedTable
    Left = 320
    Top = 88
  end
  object OraNestedTableRight: TOraNestedTable
    DataSetField = QueryRIGHT
    Left = 272
    Top = 88
  end
  object DataSource2: TDataSource
    DataSet = OraNestedTableRight
    Left = 376
    Top = 192
  end
  object DataSource3: TDataSource
    DataSet = OraNestedTable
    Left = 16
    Top = 304
  end
end