📄 sum100report.~dfm
字号:
inherited qrSUM100: TqrSUM100
Left = -372
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 = 272
Width = 212
Size.Values = (
58.2083333333333
719.666666666667
63.5
560.916666666667)
Caption = #38144#21806#28857#32564#36153#25253#34920'('#22320#21306')'
FontSize = 16
end
inherited QRLabel4: TQRLabel
Size.Values = (
44.9791666666667
1598.08333333333
0
158.75)
FontSize = 10
end
inherited QRLabel5: TQRLabel
Width = 43
Size.Values = (
44.9791666666667
1778
0
113.770833333333)
Caption = 'SUM080'
FontSize = 10
end
object QRLabel8: TQRLabel
Left = 24
Top = 88
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
63.5
232.833333333333
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26085#26399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 526
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
1391.70833333333
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #32564#36153#32534#21495
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel15: TQRLabel
Left = 648
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
1714.5
232.833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #32564#36153#37329#39069
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object lDate: TQRLabel
Left = 364
Top = 48
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
963.083333333333
127
71.4375)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26085#26399
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel7: TQRLabel
Left = 168
Top = 88
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
444.5
232.833333333333
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38144#21806#28857
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bgDetail: TQRBand
Size.Values = (
60.8541666666667
2000.25)
object QRDBText4: TQRDBText
Left = 24
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
63.5
10.5833333333333
132.291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'PAYDATE'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 529
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
1399.64583333333
10.5833333333333
132.291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'PAYCODE'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText1: TQRDBText
Left = 644
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
1703.91666666667
10.5833333333333
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'PAYMONEY'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 168
Top = 4
Width = 29
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
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qyReport
DataField = 'AREA'
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited bdPageFooter: TQRBand
Top = 188
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
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 QRExpr4: TQRExpr
Left = 546
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
1444.625
10.5833333333333
410.104166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(qyReport.PAYMONEY)'
Mask = '#,##0'
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 24
Top = 4
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
63.5
10.5833333333333
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21512#35745#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
inherited qyReport: TQuery
DatabaseName = 'ePaperApp'
SQL.Strings = (
'select to_char(P.PayDate,'#39'yyyy-mm-dd'#39') as PayDate,P.PayCode,S.ar' +
'ea,P.PayMoney'
'from Pwpt_Pay P,Pwpt_Sale S'
'where P.PayDate >= :BeginDate and P.PayDate <= :EndDate '
' and P.SaleCode = S.SaleCode'
'order by PayDate,S.area')
ParamData = <
item
DataType = ftDateTime
Name = 'BeginDate'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'EndDate'
ParamType = ptUnknown
end>
object qyReportPAYDATE: TStringField
FieldName = 'PAYDATE'
Size = 10
end
object qyReportPAYCODE: TFloatField
FieldName = 'PAYCODE'
end
object qyReportPAYMONEY: TFloatField
FieldName = 'PAYMONEY'
end
object qyReportAREA: TStringField
FieldName = 'AREA'
Size = 10
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -