ap220report.dfm

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

        10.5833333333333
        76.7291666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'Paid'
      Transparent = True
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 252
    Size.Values = (
      105.833333333333
      2000.25)
    inherited QRLabel3: TQRLabel
      Width = 40
      Size.Values = (
        44.9791666666667
        1651
        52.9166666666667
        105.833333333333)
      Caption = #21046#34920#65306
      FontSize = 10
    end
    inherited UserName: TQRLabel
      Size.Values = (
        44.9791666666667
        1746.25
        52.9166666666667
        150.8125)
      FontSize = 10
    end
  end
  object bdGroupHeader: TQRGroup [3]
    Left = 19
    Top = 185
    Width = 756
    Height = 4
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ForceNewColumn = False
    ForceNewPage = True
    ParentFont = False
    Size.Values = (
      10.5833333333333
      2000.25)
    Expression = 'qyReport.SupplierID'
    FooterBand = bdGroupFooter
    Master = Owner
    ReprintOnNewPage = False
  end
  object bdGroupFooter: TQRBand [4]
    Left = 19
    Top = 212
    Width = 756
    Height = 40
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = #23435#20307
    Font.Style = []
    ForceNewColumn = False
    ForceNewPage = False
    ParentFont = False
    Size.Values = (
      105.833333333333
      2000.25)
    BandType = rbGroupFooter
    object QRDBText15: TQRDBText
      Left = 641
      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
        1695.97916666667
        10.5833333333333
        298.979166666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = Query1
      DataField = 'UnAccountPayable'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText16: TQRDBText
      Left = 644
      Top = 4
      Width = 29
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1703.91666666667
        10.5833333333333
        76.7291666666667)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = Query1
      DataField = 'Paid'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText17: TQRDBText
      Left = 497
      Top = 4
      Width = 99
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1314.97916666667
        10.5833333333333
        261.9375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = Query1
      DataField = 'AccountPayable'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel19: TQRLabel
      Left = 436
      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
        1153.58333333333
        10.5833333333333
        193.145833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #20379#24212#21830#21512#35745':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    BeforeOpen = qyReportBeforeOpen
    OnCalcFields = qyReportCalcFields
    SQL.Strings = (
      
        'SELECT S.SupplierName, M.PurchaseID, M.PurchaseDate, M.InvoiceNo' +
        ','
      
        'M.AccountPayable, M.Paid, M.SubTotal, M.ValueAddTax, M.SupplierI' +
        'D,'
      
        'M.CompanyID, M.PurchaseProperty, M.Amount, S.InvoiceNo AS Suppli' +
        'erInvoiceNo,'
      'S.ContactName1, S.CompanyAddress'
      'FROM PurchaseMaster M, Supplier S'
      'WHERE M.CompanyID = :CompanyID'
      
        'AND M.PurchaseDate >= :BeginPurchaseDate AND M.PurchaseDate <= :' +
        'EndPurchaseDate'
      
        'AND M.SupplierID >= :BeginSupplierID AND M.SupplierID <= :EndSup' +
        'plierID'
      'AND M.CompanyID = S.CompanyID AND M.SupplierID = S.SupplierID'
      'AND M.PurchaseProperty in ('#39'5'#39', '#39'6'#39')'
      'ORDER BY M.SupplierID, M.PurchaseDate, M.PurchaseID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginPurchaseDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndPurchaseDate'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginSupplierID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndSupplierID'
        ParamType = ptUnknown
      end>
    object qyReportUnAccountPayable: TFloatField
      FieldKind = fkCalculated
      FieldName = 'UnAccountPayable'
      DisplayFormat = '#,##0'
      Calculated = True
    end
    object qyReportPurchasePropertyDescription: TStringField
      FieldKind = fkCalculated
      FieldName = 'PurchasePropertyDescription'
      Size = 10
      Calculated = True
    end
    object qyReportBeginPurchaseDate: TStringField
      FieldKind = fkCalculated
      FieldName = 'BeginPurchaseDate'
      Size = 8
      Calculated = True
    end
    object qyReportEndPurchaseDate: TStringField
      FieldKind = fkCalculated
      FieldName = 'EndPurchaseDate'
      Size = 8
      Calculated = True
    end
    object qyReportSupplierName: TStringField
      FieldName = 'SupplierName'
      FixedChar = True
      Size = 60
    end
    object qyReportPurchaseID: TStringField
      FieldName = 'PurchaseID'
      FixedChar = True
      Size = 10
    end
    object qyReportPurchaseDate: TStringField
      FieldName = 'PurchaseDate'
      FixedChar = True
      Size = 8
    end
    object qyReportInvoiceNo: TStringField
      FieldName = 'InvoiceNo'
      FixedChar = True
      Size = 10
    end
    object qyReportAccountPayable: TBCDField
      FieldName = 'AccountPayable'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportPaid: TBCDField
      FieldName = 'Paid'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSubTotal: TBCDField
      FieldName = 'SubTotal'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportValueAddTax: TBCDField
      FieldName = 'ValueAddTax'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSupplierID: TStringField
      FieldName = 'SupplierID'
      FixedChar = True
      Size = 8
    end
    object qyReportCompanyID: TStringField
      FieldName = 'CompanyID'
      FixedChar = True
      Size = 2
    end
    object qyReportPurchaseProperty: TStringField
      FieldName = 'PurchaseProperty'
      FixedChar = True
      Size = 1
    end
    object qyReportAmount: TBCDField
      FieldName = 'Amount'
      DisplayFormat = '#,##0'
      Precision = 12
      Size = 0
    end
    object qyReportSupplierInvoiceNo: TStringField
      FieldName = 'SupplierInvoiceNo'
      FixedChar = True
      Size = 8
    end
    object qyReportContactName1: TStringField
      FieldName = 'ContactName1'
      FixedChar = True
      Size = 8
    end
    object qyReportCompanyAddress: TStringField
      FieldName = 'CompanyAddress'
      FixedChar = True
      Size = 60
    end
  end
  object dsReport: TDataSource
    DataSet = qyReport
    Left = 88
    Top = 16
  end
  object Query1: TQuery
    OnCalcFields = Query1CalcFields
    DatabaseName = 'KingsByPrg'
    DataSource = dsReport
    SQL.Strings = (
      
        'SELECT SUM(M.AccountPayable) AS AccountPayable, SUM(M.Paid) AS P' +
        'aid'
      'FROM PurchaseMaster M'
      'WHERE M.CompanyID = :CompanyID'
      
        'AND M.PurchaseDate >= :BeginPurchaseDate AND M.PurchaseDate <= :' +
        'EndPurchaseDate'
      'AND M.SupplierID = :SupplierID'
      'AND M.PurchaseProperty in ('#39'5'#39', '#39'6'#39')')
    Left = 156
    Top = 16
    ParamData = <
      item
        DataType = ftFixedChar
        Name = 'CompanyID'
        ParamType = ptUnknown
        Size = 3
      end
      item
        DataType = ftString
        Name = 'BeginPurchaseDate'
        ParamType = ptUnknown
        Size = 9
      end
      item
        DataType = ftString
        Name = 'EndPurchaseDate'
        ParamType = ptUnknown
        Size = 9
      end
      item
        DataType = ftFixedChar
        Name = 'SupplierID'
        ParamType = ptUnknown
        Size = 9
      end>
    object FloatField1: TFloatField
      FieldKind = fkCalculated
      FieldName = 'UnAccountPayable'
      DisplayFormat = '#,##0'
      Calculated = True
    end
    object Query1AccountPayable: TBCDField
      FieldName = 'AccountPayable'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
    object Query1Paid: TBCDField
      FieldName = 'Paid'
      DisplayFormat = '#,##0'
      Precision = 32
      Size = 0
    end
  end
end