main.dfm

ODAC+SDAC源代码

object fmMain: TfmMain
  Left = 181
  Top = 169
  Width = 800
  Height = 600
  Caption = 'MS SQL Data Access Demos - SDAC performance'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 617
    Top = 66
    Height = 507
    Align = alRight
  end
  object Chart: TChart
    Left = 0
    Top = 66
    Width = 617
    Height = 507
    BackWall.Brush.Color = clWhite
    BackWall.Color = clSilver
    Gradient.EndColor = 12615808
    MarginBottom = 2
    MarginLeft = 2
    MarginRight = 2
    Title.Text.Strings = (
      'SDAC Performance')
    BackColor = clSilver
    BottomAxis.Automatic = False
    BottomAxis.AutomaticMaximum = False
    BottomAxis.AutomaticMinimum = False
    BottomAxis.ExactDateTime = False
    BottomAxis.Maximum = 5.000000000000000000
    BottomAxis.Title.Caption = 'record count'
    Chart3DPercent = 20
    LeftAxis.Title.Caption = 'seconds'
    MaxPointsPerPage = 10
    TopAxis.Automatic = False
    TopAxis.AutomaticMaximum = False
    TopAxis.AutomaticMinimum = False
    TopAxis.Visible = False
    View3D = False
    View3DOptions.Elevation = 360
    View3DOptions.Perspective = 100
    View3DOptions.Rotation = 354
    View3DOptions.Zoom = 99
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvLowered
    TabOrder = 0
    object Series1: TLineSeries
      HorizAxis = aBothHorizAxis
      Marks.ArrowLength = 8
      Marks.BackColor = clRed
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clRed
      Title = 'SDAC'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series2: TLineSeries
      Marks.ArrowLength = 8
      Marks.BackColor = clGreen
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clGreen
      Title = 'BDE'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series3: TLineSeries
      Marks.ArrowLength = 20
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clYellow
      Title = 'ADO'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series4: TLineSeries
      Marks.ArrowLength = 20
      Marks.BackColor = clBlue
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clBlue
      Title = 'dbExpress'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
    object Series5: TLineSeries
      Marks.ArrowLength = 20
      Marks.BackColor = clFuchsia
      Marks.Style = smsValue
      Marks.Visible = True
      SeriesColor = clFuchsia
      Title = 'dbExpSda'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1.000000000000000000
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1.000000000000000000
      YValues.Order = loNone
    end
  end
  object Tollbar: TPanel
    Left = 0
    Top = 0
    Width = 792
    Height = 66
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object Label1: TLabel
      Left = 352
      Top = 37
      Width = 83
      Height = 13
      Caption = 'Fetch Block Size:'
      Layout = tlCenter
    end
    object lbSDAC: TLabel
      Left = 27
      Top = 50
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbBDE: TLabel
      Left = 87
      Top = 50
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbADO: TLabel
      Left = 139
      Top = 50
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clYellow
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object lbdbExpress: TLabel
      Left = 191
      Top = 50
      Width = 8
      Height = 13
      Caption = '0'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 154
      Top = 0
      Width = 2
      Height = 25
    end
    object Bevel2: TBevel
      Left = 639
      Top = 0
      Width = 2
      Height = 25
    end
    object Bevel3: TBevel
      Left = 0
      Top = 24
      Width = 800
      Height = 2
    end
    object Bevel4: TBevel
      Left = 0
      Top = 64
      Width = 800
      Height = 2
    end
    object Bevel5: TBevel
      Left = 334
      Top = 26
      Width = 2
      Height = 39
    end
    object lbdbExpSda: TLabel
      Left = 263
      Top = 50
      Width = 8
      Height = 13
      Caption = '0'
      Color = clBtnFace
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clFuchsia
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentColor = False
      ParentFont = False
    end
    object btFetchTest: TButton
      Left = 160
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Fetch Test'
      TabOrder = 0
      OnClick = btFetchTestClick
    end
    object btConnect: TButton
      Left = 0
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Connect'
      TabOrder = 1
      OnClick = btConnectClick
    end
    object btDisconnect: TButton
      Left = 75
      Top = 0
      Width = 75
      Height = 25
      Caption = 'Disconnect'
      TabOrder = 2
      OnClick = btDisconnectClick
    end
    object btMasterDetailTest: TButton
      Left = 235
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Master/Detail '
      TabOrder = 3
      OnClick = btMasterDetailTestClick
    end
    object btSPCallTest: TButton
      Left = 315
      Top = 0
      Width = 80
      Height = 25
      Caption = 'StoredProc Call'
      TabOrder = 4
      OnClick = btSPCallTestClick
    end
    object cbSDAC: TCheckBox
      Left = 8
      Top = 29
      Width = 57
      Height = 17
      Caption = 'SDAC'
      Checked = True
      State = cbChecked
      TabOrder = 5
    end
    object cbBDE: TCheckBox
      Left = 68
      Top = 29
      Width = 49
      Height = 17
      Caption = 'BDE'
      Checked = True
      State = cbChecked
      TabOrder = 6
    end
    object cbADO: TCheckBox
      Left = 120
      Top = 29
      Width = 49
      Height = 17
      Caption = 'ADO'
      Checked = True
      State = cbChecked
      TabOrder = 7
    end
    object edFetchRows: TEdit
      Left = 438
      Top = 35
      Width = 70
      Height = 21
      Hint = 'FetchRows for SDAC, ROWSET SIZE for BDE, ADO always uses 64'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      Text = 'edFetchRows'
      OnExit = edFetchRowsExit
    end
    object btCreate: TButton
      Left = 645
      Top = 0
      Width = 73
      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 = 9
      OnClick = btCreateClick
    end
    object btDrop: TButton
      Left = 718
      Top = 0
      Width = 73
      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 = 10
      OnClick = btDropClick
    end
    object cbMark: TCheckBox
      Left = 664
      Top = 37
      Width = 48
      Height = 17
      Caption = 'Marks'
      Checked = True
      State = cbChecked
      TabOrder = 11
      OnClick = cbMarkClick
    end
    object btDataLoadingTest: TButton
      Left = 395
      Top = 0
      Width = 80
      Height = 25
      Caption = 'Data Loading '
      TabOrder = 12