📄 in260report.~dfm
字号:
inherited qrIN260: TqrIN260
Functions.DATA = (
'0'
'0'
#39#39)
Page.Values = (
50
2970
50
2100
50
50
0)
inherited bdPageHeader: TQRBand
Size.Values = (
280.458333333333
2000.25)
inherited CompanyName: TQRLabel
Size.Values = (
66.1458333333333
838.729166666667
0
322.791666666667)
FontSize = 16
end
inherited QRSysData1: TQRSysData
Size.Values = (
44.9791666666667
1778
52.9166666666667
113.770833333333)
FontSize = 10
end
inherited QRSysData2: TQRSysData
Size.Values = (
44.9791666666667
1778
105.833333333333
132.291666666667)
FontSize = 10
end
inherited QRLabel1: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
52.9166666666667
158.75)
FontSize = 10
end
inherited QRLabel2: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
105.833333333333
89.9583333333333)
FontSize = 10
end
inherited ReportName: TQRLabel
Left = 304
Width = 148
Size.Values = (
58.2083333333333
804.333333333333
63.5
391.583333333333)
Caption = #21830#21697#28399#37559#20998#26512#34920
FontSize = 16
end
inherited QRLabel4: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
0
158.75)
FontSize = 10
end
inherited QRLabel5: TQRLabel
Width = 36
Size.Values = (
44.9791666666667
1778
0
95.25)
Caption = 'IN260'
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 4
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
232.833333333333
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 QRLabel7: TQRLabel
Left = 88
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
232.833333333333
232.833333333333
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 QRLabel9: TQRLabel
Left = 324
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
857.25
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #30446#21069#23384#37327
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 420
Top = 88
Width = 66
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1111.25
232.833333333333
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26368#36817#37559#21806#26085
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 536
Top = 88
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1418.16666666667
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #28399#37559#26085#25976
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Size.Values = (
60.8541666666667
2000.25)
object QRDBText1: TQRDBText
Left = 4
Top = 4
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
10.5833333333333
10.5833333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'ProductID'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 88
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
232.833333333333
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 = 320
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
846.666666666667
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'Quantity'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 400
Top = 4
Width = 113
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1058.33333333333
10.5833333333333
298.979166666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'LastDeliveryDate'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 535
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
1415.52083333333
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'DeffDays'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Size.Values = (
44.9791666666667
1651
52.9166666666667
89.9583333333333)
FontSize = 10
end
inherited UserName: TQRLabel
Size.Values = (
44.9791666666667
1746.25
52.9166666666667
150.8125)
FontSize = 10
end
end
inherited qyReport: TQuery
CachedUpdates = True
BeforeOpen = qyReportBeforeOpen
OnCalcFields = qyReportCalcFields
RequestLive = True
SQL.Strings = (
'SELECT ProductID, ProductName, 0 AS Quantity, LastDeliveryDate, ' +
'0 AS DeffDays'
'FROM Product'
'WHERE CompanyID = :CompanyID AND StopSales = '#39'N'#39
'ORDER BY ProductID')
UpdateObject = UpdateSQL1
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 qyReportQuantity: TIntegerField
DisplayLabel = #25976#37327
FieldName = 'Quantity'
DisplayFormat = '#,##0'
end
object qyReportLastDeliveryDate: TStringField
FieldName = 'LastDeliveryDate'
FixedChar = True
Size = 8
end
object qyReportDeffDays: TIntegerField
FieldName = 'DeffDays'
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 + -