📄 h_inprint.dfm
字号:
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText5: TQRDBText
Left = 286
Top = 8
Width = 43
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
756.708333333333
21.1666666666667
113.770833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Table1
DataField = 'InPrice'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText6: TQRDBText
Left = 338
Top = 8
Width = 55
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
894.291666666667
21.1666666666667
145.520833333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Table1
DataField = 'SalePrice'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText7: TQRDBText
Left = 447
Top = 8
Width = 13
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1182.6875
21.1666666666667
34.3958333333333)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Table1
DataField = 'sl'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText8: TQRDBText
Left = 505
Top = 8
Width = 49
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1336.14583333333
21.1666666666667
129.645833333333)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Table1
DataField = 'Operator'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRDBText9: TQRDBText
Left = 617
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
1632.47916666667
21.1666666666667
97.8958333333333)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Table1
DataField = 'InTime'
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape2: TQRShape
Left = 4
Top = 28
Width = 710
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
10.5833333333333
74.0833333333333
1878.54166666667)
Pen.Style = psDot
Shape = qrsRectangle
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 168
Width = 718
Height = 30
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 = (
79.375
1899.70833333333)
BandType = rbPageFooter
object QRSysData1: TQRSysData
Left = 640
Top = 8
Width = 43
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1693.33333333333
21.1666666666667
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Transparent = False
FontSize = 9
end
object QRSysData2: TQRSysData
Left = 144
Top = 8
Width = 98
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
381
21.1666666666667
259.291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
Color = clWhite
Data = qrsDateTime
Transparent = False
FontSize = 9
end
object QRLabel14: TQRLabel
Left = 56
Top = 8
Width = 61
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
148.166666666667
21.1666666666667
161.395833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25253#34920#26085#26399#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 9
end
end
object PageHeaderBand1: TQRBand
Left = 38
Top = 38
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.833333333333
1899.70833333333)
BandType = rbPageHeader
object QRLabel13: TQRLabel
Left = 152
Top = 24
Width = 369
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
402.166666666667
63.5
976.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = '=============================================='
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 9
end
object QRLabel1: TQRLabel
Left = 224
Top = 8
Width = 221
Height = 20
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
52.9166666666667
592.666666666667
21.1666666666667
584.729166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #33836#20339#22300#23486#39302#21830#21697#20837#24211#25253#34920
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = #23435#20307
Font.Style = [fsBold]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 138
Width = 718
Height = 30
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 = (
79.375
1899.70833333333)
BandType = rbSummary
object QRLabel11: TQRLabel
Left = 400
Top = 8
Width = 81
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1058.33333333333
21.1666666666667
214.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Caption = #21512#35745#37329#39069#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 9
end
object QRExpr1: TQRExpr
Left = 488
Top = 8
Width = 187
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1291.16666666667
21.1666666666667
494.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(Table1.Inprice * Table1.sl)'
FontSize = 9
end
object QRLabel12: TQRLabel
Left = 560
Top = 8
Width = 13
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1481.66666666667
21.1666666666667
34.3958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20803
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 9
end
object QRShape3: TQRShape
Left = 4
Top = 28
Width = 710
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
10.5833333333333
74.0833333333333
1878.54166666667)
Shape = qrsRectangle
end
end
end
object Table1: TTable
Active = True
DatabaseName = 'Hotel'
TableName = 'H_in'
Left = 136
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -