main.dfm

ODAC 5.7.0.28

object fmMain: TfmMain
  Left = 204
  Top = 147
  Width = 704
  Height = 422
  VertScrollBar.Range = 250
  ActiveControl = DBGrid
  AutoScroll = False
  Caption = 'Oracle Data Access Demo - Oracle8 CLOB fields'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Pitch = fpVariable
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 0
    Top = 219
    Width = 696
    Height = 2
    Cursor = crVSplit
    Align = alTop
  end
  object DBGrid: TDBGrid
    Left = 0
    Top = 59
    Width = 696
    Height = 160
    Align = alTop
    DataSource = dsData
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Pitch = fpVariable
    TitleFont.Style = []
  end
  object ToolBar: TPanel
    Left = 0
    Top = 0
    Width = 696
    Height = 29
    Align = alTop
    TabOrder = 1
    object btOpen: TButton
      Left = 0
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 75
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Close'
      TabOrder = 2
      OnClick = btCloseClick
    end
    object DBNavigator: TDBNavigator
      Left = 150
      Top = 2
      Width = 240
      Height = 24
      DataSource = dsData
      TabOrder = 1
    end
    object btCreate: TButton
      Left = 407
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Create'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btCreateClick
    end
    object btDrop: TButton
      Left = 482
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Drop'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = 11
      Font.Name = 'MS Sans Serif'
      Font.Pitch = fpVariable
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = btDropClick
    end
  end
  object meComments: TDBMemo
    Left = 0
    Top = 247
    Width = 696
    Height = 148
    Align = alClient
    DataField = 'VALUE'
    DataSource = dsData
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object Panel1: TPanel
    Left = 0
    Top = 29
    Width = 696
    Height = 30
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 3
    object btCopyRecord: TButton
      Left = 0
      Top = 3
      Width = 95
      Height = 24
      Caption = 'CopyRecord'
      TabOrder = 0
      OnClick = btCopyRecordClick
    end
    object btCopyRecord1: TButton
      Left = 95
      Top = 3
      Width = 97
      Height = 24
      Caption = 'CopyRecord Alt'
      TabOrder = 1
      OnClick = btCopyRecord1Click
    end
    object btCopyRecord2: TButton
      Left = 192
      Top = 3
      Width = 111
      Height = 24
      Caption = 'CopyRecord More'
      TabOrder = 2
      OnClick = btCopyRecord2Click
    end
    object rbSmartQuery: TRadioButton
      Left = 341
      Top = 7
      Width = 87
      Height = 17
      Caption = 'SmartQuery'
      TabOrder = 3
      OnClick = rbSmartQueryClick
    end
    object rbOraQuery: TRadioButton
      Left = 424
      Top = 7
      Width = 72
      Height = 17
      Caption = 'OraQuery'
      TabOrder = 4
      OnClick = rbOraQueryClick
    end
    object cbDebug: TCheckBox
      Left = 574
      Top = 6
      Width = 71
      Height = 17
      Caption = 'Debug'
      TabOrder = 5
      OnClick = cbDebugClick
    end
    object cbUseNet: TCheckBox
      Left = 504
      Top = 6
      Width = 65
      Height = 17
      Caption = 'Use Net'
      TabOrder = 6
      OnClick = cbUseNetClick
    end
  end
  object ToolBar1: TPanel
    Left = 0
    Top = 221
    Width = 696
    Height = 26
    Align = alTop
    TabOrder = 4
    object btLoad: TButton
      Left = 0
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Load from file'
      TabOrder = 0
      OnClick = btLoad1Click
    end
    object btSave: TButton
      Left = 75
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Save to file'
      TabOrder = 1
      OnClick = btSaveClick
    end
    object btClear: TButton
      Left = 183
      Top = 2
      Width = 75
      Height = 24
      Caption = 'Clear'
      TabOrder = 2
      OnClick = btClearClick
    end
    object cbDefLobRead: TCheckBox
      Left = 273
      Top = 2
      Width = 120
      Height = 22
      Caption = 'Deferred LOB Read'
      TabOrder = 3
      OnClick = cbDefLobReadClick
    end
    object cbCacheLobs: TCheckBox
      Left = 409
      Top = 2
      Width = 97
      Height = 22
      Caption = 'Cache Lobs'
      TabOrder = 4
      OnClick = cbCacheLobsClick
    end
  end
  object OraSession: TOraSession
    Options.CharLength = 0
    Username = 'Scott'
    Password = 'tiger'
    ConnectDialog = ConnectDialog
    Left = 344
    Top = 56
  end
  object dsData: TDataSource
    DataSet = SmartQuery
    Left = 472
    Top = 56
  end
  object ConnectDialog: TConnectDialog
    SavePassword = True
    Caption = 'Connect'
    UsernameLabel = 'Username'
    PasswordLabel = 'Password'
    ServerLabel = 'Server'
    ConnectButton = 'Connect'
    CancelButton = 'Cancel'
    LabelSet = lsCustom
    Left = 376
    Top = 56
  end
  object SmartQuery: TSmartQuery
    Session = OraSession
    SQL.Strings = (
      '-- SmartQuery'
      'SELECT C.*, RowId'
      'FROM ODAC_CLOB C')
    Debug = True
    FetchRows = 1
    LockMode = lmNone
    Left = 408
    Top = 56
  end
  object sqCreate: TOraScript
    Session = OraSession
    SQL.Strings = (
      'CREATE TABLE ODAC_Clob ('
      '  Code NUMBER, -- PRIMARY KEY,'
      '  Title VARCHAR2(30),'
      '  Value CLOB'
      ');')
    Debug = True
    Left = 408
    Top = 88
  end
  object sqDrop: TOraScript
    Session = OraSession
    SQL.Strings = (
      'DROP TABLE ODAC_Clob;')
    Debug = True
    Left = 440
    Top = 88
  end
  object quInsertRecord: TOraQuery
    Session = OraSession
    SQL.Strings = (
      'INSERT INTO ODAC_CLOB (Code,Title,Value)'
      '  VALUES (:Code, :Title, EMPTY_CLOB())'
      'RETURNING '
      '  Value'
      'INTO'
      '  :Value'
      ''
      '  ')
    Debug = True
    Left = 344
    Top = 88
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Code'
      end
      item
        DataType = ftString
        Name = 'Title'
        Size = 1999
      end
      item
        DataType = ftUnknown
        Name = 'Value'
        ParamType = ptInput
      end>
  end
  object quCopyRecord: TOraQuery
    Session = OraSession
    SQL.Strings = (
      'declare'
      '  Code NUMBER;'
      '  Title VARCHAR2(30);'
      '  Value CLOB;'
      'begin'
      '  SELECT Code,Title,Value'
      '  INTO Code,Title,Value'
      '  FROM ODAC_CLOB'
      '  WHERE RowId = :RowId;'
      ''
      '  INSERT INTO ODAC_CLOB (Code,Title,Value)'
      '    VALUES (Code, Title, Value);'
      'end;'
      '  ')
    Debug = True
    Left = 312
    Top = 120
    ParamData = <
      item
        DataType = ftString
        Name = 'RowId'
        Size = 1999
      end>
  end
  object quSelectRecord: TOraQuery
    Session = OraSession
    SQL.Strings = (
      'begin'
      '  SELECT Code,Title,Value'
      '  INTO :Code,:Title,:Value'
      '  FROM ODAC_CLOB'
      '  WHERE RowId = :RowId;'
      'end;'
      '  ')
    Debug = True
    Left = 312
    Top = 88
    ParamData = <
      item
        DataType = ftInteger
        Name = 'Code'
        ParamType = ptOutput
      end
      item
        DataType = ftString
        Name = 'Title'
        ParamType = ptOutput
        Size = 1999
      end
      item
        DataType = ftOraClob
        Name = 'Value'
        ParamType = ptOutput
      end
      item
        DataType = ftUnknown
        Name = 'RowId'
      end>
  end
  object OraQuery: TOraQuery
    SQLInsert.Strings = (
      'INSERT INTO ODAC_CLOB (Code,Title,Value)'
      '  VALUES (:Code, :Title, EMPTY_CLOB())'
      'RETURNING '
      '  VALUE'
      'INTO'
      '  :VALUE')
    SQLDelete.Strings = (
      'DELETE FROM ODAC_CLOB'
      'WHERE'
      '  ROWID = :OLD_ROWID')
    SQLUpdate.Strings = (
      'UPDATE ODAC_CLOB'
      'SET'
      '  CODE = :CODE,'
      '  TITLE = :TITLE,'
      '  VALUE = EMPTY_CLOB()'
      'WHERE'
      '  ROWID = :OLD_ROWID'
      'RETURNING '
      '  VALUE'
      'INTO'
      '  :VALUE')
    Session = OraSession
    SQL.Strings = (
      '-- OraQuery'
      'SELECT C.*, RowId'
      'FROM ODAC_CLOB C')
    Debug = True
    Left = 440
    Top = 56
  end
  object OpenDialog: TOpenDialog
    InitialDir = '.'
    Title = 'Open'
    Left = 240
    Top = 259
  end
  object SaveDialog: TSaveDialog
    InitialDir = '.'
    Title = 'Save As'
    Left = 272
    Top = 259
  end
end