crdbgrid.nfm

Oracle Data Access Components Source Code ODAC v.6.70.0.45

inherited CRDBGridFrame: TCRDBGridFrame
  object CRDBGrid: TCRDBGrid
    Left = 0
    Top = 48
    Width = 443
    Height = 229
    OptionsEx = [dgeLocalFilter, dgeLocalSorting]
    Align = alClient
    DataSource = OraDataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    Columns = <
      item
        Expanded = False
        FieldName = 'ID'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'NAME'
        Title.Caption = 'PERSON|NAME'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'COUNTRY'
        Title.Caption = 'PERSON|ADDRESS|COUNTRY'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'CITY'
        Title.Caption = 'PERSON|ADDRESS|CITY'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'STREET'
        Title.Caption = 'PERSON|ADDRESS|STREET'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'BIRTHDATE'
        Title.Caption = 'PERSON|BIRTHDATE'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'JOB'
        Title.Caption = 'JOB|JOB NAME'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'HIREDATE'
        Title.Caption = 'JOB|HIREDATE'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'SAL'
        Title.Caption = 'JOB|SAL'
        Width = 63
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'REMARKS'
        Width = 63
        Visible = True
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 443
    Height = 48
    Align = alTop
    BevelOuter = bvNone
    Color = 170
    TabOrder = 1
    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 Panel3: TPanel
      Left = 1
      Top = 24
      Width = 422
      Height = 23
      BevelOuter = bvNone
      TabOrder = 0
      object chkFiltered: TCheckBox
        Left = 5
        Top = 4
        Width = 65
        Height = 17
        Caption = 'Filtered'
        TabOrder = 0
        OnClick = chkFilteredClick
      end
      object chkFilterBar: TCheckBox
        Left = 85
        Top = 4
        Width = 65
        Height = 17
        Action = actFilterBar
        TabOrder = 1
      end
      object chkSearchBar: TCheckBox
        Left = 165
        Top = 4
        Width = 81
        Height = 17
        Action = actSearchBar
        TabOrder = 2
      end
      object chkRecCount: TCheckBox
        Left = 253
        Top = 4
        Width = 89
        Height = 17
        Caption = 'Record Count'
        TabOrder = 3
        OnClick = chkRecCountClick
      end
      object chkStretch: TCheckBox
        Left = 357
        Top = 4
        Width = 57
        Height = 17
        Caption = 'Stretch'
        TabOrder = 4
        OnClick = chkStretchClick
      end
    end
    object DBNavigator1: TDBNavigator
      Left = 153
      Top = 1
      Width = 270
      Height = 22
      DataSource = OraDataSource
      Flat = True
      TabOrder = 1
    end
    object Panel2: TPanel
      Left = 424
      Top = 0
      Width = 750
      Height = 48
      Anchors = [akLeft, akTop, akRight, akBottom]
      BevelOuter = bvNone
      TabOrder = 2
    end
  end
  object OraQuery: TOraQuery
    SQLInsert.Strings = (
      'INSERT INTO crgrid_test'
      
        '  (ID, NAME, COUNTRY, CITY, STREET, BIRTHDATE, JOB, HIREDATE, SA' +
        'L, REMARKS)'
      'VALUES'
      
        '  (:ID, :NAME, :COUNTRY, :CITY, :STREET, :BIRTHDATE, :JOB, :HIRE' +
        'DATE, :SAL, :REMARKS)'
      'RETURNING'
      
        '  ID, NAME, COUNTRY, CITY, STREET, BIRTHDATE, JOB, HIREDATE, SAL' +
        ', REMARKS'
      'INTO'
      
        '  :ID, :NAME, :COUNTRY, :CITY, :STREET, :BIRTHDATE, :JOB, :HIRED' +
        'ATE, :SAL, :REMARKS')
    SQLDelete.Strings = (
      'DELETE FROM crgrid_test'
      'WHERE'
      '  ID = :ID')
    SQLUpdate.Strings = (
      'UPDATE crgrid_test'
      'SET'
      '  ID = :ID,'
      '  NAME = :NAME,'
      '  COUNTRY = :COUNTRY,'
      '  CITY = :CITY,'
      '  STREET = :STREET,'
      '  BIRTHDATE = :BIRTHDATE,'
      '  JOB = :JOB,'
      '  HIREDATE = :HIREDATE,'
      '  SAL = :SAL,'
      '  REMARKS = :REMARKS'
      'WHERE'
      '  ID = :OLD_ID'
      'RETURNING'
      
        '  ID, NAME, COUNTRY, CITY, STREET, BIRTHDATE, JOB, HIREDATE, SAL' +
        ', REMARKS'
      'INTO'
      
        '  :ID, :NAME, :COUNTRY, :CITY, :STREET, :BIRTHDATE, :JOB, :HIRED' +
        'ATE, :SAL, :REMARKS')
    SQLLock.Strings = (
      'SELECT * FROM crgrid_test'
      'WHERE'
      '  ID = :ID'
      'FOR UPDATE NOWAIT')
    SQLRefresh.Strings = (
      'WHERE'
      '  ID = :ID')
    SQL.Strings = (
      'SELECT * FROM crgrid_test')
    Left = 40
    Top = 144
  end
  object OraDataSource: TOraDataSource
    DataSet = OraQuery
    Left = 72
    Top = 144
  end
  object ActionList1: TActionList
    Left = 104
    Top = 144
    object actSearchBar: TAction
      Caption = 'Search Bar'
      OnExecute = actSearchBarExecute
      OnUpdate = actSearchBarUpdate
    end
    object actFilterBar: TAction
      Caption = 'Filter Bar'
      OnExecute = actFilterBarExecute
      OnUpdate = actFilterBarUpdate
    end
  end
end