UnitReportProd.dfm
上传用户:zexin0769
上传日期:2010-01-19
资源大小:443k
文件大小:17k
源码类别:

百货/超市行业

开发平台:

Delphi

  1. object DbReportProd: TDbReportProd
  2.   Left = 8
  3.   Top = 299
  4.   BorderStyle = bsDialog
  5.   Caption = #21830#21697#25253#34920
  6.   ClientHeight = 212
  7.   ClientWidth = 783
  8.   Color = clBtnFace
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   OldCreateOrder = False
  15.   Scaled = False
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object QuickRep1: TQuickRep
  19.     Left = -8
  20.     Top = 0
  21.     Width = 794
  22.     Height = 1123
  23.     Frame.Color = clBlack
  24.     Frame.DrawTop = False
  25.     Frame.DrawBottom = False
  26.     Frame.DrawLeft = False
  27.     Frame.DrawRight = False
  28.     DataSet = ADOQuery1
  29.     Font.Charset = DEFAULT_CHARSET
  30.     Font.Color = clWindowText
  31.     Font.Height = -13
  32.     Font.Name = 'Arial'
  33.     Font.Style = []
  34.     Functions.Strings = (
  35.       'PAGENUMBER'
  36.       'COLUMNNUMBER'
  37.       'REPORTTITLE')
  38.     Functions.DATA = (
  39.       '0'
  40.       '0'
  41.       #39#39)
  42.     Options = [FirstPageHeader, LastPageFooter]
  43.     Page.Columns = 1
  44.     Page.Orientation = poPortrait
  45.     Page.PaperSize = A4
  46.     Page.Values = (
  47.       100.000000000000000000
  48.       2970.000000000000000000
  49.       100.000000000000000000
  50.       2100.000000000000000000
  51.       100.000000000000000000
  52.       100.000000000000000000
  53.       0.000000000000000000)
  54.     PrinterSettings.Copies = 1
  55.     PrinterSettings.Duplex = False
  56.     PrinterSettings.FirstPage = 0
  57.     PrinterSettings.LastPage = 0
  58.     PrinterSettings.OutputBin = Auto
  59.     PrintIfEmpty = True
  60.     SnapToGrid = True
  61.     Units = MM
  62.     Zoom = 100
  63.     object QRBand1: TQRBand
  64.       Left = 38
  65.       Top = 38
  66.       Width = 718
  67.       Height = 60
  68.       Frame.Color = clBlack
  69.       Frame.DrawTop = False
  70.       Frame.DrawBottom = False
  71.       Frame.DrawLeft = False
  72.       Frame.DrawRight = False
  73.       AlignToBottom = False
  74.       Color = clWhite
  75.       ForceNewColumn = False
  76.       ForceNewPage = False
  77.       Size.Values = (
  78.         158.750000000000000000
  79.         1899.708333333333000000)
  80.       BandType = rbTitle
  81.       object QRLabel8: TQRLabel
  82.         Left = 224
  83.         Top = 4
  84.         Width = 262
  85.         Height = 33
  86.         Frame.Color = clBlack
  87.         Frame.DrawTop = False
  88.         Frame.DrawBottom = False
  89.         Frame.DrawLeft = False
  90.         Frame.DrawRight = False
  91.         Size.Values = (
  92.           87.312500000000000000
  93.           592.666666666666700000
  94.           10.583333333333330000
  95.           693.208333333333400000)
  96.         Alignment = taLeftJustify
  97.         AlignToBand = False
  98.         AutoSize = True
  99.         AutoStretch = False
  100.         Caption = #19996#20043#28304#36229#24066#21830#21697#25253#34920
  101.         Color = clWhite
  102.         Font.Charset = DEFAULT_CHARSET
  103.         Font.Color = clWindowText
  104.         Font.Height = -27
  105.         Font.Name = 'Arial'
  106.         Font.Style = [fsBold]
  107.         ParentFont = False
  108.         Transparent = False
  109.         WordWrap = True
  110.         FontSize = 20
  111.       end
  112.     end
  113.     object QRBand2: TQRBand
  114.       Left = 38
  115.       Top = 98
  116.       Width = 718
  117.       Height = 80
  118.       Frame.Color = clBlack
  119.       Frame.DrawTop = False
  120.       Frame.DrawBottom = False
  121.       Frame.DrawLeft = False
  122.       Frame.DrawRight = False
  123.       AlignToBottom = False
  124.       Color = clWhite
  125.       ForceNewColumn = False
  126.       ForceNewPage = False
  127.       Size.Values = (
  128.         211.666666666666700000
  129.         1899.708333333333000000)
  130.       BandType = rbColumnHeader
  131.       object QRLabel1: TQRLabel
  132.         Left = 8
  133.         Top = 56
  134.         Width = 33
  135.         Height = 17
  136.         Frame.Color = clBlack
  137.         Frame.DrawTop = False
  138.         Frame.DrawBottom = False
  139.         Frame.DrawLeft = False
  140.         Frame.DrawRight = False
  141.         Size.Values = (
  142.           44.979166666666670000
  143.           21.166666666666670000
  144.           148.166666666666700000
  145.           87.312500000000000000)
  146.         Alignment = taLeftJustify
  147.         AlignToBand = False
  148.         AutoSize = True
  149.         AutoStretch = False
  150.         Caption = #32534#21495
  151.         Color = clWhite
  152.         Transparent = False
  153.         WordWrap = True
  154.         FontSize = 10
  155.       end
  156.       object QRLabel2: TQRLabel
  157.         Left = 73
  158.         Top = 56
  159.         Width = 65
  160.         Height = 17
  161.         Frame.Color = clBlack
  162.         Frame.DrawTop = False
  163.         Frame.DrawBottom = False
  164.         Frame.DrawLeft = False
  165.         Frame.DrawRight = False
  166.         Size.Values = (
  167.           44.979166666666670000
  168.           193.145833333333300000
  169.           148.166666666666700000
  170.           171.979166666666700000)
  171.         Alignment = taLeftJustify
  172.         AlignToBand = False
  173.         AutoSize = True
  174.         AutoStretch = False
  175.         Caption = #21830#21697#21517#31216
  176.         Color = clWhite
  177.         Transparent = False
  178.         WordWrap = True
  179.         FontSize = 10
  180.       end
  181.       object QRLabel3: TQRLabel
  182.         Left = 240
  183.         Top = 56
  184.         Width = 33
  185.         Height = 17
  186.         Frame.Color = clBlack
  187.         Frame.DrawTop = False
  188.         Frame.DrawBottom = False
  189.         Frame.DrawLeft = False
  190.         Frame.DrawRight = False
  191.         Size.Values = (
  192.           44.979166666666670000
  193.           635.000000000000000000
  194.           148.166666666666700000
  195.           87.312500000000000000)
  196.         Alignment = taLeftJustify
  197.         AlignToBand = False
  198.         AutoSize = True
  199.         AutoStretch = False
  200.         Caption = #21333#20215
  201.         Color = clWhite
  202.         Transparent = False
  203.         WordWrap = True
  204.         FontSize = 10
  205.       end
  206.       object QRLabel4: TQRLabel
  207.         Left = 342
  208.         Top = 56
  209.         Width = 33
  210.         Height = 17
  211.         Frame.Color = clBlack
  212.         Frame.DrawTop = False
  213.         Frame.DrawBottom = False
  214.         Frame.DrawLeft = False
  215.         Frame.DrawRight = False
  216.         Size.Values = (
  217.           44.979166666666670000
  218.           904.875000000000000000
  219.           148.166666666666700000
  220.           87.312500000000000000)
  221.         Alignment = taLeftJustify
  222.         AlignToBand = False
  223.         AutoSize = True
  224.         AutoStretch = False
  225.         Caption = #21333#20301
  226.         Color = clWhite
  227.         Transparent = False
  228.         WordWrap = True
  229.         FontSize = 10
  230.       end
  231.       object QRLabel5: TQRLabel
  232.         Left = 428
  233.         Top = 56
  234.         Width = 33
  235.         Height = 17
  236.         Frame.Color = clBlack
  237.         Frame.DrawTop = False
  238.         Frame.DrawBottom = False
  239.         Frame.DrawLeft = False
  240.         Frame.DrawRight = False
  241.         Size.Values = (
  242.           44.979166666666670000
  243.           1132.416666666667000000
  244.           148.166666666666700000
  245.           87.312500000000000000)
  246.         Alignment = taLeftJustify
  247.         AlignToBand = False
  248.         AutoSize = True
  249.         AutoStretch = False
  250.         Caption = #24211#23384
  251.         Color = clWhite
  252.         Transparent = False
  253.         WordWrap = True
  254.         FontSize = 10
  255.       end
  256.       object QRLabel6: TQRLabel
  257.         Left = 508
  258.         Top = 56
  259.         Width = 33
  260.         Height = 17
  261.         Frame.Color = clBlack
  262.         Frame.DrawTop = False
  263.         Frame.DrawBottom = False
  264.         Frame.DrawLeft = False
  265.         Frame.DrawRight = False
  266.         Size.Values = (
  267.           44.979166666666670000
  268.           1344.083333333333000000
  269.           148.166666666666700000
  270.           87.312500000000000000)
  271.         Alignment = taLeftJustify
  272.         AlignToBand = False
  273.         AutoSize = True
  274.         AutoStretch = False
  275.         Caption = #38144#37327
  276.         Color = clWhite
  277.         Transparent = False
  278.         WordWrap = True
  279.         FontSize = 10
  280.       end
  281.       object QRLabel7: TQRLabel
  282.         Left = 588
  283.         Top = 56
  284.         Width = 65
  285.         Height = 17
  286.         Frame.Color = clBlack
  287.         Frame.DrawTop = False
  288.         Frame.DrawBottom = False
  289.         Frame.DrawLeft = False
  290.         Frame.DrawRight = False
  291.         Size.Values = (
  292.           44.979166666666670000
  293.           1555.750000000000000000
  294.           148.166666666666700000
  295.           171.979166666666700000)
  296.         Alignment = taLeftJustify
  297.         AlignToBand = False
  298.         AutoSize = True
  299.         AutoStretch = False
  300.         Caption = #36135#20215#32534#21495
  301.         Color = clWhite
  302.         Transparent = False
  303.         WordWrap = True
  304.         FontSize = 10
  305.       end
  306.       object QRLabel9: TQRLabel
  307.         Left = 479
  308.         Top = 6
  309.         Width = 145
  310.         Height = 17
  311.         Frame.Color = clBlack
  312.         Frame.DrawTop = False
  313.         Frame.DrawBottom = False
  314.         Frame.DrawLeft = False
  315.         Frame.DrawRight = False
  316.         Size.Values = (
  317.           44.979166666666670000
  318.           1267.354166666667000000
  319.           15.875000000000000000
  320.           383.645833333333400000)
  321.         Alignment = taLeftJustify
  322.         AlignToBand = False
  323.         AutoSize = True
  324.         AutoStretch = False
  325.         Caption = #35760#24405#24635#25968#65306#12288#12288#12288#26465
  326.         Color = clWhite
  327.         Transparent = False
  328.         WordWrap = True
  329.         FontSize = 10
  330.       end
  331.       object QRLabel10: TQRLabel
  332.         Left = 631
  333.         Top = 6
  334.         Width = 49
  335.         Height = 17
  336.         Frame.Color = clBlack
  337.         Frame.DrawTop = False
  338.         Frame.DrawBottom = False
  339.         Frame.DrawLeft = False
  340.         Frame.DrawRight = False
  341.         Size.Values = (
  342.           44.979166666666670000
  343.           1669.520833333333000000
  344.           15.875000000000000000
  345.           129.645833333333300000)
  346.         Alignment = taLeftJustify
  347.         AlignToBand = False
  348.         AutoSize = True
  349.         AutoStretch = False
  350.         Caption = #31532#12288#39029
  351.         Color = clWhite
  352.         Transparent = False
  353.         WordWrap = True
  354.         FontSize = 10
  355.       end
  356.       object QRSysData1: TQRSysData
  357.         Left = 554
  358.         Top = 5
  359.         Width = 78
  360.         Height = 17
  361.         Frame.Color = clBlack
  362.         Frame.DrawTop = False
  363.         Frame.DrawBottom = False
  364.         Frame.DrawLeft = False
  365.         Frame.DrawRight = False
  366.         Size.Values = (
  367.           44.979166666666670000
  368.           1465.791666666667000000
  369.           13.229166666666670000
  370.           206.375000000000000000)
  371.         Alignment = taLeftJustify
  372.         AlignToBand = False
  373.         AutoSize = True
  374.         Color = clWhite
  375.         Data = qrsDetailCount
  376.         Transparent = False
  377.         FontSize = 10
  378.       end
  379.       object QRSysData2: TQRSysData
  380.         Left = 649
  381.         Top = 5
  382.         Width = 46
  383.         Height = 17
  384.         Frame.Color = clBlack
  385.         Frame.DrawTop = False
  386.         Frame.DrawBottom = False
  387.         Frame.DrawLeft = False
  388.         Frame.DrawRight = False
  389.         Size.Values = (
  390.           44.979166666666670000
  391.           1717.145833333333000000
  392.           13.229166666666670000
  393.           121.708333333333400000)
  394.         Alignment = taLeftJustify
  395.         AlignToBand = False
  396.         AutoSize = True
  397.         Color = clWhite
  398.         Data = qrsPageNumber
  399.         Transparent = False
  400.         FontSize = 10
  401.       end
  402.     end
  403.     object QRBand3: TQRBand
  404.       Left = 38
  405.       Top = 178
  406.       Width = 718
  407.       Height = 20
  408.       Frame.Color = clBlack
  409.       Frame.DrawTop = False
  410.       Frame.DrawBottom = False
  411.       Frame.DrawLeft = False
  412.       Frame.DrawRight = False
  413.       AlignToBottom = False
  414.       Color = clWhite
  415.       ForceNewColumn = False
  416.       ForceNewPage = False
  417.       Size.Values = (
  418.         52.916666666666660000
  419.         1899.708333333333000000)
  420.       BandType = rbDetail
  421.       object QRDBText1: TQRDBText
  422.         Left = 8
  423.         Top = 2
  424.         Width = 43
  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.979166666666670000
  433.           21.166666666666670000
  434.           5.291666666666667000
  435.           113.770833333333300000)
  436.         Alignment = taLeftJustify
  437.         AlignToBand = False
  438.         AutoSize = True
  439.         AutoStretch = False
  440.         Color = clWhite
  441.         DataSet = ADOQuery1
  442.         DataField = 'prod_id'
  443.         Transparent = False
  444.         WordWrap = True
  445.         FontSize = 10
  446.       end
  447.       object QRDBText2: TQRDBText
  448.         Left = 72
  449.         Top = 2
  450.         Width = 65
  451.         Height = 17
  452.         Frame.Color = clBlack
  453.         Frame.DrawTop = False
  454.         Frame.DrawBottom = False
  455.         Frame.DrawLeft = False
  456.         Frame.DrawRight = False
  457.         Size.Values = (
  458.           44.979166666666670000
  459.           190.500000000000000000
  460.           5.291666666666667000
  461.           171.979166666666700000)
  462.         Alignment = taLeftJustify
  463.         AlignToBand = False
  464.         AutoSize = True
  465.         AutoStretch = False
  466.         Color = clWhite
  467.         DataSet = ADOQuery1
  468.         DataField = 'prod_name'
  469.         Transparent = False
  470.         WordWrap = True
  471.         FontSize = 10
  472.       end
  473.       object QRDBText3: TQRDBText
  474.         Left = 240
  475.         Top = 2
  476.         Width = 61
  477.         Height = 17
  478.         Frame.Color = clBlack
  479.         Frame.DrawTop = False
  480.         Frame.DrawBottom = False
  481.         Frame.DrawLeft = False
  482.         Frame.DrawRight = False
  483.         Size.Values = (
  484.           44.979166666666670000
  485.           635.000000000000000000
  486.           5.291666666666667000
  487.           161.395833333333300000)
  488.         Alignment = taLeftJustify
  489.         AlignToBand = False
  490.         AutoSize = True
  491.         AutoStretch = False
  492.         Color = clWhite
  493.         DataSet = ADOQuery1
  494.         DataField = 'prod_price'
  495.         Transparent = False
  496.         WordWrap = True
  497.         FontSize = 10
  498.       end
  499.       object QRDBText4: TQRDBText
  500.         Left = 509
  501.         Top = 2
  502.         Width = 57
  503.         Height = 17
  504.         Frame.Color = clBlack
  505.         Frame.DrawTop = False
  506.         Frame.DrawBottom = False
  507.         Frame.DrawLeft = False
  508.         Frame.DrawRight = False
  509.         Size.Values = (
  510.           44.979166666666670000
  511.           1346.729166666667000000
  512.           5.291666666666667000
  513.           150.812500000000000000)
  514.         Alignment = taLeftJustify
  515.         AlignToBand = False
  516.         AutoSize = True
  517.         AutoStretch = False
  518.         Color = clWhite
  519.         DataSet = ADOQuery1
  520.         DataField = 'prod_sale'
  521.         Transparent = False
  522.         WordWrap = True
  523.         FontSize = 10
  524.       end
  525.       object QRDBText5: TQRDBText
  526.         Left = 589
  527.         Top = 2
  528.         Width = 60
  529.         Height = 17
  530.         Frame.Color = clBlack
  531.         Frame.DrawTop = False
  532.         Frame.DrawBottom = False
  533.         Frame.DrawLeft = False
  534.         Frame.DrawRight = False
  535.         Size.Values = (
  536.           44.979166666666670000
  537.           1558.395833333333000000
  538.           5.291666666666667000
  539.           158.750000000000000000)
  540.         Alignment = taLeftJustify
  541.         AlignToBand = False
  542.         AutoSize = True
  543.         AutoStretch = False
  544.         Color = clWhite
  545.         DataSet = ADOQuery1
  546.         DataField = 'prod_shelf'
  547.         Transparent = False
  548.         WordWrap = True
  549.         FontSize = 10
  550.       end
  551.       object QRDBText6: TQRDBText
  552.         Left = 429
  553.         Top = 2
  554.         Width = 65
  555.         Height = 17
  556.         Frame.Color = clBlack
  557.         Frame.DrawTop = False
  558.         Frame.DrawBottom = False
  559.         Frame.DrawLeft = False
  560.         Frame.DrawRight = False
  561.         Size.Values = (
  562.           44.979166666666670000
  563.           1135.062500000000000000
  564.           5.291666666666667000
  565.           171.979166666666700000)
  566.         Alignment = taLeftJustify
  567.         AlignToBand = False
  568.         AutoSize = True
  569.         AutoStretch = False
  570.         Color = clWhite
  571.         DataSet = ADOQuery1
  572.         DataField = 'prod_stock'
  573.         Transparent = False
  574.         WordWrap = True
  575.         FontSize = 10
  576.       end
  577.       object QRDBText7: TQRDBText
  578.         Left = 341
  579.         Top = 2
  580.         Width = 54
  581.         Height = 17
  582.         Frame.Color = clBlack
  583.         Frame.DrawTop = False
  584.         Frame.DrawBottom = False
  585.         Frame.DrawLeft = False
  586.         Frame.DrawRight = False
  587.         Size.Values = (
  588.           44.979166666666670000
  589.           902.229166666666700000
  590.           5.291666666666667000
  591.           142.875000000000000000)
  592.         Alignment = taLeftJustify
  593.         AlignToBand = False
  594.         AutoSize = True
  595.         AutoStretch = False
  596.         Color = clWhite
  597.         DataSet = ADOQuery1
  598.         DataField = 'prod_unit'
  599.         Transparent = False
  600.         WordWrap = True
  601.         FontSize = 10
  602.       end
  603.     end
  604.   end
  605.   object ADOQuery1: TADOQuery
  606.     ConnectionString = 
  607.       'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:DelphiProdatad' +
  608.       'zyv1.mdb;Persist Security Info=False'
  609.     CursorType = ctStatic
  610.     Parameters = <>
  611.     SQL.Strings = (
  612.       'select * from t_prod')
  613.     Left = 112
  614.     Top = 48
  615.   end
  616. end