main.dfm

ODAC+SDAC源代码

      Visible = False
      OnClick = btDataLoadingTestClick
    end
    object cbdbExpress: TCheckBox
      Left = 172
      Top = 29
      Width = 73
      Height = 17
      Caption = 'dbExpress'
      Checked = True
      State = cbChecked
      TabOrder = 13
    end
    object btnMultiExecuting: TButton
      Left = 475
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Multi Executing'
      TabOrder = 14
      OnClick = btnMultiExecutingClick
    end
    object btnInsertPost: TButton
      Left = 555
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Insert/Post'
      TabOrder = 15
      OnClick = btnInsertPostClick
    end
    object cbResultLog: TCheckBox
      Left = 716
      Top = 37
      Width = 75
      Height = 17
      Caption = 'Result Log'
      Checked = True
      State = cbChecked
      TabOrder = 16
      OnClick = cbResultLogClick
    end
    object cbdbExpSda: TCheckBox
      Left = 244
      Top = 29
      Width = 73
      Height = 17
      Caption = 'dbExpSda'
      TabOrder = 17
    end
  end
  object meResult: TMemo
    Left = 620
    Top = 66
    Width = 172
    Height = 507
    Align = alRight
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object MSConnection: TMSConnection
    Database = 'master'
    Authentication = auServer
    Username = 'Sa'
    Server = '(local)'
    Left = 72
    Top = 112
  end
  object MSQuery: TMSQuery
    Connection = MSConnection
    FetchRows = 64
    Left = 104
    Top = 112
  end
  object scCreate: TMSSQL
    Connection = MSConnection
    SQL.Strings = (
      'CREATE TABLE Master ('
      '  Code INT,'
      '  Field1 VARCHAR(100),'
      '  Field2 VARCHAR(100),'
      '  Field3 VARCHAR(100)'
      ');'
      ''
      'CREATE TABLE Detail ('
      '  Code INT,'
      '  Master INT,'
      '  Field1 VARCHAR(100),'
      '  Field2 VARCHAR(100)'
      ');'
      ''
      'CREATE TABLE Loaded ('
      '  Code INT,'
      '  Field1 VARCHAR(100),'
      '  Field2 VARCHAR(100),'
      '  Field3 VARCHAR(100),'
      '  Field4 VARCHAR(100),'
      '  Field5 VARCHAR(100)'
      ');'
      ''
      'declare'
      '  @i INTEGER;'
      'begin'
      '  SET @i = 0'
      '  WHILE @i < 1000'
      '  BEGIN'
      '    SET @i = @i + 1'
      '    INSERT INTO Master ('
      '       Code,'
      '       Field1,'
      '       Field2,'
      '       Field3)'
      '    VALUES ('
      '       @i,'
      '       '#39'01234567890123456789'#39','
      '       '#39'12345678901234567890'#39','
      '       '#39'23456789012345678901'#39');'
      '  END;'
      ''
      '  SET @i = 0'
      '  WHILE @i < 100000 '
      '  BEGIN'
      '    SET @i = @i + 1'
      '    INSERT INTO Detail ('
      '       Code,'
      '       Master,'
      '       Field1,'
      '       Field2)'
      '    VALUES ('
      '       @i,'
      '       @i % 1000 + 1,'
      '       '#39'01234567890123456789'#39','
      '       '#39'12345678901234567890'#39');'
      '  END;'
      'end;'
      ''
      ''
      'CREATE INDEX Detail_IND ON Detail (Master);')
    Debug = True
    CommandTimeout = 0
    Left = 648
    Top = 80
  end
  object scDrop: TMSSQL
    Connection = MSConnection
    SQL.Strings = (
      
        'if exists (SELECT * FROM dbo.sysobjects WHERE id = object_id('#39'Ma' +
        'ster_Insert'#39'))'
      'DROP PROCEDURE Master_Insert'
      ''
      
        'if exists (SELECT * FROM dbo.sysobjects WHERE id = object_id('#39'De' +
        'tail'#39'))'
      'DROP TABLE Detail;'
      ''
      
        'if exists (SELECT * FROM dbo.sysobjects WHERE id = object_id('#39'Ma' +
        'ster'#39'))'
      'DROP TABLE Master;'
      ''
      
        'if exists (SELECT * FROM dbo.sysobjects WHERE id = object_id('#39'Lo' +
        'aded'#39'))'
      'DROP TABLE Loaded;')
    Debug = True
    CommandTimeout = 0
    Left = 680
    Top = 80
  end
  object Database: TDatabase
    DatabaseName = 'db'
    DriverName = 'MSSQL'
    LoginPrompt = False
    Params.Strings = (
      'USER NAME=Sa'
      'PASSWORD='
      'SERVER NAME=ORA'
      'ROWSET SIZE=64')
    SessionName = 'Default'
    Left = 168
    Top = 112
  end
  object BDEQuery: TQuery
    DatabaseName = 'db'
    Left = 200
    Top = 112
  end
  object ADOConnection: TADOConnection
    LoginPrompt = False
    Provider = 'SQLOLEDB'
    Left = 264
    Top = 112
  end
  object ADOQuery: TADOQuery
    CacheSize = 64
    Connection = ADOConnection
    Parameters = <>
    Left = 296
    Top = 112
  end
  object MSQuery1: TMSQuery
    Connection = MSConnection
    FetchRows = 64
    Left = 104
    Top = 144
  end
  object BDEQuery1: TQuery
    DatabaseName = 'db'
    Left = 200
    Top = 144
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection
    Parameters = <>
    Left = 296
    Top = 144
  end
  object ADOStoredProc: TADOStoredProc
    Connection = ADOConnection
    Parameters = <>
    Left = 328
    Top = 144
  end
  object MSStoredProc: TMSStoredProc
    Connection = MSConnection
    Left = 136
    Top = 144
  end
  object BDEStoredProc: TStoredProc
    DatabaseName = 'db'
    Left = 232
    Top = 144
  end
  object MSSQL: TMSSQL
    Connection = MSConnection
    CommandTimeout = 0
    Left = 136
    Top = 176
  end
  object BorlandSQLConnection: TSQLConnection
    ConnectionName = 'MSSQLConnection'
    DriverName = 'MSSQL'
    GetDriverFunc = 'getSQLDriverMSSQL'
    LibraryName = 'dbexpmss.dll'
    LoginPrompt = False
    Params.Strings = (
      'DriverName=MSSQL'
      'HostName=ServerName'
      'DataBase=Database Name'
      'User_Name=user'
      'Password=password'
      'BlobSize=-1'
      'LocaleCode=0000'
      'MSSQL TransIsolation=ReadCommited'
      'OS Authentication=False')
    VendorLib = 'oledb'
    Left = 360
    Top = 112
  end
  object BorlandSQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = BorlandSQLConnection
    Left = 392
    Top = 112
  end
  object BorlandSQLQuery1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = BorlandSQLConnection
    Left = 392
    Top = 144
  end
  object BorlandSQLStoredProc: TSQLStoredProc
    MaxBlobSize = -1
    Params = <>
    SQLConnection = BorlandSQLConnection
    Left = 424
    Top = 144
  end
  object MSTable: TMSTable
    Connection = MSConnection
    Left = 136
    Top = 112
  end
  object BDETable: TTable
    DatabaseName = 'db'
    SessionName = 'Default'
    Left = 232
    Top = 112
  end
  object ADOTable: TADOTable
    Connection = ADOConnection
    Left = 328
    Top = 112
  end
  object DataSetProvider1: TDataSetProvider
    DataSet = BorlandSQLTable
    Left = 456
    Top = 144
  end
  object BorlandClientDataSet: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider1'
    Left = 456
    Top = 176
  end
  object BorlandSQLTable: TSQLTable
    MaxBlobSize = -1
    SQLConnection = BorlandSQLConnection
    Left = 424
    Top = 176
  end
  object CrLabSQLConnection: TSQLConnection
    ConnectionName = 'SQLServerConnection'
    DriverName = 'SQLServer'
    GetDriverFunc = 'getSQLDriverSQLServer'
    LibraryName = 'dbexpsda.dll'
    LoginPrompt = False
    Params.Strings = (
      'BlobSize=-1'
      'HostName=Core'
      'DataBase=Northwind'
      'DriverName=SQLServer'
      'User_Name=sa'
      'Password='
      'LongStrings=True'
      'EnableBCD=True'
      'FetchAll=True')
    VendorLib = 'sqloledb.dll'
    AfterConnect = CrLabSQLConnectionAfterConnect
    Left = 360
    Top = 240
  end
  object CrLabSQLQuery: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = CrLabSQLConnection
    Left = 392
    Top = 240
  end
  object CrLabSQLQuery1: TSQLQuery
    MaxBlobSize = -1
    Params = <>
    SQLConnection = CrLabSQLConnection
    Left = 392
    Top = 272
  end
  object CrLabSQLTable: TSQLTable
    MaxBlobSize = -1
    SQLConnection = CrLabSQLConnection
    Left = 424
    Top = 304
  end
  object CrLabClientDataSet: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'DataSetProvider2'
    Left = 456
    Top = 304
  end
  object DataSetProvider2: TDataSetProvider
    DataSet = CrLabSQLTable
    Left = 456
    Top = 272
  end
  object CrLabSQLStoredProc: TSQLStoredProc
    MaxBlobSize = -1
    Params = <>
    SQLConnection = CrLabSQLConnection
    Left = 424
    Top = 272
  end
  object scCreate2: TMSSQL
    Connection = MSConnection
    SQL.Strings = (
      'CREATE PROCEDURE Master_Insert '
      '  @p_Code INT,'
      '  @p_Field1 VARCHAR(100),'
      '  @p_Field2 VARCHAR(100),'
      '  @p_Field3 VARCHAR(100)'
      'AS'
      'begin'
      '  INSERT INTO Master ('
      '     Code,'
      '     Field1,'
      '     Field2,'
      '     Field3)'
      '  VALUES ('
      '     @p_Code,'
      '     @p_Field1,'
      '     @p_Field2,'
      '     @p_Field3);'
      'end;')
    Debug = True
    CommandTimeout = 0
    Left = 648
    Top = 112
  end
end