objects.xfm

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

inherited ObjectsFrame: TObjectsFrame
  VertScrollBar.Range = 49
  object ToolBar1: TPanel
    Left = 0
    Top = 0
    Width = 451
    Height = 49
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Panel1: TPanel
      Left = 1
      Top = 1
      Width = 418
      Height = 47
      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 btCallMethod: TSpeedButton
        Left = 334
        Top = 24
        Width = 83
        Height = 22
        Caption = 'Call Method'
        Flat = True
        Transparent = False
        OnClick = btCallMethodClick
      end
      object btCloneObject: TSpeedButton
        Left = 250
        Top = 24
        Width = 83
        Height = 22
        Caption = 'Clone Object'
        Flat = True
        Transparent = False
        OnClick = btCloneObjectClick
      end
      object btAddRecord: TSpeedButton
        Left = 167
        Top = 24
        Width = 82
        Height = 22
        Caption = 'Add Record'
        Flat = True
        Transparent = False
        OnClick = btAddRecordClick
      end
      object btShowCountry: TSpeedButton
        Left = 84
        Top = 24
        Width = 82
        Height = 22
        Caption = 'ShowCountry'
        Flat = True
        Transparent = False
        OnClick = btShowCountryClick
      end
      object DBNavigator1: TDBNavigator
        Left = 167
        Top = 1
        Width = 250
        Height = 22
        DataSource = dsData
        Flat = True
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 1
        Top = 24
        Width = 81
        Height = 22
        BevelOuter = bvNone
        Color = clButton
        ParentColor = False
        TabOrder = 1
        object cbObjectView: TCheckBox
          Left = 5
          Top = 4
          Width = 74
          Height = 17
          Caption = 'ObjectView'
          Color = clButton
          ParentColor = False
          TabOrder = 0
          OnClick = cbObjectViewClick
        end
      end
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 49
    Width = 451
    Height = 255
    Align = alClient
    DataSource = dsData
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object dsData: TDataSource
    DataSet = Query
    Left = 24
    Top = 80
  end
  object Query: TSmartQuery
    SQL.Strings = (
      'SELECT RowId, RowNum, E.* FROM ODAC_Emp E')
    Debug = True
    FetchRows = 20
    LockMode = lmNone
    RefreshOptions = [roAfterInsert, roAfterUpdate]
    ObjectView = True
    Left = 240
    Top = 56
  end
  object OraSQL: TOraSQL
    Debug = True
    Left = 272
    Top = 56
  end
  object spGetName: TOraStoredProc
    StoredProcName = 'TPerson.getName'
    SQL.Strings = (
      'begin'
      '  :RESULT := TPerson.getName(:SELF);'
      'end;')
    Debug = True
    Left = 304
    Top = 56
    ParamData = <
      item
        DataType = ftString
        Name = 'RESULT'
        ParamType = ptInputOutput
      end
      item
        DataType = ftADT
        Name = 'SELF'
        ParamType = ptInput
        Value = 'Object'
      end>
  end
end