dws2ibomodule.dfm

script language

            Parameters = <>
            OnEval = customIBOUnitClassesTStatementMethodsExecuteEval
            Kind = mkProcedure
          end
          item
            Name = 'FieldByName'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'string'
              end>
            ResultType = 'TDBField'
            OnEval = customIBOUnitClassesTStatementMethodsFieldByNameEval
            Kind = mkFunction
          end
          item
            Name = 'Field'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'String'
              end>
            ResultType = 'Variant'
            OnEval = customIBOUnitClassesTStatementMethodsFieldEval
            Kind = mkFunction
          end
          item
            Name = 'FieldIsNull'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'string'
              end>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTStatementMethodsFieldIsNullEval
            Kind = mkFunction
          end
          item
            Name = 'ParamByName'
            Parameters = <
              item
                Name = 'ParamName'
                DataType = 'string'
              end>
            ResultType = 'TDBField'
            OnEval = customIBOUnitClassesTStatementMethodsParamByNameEval
            Kind = mkFunction
          end
          item
            Name = 'SetParam'
            Parameters = <
              item
                Name = 'ParamName'
                DataType = 'string'
              end
              item
                Name = 'Value'
                DataType = 'variant'
              end>
            OnEval = customIBOUnitClassesTStatementMethodsSetParamEval
            Kind = mkProcedure
          end
          item
            Name = 'Free'
            Parameters = <>
            OnEval = AFreeExtObject
            Kind = mkDestructor
          end>
        Properties = <
          item
            Name = 'SQL'
            DataType = 'string'
            ReadAccess = 'GetSQL'
            WriteAccess = 'SetSQL'
            Parameters = <>
            IsDefault = False
          end>
      end
      item
        Name = 'TDataset'
        Ancestor = 'TStatement'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = customIBOUnitClassesTDatasetConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'CreateFromDB'
            Parameters = <
              item
                Name = 'Database'
                DataType = 'TDatabase'
              end>
            OnEval = customIBOUnitClassesTDatasetMethodsCreateFromDBEval
            Attributes = [maOverride]
            Kind = mkConstructor
          end
          item
            Name = 'Open'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsOpenEval
            Kind = mkProcedure
          end
          item
            Name = 'First'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTDatasetMethodsFirstEval
            Kind = mkFunction
          end
          item
            Name = 'Next'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTDatasetMethodsNextEval
            Kind = mkFunction
          end
          item
            Name = 'Eof'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTDatasetMethodsEofEval
            Kind = mkFunction
          end
          item
            Name = 'Edit'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsEditEval
            Kind = mkProcedure
          end
          item
            Name = 'Insert'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsInsertEval
            Kind = mkProcedure
          end
          item
            Name = 'Post'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsPostEval
            Kind = mkProcedure
          end
          item
            Name = 'Cancel'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsCancelEval
            Kind = mkProcedure
          end
          item
            Name = 'Delete'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsDeleteEval
            Kind = mkProcedure
          end
          item
            Name = 'Close'
            Parameters = <>
            OnEval = customIBOUnitClassesTDatasetMethodsCloseEval
            Kind = mkProcedure
          end>
        Properties = <>
      end
      item
        Name = 'TQuery'
        Ancestor = 'TDataset'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <>
            OnAssignExternalObject = customIBOUnitClassesTQueryConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'CreateFromDB'
            Parameters = <
              item
                Name = 'DataBase'
                DataType = 'TDatabase'
              end>
            OnEval = customIBOUnitClassesTQueryMethodsCreateFromDBEval
            Attributes = [maOverride]
            Kind = mkConstructor
          end
          item
            Name = 'Prior'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTQueryMethodsPriorEval
            Kind = mkFunction
          end
          item
            Name = 'GetFilter'
            Parameters = <>
            ResultType = 'string'
            OnEval = customIBOUnitClassesTQueryMethodsGetFilterEval
            Kind = mkFunction
          end
          item
            Name = 'SetFilter'
            Parameters = <
              item
                Name = 'FilterStr'
                DataType = 'string'
              end>
            OnEval = customIBOUnitClassesTQueryMethodsSetFilterEval
            Kind = mkProcedure
          end
          item
            Name = 'GetFiltered'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTQueryMethodsGetFilteredEval
            Kind = mkFunction
          end
          item
            Name = 'SetFiltered'
            Parameters = <
              item
                Name = 'Filtered'
                DataType = 'boolean'
              end>
            OnEval = customIBOUnitClassesTQueryMethodsSetFilteredEval
            Kind = mkProcedure
          end
          item
            Name = 'GetSortOrder'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customIBOUnitClassesTQueryMethodsGetSortOrderEval
            Kind = mkFunction
          end
          item
            Name = 'SetSortOrder'
            Parameters = <
              item
                Name = 'SortOrder'
                DataType = 'integer'
              end>
            OnEval = customIBOUnitClassesTQueryMethodsSetSortOrderEval
            Kind = mkProcedure
          end
          item
            Name = 'SetLookUpFields'
            Parameters = <
              item
                Name = 'KeyFieldName'
                DataType = 'string'
              end
              item
                Name = 'LUfieldName'
                DataType = 'string'
              end>
            OnEval = customIBOUnitClassesTQueryMethodsSetLookUpFieldsEval
            Kind = mkProcedure
          end
          item
            Name = 'LookUp'
            Parameters = <
              item
                Name = 'KeyFieldValue'
                DataType = 'string'
              end>
            ResultType = 'TLUField'
            OnEval = customIBOUnitClassesTQueryMethodsLookUpEval
            Kind = mkFunction
          end>
        Properties = <
          item
            Name = 'Filter'
            DataType = 'string'
            ReadAccess = 'GetFilter'
            WriteAccess = 'SetFilter'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'Filtered'
            DataType = 'boolean'
            ReadAccess = 'GetFiltered'
            WriteAccess = 'SetFiltered'
            Parameters = <>
            IsDefault = False
          end
          item
            Name = 'SortOrder'
            DataType = 'integer'
            ReadAccess = 'GetSortOrder'
            WriteAccess = 'SetSortOrder'
            Parameters = <>
            IsDefault = False
          end>
      end
      item
        Name = 'TDataSetGrp'
        Constructors = <
          item
            Name = 'Create'
            Parameters = <
              item
                Name = 'dataSet'
                DataType = 'TDataset'
              end
              item
                Name = 'groupFieldName'
                DataType = 'String'
              end>
            OnAssignExternalObject = customIBOUnitClassesTDataSetGrpConstructorsCreateAssignExternalObject
          end>
        Fields = <>
        Methods = <
          item
            Name = 'AddSumField'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'string'
              end>
            OnEval = customIBOUnitClassesTDataSetGrpMethodsAddSumFieldEval
            Kind = mkProcedure
          end
          item
            Name = 'Changed'
            Parameters = <>
            ResultType = 'boolean'
            OnEval = customIBOUnitClassesTDataSetGrpMethodsGroupEval
            Kind = mkFunction
          end
          item
            Name = 'Count'
            Parameters = <>
            ResultType = 'integer'
            OnEval = customIBOUnitClassesTDataSetGrpMethodsCountEval
            Kind = mkFunction
          end
          item
            Name = 'AddRow'
            Parameters = <>
            OnEval = customIBOUnitClassesTDataSetGrpMethodsAddGroupRowEval
            Kind = mkProcedure
          end
          item
            Name = 'Restart'
            Parameters = <>
            OnEval = customIBOUnitClassesTDataSetGrpMethodsRestartGroupEval
            Kind = mkProcedure
          end
          item
            Name = 'Reset'
            Parameters = <>
            OnEval = customIBOUnitClassesTDataSetGrpMethodsResetGroupEval
            Kind = mkProcedure
          end
          item
            Name = 'SumOfField'
            Parameters = <
              item
                Name = 'FieldName'
                DataType = 'string'
              end>
            ResultType = 'float'
            OnEval = customIBOUnitClassesTDataSetGrpMethodsSumOfFieldEval
            Kind = mkFunction
          end
          item
            Name = 'Free'
            Parameters = <>
            OnEval = AFreeExtObject
            Kind = mkDestructor
          end>
        Properties = <>
      end>
    Constants = <>
    Dependencies.Strings = (
      'Internal')
    Enumerations = <>
    Forwards = <>
    Functions = <>
    Instances = <>
    Records = <>
    UnitName = 'Ibo'
    Variables = <>
    Left = 40
    Top = 8
  end
end