📄 report.dfm
字号:
Width = 25
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
256.645833333333
7.9375
66.1458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'name'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object ADDRESS_F: TQRDBText
Left = 165
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
436.5625
7.9375
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'Address'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object Cread_F: TQRDBText
Left = 251
Top = 3
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
664.104166666667
7.9375
169.333333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'curfig'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Mask = '0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape3: TQRShape
Left = 154
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
407.458333333333
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape2: TQRShape
Left = 89
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
235.479166666667
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape4: TQRShape
Left = 250
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
661.458333333333
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape1: TQRShape
Left = 323
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
854.604166666667
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape6: TQRShape
Left = 536
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
1418.16666666667
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRDBText1: TQRDBText
Left = 357
Top = 3
Width = 37
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
944.5625
7.9375
97.8958333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'prefig'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Mask = '0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape11: TQRShape
Left = 399
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
1055.6875
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRDBText2: TQRDBText
Left = 405
Top = 3
Width = 49
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1071.5625
7.9375
129.645833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'consumer'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Mask = '0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape13: TQRShape
Left = 1
Top = 19
Width = 715
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
2.64583333333333
50.2708333333333
1891.77083333333)
Shape = qrsRectangle
end
object QRShape15: TQRShape
Left = 458
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
1211.79166666667
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRShape17: TQRShape
Left = 622
Top = -1
Width = 1
Height = 21
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
55.5625
1645.70833333333
-2.64583333333333
2.64583333333333)
Shape = qrsRectangle
end
object QRDBText3: TQRDBText
Left = 471
Top = 3
Width = 55
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
1246.1875
7.9375
145.520833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'curfrefig'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Mask = '0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText4: TQRDBText
Left = 559
Top = 3
Width = 55
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
1479.02083333333
7.9375
145.520833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'prefrefig'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Mask = '0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText5: TQRDBText
Left = 631
Top = 3
Width = 55
Height = 13
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
34.3958333333333
1669.52083333333
7.9375
145.520833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'confrefig'
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = '宋体'
Font.Style = []
Mask = '0.00'
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
end
end
object DataSource1: TDataSource
Left = 68
end
object Query1: TQuery
Constrained = True
RequestLive = True
SQL.Strings = (
' select mtr.mno,mtr.name,mtr.address,rmt.uno,dst.name,max(rmt.fr' +
'efig) as curfrefig,min(rmt.frefig) as prefrefig,(max(rmt.frefig)' +
'-min(rmt.frefig)) as confrefig,max(rmt.fig) as curfig,min(rmt.fi' +
'g) as prefig,(max(rmt.fig)-min(rmt.fig)) as consumer'
' from RMT,mtr,dst'
' where (RMT.RDT =:parrdt or rmt.rdt=:parrdt1)'
' and (rmt.uno=mtr.uno)'
' and (rmt.dno=mtr.dno)'
' and (rmt.dno=:pardno)'
' and (dst.dno=:pardno)'
'group by mtr.mno,mtr.name,mtr.address,rmt.uno,dst.name;'
''
''
''
' '
' '
' '
' '
' '
' '
' '
' ')
Left = 103
Top = 2
ParamData = <
item
DataType = ftString
Name = 'parrdt'
ParamType = ptInput
Value = ''
end
item
DataType = ftString
Name = 'parrdt1'
ParamType = ptInput
Value = ''
end
item
DataType = ftString
Name = 'pardno'
ParamType = ptInput
Value = ''
end
item
DataType = ftString
Name = 'pardno'
ParamType = ptInput
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -