home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / Runimage / Delphi50 / Demos / Quickrpt / Qr3 / grouping.dfm / grouping.txt
Encoding:
Text File  |  1999-08-11  |  19.6 KB  |  757 lines
  1. object frmGrouping: TfrmGrouping
  2.   Left = 192
  3.   Top = 107
  4.   Width = 774
  5.   Height = 480
  6.   Caption = 'frmGrouping'
  7.   Color = clBtnFace
  8.   Font.Charset = DEFAULT_CHARSET
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OldCreateOrder = False
  14.   Scaled = False
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object QuickRep1: TQuickRep
  18.     Left = 0
  19.     Top = 0
  20.     Width = 816
  21.     Height = 1056
  22.     Frame.Color = clBlack
  23.     Frame.DrawTop = False
  24.     Frame.DrawBottom = False
  25.     Frame.DrawLeft = False
  26.     Frame.DrawRight = False
  27.     DataSet = MasterQry
  28.     Description.Strings = (
  29.       
  30.         'This report uses  two queries to demonstrate how to handle subto' +
  31.         'tals and group breaks.'
  32.       ''
  33.       
  34.         'Most grouping and totaling tasks can be accomplished without cod' +
  35.         'ing.  This report does not have any code, everything is set by t' +
  36.         'he component properties.')
  37.     Font.Charset = DEFAULT_CHARSET
  38.     Font.Color = clWindowText
  39.     Font.Height = -13
  40.     Font.Name = 'Arial'
  41.     Font.Style = []
  42.     Functions.Strings = (
  43.       'PAGENUMBER'
  44.       'COLUMNNUMBER'
  45.       'REPORTTITLE')
  46.     Functions.DATA = (
  47.       '0'
  48.       '0'
  49.       #39#39)
  50.     Options = [FirstPageHeader, LastPageFooter]
  51.     Page.Columns = 1
  52.     Page.Orientation = poPortrait
  53.     Page.PaperSize = Letter
  54.     Page.Values = (
  55.       127.000000000000000000
  56.       2794.000000000000000000
  57.       127.000000000000000000
  58.       2159.000000000000000000
  59.       127.000000000000000000
  60.       127.000000000000000000
  61.       0.000000000000000000)
  62.     PrinterSettings.Copies = 1
  63.     PrinterSettings.Duplex = False
  64.     PrinterSettings.FirstPage = 0
  65.     PrinterSettings.LastPage = 0
  66.     PrinterSettings.OutputBin = Auto
  67.     PrintIfEmpty = True
  68.     ReportTitle = 'Grouping with SubTotals'
  69.     SnapToGrid = True
  70.     Units = Inches
  71.     Zoom = 100
  72.     object DetailBand1: TQRBand
  73.       Left = 48
  74.       Top = 138
  75.       Width = 720
  76.       Height = 17
  77.       Frame.Color = clBlack
  78.       Frame.DrawTop = False
  79.       Frame.DrawBottom = False
  80.       Frame.DrawLeft = False
  81.       Frame.DrawRight = False
  82.       AlignToBottom = False
  83.       Color = clWhite
  84.       ForceNewColumn = False
  85.       ForceNewPage = False
  86.       Size.Values = (
  87.         44.979166666666650000
  88.         1905.000000000000000000)
  89.       BandType = rbDetail
  90.       object QRDBText2: TQRDBText
  91.         Left = 80
  92.         Top = 0
  93.         Width = 44
  94.         Height = 17
  95.         Frame.Color = clBlack
  96.         Frame.DrawTop = False
  97.         Frame.DrawBottom = False
  98.         Frame.DrawLeft = False
  99.         Frame.DrawRight = False
  100.         Size.Values = (
  101.           44.979166666666650000
  102.           211.666666666666600000
  103.           0.000000000000000000
  104.           116.416666666666700000)
  105.         Alignment = taLeftJustify
  106.         AlignToBand = False
  107.         AutoSize = True
  108.         AutoStretch = False
  109.         Color = clWhite
  110.         DataSet = MasterQry
  111.         DataField = 'orderno'
  112.         Transparent = False
  113.         WordWrap = True
  114.         FontSize = 10
  115.       end
  116.     end
  117.     object QRGroup1: TQRGroup
  118.       Left = 48
  119.       Top = 112
  120.       Width = 720
  121.       Height = 26
  122.       Frame.Color = clBlack
  123.       Frame.DrawTop = False
  124.       Frame.DrawBottom = False
  125.       Frame.DrawLeft = False
  126.       Frame.DrawRight = False
  127.       AlignToBottom = False
  128.       Color = clWhite
  129.       ForceNewColumn = False
  130.       ForceNewPage = False
  131.       Size.Values = (
  132.         68.791666666666670000
  133.         1905.000000000000000000)
  134.       Expression = 'MasterQry.custno'
  135.       FooterBand = QRBand2
  136.       Master = QuickRep1
  137.       ReprintOnNewPage = True
  138.       object QRDBText4: TQRDBText
  139.         Left = 0
  140.         Top = 8
  141.         Width = 54
  142.         Height = 17
  143.         Frame.Color = clBlack
  144.         Frame.DrawTop = False
  145.         Frame.DrawBottom = False
  146.         Frame.DrawLeft = False
  147.         Frame.DrawRight = False
  148.         Size.Values = (
  149.           44.979166666666650000
  150.           0.000000000000000000
  151.           21.166666666666670000
  152.           142.875000000000000000)
  153.         Alignment = taLeftJustify
  154.         AlignToBand = False
  155.         AutoSize = True
  156.         AutoStretch = False
  157.         Color = clWhite
  158.         DataSet = MasterQry
  159.         DataField = 'company'
  160.         Transparent = False
  161.         WordWrap = True
  162.         FontSize = 10
  163.       end
  164.     end
  165.     object QRSubDetail1: TQRSubDetail
  166.       Left = 48
  167.       Top = 155
  168.       Width = 720
  169.       Height = 17
  170.       Frame.Color = clBlack
  171.       Frame.DrawTop = False
  172.       Frame.DrawBottom = False
  173.       Frame.DrawLeft = False
  174.       Frame.DrawRight = False
  175.       AlignToBottom = False
  176.       Color = clWhite
  177.       ForceNewColumn = False
  178.       ForceNewPage = False
  179.       Size.Values = (
  180.         44.979166666666650000
  181.         1905.000000000000000000)
  182.       Master = QuickRep1
  183.       DataSet = DetailQry
  184.       FooterBand = QRBand1
  185.       PrintBefore = False
  186.       PrintIfEmpty = True
  187.       object QRDBText1: TQRDBText
  188.         Left = 136
  189.         Top = 0
  190.         Width = 42
  191.         Height = 17
  192.         Frame.Color = clBlack
  193.         Frame.DrawTop = False
  194.         Frame.DrawBottom = False
  195.         Frame.DrawLeft = False
  196.         Frame.DrawRight = False
  197.         Size.Values = (
  198.           44.979166666666650000
  199.           359.833333333333300000
  200.           0.000000000000000000
  201.           111.125000000000000000)
  202.         Alignment = taLeftJustify
  203.         AlignToBand = False
  204.         AutoSize = True
  205.         AutoStretch = False
  206.         Color = clWhite
  207.         DataSet = DetailQry
  208.         DataField = 'ItemNo'
  209.         Transparent = False
  210.         WordWrap = True
  211.         FontSize = 10
  212.       end
  213.       object QRDBText5: TQRDBText
  214.         Left = 184
  215.         Top = 0
  216.         Width = 49
  217.         Height = 17
  218.         Frame.Color = clBlack
  219.         Frame.DrawTop = False
  220.         Frame.DrawBottom = False
  221.         Frame.DrawLeft = False
  222.         Frame.DrawRight = False
  223.         Size.Values = (
  224.           44.979166666666650000
  225.           486.833333333333300000
  226.           0.000000000000000000
  227.           129.645833333333300000)
  228.         Alignment = taRightJustify
  229.         AlignToBand = False
  230.         AutoSize = False
  231.         AutoStretch = False
  232.         Color = clWhite
  233.         DataSet = DetailQry
  234.         DataField = 'Qty'
  235.         Transparent = False
  236.         WordWrap = True
  237.         FontSize = 10
  238.       end
  239.     end
  240.     object QRBand1: TQRBand
  241.       Left = 48
  242.       Top = 172
  243.       Width = 720
  244.       Height = 17
  245.       Frame.Color = clBlack
  246.       Frame.DrawTop = False
  247.       Frame.DrawBottom = False
  248.       Frame.DrawLeft = False
  249.       Frame.DrawRight = False
  250.       AlignToBottom = False
  251.       Color = clWhite
  252.       ForceNewColumn = False
  253.       ForceNewPage = False
  254.       Size.Values = (
  255.         44.979166666666650000
  256.         1905.000000000000000000)
  257.       BandType = rbGroupFooter
  258.       object QRExpr1: TQRExpr
  259.         Left = 232
  260.         Top = 0
  261.         Width = 117
  262.         Height = 17
  263.         Frame.Color = clBlack
  264.         Frame.DrawTop = False
  265.         Frame.DrawBottom = False
  266.         Frame.DrawLeft = False
  267.         Frame.DrawRight = False
  268.         Size.Values = (
  269.           44.979166666666650000
  270.           613.833333333333400000
  271.           0.000000000000000000
  272.           309.562500000000000000)
  273.         Alignment = taRightJustify
  274.         AlignToBand = False
  275.         AutoSize = False
  276.         AutoStretch = False
  277.         Font.Charset = DEFAULT_CHARSET
  278.         Font.Color = clBlue
  279.         Font.Height = -13
  280.         Font.Name = 'Arial'
  281.         Font.Style = []
  282.         Color = clWhite
  283.         Master = QRSubDetail1
  284.         ParentFont = False
  285.         ResetAfterPrint = True
  286.         Transparent = False
  287.         WordWrap = True
  288.         Expression = 'SUM(DetailQry.Qty)'
  289.         FontSize = 10
  290.       end
  291.     end
  292.     object QRBand2: TQRBand
  293.       Left = 48
  294.       Top = 189
  295.       Width = 720
  296.       Height = 18
  297.       Frame.Color = clBlack
  298.       Frame.DrawTop = False
  299.       Frame.DrawBottom = False
  300.       Frame.DrawLeft = False
  301.       Frame.DrawRight = False
  302.       AlignToBottom = False
  303.       Color = clWhite
  304.       ForceNewColumn = False
  305.       ForceNewPage = False
  306.       Size.Values = (
  307.         47.625000000000000000
  308.         1905.000000000000000000)
  309.       BandType = rbGroupFooter
  310.       object QRExpr2: TQRExpr
  311.         Left = 376
  312.         Top = 0
  313.         Width = 117
  314.         Height = 17
  315.         Frame.Color = clBlack
  316.         Frame.DrawTop = False
  317.         Frame.DrawBottom = False
  318.         Frame.DrawLeft = False
  319.         Frame.DrawRight = False
  320.         Size.Values = (
  321.           44.979166666666650000
  322.           994.833333333333400000
  323.           0.000000000000000000
  324.           309.562500000000000000)
  325.         Alignment = taRightJustify
  326.         AlignToBand = False
  327.         AutoSize = False
  328.         AutoStretch = False
  329.         Font.Charset = DEFAULT_CHARSET
  330.         Font.Color = clGreen
  331.         Font.Height = -13
  332.         Font.Name = 'Arial'
  333.         Font.Style = []
  334.         Color = clWhite
  335.         Master = QRSubDetail1
  336.         ParentFont = False
  337.         ResetAfterPrint = True
  338.         Transparent = False
  339.         WordWrap = True
  340.         Expression = 'SUM(DetailQry.Qty)'
  341.         FontSize = 10
  342.       end
  343.     end
  344.     object SummaryBand1: TQRBand
  345.       Left = 48
  346.       Top = 207
  347.       Width = 720
  348.       Height = 19
  349.       Frame.Color = clBlack
  350.       Frame.DrawTop = False
  351.       Frame.DrawBottom = False
  352.       Frame.DrawLeft = False
  353.       Frame.DrawRight = False
  354.       AlignToBottom = False
  355.       Color = clWhite
  356.       ForceNewColumn = False
  357.       ForceNewPage = False
  358.       Size.Values = (
  359.         50.270833333333340000
  360.         1905.000000000000000000)
  361.       BandType = rbSummary
  362.       object QRExpr3: TQRExpr
  363.         Left = 488
  364.         Top = 0
  365.         Width = 117
  366.         Height = 17
  367.         Frame.Color = clBlack
  368.         Frame.DrawTop = False
  369.         Frame.DrawBottom = False
  370.         Frame.DrawLeft = False
  371.         Frame.DrawRight = False
  372.         Size.Values = (
  373.           44.979166666666650000
  374.           1291.166666666667000000
  375.           0.000000000000000000
  376.           309.562500000000000000)
  377.         Alignment = taRightJustify
  378.         AlignToBand = False
  379.         AutoSize = False
  380.         AutoStretch = False
  381.         Font.Charset = DEFAULT_CHARSET
  382.         Font.Color = clNavy
  383.         Font.Height = -13
  384.         Font.Name = 'Arial'
  385.         Font.Style = []
  386.         Color = clWhite
  387.         Master = QRSubDetail1
  388.         ParentFont = False
  389.         ResetAfterPrint = True
  390.         Transparent = False
  391.         WordWrap = True
  392.         Expression = 'SUM(DetailQry.Qty)'
  393.         FontSize = 10
  394.       end
  395.     end
  396.     object ColumnHeaderBand1: TQRBand
  397.       Left = 48
  398.       Top = 88
  399.       Width = 720
  400.       Height = 24
  401.       Frame.Color = clBlack
  402.       Frame.DrawTop = False
  403.       Frame.DrawBottom = True
  404.       Frame.DrawLeft = False
  405.       Frame.DrawRight = False
  406.       Frame.Width = 2
  407.       AlignToBottom = False
  408.       Color = clWhite
  409.       Font.Charset = DEFAULT_CHARSET
  410.       Font.Color = clWindowText
  411.       Font.Height = -13
  412.       Font.Name = 'Arial'
  413.       Font.Style = [fsBold, fsItalic]
  414.       ForceNewColumn = False
  415.       ForceNewPage = False
  416.       ParentFont = False
  417.       Size.Values = (
  418.         63.500000000000000000
  419.         1905.000000000000000000)
  420.       BandType = rbColumnHeader
  421.       object QRLabel1: TQRLabel
  422.         Left = 0
  423.         Top = 0
  424.         Width = 60
  425.         Height = 17
  426.         Frame.Color = clBlack
  427.         Frame.DrawTop = False
  428.         Frame.DrawBottom = False
  429.         Frame.DrawLeft = False
  430.         Frame.DrawRight = False
  431.         Size.Values = (
  432.           44.979166666666650000
  433.           0.000000000000000000
  434.           0.000000000000000000
  435.           158.750000000000000000)
  436.         Alignment = taLeftJustify
  437.         AlignToBand = False
  438.         AutoSize = True
  439.         AutoStretch = False
  440.         Caption = 'Company'
  441.         Color = clWhite
  442.         Transparent = False
  443.         WordWrap = True
  444.         FontSize = 10
  445.       end
  446.       object QRLabel2: TQRLabel
  447.         Left = 80
  448.         Top = 0
  449.         Width = 43
  450.         Height = 17
  451.         Frame.Color = clBlack
  452.         Frame.DrawTop = False
  453.         Frame.DrawBottom = False
  454.         Frame.DrawLeft = False
  455.         Frame.DrawRight = False
  456.         Size.Values = (
  457.           44.979166666666650000
  458.           211.666666666666600000
  459.           0.000000000000000000
  460.           113.770833333333300000)
  461.         Alignment = taLeftJustify
  462.         AlignToBand = False
  463.         AutoSize = True
  464.         AutoStretch = False
  465.         Caption = 'Order#'
  466.         Color = clWhite
  467.         Transparent = False
  468.         WordWrap = True
  469.         FontSize = 10
  470.       end
  471.       object QRLabel4: TQRLabel
  472.         Left = 136
  473.         Top = 0
  474.         Width = 34
  475.         Height = 17
  476.         Frame.Color = clBlack
  477.         Frame.DrawTop = False
  478.         Frame.DrawBottom = False
  479.         Frame.DrawLeft = False
  480.         Frame.DrawRight = False
  481.         Size.Values = (
  482.           44.979166666666650000
  483.           359.833333333333300000
  484.           0.000000000000000000
  485.           89.958333333333320000)
  486.         Alignment = taLeftJustify
  487.         AlignToBand = False
  488.         AutoSize = True
  489.         AutoStretch = False
  490.         Caption = 'Item#'
  491.         Color = clWhite
  492.         Transparent = False
  493.         WordWrap = True
  494.         FontSize = 10
  495.       end
  496.       object QRLabel5: TQRLabel
  497.         Left = 184
  498.         Top = 0
  499.         Width = 52
  500.         Height = 17
  501.         Frame.Color = clBlack
  502.         Frame.DrawTop = False
  503.         Frame.DrawBottom = False
  504.         Frame.DrawLeft = False
  505.         Frame.DrawRight = False
  506.         Size.Values = (
  507.           44.979166666666650000
  508.           486.833333333333300000
  509.           0.000000000000000000
  510.           137.583333333333300000)
  511.         Alignment = taLeftJustify
  512.         AlignToBand = False
  513.         AutoSize = True
  514.         AutoStretch = False
  515.         Caption = 'Item Qty'
  516.         Color = clWhite
  517.         Transparent = False
  518.         WordWrap = True
  519.         FontSize = 10
  520.       end
  521.       object QRLabel6: TQRLabel
  522.         Left = 256
  523.         Top = 0
  524.         Width = 96
  525.         Height = 17
  526.         Frame.Color = clBlack
  527.         Frame.DrawTop = False
  528.         Frame.DrawBottom = False
  529.         Frame.DrawLeft = False
  530.         Frame.DrawRight = False
  531.         Size.Values = (
  532.           44.979166666666650000
  533.           677.333333333333400000
  534.           0.000000000000000000
  535.           254.000000000000000000)
  536.         Alignment = taLeftJustify
  537.         AlignToBand = False
  538.         AutoSize = True
  539.         AutoStretch = False
  540.         Caption = 'Total Qty/Order'
  541.         Color = clWhite
  542.         Font.Charset = DEFAULT_CHARSET
  543.         Font.Color = clBlue
  544.         Font.Height = -13
  545.         Font.Name = 'Arial'
  546.         Font.Style = [fsBold, fsItalic]
  547.         ParentFont = False
  548.         Transparent = False
  549.         WordWrap = True
  550.         FontSize = 10
  551.       end
  552.       object QRLabel7: TQRLabel
  553.         Left = 376
  554.         Top = 0
  555.         Width = 120
  556.         Height = 17
  557.         Frame.Color = clBlack
  558.         Frame.DrawTop = False
  559.         Frame.DrawBottom = False
  560.         Frame.DrawLeft = False
  561.         Frame.DrawRight = False
  562.         Size.Values = (
  563.           44.979166666666650000
  564.           994.833333333333400000
  565.           0.000000000000000000
  566.           317.500000000000000000)
  567.         Alignment = taLeftJustify
  568.         AlignToBand = False
  569.         AutoSize = True
  570.         AutoStretch = False
  571.         Caption = 'Total Qty/Customer'
  572.         Color = clWhite
  573.         Font.Charset = DEFAULT_CHARSET
  574.         Font.Color = clGreen
  575.         Font.Height = -13
  576.         Font.Name = 'Arial'
  577.         Font.Style = [fsBold, fsItalic]
  578.         ParentFont = False
  579.         Transparent = False
  580.         WordWrap = True
  581.         FontSize = 10
  582.       end
  583.       object QRLabel8: TQRLabel
  584.         Left = 520
  585.         Top = 0
  586.         Width = 79
  587.         Height = 17
  588.         Frame.Color = clBlack
  589.         Frame.DrawTop = False
  590.         Frame.DrawBottom = False
  591.         Frame.DrawLeft = False
  592.         Frame.DrawRight = False
  593.         Size.Values = (
  594.           44.979166666666650000
  595.           1375.833333333333000000
  596.           0.000000000000000000
  597.           209.020833333333300000)
  598.         Alignment = taLeftJustify
  599.         AlignToBand = False
  600.         AutoSize = True
  601.         AutoStretch = False
  602.         Caption = 'Total Qty/All'
  603.         Color = clWhite
  604.         Font.Charset = DEFAULT_CHARSET
  605.         Font.Color = clNavy
  606.         Font.Height = -13
  607.         Font.Name = 'Arial'
  608.         Font.Style = [fsBold, fsItalic]
  609.         ParentFont = False
  610.         Transparent = False
  611.         WordWrap = True
  612.         FontSize = 10
  613.       end
  614.     end
  615.     object PageHeaderBand1: TQRBand
  616.       Left = 48
  617.       Top = 48
  618.       Width = 720
  619.       Height = 40
  620.       Frame.Color = clBlack
  621.       Frame.DrawTop = False
  622.       Frame.DrawBottom = False
  623.       Frame.DrawLeft = False
  624.       Frame.DrawRight = False
  625.       AlignToBottom = False
  626.       Color = clWhite
  627.       Font.Charset = DEFAULT_CHARSET
  628.       Font.Color = clWindowText
  629.       Font.Height = -27
  630.       Font.Name = 'Arial'
  631.       Font.Style = []
  632.       ForceNewColumn = False
  633.       ForceNewPage = False
  634.       ParentFont = False
  635.       Size.Values = (
  636.         105.833333333333300000
  637.         1905.000000000000000000)
  638.       BandType = rbPageHeader
  639.       object QRSysData1: TQRSysData
  640.         Left = 211
  641.         Top = 0
  642.         Width = 298
  643.         Height = 33
  644.         Frame.Color = clBlack
  645.         Frame.DrawTop = False
  646.         Frame.DrawBottom = False
  647.         Frame.DrawLeft = False
  648.         Frame.DrawRight = False
  649.         Size.Values = (
  650.           87.312500000000000000
  651.           558.270833333333400000
  652.           0.000000000000000000
  653.           788.458333333333400000)
  654.         Alignment = taCenter
  655.         AlignToBand = True
  656.         AutoSize = True
  657.         Color = clWhite
  658.         Data = qrsReportTitle
  659.         Transparent = False
  660.         FontSize = 20
  661.       end
  662.       object QRSysData2: TQRSysData
  663.         Left = 0
  664.         Top = 0
  665.         Width = 42
  666.         Height = 25
  667.         Frame.Color = clBlack
  668.         Frame.DrawTop = False
  669.         Frame.DrawBottom = False
  670.         Frame.DrawLeft = False
  671.         Frame.DrawRight = False
  672.         Size.Values = (
  673.           66.145833333333330000
  674.           0.000000000000000000
  675.           0.000000000000000000
  676.           111.125000000000000000)
  677.         Alignment = taLeftJustify
  678.         AlignToBand = False
  679.         AutoSize = True
  680.         Color = clWhite
  681.         Data = qrsPageNumber
  682.         Font.Charset = DEFAULT_CHARSET
  683.         Font.Color = clWindowText
  684.         Font.Height = -13
  685.         Font.Name = 'Arial'
  686.         Font.Style = []
  687.         ParentFont = False
  688.         Text = 'Page '
  689.         Transparent = False
  690.         FontSize = 10
  691.       end
  692.     end
  693.   end
  694.   object MasterQry: TQuery
  695.     Active = True
  696.     DatabaseName = 'DBDEMOS'
  697.     SQL.Strings = (
  698.       'select c.company, o.orderno, o.custno, o.ItemsTotal'
  699.       'from orders o join customer c on o.custno=c.custno'
  700.       'where c.company LIKE '#39'A%'#39
  701.       'order by c.company, o.orderno')
  702.     Left = 8
  703.     object MasterQrycompany: TStringField
  704.       FieldName = 'company'
  705.       Origin = '"CUSTOMER.DB".Company'
  706.       Size = 30
  707.     end
  708.     object MasterQryorderno: TFloatField
  709.       FieldName = 'orderno'
  710.       Origin = '"ORDERS.DB".OrderNo'
  711.     end
  712.     object MasterQrycustno: TFloatField
  713.       FieldName = 'custno'
  714.       Origin = '"ORDERS.DB".CustNo'
  715.     end
  716.     object MasterQryItemsTotal: TCurrencyField
  717.       FieldName = 'ItemsTotal'
  718.       Origin = '"ORDERS.DB".ItemsTotal'
  719.     end
  720.   end
  721.   object DataSource1: TDataSource
  722.     DataSet = MasterQry
  723.     Left = 8
  724.     Top = 32
  725.   end
  726.   object DetailQry: TQuery
  727.     Active = True
  728.     DatabaseName = 'DBDEMOS'
  729.     DataSource = DataSource1
  730.     SQL.Strings = (
  731.       'SELECT OrderNo, Qty, ItemNo'
  732.       'FROM ITEMS I'
  733.       'WHERE (i.OrderNo = :OrderNo)'
  734.       'ORDER BY OrderNo, ItemNo')
  735.     Left = 8
  736.     Top = 64
  737.     ParamData = <
  738.       item
  739.         DataType = ftFloat
  740.         Name = 'orderno'
  741.         ParamType = ptUnknown
  742.       end>
  743.     object DetailQryOrderNo: TFloatField
  744.       FieldName = 'OrderNo'
  745.       Origin = '"ITEMS.DB".OrderNo'
  746.     end
  747.     object DetailQryQty: TIntegerField
  748.       FieldName = 'Qty'
  749.       Origin = '"ITEMS.DB".Qty'
  750.     end
  751.     object DetailQryItemNo: TFloatField
  752.       FieldName = 'ItemNo'
  753.       Origin = '"ITEMS.DB".ItemNo'
  754.     end
  755.   end
  756. end
  757.