📄 frmresadd.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmResAdd
BackColor = &H00C0C000&
ClientHeight = 3195
ClientLeft = 60
ClientTop = 1200
ClientWidth = 4680
ControlBox = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
LinkTopic = "Form1"
ScaleHeight = 11115
ScaleWidth = 15240
WindowState = 2 'Maximized
Begin Project1.MarqueeText MarqueeText1
Height = 525
Left = -120
Top = 10560
Width = 15480
_extentx = 27305
_extenty = 926
backcolor = 128
backstyle = 0
font = "frmResAdd.frx":0000
forecolor = 65535
text = "Adding records to Reservation account"
End
Begin VB.TextBox txtREstArrival
BeginProperty DataFormat
Type = 1
Format = "M/dd/yy"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 3
EndProperty
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 11
Top = 4560
Width = 4455
End
Begin VB.TextBox txtRPhone
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 10
Top = 3840
Width = 4455
End
Begin VB.TextBox txtRAddress
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 9
Top = 3120
Width = 4455
End
Begin VB.TextBox txtRName
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 8
Top = 2400
Width = 4455
End
Begin VB.TextBox txtRDate
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 7
Top = 1680
Width = 4455
End
Begin VB.ComboBox comRRoomType
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
ItemData = "frmResAdd.frx":002C
Left = 7920
List = "frmResAdd.frx":0039
TabIndex = 6
Top = 8160
Width = 4455
End
Begin VB.ComboBox comRSex
DataField = "SEX"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 360
ItemData = "frmResAdd.frx":0067
Left = 7920
List = "frmResAdd.frx":0071
TabIndex = 5
Top = 7440
Width = 4455
End
Begin VB.TextBox txtrAge
DataField = "AGE"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 4
Top = 5280
Width = 4455
End
Begin VB.TextBox txtRCity
DataField = "CITY"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 3
Top = 6000
Width = 4455
End
Begin VB.TextBox txtRPincode
DataField = "PINCODE"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 405
Left = 7920
TabIndex = 2
Top = 6720
Width = 4455
End
Begin Project1.XPButton cmdExit
Height = 495
Left = 11040
TabIndex = 0
Top = 9480
Width = 1815
_extentx = 4895
_extenty = 873
font = "frmResAdd.frx":0083
caption = "Exit"
forecolor = 12582912
forehover = 255
End
Begin VB.Timer Timer1
Interval = 100
Left = 960
Top = 1080
End
Begin Project1.XPButton cmdRback
Height = 495
Left = 8880
TabIndex = 1
Top = 9480
Width = 1815
_extentx = 2355
_extenty = 873
font = "frmResAdd.frx":00AF
caption = "<< Back"
forecolor = 12582912
forehover = 255
End
Begin Project1.XPButton cmdRSave
Height = 495
Left = 6720
TabIndex = 12
Top = 9480
Width = 1935
_extentx = 2990
_extenty = 1085
font = "frmResAdd.frx":00DB
caption = "Save"
forecolor = 12582912
forehover = 255
End
Begin MSComCtl2.MonthView MonthView1
Height = 2820
Left = 360
TabIndex = 23
Top = 3000
Width = 3750
_ExtentX = 6615
_ExtentY = 4974
_Version = 393216
ForeColor = 128
BackColor = 65280
Appearance = 1
MonthBackColor = 8454016
StartOfWeek = 61997057
TitleBackColor = 65535
TitleForeColor = 16384
TrailingForeColor= 0
CurrentDate = 38207
End
Begin VB.Image Image3
Height = 240
Left = 14880
Picture = "frmResAdd.frx":0107
Top = 120
Width = 270
End
Begin VB.Image Image1
Height = 360
Left = -1320
Picture = "frmResAdd.frx":04C9
Top = 0
Width = 17595
End
Begin VB.Image Image2
Height = 240
Left = 16200
Picture = "frmResAdd.frx":0F84
Top = 120
Width = 270
End
Begin VB.Label Label23
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Date"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -