📄 frmreservation.frm
字号:
Height = 240
Left = 4050
TabIndex = 40
Top = 240
Width = 4605
_ExtentX = 8123
_ExtentY = 423
Color1 = 14737632
Color2 = 16119285
Caption = "Rate Information"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 4210752
End
Begin MSComCtl2.DTPicker dtpDateOut
Height = 345
Left = 9090
TabIndex = 41
Top = 1050
Width = 1815
_ExtentX = 3201
_ExtentY = 609
_Version = 393216
Format = 77266945
CurrentDate = 39536
End
Begin MSDataListLib.DataCombo dcIDType
Height = 315
Left = 1680
TabIndex = 42
Top = 3780
Width = 1815
_ExtentX = 3201
_ExtentY = 556
_Version = 393216
Style = 2
Text = ""
End
Begin MSDataListLib.DataCombo dcRateType
Height = 315
Left = 5760
TabIndex = 43
Top = 1530
Width = 1815
_ExtentX = 3201
_ExtentY = 556
_Version = 393216
Style = 2
Text = ""
End
Begin MSDataListLib.DataCombo dcBusSource
Height = 315
Left = 5760
TabIndex = 44
Top = 3210
Width = 1815
_ExtentX = 3201
_ExtentY = 556
_Version = 393216
Style = 2
Text = ""
End
Begin b8Controls4.b8GradLine b8GradLine2
Height = 240
Left = 240
TabIndex = 45
Top = 4650
Width = 3495
_ExtentX = 6165
_ExtentY = 423
Color1 = 14737632
Color2 = 16119285
Caption = "Vehicle Information"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = 4210752
End
Begin MSDataListLib.DataCombo dcVehicle
Height = 315
Left = 1650
TabIndex = 46
Top = 4920
Width = 1815
_ExtentX = 3201
_ExtentY = 556
_Version = 393216
Style = 2
Text = ""
End
Begin MSDataListLib.DataCombo dcRoomNumber
Height = 315
Left = 5760
TabIndex = 77
Top = 660
Width = 1815
_ExtentX = 3201
_ExtentY = 556
_Version = 393216
Style = 2
Text = ""
End
Begin VB.Label lblRM
AutoSize = -1 'True
BackStyle = 0 'Transparent
BeginProperty Font
Name = "Tahoma"
Size = 6.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 165
Left = 9450
TabIndex = 76
Top = 3030
Width = 45
End
Begin VB.Label Label22
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Total Charges"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 7650
TabIndex = 75
Top = 1950
Width = 1395
End
Begin VB.Label Label21
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Business Source"
Height = 300
Left = 4320
TabIndex = 74
Top = 3210
Width = 1395
End
Begin VB.Label Label20
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "No. of Childrens"
Height = 300
Left = 4320
TabIndex = 73
Top = 2790
Width = 1395
End
Begin VB.Label Label19
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "No. of Adults"
Height = 300
Left = 4320
TabIndex = 72
Top = 2370
Width = 1395
End
Begin VB.Label Label18
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "No. of Days"
Height = 300
Left = 4320
TabIndex = 71
Top = 1950
Width = 1395
End
Begin VB.Label Label17
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Discount"
Height = 300
Left = 7650
TabIndex = 70
Top = 3210
Width = 1395
End
Begin VB.Label lblRatePerPeriod
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Rate/Period"
ForeColor = &H00000000&
Height = 300
Left = 7650
TabIndex = 69
Top = 1500
Width = 1395
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Rate Type"
Height = 300
Left = 4320
TabIndex = 68
Top = 1530
Width = 1395
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Date Out"
Height = 300
Left = 7650
TabIndex = 67
Top = 1080
Width = 1395
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Date In"
Height = 300
Left = 4320
TabIndex = 66
Top = 1110
Width = 1395
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Room Number"
Height = 300
Left = 4320
TabIndex = 65
Top = 660
Width = 1395
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "ID Type"
Height = 300
Left = 240
TabIndex = 64
Top = 3780
Width = 1395
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "ID Number"
Height = 300
Left = 240
TabIndex = 63
Top = 4200
Width = 1395
End
Begin VB.Label Label6
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Country"
Height = 300
Left = 240
TabIndex = 62
Top = 2400
Width = 1395
End
Begin VB.Label Label5
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Company"
Height = 300
Left = 240
TabIndex = 61
Top = 2850
Width = 1395
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Address"
Height = 300
Left = 240
TabIndex = 60
Top = 1980
Width = 1395
End
Begin VB.Label Label3
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "First name"
Height = 300
Left = 240
TabIndex = 59
Top = 1530
Width = 1395
End
Begin VB.Label Label2
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Last name"
Height = 300
Left = 240
TabIndex = 58
Top = 1080
Width = 1395
End
Begin VB.Label Label1
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Reservation No"
Height = 300
Left = 240
TabIndex = 57
Top = 630
Width = 1395
End
Begin VB.Label Label25
BackStyle = 0 'Transparent
Caption = "%"
Height = 315
Left = 10680
TabIndex = 56
Top = 3180
Width = 165
End
Begin VB.Line Line1
BorderStyle = 3 'Dot
X1 = 516
X2 = 516
Y1 = 44
Y2 = 274
End
Begin VB.Label lblOtherCharges
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Other Charges"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 300
Left = 7650
TabIndex = 55
Top = 2370
Width = 1395
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
BackStyle = 0 'Transparent
Caption = "Sub Total"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 300
Left = 7650
TabIndex = 54
Top = 2790
Width = 1395
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -