bfile.lfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

object BFileFrame: TBFileFrame
  Height = 376
  Width = 632
  object Splitter1: TSplitter
    Cursor = crVSplit
    Height = 3
    Top = 173
    Width = 632
    Align = alBottom
    ResizeAnchor = akBottom
  end
  object DBGrid1: TDBGrid
    Height = 149
    Top = 24
    Width = 632
    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 = 0
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object DBMemo: TDBMemo
    Height = 153
    Top = 223
    Width = 632
    Align = alBottom
    DataField = 'VALUE'
    DataSource = DataSource
    Lines.Strings = (
      'DBMemo'
    )
    TabOrder = 1
  end
  object ToolBar: TPanel
    Height = 24
    Width = 632
    Align = alTop
    BevelOuter = bvNone
    ClientHeight = 24
    ClientWidth = 632
    Color = 170
    ParentColor = False
    TabOrder = 2
    object btOpen: TSpeedButton
      Left = 1
      Height = 22
      Top = 1
      Width = 75
      Caption = 'Open'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btOpenClick
    end
    object btClose: TSpeedButton
      Left = 77
      Height = 22
      Top = 1
      Width = 75
      Caption = 'Close'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btCloseClick
    end
    object DBNavigator: TDBNavigator
      Left = 153
      Height = 22
      Top = 1
      Width = 240
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 240
      Color = clBtnFace
      DataSource = DataSource
      Flat = True
      ParentColor = False
      TabOrder = 1
    end
    object Panel1: TPanel
      Left = 394
      Height = 22
      Top = 1
      Width = 549
      Anchors = [akTop, akLeft, akRight]
      BevelOuter = bvNone
      ParentColor = False
      TabOrder = 0
    end
  end
  object DBGrid: TDBGrid
    Height = 149
    Top = 24
    Width = 632
    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 = 3
    TabStop = True
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
  end
  object ToolBar1: TPanel
    Height = 47
    Top = 176
    Width = 632
    Align = alBottom
    BevelOuter = bvNone
    ClientHeight = 47
    ClientWidth = 632
    Color = 170
    ParentColor = False
    TabOrder = 4
    object btSetFile: TSpeedButton
      Left = 398
      Height = 22
      Top = 1
      Width = 85
      Caption = 'SetFileName'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btSetFileClick
    end
    object btRefresh: TSpeedButton
      Left = 484
      Height = 22
      Top = 1
      Width = 85
      Caption = 'Refresh'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btRefreshClick
    end
    object btCreateDirectory: TSpeedButton
      Left = 398
      Height = 22
      Top = 24
      Width = 85
      Caption = 'CreateDirectory'
      Color = clBtnFace
      Flat = True
      NumGlyphs = 0
      Transparent = False
      OnClick = btCreateDirectoryClick
    end
    object Panel2: TPanel
      Left = 1
      Height = 22
      Top = 1
      Width = 180
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 180
      ParentColor = False
      TabOrder = 0
      object Label1: TLabel
        Left = 3
        Height = 13
        Top = 4
        Width = 29
        Caption = 'FileDir'
        ParentColor = False
      end
      object edFileDir: TEdit
        Left = 46
        Height = 21
        Top = 1
        Width = 129
        TabOrder = 0
      end
    end
    object Panel3: TPanel
      Left = 182
      Height = 22
      Top = 1
      Width = 215
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 215
      ParentColor = False
      TabOrder = 1
      object FileName: TLabel
        Left = 3
        Height = 13
        Top = 4
        Width = 44
        Caption = 'FileName'
        ParentColor = False
      end
      object edFileName: TEdit
        Left = 59
        Height = 21
        Top = 1
        Width = 151
        TabOrder = 0
      end
    end
    object Panel4: TPanel
      Left = 1
      Height = 22
      Top = 24
      Width = 180
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 180
      ParentColor = False
      TabOrder = 2
      object Label2: TLabel
        Left = 3
        Height = 13
        Top = 4
        Width = 41
        Caption = 'DirName'
        ParentColor = False
      end
      object edDirName: TEdit
        Left = 46
        Height = 21
        Top = 1
        Width = 129
        TabOrder = 0
        Text = 'ODACDIR'
      end
    end
    object Panel5: TPanel
      Left = 182
      Height = 22
      Top = 24
      Width = 215
      BevelOuter = bvNone
      ClientHeight = 22
      ClientWidth = 215
      ParentColor = False
      TabOrder = 3
      object edDirectory: TEdit
        Left = 3
        Height = 21
        Width = 207
        TabOrder = 0
        Text = 'C:\'
      end
    end
    object Panel6: TPanel
      Left = 570
      Height = 45
      Top = 1
      Width = 373
      Anchors = [akTop, akLeft, akRight]
      BevelOuter = bvNone
      ParentColor = False
      TabOrder = 4
    end
    object Panel7: TPanel
      Left = 484
      Height = 22
      Top = 24
      Width = 86
      BevelOuter = bvNone
      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
    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
    AfterScroll = OraQueryAfterScroll
    OnCalcFields = OraQueryCalcFields
    left = 443
    top = 40
    object OraQueryCODE: TFloatField
      AlignMent = taRightJustify
      DisplayWidth = 10
      FieldName = 'CODE'
      ProviderFlags = [pfInUpdate, pfInWhere]
    end
    object OraQueryTITLE: TStringField
      DisplayWidth = 30
      FieldName = 'TITLE'
      Index = 1
      ProviderFlags = [pfInUpdate, pfInWhere]
      Size = 30
    end
    object OraQueryVALUE: TBFileField
      DisplayWidth = 10
      FieldName = 'VALUE'
      Index = 2
      ProviderFlags = [pfInUpdate, pfInWhere]
      BlobType = ftOraBlob
    end
    object OraQueryFileName: TStringField
      DisplayWidth = 40
      FieldKind = fkCalculated
      FieldName = 'FileName'
      Index = 3
      ProviderFlags = [pfInUpdate, pfInWhere]
      Size = 40
    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
    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
    left = 293
    top = 213
    MacroData = <    
      item
        Name = 'Name'
        Value = ''''''
      end    
      item
        Name = 'Dir'
      end>
  end
  object OpenDialog: TOpenDialog
    Title = '悟牮