dws2ibxmodule.dfm

script language

object dws2IBXLib: Tdws2IBXLib
  OldCreateOrder = False
  Left = 480
  Top = 259
  Height = 105
  Width = 238
  object customIBXUnit: 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 = customIBXUnitClassesTDatabaseConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'connect'
            Parameters = <>
            OnEval = customIBXUnitClassesTDatabaseMethodsconnectEval
            Kind = mkProcedure
          end
          item
            Name = 'disconnect'
            Parameters = <>
            OnEval = customIBXUnitClassesTDatabaseMethodsdisconnectEval
            Kind = mkProcedure
          end
          item
            Name = 'setdialect'
            Parameters = <
              item
                Name = 'iDialect'
                DataType = 'integer'
              end>
            OnEval = customIBXUnitClassesTDatabaseMethodssetdialectEval
            Kind = mkProcedure
          end
          item
            Name = 'getdialect'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customIBXUnitClassesTDatabaseMethodsgetdialectEval
            Kind = mkFunction
          end
          item
            Name = 'setcharset'
            Parameters = <
              item
                Name = 'sCharset'
                DataType = 'string'
              end>
            OnEval = customIBXUnitClassesTDatabaseMethodssetcharsetEval
            Kind = mkProcedure
          end
          item
            Name = 'getcharset'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBXUnitClassesTDatabaseMethodsgetcharsetEval
            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 = customIBXUnitClassesTFieldMethodsSetValueEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValue'
            Parameters = <>
            ResultType = 'variant'
            OnEval = customIBXUnitClassesTFieldMethodsGetValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetValueStr'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'String'
              end>
            OnEval = customIBXUnitClassesTFieldMethodsSetValueStrEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValueStr'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBXUnitClassesTFieldMethodsGetValueStrEval
            Kind = mkFunction
          end
          item
            Name = 'SetInteger'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'integer'
              end>
            OnEval = customIBXUnitClassesTDBFieldMethodsSetIntegerEval
            Kind = mkProcedure
          end
          item
            Name = 'GetInteger'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customIBXUnitClassesTDBFieldMethodsGetIntegerEval
            Kind = mkFunction
          end
          item
            Name = 'SetFloat'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'float'
              end>
            OnEval = customIBXUnitClassesTDBFieldMethodsSetFloatEval
            Kind = mkProcedure
          end
          item
            Name = 'GetFloat'
            Parameters = <>
            ResultType = 'Float'
            OnEval = customIBXUnitClassesTDBFieldMethodsGetFloatEval
            Kind = mkFunction
          end
          item
            Name = 'SetDateTime'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'DateTime'
              end>
            OnEval = customIBXUnitClassesTDBFieldMethodsSetDateTimeEval
            Kind = mkProcedure
          end
          item
            Name = 'GetDateTime'
            Parameters = <>
            ResultType = 'DateTime'
            OnEval = customIBXUnitClassesTDBFieldMethodsGetDateTimeEval
            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 = customIBXUnitClassesTLUFieldMethodsGetValueEval
            Kind = mkFunction
          end
          item
            Name = 'SetValue'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'variant'
              end>
            OnEval = customIBXUnitClassesTLUFieldMethodsSetValueEval
            Kind = mkProcedure
          end
          item
            Name = 'GetValueStr'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBXUnitClassesTLUFieldMethodsGetValueStrEval
            Kind = mkFunction
          end
          item
            Name = 'SetValueStr'
            Parameters = <
              item
                Name = 'Value'
                DataType = 'string'
              end>
            OnEval = customIBXUnitClassesTLUFieldMethodsSetValueStrEval
            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 = customIBXUnitClassesTStatementConstructorsCreateAssignExternalObject
          end
          item
            Name = 'CreateFromDB'
            Parameters = <
              item
                Name = 'Database'
                DataType = 'TDatabase'
              end>
            OnAssignExternalObject = customIBXUnitClassesTStatementConstructorsCreateFromDBAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'GetSQL'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBXUnitClassesTStatementMethodsGetSQLEval
            Kind = mkFunction
          end
          item
            Name = 'SetSQL'
            Parameters = <
              item
                Name = 'sSQL'
                DataType = 'string'
              end>
            OnEval = customIBXUnitClassesTStatementMethodsSetSQLEval
            Kind = mkProcedure
          end
          item
            Name = 'Execute'