main.dfm

ODAC 5.7.0.28

object MainForm: TMainForm
  Left = 261
  Top = 190
  Width = 712
  Height = 417
  Caption = 'Using TCRDBGrid component with ODAC'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object CRDBGrid: TCRDBGrid
    Left = 0
    Top = 57
    Width = 704
    Height = 333
    OptionsEx = [dgeLocalFilter, dgeLocalSorting]
    Align = alClient
    DataSource = OraDataSource
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    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 = 704
    Height = 57
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object btOpen: TButton
      Left = 0
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Open'
      TabOrder = 0
      OnClick = btOpenClick
    end
    object btClose: TButton
      Left = 75
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Close'
      TabOrder = 1
      OnClick = btCloseClick
    end
    object btCreate: TButton
      Left = 391
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Create'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = btCreateClick
    end
    object btDrop: TButton
      Left = 466
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Drop'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = btDropClick
    end
    object DBNavigator1: TDBNavigator
      Left = 150
      Top = 0
      Width = 240
      Height = 25
      DataSource = OraDataSource
      TabOrder = 4
    end
    object chkFiltered: TCheckBox
      Left = 8
      Top = 33
      Width = 65
      Height = 17
      Caption = 'Filtered'
      TabOrder = 5
      OnClick = chkFilteredClick
    end
    object chkFilterBar: TCheckBox
      Left = 88
      Top = 33
      Width = 65
      Height = 17
      Action = actFilterBar
      TabOrder = 6
    end
    object chkSearchBar: TCheckBox
      Left = 168
      Top = 33
      Width = 81
      Height = 17
      Action = actSearchBar
      TabOrder = 7
    end
    object chkRecCount: TCheckBox
      Left = 256
      Top = 33
      Width = 89
      Height = 17
      Caption = 'Record Count'
      TabOrder = 8
      OnClick = chkRecCountClick
    end
    object chkStretch: TCheckBox
      Left = 360
      Top = 33
      Width = 57
      Height = 17
      Caption = 'Stretch'
      TabOrder = 9
      OnClick = chkStretchClick
    end
  end
  object OraSession: TOraSession
    Username = 'Scott'
    Password = 'tiger'
    Left = 8
    Top = 144
  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')
    Session = OraSession
    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
  object scCreate: TOraScript
    Session = OraSession
    SQL.Strings = (
      'CREATE TABLE CRGRID_TEST ('
      '  Id NUMBER(4) PRIMARY KEY,'
      '  Name VARCHAR2(10),'
      '  Country VARCHAR2(30),'
      '  City VARCHAR2(30),'
      '  Street VARCHAR2(30),'
      '  BirthDate DATE,'
      '  Job VARCHAR2(9),'
      '  Hiredate DATE,'
      '  Sal NUMBER(7, 2),'
      '  Remarks LONG'
      ');'
      ''
      'INSERT INTO CRGRID_TEST '
      '(Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal)'
      
        'VALUES (5001, '#39'SMITH'#39', '#39'ENGLAND'#39', '#39'LONDON'#39', '#39'BOND st.'#39', to_date(' +
        #39'12.10.63'#39', '#39'dd.mm.yy'#39'), '#39'CLERK'#39','
      'to_date('#39'17.12.80'#39', '#39'dd.mm.yy'#39'), 800);'
      ''
      'INSERT INTO CRGRID_TEST '
      '(Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal)'
      
        'VALUES (5002, '#39'ALLEN'#39', '#39'ENGLAND'#39', '#39'LONDON'#39', '#39'BAKER st.'#39', to_date' +
        '('#39'04.03.61'#39', '#39'dd.mm.yy'#39'), '#39'SALESMAN'#39','
      'to_date('#39'20.02.81'#39', '#39'dd.mm.yy'#39'), 1600);'
      ''
      'INSERT INTO CRGRID_TEST '
      '(Id, Name, Country, City, Street, BirthDate, Job, HireDate, Sal)'
      
        'VALUES (5003, '#39'MARTIN'#39', '#39'FRANCE'#39', '#39'LION'#39', '#39'WEAVER st.'#39', to_date(' +
        #39'23.01.57'#39', '#39'dd.mm.yy'#39'), '#39'MANAGER'#39','
      'to_date('#39'02.04.81'#39', '#39'dd.mm.yy'#39'), 2900);'
      ''
      'COMMIT;')
    Debug = True
    Left = 552
  end
  object scDrop: TOraScript
    Session = OraSession
    SQL.Strings = (
      'DROP TABLE CRGRID_TEST;'
      ''
      'COMMIT;')
    Debug = True
    Left = 584
  end
end