ar250report.~dfm

一套融入了系统营销管理思想的管理软件产品

        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'AR6190'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 517
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1367.89583333333
        10.5833333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'AR9120'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText7: TQRDBText
      Left = 613
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1621.89583333333
        10.5833333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'AR1200'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText8: TQRDBText
      Left = 709
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1875.89583333333
        10.5833333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ARTOTL'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 188
    Size.Values = (
      105.833333333333
      2000.25)
    inherited QRLabel3: TQRLabel
      Size.Values = (
        44.9791666666667
        1651
        52.9166666666667
        89.9583333333333)
      FontSize = 10
    end
    inherited UserName: TQRLabel
      Size.Values = (
        44.9791666666667
        1746.25
        52.9166666666667
        150.8125)
      FontSize = 10
    end
  end
  object QRBand1: TQRBand [3]
    Left = 19
    Top = 148
    Width = 756
    Height = 40
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    ForceNewColumn = False
    ForceNewPage = False
    Size.Values = (
      105.833333333333
      2000.25)
    BandType = rbSummary
    object QRExpr6: TQRExpr
      Left = 612
      Top = 4
      Width = 141
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1619.25
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.ARTOTL)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr5: TQRExpr
      Left = 516
      Top = 4
      Width = 141
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1365.25
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.AR1200)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr4: TQRExpr
      Left = 420
      Top = 4
      Width = 141
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1111.25
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.AR9120)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr3: TQRExpr
      Left = 320
      Top = 4
      Width = 141
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        846.666666666667
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.AR6190)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr2: TQRExpr
      Left = 220
      Top = 4
      Width = 141
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        582.083333333333
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.AR3160)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRExpr1: TQRExpr
      Left = 120
      Top = 4
      Width = 141
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        317.5
        10.5833333333333
        373.0625)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.AR0030)'
      Mask = '#,##0'
      FontSize = 10
    end
    object QRLabel14: TQRLabel
      Left = 72
      Top = 4
      Width = 34
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        190.5
        10.5833333333333
        89.9583333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21512#35336':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    CachedUpdates = True
    BeforeOpen = qyReportBeforeOpen
    RequestLive = True
    SQL.Strings = (
      'SELECT CustomerID, CustomerAttribName,'
      '0 AS AR0030, 0 AS AR3160, 0 AS AR6190, 0 AS AR9120,'
      '0 AS AR1200, 0 AS ARTOTL'
      'FROM CustomerMaster'
      'WHERE CompanyID = :CompanyID'
      
        'AND CustomerID >= :BeginCustomerID AND CustomerID <= :EndCustome' +
        'rID'
      'ORDER BY CustomerID')
    UpdateObject = UpdateSQL1
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginCustomerID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndCustomerID'
        ParamType = ptUnknown
      end>
    object qyReportCustomerID: TStringField
      FieldName = 'CustomerID'
      FixedChar = True
      Size = 8
    end
    object qyReportCustomerAttribName: TStringField
      FieldName = 'CustomerAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportAR0030: TIntegerField
      FieldName = 'AR0030'
      DisplayFormat = '#,##0'
    end
    object qyReportAR3160: TIntegerField
      FieldName = 'AR3160'
      DisplayFormat = '#,##0'
    end
    object qyReportAR6190: TIntegerField
      FieldName = 'AR6190'
      DisplayFormat = '#,##0'
    end
    object qyReportAR9120: TIntegerField
      FieldName = 'AR9120'
      DisplayFormat = '#,##0'
    end
    object qyReportAR1200: TIntegerField
      FieldName = 'AR1200'
      DisplayFormat = '#,##0'
    end
    object qyReportARTOTL: TIntegerField
      FieldName = 'ARTOTL'
      DisplayFormat = '#,##0'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update CustomerMaster'
      'set'
      '  CustomerID = :CustomerID,'
      '  CustomerAttribName = :CustomerAttribName'
      'where'
      '  CustomerID = :OLD_CustomerID and'
      '  CustomerAttribName = :OLD_CustomerAttribName')
    InsertSQL.Strings = (
      'insert into CustomerMaster'
      '  (CustomerID, CustomerAttribName)'
      'values'
      '  (:CustomerID, :CustomerAttribName)')
    DeleteSQL.Strings = (
      'delete from CustomerMaster'
      'where'
      '  CustomerID = :OLD_CustomerID and'
      '  CustomerAttribName = :OLD_CustomerAttribName')
    Left = 100
    Top = 8
  end
end