📄 in270report.~dfm
字号:
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1648.35416666667
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'InAmount'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 550
Top = 4
Width = 50
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1455.20833333333
10.5833333333333
132.291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'InPrice'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 453
Top = 4
Width = 71
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1198.5625
10.5833333333333
187.854166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'InQuantity'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 370
Top = 4
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
978.958333333333
10.5833333333333
206.375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'BeginAmount'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 280
Top = 4
Width = 92
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
740.833333333333
10.5833333333333
243.416666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'BeginQuantity'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 84
Top = 4
Width = 78
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
222.25
10.5833333333333
206.375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ProductName'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 1092
Top = 4
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
2889.25
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Profit'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 188
Width = 1196
Size.Values = (
105.833333333333
3164.41666666667)
inherited QRLabel3: TQRLabel
Left = 1092
Size.Values = (
44.9791666666667
2889.25
52.9166666666667
89.9583333333333)
FontSize = 10
end
inherited UserName: TQRLabel
Left = 1128
Size.Values = (
44.9791666666667
2984.5
52.9166666666667
150.8125)
FontSize = 10
end
end
object QRBand1: TQRBand [3]
Left = 19
Top = 148
Width = 1196
Height = 40
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 = (
105.833333333333
3164.41666666667)
BandType = rbSummary
object QRExpr1: TQRExpr
Left = 184
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
486.833333333333
10.5833333333333
502.708333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.BeginQuantity)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr2: TQRExpr
Left = 270
Top = 4
Width = 176
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
714.375
10.5833333333333
465.666666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.BeginAmount)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr3: TQRExpr
Left = 357
Top = 4
Width = 169
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
944.5625
10.5833333333333
447.145833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.InQuantity)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr4: TQRExpr
Left = 523
Top = 4
Width = 155
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1383.77083333333
10.5833333333333
410.104166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.InAmount)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr5: TQRExpr
Left = 744
Top = 4
Width = 162
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1968.5
10.5833333333333
428.625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.OutAmount)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr6: TQRExpr
Left = 578
Top = 4
Width = 176
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1529.29166666667
10.5833333333333
465.666666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.OutQuantity)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr7: TQRExpr
Left = 896
Top = 4
Width = 162
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
2370.66666666667
10.5833333333333
428.625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.EndAmount)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr8: TQRExpr
Left = 806
Top = 4
Width = 176
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
2132.54166666667
10.5833333333333
465.666666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.EndQuantity)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr9: TQRExpr
Left = 993
Top = 4
Width = 141
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
2627.3125
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.Profit)'
Mask = '#,##0'
FontSize = 10
end
object QRLabel9: TQRLabel
Left = 208
Top = 4
Width = 34
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
550.333333333333
10.5833333333333
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21512#35336':'
Color = clWhite
Transparent = True
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
CachedUpdates = True
BeforeOpen = qyReportBeforeOpen
RequestLive = True
SQL.Strings = (
'SELECT ProductID, ProductName,'
'0 AS BeginQuantity, 0 AS BeginAmount,'
'0 AS InQuantity, 0 AS InAmount, 0 AS InPrice,'
'0 AS OutQuantity, 0 AS OutAmount, 0 AS OutPrice,'
'0 AS EndQuantity, 0 AS EndAmount, 0 AS Profit'
'FROM Product'
'WHERE CompanyID = :CompanyID'
'ORDER BY ProductID')
UpdateObject = UpdateSQL1
Left = 52
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end>
object qyReportProductID: TStringField
DisplayLabel = #21830#21697#32232#34399
FieldName = 'ProductID'
Origin = 'KINGSBYPRG.InventoryBeginning.ProductID'
FixedChar = True
Size = 10
end
object qyReportProductName: TStringField
DisplayLabel = #21830#21697#21517#31281
FieldName = 'ProductName'
Origin = 'KINGSBYPRG.Product.ProductName'
FixedChar = True
Size = 30
end
object qyReportBeginQuantity: TIntegerField
FieldName = 'BeginQuantity'
DisplayFormat = '#,##0'
end
object qyReportBeginAmount: TIntegerField
FieldName = 'BeginAmount'
DisplayFormat = '#,##0'
end
object qyReportInQuantity: TIntegerField
FieldName = 'InQuantity'
DisplayFormat = '#,##0'
end
object qyReportInPrice: TIntegerField
FieldName = 'InPrice'
DisplayFormat = '#,##0'
end
object qyReportInAmount: TIntegerField
FieldName = 'InAmount'
DisplayFormat = '#,##0'
end
object qyReportOutQuantity: TIntegerField
FieldName = 'OutQuantity'
DisplayFormat = '#,##0'
end
object qyReportOutPrice: TIntegerField
FieldName = 'OutPrice'
DisplayFormat = '#,##0'
end
object qyReportOutAmount: TIntegerField
FieldName = 'OutAmount'
DisplayFormat = '#,##0'
end
object qyReportEndQuantity: TIntegerField
FieldName = 'EndQuantity'
DisplayFormat = '#,##0'
end
object qyReportEndAmount: TIntegerField
FieldName = 'EndAmount'
DisplayFormat = '#,##0'
end
object qyReportProfit: TIntegerField
FieldName = 'Profit'
DisplayFormat = '#,##0'
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update Product'
'set'
' ProductID = :ProductID,'
' ProductName = :ProductName'
'where'
' ProductID = :OLD_ProductID and'
' ProductName = :OLD_ProductName')
InsertSQL.Strings = (
'insert into Product'
' (ProductID, ProductName)'
'values'
' (:ProductID, :ProductName)')
DeleteSQL.Strings = (
'delete from Product'
'where'
' ProductID = :OLD_ProductID and'
' ProductName = :OLD_ProductName')
Left = 84
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -