www.cnzz.cn.txt

ADOTEST FOR DELPHI ADOTEST FOR DELPHI

object ADODBTest: TADODBTest
  Left = 190
  Top = 138
  HorzScrollBar.Increment = 52
  VertScrollBar.Increment = 45
  AutoScroll = False
  Caption = 'ADO DB Controls Test Application'
  ClientHeight = 460
  ClientWidth = 680
  Color = clBtnFace
  ParentFont = True
  Menu = MainMenu1
  OldCreateOrder = True
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 16
    Top = 53
    Width = 3
    Height = 13
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 436
    Width = 680
    Height = 24
    Panels = <
      item
        Text = 'Message'
        Width = 300
      end
      item
        Text = 'Modified'
        Width = 80
      end
      item
        Text = 'Null'
        Width = 50
      end
      item
        Text = 'RecNo'
        Width = 50
      end>
    SimplePanel = False
  end
  object AreaSelector: TPageControl
    Left = 5
    Top = 30
    Width = 501
    Height = 148
    ActivePage = SourcePage
    Anchors = [akLeft, akTop, akRight]
    Constraints.MinWidth = 500
    TabOrder = 1
    object SourcePage: TTabSheet
      Caption = 'Source'
      object EditConnStr: TSpeedButton
        Left = 460
        Top = 14
        Width = 18
        Height = 18
        Caption = '...'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
        OnClick = EditConnStrClick
      end
      object Label2: TLabel
        Left = 6
        Top = -1
        Width = 87
        Height = 13
        Caption = 'Connection String:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object TableNames: TGroupBox
        Left = 5
        Top = 38
        Width = 133
        Height = 76
        Caption = ' Master/Detail Tables '
        TabOrder = 1
        object MasterTableName: TComboBox
          Left = 8
          Top = 18
          Width = 116
          Height = 21
          DropDownCount = 20
          ItemHeight = 13
          Sorted = True
          TabOrder = 0
          Text = 'Customer'
          OnClick = MasterTableNameClick
          OnDropDown = MasterTableNameDropDown
          OnKeyPress = MasterTableNameKeyPress
        end
        object DetailTableName: TComboBox
          Left = 8
          Top = 45
          Width = 116
          Height = 21
          DropDownCount = 20
          ItemHeight = 13
          Sorted = True
          TabOrder = 1
          Text = 'Orders'
          OnClick = DetailTableNameClick
          OnDropDown = MasterTableNameDropDown
          OnKeyPress = MasterTableNameKeyPress
        end
      end
      object QueryStrings: TGroupBox
        Left = 143
        Top = 38
        Width = 212
        Height = 75
        Caption = ' Master/Detail Queries '
        TabOrder = 2
        object PrevQuery1: TSpeedButton
          Left = 189
          Top = 39
          Width = 19
          Height = 13
          Action = PrevQuery
          Flat = True
          Glyph.Data = {
            32010000424D320100000000000036000000280000000B000000070000000100
            180000000000FC000000CE0E0000C40E00000000000000000000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00
            FF000000000000000000000000000000000000000000000000000000FF00FF00
            0000FF00FFFF00FF000000000000000000000000000000000000000000FF00FF
            FF00FF000000FF00FFFF00FFFF00FF000000000000000000000000000000FF00
            FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FF000000000000000000FF
            00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FF000000
            FF00FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000}
          ParentShowHint = False
          ShowHint = True
        end
        object NextQuery1: TSpeedButton
          Left = 189
          Top = 52
          Width = 19
          Height = 13
          Action = NextQuery
          Flat = True
          Glyph.Data = {
            32010000424D320100000000000036000000280000000B000000070000000100
            180000000000FC000000CE0E0000C40E00000000000000000000FF00FFFF00FF
            FF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000FF00
            FFFF00FFFF00FFFF00FFFF00FF000000FF00FFFF00FFFF00FFFF00FFFF00FF00
            0000FF00FFFF00FFFF00FFFF00FF000000000000000000FF00FFFF00FFFF00FF
            FF00FF000000FF00FFFF00FFFF00FF000000000000000000000000000000FF00
            FFFF00FFFF00FF000000FF00FFFF00FF00000000000000000000000000000000
            0000000000FF00FFFF00FF000000FF00FF000000000000000000000000000000
            000000000000000000000000FF00FF000000FF00FFFF00FFFF00FFFF00FFFF00
            FFFF00FFFF00FFFF00FFFF00FFFF00FFFF00FF000000}
          ParentShowHint = False
          ShowHint = True
        end
        object EditCommandText: TSpeedButton
          Left = 189
          Top = 19
          Width = 18
          Height = 18
          Caption = '...'
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ParentFont = False
          OnClick = EditCommandTextClick
        end
        object MasterSQL: TMemo
          Left = 7
          Top = 18
          Width = 180
          Height = 21
          Lines.Strings = (
            'Select * from Customer')
          TabOrder = 0
          OnChange = MasterSQLChange
          OnKeyPress = MasterSQLKeyPress
        end
        object DetailSQL: TMemo
          Left = 7
          Top = 45
          Width = 180
          Height = 21
          Lines.Strings = (
            'select * from orders where CustNo = '
            ':CustNo')
          TabOrder = 1
          OnKeyPress = MasterSQLKeyPress
        end
      end
      object ConnectionString: TComboBox
        Left = 6
        Top = 13
        Width = 450
        Height = 21
        Hint = 'asdfasdf'
        DropDownCount = 20
        ItemHeight = 13
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = ConnectionStringClick
        OnKeyPress = ConnectionStringKeyPress
      end
      object ProcedureNames: TGroupBox
        Left = 361
        Top = 38
        Width = 125
        Height = 75
        Caption = ' Stored Procedure '
        TabOrder = 3
        object MasterProcName: TComboBox
          Left = 9
          Top = 17
          Width = 108
          Height = 21
          ItemHeight = 13
          TabOrder = 0
          OnClick = MasterProcNameClick
          OnDropDown = ProcNameDropDown
          OnKeyPress = MasterProcNameKeyPress
        end
        object DetailProcName: TComboBox
          Left = 9
          Top = 44
          Width = 108
          Height = 21
          ItemHeight = 13
          TabOrder = 1
          OnClick = DetailProcNameClick
          OnDropDown = ProcNameDropDown
        end
      end
    end
    object FieldsPage: TTabSheet
      Caption = 'Fields'
      OnShow = FieldsPageShow
      object FieldSchemaGrid: TDBGrid
        Left = 0
        Top = 0
        Width = 493
        Height = 120
        Align = alClient
        DataSource = FieldSchemaSource
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
    end
    object ParamPage: TTabSheet
      Caption = 'Parameters'
      ImageIndex = 6
      OnShow = ParamPageShow
      object ParameterNameLabel: TLabel
        Left = 135
        Top = 2
        Width = 28
        Height = 13
        Caption = 'Name'
      end
      object PTypeLabel: TLabel
        Left = 135
        Top = 40
        Width = 24
        Height = 13
        Caption = 'Type'
      end
      object PValueLabel: TLabel
        Left = 135
        Top = 79
        Width = 27
        Height = 13
        Caption = 'Value'
      end
      object PSizeLabel: TLabel
        Left = 243
        Top = 2
        Width = 20
        Height = 13
        Caption = 'Size'
      end
      object PScaleLabel: TLabel
        Left = 242
        Top = 41
        Width = 27
        Height = 13
        Caption = 'Scale'
      end
      object PPrecisionLabel: TLabel
        Left = 242
        Top = 79
        Width = 43
        Height = 13
        Caption = 'Precision'
      end
      object ParameterList: TListBox
        Left = 2
        Top = 16
        Width = 124
        Height = 74
        ItemHeight = 13
        TabOrder = 0
        OnClick = ParameterListClick
      end
      object ParameterName: TEdit
        Left = 135
        Top = 16
        Width = 101
        Height = 21
        TabOrder = 1
        OnChange = ParameterDataChange
      end
      object ParameterValue: TEdit
        Left = 135
        Top = 93
        Width = 101
        Height = 21
        TabOrder = 2
        OnChange = ParameterDataChange
      end
      object ParameterSize: TEdit
        Left = 242
        Top = 16
        Width = 71
        Height = 21
        TabOrder = 3
        OnChange = ParameterDataChange
      end
      object ParameterScale: TEdit
        Left = 242
        Top = 55
        Width = 71
        Height = 21
        TabOrder = 4
        OnChange = ParameterDataChange
      end
      object ParameterPrecision: TEdit
        Left = 242
        Top = 93
        Width = 71
        Height = 21
        TabOrder = 5
        OnChange = ParameterDataChange
      end
      object ParameterDirectionGroup: TRadioGroup
        Left = 322
        Top = 2
        Width = 162
        Height = 57
        Caption = ' Direction '
        Columns = 2
        Items.Strings = (
          'Input'
          'Output'
          'In/Out'