home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr2 / manygrp.dfm / manygrp.txt
Text File  |  1999-08-11  |  18KB  |  702 lines
  1. object ManyGrpForm: TManyGrpForm
  2.   Left = 309
  3.   Top = 142
  4.   Width = 770
  5.   Height = 657
  6.   Caption = 'ManyGrpForm'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Name = 'System'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Scaled = False
  13.   TextHeight = 16
  14.   object QuickRep: TQuickRep
  15.     Left = 12
  16.     Top = 14
  17.     Width = 816
  18.     Height = 1056
  19.     Frame.Color = clBlack
  20.     Frame.DrawTop = False
  21.     Frame.DrawBottom = False
  22.     Frame.DrawLeft = False
  23.     Frame.DrawRight = False
  24.     DataSet = RepQuery
  25.     Description.Strings = (
  26.       
  27.         'This report shows how to create a master/detail report from a TQ' +
  28.         'uery component and use multiple TQRGroups in the same report')
  29.     Font.Color = clWindowText
  30.     Font.Height = -13
  31.     Font.Name = 'Arial'
  32.     Font.Style = []
  33.     Options = [FirstPageHeader, LastPageFooter]
  34.     Page.Columns = 1
  35.     Page.Orientation = poPortrait
  36.     Page.PaperSize = Letter
  37.     Page.Values = (
  38.       100.000000000000000000
  39.       2794.000000000000000000
  40.       100.000000000000000000
  41.       2159.000000000000000000
  42.       100.000000000000000000
  43.       100.000000000000000000
  44.       0.000000000000000000)
  45.     PrintIfEmpty = False
  46.     PrinterSettings.Copies = 1
  47.     PrinterSettings.Duplex = False
  48.     PrinterSettings.OutputBin = First
  49.     SnapToGrid = True
  50.     Units = MM
  51.     Zoom = 100
  52.     object DetailBand1: TQRBand
  53.       Left = 38
  54.       Top = 97
  55.       Width = 740
  56.       Height = 20
  57.       Frame.Color = clBlack
  58.       Frame.DrawTop = False
  59.       Frame.DrawBottom = False
  60.       Frame.DrawLeft = True
  61.       Frame.DrawRight = True
  62.       AlignToBottom = False
  63.       Color = clWhite
  64.       ForceNewColumn = False
  65.       ForceNewPage = False
  66.       Size.Values = (
  67.         52.916666666666670000
  68.         1957.916666666667000000)
  69.       BandType = rbDetail
  70.       object QRDBText3: TQRDBText
  71.         Left = 38
  72.         Top = 0
  73.         Width = 41
  74.         Height = 17
  75.         Frame.Color = clBlack
  76.         Frame.DrawTop = False
  77.         Frame.DrawBottom = False
  78.         Frame.DrawLeft = False
  79.         Frame.DrawRight = False
  80.         Size.Values = (
  81.           44.979166666666670000
  82.           100.541666666666700000
  83.           0.000000000000000000
  84.           108.479166666666700000)
  85.         Alignment = taRightJustify
  86.         AlignToBand = False
  87.         AutoSize = False
  88.         AutoStretch = False
  89.         Color = clWhite
  90.         DataSet = RepQuery
  91.         DataField = 'PartNo'
  92.         Transparent = False
  93.         WordWrap = True
  94.         FontSize = 10
  95.       end
  96.       object QRDBText4: TQRDBText
  97.         Left = 86
  98.         Top = 0
  99.         Width = 66
  100.         Height = 17
  101.         Frame.Color = clBlack
  102.         Frame.DrawTop = False
  103.         Frame.DrawBottom = False
  104.         Frame.DrawLeft = False
  105.         Frame.DrawRight = False
  106.         Size.Values = (
  107.           44.979166666666670000
  108.           227.541666666666700000
  109.           0.000000000000000000
  110.           174.625000000000000000)
  111.         Alignment = taLeftJustify
  112.         AlignToBand = False
  113.         AutoSize = True
  114.         AutoStretch = False
  115.         Color = clWhite
  116.         DataSet = RepQuery
  117.         DataField = 'Description'
  118.         Transparent = False
  119.         WordWrap = True
  120.         FontSize = 10
  121.       end
  122.       object QRDBText5: TQRDBText
  123.         Left = 358
  124.         Top = 2
  125.         Width = 70
  126.         Height = 17
  127.         Frame.Color = clBlack
  128.         Frame.DrawTop = False
  129.         Frame.DrawBottom = False
  130.         Frame.DrawLeft = False
  131.         Frame.DrawRight = False
  132.         Size.Values = (
  133.           44.979166666666670000
  134.           947.208333333333300000
  135.           5.291666666666667000
  136.           185.208333333333300000)
  137.         Alignment = taRightJustify
  138.         AlignToBand = False
  139.         AutoSize = False
  140.         AutoStretch = False
  141.         Color = clWhite
  142.         DataSet = RepQuery
  143.         DataField = 'ListPrice'
  144.         Mask = '#0.00'
  145.         Transparent = False
  146.         WordWrap = True
  147.         FontSize = 10
  148.       end
  149.     end
  150.     object QRGroup1: TQRGroup
  151.       Left = 38
  152.       Top = 38
  153.       Width = 740
  154.       Height = 21
  155.       Frame.Color = clBlack
  156.       Frame.DrawTop = True
  157.       Frame.DrawBottom = False
  158.       Frame.DrawLeft = True
  159.       Frame.DrawRight = True
  160.       AlignToBottom = False
  161.       Color = clSilver
  162.       ForceNewColumn = False
  163.       ForceNewPage = False
  164.       Size.Values = (
  165.         55.562500000000000000
  166.         1957.916666666667000000)
  167.       Expression = 'Company'
  168.       FooterBand = QRBand1
  169.       Master = QuickRep
  170.       object QRDBText1: TQRDBText
  171.         Left = 4
  172.         Top = 4
  173.         Width = 61
  174.         Height = 17
  175.         Frame.Color = clBlack
  176.         Frame.DrawTop = False
  177.         Frame.DrawBottom = False
  178.         Frame.DrawLeft = False
  179.         Frame.DrawRight = False
  180.         Size.Values = (
  181.           44.979166666666670000
  182.           10.583333333333330000
  183.           10.583333333333330000
  184.           161.395833333333300000)
  185.         Alignment = taLeftJustify
  186.         AlignToBand = False
  187.         AutoSize = True
  188.         AutoStretch = False
  189.         Color = clWhite
  190.         DataSet = RepQuery
  191.         DataField = 'Company'
  192.         Font.Color = clWindowText
  193.         Font.Height = -13
  194.         Font.Name = 'Arial'
  195.         Font.Style = [fsBold]
  196.         ParentFont = False
  197.         Transparent = True
  198.         WordWrap = True
  199.         FontSize = 10
  200.       end
  201.     end
  202.     object QRGroup2: TQRGroup
  203.       Left = 38
  204.       Top = 59
  205.       Width = 740
  206.       Height = 38
  207.       Frame.Color = clBlack
  208.       Frame.DrawTop = False
  209.       Frame.DrawBottom = False
  210.       Frame.DrawLeft = True
  211.       Frame.DrawRight = True
  212.       AlignToBottom = False
  213.       Color = clWhite
  214.       ForceNewColumn = False
  215.       ForceNewPage = False
  216.       Size.Values = (
  217.         100.541666666666700000
  218.         1957.916666666667000000)
  219.       Expression = 'orderno'
  220.       FooterBand = QRBand2
  221.       Master = QuickRep
  222.       object QRExpr2: TQRExpr
  223.         Left = 28
  224.         Top = 2
  225.         Width = 137
  226.         Height = 17
  227.         Frame.Color = clBlack
  228.         Frame.DrawTop = False
  229.         Frame.DrawBottom = False
  230.         Frame.DrawLeft = False
  231.         Frame.DrawRight = False
  232.         Size.Values = (
  233.           44.979166666666670000
  234.           74.083333333333330000
  235.           5.291666666666667000
  236.           362.479166666666700000)
  237.         Alignment = taLeftJustify
  238.         AlignToBand = False
  239.         AutoSize = True
  240.         AutoStretch = False
  241.         Color = clWhite
  242.         ResetAfterPrint = False
  243.         Transparent = False
  244.         WordWrap = True
  245.         Expression = #39'Orderno : '#39'+str(orderno)'
  246.         FontSize = 10
  247.       end
  248.       object QRExpr3: TQRExpr
  249.         Left = 200
  250.         Top = 2
  251.         Width = 105
  252.         Height = 17
  253.         Frame.Color = clBlack
  254.         Frame.DrawTop = False
  255.         Frame.DrawBottom = False
  256.         Frame.DrawLeft = False
  257.         Frame.DrawRight = False
  258.         Size.Values = (
  259.           44.979166666666670000
  260.           529.166666666666700000
  261.           5.291666666666667000
  262.           277.812500000000000000)
  263.         Alignment = taLeftJustify
  264.         AlignToBand = False
  265.         AutoSize = True
  266.         AutoStretch = False
  267.         Color = clWhite
  268.         ResetAfterPrint = False
  269.         Transparent = False
  270.         WordWrap = True
  271.         Expression = #39'Date : '#39'+SaleDate'
  272.         FontSize = 10
  273.       end
  274.       object QRLabel1: TQRLabel
  275.         Left = 382
  276.         Top = 22
  277.         Width = 45
  278.         Height = 15
  279.         Frame.Color = clBlack
  280.         Frame.DrawTop = False
  281.         Frame.DrawBottom = False
  282.         Frame.DrawLeft = False
  283.         Frame.DrawRight = False
  284.         Size.Values = (
  285.           39.687500000000000000
  286.           1010.708333333333000000
  287.           58.208333333333330000
  288.           119.062500000000000000)
  289.         Alignment = taLeftJustify
  290.         AlignToBand = False
  291.         AutoSize = True
  292.         AutoStretch = False
  293.         Caption = 'List price'
  294.         Color = clWhite
  295.         Font.Color = clWindowText
  296.         Font.Height = -11
  297.         Font.Name = 'Arial'
  298.         Font.Style = []
  299.         ParentFont = False
  300.         Transparent = False
  301.         WordWrap = True
  302.         FontSize = 8
  303.       end
  304.       object QRLabel2: TQRLabel
  305.         Left = 46
  306.         Top = 20
  307.         Width = 32
  308.         Height = 15
  309.         Frame.Color = clBlack
  310.         Frame.DrawTop = False
  311.         Frame.DrawBottom = False
  312.         Frame.DrawLeft = False
  313.         Frame.DrawRight = False
  314.         Size.Values = (
  315.           39.687500000000000000
  316.           121.708333333333300000
  317.           52.916666666666670000
  318.           84.666666666666670000)
  319.         Alignment = taLeftJustify
  320.         AlignToBand = False
  321.         AutoSize = True
  322.         AutoStretch = False
  323.         Caption = 'Partno'
  324.         Color = clWhite
  325.         Font.Color = clWindowText
  326.         Font.Height = -11
  327.         Font.Name = 'Arial'
  328.         Font.Style = []
  329.         ParentFont = False
  330.         Transparent = False
  331.         WordWrap = True
  332.         FontSize = 8
  333.       end
  334.       object QRLabel3: TQRLabel
  335.         Left = 86
  336.         Top = 20
  337.         Width = 55
  338.         Height = 15
  339.         Frame.Color = clBlack
  340.         Frame.DrawTop = False
  341.         Frame.DrawBottom = False
  342.         Frame.DrawLeft = False
  343.         Frame.DrawRight = False
  344.         Size.Values = (
  345.           39.687500000000000000
  346.           227.541666666666700000
  347.           52.916666666666670000
  348.           145.520833333333300000)
  349.         Alignment = taLeftJustify
  350.         AlignToBand = False
  351.         AutoSize = True
  352.         AutoStretch = False
  353.         Caption = 'Description'
  354.         Color = clWhite
  355.         Font.Color = clWindowText
  356.         Font.Height = -11
  357.         Font.Name = 'Arial'
  358.         Font.Style = []
  359.         ParentFont = False
  360.         Transparent = False
  361.         WordWrap = True
  362.         FontSize = 8
  363.       end
  364.     end
  365.     object QRBand1: TQRBand
  366.       Left = 38
  367.       Top = 137
  368.       Width = 740
  369.       Height = 24
  370.       Frame.Color = clBlack
  371.       Frame.DrawTop = False
  372.       Frame.DrawBottom = True
  373.       Frame.DrawLeft = True
  374.       Frame.DrawRight = True
  375.       AlignToBottom = False
  376.       Color = clSilver
  377.       ForceNewColumn = False
  378.       ForceNewPage = False
  379.       Size.Values = (
  380.         63.500000000000000000
  381.         1957.916666666667000000)
  382.       BandType = rbGroupFooter
  383.       object QRExpr4: TQRExpr
  384.         Left = 358
  385.         Top = 2
  386.         Width = 71
  387.         Height = 17
  388.         Frame.Color = clBlack
  389.         Frame.DrawTop = False
  390.         Frame.DrawBottom = False
  391.         Frame.DrawLeft = False
  392.         Frame.DrawRight = False
  393.         Size.Values = (
  394.           44.979166666666670000
  395.           947.208333333333300000
  396.           5.291666666666667000
  397.           187.854166666666700000)
  398.         Alignment = taRightJustify
  399.         AlignToBand = False
  400.         AutoSize = False
  401.         AutoStretch = False
  402.         Color = clWhite
  403.         Master = QuickRep
  404.         ResetAfterPrint = True
  405.         Transparent = True
  406.         WordWrap = True
  407.         Expression = 'sum(listprice)'
  408.         Mask = '#0.00'
  409.         FontSize = 10
  410.       end
  411.       object QRLabel5: TQRLabel
  412.         Left = 238
  413.         Top = 2
  414.         Width = 112
  415.         Height = 17
  416.         Frame.Color = clBlack
  417.         Frame.DrawTop = False
  418.         Frame.DrawBottom = False
  419.         Frame.DrawLeft = False
  420.         Frame.DrawRight = False
  421.         Size.Values = (
  422.           44.979166666666670000
  423.           629.708333333333300000
  424.           5.291666666666667000
  425.           296.333333333333300000)
  426.         Alignment = taLeftJustify
  427.         AlignToBand = False
  428.         AutoSize = True
  429.         AutoStretch = False
  430.         Caption = 'Total this customer'
  431.         Color = clWhite
  432.         Transparent = True
  433.         WordWrap = True
  434.         FontSize = 10
  435.       end
  436.     end
  437.     object QRBand2: TQRBand
  438.       Left = 38
  439.       Top = 117
  440.       Width = 740
  441.       Height = 20
  442.       Frame.Color = clBlack
  443.       Frame.DrawTop = False
  444.       Frame.DrawBottom = False
  445.       Frame.DrawLeft = True
  446.       Frame.DrawRight = True
  447.       AlignToBottom = False
  448.       Color = 14671839
  449.       ForceNewColumn = False
  450.       ForceNewPage = False
  451.       Size.Values = (
  452.         52.916666666666670000
  453.         1957.916666666667000000)
  454.       BandType = rbGroupFooter
  455.       object QRExpr1: TQRExpr
  456.         Left = 358
  457.         Top = 0
  458.         Width = 70
  459.         Height = 17
  460.         Frame.Color = clBlack
  461.         Frame.DrawTop = False
  462.         Frame.DrawBottom = False
  463.         Frame.DrawLeft = False
  464.         Frame.DrawRight = False
  465.         Size.Values = (
  466.           44.979166666666670000
  467.           947.208333333333300000
  468.           0.000000000000000000
  469.           185.208333333333300000)
  470.         Alignment = taRightJustify
  471.         AlignToBand = False
  472.         AutoSize = False
  473.         AutoStretch = False
  474.         Color = clWhite
  475.         Master = QuickRep
  476.         ResetAfterPrint = True
  477.         Transparent = True
  478.         WordWrap = True
  479.         Expression = 'sum(listprice)'
  480.         Mask = '#0.00'
  481.         FontSize = 10
  482.       end
  483.       object QRLabel4: TQRLabel
  484.         Left = 262
  485.         Top = 2
  486.         Width = 87
  487.         Height = 17
  488.         Frame.Color = clBlack
  489.         Frame.DrawTop = False
  490.         Frame.DrawBottom = False
  491.         Frame.DrawLeft = False
  492.         Frame.DrawRight = False
  493.         Size.Values = (
  494.           44.979166666666670000
  495.           693.208333333333300000
  496.           5.291666666666667000
  497.           230.187500000000000000)
  498.         Alignment = taLeftJustify
  499.         AlignToBand = False
  500.         AutoSize = True
  501.         AutoStretch = False
  502.         Caption = 'Total this order'
  503.         Color = clWhite
  504.         Transparent = True
  505.         WordWrap = True
  506.         FontSize = 10
  507.       end
  508.     end
  509.     object ChildBand1: TQRChildBand
  510.       Left = 38
  511.       Top = 161
  512.       Width = 740
  513.       Height = 10
  514.       Frame.Color = clBlack
  515.       Frame.DrawTop = False
  516.       Frame.DrawBottom = False
  517.       Frame.DrawLeft = False
  518.       Frame.DrawRight = False
  519.       AlignToBottom = False
  520.       Color = clWhite
  521.       ForceNewColumn = False
  522.       ForceNewPage = False
  523.       Size.Values = (
  524.         26.458333333333330000
  525.         1957.916666666667000000)
  526.       ParentBand = QRBand1
  527.     end
  528.   end
  529.   object RepQuery: TQuery
  530.     Active = True
  531.     DatabaseName = 'DBDEMOS'
  532.     SQL.Strings = (
  533.       'select * from customer a, orders b, items c, parts d'
  534.       'where a.custno = b.custno'
  535.       '  and b.orderno = c.orderno'
  536.       '  and c.partno = d.partno'
  537.       'order by a.company, orderno')
  538.     Left = 18
  539.     Top = 10
  540.     object RepQueryCustNo: TFloatField
  541.       FieldName = 'CustNo'
  542.     end
  543.     object RepQueryCompany: TStringField
  544.       FieldName = 'Company'
  545.       Size = 30
  546.     end
  547.     object RepQueryAddr1: TStringField
  548.       FieldName = 'Addr1'
  549.       Size = 30
  550.     end
  551.     object RepQueryAddr2: TStringField
  552.       FieldName = 'Addr2'
  553.       Size = 30
  554.     end
  555.     object RepQueryCity: TStringField
  556.       FieldName = 'City'
  557.       Size = 15
  558.     end
  559.     object RepQueryState: TStringField
  560.       FieldName = 'State'
  561.     end
  562.     object RepQueryZip: TStringField
  563.       FieldName = 'Zip'
  564.       Size = 10
  565.     end
  566.     object RepQueryCountry: TStringField
  567.       FieldName = 'Country'
  568.     end
  569.     object RepQueryPhone: TStringField
  570.       FieldName = 'Phone'
  571.       Size = 15
  572.     end
  573.     object RepQueryFAX: TStringField
  574.       FieldName = 'FAX'
  575.       Size = 15
  576.     end
  577.     object RepQueryTaxRate: TFloatField
  578.       FieldName = 'TaxRate'
  579.     end
  580.     object RepQueryContact: TStringField
  581.       FieldName = 'Contact'
  582.     end
  583.     object RepQueryLastInvoiceDate: TDateTimeField
  584.       FieldName = 'LastInvoiceDate'
  585.     end
  586.     object RepQueryOrderNo: TFloatField
  587.       FieldName = 'OrderNo'
  588.     end
  589.     object RepQueryCustNo_1: TFloatField
  590.       FieldName = 'CustNo_1'
  591.     end
  592.     object RepQuerySaleDate: TDateTimeField
  593.       FieldName = 'SaleDate'
  594.     end
  595.     object RepQueryShipDate: TDateTimeField
  596.       FieldName = 'ShipDate'
  597.     end
  598.     object RepQueryEmpNo: TIntegerField
  599.       FieldName = 'EmpNo'
  600.     end
  601.     object RepQueryShipToContact: TStringField
  602.       FieldName = 'ShipToContact'
  603.     end
  604.     object RepQueryShipToAddr1: TStringField
  605.       FieldName = 'ShipToAddr1'
  606.       Size = 30
  607.     end
  608.     object RepQueryShipToAddr2: TStringField
  609.       FieldName = 'ShipToAddr2'
  610.       Size = 30
  611.     end
  612.     object RepQueryShipToCity: TStringField
  613.       FieldName = 'ShipToCity'
  614.       Size = 15
  615.     end
  616.     object RepQueryShipToState: TStringField
  617.       FieldName = 'ShipToState'
  618.     end
  619.     object RepQueryShipToZip: TStringField
  620.       FieldName = 'ShipToZip'
  621.       Size = 10
  622.     end
  623.     object RepQueryShipToCountry: TStringField
  624.       FieldName = 'ShipToCountry'
  625.     end
  626.     object RepQueryShipToPhone: TStringField
  627.       FieldName = 'ShipToPhone'
  628.       Size = 15
  629.     end
  630.     object RepQueryShipVIA: TStringField
  631.       FieldName = 'ShipVIA'
  632.       Size = 7
  633.     end
  634.     object RepQueryPO: TStringField
  635.       FieldName = 'PO'
  636.       Size = 15
  637.     end
  638.     object RepQueryTerms: TStringField
  639.       FieldName = 'Terms'
  640.       Size = 6
  641.     end
  642.     object RepQueryPaymentMethod: TStringField
  643.       FieldName = 'PaymentMethod'
  644.       Size = 7
  645.     end
  646.     object RepQueryItemsTotal: TCurrencyField
  647.       FieldName = 'ItemsTotal'
  648.       Currency = True
  649.     end
  650.     object RepQueryTaxRate_1: TFloatField
  651.       FieldName = 'TaxRate_1'
  652.     end
  653.     object RepQueryFreight: TCurrencyField
  654.       FieldName = 'Freight'
  655.       Currency = True
  656.     end
  657.     object RepQueryAmountPaid: TCurrencyField
  658.       FieldName = 'AmountPaid'
  659.       Currency = True
  660.     end
  661.     object RepQueryOrderNo_1: TFloatField
  662.       FieldName = 'OrderNo_1'
  663.     end
  664.     object RepQueryItemNo: TFloatField
  665.       FieldName = 'ItemNo'
  666.     end
  667.     object RepQueryPartNo: TFloatField
  668.       FieldName = 'PartNo'
  669.     end
  670.     object RepQueryQty: TIntegerField
  671.       FieldName = 'Qty'
  672.     end
  673.     object RepQueryDiscount: TFloatField
  674.       FieldName = 'Discount'
  675.     end
  676.     object RepQueryPartNo_1: TFloatField
  677.       FieldName = 'PartNo_1'
  678.     end
  679.     object RepQueryVendorNo: TFloatField
  680.       FieldName = 'VendorNo'
  681.     end
  682.     object RepQueryDescription: TStringField
  683.       FieldName = 'Description'
  684.       Size = 30
  685.     end
  686.     object RepQueryOnHand: TFloatField
  687.       FieldName = 'OnHand'
  688.     end
  689.     object RepQueryOnOrder: TFloatField
  690.       FieldName = 'OnOrder'
  691.     end
  692.     object RepQueryCost: TCurrencyField
  693.       FieldName = 'Cost'
  694.       Currency = True
  695.     end
  696.     object RepQueryListPrice: TCurrencyField
  697.       FieldName = 'ListPrice'
  698.       Currency = True
  699.     end
  700.   end
  701. end
  702.