Componentes.Terceros.RemObjects/official/5.0.23.613/Data Abstract for Delphi/Samples/Stored Procedures/StoredProceduresMain.dfm

object StoredProceduresMainForm: TStoredProceduresMainForm
  Left = 43
  Top = 144
  AutoScroll = False
  Caption = 'Stored Procedure Demo'
  ClientHeight = 340
  ClientWidth = 573
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 40
    Top = 16
    Width = 54
    Height = 13
    Caption = 'Connection'
  end
  object Label2: TLabel
    Left = 8
    Top = 48
    Width = 86
    Height = 13
    Caption = 'Stored Procedure:'
  end
  object Label3: TLabel
    Left = 408
    Top = 318
    Width = 28
    Height = 13
    Caption = 'Times'
  end
  object ExecuteButton: TButton
    Left = 240
    Top = 312
    Width = 75
    Height = 25
    Caption = 'Execute'
    TabOrder = 5
    OnClick = ExecuteButtonClick
  end
  object cbConnName: TComboBox
    Left = 104
    Top = 12
    Width = 225
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 0
  end
  object cbSPNames: TComboBox
    Left = 104
    Top = 44
    Width = 225
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 2
  end
  object ConnectButton: TButton
    Left = 336
    Top = 10
    Width = 75
    Height = 25
    Caption = 'Connect'
    TabOrder = 1
    OnClick = ConnectButtonClick
  end
  object ListParamsButton: TButton
    Left = 336
    Top = 42
    Width = 75
    Height = 25
    Caption = 'List Params'
    TabOrder = 3
    OnClick = ListParamsButtonClick
  end
  object StringGrid: TStringGrid
    Left = 8
    Top = 80
    Width = 561
    Height = 217
    DefaultRowHeight = 16
    FixedCols = 4
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
    TabOrder = 4
    ColWidths = (
      129
      67
      65
      65
      201)
  end
  object SpinEdit: TSpinEdit
    Left = 328
    Top = 313
    Width = 73
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 6
    Value = 1
  end
  object DAConnectionManager: TDAConnectionManager
    Connections = <
      item
        Name = 'ADO'
        ConnectionString = 
          'ADO?Server=localhost;UserID=sa;AuxDriver=SQLOLEDB.1;Database=Nor' +
          'thwind;password='
        Description = 'Borland ADOExpress Connection'
        Default = True
        Tag = 0
      end
      item
        Name = 'IBX'
        ConnectionString = 
          'IBX?Server=;UserID=sysdba;Password=masterkey;Database=C:\Program' +
          ' Files\Borland\InterBase\examples\database\Employee.gdb'
        Description = 'Borland IBExpress Connection'
        Default = False
        Tag = 0
      end>
    DriverManager = DADriverManager
    PoolingEnabled = True
    Left = 416
    Top = 16
  end
  object DADriverManager: TDADriverManager
    DriverDirectory = '%SYSTEM%\'
    TraceActive = False
    TraceFlags = []
    Left = 384
    Top = 16
  end
  object DASchema: TDASchema
    ConnectionManager = DAConnectionManager
    Datasets = <>
    Commands = <
      item
        Params = <>
        Statements = <
          item
            Connection = 'SDAC'
            SQL = 'TestOutputParam'
            StatementType = stStoredProcedure
            ColumnMappings = <>
          end
          item
            Connection = 'ADO'
            SQL = 'TestOutputParam'
            StatementType = stStoredProcedure
            ColumnMappings = <>
          end>
        Name = 'Execute2'
      end
      item
        Params = <
          item
            Name = 'InputText'
            BlobType = dabtUnknown
            ParamType = daptInput
          end>
        Statements = <
          item
            Connection = 'ADO'
            SQL = 
              'DECLARE @RC int'#10'DECLARE @InputText varchar(30)'#10'DECLARE @InputTex' +
              'tLength int'#10'DECLARE @SomethingElse varchar(200)'#10#10'SET @InputText ' +
              '= :InputText'#10#10'EXEC @RC = TestOutputParam @InputText, @InputTextL' +
              'ength OUTPUT , @SomethingElse OUTPUT'
            StatementType = stSQL
            ColumnMappings = <>
          end>
        Name = 'Execute1'
      end>
    RelationShips = <>
    UpdateRules = <>
    Left = 448
    Top = 16
  end
  object DAADODriver1: TDAADODriver
    Left = 480
    Top = 16
  end
  object DAIBXDriver1: TDAIBXDriver
    Left = 480
    Top = 48
  end
end