📄 ap260report.~dfm
字号:
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1166.8125
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'AP6190'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 533
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
1410.22916666667
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'AP9120'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 621
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
1643.0625
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'AP1200'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 709
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
1875.89583333333
10.5833333333333
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'APTOTL'
Transparent = True
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 168
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
444.5
10.5833333333333
132.291666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'PayDays'
Transparent = True
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 188
Size.Values = (
105.833333333333
2000.25)
inherited QRLabel3: TQRLabel
Width = 40
Size.Values = (
44.9791666666667
1651
52.9166666666667
105.833333333333)
Caption = #21046#34920#65306
FontSize = 10
end
inherited UserName: TQRLabel
Size.Values = (
44.9791666666667
1746.25
52.9166666666667
150.8125)
FontSize = 10
end
end
object QRBand1: TQRBand [3]
Left = 19
Top = 148
Width = 756
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
2000.25)
BandType = rbSummary
object QRExpr6: TQRExpr
Left = 612
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
1619.25
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.ApTOTL)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr5: TQRExpr
Left = 524
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
1386.41666666667
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.AP1200)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr4: TQRExpr
Left = 436
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
1153.58333333333
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.AP9120)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr3: TQRExpr
Left = 344
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
910.166666666667
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.AP6190)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr2: TQRExpr
Left = 252
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
666.75
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.AP3160)'
Mask = '#,##0'
FontSize = 10
end
object QRExpr1: TQRExpr
Left = 168
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
444.5
10.5833333333333
373.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = True
WordWrap = True
Expression = 'SUM(qyReport.AP0030)'
Mask = '#,##0'
FontSize = 10
end
object QRLabel14: TQRLabel
Left = 152
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
402.166666666667
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 SupplierID, SupplierAttribName, PayDays,'
'0 AS AP0030, 0 AS AP3160, 0 AS AP6190, 0 AS AP9120,'
'0 AS AP1200, 0 AS APTOTL'
'FROM Supplier'
'WHERE CompanyID = :CompanyID'
'AND SupplierID >= :BeginSupplierID AND SupplierID <= :EndSupplie' +
'rID'
'ORDER BY SupplierID')
UpdateObject = UpdateSQL1
ParamData = <
item
DataType = ftString
Name = 'CompanyID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'BeginSupplierID'
ParamType = ptUnknown
end
item
DataType = ftString
Name = 'EndSupplierID'
ParamType = ptUnknown
end>
object qyReportSupplierID: TStringField
FieldName = 'SupplierID'
FixedChar = True
Size = 8
end
object qyReportSupplierAttribName: TStringField
FieldName = 'SupplierAttribName'
FixedChar = True
Size = 10
end
object qyReportPayDays: TBCDField
FieldName = 'PayDays'
Precision = 3
Size = 0
end
object qyReportAP0030: TIntegerField
FieldName = 'AP0030'
DisplayFormat = '#,##0'
end
object qyReportAP3160: TIntegerField
FieldName = 'AP3160'
DisplayFormat = '#,##0'
end
object qyReportAP6190: TIntegerField
FieldName = 'AP6190'
DisplayFormat = '#,##0'
end
object qyReportAP9120: TIntegerField
FieldName = 'AP9120'
DisplayFormat = '#,##0'
end
object qyReportAP1200: TIntegerField
FieldName = 'AP1200'
DisplayFormat = '#,##0'
end
object qyReportAPTOTL: TIntegerField
FieldName = 'APTOTL'
DisplayFormat = '#,##0'
end
end
object UpdateSQL1: TUpdateSQL
ModifySQL.Strings = (
'update Supplier'
'set'
' SupplierID = :SupplierID,'
' SupplierAttribName = :SupplierAttribName'
'where'
' SupplierID = :OLD_SupplierID and'
' SupplierAttribName = :OLD_SupplierAttribName')
InsertSQL.Strings = (
'insert into Supplier'
' (SupplierID, SupplierAttribName)'
'values'
' (:SupplierID, :SupplierAttribName)')
DeleteSQL.Strings = (
'delete from Supplier'
'where'
' SupplierID = :OLD_SupplierID and'
' SupplierAttribName = :OLD_SupplierAttribName')
Left = 100
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -