📄 frmroomstatus.frm
字号:
VERSION 5.00
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmRoomSta
BackColor = &H00C0C000&
ClientHeight = 3195
ClientLeft = 60
ClientTop = 3765
ClientWidth = 4680
ControlBox = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin Project1.MarqueeText MarqueeText1
Height = 345
Left = -120
Top = 11040
Width = 15480
_extentx = 27120
_extenty = 1085
backcolor = 128
backstyle = 0
font = "frmRoomStatus.frx":0000
forecolor = 65535
text = "Room Status of the Hotel"
End
Begin VB.ListBox lstOccupied
BackColor = &H0080FFFF&
Height = 3420
ItemData = "frmRoomStatus.frx":002C
Left = 2520
List = "frmRoomStatus.frx":002E
Sorted = -1 'True
TabIndex = 9
Top = 5520
Width = 1335
End
Begin VB.ListBox lstVacant
BackColor = &H0080FFFF&
Height = 3420
ItemData = "frmRoomStatus.frx":0030
Left = 1200
List = "frmRoomStatus.frx":0244
Sorted = -1 'True
TabIndex = 8
Top = 5520
Width = 1335
End
Begin Project1.XPButton cmdShow
Height = 495
Left = 7800
TabIndex = 4
Top = 7800
Width = 4935
_extentx = 8705
_extenty = 873
font = "frmRoomStatus.frx":05B8
caption = "Show Details"
forecolor = 192
forehover = 33023
End
Begin MSAdodcLib.Adodc Adodc1
Height = 375
Left = 6360
Top = 9960
Visible = 0 'False
Width = 2895
_ExtentX = 5106
_ExtentY = 661
ConnectMode = 0
CursorLocation = 3
IsolationLevel = -1
ConnectionTimeout= 15
CommandTimeout = 30
CursorType = 3
LockType = 3
CommandType = 2
CursorOptions = 0
CacheSize = 50
MaxRecords = 0
BOFAction = 0
EOFAction = 0
ConnectStringType= 1
Appearance = 1
BackColor = -2147483643
ForeColor = -2147483640
Orientation = 0
Enabled = -1
Connect = "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"
OLEDBString = "Provider=MSDAORA.1;Password=tiger;User ID=scott;Persist Security Info=True"
OLEDBFile = ""
DataSourceName = ""
OtherAttributes = ""
UserName = ""
Password = ""
RecordSource = "CHECK_IN"
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 178
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
_Version = 393216
End
Begin VB.ListBox lstReservations
Appearance = 0 'Flat
BackColor = &H0080FFFF&
ForeColor = &H00000000&
Height = 5550
ItemData = "frmRoomStatus.frx":05E4
Left = 7440
List = "frmRoomStatus.frx":05E6
TabIndex = 0
Top = 1920
Width = 1095
End
Begin Project1.XPButton cmdExit
Height = 495
Left = 12960
TabIndex = 1
Top = 10200
Width = 1755
_extentx = 3096
_extenty = 873
font = "frmRoomStatus.frx":05E8
caption = "Exit"
forecolor = 192
forehover = 16711680
End
Begin Project1.XPButton cmdRback
Height = 495
Left = 11040
TabIndex = 3
Top = 10200
Width = 1695
_extentx = 2990
_extenty = 873
font = "frmRoomStatus.frx":0614
caption = "<< Back"
forecolor = 192
forehover = 16711680
End
Begin MSComCtl2.MonthView MonthView1
Height = 2820
Left = 600
TabIndex = 2
Top = 1080
Width = 3750
_ExtentX = 6615
_ExtentY = 4974
_Version = 393216
ForeColor = 128
BackColor = 65280
Appearance = 1
MonthBackColor = 65280
StartOfWeek = 69861377
TitleBackColor = 65535
TitleForeColor = 16384
TrailingForeColor= 0
CurrentDate = 38207
End
Begin VB.Image Image2
Height = 240
Left = 14760
Picture = "frmRoomStatus.frx":0640
Top = 120
Width = 270
End
Begin VB.Image Image1
Height = 360
Left = -1080
Picture = "frmRoomStatus.frx":0A02
Top = 0
Width = 17595
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Occupied "
Height = 240
Left = 2640
TabIndex = 11
Top = 5160
Width = 1065
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Room No."
Height = 240
Left = 1320
TabIndex = 10
Top = 5160
Width = 1050
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5175
Left = 480
TabIndex = 7
Top = 4440
Width = 4215
End
Begin VB.Label lblDetails
Appearance = 0 'Flat
BackColor = &H0080FFFF&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 5535
Left = 8520
TabIndex = 6
Top = 1920
Width = 4575
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H00FF8080&
BorderStyle = 1 'Fixed Single
ForeColor = &H80000008&
Height = 7335
Left = 6840
TabIndex = 5
Top = 1440
Width = 6855
End
Begin VB.Line Line1
BorderColor = &H000000FF&
BorderWidth = 3
X1 = 5400
X2 = 5400
Y1 = -480
Y2 = 11040
End
End
Attribute VB_Name = "frmRoomSta"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
If MsgBox("Are you sure you want to exit Hotel Mangement Sytem ?", vbQuestion + vbYesNo, "Confirm Exit !") = vbYes Then
End
End If
End Sub
Private Sub cmdRback_Click()
frmRoomSta.Visible = False
frmMain.Show
End Sub
Private Sub cmdShow_Click()
Dim intVstNo As Single
Dim strCriteria As String
Adodc1.Recordset.MoveFirst
lblDetails = ""
intVstNo = lstReservations.List(lstReservations.ListIndex)
strCriteria = "Visitor_No =" & intVstNo
Adodc1.Recordset.Find strCriteria, 0, adSearchForward, adBookmarkCurrent
If Adodc1.Recordset.EOF = False Then
lblDetails = lblDetails + " Visitor's Number : " + Str(Adodc1.Recordset.Fields("Visitor_no").Value) + Chr(13) + Chr(13)
lblDetails = lblDetails + " Room Number : " + Str(Adodc1.Recordset.Fields("room_no").Value) + Chr(13) + Chr(13)
lblDetails = lblDetails + " Date of Arrival : " + Str(Adodc1.Recordset.Fields("Date_of_Arrival").Value) + Chr(13) + Chr(13)
lblDetails = lblDetails + " Name : " + Adodc1.Recordset.Fields("Name") + Chr(13) + Chr(13)
lblDetails = lblDetails + " Age : " + Str(Adodc1.Recordset.Fields("Age").Value) + Chr(13) + Chr(13)
lblDetails = lblDetails + " Address : " + Adodc1.Recordset.Fields("Address") + Chr(13) + Chr(13)
lblDetails = lblDetails + " City : " + Adodc1.Recordset.Fields("City") + Chr(13) + Chr(13)
lblDetails = lblDetails + " Pin code : " + Str(Adodc1.Recordset.Fields("Pincode").Value) + Chr(13) + Chr(13)
lblDetails = lblDetails + " Phone : " + Str(Adodc1.Recordset.Fields("Phone").Value) + Chr(13) + Chr(13)
lblDetails = lblDetails + " Arrival Time : " + Adodc1.Recordset.Fields("Arrival_time") + Chr(13) + Chr(13)
lblDetails = lblDetails + " Sex : " + Adodc1.Recordset.Fields("Sex") + Chr(13) + Chr(13)
End If
End Sub
Private Sub Form_Load()
MsgBox "Connecting Oracle.Please wait...", vbInformation, "Wait"
Adodc1.Refresh
lstReservations.Clear
lstOccupied.Clear
Do While Adodc1.Recordset.EOF = False
lstReservations.AddItem Adodc1.Recordset.Fields("Visitor_No")
lstOccupied.AddItem Adodc1.Recordset.Fields("Room_No")
Adodc1.Recordset.MoveNext
Loop
End Sub
Private Sub Image2_Click()
frmRoomSta.Visible = False
frmMain.Show
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -