📄 monthxsbgrep.dfm
字号:
WordWrap = True
FontSize = 10
end
object QRShape1: TQRShape
Left = 16
Top = 5
Width = 1096
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
42.3333333333333
13.2291666666667
2899.83333333333)
Shape = qrsRectangle
end
object QRExpr1: TQRExpr
Left = 62
Top = 9
Width = 59
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
164.041666666667
23.8125
156.104166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#27880#20876#38144#21806')'
Mask = '#0.00'
FontSize = 8
end
object QRExpr2: TQRExpr
Left = 127
Top = 9
Width = 42
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
336.020833333333
23.8125
111.125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#20928#38144#21806')'
Mask = '#0.00'
FontSize = 8
end
object QRExpr3: TQRExpr
Left = 174
Top = 9
Width = 56
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
460.375
23.8125
148.166666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26089#29677#27880#20876')'
Mask = '#0.00'
FontSize = 8
end
object QRExpr4: TQRExpr
Left = 235
Top = 9
Width = 69
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
621.770833333333
23.8125
182.5625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26089#29677#20928#38144#21806')'
Mask = '#0.00'
FontSize = 8
end
object QRExpr5: TQRExpr
Left = 308
Top = 9
Width = 45
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
814.916666666667
23.8125
119.0625)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26089#29677#20132#26131#25968')'
FontSize = 8
end
object QRExpr6: TQRExpr
Left = 359
Top = 9
Width = 59
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
949.854166666667
23.8125
156.104166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26089#29677#23458#20154#25968')'
FontSize = 8
end
object QRExpr7: TQRExpr
Left = 494
Top = 9
Width = 52
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1307.04166666667
23.8125
137.583333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26202#29677#27880#20876')'
Mask = '#0.00'
FontSize = 8
end
object QRExpr8: TQRExpr
Left = 552
Top = 9
Width = 68
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1460.5
23.8125
179.916666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26202#29677#20928#38144#21806')'
Mask = '#0.00'
FontSize = 8
end
object QRExpr9: TQRExpr
Left = 625
Top = 9
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1653.64583333333
23.8125
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26202#29677#20132#26131#25968')'
FontSize = 8
end
object QRExpr10: TQRExpr
Left = 673
Top = 9
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1780.64583333333
23.8125
150.8125)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(ADODataSet1.'#26202#29677#23458#20154#25968')'
FontSize = 8
end
end
end
end
object DataSource1: TDataSource
DataSet = ADODataSet1
Left = 384
Top = 96
end
object ADODataSet1: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
OnCalcFields = ADODataSet1CalcFields
CommandText =
'select th,sum(je) as "'#27880#20876#38144#21806'",'#13#10'"'#20928#38144#21806'" =(Select sum(je) from' +
' dcd where th=a.th and zfbz=0 and fkbz=1),'#13#10#13#10'"'#26089#29677#27880#20876'" =(Selec' +
't sum(je) from dcd where th=a.th and bc='#39'1'#39' and zfbz=0),'#13#10'"'#26089#29677#20928#38144#21806 +
'"=(Select sum(je) from dcd where th=a.th and bc='#39'1'#39' and zfbz=0 a' +
'nd fkbz=1),'#13#10'"'#26089#29677#20132#26131#25968'"=(Select count(djh) from dcd where th=a.th a' +
'nd bc='#39'1'#39'),'#13#10'"'#26089#29677#23458#20154#25968'"=(Select count(distinct djh) from dcd where ' +
'th=a.th and bc='#39'1'#39'),'#13#10#13#10'"'#26202#29677#27880#20876'" =(Select sum(je) from dcd wher' +
'e th=a.th and bc='#39'2'#39' and zfbz=0),'#13#10'"'#26202#29677#20928#38144#21806'"=(Select sum(je) from ' +
'dcd where th=a.th and bc='#39'2'#39' and zfbz=0 and fkbz=1),'#13#10'"'#26202#29677#20132#26131#25968'"=(S' +
'elect count(djh) from dcd where th=a.th and bc='#39'2'#39'),'#13#10'"'#26202#29677#23458#20154#25968'"=(S' +
'elect count(distinct djh) from dcd where th=a.th and bc='#39'2'#39'),'#13#10#13 +
#10'"'#37202#21543#27880#20876'"=0,'#13#10'"'#37202#21543#20928#38144#21806'"=0,'#13#10'"'#37202#21543#20132#26131#25968'"=0,'#13#10'"'#37202#21543#23458#20154#20154#25968'"=0,'#13#10'"'#37202#21543#20154#22343#28040#36153#39069'"=0'#13#10#13#10 +
'from dcd a'#13#10'where th is not Null and rq between :ksrqcs1 and :jz' +
'rqcs2'#13#10'group by th'#13#10'order by th'#13#10#13#10#13#10#13#10' '
Parameters = <
item
Name = 'ksrqcs1'
Attributes = [paNullable]
DataType = ftDateTime
Precision = 16
Size = 16
Value = Null
end
item
Name = 'jzrqcs2'
Attributes = [paNullable]
DataType = ftDateTime
Precision = 16
Size = 16
Value = Null
end>
Left = 344
Top = 96
object ADODataSet1th: TStringField
DisplayWidth = 10
FieldName = 'th'
Size = 10
end
object ADODataSet1cbrjxfeCal: TFloatField
DisplayWidth = 10
FieldKind = fkCalculated
FieldName = 'cbrjxfeCal'
Calculated = True
end
object ADODataSet1wbrjxfeCal: TFloatField
DisplayWidth = 10
FieldKind = fkCalculated
FieldName = 'wbrjxfeCal'
Calculated = True
end
object ADODataSet1DSDesigner: TBCDField
FieldName = #27880⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -