📄 zhou_pin_tong_report.~dfm
字号:
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
2264.83333333333
5.29166666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape30: TQRShape
Left = 947
Top = 2
Width = 1
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
2505.60416666667
5.29166666666667
2.64583333333333)
Shape = qrsRectangle
end
object QRShape31: TQRShape
Left = 1043
Top = 2
Width = 1
Height = 450
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
1190.625
2759.60416666667
5.29166666666667
2.64583333333333)
Pen.Width = 2
Shape = qrsRectangle
end
object QRDBText6: TQRDBText
Left = 522
Top = 7
Width = 49
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1381.125
18.5208333333333
129.645833333333)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'bu_liang'
Mask = '0.00'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExpr4: TQRExpr
Left = 599
Top = 8
Width = 362
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1584.85416666667
21.1666666666667
957.791666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -13
Font.Name = 'Arial'
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'IF(Table2.bu_liang<>0,Query1.bu_liang/Table2.bu_liang*100,0)'
Mask = '0.00'
FontSize = 10
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 218
Width = 1047
Height = 37
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 = (
97.8958333333333
2770.1875)
BandType = rbSummary
object QRLabel23: TQRLabel
Left = 416
Top = 8
Width = 105
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1100.66666666667
21.1666666666667
277.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '===='#20197#19979#31354#30333'===='
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape32: TQRShape
Left = 3
Top = 2
Width = 1
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
7.9375
5.29166666666667
2.64583333333333)
Pen.Width = 2
Shape = qrsRectangle
end
object QRShape33: TQRShape
Left = 1043
Top = 2
Width = 1
Height = 33
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
87.3125
2759.60416666667
5.29166666666667
2.64583333333333)
Pen.Width = 2
Shape = qrsRectangle
end
object QRShape35: TQRShape
Left = 3
Top = 0
Width = 1040
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
7.9375
0
2751.66666666667)
Shape = qrsRectangle
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 255
Width = 1047
Height = 218
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 = (
576.791666666667
2770.1875)
BandType = rbPageFooter
object QRShape34: TQRShape
Left = 3
Top = 1
Width = 1040
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
7.9375
2.64583333333333
2751.66666666667)
Pen.Width = 2
Shape = qrsRectangle
end
object QRLabel24: TQRLabel
Left = 36
Top = 185
Width = 37
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
95.25
489.479166666667
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21046#34920':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel25: TQRLabel
Left = 804
Top = 8
Width = 37
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
2127.25
21.1666666666667
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #23529#26680':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel26: TQRLabel
Left = 88
Top = 185
Width = 37
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
232.833333333333
489.479166666667
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21046#34920':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData1: TQRSysData
Left = 411
Top = 185
Width = 68
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1087.4375
489.479166666667
179.916666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDateTime
Transparent = False
FontSize = 10
end
object QRLabel27: TQRLabel
Left = 342
Top = 185
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
904.875
489.479166666667
171.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21015#21360#26178#38291
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRChart1: TQRChart
Left = 24
Top = 5
Width = 519
Height = 170
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
449.791666666667
63.5
13.2291666666667
1373.1875)
object QRDBChart1: TQRDBChart
Left = -1
Top = -1
Width = 1
Height = 1
BackWall.Brush.Color = clWhite
Title.Font.Charset = ANSI_CHARSET
Title.Font.Color = clBlue
Title.Font.Height = -19
Title.Font.Name = #27161#26999#39636
Title.Font.Style = [fsBold]
Title.Text.Strings = (
#37096#38272#19981#33391#23565#29031#22294)
View3DOptions.Elevation = 315
View3DOptions.Orthogonal = False
View3DOptions.Perspective = 0
View3DOptions.Rotation = 360
object Series1: TBarSeries
ColorEachPoint = True
Marks.ArrowLength = 20
Marks.Visible = True
DataSource = Query1
SeriesColor = clRed
Title = #19981#33391#25976
XLabelsSource = 'bumen'
XValues.DateTime = False
XValues.Name = 'X'
XValues.Multiplier = 1
XValues.Order = loAscending
YValues.DateTime = False
YValues.Name = 'Bar'
YValues.Multiplier = 1
YValues.Order = loNone
YValues.ValueSource = 'bu_liang'
end
end
end
end
end
object Query1: TQuery
Active = True
DatabaseName = 'aa'
SQL.Strings = (
'select * from zhou_bumen_tong')
Left = 88
Top = 32
end
object DataSource1: TDataSource
DataSet = Query1
Left = 184
Top = 72
end
object Query2: TQuery
DatabaseName = 'aa'
Left = 304
Top = 40
end
object xws: TStoredProc
DatabaseName = 'aa'
StoredProcName = 'edit_ying;1'
Left = 296
Top = 40
ParamData = <
item
DataType = ftInteger
Name = 'RETURN_VALUE'
ParamType = ptResult
Value = 0
end
item
DataType = ftInteger
Name = '@str1'
ParamType = ptInput
end
item
DataType = ftInteger
Name = '@str2'
ParamType = ptInput
end
item
DataType = ftString
Name = '@str3'
ParamType = ptInput
end>
end
object Table1: TTable
Active = True
DatabaseName = 'aa'
TableName = 'dbo.zhou_bumen_tong'
Left = 256
Top = 40
end
object sp2: TStoredProc
Active = True
DatabaseName = 'aa'
StoredProcName = 'tong_bumen_bu_liang;1'
Left = 8
Top = 208
ParamData = <
item
DataType = ftInteger
Name = 'RETURN_VALUE'
ParamType = ptResult
Value = -858993460
end
item
DataType = ftDateTime
Name = '@str1'
ParamType = ptInput
end
item
DataType = ftDateTime
Name = '@str2'
ParamType = ptInput
end
item
DataType = ftString
Name = '@str3'
ParamType = ptInput
end>
end
object Table2: TTable
Active = True
DatabaseName = 'aa'
TableName = 'dbo.xiang_du'
Left = 264
Top = 96
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -