home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 August / VPR9708A.ISO / D3TRIAL / INSTALL / DATA.Z / MANYGRP.DFM / MANYGRP.txt
Text File  |  1997-05-13  |  15KB  |  574 lines
  1. object ManyGrpForm: TManyGrpForm
  2.   Left = 114
  3.   Top = 39
  4.   Width = 770
  5.   Height = 657
  6.   Caption = 'ManyGrpForm'
  7.   Font.Color = clWindowText
  8.   Font.Height = -13
  9.   Font.Style = []
  10.   Scaled = False
  11.   PixelsPerInch = 120
  12.   TextHeight = 22
  13.   object QuickRep: TQuickRep
  14.     Left = 12
  15.     Top = 14
  16.     Width = 992
  17.     Height = 1403
  18.     Frame.Color = clBlack
  19.     Frame.DrawTop = False
  20.     Frame.DrawBottom = False
  21.     Frame.DrawLeft = False
  22.     Frame.DrawRight = False
  23.     DataSet = RepQuery
  24.     Description.Strings = (
  25.       
  26.         'This report shows how to create a master/detail report from a TQ' +
  27.         'uery component and use multiple TQRGroups in the same report')
  28.     Font.Color = clWindowText
  29.     Font.Height = -13
  30.     Font.Style = []
  31.     Options = [FirstPageHeader, LastPageFooter]
  32.     Page.Columns = 1
  33.     Page.Orientation = poPortrait
  34.     Page.PaperSize = A4
  35.     Page.Values = (
  36.       100
  37.       2970
  38.       100
  39.       2100
  40.       100
  41.       100
  42.       0)
  43.     PrintIfEmpty = False
  44.     PrinterSettings.Copies = 1
  45.     PrinterSettings.Duplex = False
  46.     PrinterSettings.FirstPage = 0
  47.     PrinterSettings.LastPage = 0
  48.     PrinterSettings.OutputBin = First
  49.     SnapToGrid = True
  50.     Units = MM
  51.     Zoom = 100
  52.     object DetailBand1: TQRBand
  53.       Left = 47
  54.       Top = 121
  55.       Width = 898
  56.       Height = 25
  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.900000000000000000
  68.         1900.766666666670000000)
  69.       BandType = rbDetail
  70.       object QRDBText3: TQRDBText
  71.         Left = 47
  72.         Top = 0
  73.         Width = 51
  74.         Height = 21
  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.979166666666700000
  82.           100.541666666667000000
  83.           0
  84.           108.479166666667000000)
  85.         Alignment = taRightJustify
  86.         AlignToBand = False
  87.         AutoSize = False
  88.         AutoStretch = False
  89.         Color = clWhite
  90.         DataSet = RepQuery
  91.         DataField = 'PartNo'
  92.         Font.Color = clWindowText
  93.         Font.Height = -17
  94.         Font.Style = []
  95.         ParentFont = False
  96.         Transparent = False
  97.         WordWrap = True
  98.         FontSize = 10
  99.       end
  100.       object QRDBText4: TQRDBText
  101.         Left = 108
  102.         Top = 0
  103.         Width = 84
  104.         Height = 18
  105.         Frame.Color = clBlack
  106.         Frame.DrawTop = False
  107.         Frame.DrawBottom = False
  108.         Frame.DrawLeft = False
  109.         Frame.DrawRight = False
  110.         Size.Values = (
  111.           38.100000000000000000
  112.           228.600000000000000000
  113.           0
  114.           177.800000000000000000)
  115.         Alignment = taLeftJustify
  116.         AlignToBand = False
  117.         AutoSize = True
  118.         AutoStretch = False
  119.         Color = clWhite
  120.         DataSet = RepQuery
  121.         DataField = 'Description'
  122.         Font.Color = clWindowText
  123.         Font.Height = -17
  124.         Font.Style = []
  125.         ParentFont = False
  126.         Transparent = False
  127.         WordWrap = True
  128.         FontSize = 10
  129.       end
  130.       object QRDBText5: TQRDBText
  131.         Left = 448
  132.         Top = 2
  133.         Width = 88
  134.         Height = 21
  135.         Frame.Color = clBlack
  136.         Frame.DrawTop = False
  137.         Frame.DrawBottom = False
  138.         Frame.DrawLeft = False
  139.         Frame.DrawRight = False
  140.         Size.Values = (
  141.           44.979166666666700000
  142.           947.208333333333000000
  143.           5.291666666666670000
  144.           185.208333333333000000)
  145.         Alignment = taRightJustify
  146.         AlignToBand = False
  147.         AutoSize = False
  148.         AutoStretch = False
  149.         Color = clWhite
  150.         DataSet = RepQuery
  151.         DataField = 'ListPrice'
  152.         Font.Color = clWindowText
  153.         Font.Height = -17
  154.         Font.Style = []
  155.         Mask = '#0.00'
  156.         ParentFont = False
  157.         Transparent = False
  158.         WordWrap = True
  159.         FontSize = 10
  160.       end
  161.     end
  162.     object QRBand1: TQRBand
  163.       Left = 47
  164.       Top = 171
  165.       Width = 898
  166.       Height = 30
  167.       Frame.Color = clBlack
  168.       Frame.DrawTop = False
  169.       Frame.DrawBottom = True
  170.       Frame.DrawLeft = True
  171.       Frame.DrawRight = True
  172.       AlignToBottom = False
  173.       Color = clSilver
  174.       ForceNewColumn = False
  175.       ForceNewPage = False
  176.       Size.Values = (
  177.         63.500000000000000000
  178.         1900.766666666670000000)
  179.       BandType = rbGroupFooter
  180.       object QRExpr4: TQRExpr
  181.         Left = 448
  182.         Top = 2
  183.         Width = 89
  184.         Height = 21
  185.         Frame.Color = clBlack
  186.         Frame.DrawTop = False
  187.         Frame.DrawBottom = False
  188.         Frame.DrawLeft = False
  189.         Frame.DrawRight = False
  190.         Size.Values = (
  191.           44.979166666666700000
  192.           947.208333333333000000
  193.           5.291666666666670000
  194.           187.854166666667000000)
  195.         Alignment = taRightJustify
  196.         AlignToBand = False
  197.         AutoSize = False
  198.         AutoStretch = False
  199.         Font.Color = clWindowText
  200.         Font.Height = -17
  201.         Font.Style = []
  202.         Color = clWhite
  203.         Master = QuickRep
  204.         ParentFont = False
  205.         ResetAfterPrint = True
  206.         Transparent = True
  207.         WordWrap = True
  208.         Expression = 'sum(listprice)'
  209.         Mask = '#0.00'
  210.         FontSize = 10
  211.       end
  212.       object QRLabel5: TQRLabel
  213.         Left = 298
  214.         Top = 2
  215.         Width = 143
  216.         Height = 18
  217.         Frame.Color = clBlack
  218.         Frame.DrawTop = False
  219.         Frame.DrawBottom = False
  220.         Frame.DrawLeft = False
  221.         Frame.DrawRight = False
  222.         Size.Values = (
  223.           38.100000000000000000
  224.           630.766666666667000000
  225.           4.233333333333330000
  226.           302.683333333333000000)
  227.         Alignment = taLeftJustify
  228.         AlignToBand = False
  229.         AutoSize = True
  230.         AutoStretch = False
  231.         Caption = 'Total this customer'
  232.         Color = clWhite
  233.         Font.Color = clWindowText
  234.         Font.Height = -17
  235.         Font.Style = []
  236.         ParentFont = False
  237.         Transparent = True
  238.         WordWrap = True
  239.         FontSize = 10
  240.       end
  241.     end
  242.     object QRBand2: TQRBand
  243.       Left = 47
  244.       Top = 146
  245.       Width = 898
  246.       Height = 25
  247.       Frame.Color = clBlack
  248.       Frame.DrawTop = False
  249.       Frame.DrawBottom = False
  250.       Frame.DrawLeft = True
  251.       Frame.DrawRight = True
  252.       AlignToBottom = False
  253.       Color = 14671839
  254.       ForceNewColumn = False
  255.       ForceNewPage = False
  256.       Size.Values = (
  257.         52.916666666666700000
  258.         1900.766666666670000000)
  259.       BandType = rbGroupFooter
  260.       object QRExpr1: TQRExpr
  261.         Left = 448
  262.         Top = 0
  263.         Width = 88
  264.         Height = 21
  265.         Frame.Color = clBlack
  266.         Frame.DrawTop = False
  267.         Frame.DrawBottom = False
  268.         Frame.DrawLeft = False
  269.         Frame.DrawRight = False
  270.         Size.Values = (
  271.           44.979166666666700000
  272.           947.208333333333000000
  273.           0
  274.           185.208333333333000000)
  275.         Alignment = taRightJustify
  276.         AlignToBand = False
  277.         AutoSize = False
  278.         AutoStretch = False
  279.         Font.Color = clWindowText
  280.         Font.Height = -17
  281.         Font.Style = []
  282.         Color = clWhite
  283.         Master = QuickRep
  284.         ParentFont = False
  285.         ResetAfterPrint = True
  286.         Transparent = True
  287.         WordWrap = True
  288.         Expression = 'sum(listprice)'
  289.         Mask = '#0.00'
  290.         FontSize = 10
  291.       end
  292.       object QRLabel4: TQRLabel
  293.         Left = 328
  294.         Top = 2
  295.         Width = 113
  296.         Height = 18
  297.         Frame.Color = clBlack
  298.         Frame.DrawTop = False
  299.         Frame.DrawBottom = False
  300.         Frame.DrawLeft = False
  301.         Frame.DrawRight = False
  302.         Size.Values = (
  303.           38.100000000000000000
  304.           694.266666666667000000
  305.           4.233333333333330000
  306.           239.183333333333000000)
  307.         Alignment = taLeftJustify
  308.         AlignToBand = False
  309.         AutoSize = True
  310.         AutoStretch = False
  311.         Caption = 'Total this order'
  312.         Color = clWhite
  313.         Font.Color = clWindowText
  314.         Font.Height = -17
  315.         Font.Style = []
  316.         ParentFont = False
  317.         Transparent = True
  318.         WordWrap = True
  319.         FontSize = 10
  320.       end
  321.     end
  322.     object ChildBand1: TQRChildBand
  323.       Left = 47
  324.       Top = 201
  325.       Width = 898
  326.       Height = 12
  327.       Frame.Color = clBlack
  328.       Frame.DrawTop = False
  329.       Frame.DrawBottom = False
  330.       Frame.DrawLeft = False
  331.       Frame.DrawRight = False
  332.       AlignToBottom = False
  333.       Color = clWhite
  334.       ForceNewColumn = False
  335.       ForceNewPage = False
  336.       Size.Values = (
  337.         25.400000000000000000
  338.         1900.766666666670000000)
  339.       ParentBand = QRBand1
  340.     end
  341.     object QRGroup1: TQRGroup
  342.       Left = 47
  343.       Top = 47
  344.       Width = 898
  345.       Height = 26
  346.       Frame.Color = clBlack
  347.       Frame.DrawTop = True
  348.       Frame.DrawBottom = False
  349.       Frame.DrawLeft = True
  350.       Frame.DrawRight = True
  351.       AlignToBottom = False
  352.       Color = clSilver
  353.       ForceNewColumn = False
  354.       ForceNewPage = False
  355.       Size.Values = (
  356.         55.033333333333300000
  357.         1900.766666666670000000)
  358.       Expression = 'Company'
  359.       FooterBand = QRBand1
  360.       Master = QuickRep
  361.       object QRDBText1: TQRDBText
  362.         Left = 5
  363.         Top = 5
  364.         Width = 74
  365.         Height = 18
  366.         Frame.Color = clBlack
  367.         Frame.DrawTop = False
  368.         Frame.DrawBottom = False
  369.         Frame.DrawLeft = False
  370.         Frame.DrawRight = False
  371.         Size.Values = (
  372.           38.100000000000000000
  373.           10.583333333333300000
  374.           10.583333333333300000
  375.           156.633333333333000000)
  376.         Alignment = taLeftJustify
  377.         AlignToBand = False
  378.         AutoSize = True
  379.         AutoStretch = False
  380.         Color = clWhite
  381.         DataSet = RepQuery
  382.         DataField = 'Company'
  383.         Font.Color = clWindowText
  384.         Font.Height = -17
  385.         Font.Style = [fsBold]
  386.         ParentFont = False
  387.         Transparent = True
  388.         WordWrap = True
  389.         FontSize = 10
  390.       end
  391.     end
  392.     object QRGroup2: TQRGroup
  393.       Left = 47
  394.       Top = 73
  395.       Width = 898
  396.       Height = 48
  397.       Frame.Color = clBlack
  398.       Frame.DrawTop = False
  399.       Frame.DrawBottom = False
  400.       Frame.DrawLeft = True
  401.       Frame.DrawRight = True
  402.       AlignToBottom = False
  403.       Color = clWhite
  404.       ForceNewColumn = False
  405.       ForceNewPage = False
  406.       Size.Values = (
  407.         101.600000000000000000
  408.         1900.766666666670000000)
  409.       Expression = 'orderno'
  410.       FooterBand = QRBand2
  411.       Master = QuickRep
  412.       object QRExpr2: TQRExpr
  413.         Left = 35
  414.         Top = 2
  415.         Width = 174
  416.         Height = 18
  417.         Frame.Color = clBlack
  418.         Frame.DrawTop = False
  419.         Frame.DrawBottom = False
  420.         Frame.DrawLeft = False
  421.         Frame.DrawRight = False
  422.         Size.Values = (
  423.           38.100000000000000000
  424.           74.083333333333300000
  425.           4.233333333333330000
  426.           368.300000000000000000)
  427.         Alignment = taLeftJustify
  428.         AlignToBand = False
  429.         AutoSize = True
  430.         AutoStretch = False
  431.         Font.Color = clWindowText
  432.         Font.Height = -17
  433.         Font.Style = []
  434.         Color = clWhite
  435.         ParentFont = False
  436.         ResetAfterPrint = False
  437.         Transparent = False
  438.         WordWrap = True
  439.         Expression = #39'Orderno : '#39'+str(orderno)'
  440.         FontSize = 10
  441.       end
  442.       object QRExpr3: TQRExpr
  443.         Left = 250
  444.         Top = 2
  445.         Width = 128
  446.         Height = 18
  447.         Frame.Color = clBlack
  448.         Frame.DrawTop = False
  449.         Frame.DrawBottom = False
  450.         Frame.DrawLeft = False
  451.         Frame.DrawRight = False
  452.         Size.Values = (
  453.           38.100000000000000000
  454.           529.166666666667000000
  455.           4.233333333333330000
  456.           270.933333333333000000)
  457.         Alignment = taLeftJustify
  458.         AlignToBand = False
  459.         AutoSize = True
  460.         AutoStretch = False
  461.         Font.Color = clWindowText
  462.         Font.Height = -17
  463.         Font.Style = []
  464.         Color = clWhite
  465.         ParentFont = False
  466.         ResetAfterPrint = False
  467.         Transparent = False
  468.         WordWrap = True
  469.         Expression = #39'Date : '#39'+SaleDate'
  470.         FontSize = 10
  471.       end
  472.       object QRLabel1: TQRLabel
  473.         Left = 478
  474.         Top = 28
  475.         Width = 54
  476.         Height = 14
  477.         Frame.Color = clBlack
  478.         Frame.DrawTop = False
  479.         Frame.DrawBottom = False
  480.         Frame.DrawLeft = False
  481.         Frame.DrawRight = False
  482.         Size.Values = (
  483.           29.633333333333300000
  484.           1011.766666666670000000
  485.           59.266666666666700000
  486.           114.300000000000000000)
  487.         Alignment = taLeftJustify
  488.         AlignToBand = False
  489.         AutoSize = True
  490.         AutoStretch = False
  491.         Caption = 'List price'
  492.         Color = clWhite
  493.         Font.Color = clWindowText
  494.         Font.Height = -13
  495.         Font.Style = []
  496.         ParentFont = False
  497.         Transparent = False
  498.         WordWrap = True
  499.         FontSize = 8
  500.       end
  501.       object QRLabel2: TQRLabel
  502.         Left = 58
  503.         Top = 25
  504.         Width = 39
  505.         Height = 14
  506.         Frame.Color = clBlack
  507.         Frame.DrawTop = False
  508.         Frame.DrawBottom = False
  509.         Frame.DrawLeft = False
  510.         Frame.DrawRight = False
  511.         Size.Values = (
  512.           29.633333333333300000
  513.           122.766666666667000000
  514.           52.916666666666700000
  515.           82.550000000000000000)
  516.         Alignment = taLeftJustify
  517.         AlignToBand = False
  518.         AutoSize = True
  519.         AutoStretch = False
  520.         Caption = 'Partno'
  521.         Color = clWhite
  522.         Font.Color = clWindowText
  523.         Font.Height = -13
  524.         Font.Style = []
  525.         ParentFont = False
  526.         Transparent = False
  527.         WordWrap = True
  528.         FontSize = 8
  529.       end
  530.       object QRLabel3: TQRLabel
  531.         Left = 108
  532.         Top = 25
  533.         Width = 65
  534.         Height = 14
  535.         Frame.Color = clBlack
  536.         Frame.DrawTop = False
  537.         Frame.DrawBottom = False
  538.         Frame.DrawLeft = False
  539.         Frame.DrawRight = False
  540.         Size.Values = (
  541.           29.633333333333300000
  542.           228.600000000000000000
  543.           52.916666666666700000
  544.           137.583333333333000000)
  545.         Alignment = taLeftJustify
  546.         AlignToBand = False
  547.         AutoSize = True
  548.         AutoStretch = False
  549.         Caption = 'Description'
  550.         Color = clWhite
  551.         Font.Color = clWindowText
  552.         Font.Height = -13
  553.         Font.Style = []
  554.         ParentFont = False
  555.         Transparent = False
  556.         WordWrap = True
  557.         FontSize = 8
  558.       end
  559.     end
  560.   end
  561.   object RepQuery: TQuery
  562.     Active = True
  563.     DatabaseName = 'DBDEMOS'
  564.     SQL.Strings = (
  565.       'select * from customer a, orders b, items c, parts d'
  566.       'where a.custno = b.custno'
  567.       '  and b.orderno = c.orderno'
  568.       '  and c.partno = d.partno'
  569.       'order by a.company, orderno')
  570.     Left = 18
  571.     Top = 10
  572.   end
  573. end
  574.