www.cnzz.cn.txt

ADOTEST FOR DELPHI ADOTEST FOR DELPHI

          'Return')
        TabOrder = 6
        OnClick = ParameterDataChange
      end
      object ParamAttributes: TGroupBox
        Left = 322
        Top = 63
        Width = 162
        Height = 52
        Caption = ' Attributes '
        TabOrder = 7
        object PANullableCheckBox: TCheckBox
          Left = 11
          Top = 13
          Width = 72
          Height = 17
          Caption = 'Nullable'
          TabOrder = 0
          OnClick = ParameterDataChange
        end
        object PASignedCheckBox: TCheckBox
          Left = 11
          Top = 31
          Width = 66
          Height = 17
          Caption = 'Signed'
          TabOrder = 1
          OnClick = ParameterDataChange
        end
        object PALongCheckBox: TCheckBox
          Left = 87
          Top = 13
          Width = 52
          Height = 17
          Caption = 'Long'
          TabOrder = 2
          OnClick = ParameterDataChange
        end
      end
      object AddParameterButton: TButton
        Left = 7
        Top = 94
        Width = 54
        Height = 23
        Caption = 'Add'
        TabOrder = 8
        OnClick = AddParameterButtonClick
      end
      object RefreshParametersButton: TButton
        Left = 66
        Top = 94
        Width = 54
        Height = 23
        Caption = 'Refresh'
        TabOrder = 9
        OnClick = RefreshParametersButtonClick
      end
      object ParameterType: TComboBox
        Left = 135
        Top = 55
        Width = 101
        Height = 21
        ItemHeight = 13
        TabOrder = 10
        OnChange = ParameterDataChange
      end
      object SQLParams: TRadioButton
        Left = 5
        Top = 1
        Width = 43
        Height = 14
        Caption = 'SQL'
        Checked = True
        TabOrder = 11
        TabStop = True
        OnClick = ParameterSourceClick
      end
      object ProcParams: TRadioButton
        Left = 50
        Top = 1
        Width = 73
        Height = 14
        Caption = 'StoredProc'
        TabOrder = 12
        OnClick = ParameterSourceClick
      end
    end
    object IndexPage: TTabSheet
      Caption = 'Indexes'
      OnShow = IndexPageShow
      object Label11: TLabel
        Left = 10
        Top = 2
        Width = 65
        Height = 13
        Caption = 'Index Names:'
      end
      object Label14: TLabel
        Left = 156
        Top = 3
        Width = 30
        Height = 13
        Caption = 'Fields:'
      end
      object Label3: TLabel
        Left = 156
        Top = 40
        Width = 55
        Height = 13
        Caption = 'DescFields:'
      end
      object Label13: TLabel
        Left = 156
        Top = 80
        Width = 68
        Height = 13
        Caption = 'CaseInsFields:'
      end
      object IndexList: TListBox
        Left = 8
        Top = 17
        Width = 137
        Height = 100
        ItemHeight = 13
        TabOrder = 0
        OnClick = IndexListClick
      end
      object IndexFields: TEdit
        Left = 156
        Top = 17
        Width = 164
        Height = 21
        ReadOnly = True
        TabOrder = 1
      end
      object DescFields: TEdit
        Left = 156
        Top = 56
        Width = 164
        Height = 21
        ReadOnly = True
        TabOrder = 2
      end
      object CaseInsFields: TEdit
        Left = 156
        Top = 96
        Width = 164
        Height = 21
        ReadOnly = True
        TabOrder = 3
      end
      object IndexOptions: TGroupBox
        Left = 333
        Top = 2
        Width = 159
        Height = 113
        Caption = ' Index Options '
        TabOrder = 4
        object idxCaseInsensitive: TCheckBox
          Left = 12
          Top = 85
          Width = 109
          Height = 17
          Caption = 'Case Insensitive'
          Enabled = False
          TabOrder = 0
        end
        object idxDescending: TCheckBox
          Left = 12
          Top = 64
          Width = 86
          Height = 17
          Caption = 'Descending'
          Enabled = False
          TabOrder = 1
        end
        object idxPrimary: TCheckBox
          Left = 12
          Top = 21
          Width = 97
          Height = 17
          Caption = 'Primary'
          Enabled = False
          TabOrder = 2
        end
        object idxUnique: TCheckBox
          Left = 12
          Top = 42
          Width = 97
          Height = 17
          Caption = 'Unique'
          Enabled = False
          TabOrder = 3
        end
      end
    end
    object FilterPage: TTabSheet
      Caption = 'Filters'
      OnShow = FilterPageShow
      object Label10: TLabel
        Left = 14
        Top = 2
        Width = 25
        Height = 13
        Caption = 'Filter:'
      end
      object Filter: TEdit
        Left = 14
        Top = 17
        Width = 235
        Height = 21
        TabOrder = 0
        OnExit = FilterExit
        OnKeyPress = FilterKeyPress
      end
      object FindFirst: TButton
        Left = 174
        Top = 50
        Width = 75
        Height = 25
        Caption = 'F&ind First'
        TabOrder = 2
        OnClick = FindFirstClick
      end
      object FindNext: TButton
        Left = 174
        Top = 84
        Width = 75
        Height = 25
        Caption = 'Find &Next'
        TabOrder = 3
        OnClick = FindNextClick
      end
      object Filtered: TCheckBox
        Left = 28
        Top = 46
        Width = 97
        Height = 17
        Caption = 'Filtered'
        TabOrder = 1
        OnClick = FilteredClick
      end
      object FilterGroupBox: TRadioGroup
        Left = 288
        Top = 9
        Width = 110
        Height = 105
        Caption = ' Filter Group '
        Items.Strings = (
          'Pending'
          'Affected'
          'Fetched'
          'Conflicting')
        TabOrder = 4
        OnClick = FilterGroupBoxClick
      end
    end
    object LocatePage: TTabSheet
      Caption = 'Locate'
      OnShow = LocatePageShow
      object LocateGroupBox: TGroupBox
        Left = 4
        Top = 1
        Width = 329
        Height = 114
        Caption = ' Locate '
        TabOrder = 0
        object Label16: TLabel
          Left = 10
          Top = 16
          Width = 36
          Height = 13
          Caption = 'Field(s):'
        end
        object Label17: TLabel
          Left = 11
          Top = 61
          Width = 122
          Height = 13
          Caption = 'Values (comma delimited):'
        end
        object LocateButton: TButton
          Left = 216
          Top = 18
          Width = 75
          Height = 25
          Caption = '&Locate'
          TabOrder = 2
          OnClick = LocateButtonClick
        end
        object LocateEdit: TEdit
          Left = 10
          Top = 79
          Width = 183
          Height = 21
          TabOrder = 1
        end
        object LocateField: TComboBox
          Left = 10
          Top = 32
          Width = 183
          Height = 21
          ItemHeight = 13
          Sorted = True
          TabOrder = 0
          OnDropDown = LocateFieldDropDown
        end
        object locPartialKey: TCheckBox
          Left = 217
          Top = 74
          Width = 97
          Height = 16
          Caption = 'Partial Key'
          TabOrder = 4
        end
        object LocateNull: TCheckBox
          Left = 217
          Top = 48
          Width = 97
          Height = 17
          Caption = 'Null Value'
          TabOrder = 3
          OnClick = LocateNullClick
        end
      end
    end
    object TabSheet1: TTabSheet
      Caption = 'MiscTest'
      object TestButton: TButton
        Left = 8
        Top = 7
        Width = 75
        Height = 25
        Caption = 'Test'
        TabOrder = 0
        OnClick = TestButtonClick
      end
    end
  end
  object DataPanel: TPanel
    Left = 5
    Top = 183
    Width = 501
    Height = 250
    Anchors = [akLeft, akTop, akRight, akBottom]
    Constraints.MinHeight = 80
    Constraints.MinWidth = 500
    TabOrder = 2
    object NavigatorPanel: TPanel
      Left = 1
      Top = 1
      Width = 499
      Height = 29
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
      object ReadOnlyLabel: TLabel
        Left = 403
        Top = 9
        Width = 60
        Height = 13
        Caption = 'Read Only'
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        Visible = False
      end
      object DBNavigator1: TDBNavigator
        Left = 4
        Top = 3
        Width = 240
        Height = 25
        DataSource = MasterDataSource
        TabOrder = 0