dws2adomodule.dfm

script language

                Name = 'Index'
                DataType = 'Variant'
              end>
            ResultType = 'variant'
            OnEval = customADOUnitClassesTADODatasetMethodsGetFieldAsVariantEval
            Kind = mkFunction
          end
          item
            Name = 'GetFieldIsNull'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'variant'
              end>
            ResultType = 'boolean'
            OnEval = customADOUnitClassesTADODatasetMethodsGetFieldIsNullEval
            Kind = mkFunction
          end
          item
            Name = 'SetFieldAsString'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end
              item
                Name = 'Value'
                DataType = 'string'
              end>
            OnEval = customADOUnitClassesTADODatasetMethodsSetFieldAsStringEval
            Kind = mkProcedure
          end
          item
            Name = 'SetFieldAsInteger'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end
              item
                Name = 'Value'
                DataType = 'Integer'
              end>
            OnEval = customADOUnitClassesTADODatasetMethodsSetFieldAsIntegerEval
            Kind = mkProcedure
          end
          item
            Name = 'SetFieldAsDateTime'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = customADOUnitClassesTADODatasetMethodsSetFieldAsDateTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'SetFieldAsFloat'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end
              item
                Name = 'Value'
                DataType = 'Float'
              end>
            OnEval = customADOUnitClassesTADODatasetMethodsSetFieldAsFloatEval
            Kind = mkProcedure
          end
          item
            Name = 'SetFieldAsVariant'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end
              item
                Name = 'Value'
                DataType = 'Variant'
              end>
            OnEval = customADOUnitClassesTADODatasetMethodsSetFieldAsVariantEval
            Kind = mkProcedure
          end
          item
            Name = 'SetCommandTimeout'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'integer'
              end>
            OnEval = customADOUnitClassesTADODatasetMethodsSetCommandTimeoutEval
            Kind = mkProcedure
          end
          item
            Name = 'GetCommandTimeout'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customADOUnitClassesTADODatasetMethodsGetCommandTimeoutEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'sql'
            DataType = 'string'
            ReadAccess = 'GetSQL'
            WriteAccess = 'SetSQL'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Connection'
            DataType = 'TObject'
            WriteAccess = 'SetConnection'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Fields'
            DataType = 'TDBField'
            ReadAccess = 'GetField'
            WriteAccess = 'SetField'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'TDBField'
              end>
            IsDefault = False
          end
          item
            Name = 'FieldAsString'
            DataType = 'string'
            ReadAccess = 'GetFieldAsString'
            WriteAccess = 'SetFieldAsString'
            Parameters = <
              item
                Name = 'index'
                DataType = 'variant'
              end>
            IsDefault = False
          end
          item
            Name = 'FieldAsDateTime'
            DataType = 'DateTime'
            ReadAccess = 'GetFieldAsDateTime'
            WriteAccess = 'SetFieldAsDateTime'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'FieldAsInteger'
            DataType = 'Integer'
            ReadAccess = 'GetFieldAsInteger'
            WriteAccess = 'SetFieldAsInteger'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'variant'
              end>
            IsDefault = False
          end
          item
            Name = 'FieldAsFloat'
            DataType = 'Float'
            ReadAccess = 'GetFieldAsFloat'
            WriteAccess = 'SetFieldAsFloat'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end>
            IsDefault = False
          end
          item
            Name = 'FieldAsVariant'
            DataType = 'Variant'
            ReadAccess = 'GetFieldAsVariant'
            WriteAccess = 'SetFieldAsVariant'
            Parameters = <
              item
                Name = 'Index'
                DataType = 'Variant'
              end>
            IsDefault = False
          end
          item
            Name = 'FieldIsNull'
            DataType = 'boolean'
            ReadAccess = 'GetFieldIsNull'
            Parameters = <
              item
                Name = 'index'
                DataType = 'variant'
              end>
            IsDefault = False
          end
          item
            Name = 'CommandTimeout'
            DataType = 'integer'
            ReadAccess = 'GetCommandTimeout'
            WriteAccess = 'SetCommandTimeout'
            Parameters = <>
            IsDefault = False
          end>
      end
      item
        Name = 'TDBField'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'SetValue'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Variant'
              end>
            OnEval = customADOUnitClassesTFieldMethodsSetValueEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValue'
            Parameters = <>
            ResultType = 'variant'
            OnEval = customADOUnitClassesTFieldMethodsGetValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetValueStr'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = customADOUnitClassesTFieldMethodsSetValueStrEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValueStr'
            Parameters = <>
            ResultType = 'string'
            OnEval = customADOUnitClassesTFieldMethodsGetValueStrEval
            Kind = mkFunction
          end
          item
            Name = 'SetInteger'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'integer'
              end>
            OnEval = customADOUnitClassesTDBFieldMethodsSetIntegerEval
            Kind = mkProcedure
          end
          item
            Name = 'GetInteger'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customADOUnitClassesTDBFieldMethodsGetIntegerEval
            Kind = mkFunction
          end
          item
            Name = 'SetFloat'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'float'
              end>
            OnEval = customADOUnitClassesTDBFieldMethodsSetFloatEval
            Kind = mkProcedure
          end
          item
            Name = 'GetFloat'
            Parameters = <>
            ResultType = 'Float'
            OnEval = customADOUnitClassesTDBFieldMethodsGetFloatEval
            Kind = mkFunction
          end
          item
            Name = 'SetDateTime'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = customADOUnitClassesTDBFieldMethodsSetDateTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'GetDateTime'
            Parameters = <>
            ResultType = 'DateTime'
            OnEval = customADOUnitClassesTDBFieldMethodsGetDateTimeEval
            Kind = mkFunction
          end
          item
            Name = 'IsNull'
            Parameters = <>
            ResultType = 'Boolean'
            OnEval = customADOUnitClassesTDBFieldMethodsIsNullEval
            Kind = mkFunction
          end
          item
            Name = 'DataType'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = customADOUnitClassesTDBFieldMethodsDataTypeEval
            Kind = mkFunction
          end
          item
            Name = 'DataSize'
            Parameters = <>
            ResultType = 'Integer'
            OnEval = customADOUnitClassesTDBFieldMethodsDataSizeEval
            Kind = mkFunction
          end
          item
            Name = 'FieldName'
            Parameters = <>
            ResultType = 'String'
            OnEval = customADOUnitClassesTDBFieldMethodsNameEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'Value'
            DataType = 'Variant'
            ReadAccess = 'GetValue'
            WriteAccess = 'SetValue'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'AsString'
            DataType = 'string'
            ReadAccess = 'GetValueStr'
            WriteAccess = 'SetValueStr'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'AsInteger'
            DataType = 'Integer'
            ReadAccess = 'GetInteger'
            WriteAccess = 'SetInteger'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'AsFloat'
            DataType = 'Float'
            ReadAccess = 'GetFloat'
            WriteAccess = 'SetFloat'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'AsDateTime'
            DataType = 'DateTime'
            ReadAccess = 'GetDateTime'
            WriteAccess = 'SetDateTime'
            Parameters = <>
            IsDefault = False
          end>
      end>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <>
    Instances = <>
    Records = <>
    UnitName = 'ADO'
    Variables = <>
    Left = 40
    Top = 16
  end
end