bfile.xfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited BFileFrame: TBFileFrame
  Width = 634
  VertScrollBar.Range = 227
  object Splitter1: TSplitter
    Left = 0
    Top = 101
    Width = 634
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 24
    Width = 634
    Height = 77
    Align = alClient
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object DBMemo: TDBMemo
    Left = 0
    Top = 151
    Width = 634
    Height = 153
    Align = alBottom
    DataField = 'VALUE'
    DataSource = DataSource
    TabOrder = 1
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 634
    Height = 24
    Align = alTop
    BevelOuter = bvNone
    Color = 170
    ParentColor = False
    TabOrder = 2
    object btOpen: TSpeedButton
      Left = 1
      Top = 1
      Width = 75
      Height = 22
      Caption = 'Open'
      Flat = True
      Transparent = False
      OnClick = btOpenClick
    end
    object btClose: TSpeedButton
      Left = 77
      Top = 1
      Width = 75
      Height = 22
      Caption = 'Close'
      Flat = True
      Transparent = False
      OnClick = btCloseClick
    end
    object DBNavigator: TDBNavigator
      Left = 153
      Top = 1
      Width = 240
      Height = 22
      DataSource = DataSource
      Flat = True
      TabOrder = 1
    end
    object Panel1: TPanel
      Left = 394
      Top = 1
      Width = 543
      Height = 22
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 0
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 24
    Width = 634
    Height = 77
    Align = alClient
    DataSource = DataSource
    TabOrder = 3
    TitleFont.Color = clBlack
    TitleFont.Height = 11
    TitleFont.Name = 'helvetica'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
    OnDrawDataCell = DBGridDrawDataCell
  end
  object ToolBar1: TPanel
    Left = 0
    Top = 104
    Width = 634
    Height = 47
    Align = alBottom
    BevelOuter = bvNone
    Color = 170
    ParentColor = False
    TabOrder = 4
    object btSetFile: TSpeedButton
      Left = 398
      Top = 1
      Width = 85
      Height = 22
      Caption = 'SetFileName'
      Flat = True
      Transparent = False
      OnClick = btSetFileClick
    end
    object btRefresh: TSpeedButton
      Left = 484
      Top = 1
      Width = 85
      Height = 22
      Caption = 'Refresh'
      Flat = True
      Transparent = False
      OnClick = btRefreshClick
    end
    object btCreateDirectory: TSpeedButton
      Left = 398
      Top = 24
      Width = 85
      Height = 22
      Caption = 'CreateDirectory'
      Flat = True
      Transparent = False
      OnClick = btCreateDirectoryClick
    end
    object Panel2: TPanel
      Left = 1
      Top = 1
      Width = 180
      Height = 22
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 0
      object Label1: TLabel
        Left = 3
        Top = 4
        Width = 29
        Height = 13
        Caption = 'FileDir'
      end
      object edFileDir: TEdit
        Left = 46
        Top = 1
        Width = 129
        Height = 21
        TabOrder = 0
      end
    end
    object Panel3: TPanel
      Left = 182
      Top = 1
      Width = 215
      Height = 22
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 1
      object FileName: TLabel
        Left = 3
        Top = 4
        Width = 41
        Height = 13
        Caption = 'FileName'
      end
      object edFileName: TEdit
        Left = 59
        Top = 1
        Width = 151
        Height = 21
        TabOrder = 0
      end
    end
    object Panel4: TPanel
      Left = 1
      Top = 24
      Width = 180
      Height = 22
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 2
      object Label2: TLabel
        Left = 3
        Top = 4
        Width = 40
        Height = 13
        Caption = 'DirName'
      end
      object edDirName: TEdit
        Left = 46
        Top = 1
        Width = 129
        Height = 21
        TabOrder = 0
        Text = 'ODACDIR'
      end
    end
    object Panel5: TPanel
      Left = 182
      Top = 24
      Width = 215
      Height = 22
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 3
      object edDirectory: TEdit
        Left = 3
        Top = 0
        Width = 207
        Height = 21
        TabOrder = 0
        Text = 'C:\'
      end
    end
    object Panel6: TPanel
      Left = 570
      Top = 1
      Width = 367
      Height = 45
      Anchors = [akLeft, akTop, akRight]
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 4
    end
    object Panel7: TPanel
      Left = 484
      Top = 24
      Width = 86
      Height = 22
      BevelOuter = bvNone
      Color = clButton
      ParentColor = False
      TabOrder = 5
    end
  end
  object OraQuery: TOraQuery
    SQLInsert.Strings = (
      'INSERT INTO ODAC_BFile'
      '  (CODE, TITLE, VALUE)'
      'VALUES'
      '  (:CODE, :TITLE, :VALUE)')
    SQLDelete.Strings = (
      'DELETE FROM ODAC_BFile'
      'WHERE'
      '  CODE = :CODE')
    SQLUpdate.Strings = (
      'UPDATE ODAC_BFile'
      'SET'
      '  CODE = :CODE,'
      '  TITLE = :TITLE,'
      '  VALUE = :VALUE'
      'WHERE'
      '  CODE = :OLD_CODE')
    SQLLock.Strings = (
      'SELECT * FROM ODAC_BFile'
      'WHERE'
      '  CODE = :CODE'
      'FOR UPDATE NOWAIT')
    SQLRefresh.Strings = (
      'SELECT * FROM ODAC_BFile'
      'WHERE'
      '  CODE = :CODE')
    SQL.Strings = (
      'SELECT * FROM ODAC_BFile')
    Debug = True
    AfterScroll = OraQueryAfterScroll
    OnCalcFields = OraQueryCalcFields
    Left = 443
    Top = 40
    object OraQueryCODE: TFloatField
      FieldName = 'CODE'
    end
    object OraQueryTITLE: TStringField
      FieldName = 'TITLE'
      Size = 30
    end
    object OraQueryVALUE: TBFileField
      FieldName = 'VALUE'
      BlobType = ftBlob
    end
    object OraQueryFileName: TStringField
      FieldKind = fkCalculated
      FieldName = 'FileName'
      Size = 40
      Calculated = True
    end
  end
  object DataSource: TDataSource
    DataSet = OraQuery
    Left = 480
    Top = 40
  end
  object quCreateDir: TOraQuery
    SQL.Strings = (
      'CREATE OR REPLACE'
      'DIRECTORY &Name AS &Dir'
      '')
    Debug = True
    Left = 496
    Top = 259
    MacroData = <
      item
        Name = 'Name'
        Value = #39#39
      end
      item
        Name = 'Dir'
      end>
  end
  object OpenDialog: TOpenDialog
    Height = 0
    Width = 0
    FilterIndex = 0
    Title = 'Open'
    Left = 88
    Top = 307
  end
  object SaveDialog: TSaveDialog
    Height = 0
    Width = 0
    FilterIndex = 0
    Title = 'Save'
    Left = 120
    Top = 307
  end
end