Measure/DataModules/SearchDm.dfm

object SearchData: TSearchData
  OldCreateOrder = False
  Left = 530
  Top = 323
  Height = 150
  Width = 215
  object cdsSearch: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ID'
        DataType = ftInteger
      end
      item
        Name = 'Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 20
      end
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Price'
        DataType = ftFloat
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'CurQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CompleteRate'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 64
    Top = 32
    Data = {
      F00000009619E0BD01000000180000000A000000000003000000F00002494404
      0001000000000004436F64650100490000000100055749445448020002003200
      06425F436F64650100490000000100055749445448020002001400044E616D65
      02004A000000010005574944544802000200900105556E69747301004A000000
      0100055749445448020002002800055072696365080004000000000008517561
      6E7469747908000400000000000D43757251635175616E746974790800040000
      000000114164644761746865725175616E7469747908000400000000000C436F
      6D706C6574655261746508000400000000000000}
    object cdsSearchID: TIntegerField
      FieldName = 'ID'
    end
    object cdsSearchCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsSearchB_Code: TStringField
      FieldName = 'B_Code'
    end
    object cdsSearchName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsSearchUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsSearchPrice: TFloatField
      FieldName = 'Price'
      OnGetText = cdsSearchQuantityGetText
    end
    object cdsSearchQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsSearchQuantityGetText
    end
    object cdsSearchCurQcQuantity: TFloatField
      FieldName = 'CurQcQuantity'
      OnGetText = cdsSearchQuantityGetText
    end
    object cdsSearchAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
      OnGetText = cdsSearchQuantityGetText
    end
    object cdsSearchCompleteRate: TFloatField
      FieldName = 'CompleteRate'
    end
  end
end