📄 bromprint.dfm
字号:
object brom_print: Tbrom_print
Left = 193
Top = 107
Width = 543
Height = 372
HorzScrollBar.Position = 267
Caption = '打印宿舍记录'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '宋体'
Font.Style = []
OldCreateOrder = False
Scaled = False
PixelsPerInch = 96
TextHeight = 11
object QuickRep1: TQuickRep
Left = -275
Top = 0
Width = 794
Height = 1123
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
DataSet = sl_data.querys
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = '黑体'
Font.Style = []
Functions.Strings = (
'PAGENUMBER'
'COLUMNNUMBER'
'REPORTTITLE')
Functions.DATA = (
'0'
'0'
#39#39)
OnStartPage = QuickRep1StartPage
Options = [FirstPageHeader, LastPageFooter]
Page.Columns = 1
Page.Orientation = poPortrait
Page.PaperSize = A4
Page.Values = (
100
2970
100
2100
100
100
0)
PrinterSettings.Copies = 1
PrinterSettings.Duplex = False
PrinterSettings.FirstPage = 0
PrinterSettings.LastPage = 0
PrinterSettings.OutputBin = Auto
PrintIfEmpty = True
SnapToGrid = True
Units = MM
Zoom = 100
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 QRLabel1: TQRLabel
Left = 316
Top = 8
Width = 85
Height = 25
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
66.1458333333333
836.083333333333
21.1666666666667
224.895833333333)
Alignment = taCenter
AlignToBand = True
AutoSize = True
AutoStretch = False
Caption = '宿舍记录'
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -19
Font.Name = '楷体_GB2312'
Font.Style = [fsBold, fsItalic]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 14
end
object QRLabel22: TQRLabel
Left = 552
Top = 24
Width = 51
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1460.5
63.5
134.9375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '打印日期:'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRSysData1: TQRSysData
Left = 616
Top = 24
Width = 37
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1629.83333333333
63.5
97.8958333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Transparent = False
FontSize = 8
end
end
object ColumnHeaderBand1: TQRBand
Left = 38
Top = 78
Width = 718
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
ForceNewColumn = True
ForceNewPage = True
Size.Values = (
89.9583333333333
1899.70833333333)
BandType = rbColumnHeader
object QRShape1: TQRShape
Left = 0
Top = 0
Width = 694
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.9583333333333
0
0
1836.20833333333)
Shape = qrsRectangle
end
object QRShape2: TQRShape
Left = 64
Top = 0
Width = 69
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.9583333333333
169.333333333333
0
182.5625)
Shape = qrsRectangle
end
object QRShape3: TQRShape
Left = 264
Top = 0
Width = 58
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.9583333333333
698.5
0
153.458333333333)
Shape = qrsRectangle
end
object QRShape4: TQRShape
Left = 378
Top = 0
Width = 49
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.9583333333333
1000.125
0
129.645833333333)
Shape = qrsRectangle
end
object QRShape5: TQRShape
Left = 464
Top = 0
Width = 49
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.9583333333333
1227.66666666667
0
129.645833333333)
Shape = qrsRectangle
end
object QRShape6: TQRShape
Left = 552
Top = 0
Width = 142
Height = 34
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
89.9583333333333
1460.5
0
375.708333333333)
Shape = qrsRectangle
end
object QRLabel7: TQRLabel
Left = 568
Top = 10
Width = 23
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1502.83333333333
26.4583333333333
60.8541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '备注'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel11: TQRLabel
Left = 517
Top = 10
Width = 23
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1367.89583333333
26.4583333333333
60.8541666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '风扇'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel10: TQRLabel
Left = 480
Top = 10
Width = 23
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1270
26.4583333333333
60.8541666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '书桌'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel9: TQRLabel
Left = 436
Top = 10
Width = 23
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1153.58333333333
26.4583333333333
60.8541666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '衣柜'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel8: TQRLabel
Left = 392
Top = 10
Width = 23
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1037.16666666667
26.4583333333333
60.8541666666667)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '床铺'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel6: TQRLabel
Left = 326
Top = 10
Width = 45
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
862.541666666667
26.4583333333333
119.0625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '可用床位'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel5: TQRLabel
Left = 269
Top = 10
Width = 45
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
711.729166666667
26.4583333333333
119.0625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '床位总数'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel4: TQRLabel
Left = 136
Top = 10
Width = 23
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
359.833333333333
26.4583333333333
60.8541666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '地点'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 8
end
object QRLabel3: TQRLabel
Left = 76
Top = 10
Width = 45
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
201.083333333333
26.4583333333333
119.0625)
Alignment = taCenter
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '住房类别'
Color = clWhite
Transparent = False
WordWrap = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -