in110report.~dfm

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

      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ChangeDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 72
      Top = 24
      Width = 71
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        190.5
        63.5
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ChangeCode'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText3: TQRDBText
      Left = 148
      Top = 24
      Width = 71
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        391.583333333333
        63.5
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ChangeName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 72
      Top = 44
      Width = 64
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        190.5
        116.416666666667
        169.333333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 72
      Top = 64
      Width = 78
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        190.5
        169.333333333333
        206.375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'WarehouseID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 156
      Top = 64
      Width = 92
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        412.75
        169.333333333333
        243.416666666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'WarehouseName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText7: TQRDBText
      Left = 556
      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
        1471.08333333333
        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
    object QRShape2: TQRShape
      Left = 0
      Top = 80
      Width = 757
      Height = 13
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        34.3958333333333
        0
        211.666666666667
        2002.89583333333)
      Shape = qrsHorLine
    end
    object QRLabel11: TQRLabel
      Left = 4
      Top = 96
      Width = 27
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        10.5833333333333
        254
        71.4375)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #38917#27425
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel12: TQRLabel
      Left = 60
      Top = 96
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        158.75
        254
        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 QRLabel13: TQRLabel
      Left = 140
      Top = 96
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        370.416666666667
        254
        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 QRLabel14: TQRLabel
      Left = 484
      Top = 96
      Width = 27
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1280.58333333333
        254
        71.4375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #25976#37327
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel15: TQRLabel
      Left = 624
      Top = 96
      Width = 27
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1651
        254
        71.4375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #37329#38989
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    Active = True
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      'SELECT M.ChangeID, M.ChangeDate, M.ChangeCode, M.WarehouseID,'
      'M.Description, D.ChangeItem, D.ProductID, D.ChangeQuantity,'
      'D.ChangeAmount, P.ProductName, W.WarehouseName, I.ChangeName'
      
        'FROM ChangeMaster M, ChangeDetail D, Product P, Warehouse W, Inv' +
        'entoryChange I'
      'WHERE M.CompanyID = :CompanyID AND M.ChangeID = :ChangeID'
      'AND M.CompanyID = D.CompanyID AND M.ChangeID = D.ChangeID'
      'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
      'AND M.CompanyID = W.CompanyID AND M.WarehouseID = W.WarehouseID'
      'AND M.CompanyID = I.CompanyID AND M.ChangeCode = I.ChangeCode'
      'ORDER BY D.ChangeItem')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'ChangeID'
        ParamType = ptUnknown
      end>
    object qyReportChangeID: TStringField
      FieldName = 'ChangeID'
      Origin = 'KINGSBYPRG.ChangeMaster.ChangeID'
      FixedChar = True
      Size = 10
    end
    object qyReportChangeDate: TStringField
      FieldName = 'ChangeDate'
      Origin = 'KINGSBYPRG.ChangeMaster.ChangeDate'
      FixedChar = True
      Size = 8
    end
    object qyReportChangeCode: TStringField
      FieldName = 'ChangeCode'
      Origin = 'KINGSBYPRG.ChangeMaster.ChangeCode'
      FixedChar = True
      Size = 2
    end
    object qyReportChangeName: TStringField
      FieldName = 'ChangeName'
      Origin = 'KINGSBYPRG.InventoryChange.ChangeName'
      FixedChar = True
      Size = 10
    end
    object qyReportWarehouseID: TStringField
      FieldName = 'WarehouseID'
      Origin = 'KINGSBYPRG.ChangeMaster.WarehouseID'
      FixedChar = True
      Size = 4
    end
    object qyReportDescription: TStringField
      FieldName = 'Description'
      Origin = 'KINGSBYPRG.ChangeMaster.Description'
      FixedChar = True
      Size = 40
    end
    object qyReportChangeItem: TStringField
      FieldName = 'ChangeItem'
      Origin = 'KINGSBYPRG.ChangeDetail.ChangeItem'
      FixedChar = True
      Size = 3
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.ChangeDetail.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportChangeQuantity: TBCDField
      FieldName = 'ChangeQuantity'
      Origin = 'KINGSBYPRG.ChangeDetail.ChangeQuantity'
      Precision = 12
      Size = 0
    end
    object qyReportChangeAmount: TBCDField
      FieldName = 'ChangeAmount'
      Origin = 'KINGSBYPRG.ChangeDetail.ChangeAmount'
      Precision = 12
      Size = 0
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportWarehouseName: TStringField
      FieldName = 'WarehouseName'
      Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
      FixedChar = True
      Size = 10
    end
  end
end