main.dfm

odac for oralce 8i,10g,11g easy to connect to oralce from delphi

    object cbdbExpress: TCheckBox
      Left = 172
      Top = 29
      Width = 73
      Height = 17
      Caption = 'dbExpress'
      TabOrder = 15
    end
    object btnMultiExecuting: TButton
      Left = 475
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Multi Executing'
      TabOrder = 16
      OnClick = btnMultiExecutingClick
    end
    object btnInsertPost: TButton
      Left = 555
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Insert/Post'
      TabOrder = 17
      OnClick = btnInsertPostClick
    end
    object cbSetInternalName: TCheckBox
      Left = 572
      Top = 37
      Width = 87
      Height = 17
      Caption = 'Internal Name'
      TabOrder = 18
      OnClick = cbSetInternalNameClick
    end
    object cbResultLog: TCheckBox
      Left = 716
      Top = 37
      Width = 75
      Height = 17
      Caption = 'Result Log'
      Checked = True
      State = cbChecked
      TabOrder = 19
      OnClick = cbResultLogClick
    end
  end
  object meResult: TMemo
    Left = 620
    Top = 66
    Width = 172
    Height = 507
    Align = alRight
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object OraSession: TOraSession
    ThreadSafety = False
    Username = 'Scott'
    Password = 'tiger'
    Server = 'ORA'
    Left = 72
    Top = 112
  end
  object OraQuery: TOraQuery
    Session = OraSession
    FetchRows = 64
    AutoCommit = False
    Options.FlatBuffers = True
    Left = 104
    Top = 112
  end
  object scCreate: TOraScript
    Session = OraSession
    SQL.Strings = (
      'CREATE TABLE Master ('
      '  Code NUMBER,'
      '  Field1 VARCHAR(100),'
      '  Field2 VARCHAR(100),'
      '  Field3 VARCHAR(100)'
      ');'
      ''
      'CREATE TABLE Detail ('
      '  Code NUMBER,'
      '  Master NUMBER,'
      '  Field1 VARCHAR(100),'
      '  Field2 VARCHAR(100)'
      ');'
      ''
      'CREATE TABLE Loaded ('
      '  Code NUMBER,'
      '  Field1 VARCHAR(100),'
      '  Field2 VARCHAR(100),'
      '  Field3 VARCHAR(100),'
      '  Field4 VARCHAR(100),'
      '  Field5 VARCHAR(100)'
      ');'
      ''
      'declare'
      '  i INTEGER;'
      'begin'
      '  for i in 1..5000 loop'
      '    INSERT INTO Master ('
      '       Code,'
      '       Field1,'
      '       Field2,'
      '       Field3)'
      '    VALUES ('
      '       i,'
      '       '#39'01234567890123456789'#39','
      '       '#39'12345678901234567890'#39','
      '       '#39'23456789012345678901'#39');'
      '  end loop;'
      ''
      '  for i in 1..50000 loop'
      '    INSERT INTO Detail ('
      '       Code,'
      '       Master,'
      '       Field1,'
      '       Field2)'
      '    VALUES ('
      '       i,'
      '       mod(i,5000) + 1,'
      '       '#39'01234567890123456789'#39','
      '       '#39'12345678901234567890'#39');'
      '  end loop;'
      ''
      '  COMMIT;'
      'end;'
      '/'
      ''
      'CREATE INDEX Detail_IND ON Detail (Master);'
      '/'
      'CREATE OR REPLACE'
      'PROCEDURE Master_Insert ('
      '  p_Code NUMBER,'
      '  p_Field1 VARCHAR2,'
      '  p_Field2 VARCHAR2,'
      '  p_Field3 VARCHAR2'
      ')'
      'is'
      'begin'
      '/*  INSERT INTO Master ('
      '     Code,'
      '     Field1,'
      '     Field2,'
      '     Field3)'
      '  VALUES ('
      '     p_Code,'
      '     p_Field1,'
      '     p_Field2,'
      '     p_Field3);*/'
      '  NULL;'
      'end;'
      '/')
    Debug = True
    Left = 432
    Top = 112
  end
  object scDrop: TOraScript
    Session = OraSession
    SQL.Strings = (
      'DROP TABLE Detail;'
      'DROP TABLE Master;'
      'DROP TABLE Loaded;'
      ''
      'DROP PROCEDURE Master_Insert;')
    Debug = True
    Left = 464
    Top = 112
  end
  object Database: TDatabase
    DatabaseName = 'db'
    DriverName = 'ORACLE'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=Scott'
      'PASSWORD=tiger'
      'SERVER NAME=ORA'
      'ROWSET SIZE=64')
    SessionName = 'Default'
    Left = 168
    Top = 113
  end
  object BDEQuery: TQuery
    DatabaseName = 'db'
    Left = 200
    Top = 113
  end
  object ADOConnection: TADOConnection
    ConnectionString = 'Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=ORA'
    LoginPrompt = False
    Provider = 'MSDAORA.1'
    Left = 264
    Top = 113
  end
  object ADOQuery: TADOQuery
    CacheSize = 64
    Connection = ADOConnection
    Parameters = <>
    Left = 296
    Top = 113
  end
  object OraQuery1: TOraQuery
    Session = OraSession
    FetchRows = 64
    AutoCommit = False
    Left = 104
    Top = 145
  end
  object BDEQuery1: TQuery
    DatabaseName = 'db'
    Left = 200
    Top = 145
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 296
    Top = 145
  end
  object ADOStoredProc: TADOStoredProc
    Connection = ADOConnection
    Parameters = <>
    Left = 328
    Top = 145
  end
  object OraStoredProc: TOraStoredProc
    Session = OraSession
    AutoCommit = False
    Left = 136
    Top = 145
  end
  object BDEStoredProc: TStoredProc
    DatabaseName = 'db'
    Left = 232
    Top = 145
  end
  object OraSQL: TOraSQL
    Session = OraSession
    Left = 136
    Top = 179
  end
  object OraLoader: TOraLoader
    Session = OraSession
    TableName = 'Loaded'
    Columns = <
      item
        Name = 'CODE'
        DataType = ctString
        Size = 20
      end
      item
        Name = 'FIELD1'
        DataType = ctString
        Size = 100
      end
      item
        Name = 'FIELD2'
        DataType = ctString
        Size = 100
      end
      item
        Name = 'FIELD3'
        DataType = ctString
        Size = 100
      end
      item
        Name = 'FIELD4'
        DataType = ctString
        Size = 100
      end
      item
        Name = 'FIELD5'
        DataType = ctString
        Size = 100
      end>
    OnPutData = OraLoaderPutData
    Left = 136
    Top = 211
  end
  object BorlandSQLConnection: TSQLConnection
    ConnectionName = 'Oracle'
    DriverName = 'Oracle'
    GetDriverFunc = 'getSQLDriverORACLE'
    LibraryName = 'dbexpora.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'DataBase=ORA'
      'DriverName=Oracle'
      'ErrorResourceFile='
      'LocaleCode=0000'
      'Password=tiger'
      'Oracle TransIsolation=ReadCommited'
      'User_Name=scott'
      'RowsetSize=64')
    VendorLib = 'OCI.DLL'
    Left = 364
    Top = 112
  end
  object BorlandSQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = BorlandSQLConnection
    Left = 396
    Top = 112
  end
  object BorlandSQLQuery1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = BorlandSQLConnection
    Left = 396
    Top = 144
  end
  object BorlandSQLStoredProc: TSQLStoredProc
    MaxBlobSize = -1
    Params = <
      item
        DataType = ftBCD
        Name = 'P_CODE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FIELD1'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FIELD2'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'P_FIELD3'
        ParamType = ptInput
      end>
    SQLConnection = BorlandSQLConnection
    StoredProcName = 'MASTER_INSERT'
    Left = 428
    Top = 144
  end
  object OraTable: TOraTable
    Left = 136
    Top = 112
  end
  object BDETable: TTable
    DatabaseName = 'db'
    SessionName = 'Default'
    Left = 232
    Top = 112
  end
  object ADOTable: TADOTable
    Connection = ADOConnection
    CursorType = ctStatic
    Left = 324
    Top = 112
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = BorlandSQLTable
    Left = 464
    Top = 144
  end
  object BorlandClientDataSet: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 464
    Top = 176
  end
  object BorlandSQLTable: TSQLTable
    MaxBlobSize = -1
    SQLConnection = BorlandSQLConnection
    Left = 428
    Top = 176
  end
end