📄 frmresdata.frm
字号:
EndProperty
NumItems = 13
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Reservation No."
Object.Width = 2593
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Reservation Date"
Object.Width = 2593
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Client Name"
Object.Width = 2646
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Date Reserved"
Object.Width = 2293
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "Time Start"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "Time End"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 6
Text = "Function"
Object.Width = 2117
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 7
Text = "Setup"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "Backdrop"
Object.Width = 4410
EndProperty
BeginProperty ColumnHeader(10) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 9
Text = "Meal Total"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(11) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 10
Text = "Confirmation Date"
Object.Width = 2734
EndProperty
BeginProperty ColumnHeader(12) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 11
Text = "Time Served"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(13) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 12
Text = "Status"
Object.Width = 2540
EndProperty
End
Begin MSComctlLib.ListView brd
Height = 1695
HelpContextID = 7
Left = 120
TabIndex = 17
ToolTipText = "Double Click to Select"
Top = 5040
WhatsThisHelpID = 7
Width = 8175
_ExtentX = 14420
_ExtentY = 2990
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
HotTracking = -1 'True
HoverSelection = -1 'True
TextBackground = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = 16777215
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 6
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Reservation No."
Object.Width = 2611
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Location"
Object.Width = 2787
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Engineering"
Object.Width = 2822
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Meal No"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "Quantity"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "Amount"
Object.Width = 2293
EndProperty
End
Begin VB.Label Label5
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Enter Reservation No."
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3840
TabIndex = 20
Top = 4680
Width = 1935
End
Begin VB.Label Label4
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Banquet Reservation Details"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = -120
TabIndex = 18
Top = 4680
Width = 2655
End
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "Room and Banquet Confirmation"
BeginProperty Font
Name = "Monotype Corsiva"
Size = 18
Charset = 0
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 240
TabIndex = 4
Top = 0
Width = 5775
End
Begin VB.Label Label2
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "Label2"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 9360
TabIndex = 3
Top = 240
Width = 1935
End
Begin VB.Label Label1
Caption = "last_name"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 360
TabIndex = 0
Top = -1680
Width = 1095
End
End
Attribute VB_Name = "frmConfirmation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ReservationStatus As String
Dim Status As String
Dim strRoomNo As String
Dim strConfirm As String
Dim strTransDate As String
Dim StrGuestID As String
Dim strLOS As String
Dim strCharges As String
Dim strBRN As String
Public T As Integer
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Command10_Click()
Text1.Text = ""
strBRN = ""
Command11.Caption = "CONFIRM"
Command11.Enabled = True
strConfirm = "CC"
fillBanquetCONDATE
lv.ForeColor = vbBlue
End Sub
Private Sub Command11_Click()
On Error GoTo r
If strConfirm = "CC" Then
Cnn.Execute "update banquet_reservation set status = '" & ReservationStatus & "' where banquet_res_no = " & strBRN
MsgBox "Banquet Reservation No " & strBRN & " has been confirmed", vbInformation, "IIS-CVH"
fillBanquetSHOWALL
strConfirm = "XX"
lv.ForeColor = vbBlack
ElseIf strConfirm = "DD" Then
If strBRN = "" Then
Else
Command11.Enabled = False
If MsgBox("Are you sure do you want to delete Reservation No. " & strBRN, vbYesNo) = vbYes Then
Cnn.Execute "delete from banquet_reservation where banquet_res_no = " & strBRN
Cnn.Execute "delete from banquet_res_details where banquet_res_no = " & strBRN
rs.Requery 1
MsgBox "Expired Banquet Reservation No " & strBRN & " has been deleted", vbInformation, "IIS-CVH"
Text1 = ""
strBRN = ""
fillBanquetSHOWALL
strConfirm = "XX"
lv.ForeColor = vbBlack
fillBanquetDetails
End If
End If
Else
MsgBox "Reservation is not in Confirmation Date, Press the button View Confirmation Date to show the list...", vbInformation, "IIS-CVH"
Text1.Text = ""
strBRN = ""
'command11.Enabled = False
Exit Sub
'End If
End If
r:
End Sub
Private Sub Command2_Click()
strConfirm = "X"
check_RS1
rs1.Open "select * from room_reservation", Cnn
fillShowAll
ll.ForeColor = vbBlack
End Sub
Private Sub Command3_Click()
strConfirm = "X"
If Command3.Caption = "View Confirmed" Then
Command3.Caption = "View Not Confirmed"
check_RS
rs.Open "select * from room_reservation", Cnn
fill
ll.ForeColor = vbBlack
ElseIf Command3.Caption = "View Not Confirmed" Then
Command3.Caption = "View Confirmed"
check_RS
rs.Open "select * from room_reservation", Cnn
filll
ll.ForeColor = vbBlack
End If
End Sub
Private Sub Command5_Click()
strConfirm = "C"
fillCon
ll.ForeColor = vbBlue
End Sub
Private Sub Command6_Click()
Unload Me
End Sub
Private Sub Command7_Click()
Text1.Text = ""
strBRN = ""
Command11.Enabled = False
strConfirm = "XX"
If Command7.Caption = "View Confirmed" Then
Command7.Caption = "View Not Confirmed"
check_RS
rs.Open "select * from Banquet_reservation", Cnn
fillBanquetResCON
lv.ForeColor = vbBlack
ElseIf Command7.Caption = "View Not Confirmed" Then
Command7.Caption = "View Confirmed"
check_RS
rs.Open "select * from banquet_reservation", Cnn
fillBanquetRes
lv.ForeColor = vbBlack
End If
End Sub
Private Sub Command8_Click()
Text1.Text = ""
strBRN = ""
Command11.Enabled = False
strConfirm = "XX"
check_RS
rs.Open "select * from banquet_reservation order by banquet_res_no asc", Cnn
fillBanquetSHOWALL
lv.ForeColor = vbBlack
End Sub
Private Sub Command9_Click()
Text1.Text = ""
strBRN = ""
Command11.Caption = "DELETE"
Command11.Enabled = True
strConfirm = "DD"
fillBanquetXFIRE
lv.ForeColor = vbRed
End Sub
Private Sub ll_Dblclick()
On Error GoTo r
If strConfirm = "C" Then
T = 1
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
While Not rs.EOF
If ll.SelectedItem.ListSubItems(6) = "Confirmed" Then
MsgBox "This reservation is already confirmed!", vbInformation, "HMS"
Exit Sub
End If
If ll.SelectedItem.Text = rs!room_res_no Then
strRoomNo = rs!room_no
strTransDate = rs!date_reserved
StrGuestID = rs!guest_id
strLOS = rs!lenght_of_stay
rs.MoveLast
rs.MoveNext
Else
rs.MoveNext
End If
Wend
Cnn.Execute "update room_reservation set status = '" & ReservationStatus & "' where room_res_no = " & ll.SelectedItem.Text
'=========
check_RStemp
rstemp.Open "select * from archive", Cnn
'================
While rstemp.RecordCount > 0
check_RStemp
T = T + 1
rstemp.Open "select * from archive where room_trans_no = " & T, Cnn
Wend
'================
If Status = "OCCUPIED" Then
Cnn.Execute "update room set status = '" & Status & "' where room_no = " & strRoomNo
End If
'================
check_RS2
rs2.Open "select * from room_transaction", Cnn
Cnn.Execute "insert into room_transaction (room_trans_no,room_trans_date,guest_id,room_no,lenght_of_stay,total_charges) values (" & T & ", '" & strTransDate & _
"', '" & StrGuestID & "', '" & strRoomNo & "', '" & strLOS & "', '" & strCharges & "')"
'================
check_RS1
rs1.Open "select * from archive", Cnn
Cnn.Execute "INSERT INTO archive (room_trans_no, guest_id, room_no, checkin_date) VALUES (" & T & ", '" & StrGuestID & _
"', '" & strRoomNo & "', '" & strTransDate & "')"
'================
MsgBox "Room Reservation No " & ll.SelectedItem.Text & " has been confirmed", vbInformation, "IIS-CVH"
fillShowAll
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -