📄 unit_reportmonthstatistic.dfm
字号:
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRShape13: TQRShape
Left = 606
Top = 99
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
1603.375000000000000000
261.937500000000000000
2.645833333333333000)
Shape = qrsVertLine
end
end
object DetailBand1: TQRBand
Left = 38
Top = 169
Width = 718
Height = 33
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 = (
87.312500000000000000
1899.708333333333000000)
BandType = rbDetail
object QRShape6: TQRShape
Left = 0
Top = -1
Width = 718
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.958333333333340000
0.000000000000000000
-2.645833333333333000
1899.708333333333000000)
Shape = qrsRectangle
end
object QRShape7: TQRShape
Left = 107
Top = 0
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
283.104166666666700000
0.000000000000000000
2.645833333333333000)
Shape = qrsVertLine
end
object QRShape8: TQRShape
Left = 203
Top = 0
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
537.104166666666800000
0.000000000000000000
2.645833333333333000)
Shape = qrsVertLine
end
object QRShape9: TQRShape
Left = 303
Top = 0
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
801.687500000000100000
0.000000000000000000
2.645833333333333000)
Shape = qrsVertLine
end
object QRShape10: TQRShape
Left = 398
Top = 0
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
1053.041666666667000000
0.000000000000000000
2.645833333333333000)
Shape = qrsVertLine
end
object CusNo: TQRDBText
Left = 16
Top = 8
Width = 51
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
42.333333333333330000
21.166666666666670000
134.937500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'that_day'
Transparent = False
WordWrap = True
FontSize = 10
end
object CusName: TQRDBText
Left = 128
Top = 8
Width = 58
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
338.666666666666700000
21.166666666666670000
153.458333333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'consumer'
Transparent = False
WordWrap = True
FontSize = 10
end
object CusSex: TQRDBText
Left = 226
Top = 8
Width = 48
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
597.958333333333300000
21.166666666666670000
127.000000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'member'
Transparent = False
WordWrap = True
FontSize = 10
end
object CusMobile: TQRDBText
Left = 328
Top = 8
Width = 37
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
867.833333333333300000
21.166666666666670000
97.895833333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'others'
Transparent = False
WordWrap = True
FontSize = 10
end
object CusAddress: TQRDBText
Left = 432
Top = 6
Width = 29
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1143.000000000000000000
15.875000000000000000
76.729166666666670000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'cash'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 536
Top = 6
Width = 26
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1418.166666666667000000
15.875000000000000000
68.791666666666670000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'card'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape12: TQRShape
Left = 502
Top = 1
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
1328.208333333333000000
2.645833333333333000
2.645833333333333000)
Shape = qrsVertLine
end
object QRDBText3: TQRDBText
Left = 640
Top = 6
Width = 26
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1693.333333333333000000
15.875000000000000000
68.791666666666670000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = qry_main
DataField = 'total'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape14: TQRShape
Left = 606
Top = 1
Width = 1
Height = 31
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
82.020833333333340000
1603.375000000000000000
2.645833333333333000
2.645833333333333000)
Shape = qrsVertLine
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 202
Width = 718
Height = 40
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 = (
105.833333333333300000
1899.708333333333000000)
BandType = rbPageFooter
object QRSysData1: TQRSysData
Left = 335
Top = 13
Width = 57
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
886.354166666666700000
34.395833333333330000
150.812500000000000000)
Alignment = taCenter
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
FontSize = 11
end
object QRLabel20: TQRLabel
Left = 317
Top = 14
Width = 16
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
838.729166666666700000
37.041666666666670000
42.333333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31532
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRLabel21: TQRLabel
Left = 395
Top = 13
Width = 16
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.333333333333330000
1045.104166666667000000
34.395833333333330000
42.333333333333330000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39029
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
end
end
object qry_main: TQuery
DatabaseName = 'MeiRong'
SQL.Strings = (
'select * from costmonthstatistic where year_month=:yearmonth')
Left = 62
Top = 51
ParamData = <
item
DataType = ftString
Name = 'yearmonth'
ParamType = ptInput
Value = ''
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -