Chip 1997 April/Chip_1997-04_cd.bin/prezent/cb/data.z/MDREP.DFM/MDREP.txt

Text File | 1997-01-16 | 16KB | 718 lines

object MDForm: TMDForm
  Left = 171
  Top = 177
  Width = 745
  Height = 530
  HorzScrollBar.Range = 1200
  VertScrollBar.Range = 2000
  AutoScroll = False
  Caption = 'Master Detail demo Report'
  Font.Charset = ANSI_CHARSET
  Font.Color = clBlack
  Font.Height = -13
  Font.Name = 'Arial'
  Font.Style = []
  Position = poScreenCenter
  Scaled = False
  PixelsPerInch = 96
  TextHeight = 16
  object Orderlines: TQRBand
    Left = 0
    Top = 117
    Width = 1200
    Height = 19
    Align = alTop
    BandType = rbSubDetail
    Color = clWhite
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    LinkBand = OrderSummary
    Ruler = qrrNone
    object QRDBText8: TQRDBText
      Left = 112
      Top = 0
      Width = 229
      Height = 17
      AlignToBand = False
      DataSource = DataModule2.LineItemSource
      DataField = 'PartName'
    end
    object QRDBText12: TQRDBText
      Left = 32
      Top = 0
      Width = 69
      Height = 17
      AlignToBand = False
      DataSource = DataModule2.LineItemSource
      DataField = 'PartNo'
    end
    object QRDBText13: TQRDBText
      Left = 348
      Top = 0
      Width = 89
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.LineItemSource
      DataField = 'Price'
    end
    object QRDBText14: TQRDBText
      Left = 444
      Top = 0
      Width = 33
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.LineItemSource
      DataField = 'Qty'
    end
    object QRDBText16: TQRDBText
      Left = 492
      Top = 0
      Width = 81
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.LineItemSource
      DataField = 'Total'
    end
  end
  object Title: TQRBand
    Left = 0
    Top = 0
    Width = 1200
    Height = 45
    Align = alTop
    BandType = rbTitle
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clNavy
    Font.Height = -13
    Font.Name = 'Arial'
    Font.Style = []
    ForceNewPage = False
    Frame.Width = 0
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    ParentFont = False
    Ruler = qrrInchesHV
    object QRLabel15: TQRLabel
      Left = 84
      Top = 4
      Width = 193
      Height = 36
      Caption = 'QuickReport'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = 8404992
      Font.Height = -32
      Font.Name = 'Arial'
      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 = 99
      Height = 16
      Caption = 'for C++ Builder '
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = 8404992
      Font.Height = -13
      Font.Name = 'Arial'
      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.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      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
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    LinkBand = Detail
    Ruler = qrrNone
    object QRDBText1: TQRDBText
      Left = 8
      Top = 12
      Width = 245
      Height = 17
      AlignToBand = False
      DataSource = DataModule2.CustomerSource
      DataField = 'Company'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel3: TQRLabel
      Left = 8
      Top = 0
      Width = 46
      Height = 14
      Caption = 'Customer'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRLabel4: TQRLabel
      Left = 272
      Top = 0
      Width = 30
      Height = 14
      Alignment = taRightJustify
      Caption = 'Phone'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRDBText3: TQRDBText
      Left = 272
      Top = 12
      Width = 109
      Height = 17
      AlignToBand = False
      DataSource = DataModule2.CustomerSource
      DataField = 'Phone'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRDBText4: TQRDBText
      Left = 64
      Top = 0
      Width = 25
      Height = 13
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.CustomerSource
      DataField = 'CustNo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRLabel5: TQRLabel
      Left = 388
      Top = 0
      Width = 18
      Height = 14
      Caption = 'Fax'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRDBText5: TQRDBText
      Left = 388
      Top = 12
      Width = 105
      Height = 17
      AlignToBand = False
      DataSource = DataModule2.CustomerSource
      DataField = 'Fax'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'Arial'
      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
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRDBCalc1: TQRDBCalc
      Left = 484
      Top = 0
      Width = 89
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.OrderSource
      DataField = 'AmountPaid'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      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.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      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
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRSysData1: TQRSysData
      Left = 664
      Top = 0
      Width = 79
      Height = 16
      Alignment = taRightJustify
      AlignToBand = True
      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
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    Ruler = qrrNone
    object QRDBCalc2: TQRDBCalc
      Left = 468
      Top = 8
      Width = 105
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.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
      AlignToBand = False
      DataSource = DataModule2.CustomerSource
      DataField = 'Zip'
      Operation = qrcCOUNT
    end
    object QRDBCalc5: TQRDBCalc
      Left = 188
      Top = 28
      Width = 65
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.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
      AlignToBand = False
      DataSource = DataModule2.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
      AlignToBand = False
      DataSource = DataModule2.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
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    LinkBand = Orderlines
    Ruler = qrrNone
    object QRDBText2: TQRDBText
      Left = 60
      Top = 0
      Width = 53
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.OrderSource
      DataField = 'OrderNo'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRDBText7: TQRDBText
      Left = 172
      Top = 0
      Width = 65
      Height = 17
      AlignToBand = False
      DataSource = DataModule2.OrderSource
      DataField = 'SaleDate'
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object QRLabel2: TQRLabel
      Left = 4
      Top = 0
      Width = 56
      Height = 16
      Caption = 'Order no'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel8: TQRLabel
      Left = 132
      Top = 0
      Width = 29
      Height = 16
      Caption = 'Date'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object QRLabel17: TQRLabel
      Left = 32
      Top = 16
      Width = 19
      Height = 14
      Caption = 'Part'
      AlignToBand = False
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      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.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      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.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      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.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      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
    Frame.DrawTop = False
    Frame.DrawBottom = False
    Frame.DrawLeft = False
    Frame.DrawRight = False
    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.Charset = ANSI_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object QRDBCalc3: TQRDBCalc
      Left = 496
      Top = 20
      Width = 77
      Height = 17
      Alignment = taRightJustify
      AlignToBand = False
      DataSource = DataModule2.LineItemSource
      DataField = 'Total'
      Operation = qrcSUM
      PrintMask = '#,##0.00'
      ResetBand = OrderSummary
    end
  end
  object MDRep: TQuickReport
    DataSource = DataModule2.CustomerSource
    ColumnMarginInches = 0
    ColumnMarginMM = 0
    Columns = 1
    DisplayPrintDialog = False
    LeftMarginInches = 0
    LeftMarginMM = 0
    Orientation = poPortrait
    PageFrame.DrawTop = False
    PageFrame.DrawBottom = False
    PageFrame.DrawLeft = False
    PageFrame.DrawRight = False
    PaperLength = 0
    PaperSize = qrpDefault
    PaperWidth = 0
    ReportTitle = 'QuickReport Master/detail demonstration'
    RestartData = True
    SQLCompatible = False
    TitleBeforeHeader = False
    Left = 4
    Top = 324
  end
  object QRDetailLink1: TQRDetailLink
    DataSource = DataModule2.OrderSource
    DetailBand = Detail
    FooterBand = CustomerFooter
    Master = MDRep
    PrintBefore = False
    Left = 12
    Top = 352
  end
  object QRDetailLink2: TQRDetailLink
    DataSource = DataModule2.LineItemSource
    DetailBand = Orderlines
    FooterBand = OrderSummary
    Master = QRDetailLink1
    PrintBefore = False
    Left = 20
    Top = 380
  end
end