📄 form2.frm
字号:
VERSION 5.00
Object = "{3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0"; "RICHTX32.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TabCtl32.ocx"
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
ClientHeight = 6810
ClientLeft = 150
ClientTop = 435
ClientWidth = 9405
Icon = "Form2.frx":0000
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 6810
ScaleWidth = 9405
StartUpPosition = 1 'CenterOwner
Begin TabDlg.SSTab SSTab2
Height = 6615
Left = 120
TabIndex = 0
Top = 120
Width = 9180
_ExtentX = 16193
_ExtentY = 11668
_Version = 393216
Tabs = 5
Tab = 4
TabsPerRow = 5
TabHeight = 520
BackColor = 14737632
TabCaption(0) = "MAIN"
TabPicture(0) = "Form2.frx":08CA
Tab(0).ControlEnabled= 0 'False
Tab(0).Control(0)= "Label45"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label46"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Picture2"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).ControlCount= 3
TabCaption(1) = "ISSUE of ROOMS"
TabPicture(1) = "Form2.frx":08E6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Frame8"
Tab(1).Control(1)= "Frame1"
Tab(1).Control(2)= "Data3"
Tab(1).Control(3)= "Data2"
Tab(1).Control(4)= "Data1"
Tab(1).Control(5)= "Frame7"
Tab(1).Control(6)= "Label37"
Tab(1).Control(7)= "Label1(0)"
Tab(1).ControlCount= 8
TabCaption(2) = "BOOKING"
TabPicture(2) = "Form2.frx":0902
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame3"
Tab(2).Control(1)= "Frame4"
Tab(2).Control(2)= "Frame2"
Tab(2).Control(3)= "Label18"
Tab(2).Control(4)= "Label24"
Tab(2).ControlCount= 5
TabCaption(3) = "Checkout Details"
TabPicture(3) = "Form2.frx":091E
Tab(3).ControlEnabled= 0 'False
Tab(3).Control(0)= "Frame6"
Tab(3).Control(1)= "Frame5"
Tab(3).Control(2)= "Label15"
Tab(3).Control(3)= "Label43"
Tab(3).ControlCount= 4
TabCaption(4) = "About Author"
TabPicture(4) = "Form2.frx":093A
Tab(4).ControlEnabled= -1 'True
Tab(4).Control(0)= "Image1(0)"
Tab(4).Control(0).Enabled= 0 'False
Tab(4).Control(1)= "Image1(1)"
Tab(4).Control(1).Enabled= 0 'False
Tab(4).Control(2)= "Line1(0)"
Tab(4).Control(2).Enabled= 0 'False
Tab(4).Control(3)= "Line1(1)"
Tab(4).Control(3).Enabled= 0 'False
Tab(4).Control(4)= "Label8(1)"
Tab(4).Control(4).Enabled= 0 'False
Tab(4).Control(5)= "Label7(1)"
Tab(4).Control(5).Enabled= 0 'False
Tab(4).Control(6)= "Label2(1)"
Tab(4).Control(6).Enabled= 0 'False
Tab(4).Control(7)= "Label3(1)"
Tab(4).Control(7).Enabled= 0 'False
Tab(4).Control(8)= "Label5(1)"
Tab(4).Control(8).Enabled= 0 'False
Tab(4).Control(9)= "Label6(1)"
Tab(4).Control(9).Enabled= 0 'False
Tab(4).Control(10)= "Label4(1)"
Tab(4).Control(10).Enabled= 0 'False
Tab(4).Control(11)= "Image1(2)"
Tab(4).Control(11).Enabled= 0 'False
Tab(4).Control(12)= "Image2"
Tab(4).Control(12).Enabled= 0 'False
Tab(4).Control(13)= "Label13"
Tab(4).Control(13).Enabled= 0 'False
Tab(4).ControlCount= 14
Begin VB.Frame Frame8
Height = 5055
Left = -74760
TabIndex = 104
Top = 1320
Width = 2415
Begin VB.CommandButton Command20
Caption = "Room status"
Height = 375
Left = 240
TabIndex = 107
Top = 3720
Width = 1815
End
Begin VB.ListBox List4
Height = 2985
Index = 0
ItemData = "Form2.frx":0956
Left = 1200
List = "Form2.frx":0958
TabIndex = 106
Top = 480
Width = 1095
End
Begin VB.ListBox List4
Height = 2985
Index = 1
ItemData = "Form2.frx":095A
Left = 120
List = "Form2.frx":095C
TabIndex = 105
Top = 480
Width = 1095
End
Begin VB.Timer Timer1
Interval = 100
Left = 2280
Top = 120
End
Begin VB.Label Label42
Caption = "Vacant"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 1440
TabIndex = 109
Top = 240
Width = 615
End
Begin VB.Label Label41
Caption = "Occupied"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 255
Left = 240
TabIndex = 108
Top = 240
Width = 975
End
End
Begin VB.Frame Frame1
Height = 855
Left = -72240
TabIndex = 100
Top = 5520
Width = 6135
Begin VB.TextBox Text8
Height = 285
Left = 840
TabIndex = 102
Top = 360
Width = 3135
End
Begin VB.CommandButton Command3
Caption = "Search"
Height = 375
Left = 4080
TabIndex = 101
Top = 360
Width = 1215
End
Begin VB.Label Label12
Caption = "Name"
Height = 255
Left = 240
TabIndex = 103
Top = 360
Width = 495
End
End
Begin VB.Data Data3
Caption = "Data3"
Connect = "Access"
DatabaseName = "db\hotel2.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -73440
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = ""
Top = 360
Visible = 0 'False
Width = 1860
End
Begin VB.Data Data2
Caption = "Data2"
Connect = "Access"
DatabaseName = "db\hotel2.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -71520
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "reservation"
Top = 360
Visible = 0 'False
Width = 1860
End
Begin VB.Data Data1
Caption = "Data1"
Connect = "Access"
DatabaseName = "db\hotel2.mdb"
DefaultCursorType= 0 'DefaultCursor
DefaultType = 2 'UseODBC
Exclusive = 0 'False
Height = 345
Left = -69600
Options = 0
ReadOnly = 0 'False
RecordsetType = 1 'Dynaset
RecordSource = "room"
Top = 360
Visible = 0 'False
Width = 1860
End
Begin VB.Frame Frame7
Height = 4215
Left = -72240
TabIndex = 70
Top = 1320
Width = 6135
Begin VB.CommandButton Command4
Caption = "Update"
Height = 375
Left = 3840
TabIndex = 89
Top = 2880
Width = 855
End
Begin VB.CommandButton Command2
Caption = "Edit"
Height = 375
Left = 4920
TabIndex = 88
Top = 2280
Width = 855
End
Begin VB.CommandButton Command1
Caption = "Add"
Height = 375
Left = 3840
TabIndex = 87
Top = 2280
Width = 855
End
Begin VB.ComboBox Combo2
Height = 315
ItemData = "Form2.frx":095E
Left = 4800
List = "Form2.frx":099B
TabIndex = 86
Top = 1320
Width = 735
End
Begin VB.TextBox Text9
Height = 285
Left = 4800
TabIndex = 85
Top = 360
Width = 1095
End
Begin VB.TextBox Text7
Height = 285
Left = 1200
TabIndex = 84
Top = 3240
Width = 1815
End
Begin VB.TextBox Text6
Height = 285
Left = 1200
TabIndex = 83
Top = 2760
Width = 1815
End
Begin VB.TextBox Text5
Height = 285
Left = 1200
TabIndex = 82
Top = 2280
Width = 1815
End
Begin VB.TextBox Text4
Height = 285
Left = 1200
TabIndex = 81
Top = 1800
Width = 2295
End
Begin VB.TextBox Text3
Height = 285
Left = 1200
TabIndex = 80
Top = 1320
Width = 495
End
Begin VB.ComboBox Combo1
Height = 315
ItemData = "Form2.frx":09FE
Left = 4800
List = "Form2.frx":0A08
TabIndex = 79
Top = 840
Width = 975
End
Begin VB.TextBox Text2
Height = 285
Left = 1200
TabIndex = 78
Top = 840
Width = 1815
End
Begin VB.TextBox Text1
Height = 285
Left = 1200
TabIndex = 77
Top = 360
Width = 1455
End
Begin VB.CommandButton Command14
Caption = "Remove"
Height = 375
Left = 4920
TabIndex = 76
Top = 2880
Width = 855
End
Begin VB.CommandButton Command15
Caption = "first"
Height = 255
Left = 600
TabIndex = 75
Top = 3840
Width = 615
End
Begin VB.CommandButton Command16
Caption = "next"
Height = 255
Left = 1440
TabIndex = 74
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -