dl110report.~dfm

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

      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText25: TQRDBText
      Left = 488
      Top = 104
      Width = 92
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1291.16666666667
        275.166666666667
        243.416666666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'WarehouseName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel23: TQRLabel
      Left = 344
      Top = 4
      Width = 47
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        910.166666666667
        10.5833333333333
        124.354166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20986#36008#21029':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText26: TQRDBText
      Left = 396
      Top = 4
      Width = 190
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1047.75
        10.5833333333333
        502.708333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'DeliveryPropertyDescription'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  object bdGroupFooter: TQRBand [4]
    Left = 19
    Top = 272
    Width = 756
    Height = 73
    Frame.Color = clBlack
    Frame.DrawTop = True
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = True
    Color = clWhite
    ForceNewColumn = False
    ForceNewPage = False
    Size.Values = (
      193.145833333333
      2000.25)
    BandType = rbGroupFooter
    object QRLabel19: TQRLabel
      Left = 576
      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
        1524
        10.5833333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #37559#21806#37329#38989':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel20: TQRLabel
      Left = 576
      Top = 28
      Width = 47
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1524
        74.0833333333333
        124.354166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #29151#26989#31237':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel21: TQRLabel
      Left = 576
      Top = 52
      Width = 60
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1524
        137.583333333333
        158.75)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #32317#35336#37329#38989':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText20: TQRDBText
      Left = 682
      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
        1804.45833333333
        10.5833333333333
        150.8125)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'SubTotal'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText21: TQRDBText
      Left = 661
      Top = 28
      Width = 78
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1748.89583333333
        74.0833333333333
        206.375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'ValueAddTax'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText22: TQRDBText
      Left = 696
      Top = 52
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1841.5
        137.583333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'Amount'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel24: 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 = #35330#21934#34399#30908':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText27: TQRDBText
      Left = 64
      Top = 4
      Width = 106
      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
        280.458333333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerOrderNo'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    Active = True
    BeforeOpen = qyReportBeforeOpen
    OnCalcFields = qyReportCalcFields
    SQL.Strings = (
      
        'SELECT M.DeliveryID, M.DeliveryDate, M.CustomerID, R.CustomerAtt' +
        'ribName,'
      'D.CompanyID, D.DeliveryItem, D.ProductID, D.SalesQuantity,'
      
        'D.SalesUnitPrice, D.SalesAmount, S.ChineseName, M.DeliveryProper' +
        'ty,'
      
        'M.WarehouseID, W.WarehouseName, M.DeliveryAddressID, M.InvoiceTy' +
        'pe,'
      
        'M.InvoiceNo, M.CustomerOrderNo, M.SubTotal, M.ValueAddTax, M.Amo' +
        'unt,'
      
        'M.SalesManID, A.AddressDescription, A.PostalCode, A.Line1, A.Lin' +
        'e2, A.Line3, P.ProductName'
      
        'FROM DeliveryMaster M, DeliveryDetail D, CustomerMaster R, Sales' +
        'Man S, Warehouse W, CustomerAddress A, Product P'
      'WHERE M.CompanyID = :CompanyID AND M.DeliveryID = :DeliveryID'
      'AND M.CompanyID = D.CompanyID AND M.DeliveryID = D.DeliveryID'
      'AND M.CompanyID = R.CompanyID AND M.CustomerID = R.CustomerID'
      'AND M.CompanyID = S.CompanyID AND M.SalesManID = S.SalesManID'
      'AND M.CompanyID = W.CompanyID AND M.WarehouseID = W.WarehouseID'
      
        'AND M.CompanyID = A.CompanyID AND M.CustomerID = A.CustomerID AN' +
        'D M.DeliveryAddressID = A.AddressID'
      'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
      'ORDER BY D.DeliveryItem')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'DeliveryID'
        ParamType = ptUnknown
      end>
    object qyReportDeliveryID: TStringField
      FieldName = 'DeliveryID'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryID'
      FixedChar = True
      Size = 10
    end
    object qyReportDeliveryDate: TStringField
      FieldName = 'DeliveryDate'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryDate'
      FixedChar = True
      Size = 8
    end
    object qyReportCustomerID: TStringField
      FieldName = 'CustomerID'
      Origin = 'KINGSBYPRG.DeliveryMaster.CustomerID'
      FixedChar = True
      Size = 8
    end
    object qyReportCustomerAttribName: TStringField
      FieldName = 'CustomerAttribName'
      Origin = 'KINGSBYPRG.CustomerMaster.CustomerAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportCompanyID: TStringField
      FieldName = 'CompanyID'
      Origin = 'KINGSBYPRG.DeliveryDetail.CompanyID'
      FixedChar = True
      Size = 2
    end
    object qyReportDeliveryItem: TStringField
      FieldName = 'DeliveryItem'
      Origin = 'KINGSBYPRG.DeliveryDetail.DeliveryItem'
      FixedChar = True
      Size = 3
    end
    object qyReportProductID: TStringField
      FieldName = 'ProductID'
      Origin = 'KINGSBYPRG.DeliveryDetail.ProductID'
      FixedChar = True
      Size = 10
    end
    object qyReportSalesQuantity: TBCDField
      FieldName = 'SalesQuantity'
      Origin = 'KINGSBYPRG.DeliveryDetail.SalesQuantity'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSalesUnitPrice: TBCDField
      FieldName = 'SalesUnitPrice'
      Origin = 'KINGSBYPRG.DeliveryDetail.SalesUnitPrice'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSalesAmount: TBCDField
      FieldName = 'SalesAmount'
      Origin = 'KINGSBYPRG.DeliveryDetail.SalesAmount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportChineseName: TStringField
      FieldName = 'ChineseName'
      Origin = 'KINGSBYPRG.SalesMan.ChineseName'
      FixedChar = True
      Size = 8
    end
    object qyReportDeliveryProperty: TStringField
      FieldName = 'DeliveryProperty'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryProperty'
      FixedChar = True
      Size = 1
    end
    object qyReportWarehouseID: TStringField
      FieldName = 'WarehouseID'
      Origin = 'KINGSBYPRG.DeliveryMaster.WarehouseID'
      FixedChar = True
      Size = 4
    end
    object qyReportWarehouseName: TStringField
      FieldName = 'WarehouseName'
      Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
      FixedChar = True
      Size = 10
    end
    object qyReportDeliveryAddressID: TStringField
      FieldName = 'DeliveryAddressID'
      Origin = 'KINGSBYPRG.DeliveryMaster.DeliveryAddressID'
      FixedChar = True
      Size = 2
    end
    object qyReportInvoiceType: TStringField
      FieldName = 'InvoiceType'
      Origin = 'KINGSBYPRG.DeliveryMaster.InvoiceType'
      FixedChar = True
      Size = 1
    end
    object qyReportInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      Origin = 'KINGSBYPRG.DeliveryMaster.InvoiceNo'
      FixedChar = True
      Size = 10
    end
    object qyReportCustomerOrderNo: TStringField
      FieldName = 'CustomerOrderNo'
      Origin = 'KINGSBYPRG.DeliveryMaster.CustomerOrderNo'
      FixedChar = True
      Size = 15
    end
    object qyReportSubTotal: TBCDField
      FieldName = 'SubTotal'
      Origin = 'KINGSBYPRG.DeliveryMaster.SubTotal'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportValueAddTax: TBCDField
      FieldName = 'ValueAddTax'
      Origin = 'KINGSBYPRG.DeliveryMaster.ValueAddTax'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportAmount: TBCDField
      FieldName = 'Amount'
      Origin = 'KINGSBYPRG.DeliveryMaster.Amount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSalesManID: TStringField
      FieldName = 'SalesManID'
      Origin = 'KINGSBYPRG.DeliveryMaster.SalesManID'
      FixedChar = True
      Size = 4
    end
    object qyReportAddressDescription: TStringField
      FieldName = 'AddressDescription'
      Origin = 'KINGSBYPRG.CustomerAddress.AddressDescription'
      FixedChar = True
    end
    object qyReportPostalCode: TStringField
      FieldName = 'PostalCode'
      Origin = 'KINGSBYPRG.CustomerAddress.PostalCode'
      FixedChar = True
      Size = 5
    end
    object qyReportLine1: TStringField
      FieldName = 'Line1'
      Origin = 'KINGSBYPRG.CustomerAddress.Line1'
      FixedChar = True
      Size = 30
    end
    object qyReportLine2: TStringField
      FieldName = 'Line2'
      Origin = 'KINGSBYPRG.CustomerAddress.Line2'
      FixedChar = True
      Size = 30
    end
    object qyReportLine3: TStringField
      FieldName = 'Line3'
      Origin = 'KINGSBYPRG.CustomerAddress.Line3'
      FixedChar = True
      Size = 30
    end
    object qyReportProductName: TStringField
      FieldName = 'ProductName'
      Origin = 'KINGSBYPRG.Product.ProductName'
      FixedChar = True
      Size = 30
    end
    object qyReportDeliveryPropertyDescription: TStringField
      FieldKind = fkCalculated
      FieldName = 'DeliveryPropertyDescription'
      Size = 8
      Calculated = True
    end
  end
end