?? custominprint.dfm
字號:
object QRDBText1: TQRDBText
Left = 8
Top = 6
Width = 29
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
21.1666666666667
15.875
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'name'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 72
Top = 6
Width = 22
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
190.5
15.875
58.2083333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'Sex'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 136
Top = 6
Width = 57
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
359.833333333333
15.875
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'passtype'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 256
Top = 6
Width = 43
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
677.333333333333
15.875
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'passno'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 384
Top = 6
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1016
15.875
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'starttime'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 512
Top = 6
Width = 43
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1354.66666666667
15.875
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'roomno'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 600
Top = 6
Width = 50
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1587.5
15.875
132.291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQueryCustom
DataField = 'endtime'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape1: TQRShape
Left = 2
Top = 25
Width = 800
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
5.29166666666667
66.1458333333333
2116.66666666667)
Shape = qrsRectangle
end
object QRShape2: TQRShape
Left = 65
Top = -2
Width = 1
Height = 27
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
71.4375
171.979166666667
-5.29166666666667
2.64583333333333)
Shape = qrsRectangle
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 122
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 = rbSummary
object QRLabel10: TQRLabel
Left = 72
Top = 16
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
190.5
42.3333333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel10'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel11: TQRLabel
Left = 16
Top = 16
Width = 40
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
42.3333333333333
42.3333333333333
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = '人數為'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel12: TQRLabel
Left = 232
Top = 16
Width = 64
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
613.833333333333
42.3333333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel12'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
end
object ADOQueryCustom: TADOQuery
Connection = DM.ADOConnectionHotel
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.orderno,a.name,a.sex,a.passtype,a.passtype,a.passno,a.r' +
'oomno ,b.starttime,b.endtime from peoplewith a ,orders b where a' +
'.orderno=b.orderno')
Left = 376
Top = 184
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -