loader.lfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited LoaderFrame: TLoaderFrame
  Height = 284
  Width = 656
  object DBGrid: TDBGrid
    Height = 222
    Top = 62
    Width = 656
    Align = alClient
    DataSource = DataSource
    FixedColor = clBtnFace
    FixedHotColor = cl3DLight
    Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
    OptionsExtra = [dgeAutoColumns, dgeCheckboxColumn]
    ParentColor = False
    TabOrder = 1
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object ToolBar: TPanel
    Height = 62
    Width = 656
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 62
    ClientWidth = 656
    Color = 170
    ParentColor = False
    TabOrder = 0
    object btOpen: TSpeedButton
      Left = 1
      Height = 24
      Top = 1
      Width = 85
      Caption = 'Open'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btOpenClick
    end
    object btClose: TSpeedButton
      Left = 87
      Height = 24
      Top = 1
      Width = 85
      Caption = 'Close'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btCloseClick
    end
    object btLoad: TSpeedButton
      Left = 173
      Height = 24
      Top = 1
      Width = 85
      Caption = 'Load'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btLoadClick
    end
    object btDeleteAll: TSpeedButton
      Left = 259
      Height = 24
      Top = 1
      Width = 85
      Caption = 'Delete All'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btDeleteAllClick
    end
    object DBNavigator: TDBNavigator
      Left = 345
      Height = 24
      Top = 1
      Width = 240
      BevelOuter = bvNone
      ClientHeight = 24
      ClientWidth = 240
      Color = clBtnFace
      DataSource = DataSource
      Flat = True
      ParentColor = False
      TabOrder = 0
    end
    object Panel1: TPanel
      Left = 1
      Height = 35
      Top = 26
      Width = 584
      BevelOuter = bvNone
      ClientHeight = 35
      ClientWidth = 584
      ParentColor = False
      TabOrder = 1
      object Label1: TLabel
        Left = 6
        Height = 13
        Top = 14
        Width = 49
        Caption = 'Load rows'
        ParentColor = False
      end
      object rgEvent: TRadioGroup
        Left = 345
        Height = 30
        Top = 2
        Width = 231
        AutoFill = True
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 2
        ClientHeight = 12
        ClientWidth = 227
        Columns = 2
        Items.Strings = (
          'GetColumnData'
          'PutData'
        )
        OnClick = rgEventClick
        TabOrder = 0
      end
      object rgMode: TRadioGroup
        Left = 159
        Height = 30
        Top = 2
        Width = 184
        AutoFill = True
        ChildSizing.LeftRightSpacing = 6
        ChildSizing.TopBottomSpacing = 6
        ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
        ChildSizing.EnlargeVertical = crsHomogenousChildResize
        ChildSizing.ShrinkHorizontal = crsScaleChilds
        ChildSizing.ShrinkVertical = crsScaleChilds
        ChildSizing.Layout = cclLeftToRightThenTopToBottom
        ChildSizing.ControlsPerLine = 2
        ClientHeight = 12
        ClientWidth = 180
        Columns = 2
        Items.Strings = (
          'DirectPath'
          'DML'
        )
        OnClick = rgModeClick
        TabOrder = 1
      end
      object edRows: TEdit
        Left = 66
        Height = 21
        Top = 10
        Width = 87
        TabOrder = 2
        Text = '1000'
      end
    end
    object Panel2: TPanel
      Left = 586
      Height = 62
      Width = 978
      Anchors = [akTop, akLeft, akRight]
      BevelOuter = bvNone
      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
    Options.AutoClose = False
    Options.FieldsAsString = False
    Options.DeferredLobRead = False
    Options.ScrollableCursor = False
    Options.FieldsOrigin = False
    Options.DefaultValues = False
    Options.NumberRange = False
    Options.QueryRecCount = False
    Options.AutoPrepare = False
    Options.ReturnParams = False
    Options.FlatBuffers = False
    Options.DetailDelay = 0
    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