pr250report.dfm

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

inherited qrPR250: TqrPR250
  Functions.DATA = (
    '0'
    '0'
    #39#39)
  Page.Values = (
    50
    2970
    50
    2100
    50
    50
    0)
  inherited bdPageHeader: TQRBand
    Size.Values = (
      280.458333333333
      2000.25)
    inherited CompanyName: TQRLabel
      Size.Values = (
        66.1458333333333
        838.729166666667
        0
        322.791666666667)
      FontSize = 16
    end
    inherited QRSysData1: TQRSysData
      Size.Values = (
        44.9791666666667
        1778
        52.9166666666667
        113.770833333333)
      FontSize = 10
    end
    inherited QRSysData2: TQRSysData
      Size.Values = (
        44.9791666666667
        1778
        105.833333333333
        132.291666666667)
      FontSize = 10
    end
    inherited QRLabel1: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        52.9166666666667
        158.75)
      FontSize = 10
    end
    inherited QRLabel2: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        105.833333333333
        89.9583333333333)
      FontSize = 10
    end
    inherited ReportName: TQRLabel
      Left = 272
      Width = 211
      Size.Values = (
        58.2083333333333
        719.666666666667
        63.5
        558.270833333333)
      Caption = #20379#25033#21830#20511#20837#26410#36996#32113#35336#34920
      FontSize = 16
    end
    inherited QRLabel4: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        0
        158.75)
      FontSize = 10
    end
    inherited QRLabel5: TQRLabel
      Width = 36
      Size.Values = (
        44.9791666666667
        1778
        0
        95.25)
      Caption = 'PR250'
      FontSize = 10
    end
    object QRLabel8: TQRLabel
      Left = 4
      Top = 88
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        10.5833333333333
        232.833333333333
        140.229166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21830#21697#32232#34399
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel9: TQRLabel
      Left = 100
      Top = 88
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        264.583333333333
        232.833333333333
        140.229166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21830#21697#21517#31281
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel10: TQRLabel
      Left = 340
      Top = 88
      Width = 27
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        899.583333333333
        232.833333333333
        71.4375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #25976#37327
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bgDetail: TQRBand
    Top = 148
    Size.Values = (
      60.8541666666667
      2000.25)
    object QRDBText3: TQRDBText
      Left = 4
      Top = 4
      Width = 64
      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
        169.333333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ProductID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 100
      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
        264.583333333333
        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
    object QRDBText5: TQRDBText
      Left = 308
      Top = 4
      Width = 57
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        814.916666666667
        10.5833333333333
        150.8125)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'Quantity'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 171
    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 qrGroupHeader: TQRGroup [3]
    Left = 19
    Top = 125
    Width = 756
    Height = 23
    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 = (
      60.8541666666667
      2000.25)
    Master = Owner
    ReprintOnNewPage = False
    object QRLabel6: TQRLabel
      Left = 4
      Top = 4
      Width = 73
      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
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#25033#21830#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 = 'SupplierID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel7: TQRLabel
      Left = 168
      Top = 4
      Width = 73
      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
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#25033#21830#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 = 'SupplierAttribName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      
        'SELECT S.SupplierAttribName, V.ProductID, V.SupplierID, V.Quanti' +
        'ty, P.ProductName'
      'FROM SupplierInventory V, Supplier S, Product P'
      'WHERE  V.CompanyID = :CompanyID'
      
        'AND V.SupplierID >= :BeginSupplierID AND V.SupplierID <= :EndSup' +
        'plierID'
      'AND V.Quantity <> 0'
      'AND V.CompanyID = S.CompanyID AND V.SupplierID = S.SupplierID'
      'AND V.CompanyID = P.CompanyID AND V.ProductID = P.ProductID'
      'ORDER BY V.SupplierID, V.ProductID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end>
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      Origin = 'KINGSBYPRG.SupplierInventory.SupplierID'
      FixedChar = True
      Size = 8
    end
    object qyReportSupplierAttribName: TStringField
      FieldName = 'SupplierAttribName'
      Origin = 'KINGSBYPRG.Supplier.SupplierAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.SupplierInventory.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportQuantity: TBCDField
      FieldName = 'Quantity'
      Origin = 'KINGSBYPRG.SupplierInventory.Quantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
  end
end