in240report.~dfm

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

      AutoSize = True
      AutoStretch = False
      Caption = #35519#25765#26085#26399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 64
      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
        169.333333333333
        10.5833333333333
        224.895833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 64
      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
        169.333333333333
        52.9166666666667
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: TQRDBText
      Left = 228
      Top = 4
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        603.25
        10.5833333333333
        410.104166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferOutWarehouseID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText7: TQRDBText
      Left = 312
      Top = 4
      Width = 113
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        825.5
        10.5833333333333
        298.979166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'OutWarehouseName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel9: TQRLabel
      Left = 164
      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
        433.916666666667
        10.5833333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #35519#20986#20489#24235':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel10: TQRLabel
      Left = 164
      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
        433.916666666667
        52.9166666666667
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #35519#20837#20489#24235':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText8: TQRDBText
      Left = 228
      Top = 20
      Width = 148
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        603.25
        52.9166666666667
        391.583333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferInWarehouseID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText9: TQRDBText
      Left = 312
      Top = 20
      Width = 106
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        825.5
        52.9166666666667
        280.458333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'InWarehouseName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      'SELECT M.TransferDate, M.TransferID, M.TransferInWarehouseID,'
      'M.TransferOutWarehouseID, D.ProductID, D.TransferQuantity,'
      
        'P.ProductName, Wout.WarehouseName AS OutWarehouseName, Win.Wareh' +
        'ouseName AS InWarehouseName'
      
        'FROM TransferMaster M, TransferDetail D, Warehouse Wout, Warehou' +
        'se Win, Product P'
      'WHERE M.CompanyID = :CompanyID'
      
        'AND M.TransferDate >= :BeginTransferDate AND M.TransferDate <= :' +
        'EndTransferDate'
      
        'AND M.TransferOutWarehouseID >= :BeginWarehouseID AND M.Transfer' +
        'OutWarehouseID <= :EndWarehouseID'
      
        'AND D.ProductID >= :BeginProductID AND D.ProductID <= :EndProduc' +
        'tID'
      'AND M.CompanyID = D.CompanyID AND M.TransferID = D.TransferID'
      'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
      
        'AND M.CompanyID = Wout.CompanyID AND M.TransferOutWarehouseID = ' +
        'Wout.WarehouseID'
      
        'AND M.CompanyID = Win.CompanyID AND M.TransferInWarehouseID = Wi' +
        'n.WarehouseID'
      'ORDER BY M.TransferDate, M.TransferID, D.TransferItem')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginTransferDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndTransferDate'
        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 qyReportTransferID: TStringField
      FieldName = 'TransferID'
      FixedChar = True
      Size = 10
    end
    object qyReportTransferDate: TStringField
      FieldName = 'TransferDate'
      FixedChar = True
      Size = 8
    end
    object qyReportTransferInWarehouseID: TStringField
      FieldName = 'TransferInWarehouseID'
      FixedChar = True
      Size = 4
    end
    object qyReportTransferOutWarehouseID: TStringField
      FieldName = 'TransferOutWarehouseID'
      FixedChar = True
      Size = 4
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportTransferQuantity: TBCDField
      FieldName = 'TransferQuantity'
      Precision = 12
      Size = 0
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportOutWarehouseName: TStringField
      FieldName = 'OutWarehouseName'
      Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
      FixedChar = True
      Size = 10
    end
    object qyReportInWarehouseName: TStringField
      FieldName = 'InWarehouseName'
      Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
      FixedChar = True
      Size = 10
    end
  end
end