unitsulfperprinttwom.~dfm

此代码为企业原料管理代码

      Frame.Color = clBlack
      Frame.DrawTop = True
      Frame.DrawBottom = True
      Frame.DrawLeft = True
      Frame.DrawRight = True
      AlignToBottom = False
      Color = clWhite
      ForceNewColumn = False
      ForceNewPage = False
      Size.Values = (
        68.7916666666667
        1899.70833333333)
      BandType = rbSummary
      object QRShape33: TQRShape
        Left = 350
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          926.041666666667
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRShape34: TQRShape
        Left = 380
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1005.41666666667
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRShape36: TQRShape
        Left = 443
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1172.10416666667
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRShape37: TQRShape
        Left = 504
        Top = 1
        Width = 2
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1333.5
          2.64583333333333
          5.29166666666667)
        Shape = qrsVertLine
      end
      object QRShape38: TQRShape
        Left = 560
        Top = 1
        Width = 5
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1481.66666666667
          2.64583333333333
          13.2291666666667)
        Shape = qrsVertLine
      end
      object QRShape39: TQRShape
        Left = 607
        Top = 1
        Width = 5
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1606.02083333333
          2.64583333333333
          13.2291666666667)
        Shape = qrsVertLine
      end
      object QRShape40: TQRShape
        Left = 669
        Top = 1
        Width = 4
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1770.0625
          2.64583333333333
          10.5833333333333)
        Shape = qrsVertLine
      end
      object QRShape41: TQRShape
        Left = 181
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          478.895833333333
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRShape42: TQRShape
        Left = 247
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          653.520833333333
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRShape43: TQRShape
        Left = 287
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          759.354166666667
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRLabel24: TQRLabel
        Left = 83
        Top = 7
        Width = 62
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          219.604166666667
          18.5208333333333
          164.041666666667)
        Alignment = taLeftJustify
        AlignToBand = False
        AutoSize = True
        AutoStretch = False
        Caption = '合     计'
        Color = clWhite
        Transparent = False
        WordWrap = True
        FontSize = 10
      end
      object QRExpr1: TQRExpr
        Left = 323
        Top = 7
        Width = 29
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          854.604166666667
          18.5208333333333
          76.7291666666667)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(impunum)'
        FontSize = 10
      end
      object QRExpr2: TQRExpr
        Left = 355
        Top = 7
        Width = 27
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          939.270833333333
          18.5208333333333
          71.4375)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(polenum)'
        FontSize = 10
      end
      object QRExpr3: TQRExpr
        Left = 384
        Top = 7
        Width = 28
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1016
          18.5208333333333
          74.0833333333333)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(ripnum)'
        FontSize = 10
      end
      object QRExpr4: TQRExpr
        Left = 413
        Top = 7
        Width = 32
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1092.72916666667
          18.5208333333333
          84.6666666666667)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(elsenum)'
        FontSize = 10
      end
      object QRExpr5: TQRExpr
        Left = 448
        Top = 7
        Width = 55
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1185.33333333333
          18.5208333333333
          145.520833333333)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(wasterper)'
        FontSize = 10
      end
      object QRExpr6: TQRExpr
        Left = 507
        Top = 6
        Width = 54
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1341.4375
          15.875
          142.875)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(wastermoney)'
        FontSize = 10
      end
      object QRExpr7: TQRExpr
        Left = 565
        Top = 7
        Width = 43
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1494.89583333333
          18.5208333333333
          113.770833333333)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'average(qcper)'
        FontSize = 10
      end
      object QRExpr8: TQRExpr
        Left = 674
        Top = 6
        Width = 41
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1783.29166666667
          15.875
          108.479166666667)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'average(profitper)'
        FontSize = 10
      end
      object QRExpr9: TQRExpr
        Left = 292
        Top = 7
        Width = 28
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          772.583333333333
          18.5208333333333
          74.0833333333333)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(lacknum)'
        FontSize = 10
      end
      object QRExpr10: TQRExpr
        Left = 252
        Top = 7
        Width = 37
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          666.75
          18.5208333333333
          97.8958333333333)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(Wasternum)'
        FontSize = 10
      end
      object QRExpr11: TQRExpr
        Left = 188
        Top = 7
        Width = 59
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          497.416666666667
          18.5208333333333
          156.104166666667)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'sum(Qcnum)'
        FontSize = 10
      end
      object QRShape29: TQRShape
        Left = 318
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          841.375
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRShape35: TQRShape
        Left = 408
        Top = 1
        Width = 7
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          63.5
          1079.5
          2.64583333333333
          18.5208333333333)
        Shape = qrsVertLine
      end
      object QRExpr12: TQRExpr
        Left = 612
        Top = 6
        Width = 57
        Height = 14
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        Size.Values = (
          37.0416666666667
          1619.25
          15.875
          150.8125)
        Alignment = taCenter
        AlignToBand = False
        AutoSize = False
        AutoStretch = False
        Color = clWhite
        ResetAfterPrint = False
        Transparent = False
        WordWrap = True
        Expression = 'average(shl)'
        FontSize = 10
      end
    end
  end
end