object MainForm: TMainForm Left = 1 Top = 146 Width = 794 Height = 404 HorzScrollBar.Position = 53 Caption = 'Report Demonstration' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Scaled = False PixelsPerInch = 96 TextHeight = 13 object QuickRep1: TQuickRep Left = -29 Top = 96 Width = 816 Height = 1056 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False DataSet = Table1 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [] Options = [FirstPageHeader, LastPageFooter] Page.Columns = 1 Page.Orientation = poPortrait Page.PaperSize = Letter Page.Values = ( 127.000000000000000000 2794.000000000000000000 127.000000000000000000 2159.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 = Inches Zoom = 100 object DetailBand1: TQRBand Left = 48 Top = 128 Width = 720 Height = 40 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 = ( 105.833333333333300000 1905.000000000000000000) BandType = rbDetail object QRDBText1: TQRDBText Left = 8 Top = 16 Width = 41 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 21.166666666666670000 42.333333333333340000 108.479166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = Table1 DataField = 'PartNo' Transparent = False WordWrap = True FontSize = 10 end object QRDBText2: TQRDBText Left = 64 Top = 16 Width = 66 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 169.333333333333300000 42.333333333333340000 174.625000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite DataSet = Table1 DataField = 'Description' Transparent = False WordWrap = True FontSize = 10 end object QRDBText3: TQRDBText Left = 264 Top = 16 Width = 72 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 698.500000000000000000 42.333333333333330000 190.500000000000000000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Table1 DataField = 'Cost' Mask = '$###,###.00' Transparent = False WordWrap = False FontSize = 10 end object QRDBText4: TQRDBText Left = 359 Top = 16 Width = 92 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 949.854166666666700000 42.333333333333330000 243.416666666666700000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Table1 DataField = 'ListPrice' Mask = '###,###.00' Transparent = False WordWrap = True FontSize = 10 end object QRDBText5: TQRDBText Left = 471 Top = 16 Width = 73 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1246.187500000000000000 42.333333333333330000 193.145833333333300000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Table1 DataField = 'OnHand' Mask = '#,###' Transparent = False WordWrap = True FontSize = 10 end object QRDBText6: TQRDBText Left = 559 Top = 16 Width = 75 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1479.020833333333000000 42.333333333333330000 198.437500000000000000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite DataSet = Table1 DataField = 'OnOrder' Mask = '#,###' Transparent = False WordWrap = True FontSize = 10 end end object ColumnHeaderBand1: TQRBand Left = 48 Top = 88 Width = 720 Height = 40 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False AlignToBottom = False Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ForceNewColumn = False ForceNewPage = False ParentFont = False Size.Values = ( 105.833333333333300000 1905.000000000000000000) BandType = rbColumnHeader object QRLabel1: TQRLabel Left = 8 Top = 16 Width = 38 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 21.166666666666670000 42.333333333333340000 100.541666666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Part #' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end object QRLabel2: TQRLabel Left = 64 Top = 16 Width = 141 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 169.333333333333300000 42.333333333333340000 373.062500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Name and Description' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end object QRLabel3: TQRLabel Left = 312 Top = 16 Width = 28 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 825.500000000000000000 42.333333333333340000 74.083333333333330000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Cost' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end object QRLabel4: TQRLabel Left = 392 Top = 16 Width = 60 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1037.166666666667000000 42.333333333333340000 158.750000000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'List Price' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end object QRLabel5: TQRLabel Left = 488 Top = 16 Width = 55 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1291.166666666667000000 42.333333333333340000 145.520833333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'On hand' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end object QRLabel6: TQRLabel Left = 576 Top = 16 Width = 57 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1524.000000000000000000 42.333333333333340000 150.812500000000000000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'On order' Color = clWhite Transparent = False WordWrap = True FontSize = 10 end end object PageHeaderBand1: TQRBand Left = 48 Top = 48 Width = 720 Height = 40 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 = ( 105.833333333333300000 1905.000000000000000000) BandType = rbPageHeader object QRLabel7: TQRLabel Left = 8 Top = 8 Width = 304 Height = 24 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 63.500000000000000000 21.166666666666670000 21.166666666666670000 804.333333333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Tom Duck'#39's Dive Shop Inventory' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -19 Font.Name = 'Arial' Font.Style = [fsBold, fsItalic] ParentFont = False Transparent = False WordWrap = True FontSize = 14 end object QRSysData1: TQRSysData Left = 456 Top = 8 Width = 122 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1206.500000000000000000 21.166666666666670000 322.791666666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True Color = clWhite Data = qrsDateTime Transparent = False FontSize = 10 end object QRSysData2: TQRSysData Left = 600 Top = 8 Width = 8 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1587.500000000000000000 21.166666666666670000 21.166666666666670000) Alignment = taLeftJustify AlignToBand = False AutoSize = True Color = clWhite Data = qrsPageNumber Transparent = False FontSize = 10 end end object SummaryBand1: TQRBand Left = 48 Top = 168 Width = 720 Height = 81 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 = ( 214.312500000000000000 1905.000000000000000000) BandType = rbSummary object QRExpr1: TQRExpr Left = 231 Top = 16 Width = 107 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 611.187500000000000000 42.333333333333330000 283.104166666666700000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'SUM(Table1.Cost)' Mask = '$###,###.00' FontSize = 10 end object QRLabel8: TQRLabel Left = 16 Top = 16 Width = 43 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 42.333333333333340000 42.333333333333340000 113.770833333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Caption = 'Totals:' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end object QRExpr3: TQRExpr Left = 399 Top = 16 Width = 144 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1055.687500000000000000 42.333333333333330000 381.000000000000000000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'SUM(Table1.OnHand)' Mask = '###,###' FontSize = 10 end object QRExpr4: TQRExpr Left = 559 Top = 16 Width = 74 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1479.020833333333000000 42.333333333333330000 195.791666666666700000) Alignment = taRightJustify AlignToBand = False AutoSize = False AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'SUM(Table1.OnOrder)' Mask = '###,###' FontSize = 10 end object QRExpr2: TQRExpr Left = 391 Top = 48 Width = 209 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 1034.520833333333000000 127.000000000000000000 552.979166666666700000) Alignment = taLeftJustify AlignToBand = False AutoSize = True AutoStretch = False Color = clWhite ResetAfterPrint = False Transparent = False WordWrap = True Expression = 'SUM(Table1.Cost * Table1.OnHand)' Mask = '$#,###,###.00' FontSize = 10 end object QRLabel9: TQRLabel Left = 207 Top = 48 Width = 169 Height = 17 Frame.Color = clBlack Frame.DrawTop = False Frame.DrawBottom = False Frame.DrawLeft = False Frame.DrawRight = False Size.Values = ( 44.979166666666670000 547.687500000000000000 127.000000000000000000 447.145833333333300000) Alignment = taLeftJustify AlignToBand = False AutoSize = False AutoStretch = False Caption = 'Total Value of Inventory = ' Color = clWhite Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False Transparent = False WordWrap = True FontSize = 10 end end end object BitBtn1: TBitBtn Left = 275 Top = 24 Width = 131 Height = 33 Caption = 'Preview...' TabOrder = 1 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333330000000 00003333377777777777333330FFFFFFFFF03FF3F7FFFF33FFF7003000000FF0 00F077F7777773F77737E00FBFBFB0FFFFF07773333FF7FF33F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F3333FFFF733F7E0FBFB00000F F0F077F333777773F737E0BFBFBFBFB0FFF077F33FFFFFF733F7E0FB0000000F F0F077FF777777733737000FB0FFFFFFFFF07773F7F333333337333000FFFFFF FFF0333777F3FFF33FF7333330F000FF0000333337F777337777333330FFFFFF 0FF0333337FFFFFF7F37333330CCCCCC0F033333377777777F73333330FFFFFF 0033333337FFFFFF773333333000000003333333377777777333} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 459 Top = 24 Width = 129 Height = 33 Caption = 'Print' TabOrder = 2 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 659 Top = 24 Width = 75 Height = 33 TabOrder = 3 Kind = bkClose end object Table1: TTable Active = True DatabaseName = 'DBDEMOS' IndexName = 'ByDescription' TableName = 'PARTS.DB' Left = 112 Top = 24 end object DataSource1: TDataSource DataSet = Table1 Left = 40 Top = 24 end end