dws2ibomodule.dfm

script language

object dws2IboLib: Tdws2IboLib
  OldCreateOrder = False
  Left = 245
  Top = 441
  Height = 200
  Width = 400
  object customIBOUnit: Tdws2Unit
    Arrays = <>
    Classes = <
      item
        Name = 'TDatabase'
        Constructors = <
          item
            Name = 'create'
            Parameters = <
              item
                Name = 'database'
                DataType = 'String'
              end
              item
                Name = 'user'
                DataType = 'String'
              end
              item
                Name = 'pwd'
                DataType = 'String'
              end>
            OnAssignExternalObject = customIBOUnitClassesTDatabaseConstructorscreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'connect'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatabaseMethodsconnectEval
            Kind = mkProcedure
          end
          item
            Name = 'disconnect'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatabaseMethodsdisconnectEval
            Kind = mkProcedure
          end
          item
            Name = 'setdialect'
            Parameters = <
              item
                Name = 'iDialect'
                DataType = 'integer'
              end>
            OnEval = customIBOUnitClassesTDatabaseMethodssetdialectEval
            Kind = mkProcedure
          end
          item
            Name = 'getdialect'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customIBOUnitClassesTDatabaseMethodsgetdialectEval
            Kind = mkFunction
          end
          item
            Name = 'setcharset'
            Parameters = <
              item
                Name = 'sCharset'
                DataType = 'string'
              end>
            OnEval = customIBOUnitClassesTDatabaseMethodssetcharsetEval
            Kind = mkProcedure
          end
          item
            Name = 'getcharset'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBOUnitClassesTDatabaseMethodsgetcharsetEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'charset'
            DataType = 'string'
            ReadAccess = 'getcharset'
            WriteAccess = 'setcharset'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'dialect'
            DataType = 'integer'
            ReadAccess = 'getdialect'
            WriteAccess = 'setdialect'
            Parameters = <>
            IsDefault = False
          end>
      end
      item
        Name = 'TDBField'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'SetValue'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Variant'
              end>
            OnEval = customIBOUnitClassesTFieldMethodsSetValueEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValue'
            Parameters = <>
            ResultType = 'variant'
            OnEval = customIBOUnitClassesTFieldMethodsGetValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetValueStr'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = customIBOUnitClassesTFieldMethodsSetValueStrEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValueStr'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBOUnitClassesTFieldMethodsGetValueStrEval
            Kind = mkFunction
          end
          item
            Name = 'SetInteger'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'integer'
              end>
            OnEval = customIBOUnitClassesTDBFieldMethodsSetIntegerEval
            Kind = mkProcedure
          end
          item
            Name = 'GetInteger'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customIBOUnitClassesTDBFieldMethodsGetIntegerEval
            Kind = mkFunction
          end
          item
            Name = 'SetFloat'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'float'
              end>
            OnEval = customIBOUnitClassesTDBFieldMethodsSetFloatEval
            Kind = mkProcedure
          end
          item
            Name = 'GetFloat'
            Parameters = <>
            ResultType = 'Float'
            OnEval = customIBOUnitClassesTDBFieldMethodsGetFloatEval
            Kind = mkFunction
          end
          item
            Name = 'SetDateTime'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = customIBOUnitClassesTDBFieldMethodsSetDateTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'GetDateTime'
            Parameters = <>
            ResultType = 'DateTime'
            OnEval = customIBOUnitClassesTDBFieldMethodsGetDateTimeEval
            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
      item
        Name = 'TLUField'
        Constructors = <>
        Fields = <>
        Methods = <
          item
            Name = 'GetValue'
            Parameters = <>
            ResultType = 'variant'
            OnEval = customIBOUnitClassesTLUFieldMethodsGetValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetValue'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'variant'
              end>
            OnEval = customIBOUnitClassesTLUFieldMethodsSetValueEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValueStr'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBOUnitClassesTLUFieldMethodsGetValueStrEval
            Kind = mkFunction
          end
          item
            Name = 'SetValueStr'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'string'
              end>
            OnEval = customIBOUnitClassesTLUFieldMethodsSetValueStrEval
            Kind = mkProcedure
          end
          item
            Name = 'GetInteger'
            Parameters = <>
            ResultType = 'integer'
            Kind = mkFunction
          end
          item
            Name = 'SetInteger'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'integer'
              end>
            Kind = mkProcedure
          end
          item
            Name = 'GetFloat'
            Parameters = <>
            ResultType = 'Float'
            Kind = mkFunction
          end
          item
            Name = 'SetFloat'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'Float'
              end>
            Kind = mkProcedure
          end
          item
            Name = 'GetDateTime'
            Parameters = <>
            ResultType = 'DateTime'
            Kind = mkFunction
          end
          item
            Name = 'SetDateTime'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            Kind = mkProcedure
          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
      item
        Name = 'TStatement'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = customIBOUnitClassesTStatementConstructorsCreateAssignExternalObject
          end
          item
            Name = 'CreateFromDB'
            Parameters = <
              item
                Name = 'database'
                DataType = 'TDatabase'
              end>
            OnAssignExternalObject = customIBOUnitClassesTStatementConstructorsCreateFromDBAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'GetSQL'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBOUnitClassesTStatementMethodsGetSQLEval
            Kind = mkFunction
          end
          item
            Name = 'SetSQL'
            Parameters = <
              item
                Name = 'sSQL'
                DataType = 'string'
              end>
            OnEval = customIBOUnitClassesTStatementMethodsSetSQLEval
            Kind = mkProcedure
          end
          item
            Name = 'Execute'