dl260report.~dfm

利用delhpi 开发的一个关于零售业进销管理系统

      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1201.20833333333
        10.5833333333333
        206.375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SalesAmount'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 324
      Top = 4
      Width = 92
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        857.25
        10.5833333333333
        243.416666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SalesQuantity'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 96
      Top = 4
      Width = 78
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        254
        10.5833333333333
        206.375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ProductName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 168
    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 brGroupHeader: TQRGroup [3]
    Left = 19
    Top = 125
    Width = 756
    Height = 20
    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 = (
      52.9166666666667
      2000.25)
    Expression = 'qyReport.SupplierID'
    Master = Owner
    ReprintOnNewPage = False
    object QRLabel6: 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 = #23458#25142#32232#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 80
      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
        211.666666666667
        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 QRLabel7: TQRLabel
      Left = 168
      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
        444.5
        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 QRDBText2: TQRDBText
      Left = 244
      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
        645.583333333333
        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
  inherited qyReport: TQuery
    Active = True
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      
        'SELECT R.CustomerAttribName, A.CustomerID, A.SalesYear, A.SalesM' +
        'onth,'
      'A.ProductID, A.SalesQuantity, A.SalesAmount,'
      'A.SalesReturnQuantity, A.SalesReturnAmount, P.ProductName'
      'FROM SalesAnalyst A, CustomerMaster R, Product P'
      'WHERE A.CompanyID = :CompanyID'
      
        'AND A.CustomerID >= :BeginCustomerID AND A.CustomerID <= :EndCus' +
        'tomerID'
      'AND (A.SalesYear + A.SalesMonth) >= :BeginYearMonth'
      'AND (A.SalesYear + A.SalesMonth) <= :EndYearMonth'
      'AND A.CompanyID = R.CompanyID AND A.CustomerID = R.CustomerID'
      'AND A.CompanyID = P.CompanyID AND A.ProductID = P.ProductID'
      'ORDER BY A.CustomerID, A.ProductID')
    ParamData = <
      item
        DataType = ftSmallint
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftSmallint
        Name = 'BeginCustomerID'
        ParamType = ptUnknown
      end
      item
        DataType = ftSmallint
        Name = 'EndCustomerID'
        ParamType = ptUnknown
      end
      item
        DataType = ftSmallint
        Name = 'BeginYearMonth'
        ParamType = ptUnknown
      end
      item
        DataType = ftSmallint
        Name = 'EndYearMonth'
        ParamType = ptUnknown
      end>
    object qyReportSalesYear: TStringField
      FieldName = 'SalesYear'
      Origin = 'KINGSBYPRG.SalesAnalyst.SalesYear'
      FixedChar = True
      Size = 2
    end
    object qyReportSalesMonth: TStringField
      FieldName = 'SalesMonth'
      Origin = 'KINGSBYPRG.SalesAnalyst.SalesMonth'
      FixedChar = True
      Size = 2
    end
    object qyReportCustomerID: TStringField
      FieldName = 'CustomerID'
      Origin = 'KINGSBYPRG.SalesAnalyst.CustomerID'
      FixedChar = True
      Size = 8
    end
    object qyReportCustomerAttribName: TStringField
      FieldName = 'CustomerAttribName'
      Origin = 'KINGSBYPRG.CustomerMaster.CustomerAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.SalesAnalyst.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportSalesQuantity: TBCDField
      FieldName = 'SalesQuantity'
      Origin = 'KINGSBYPRG.SalesAnalyst.SalesQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSalesAmount: TBCDField
      FieldName = 'SalesAmount'
      Origin = 'KINGSBYPRG.SalesAnalyst.SalesAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSalesReturnQuantity: TBCDField
      FieldName = 'SalesReturnQuantity'
      Origin = 'KINGSBYPRG.SalesAnalyst.SalesReturnQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSalesReturnAmount: TBCDField
      FieldName = 'SalesReturnAmount'
      Origin = 'KINGSBYPRG.SalesAnalyst.SalesReturnAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
  end
end