in120report.dfm

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

      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #35519#25765#26085#26399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel7: TQRLabel
      Left = 384
      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
        1016
        10.5833333333333
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #35519#25765#21934#21934#34399':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel8: TQRLabel
      Left = 4
      Top = 24
      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
        63.5
        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 QRLabel9: TQRLabel
      Left = 4
      Top = 44
      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
        116.416666666667
        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 QRDBText1: 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 = 'TransferDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 68
      Top = 24
      Width = 155
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        179.916666666667
        63.5
        410.104166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferOutWarehouseID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: TQRDBText
      Left = 68
      Top = 44
      Width = 148
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        179.916666666667
        116.416666666667
        391.583333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferInWarehouseID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 468
      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
        1238.25
        10.5833333333333
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'TransferID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 156
      Top = 24
      Width = 113
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        412.75
        63.5
        298.979166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'OutWarehouseName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 156
      Top = 44
      Width = 106
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        412.75
        116.416666666667
        280.458333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'InWarehouseName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRShape1: TQRShape
      Left = 0
      Top = 60
      Width = 753
      Height = 13
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        34.3958333333333
        0
        158.75
        1992.3125)
      Shape = qrsHorLine
    end
  end
  inherited qyReport: TQuery
    Active = True
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      
        'SELECT M.TransferDate, M.TransferOutWarehouseID, M.TransferInWar' +
        'ehouseID,'
      'D.TransferItem, D.ProductID, D.TransferQuantity, P.ProductName,'
      'Wout.WarehouseName AS OutWarehouseName,'
      'Win.WarehouseName AS InWarehouseName, M.TransferID'
      
        'FROM TransferMaster M, TransferDetail D, Warehouse Win, Warehous' +
        'e Wout, Product P'
      'WHERE M.CompanyID = :CompanyID AND M.TransferID = :TransferID'
      '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 D.TransferItem')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'TransferID'
        ParamType = ptUnknown
      end>
    object qyReportTransferID: TStringField
      FieldName = 'TransferID'
      Origin = 'KINGSBYPRG.TransferMaster.TransferID'
      FixedChar = True
      Size = 10
    end
    object qyReportTransferDate: TStringField
      FieldName = 'TransferDate'
      Origin = 'KINGSBYPRG.TransferMaster.TransferDate'
      FixedChar = True
      Size = 8
    end
    object qyReportTransferOutWarehouseID: TStringField
      FieldName = 'TransferOutWarehouseID'
      Origin = 'KINGSBYPRG.TransferMaster.TransferOutWarehouseID'
      FixedChar = True
      Size = 4
    end
    object qyReportTransferInWarehouseID: TStringField
      FieldName = 'TransferInWarehouseID'
      Origin = 'KINGSBYPRG.TransferMaster.TransferInWarehouseID'
      FixedChar = True
      Size = 4
    end
    object qyReportTransferItem: TStringField
      FieldName = 'TransferItem'
      Origin = 'KINGSBYPRG.TransferDetail.TransferItem'
      FixedChar = True
      Size = 3
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.TransferDetail.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportTransferQuantity: TBCDField
      FieldName = 'TransferQuantity'
      Origin = 'KINGSBYPRG.TransferDetail.TransferQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.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