loader.xfm

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

inherited LoaderFrame: TLoaderFrame
  Width = 742
  VertScrollBar.Range = 62
  object DBGrid: TDBGrid
    Left = 0
    Top = 62
    Width = 742
    Height = 242
    Align = alClient
    DataSource = DataSource
    TabOrder = 1
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 742
    Height = 62
    Align = alTop
    BevelOuter = bvNone
    Color = 170
    ParentColor = False
    TabOrder = 0
    object btOpen: TSpeedButton
      Left = 1
      Top = 1
      Width = 85
      Height = 24
      Caption = 'Open'
      Flat = True
      Transparent = False
      OnClick = btOpenClick
    end
    object btClose: TSpeedButton
      Left = 87
      Top = 1
      Width = 85
      Height = 24
      Caption = 'Close'
      Flat = True
      Transparent = False
      OnClick = btCloseClick
    end
    object btLoad: TSpeedButton
      Left = 173
      Top = 1
      Width = 85
      Height = 24
      Caption = 'Load'
      Flat = True
      Transparent = False
      OnClick = btLoadClick
    end
    object btDeleteAll: TSpeedButton
      Left = 259
      Top = 1
      Width = 85
      Height = 24
      Caption = 'Delete All'
      Flat = True
      Transparent = False
      OnClick = btDeleteAllClick
    end
    object DBNavigator: TDBNavigator
      Left = 345
      Top = 1
      Width = 240
      Height = 24
      DataSource = DataSource
      Flat = True
      TabOrder = 0
    end
    object Panel1: TPanel
      Left = 1
      Top = 26
      Width = 584
      Height = 35
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 1
      object Label1: TLabel
        Left = 6
        Top = 14
        Width = 49
        Height = 13
        Caption = 'Load rows'
      end
      object rgEvent: TRadioGroup
        Left = 345
        Top = 2
        Width = 231
        Height = 30
        Items.Strings = (
          'GetColumnData'
          'PutData')
        Columns = 2
        TabOrder = 2
        OnClick = rgEventClick
      end
      object rgMode: TRadioGroup
        Left = 159
        Top = 2
        Width = 184
        Height = 30
        Items.Strings = (
          'DirectPath'
          'DML')
        Columns = 2
        TabOrder = 1
        OnClick = rgModeClick
      end
      object edRows: TEdit
        Left = 66
        Top = 10
        Width = 87
        Height = 21
        TabOrder = 0
        Text = '1000'
      end
    end
    object Panel2: TPanel
      Left = 586
      Top = 0
      Width = 1056
      Height = 62
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 2
    end
  end
  object DataSource: TDataSource
    DataSet = Query
    Left = 440
    Top = 61
  end
  object Query: TSmartQuery
    SQL.Strings = (
      'SELECT * FROM ODAC_Loaded')
    Debug = True
    FetchAll = True
    AfterOpen = QueryAfterOpen
    BeforeFetch = QueryBeforeFetch
    AfterFetch = QueryAfterFetch
    BeforeClose = QueryBeforeClose
    AfterRefresh = QueryAfterOpen
    Left = 408
    Top = 61
  end
  object OraLoader: TOraLoader
    TableName = 'ODAC_LOADED'
    Columns = <
      item
        Name = 'CODE'
        FieldType = ftFloat
        Precision = 38
      end
      item
        Name = 'NUM'
        FieldType = ftFloat
        Precision = 10
      end
      item
        Name = 'NUM1'
        FieldType = ftFloat
        Precision = 5
        Scale = 2
      end
      item
        Name = 'STR'
        Size = 50
      end
      item
        Name = 'DAT'
        FieldType = ftDateTime
      end>
    OnPutData = PutData
    OnGetColumnData = GetColumnData
    Left = 408
    Top = 94
  end
end