DOS/V Power Report 1997 August/VPR9708A.ISO/D3TRIAL/INSTALL/DATA.Z/CUSTRPT.DFM/CUSTRPT.txt

Text File | 1997-05-13 | 15KB | 582 lines

object CustomerByInvoiceReport: TCustomerByInvoiceReport
  Left = 0
  Top = 0
  Width = 794
  Height = 1123
  Frame.Color = clBlack
  Frame.DrawTop = False
  Frame.DrawBottom = False
  Frame.DrawLeft = False
  Frame.DrawRight = False
  DataSet = MastData.CustByLastInvQuery
  Font.Charset = SHIFTJIS_CHARSET
  Font.Color = clWindowText
  Font.Height = -17
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  Options = [FirstPageHeader, LastPageFooter]
  Page.Columns = 1
  Page.Orientation = poPortrait
  Page.PaperSize = A4
  Page.Values = (
    127.000000000000000000
    2970.000000000000000000
    127.000000000000000000
    2100.000000000000000000
    127.000000000000000000
    127.000000000000000000
    0.000000000000000000)
  PrintIfEmpty = False
  PrinterSettings.Copies = 1
  PrinterSettings.Duplex = False
  PrinterSettings.FirstPage = 0
  PrinterSettings.LastPage = 0
  PrinterSettings.OutputBin = First
  SnapToGrid = True
  Units = Native
  Zoom = 80
  object DetailBand1: TQRBand
    Left = 48
    Top = 175
    Width = 698
    Height = 44
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clWhite
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    Font.Style = []
    ForceNewColumn = False
    ForceNewPage = False
    ParentFont = False
    Size.Values = (
      116.420000000000000000
      1846.791666666667000000)
    BandType = rbDetail
    object QRExpr1: TQRExpr
      Left = 103
      Top = 25
      Width = 341
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        272.520833333333300000
        66.145833333333330000
        902.229166666666700000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      Color = clWhite
      ParentFont = False
      ResetAfterPrint = False
      Transparent = False
      WordWrap = True
      Expression =
        'Addr1 + if(Addr2 <> '#39#39','#39' '#39' + Addr2, '#39#39') + if(City <> '#39#39','#39', '#39' + C' +
        'ity, '#39#39')'
      FontSize = 10
    end
    object QRDBText2: TQRDBText
      Left = 103
      Top = 4
      Width = 70
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.979166666666670000
        272.520833333333300000
        10.583333333333330000
        185.208333333333300000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = MastData.CustByLastInvQuery
      DataField = 'Company'
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 12
    end
    object QRDBText3: TQRDBText
      Left = 482
      Top = 6
      Width = 38
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        1275.291666666667000000
        15.875000000000000000
        100.541666666666700000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = MastData.CustByLastInvQuery
      DataField = 'Phone'
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText4: TQRDBText
      Left = 482
      Top = 25
      Width = 25
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        1275.291666666667000000
        66.145833333333330000
        66.145833333333330000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = MastData.CustByLastInvQuery
      DataField = 'FAX'
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText5: TQRDBText
      Left = 635
      Top = 25
      Width = 44
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        1680.104166666667000000
        66.145833333333330000
        116.416666666666700000)
      Alignment = taRightJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Color = clWhite
      DataSet = MastData.CustByLastInvQuery
      DataField = 'CustNo'
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
    object QRDBText1: TQRDBText
      Left = 8
      Top = 25
      Width = 86
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        46.302083333333300000
        19.843750000000000000
        66.145833333333300000
        228.203125000000000000)
      Alignment = taCenter
      AlignToBand = False
      AutoSize = False
      AutoStretch = False
      Color = clWhite
      DataSet = MastData.CustByLastInvQuery
      DataField = 'LastInvoiceDate'
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -17
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      OnPrint = QRDBText1Print
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 10
    end
  end
  object ColumnHeaderBand1: TQRBand
    Left = 48
    Top = 131
    Width = 698
    Height = 44
    Frame.Color = clBlack
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    AlignToBottom = False
    Color = clBlue
    Font.Charset = SHIFTJIS_CHARSET
    Font.Color = clWhite
    Font.Height = -15
    Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    Font.Style = [fsBold]
    ForceNewColumn = False
    ForceNewPage = False
    ParentFont = False
    Size.Values = (
      116.416666666666700000
      1846.791666666667000000)
    BandType = rbColumnHeader
    object QRLabel4: TQRLabel
      Left = 6
      Top = 20
      Width = 84
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        15.875000000000000000
        52.916666666666670000
        222.250000000000000000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = 'Last Invoice'
      Color = clBlue
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWhite
      Font.Height = -18
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 11
    end
    object QRLabel5: TQRLabel
      Left = 103
      Top = 1
      Width = 66
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        272.520833333333300000
        2.645833333333333000
        174.625000000000000000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = 'Customer'
      Color = clBlue
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWhite
      Font.Height = -18
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 11
    end
    object QRLabel6: TQRLabel
      Left = 103
      Top = 20
      Width = 55
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        272.520833333333300000
        52.916666666666670000
        145.520833333333300000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = 'Address'
      Color = clBlue
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWhite
      Font.Height = -18
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 11
    end
    object QRLabel7: TQRLabel
      Left = 482
      Top = 1
      Width = 43
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        1275.291666666667000000
        2.645833333333333000
        113.770833333333300000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = 'Phone'
      Color = clBlue
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWhite
      Font.Height = -18
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 11
    end
    object QRLabel8: TQRLabel
      Left = 482
      Top = 20
      Width = 30
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        1275.291666666667000000
        52.916666666666670000
        79.375000000000000000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = 'FAX'
      Color = clBlue
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWhite
      Font.Height = -18
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 11
    end
    object QRLabel9: TQRLabel
      Left = 584
      Top = 20
      Width = 93
      Height = 15
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        39.687500000000000000
        1545.166666666667000000
        52.916666666666670000
        246.062500000000000000)
      Alignment = taLeftJustify
      AlignToBand = False
      AutoSize = True
      AutoStretch = False
      Caption = 'Customer No.'
      Color = clBlue
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWhite
      Font.Height = -18
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 11
    end
  end
  object TitleBand1: TQRBand
    Left = 48
    Top = 48
    Width = 698
    Height = 83
    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 = (
      219.604166666666700000
      1846.791666666667000000)
    BandType = rbPageHeader
    object QRLabel1: TQRLabel
      Left = 0
      Top = 32
      Width = 170
      Height = 49
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        129.645833333333300000
        0.000000000000000000
        84.666666666666670000
        449.791666666666700000)
      Alignment = taLeftJustify
      AlignToBand = True
      AutoSize = True
      AutoStretch = False
      Caption = 'M.A.S.T.'
      Color = clWhite
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -60
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 36
    end
    object QRLabel2: TQRLabel
      Left = 278
      Top = 9
      Width = 142
      Height = 23
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        60.854166666666670000
        735.541666666666700000
        23.812500000000000000
        375.708333333333300000)
      Alignment = taCenter
      AlignToBand = True
      AutoSize = True
      AutoStretch = False
      Caption = 'Customer List'
      Color = clWhite
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 16
    end
    object QRLabel3: TQRLabel
      Left = 296
      Top = 30
      Width = 106
      Height = 17
      Frame.Color = clBlack
      Frame.DrawTop = False
      Frame.DrawBottom = False
      Frame.DrawLeft = False
      Frame.DrawRight = False
      Size.Values = (
        44.979166666666670000
        783.166666666666700000
        79.375000000000000000
        280.458333333333300000)
      Alignment = taCenter
      AlignToBand = True
      AutoSize = True
      AutoStretch = False
      Caption = 'By Last Invoice'
      Color = clWhite
      Font.Charset = SHIFTJIS_CHARSET
      Font.Color = clWindowText
      Font.Height = -20
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
      Transparent = False
      WordWrap = True
      FontSize = 12
    end
  end
end