📄 pr110report.dfm
字号:
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #37329#38989
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape2: TQRShape
Left = -4
Top = 80
Width = 757
Height = 9
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
23.8125
-10.5833333333333
211.666666666667
2002.89583333333)
Shape = qrsHorLine
end
object QRLabel13: TQRLabel
Left = 4
Top = 68
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
179.916666666667
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38917#27425
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel14: TQRLabel
Left = 52
Top = 68
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
137.583333333333
179.916666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21830#21697#32232#34399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel15: TQRLabel
Left = 144
Top = 68
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
381
179.916666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21830#21697#21517#31281
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel16: TQRLabel
Left = 444
Top = 68
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1174.75
179.916666666667
71.4375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21934#20729
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel17: TQRLabel
Left = 576
Top = 68
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1524
179.916666666667
71.4375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25976#37327
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel22: TQRLabel
Left = 344
Top = 44
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
910.166666666667
116.416666666667
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #36914#36008#20489#24235':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText25: TQRDBText
Left = 488
Top = 44
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1291.16666666667
116.416666666667
243.416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'WarehouseName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel23: TQRLabel
Left = 344
Top = 4
Width = 47
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
910.166666666667
10.5833333333333
124.354166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #36914#36008#21029':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText26: TQRDBText
Left = 408
Top = 4
Width = 190
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1079.5
10.5833333333333
502.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'PurchasePropertyDescription'
Transparent = False
WordWrap = True
FontSize = 10
end
end
object bdGroupFooter: TQRBand [4]
Left = 19
Top = 192
Width = 756
Height = 73
Frame.Color = clBlack
Frame.DrawTop = True
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = True
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
193.145833333333
2000.25)
BandType = rbGroupFooter
object QRLabel19: TQRLabel
Left = 576
Top = 4
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1524
10.5833333333333
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #36914#36008#37329#38989':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel20: TQRLabel
Left = 576
Top = 28
Width = 47
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1524
74.0833333333333
124.354166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #29151#26989#31237':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel21: TQRLabel
Left = 576
Top = 52
Width = 60
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1524
137.583333333333
158.75)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #32317#35336#37329#38989':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText20: TQRDBText
Left = 682
Top = 4
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1804.45833333333
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'SubTotal'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText21: TQRDBText
Left = 661
Top = 28
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1748.89583333333
74.0833333333333
206.375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ValueAddTax'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText22: TQRDBText
Left = 696
Top = 52
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1841.5
137.583333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Amount'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
BeforeOpen = qyReportBeforeOpen
OnCalcFields = qyReportCalcFields
SQL.Strings = (
'SELECT M.PurchaseID, M.PurchaseDate, M.SupplierID, S.SupplierAtt' +
'ribName,'
'D.CompanyID, D.PurchaseItem, D.ProductID, D.PurchaseQuantity,'
'D.PurchaseUnitPrice, D.PurchaseAmount, M.PurchaseProperty,'
'M.WarehouseID, W.WarehouseName, M.InvoiceNo, M.SubTotal, M.Value' +
'AddTax, M.Amount,'
'P.ProductName'
'FROM PurchaseMaster M, PurchaseDetail D, Supplier S, Warehouse W' +
', Product P'
'WHERE M.CompanyID = :CompanyID AND M.PurchaseID = :PurchaseID'
'AND M.CompanyID = D.CompanyID AND M.PurchaseID = D.PurchaseID'
'AND M.CompanyID = S.CompanyID AND M.SupplierID = S.SupplierID'
'AND M.CompanyID = W.CompanyID AND M.WarehouseID = W.WarehouseID'
'AND D.CompanyID = P.CompanyID AND D.ProductID = P.ProductID'
'ORDER BY D.PurchaseItem')
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'PurchaseID'
ParamType = ptUnknown
end>
object qyReportPurchaseID: TStringField
FieldName = 'PurchaseID'
Origin = 'KINGSBYPRG.PurchaseMaster.PurchaseID'
FixedChar = True
Size = 10
end
object qyReportPurchaseDate: TStringField
FieldName = 'PurchaseDate'
Origin = 'KINGSBYPRG.PurchaseMaster.PurchaseDate'
FixedChar = True
Size = 8
end
object qyReportSupplierID: TStringField
FieldName = 'SupplierID'
Origin = 'KINGSBYPRG.PurchaseMaster.SupplierID'
FixedChar = True
Size = 8
end
object qyReportSupplierAttribName: TStringField
FieldName = 'SupplierAttribName'
Origin = 'KINGSBYPRG.Supplier.SupplierAttribName'
FixedChar = True
Size = 10
end
object qyReportCompanyID: TStringField
FieldName = 'CompanyID'
Origin = 'KINGSBYPRG.PurchaseDetail.CompanyID'
FixedChar = True
Size = 2
end
object qyReportPurchaseItem: TStringField
FieldName = 'PurchaseItem'
Origin = 'KINGSBYPRG.PurchaseDetail.PurchaseItem'
FixedChar = True
Size = 3
end
object qyReportProductID: TStringField
FieldName = 'ProductID'
Origin = 'KINGSBYPRG.PurchaseDetail.ProductID'
FixedChar = True
Size = 10
end
object qyReportPurchaseQuantity: TBCDField
FieldName = 'PurchaseQuantity'
Origin = 'KINGSBYPRG.PurchaseDetail.PurchaseQuantity'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportPurchaseUnitPrice: TBCDField
FieldName = 'PurchaseUnitPrice'
Origin = 'KINGSBYPRG.PurchaseDetail.PurchaseUnitPrice'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportPurchaseAmount: TBCDField
FieldName = 'PurchaseAmount'
Origin = 'KINGSBYPRG.PurchaseDetail.PurchaseAmount'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportPurchaseProperty: TStringField
FieldName = 'PurchaseProperty'
Origin = 'KINGSBYPRG.PurchaseMaster.PurchaseProperty'
FixedChar = True
Size = 1
end
object qyReportWarehouseID: TStringField
FieldName = 'WarehouseID'
Origin = 'KINGSBYPRG.PurchaseMaster.WarehouseID'
FixedChar = True
Size = 4
end
object qyReportWarehouseName: TStringField
FieldName = 'WarehouseName'
Origin = 'KINGSBYPRG.Warehouse.WarehouseName'
FixedChar = True
Size = 10
end
object qyReportInvoiceNo: TStringField
FieldName = 'InvoiceNo'
Origin = 'KINGSBYPRG.PurchaseMaster.InvoiceNo'
FixedChar = True
Size = 10
end
object qyReportSubTotal: TBCDField
FieldName = 'SubTotal'
Origin = 'KINGSBYPRG.PurchaseMaster.SubTotal'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportValueAddTax: TBCDField
FieldName = 'ValueAddTax'
Origin = 'KINGSBYPRG.PurchaseMaster.ValueAddTax'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportAmount: TBCDField
FieldName = 'Amount'
Origin = 'KINGSBYPRG.PurchaseMaster.Amount'
DisplayFormat = '#,##0'
Precision = 12
Size = 0
end
object qyReportProductName: TStringField
FieldName = 'ProductName'
Origin = 'KINGSBYPRG.Product.ProductName'
FixedChar = True
Size = 30
end
object qyReportPurchasePropertyDescription: TStringField
FieldKind = fkCalculated
FieldName = 'PurchasePropertyDescription'
Size = 8
Calculated = True
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -