ar270report.dfm

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

inherited qrAR270: TqrAR270
  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 CompanyName: TQRLabel
      Size.Values = (
        66.1458333333333
        838.729166666667
        0
        322.791666666667)
      FontSize = 16
    end
    inherited QRSysData1: TQRSysData
      Size.Values = (
        44.9791666666667
        1778
        52.9166666666667
        113.770833333333)
      FontSize = 10
    end
    inherited QRSysData2: TQRSysData
      Size.Values = (
        44.9791666666667
        1778
        105.833333333333
        132.291666666667)
      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 = 304
      Width = 148
      Size.Values = (
        58.2083333333333
        804.333333333333
        63.5
        391.583333333333)
      Caption = #25033#25910#24115#27454#30064#21205#34920
      FontSize = 16
    end
    inherited QRLabel4: TQRLabel
      Size.Values = (
        44.9791666666667
        1598.08333333333
        0
        158.75)
      FontSize = 10
    end
    inherited QRLabel5: TQRLabel
      Width = 36
      Size.Values = (
        44.9791666666667
        1778
        0
        95.25)
      Caption = 'AR270'
      FontSize = 10
    end
    object QRLabel8: TQRLabel
      Left = 273
      Top = 88
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        722.3125
        232.833333333333
        140.229166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21934#25818#31278#39006
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel9: TQRLabel
      Left = 344
      Top = 88
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        910.166666666667
        232.833333333333
        140.229166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21934#25818#26085#26399
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel10: TQRLabel
      Left = 428
      Top = 88
      Width = 53
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1132.41666666667
        232.833333333333
        140.229166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #21934#25818#34399#30908
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRLabel11: TQRLabel
      Left = 581
      Top = 88
      Width = 27
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1537.22916666667
        232.833333333333
        71.4375)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = #37329#38989
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bgDetail: TQRBand
    Top = 145
    Size.Values = (
      60.8541666666667
      2000.25)
    object QRDBText3: TQRDBText
      Left = 277
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        732.895833333333
        10.5833333333333
        113.770833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'IDType'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 345
      Top = 4
      Width = 50
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        912.8125
        10.5833333333333
        132.291666666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'JobDate'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 429
      Top = 4
      Width = 36
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1135.0625
        10.5833333333333
        95.25)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'JobID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText6: TQRDBText
      Left = 569
      Top = 4
      Width = 43
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        1505.47916666667
        10.5833333333333
        113.770833333333)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'Amount'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited bdPageFooter: TQRBand
    Top = 168
    Size.Values = (
      105.833333333333
      2000.25)
    inherited QRLabel3: TQRLabel
      Size.Values = (
        44.9791666666667
        1651
        52.9166666666667
        89.9583333333333)
      FontSize = 10
    end
    inherited UserName: TQRLabel
      Size.Values = (
        44.9791666666667
        1746.25
        52.9166666666667
        150.8125)
      FontSize = 10
    end
  end
  object QRGroup1: TQRGroup [3]
    Left = 19
    Top = 125
    Width = 756
    Height = 20
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    ForceNewColumn = False
    ForceNewPage = False
    Size.Values = (
      52.9166666666667
      2000.25)
    Expression = 'qyReport.CustomerID'
    Master = Owner
    ReprintOnNewPage = False
    object QRLabel7: 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 = #23458#25142#31777#31281':'
      Color = clWhite
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 68
      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
        179.916666666667
        10.5833333333333
        187.854166666667)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerID'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 136
      Top = 4
      Width = 127
      Height = 14
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        37.0416666666667
        359.833333333333
        10.5833333333333
        336.020833333333)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = qyReport
      DataField = 'CustomerAttribName'
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  inherited qyReport: TQuery
    Active = True
    CachedUpdates = True
    RequestLive = True
    SQL.Strings = (
      'SELECT CustomerID, CustomerAttribName,'
      'SPACE(8) AS JobDate, SPACE(10) AS JobID, SPACE(8) AS IDType,'
      '0 AS Amount'
      'FROM CustomerMaster'
      'WHERE CompanyID = '#39'~~'#39)
    UpdateObject = UpdateSQL1
    object qyReportCustomerID: TStringField
      FieldName = 'CustomerID'
      FixedChar = True
      Size = 8
    end
    object qyReportCustomerAttribName: TStringField
      FieldName = 'CustomerAttribName'
      FixedChar = True
      Size = 10
    end
    object qyReportJobDate: TStringField
      FieldName = 'JobDate'
      FixedChar = True
      Size = 8
    end
    object qyReportJobID: TStringField
      FieldName = 'JobID'
      FixedChar = True
      Size = 10
    end
    object qyReportIDType: TStringField
      FieldName = 'IDType'
      FixedChar = True
      Size = 8
    end
    object qyReportAmount: TIntegerField
      FieldName = 'Amount'
      DisplayFormat = '#,##0'
    end
  end
  object UpdateSQL1: TUpdateSQL
    ModifySQL.Strings = (
      'update CustomerMaster'
      'set'
      '  CustomerID = :CustomerID,'
      '  CustomerAttribName = :CustomerAttribName'
      'where'
      '  CustomerID = :OLD_CustomerID and'
      '  CustomerAttribName = :OLD_CustomerAttribName')
    InsertSQL.Strings = (
      'insert into CustomerMaster'
      '  (CustomerID, CustomerAttribName)'
      'values'
      '  (:CustomerID, :CustomerAttribName)')
    DeleteSQL.Strings = (
      'delete from CustomerMaster'
      'where'
      '  CustomerID = :OLD_CustomerID and'
      '  CustomerAttribName = :OLD_CustomerAttribName')
    Left = 100
    Top = 8
  end
end