main.dfm

ODAC 5.7.0.28

object fmMain: TfmMain
  Left = 8
  Top = 8
  Width = 729
  Height = 464
  Caption = 'Oracle Data Access Demo - Oracle8 BFile field'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 223
    Width = 721
    Height = 3
    Cursor = crVSplit
    Align = alBottom
  end
  object DBGrid1: TDBGrid
    Left = 0
    Top = 26
    Width = 721
    Height = 197
    Align = alClient
    DataSource = DataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBMemo: TDBMemo
    Left = 0
    Top = 284
    Width = 721
    Height = 153
    Align = alBottom
    DataField = 'VALUE'
    DataSource = DataSource
    TabOrder = 1
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 721
    Height = 26
    Align = alTop
    Caption = 'ToolBar'
    TabOrder = 2
    object btOpen: TButton
      Left = 0
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 75
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Close'
      TabOrder = 2
      OnClick = btCloseClick
    end
    object DBNavigator: TDBNavigator
      Left = 150
      Top = 2
      Width = 240
      Height = 22
      DataSource = DataSource
      TabOrder = 1
    end
    object btnCreate: TButton
      Left = 390
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Create'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btnCreateClick
    end
    object btnDrop: TButton
      Left = 465
      Top = 2
      Width = 75
      Height = 22
      Caption = 'Drop'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btnDropClick
    end
    object cbDebug: TCheckBox
      Left = 540
      Top = 2
      Width = 65
      Height = 22
      Alignment = taLeftJustify
      Caption = ' Debug'
      TabOrder = 5
      OnClick = cbDebugClick
    end
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 26
    Width = 721
    Height = 197
    Align = alClient
    DataSource = DataSource
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
    OnDrawDataCell = DBGridDrawDataCell
  end
  object ToolBar1: TPanel
    Left = 0
    Top = 226
    Width = 721
    Height = 58
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 4
    object FileName: TLabel
      Left = 138
      Top = 6
      Width = 44
      Height = 13
      Caption = 'FileName'
    end
    object Label1: TLabel
      Left = 7
      Top = 6
      Width = 29
      Height = 13
      Caption = 'FileDir'
    end
    object Label2: TLabel
      Left = 8
      Top = 37
      Width = 41
      Height = 13
      Caption = 'DirName'
    end
    object btSetFile: TButton
      Left = 345
      Top = 2
      Width = 104
      Height = 22
      Caption = 'SetFileName'
      TabOrder = 0
      OnClick = btSetFileClick
    end
    object edFileDir: TEdit
      Left = 43
      Top = 2
      Width = 86
      Height = 21
      TabOrder = 1
    end
    object edFileName: TEdit
      Left = 189
      Top = 2
      Width = 148
      Height = 21
      TabOrder = 2
    end
    object btRefresh: TButton
      Left = 449
      Top = 2
      Width = 80
      Height = 22
      Caption = 'Refresh'
      TabOrder = 3
      OnClick = btRefreshClick
    end
    object edDirName: TEdit
      Left = 56
      Top = 32
      Width = 129
      Height = 21
      TabOrder = 4
      Text = 'ODACDIR'
    end
    object btCreateDirectory: TButton
      Left = 344
      Top = 32
      Width = 137
      Height = 22
      Caption = 'CreateDirectory'
      TabOrder = 5
      OnClick = btCreateDirectoryClick
    end
    object edDirectory: TEdit
      Left = 192
      Top = 32
      Width = 145
      Height = 21
      TabOrder = 6
      Text = 'C:\'
    end
  end
  object OraSession: TOraSession
    Username = 'Scott'
    Password = 'tiger'
    ConnectDialog = ConnectDialog
    Left = 384
    Top = 40
  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')
    Session = OraSession
    SQL.Strings = (
      'SELECT * FROM ODAC_BFile')
    Debug = True
    AfterScroll = OraQueryAfterScroll
    OnCalcFields = OraQueryCalcFields
    Left = 448
    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 sqCreate: TOraSQL
    Session = OraSession
    SQL.Strings = (
      'CREATE TABLE ODAC_BFile ('
      '  Code NUMBER PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Value BFile'
      ')')
    Debug = True
    Left = 384
    Top = 72
  end
  object sqDrop: TOraSQL
    Session = OraSession
    SQL.Strings = (
      'DROP TABLE ODAC_BFile')
    Debug = True
    Left = 416
    Top = 72
  end
  object ConnectDialog: TConnectDialog
    SavePassword = True
    Caption = 'Connect'
    UsernameLabel = 'User Name'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    LabelSet = lsCustom
    Left = 416
    Top = 40
  end
  object quCreateDir: TOraQuery
    Session = OraSession
    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
    Left = 88
    Top = 307
  end
  object SaveDialog: TSaveDialog
    Left = 120
    Top = 307
  end
end