in220report.dfm

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

        44.9791666666667
        1746.25
        52.9166666666667
        150.8125)
      FontSize = 10
    end
  end
  object QRLabel6: TQRLabel [3]
    Left = 176
    Top = 108
    Width = 53
    Height = 14
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Size.Values = (
      37.0416666666667
      465.666666666667
      285.75
      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 bgGroupHeader: TQRGroup [4]
    Left = 19
    Top = 125
    Width = 756
    Height = 36
    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 = (
      95.25
      2000.25)
    Expression = 'qyReport.ChangeID'
    Master = Owner
    ReprintOnNewPage = False
    object QRDBText2: TQRDBText
      Left = 144
      Top = 20
      Width = 71
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        381
        52.9166666666667
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ChangeName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel13: TQRLabel
      Left = 4
      Top = 20
      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
        52.9166666666667
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #30064#21205#21407#22240':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 68
      Top = 20
      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
        52.9166666666667
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ChangeCode'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel11: 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 = #30064#21205#26085#26399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel12: TQRLabel
      Left = 172
      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
        455.083333333333
        10.5833333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #30064#21205#21934#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: 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 = 'ChangeDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText8: TQRDBText
      Left = 240
      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
        635
        10.5833333333333
        150.8125)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ChangeID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      'SELECT I.ChangeName, M.ChangeDate, D.ProductID, P.ProductName,'
      
        'I.ChangeCode, D.ChangeQuantity, D.ChangeAmount, M.ChangeID, D.Ch' +
        'angeItem'
      
        'FROM InventoryChange I, ChangeMaster M, ChangeDetail D, Product ' +
        'P'
      'WHERE I.CompanyID = :CompanyID'
      
        'AND M.ChangeDate >= :BeginChangeDate AND M.ChangeDate <= :EndCha' +
        'ngeDate'
      
        'AND M.WarehouseID >= :BeginWarehouseID AND M.WarehouseID <= :End' +
        'WarehouseID'
      'AND I.CompanyID = M.CompanyID AND I.ChangeCode = M.ChangeCode'
      'AND M.CompanyID = D.CompanyID AND M.ChangeID = D.ChangeID'
      'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
      'ORDER BY M.ChangeID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginChangedate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndChangeDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginWarehouseID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndWarehouseID'
        ParamType = ptUnknown
      end>
    object qyReportChangeCode: TStringField
      FieldName = 'ChangeCode'
      Origin = 'KINGSBYPRG.InventoryChange.ChangeCode'
      FixedChar = True
      Size = 2
    end
    object qyReportChangeName: TStringField
      FieldName = 'ChangeName'
      Origin = 'KINGSBYPRG.InventoryChange.ChangeName'
      FixedChar = True
      Size = 10
    end
    object qyReportChangeDate: TStringField
      FieldName = 'ChangeDate'
      Origin = 'KINGSBYPRG.ChangeMaster.ChangeDate'
      FixedChar = True
      Size = 8
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.ChangeDetail.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportChangeQuantity: TBCDField
      FieldName = 'ChangeQuantity'
      Origin = 'KINGSBYPRG.ChangeDetail.ChangeQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportChangeAmount: TBCDField
      FieldName = 'ChangeAmount'
      Origin = 'KINGSBYPRG.ChangeDetail.ChangeAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportChangeID: TStringField
      FieldName = 'ChangeID'
      Origin = 'KINGSBYPRG.ChangeMaster.ChangeID'
      FixedChar = True
      Size = 10
    end
    object qyReportChangeItem: TStringField
      FieldName = 'ChangeItem'
      Origin = 'KINGSBYPRG.ChangeDetail.ChangeItem'
      FixedChar = True
      Size = 3
    end
  end
end