UnitReportProd.dfm
资源名称:东之源.rar [点击查看]
上传用户:zexin0769
上传日期:2010-01-19
资源大小:443k
文件大小:17k
源码类别:
百货/超市行业
开发平台:
Delphi
- object DbReportProd: TDbReportProd
- Left = 8
- Top = 299
- BorderStyle = bsDialog
- Caption = #21830#21697#25253#34920
- ClientHeight = 212
- ClientWidth = 783
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Scaled = False
- PixelsPerInch = 96
- TextHeight = 13
- object QuickRep1: TQuickRep
- Left = -8
- Top = 0
- Width = 794
- Height = 1123
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- DataSet = ADOQuery1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- Functions.Strings = (
- 'PAGENUMBER'
- 'COLUMNNUMBER'
- 'REPORTTITLE')
- Functions.DATA = (
- '0'
- '0'
- #39#39)
- Options = [FirstPageHeader, LastPageFooter]
- Page.Columns = 1
- Page.Orientation = poPortrait
- Page.PaperSize = A4
- Page.Values = (
- 100.000000000000000000
- 2970.000000000000000000
- 100.000000000000000000
- 2100.000000000000000000
- 100.000000000000000000
- 100.000000000000000000
- 0.000000000000000000)
- PrinterSettings.Copies = 1
- PrinterSettings.Duplex = False
- PrinterSettings.FirstPage = 0
- PrinterSettings.LastPage = 0
- PrinterSettings.OutputBin = Auto
- PrintIfEmpty = True
- SnapToGrid = True
- Units = MM
- Zoom = 100
- object QRBand1: TQRBand
- Left = 38
- Top = 38
- Width = 718
- Height = 60
- 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 = (
- 158.750000000000000000
- 1899.708333333333000000)
- BandType = rbTitle
- object QRLabel8: TQRLabel
- Left = 224
- Top = 4
- Width = 262
- Height = 33
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 87.312500000000000000
- 592.666666666666700000
- 10.583333333333330000
- 693.208333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #19996#20043#28304#36229#24066#21830#21697#25253#34920
- Color = clWhite
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -27
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = False
- WordWrap = True
- FontSize = 20
- end
- end
- object QRBand2: TQRBand
- Left = 38
- Top = 98
- Width = 718
- Height = 80
- 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 = (
- 211.666666666666700000
- 1899.708333333333000000)
- BandType = rbColumnHeader
- object QRLabel1: TQRLabel
- Left = 8
- Top = 56
- Width = 33
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 21.166666666666670000
- 148.166666666666700000
- 87.312500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #32534#21495
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel2: TQRLabel
- Left = 73
- Top = 56
- Width = 65
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 193.145833333333300000
- 148.166666666666700000
- 171.979166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #21830#21697#21517#31216
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel3: TQRLabel
- Left = 240
- Top = 56
- Width = 33
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 635.000000000000000000
- 148.166666666666700000
- 87.312500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #21333#20215
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel4: TQRLabel
- Left = 342
- Top = 56
- Width = 33
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 904.875000000000000000
- 148.166666666666700000
- 87.312500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #21333#20301
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel5: TQRLabel
- Left = 428
- Top = 56
- Width = 33
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1132.416666666667000000
- 148.166666666666700000
- 87.312500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #24211#23384
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel6: TQRLabel
- Left = 508
- Top = 56
- Width = 33
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1344.083333333333000000
- 148.166666666666700000
- 87.312500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #38144#37327
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel7: TQRLabel
- Left = 588
- Top = 56
- Width = 65
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1555.750000000000000000
- 148.166666666666700000
- 171.979166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #36135#20215#32534#21495
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel9: TQRLabel
- Left = 479
- Top = 6
- Width = 145
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1267.354166666667000000
- 15.875000000000000000
- 383.645833333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #35760#24405#24635#25968#65306#12288#12288#12288#26465
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRLabel10: TQRLabel
- Left = 631
- Top = 6
- Width = 49
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1669.520833333333000000
- 15.875000000000000000
- 129.645833333333300000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Caption = #31532#12288#39029
- Color = clWhite
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRSysData1: TQRSysData
- Left = 554
- Top = 5
- Width = 78
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1465.791666666667000000
- 13.229166666666670000
- 206.375000000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- Color = clWhite
- Data = qrsDetailCount
- Transparent = False
- FontSize = 10
- end
- object QRSysData2: TQRSysData
- Left = 649
- Top = 5
- Width = 46
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1717.145833333333000000
- 13.229166666666670000
- 121.708333333333400000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- Color = clWhite
- Data = qrsPageNumber
- Transparent = False
- FontSize = 10
- end
- end
- object QRBand3: TQRBand
- Left = 38
- Top = 178
- Width = 718
- Height = 20
- 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 = (
- 52.916666666666660000
- 1899.708333333333000000)
- BandType = rbDetail
- object QRDBText1: TQRDBText
- Left = 8
- Top = 2
- Width = 43
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 21.166666666666670000
- 5.291666666666667000
- 113.770833333333300000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_id'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText2: TQRDBText
- Left = 72
- Top = 2
- Width = 65
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 190.500000000000000000
- 5.291666666666667000
- 171.979166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_name'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText3: TQRDBText
- Left = 240
- Top = 2
- Width = 61
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 635.000000000000000000
- 5.291666666666667000
- 161.395833333333300000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_price'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText4: TQRDBText
- Left = 509
- Top = 2
- Width = 57
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1346.729166666667000000
- 5.291666666666667000
- 150.812500000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_sale'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText5: TQRDBText
- Left = 589
- Top = 2
- Width = 60
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1558.395833333333000000
- 5.291666666666667000
- 158.750000000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_shelf'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText6: TQRDBText
- Left = 429
- Top = 2
- Width = 65
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 1135.062500000000000000
- 5.291666666666667000
- 171.979166666666700000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_stock'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- object QRDBText7: TQRDBText
- Left = 341
- Top = 2
- Width = 54
- Height = 17
- Frame.Color = clBlack
- Frame.DrawTop = False
- Frame.DrawBottom = False
- Frame.DrawLeft = False
- Frame.DrawRight = False
- Size.Values = (
- 44.979166666666670000
- 902.229166666666700000
- 5.291666666666667000
- 142.875000000000000000)
- Alignment = taLeftJustify
- AlignToBand = False
- AutoSize = True
- AutoStretch = False
- Color = clWhite
- DataSet = ADOQuery1
- DataField = 'prod_unit'
- Transparent = False
- WordWrap = True
- FontSize = 10
- end
- end
- end
- object ADOQuery1: TADOQuery
- ConnectionString =
- 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:DelphiProdatad' +
- 'zyv1.mdb;Persist Security Info=False'
- CursorType = ctStatic
- Parameters = <>
- SQL.Strings = (
- 'select * from t_prod')
- Left = 112
- Top = 48
- end
- end