loader.dfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited LoaderFrame: TLoaderFrame
  object DBGrid: TDBGrid
    Left = 0
    Top = 62
    Width = 443
    Height = 215
    Align = alClient
    DataSource = DataSource
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 62
    Align = alTop
    BevelOuter = bvNone
    Color = 170
    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
      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
        Columns = 2
        Items.Strings = (
          'GetColumnData'
          'PutData')
        TabOrder = 0
        OnClick = rgEventClick
      end
      object rgMode: TRadioGroup
        Left = 159
        Top = 2
        Width = 184
        Height = 30
        Columns = 2
        Items.Strings = (
          'DirectPath'
          'DML')
        TabOrder = 1
        OnClick = rgModeClick
      end
      object edRows: TEdit
        Left = 66
        Top = 10
        Width = 87
        Height = 21
        TabOrder = 2
        Text = '1000'
      end
    end
    object Panel2: TPanel
      Left = 586
      Top = 0
      Width = 765
      Height = 62
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
  object DataSource: TDataSource
    DataSet = Query
    Left = 440
    Top = 61
  end
  object Query: TSmartQuery
    Session = ODACForm.OraSession
    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
    Session = ODACForm.OraSession
    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