Measure/DataModules/BillsGatherDm.dfm

object BillsGatherData: TBillsGatherData
  OldCreateOrder = False
  Left = 571
  Top = 314
  Height = 207
  Width = 215
  object cdsBillsGather: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'B_Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'IndexCode'
        DataType = ftString
        Size = 50
      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 = 'NewPrice'
        DataType = ftFloat
      end
      item
        Name = 'DealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'DealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'AddGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndDealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndQcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndQcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndPcQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndPcTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'BGLQuantity'
        DataType = ftFloat
      end
      item
        Name = 'BGLTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'Deal_BGLQuantity'
        DataType = ftFloat
      end
      item
        Name = 'Deal_BGLTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CompletionRate'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    AfterScroll = cdsBillsGatherAfterScroll
    Left = 64
    Top = 16
    Data = {
      B60300009619E0BD010000001800000027000000000003000000B60306425F43
      6F6465010049000000010005574944544802000200320009496E646578436F64
      650100490000000100055749445448020002003200044E616D6502004A000000
      010005574944544802000200900105556E69747301004A000000010005574944
      54480200020028000550726963650800040000000000084E6577507269636508
      000400000000000C4465616C5175616E7469747908000400000000000E446561
      6C546F74616C50726963650800040000000000085175616E7469747908000400
      000000000A546F74616C507269636508000400000000000F4375724465616C51
      75616E746974790800040000000000114375724465616C546F74616C50726963
      6508000400000000000D43757251635175616E7469747908000400000000000F
      4375725163546F74616C507269636508000400000000000D4375725063517561
      6E7469747908000400000000000F4375725063546F74616C5072696365080004
      0000000000114375724761746865725175616E74697479080004000000000013
      437572476174686572546F74616C507269636508000400000000000F41646444
      65616C5175616E746974790800040000000000114164644465616C546F74616C
      507269636508000400000000000D41646451635175616E746974790800040000
      0000000F4164645163546F74616C507269636508000400000000000D41646450
      635175616E7469747908000400000000000F4164645063546F74616C50726963
      650800040000000000114164644761746865725175616E746974790800040000
      00000013416464476174686572546F74616C507269636508000400000000000F
      456E644465616C5175616E74697479080004000000000011456E644465616C54
      6F74616C507269636508000400000000000D456E6451635175616E7469747908
      000400000000000F456E645163546F74616C507269636508000400000000000D
      456E6450635175616E7469747908000400000000000F456E645063546F74616C
      5072696365080004000000000011456E644761746865725175616E7469747908
      0004000000000013456E64476174686572546F74616C50726963650800040000
      0000000B42474C5175616E7469747908000400000000000D42474C546F74616C
      50726963650800040000000000104465616C5F42474C5175616E746974790800
      040000000000124465616C5F42474C546F74616C507269636508000400000000
      000E436F6D706C6574696F6E5261746508000400000000000000}
    object cdsBillsGatherB_Code: TStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsBillsGatherIndexCode: TStringField
      DisplayWidth = 50
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsBillsGatherName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsBillsGatherUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsBillsGatherPrice: TFloatField
      FieldName = 'Price'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherNewPrice: TFloatField
      FieldName = 'NewPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherDealQuantity: TFloatField
      FieldName = 'DealQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherDealTotalPrice: TFloatField
      FieldName = 'DealTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherTotalPrice: TFloatField
      FieldName = 'TotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurDealQuantity: TFloatField
      FieldName = 'CurDealQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurDealTotalPrice: TFloatField
      FieldName = 'CurDealTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurQcQuantity: TFloatField
      FieldName = 'CurQcQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurQcTotalPrice: TFloatField
      FieldName = 'CurQcTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurPcQuantity: TFloatField
      FieldName = 'CurPcQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurPcTotalPrice: TFloatField
      FieldName = 'CurPcTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurGatherQuantity: TFloatField
      FieldName = 'CurGatherQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCurGatherTotalPrice: TFloatField
      FieldName = 'CurGatherTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddDealQuantity: TFloatField
      FieldName = 'AddDealQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddDealTotalPrice: TFloatField
      FieldName = 'AddDealTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddQcQuantity: TFloatField
      FieldName = 'AddQcQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddQcTotalPrice: TFloatField
      FieldName = 'AddQcTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddPcQuantity: TFloatField
      FieldName = 'AddPcQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddPcTotalPrice: TFloatField
      FieldName = 'AddPcTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddGatherQuantity: TFloatField
      FieldName = 'AddGatherQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherAddGatherTotalPrice: TFloatField
      FieldName = 'AddGatherTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndDealQuantity: TFloatField
      FieldName = 'EndDealQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndDealTotalPrice: TFloatField
      FieldName = 'EndDealTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndQcQuantity: TFloatField
      FieldName = 'EndQcQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndQcTotalPrice: TFloatField
      FieldName = 'EndQcTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndPcQuantity: TFloatField
      FieldName = 'EndPcQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndPcTotalPrice: TFloatField
      FieldName = 'EndPcTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndGatherQuantity: TFloatField
      FieldName = 'EndGatherQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherEndGatherTotalPrice: TFloatField
      FieldName = 'EndGatherTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherBGLQuantity: TFloatField
      FieldName = 'BGLQuantity'
    end
    object cdsBillsGatherBGLTotalPrice: TFloatField
      FieldName = 'BGLTotalPrice'
    end
    object cdsBillsGatherDeal_BGLQuantity: TFloatField
      FieldName = 'Deal_BGLQuantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherDeal_BGLTotalPrice: TFloatField
      FieldName = 'Deal_BGLTotalPrice'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsBillsGatherCompletionRate: TFloatField
      FieldName = 'CompletionRate'
    end
  end
  object cdsRelaXmj: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'Code'
        DataType = ftString
        Size = 50
      end
      item
        Name = 'Peg'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Name'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'Units'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'NameDanWei'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'NameFenBu'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'NameFenXiang'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'NameUnit'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'DrawingCode'
        DataType = ftWideString
        Size = 50
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 64
    Top = 88
    Data = {
      2A0100009619E0BD01000000180000000A0000000000030000002A0104436F64
      6501004900000001000557494454480200020032000350656702004A00000001
      00055749445448020002009001044E616D6502004A0000000100055749445448
      02000200900105556E69747301004A0000000100055749445448020002002800
      085175616E7469747908000400000000000A4E616D6544616E57656902004A00
      00000100055749445448020002009001094E616D6546656E427502004A000000
      01000557494454480200020090010C4E616D6546656E5869616E6702004A0000
      000100055749445448020002009001084E616D65556E697402004A0000000100
      0557494454480200020090010B44726177696E67436F646501004A0000000100
      0557494454480200020064000000}
    object cdsRelaXmjCode: TStringField
      FieldName = 'Code'
      Size = 50
    end
    object cdsRelaXmjPeg: TWideStringField
      FieldName = 'Peg'
      Size = 200
    end
    object cdsRelaXmjName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsRelaXmjUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsRelaXmjQuantity: TFloatField
      FieldName = 'Quantity'
      OnGetText = cdsBillsGatherQuantityGetText
    end
    object cdsRelaXmjNameDanWei: TWideStringField
      FieldName = 'NameDanWei'
      Size = 200
    end
    object cdsRelaXmjNameFenBu: TWideStringField
      FieldName = 'NameFenBu'
      Size = 200
    end
    object cdsRelaXmjNameFenXiang: TWideStringField
      FieldName = 'NameFenXiang'
      Size = 200
    end
    object cdsRelaXmjNameUnit: TWideStringField
      FieldName = 'NameUnit'
      Size = 200
    end
    object cdsRelaXmjDrawingCode: TWideStringField
      FieldName = 'DrawingCode'
      Size = 50
    end
  end
end