dl230report.~dfm

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

    end
    object QRDBText9: TQRDBText
      Left = 68
      Top = 4
      Width = 85
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        179.916666666667
        10.5833333333333
        224.895833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'DeliveryDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  object bdGroupHeader2: TQRGroup [4]
    Left = 19
    Top = 145
    Width = 756
    Height = 24
    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 = (
      63.5
      2000.25)
    Expression = 'qyReport.PurchaseID'
    Master = Owner
    ReprintOnNewPage = False
    object QRLabel13: TQRLabel
      Left = 4
      Top = 4
      Width = 60
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        10.5833333333333
        10.5833333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20986#36008#21934#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 68
      Top = 4
      Width = 71
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        179.916666666667
        10.5833333333333
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'DeliveryID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel6: TQRLabel
      Left = 148
      Top = 4
      Width = 60
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        391.583333333333
        10.5833333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #23458#25142#32232#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel7: TQRLabel
      Left = 296
      Top = 4
      Width = 60
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        783.166666666667
        10.5833333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #23458#25142#31777#31281':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: TQRDBText
      Left = 220
      Top = 4
      Width = 71
      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
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 372
      Top = 4
      Width = 127
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        984.25
        10.5833333333333
        336.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerAttribName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  object QRBand1: TQRBand [5]
    Left = 19
    Top = 192
    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
    LinkBand = bdGroupHeader2
    Size.Values = (
      105.833333333333
      2000.25)
    BandType = rbSummary
    object QRExpr2: TQRExpr
      Left = 529
      Top = 4
      Width = 225
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1399.64583333333
        10.5833333333333
        595.3125)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.SalesAnalystAmount)'
      FontSize = 10
    end
    object QRExpr1: TQRExpr
      Left = 385
      Top = 4
      Width = 190
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1018.64583333333
        10.5833333333333
        502.708333333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression = 'SUM(qyReport.SalesQuantity)'
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    OnCalcFields = qyReportCalcFields
    SQL.Strings = (
      'SELECT M.DeliveryDate, M.DeliveryID, R.CustomerAttribName,'
      'D.ProductID, D.SalesQuantity, D.SalesAnalystAmount,'
      ' P.ProductName, M.DeliveryProperty, M.CustomerID'
      
        'FROM DeliveryMaster M, DeliveryDetail D, CustomerMaster R, Produ' +
        'ct P'
      'WHERE M.CompanyID = :CompanyID'
      
        'AND M.DeliveryDate >= :BeginDeliveryDate AND M.DeliveryDate <= :' +
        'EndDeliveryDate'
      
        'AND M.CustomerID >= :BeginCustomerID AND M.CustomerID <= :EndCus' +
        'tomerID'
      
        'AND M.WarehouseID >= :BeginWarehouseID AND M.WarehouseID <= :End' +
        'WarehouseID'
      
        'AND D.ProductID >= :BeginProductID AND D.ProductID <= :EndProduc' +
        'tID'
      'AND M.DeliveryProperty = '#39'3'#39
      'AND M.CompanyID = D.CompanyID AND M.DeliveryID = D.DeliveryID'
      'AND M.CompanyID = R.CompanyID AND M.CustomerID = R.CustomerID'
      'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
      'ORDER BY M.DeliveryDate, M.DeliveryID, D.DeliveryItem')
    Top = 12
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginDeliveryDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndDeliveryDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginCustomerID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndCustomerID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginWarehouseID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndWarehouseID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginProductID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndProductID'
        ParamType = ptUnknown
      end>
    object qyReportDeliveryDate: TStringField
      FieldName = 'DeliveryDate'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryDate'
      FixedChar = True
      Size = 8
    end
    object qyReportDeliveryID: TStringField
      FieldName = 'DeliveryID'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryID'
      FixedChar = True
      Size = 10
    end
    object qyReportCustomerAttribName: TStringField
      FieldName = 'CustomerAttribName'
      Origin = 'KINGSBYPRG.CustomerMaster.CustomerAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.DeliveryDetail.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportSalesQuantity: TBCDField
      FieldName = 'SalesQuantity'
      Origin = 'KINGSBYPRG.DeliveryDetail.SalesQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportUnitPrice: TFloatField
      FieldKind = fkCalculated
      FieldName = 'UnitPrice'
      DisplayFormat = '#,##0'
      Calculated = True
    end
    object qyReportSalesAnalystAmount: TBCDField
      FieldName = 'SalesAnalystAmount'
      Origin = 'KINGSBYPRG.DeliveryDetail.SalesAnalystAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportDeliveryProperty: TStringField
      FieldName = 'DeliveryProperty'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryProperty'
      FixedChar = True
      Size = 1
    end
    object qyReportCustomerID: TStringField
      FieldName = 'CustomerID'
      Origin = 'KINGSBYPRG.DeliveryMaster.CustomerID'
      FixedChar = True
      Size = 8
    end
  end
end