📄 yhzrrep.dfm
字号:
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOquery1
DataField = #20248#24800#39069
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 325
Top = 5
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
859.895833333333
13.2291666666667
105.833333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOquery1
DataField = #25240#25187#39069
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 540
Top = 5
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1428.75
13.2291666666667
140.229166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOquery1
DataField = #31036#21048#37329#39069
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 437
Top = 5
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1156.22916666667
13.2291666666667
105.833333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOquery1
DataField = #20813#36153#39069
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 8
Top = 3
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
21.1666666666667
7.9375
113.770833333333)
Alignment = taCenter
AlignToBand = False
AutoSize = False
Color = clWhite
Data = qrsDetailNo
Transparent = False
FontSize = 10
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 160
Width = 612
Height = 23
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 = (
60.8541666666667
1619.25)
BandType = rbSummary
object QRLabel35: TQRLabel
Left = 19
Top = 5
Width = 34
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
50.2708333333333
13.2291666666667
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #24635#35745
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold, fsUnderline]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRExpr7: TQRExpr
Left = 493
Top = 4
Width = 102
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1304.39583333333
10.5833333333333
269.875)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(ADOquery1.'#31036#21048#37329#39069')'
FontSize = 9
end
object QRExpr8: TQRExpr
Left = 176
Top = 4
Width = 90
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
465.666666666667
10.5833333333333
238.125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(ADOquery1.'#20248#24800#39069')'
FontSize = 9
end
object QRShape3: TQRShape
Left = 0
Top = 1
Width = 609
Height = 2
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
5.29166666666667
0
2.64583333333333
1611.3125)
Shape = qrsRectangle
end
object QRExpr1: TQRExpr
Left = 275
Top = 4
Width = 90
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
727.604166666667
10.5833333333333
238.125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(ADOquery1.'#25240#25187#39069')'
FontSize = 9
end
object QRExpr2: TQRExpr
Left = 392
Top = 4
Width = 90
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1037.16666666667
10.5833333333333
238.125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(ADOquery1.'#20813#36153#39069')'
FontSize = 9
end
end
end
end
object DataSource1: TDataSource
DataSet = ADOquery1
Left = 384
Top = 96
end
object ADOquery1: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
CommandText =
'select a.szdd as '#24215#21517','#13#10'"'#20248#24800#39069'" = (select sum(fwfe+se) from dcd b ' +
'where b.fkbz=1 and b.zfbz=0 and b.zsbz=0 and b.szdd=a.szdd ),'#13#10 +
'"'#25240#25187#39069'" = (select sum(zke) from dcd b where b.fkbz=1 and b.zfbz=' +
'0 and b.zsbz=0 and b.szdd=a.szdd ),'#13#10'"'#20813#36153#39069'" = (select sum(zke)' +
' from dcd b where b.zfbz=0 and b.zsbz=1 and b.szdd=a.szdd ),'#13#10'"' +
#31036#21048#37329#39069'" = (select sum(fkje) from fkwj b where b.szdd=a.szdd and' +
' b.fkfsmc='#39#26377#20215#21048#39' and b.rq>=:cs3 and b.rq<=:cs4)'#13#10'from dcd a'#13#10'whe' +
're a.rq>=:cs1 and a.rq<=:cs2'#13#10'group by a.szdd'
Parameters = <
item
Name = 'cs3'
DataType = ftDateTime
Size = -1
Value = Null
end
item
Name = 'cs4'
DataType = ftDateTime
Size = -1
Value = Null
end
item
Name = 'cs1'
DataType = ftDateTime
Size = -1
Value = Null
end
item
Name = 'cs2'
DataType = ftDateTime
Size = -1
Value = Null
end>
Left = 416
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -