Measure/DataModules/ReportMemoryDm/rmHaBaiCustomizedDm.dfm

object rmHaBaiCustomizedData: TrmHaBaiCustomizedData
  OldCreateOrder = False
  Left = 723
  Top = 455
  Height = 222
  Width = 337
  object cdsCustom2: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 32
    Top = 48
    Data = {
      E20000009619E0BD010000001800000009000000000003000000E20007436861
      707465720400010000000000044E616D6501004A000000010005574944544802
      000200C8000A546F74616C507269636508000400000000000B43546F74616C50
      7269636508000400000000000B47546F74616C50726963650800040000000000
      13456E64476174686572546F74616C5072696365080004000000000013507265
      476174686572546F74616C507269636508000400000000001343757247617468
      6572546F74616C507269636508000400000000000750657263656E7408000400
      000000000000}
    object cdsCustom2Chapter: TIntegerField
      FieldName = 'Chapter'
    end
    object cdsCustom2Name: TWideStringField
      FieldName = 'Name'
      Size = 100
    end
    object cdsCustom2TotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsCustom2CTotalPrice: TFloatField
      FieldName = 'CTotalPrice'
    end
    object cdsCustom2GTotalPrice: TFloatField
      FieldName = 'GTotalPrice'
    end
    object cdsCustom2EndGatherTotalPrice: TFloatField
      FieldName = 'EndGatherTotalPrice'
    end
    object cdsCustom2PreGatherTotalPrice: TFloatField
      FieldName = 'PreGatherTotalPrice'
    end
    object cdsCustom2CurGatherTotalPrice: TFloatField
      FieldName = 'CurGatherTotalPrice'
    end
    object cdsCustom2Percent: TFloatField
      FieldName = 'Percent'
    end
  end
  object cdsCustom3: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'ChapterID;InnerPartID;IndexCode'
    Params = <>
    Left = 104
    Top = 48
    Data = {
      900100009619E0BD010000001800000010000000000003000000900109436861
      70746572494404000100000000000B496E6E6572506172744944040001000000
      000009496E646578436F64650100490000000100055749445448020002003200
      06425F436F646501004A0000000100055749445448020002006400044E616D65
      02004A000000010005574944544802000200900105556E69747301004A000000
      0100055749445448020002002800055072696365080004000000000008517561
      6E7469747908000400000000000A546F74616C50726963650800040000000000
      115072654761746865725175616E746974790800040000000000135072654761
      74686572546F74616C5072696365080004000000000011456E64476174686572
      5175616E74697479080004000000000013456E64476174686572546F74616C50
      726963650800040000000000114375724761746865725175616E746974790800
      04000000000013437572476174686572546F74616C5072696365080004000000
      00000750657263656E7408000400000000000000}
    object cdsCustom3ChapterID: TIntegerField
      FieldName = 'ChapterID'
    end
    object cdsCustom3InnerPartID: TIntegerField
      FieldName = 'InnerPartID'
    end
    object cdsCustom3IndexCode: TStringField
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsCustom3B_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsCustom3Name: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsCustom3Units: TWideStringField
      FieldName = 'Units'
    end
    object cdsCustom3Price: TFloatField
      FieldName = 'Price'
    end
    object cdsCustom3Quantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsCustom3TotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsCustom3PreGatherQuantity: TFloatField
      FieldName = 'PreGatherQuantity'
    end
    object cdsCustom3PreGatherTotalPrice: TFloatField
      FieldName = 'PreGatherTotalPrice'
    end
    object cdsCustom3EndGatherQuantity: TFloatField
      FieldName = 'EndGatherQuantity'
    end
    object cdsCustom3EndGatherTotalPrice: TFloatField
      FieldName = 'EndGatherTotalPrice'
    end
    object cdsCustom3CurGatherQuantity: TFloatField
      FieldName = 'CurGatherQuantity'
    end
    object cdsCustom3CurGatherTotalPrice: TFloatField
      FieldName = 'CurGatherTotalPrice'
    end
    object cdsCustom3Percent: TFloatField
      FieldName = 'Percent'
    end
  end
  object cdsCustom14: TClientDataSet
    Active = True
    Aggregates = <>
    IndexFieldNames = 'IndexCode'
    Params = <>
    Left = 176
    Top = 48
    Data = {
      DC0000009619E0BD010000001800000008000000000003000000DC0009496E64
      6578436F646501004A000000010005574944544802000200640006425F436F64
      6501004A0000000100055749445448020002006400044E616D6502004A000000
      010005574944544802000200900105556E69747301004A000000010005574944
      54480200020028000550726963650800040000000000085175616E7469747908
      000400000000000A546F74616C507269636508000400000000000F4365727469
      666963617465436F646501004A00000001000557494454480200020064000000}
    object cdsCustom14IndexCode: TWideStringField
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsCustom14B_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsCustom14Name: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsCustom14Units: TWideStringField
      FieldName = 'Units'
    end
    object cdsCustom14Price: TFloatField
      FieldName = 'Price'
    end
    object cdsCustom14Quantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsCustom14TotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsCustom14CertificateCode: TWideStringField
      FieldName = 'CertificateCode'
      Size = 50
    end
  end
  object cdsCustomProj: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'ProjectID'
        DataType = ftInteger
      end
      item
        Name = 'ProjectName'
        DataType = ftWideString
        Size = 200
      end
      item
        Name = 'ChapterID'
        DataType = ftInteger
      end
      item
        Name = 'InnerPartID'
        DataType = ftInteger
      end
      item
        Name = 'IndexCode'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'B_Code'
        DataType = ftWideString
        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 = 'Quantity'
        DataType = ftFloat
      end
      item
        Name = 'TotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'EndGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'P_CurGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'P_CurGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'P_EndGatherQuantity'
        DataType = ftFloat
      end
      item
        Name = 'P_EndGatherTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurPercent'
        DataType = ftFloat
      end
      item
        Name = 'EndPercent'
        DataType = ftFloat
      end
      item
        Name = 'SerialNo'
        DataType = ftInteger
      end
      item
        Name = 'P_CurDealQuantity'
        DataType = ftFloat
      end
      item
        Name = 'CurDealQuantity'
        DataType = ftFloat
      end>
    IndexDefs = <>
    IndexFieldNames = 'ProjectID;ChapterID;InnerPartID;IndexCode'
    Params = <>
    StoreDefs = True
    Left = 264
    Top = 48
    Data = {
      590200009619E0BD01000000180000001800000000000300000059020950726F
      6A656374494404000100000000000B50726F6A6563744E616D6502004A000000
      0100055749445448020002009001094368617074657249440400010000000000
      0B496E6E6572506172744944040001000000000009496E646578436F64650100
      4A000000010005574944544802000200640006425F436F646501004A00000001
      00055749445448020002006400044E616D6502004A0000000100055749445448
      02000200900105556E69747301004A0000000100055749445448020002002800
      0550726963650800040000000000085175616E7469747908000400000000000A
      546F74616C50726963650800040000000000114375724761746865725175616E
      74697479080004000000000013437572476174686572546F74616C5072696365
      080004000000000011456E644761746865725175616E74697479080004000000
      000013456E64476174686572546F74616C507269636508000400000000001350
      5F4375724761746865725175616E74697479080004000000000015505F437572
      476174686572546F74616C5072696365080004000000000013505F456E644761
      746865725175616E74697479080004000000000015505F456E64476174686572
      546F74616C507269636508000400000000000A43757250657263656E74080004
      00000000000A456E6450657263656E7408000400000000000853657269616C4E
      6F040001000000000011505F4375724465616C5175616E746974790800040000
      0000000F4375724465616C5175616E7469747908000400000000000000}
    object cdsCustomProjProjectID: TIntegerField
      FieldName = 'ProjectID'
    end
    object cdsCustomProjProjectName: TWideStringField
      FieldName = 'ProjectName'
      Size = 200
    end
    object cdsCustomProjChapterID: TIntegerField
      FieldName = 'ChapterID'
    end
    object cdsCustomProjInnerPartID: TIntegerField
      FieldName = 'InnerPartID'
    end
    object cdsCustomProjIndexCode: TWideStringField
      FieldName = 'IndexCode'
      Size = 50
    end
    object cdsCustomProjB_Code: TWideStringField
      FieldName = 'B_Code'
      Size = 50
    end
    object cdsCustomProjName: TWideStringField
      FieldName = 'Name'
      Size = 200
    end
    object cdsCustomProjUnits: TWideStringField
      FieldName = 'Units'
    end
    object cdsCustomProjPrice: TFloatField
      FieldName = 'Price'
    end
    object cdsCustomProjQuantity: TFloatField
      FieldName = 'Quantity'
    end
    object cdsCustomProjTotalPrice: TFloatField
      FieldName = 'TotalPrice'
    end
    object cdsCustomProjCurGatherQuantity: TFloatField
      FieldName = 'CurGatherQuantity'
    end
    object cdsCustomProjCurGatherTotalPrice: TFloatField
      FieldName = 'CurGatherTotalPrice'
    end
    object cdsCustomProjEndGatherQuantity: TFloatField
      FieldName = 'EndGatherQuantity'
    end
    object cdsCustomProjEndGatherTotalPrice: TFloatField
      FieldName = 'EndGatherTotalPrice'
    end
    object cdsCustomProjP_CurGatherQuantity: TFloatField
      FieldName = 'P_CurGatherQuantity'
    end
    object cdsCustomProjP_CurGatherTotalPrice: TFloatField
      FieldName = 'P_CurGatherTotalPrice'
    end
    object cdsCustomProjP_EndGatherQuantity: TFloatField
      FieldName = 'P_EndGatherQuantity'
    end
    object cdsCustomProjP_EndGatherTotalPrice: TFloatField
      FieldName = 'P_EndGatherTotalPrice'
    end
    object cdsCustomProjCurPercent: TFloatField
      FieldName = 'CurPercent'
    end
    object cdsCustomProjEndPercent: TFloatField
      FieldName = 'EndPercent'
    end
    object cdsCustomProjSerialNo: TIntegerField
      FieldName = 'SerialNo'
    end
    object cdsCustomProjP_CurDealQuantity: TFloatField
      FieldName = 'P_CurDealQuantity'
    end
    object cdsCustomProjCurDealQuantity: TFloatField
      FieldName = 'CurDealQuantity'
    end
  end
  object cdsCustomCS_1: TClientDataSet
    Active = True
    Aggregates = <>
    Params = <>
    Left = 32
    Top = 120
    Data = {
      900000009619E0BD01000000180000000400000000000300000090000B50756C
      735061794E616D6502004A00000001000557494454480200020090011150756C
      73506179546F74616C507269636508000400000000000C4D696E75735061794E
      616D6502004A0000000100055749445448020002009001124D696E7573506179
      546F74616C507269636508000400000000000000}
    object cdsCustomCS_1PulsPayName: TWideStringField
      FieldName = 'PulsPayName'
      Size = 200
    end
    object cdsCustomCS_1PulsPayTotalPrice: TFloatField
      FieldName = 'PulsPayTotalPrice'
    end
    object cdsCustomCS_1MinusPayName: TWideStringField
      FieldName = 'MinusPayName'
      Size = 200
    end
    object cdsCustomCS_1MinusPayTotalPrice: TFloatField
      FieldName = 'MinusPayTotalPrice'
    end
  end
  object cdsCustomCS_2: TClientDataSet
    Active = True
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'DealTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'EndCompleteTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'PreCompleteTotalPrice'
        DataType = ftFloat
      end
      item
        Name = 'CurPayTotalPrice'
        DataType = ftFloat
      end>
    IndexDefs = <>
    Params = <>
    StoreDefs = True
    Left = 120
    Top = 120
    Data = {
      860000009619E0BD01000000180000000400000000000300000086000E446561
      6C546F74616C5072696365080004000000000015456E64436F6D706C65746554
      6F74616C5072696365080004000000000015507265436F6D706C657465546F74
      616C5072696365080004000000000010437572506179546F74616C5072696365
      08000400000000000000}
    object cdsCustomCS_2DealTotalPrice: TFloatField
      FieldName = 'DealTotalPrice'
    end
    object cdsCustomCS_2EndCompleteTotalPrice: TFloatField
      FieldName = 'EndCompleteTotalPrice'
    end
    object cdsCustomCS_2PreCompleteTotalPrice: TFloatField
      FieldName = 'PreCompleteTotalPrice'
    end
    object cdsCustomCS_2CurPayTotalPrice: TFloatField
      FieldName = 'CurPayTotalPrice'
    end
  end
end