📄 cai_gou_month_report.~dfm
字号:
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = StoredProc1
DataField = #32317#38989
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Arial'
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 9
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 207
Width = 1047
Height = 46
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 = (
121.708333333333
2770.1875)
BandType = rbPageFooter
object QRShape6: TQRShape
Left = 0
Top = 17
Width = 1045
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
0
44.9791666666667
2764.89583333333)
Pen.Width = 2
Shape = qrsRectangle
end
object QRLabel18: TQRLabel
Left = 825
Top = 23
Width = 69
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
47.625
2182.8125
60.8541666666667
182.5625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21015#21360#26085#26399':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData1: TQRSysData
Left = 904
Top = 24
Width = 68
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
2391.83333333333
63.5
179.916666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDateTime
Transparent = False
FontSize = 10
end
object QRLabel19: TQRLabel
Left = 673
Top = 22
Width = 37
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
47.625
1780.64583333333
58.2083333333333
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38913#30908':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 720
Top = 24
Width = 46
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1905
63.5
121.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Transparent = False
FontSize = 10
end
object QRLabel25: TQRLabel
Left = 456
Top = 21
Width = 53
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
47.625
1206.5
55.5625
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #32317#37329#38989':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRExpr1: TQRExpr
Left = 510
Top = 22
Width = 146
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1349.375
58.2083333333333
386.291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(StoredProc1.'#32317#38989')'
FontSize = 10
end
end
object PageHeaderBand1: TQRBand
Left = 38
Top = 38
Width = 1047
Height = 115
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 = (
304.270833333333
2770.1875)
BandType = rbPageHeader
object QRLabel1: TQRLabel
Left = 476
Top = 16
Width = 151
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
1259.41666666667
42.3333333333333
399.520833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25505#36092#32113#35336#22577#34920
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = #27161#26999#39636
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 18
end
object QRLabel2: TQRLabel
Left = 9
Top = 78
Width = 69
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
47.625
23.8125
206.375
182.5625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #19979#21934#26085' '#24478
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 169
Top = 78
Width = 17
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
47.625
447.145833333333
206.375
44.9791666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21040
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 88
Top = 78
Width = 58
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
232.833333333333
206.375
153.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel4'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 194
Top = 78
Width = 58
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
513.291666666667
206.375
153.458333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel5'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape1: TQRShape
Left = 86
Top = 101
Width = 73
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
227.541666666667
267.229166666667
193.145833333333)
Shape = qrsRectangle
end
object QRShape2: TQRShape
Left = 188
Top = 100
Width = 73
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
497.416666666667
264.583333333333
193.145833333333)
Shape = qrsRectangle
end
object QRShape3: TQRShape
Left = 3
Top = 107
Width = 1045
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
7.9375
283.104166666667
2764.89583333333)
Pen.Width = 2
Shape = qrsRectangle
end
object QRLabel16: TQRLabel
Left = 873
Top = 86
Width = 53
Height = 18
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
47.625
2309.8125
227.541666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #21046#34920#20154':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel17: TQRLabel
Left = 933
Top = 86
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
2468.5625
227.541666666667
171.979166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel17'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
object StoredProc1: TStoredProc
DatabaseName = 'vvv'
StoredProcName = 'ding_gou_report_month;1'
Left = 442
Top = 96
ParamData = <
item
DataType = ftInteger
Name = 'RETURN_VALUE'
ParamType = ptResult
Value = 0
end
item
DataType = ftDateTime
Name = '@str1'
ParamType = ptInput
end
item
DataType = ftDateTime
Name = '@str2'
ParamType = ptInput
end>
end
object DataSource1: TDataSource
DataSet = StoredProc1
Left = 232
Top = 112
end
object PrintDialog1: TPrintDialog
Left = 328
Top = 112
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -