📄 xmflbgrep.dfm
字号:
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
690.5625
26.4583333333333
219.604166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#22806#20080#25968#37327')'
FontSize = 10
end
object QRExpr3: TQRExpr
Left = 352
Top = 10
Width = 54
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
931.333333333333
26.4583333333333
142.875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#24635#25968')'
FontSize = 10
end
object QRExpr4: TQRExpr
Left = 414
Top = 10
Width = 73
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1095.375
26.4583333333333
193.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#38144#21806#39069')'
Mask = '#0.00'
FontSize = 10
end
object QRExpr6: TQRExpr
Left = 80
Top = 11
Width = 36
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
211.666666666667
29.1041666666667
95.25)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = True
Transparent = False
WordWrap = True
Expression = 'count'
FontSize = 10
end
object QRLabel14: TQRLabel
Left = 37
Top = 12
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
97.8958333333333
31.75
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31508#25968#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object SummaryBand1: TQRBand
Left = 4
Top = 241
Width = 1115
Height = 32
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 = (
84.6666666666667
2950.10416666667)
BandType = rbSummary
object QRLabel13: TQRLabel
Left = 137
Top = 14
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
362.479166666667
37.0416666666667
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21512#35745#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape4: TQRShape
Left = 7
Top = 8
Width = 817
Height = 2
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
5.29166666666667
18.5208333333333
21.1666666666667
2161.64583333333)
Shape = qrsRectangle
end
object QRExpr5: TQRExpr
Left = 182
Top = 14
Width = 73
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
481.541666666667
37.0416666666667
193.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#22530#21507#25968#37327')'
FontSize = 10
end
object QRExpr7: TQRExpr
Left = 262
Top = 14
Width = 82
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
693.208333333333
37.0416666666667
216.958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#22806#20080#25968#37327')'
FontSize = 10
end
object QRExpr8: TQRExpr
Left = 353
Top = 14
Width = 55
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
933.979166666667
37.0416666666667
145.520833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#24635#25968')'
FontSize = 10
end
object QRExpr9: TQRExpr
Left = 415
Top = 14
Width = 109
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1098.02083333333
37.0416666666667
288.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
Master = QRSubDetail1
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(DetailDtSt.'#38144#21806#39069')'
Mask = '#0.00'
FontSize = 10
end
end
end
end
object DetailDS: TDataSource
DataSet = DetailDtSt
Left = 384
Top = 64
end
object DetailDtSt: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
CommandText =
'Select lb,bh,'#13#10'"'#39033#30446#21517#31216'"=(Select mc from cdwj where bh=a.bh),'#13#10'"'#22530#21507#25968 +
#37327'" =(Select sum(sl) from dcd where bh=a.bh and wmbz=0 and zfbz=0' +
'),'#13#10'"'#22806#20080#25968#37327'" =(Select sum(sl) from dcd where bh=a.bh and wmbz=1 an' +
'd zfbz=0),'#13#10'"'#24635#25968'" =(Select sum(sl) from dcd where bh=a.bh ' +
'and zfbz=0),'#13#10'"'#38144#21806#39069'" =(Select sum(je) from dcd where bh=a.bh a' +
'nd zfbz=0),'#13#10'"'#38144#21806'%" =0,'#13#10'"'#21333#20301#25104#26412'"=0,'#13#10'"'#25104#26412'" =0,'#13#10'"'#21344#24635#25104#26412'"=0'#13 +
#10#13#10'from dcd a '#13#10'where lb is not Null and bh is not Null'#13#10'group b' +
'y lb,bh'#13#10
DataSource = mainDS
IndexFieldNames = 'lb'
MasterFields = 'lb'
Parameters = <>
Left = 352
Top = 64
object DetailDtStlb: TStringField
FieldName = 'lb'
Visible = False
Size = 10
end
object DetailDtStbh: TStringField
DisplayLabel = #39033#30446#32534#30721
FieldName = 'bh'
Size = 10
end
object DetailDtStDSDesigner9: TStringField
DisplayWidth = 16
FieldName = #39033#30446#21517#31216
ReadOnly = True
Size = 50
end
object DetailDtStDSDesigner4: TBCDField
DisplayWidth = 10
FieldName = #38144#21806#39069
ReadOnly = True
Precision = 19
end
object DetailDtStDSDesigner5: TIntegerField
DisplayWidth = 7
FieldName = #38144#21806'%'
ReadOnly = True
end
object DetailDtStDSDesigner6: TIntegerField
DisplayWidth = 9
FieldName = #21333#20301#25104#26412
ReadOnly = True
end
object DetailDtStDSDesigner7: TIntegerField
DisplayWidth = 7
FieldName = #25104#26412
ReadOnly = True
end
object DetailDtStDSDesigner8: TIntegerField
DisplayWidth = 10
FieldName = #21344#24635#25104#26412
ReadOnly = True
end
object DetailDtStDSDesigner: TBCDField
FieldName = #22530#21507#25968#37327
ReadOnly = True
Precision = 38
Size = 2
end
object DetailDtStDSDesigner2: TBCDField
FieldName = #22806#20080#25968#37327
ReadOnly = True
Precision = 38
Size = 2
end
object DetailDtStDSDesigner3: TBCDField
FieldName = #24635#25968
ReadOnly = True
Precision = 38
Size = 2
end
end
object mainDtSt: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
CommandText =
'select lb,'#13#10'"'#31867#21035#21517#31216'"=(Select lbmc from lbbm where lbbm=a.lb)'#13#10'from' +
' dcd a where rq between :ksrqcs and :jzrqcs and lb is not Null'#13#10 +
'and bh is not Null group by lb'
Parameters = <
item
Name = 'ksrqcs'
DataType = ftDateTime
Size = -1
Value = Null
end
item
Name = 'jzrqcs'
DataType = ftDateTime
Size = -1
Value = Null
end>
Left = 168
Top = 64
object mainDtStlb: TStringField
DisplayLabel = #31867#21035#32534#30721
DisplayWidth = 8
FieldName = 'lb'
Size = 10
end
object mainDtStDSDesigner: TStringField
DisplayWidth = 50
FieldName = #31867#21035#21517#31216
ReadOnly = True
Size = 50
end
end
object mainDS: TDataSource
DataSet = mainDtSt
Left = 216
Top = 64
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -