DOS/V Power Report 1996 August/VPR9608A.BIN/del20try/install/data.z/MDREP.DFM/MDREP.txt

Text File | 1996-05-08 | 15KB | 638 lines

object MDForm: TMDForm
  Left = 388
  Top = 130
  Width = 789
  Height = 459
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Master Detail demo Report'
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  PixelsPerInch = 96
  ShowHint = True
  TextHeight = 16
  object Orderlines: TQRBand
    Left = 0
    Top = 117
    Width = 1200
    Height = 19
    Align = alTop
    BandType = rbSubDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    LinkBand = OrderSummary
    Ruler = qrrNone
    object QRDBText8: TQRDBText
      Left = 112
      Top = 0
      width = 229
      height = 17
      DataSource = CustomerData.LineItemSource
      DataField = 'PartName'
    end
    object QRDBText12: TQRDBText
      Left = 32
      Top = 0
      width = 69
      height = 17
      DataSource = CustomerData.LineItemSource
      DataField = 'PartNo'
    end
    object QRDBText13: TQRDBText
      Left = 348
      Top = 0
      width = 89
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.LineItemSource
      DataField = 'Price'
    end
    object QRDBText14: TQRDBText
      Left = 444
      Top = 0
      width = 33
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.LineItemSource
      DataField = 'Qty'
    end
    object QRDBText16: TQRDBText
      Left = 492
      Top = 0
      width = 81
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.LineItemSource
      DataField = 'Total'
    end
  end
  object Title: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 45
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
    Font.Style = []
    ForceNewPage = False
    Frame.Width = 0
    ParentFont = False
    Ruler = qrrInchesHV
    object QRLabel15: TQRLabel
      Left = 84
      Top = 4
      width = 193
      height = 36
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -32
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Image1: TImage
      Left = 8
      Top = 4
      Width = 69
      Height = 33
      Picture.Data = {<image000.bmp>}
      Stretch = True
    end
    object QRLabel1: TQRLabel
      Left = 288
      Top = 20
      width = 83
      height = 16
      Caption = 'for Delphi 2.0'
      AlignToBand = False
      Font.Color = 8404992
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel16: TQRLabel
      Left = 560
      Top = 20
      width = 167
      height = 16
      Caption = 'Copyright (c) 1996 QSD AS'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
  end
  object CustomerHeading: TQRBand
    Left = 0
    Top = 45
    Width = 1200
    Height = 36
    Align = alTop
    BandType = rbDetail
    Color = 8404992
    ForceNewPage = False
    Frame.Width = 0
    LinkBand = Detail
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 8
      Top = 12
      width = 245
      height = 17
      DataSource = CustomerData.CustomerSource
      DataField = 'Company'
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel3: TQRLabel
      Left = 8
      Top = 0
      width = 46
      height = 14
      Caption = 'Customer'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRLabel4: TQRLabel
      Left = 272
      Top = 0
      width = 30
      height = 14
      Alignment = taRightJustify
      Caption = 'Phone'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRDBText3: TQRDBText
      Left = 272
      Top = 12
      width = 109
      height = 17
      DataSource = CustomerData.CustomerSource
      DataField = 'Phone'
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRDBText4: TQRDBText
      Left = 64
      Top = 0
      width = 25
      height = 13
      Alignment = taRightJustify
      DataSource = CustomerData.CustomerSource
      DataField = 'CustNo'
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRLabel5: TQRLabel
      Left = 388
      Top = 0
      width = 18
      height = 14
      Caption = 'Fax'
      AlignToBand = False
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRDBText5: TQRDBText
      Left = 388
      Top = 12
      width = 105
      height = 17
      DataSource = CustomerData.CustomerSource
      DataField = 'Fax'
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
  end
  object CustomerFooter: TQRBand
    Left = 0
    Top = 173
    Width = 1200
    Height = 32
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBCalc1: TQRDBCalc
      Left = 484
      Top = 0
      width = 89
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.OrderSource
      DataField = 'AmountPaid'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
      Operation = qrcSUM
      PrintMask = '#,##0.00'
      ResetBand = CustomerFooter
    end
    object QRLabel7: TQRLabel
      Left = 304
      Top = 0
      width = 164
      height = 16
      Caption = 'Total sales this customer: '
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object PageFooter: TQRBand
    Left = 0
    Top = 301
    Width = 1200
    Height = 19
    Align = alTop
    BandType = rbPageFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRSysData1: TQRSysData
      Left = 664
      Top = 0
      width = 79
      height = 16
      Alignment = taRightJustify
      AlignToBand = True
      AutoSize = False
      Data = qrsPageNumber
      Text = 'Page '
    end
  end
  object Summary: TQRBand
    Left = 0
    Top = 205
    Width = 1200
    Height = 96
    Hint = 'QuickReport'
    Align = alTop
    BandType = rbSummary
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Ruler = qrrNone
    object QRDBCalc2: TQRDBCalc
      Left = 468
      Top = 8
      width = 105
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.OrderSource
      DataField = 'AmountPaid'
      Operation = qrcSUM
      PrintMask = ',0.00'
    end
    object QRLabel6: TQRLabel
      Left = 300
      Top = 8
      width = 153
      height = 16
      Caption = 'Total sales all customers :'
      AlignToBand = False
    end
    object QRLabel9: TQRLabel
      Left = 48
      Top = 28
      width = 133
      height = 16
      Caption = 'Total number of orders:'
      AlignToBand = False
    end
    object QRLabel10: TQRLabel
      Left = 24
      Top = 8
      width = 158
      height = 16
      Caption = 'Total number of customers:'
      AlignToBand = False
    end
    object QRDBCalc4: TQRDBCalc
      Left = 188
      Top = 8
      width = 65
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.CustomerSource
      DataField = 'Zip'
      Operation = qrcCOUNT
    end
    object QRDBCalc5: TQRDBCalc
      Left = 188
      Top = 28
      width = 65
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.OrderSource
      DataField = 'AmountPaid'
      Operation = qrcCOUNT
    end
    object QRLabel11: TQRLabel
      Left = 24
      Top = 48
      width = 157
      height = 16
      Caption = 'Total number of order lines:'
      AlignToBand = False
    end
    object QRDBCalc6: TQRDBCalc
      Left = 188
      Top = 48
      width = 65
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.LineItemSource
      DataField = 'Discount'
      Operation = qrcCOUNT
    end
    object QRLabel12: TQRLabel
      Left = 24
      Top = 68
      width = 157
      height = 16
      Caption = 'Total number of items sold:'
      AlignToBand = False
    end
    object QRDBCalc7: TQRDBCalc
      Left = 188
      Top = 68
      width = 65
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.LineItemSource
      DataField = 'Qty'
      Operation = qrcSUM
    end
  end
  object Detail: TQRBand
    Left = 0
    Top = 81
    Width = 1200
    Height = 36
    Align = alTop
    BandType = rbSubDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    LinkBand = Orderlines
    Ruler = qrrNone
    object QRDBText2: TQRDBText
      Left = 60
      Top = 0
      width = 53
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.OrderSource
      DataField = 'OrderNo'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRDBText7: TQRDBText
      Left = 172
      Top = 0
      width = 65
      height = 17
      DataSource = CustomerData.OrderSource
      DataField = 'SaleDate'
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel2: TQRLabel
      Left = 4
      Top = 0
      width = 56
      height = 16
      Caption = 'Order no'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel8: TQRLabel
      Left = 132
      Top = 0
      width = 29
      height = 16
      Caption = 'Date'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel17: TQRLabel
      Left = 32
      Top = 16
      width = 19
      height = 14
      Caption = 'Part'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRShape1: TQRShape
      Left = 52
      Top = 24
      width = 289
      Height = 4
      Shape = qrsHorLine
    end
    object QRLabel18: TQRLabel
      Left = 412
      Top = 16
      width = 24
      height = 14
      Caption = 'Price'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRShape2: TQRShape
      Left = 356
      Top = 24
      width = 53
      Height = 4
      Shape = qrsHorLine
    end
    object QRLabel19: TQRLabel
      Left = 460
      Top = 16
      width = 17
      height = 14
      Caption = 'Qty'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRShape3: TQRShape
      Left = 445
      Top = 24
      width = 11
      Height = 4
      Shape = qrsHorLine
    end
    object QRLabel20: TQRLabel
      Left = 548
      Top = 16
      width = 23
      height = 14
      Caption = 'Total'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRShape4: TQRShape
      Left = 492
      Top = 24
      width = 53
      Height = 4
      Shape = qrsHorLine
    end
  end
  object OrderSummary: TQRBand
    Left = 0
    Top = 136
    Width = 1200
    Height = 37
    Align = alTop
    BandType = rbGroupFooter
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    LinkBand = CustomerFooter
    Ruler = qrrNone
    object QRShape5: TQRShape
      Left = 32
      Top = 12
      width = 457
      Height = 4
      Shape = qrsHorLine
    end
    object QRLabel21: TQRLabel
      Left = 500
      Top = 4
      width = 72
      height = 14
      Caption = 'Total this order'
      AlignToBand = False
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
      Font.Style = []
      ParentFont = False
    end
    object QRDBCalc3: TQRDBCalc
      Left = 496
      Top = 20
      width = 77
      height = 17
      Alignment = taRightJustify
      DataSource = CustomerData.LineItemSource
      DataField = 'Total'
      Operation = qrcSUM
      PrintMask = '#,##0.00'
      ResetBand = OrderSummary
    end
  end
  object MDRep: TQuickReport
    DataSource = CustomerData.CustomerSource
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    ReportTitle = 'QuickReport Master/detail demonstration'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 324
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = CustomerData.OrderSource
    DetailBand = Detail
    FooterBand = CustomerFooter
    Master = MDRep
    PrintBefore = False
    Left = 12
    Top = 352
  end
  object QRDetailLink2: TQRDetailLink
    DataSource = CustomerData.LineItemSource
    DetailBand = Orderlines
    FooterBand = OrderSummary
    Master = QRDetailLink1
    PrintBefore = False
    Left = 20
    Top = 380
  end
end