ba220report.~dfm

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

inherited qrBA220: TqrBA220
  Functions.DATA = (
    '0'
    '0'
    #39#39)
  Page.Values = (
    50
    2970
    50
    2100
    50
    50
    0)
  inherited bdPageHeader: TQRBand
    Size.Values = (
      280.458333333333
      2000.25)
    inherited QRShape1: TQRShape
      Size.Values = (
        44.9791666666667
        0
        179.916666666667
        2002.89583333333)
    end
    inherited CompanyName: TQRLabel
      Size.Values = (
        66.1458333333333
        838.729166666667
        0
        322.791666666667)
      FontSize = 16
    end
    inherited QRSysData1: TQRSysData
      Width = 71
      Size.Values = (
        44.9791666666667
        1778
        52.9166666666667
        187.854166666667)
      FontSize = 10
    end
    inherited QRSysData2: TQRSysData
      Width = 8
      Size.Values = (
        44.9791666666667
        1778
        105.833333333333
        21.1666666666667)
      FontSize = 10
    end
    inherited QRLabel1: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        52.9166666666667
        158.75)
      FontSize = 10
    end
    inherited QRLabel2: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        105.833333333333
        89.9583333333333)
      FontSize = 10
    end
    inherited ReportName: TQRLabel
      Left = 283
      Width = 190
      Size.Values = (
        58.2083333333333
        748.770833333333
        63.5
        502.708333333333)
      Caption = #23458#25142#39006#21029#32232#34399#23565#29031#34920
      FontSize = 16
    end
    inherited QRLabel4: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        0
        150.8125)
      FontSize = 10
    end
    inherited QRLabel5: TQRLabel
      Width = 40
      Size.Values = (
        44.9791666666667
        1778
        0
        105.833333333333)
      Caption = 'BA220'
      FontSize = 10
    end
    object QRLabel7: TQRLabel
      Left = 96
      Top = 80
      Width = 79
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        254
        211.666666666667
        209.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #23458#25142#39006#21029#21517#31281
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel6: TQRLabel
      Left = 8
      Top = 80
      Width = 79
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        21.1666666666667
        211.666666666667
        209.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #23458#25142#39006#21029#32232#34399
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRShape2: TQRShape
      Left = 8
      Top = 96
      Width = 81
      Height = 9
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        23.8125
        21.1666666666667
        254
        214.3125)
      Shape = qrsHorLine
    end
    object QRShape3: TQRShape
      Left = 96
      Top = 96
      Width = 81
      Height = 9
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        23.8125
        254
        254
        214.3125)
      Shape = qrsHorLine
    end
  end
  inherited bgDetail: TQRBand
    Size.Values = (
      60.8541666666667
      2000.25)
    object QRDBText1: TQRDBText
      Left = 4
      Top = 4
      Width = 97
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        10.5833333333333
        10.5833333333333
        256.645833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerTypeID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 96
      Top = 4
      Width = 119
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.9791666666667
        254
        10.5833333333333
        314.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerTypeName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Size.Values = (
      105.833333333333
      2000.25)
    inherited QRLabel3: TQRLabel
      Size.Values = (
        44.9791666666667
        1651
        52.9166666666667
        82.0208333333333)
      FontSize = 10
    end
    inherited UserName: TQRLabel
      Size.Values = (
        44.9791666666667
        1746.25
        52.9166666666667
        164.041666666667)
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    Active = True
    BeforeOpen = qyReportBeforeOpen
    SQL.Strings = (
      'SELECT CustomerTypeID, CustomerTypeName'
      'FROM CustomerType'
      'WHERE CompanyID = :CompanyID'
      'AND CustomerTypeID >= :BeginCustomerTypeID'
      'AND CustomerTypeID <= :EndCustomerTypeID'
      'ORDER BY CustomerTypeID')
    ParamData = <
      item
        DataType = ftString
        Name = 'CompanyID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'BeginCustomerTypeID'
        ParamType = ptUnknown
      end
      item
        DataType = ftString
        Name = 'EndCustomerTypeID'
        ParamType = ptUnknown
      end>
    object qyReportCustomerTypeID: TStringField
      FieldName = 'CustomerTypeID'
      Origin = 'KINGSBYPRG.CustomerType.CustomerTypeID'
      FixedChar = True
      Size = 2
    end
    object qyReportCustomerTypeName: TStringField
      FieldName = 'CustomerTypeName'
      Origin = 'KINGSBYPRG.CustomerType.CustomerTypeName'
      FixedChar = True
      Size = 10
    end
  end
end