⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 frmresdata.frm

📁 Call centeer gestion de usuarios todo ello gratis y bajo windows
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
strConfirm = "X"
ll.ForeColor = vbBlack
ElseIf strConfirm = "D" Then
If MsgBox("Are you sure do you want to delete Reservation No. " & ll.SelectedItem.Text, vbYesNo) = vbYes Then
Cnn.Execute "delete from room_reservation where room_res_no = " & ll.SelectedItem.Text
rs.Requery 1
MsgBox "Expired Room Reservation No " & ll.SelectedItem.Text & " has been deleted", vbInformation, "IIS-CVH"
fillShowAll
strConfirm = "X"
ll.ForeColor = vbBlack
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"
Exit Sub
End If
r:
End Sub
Private Sub fillBanquetRes()
check_RS
rs.Open "select * from banquet_reservation order by banquet_res_no asc", Cnn
lv.ListItems.Clear
lv.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(14) = "Not Confirmed" Then
lv.Refresh
lv.ListItems.Add
lv.ListItems(i).Text = rs(0).Value
lv.ListItems(i).SubItems(1) = rs(1).Value
lv.ListItems(i).SubItems(2) = rs(2).Value
lv.ListItems(i).SubItems(3) = rs(5).Value
lv.ListItems(i).SubItems(4) = rs(6).Value
If lv.ListItems(i).SubItems(4) = "6" Then
   lv.ListItems(i).SubItems(4) = "6:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "7" Then
   lv.ListItems(i).SubItems(4) = "7:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "8" Then
   lv.ListItems(i).SubItems(4) = "8:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "9" Then
   lv.ListItems(i).SubItems(4) = "9:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "10" Then
   lv.ListItems(i).SubItems(4) = "10:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "11" Then
   lv.ListItems(i).SubItems(4) = "11:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "12" Then
   lv.ListItems(i).SubItems(4) = "12:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "13" Then
   lv.ListItems(i).SubItems(4) = "1:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "14" Then
   lv.ListItems(i).SubItems(4) = "2:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "15" Then
   lv.ListItems(i).SubItems(4) = "3:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "16" Then
   lv.ListItems(i).SubItems(4) = "4:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "17" Then
   lv.ListItems(i).SubItems(4) = "5:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "18" Then
   lv.ListItems(i).SubItems(4) = "6:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "19" Then
   lv.ListItems(i).SubItems(4) = "7:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "20" Then
   lv.ListItems(i).SubItems(4) = "8:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "21" Then
   lv.ListItems(i).SubItems(4) = "9:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "22" Then
   lv.ListItems(i).SubItems(4) = "10:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "23" Then
   lv.ListItems(i).SubItems(4) = "11:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "24" Then
   lv.ListItems(i).SubItems(4) = "12:00 AM"
End If
lv.ListItems(i).SubItems(5) = rs(7).Value
If lv.ListItems(i).SubItems(5) = "6" Then
   lv.ListItems(i).SubItems(5) = "6:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "7" Then
   lv.ListItems(i).SubItems(5) = "7:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "8" Then
   lv.ListItems(i).SubItems(5) = "8:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "9" Then
   lv.ListItems(i).SubItems(5) = "9:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "10" Then
   lv.ListItems(i).SubItems(5) = "10:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "11" Then
   lv.ListItems(i).SubItems(5) = "11:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "12" Then
   lv.ListItems(i).SubItems(5) = "12:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "13" Then
   lv.ListItems(i).SubItems(5) = "1:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "14" Then
   lv.ListItems(i).SubItems(5) = "2:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "15" Then
   lv.ListItems(i).SubItems(5) = "3:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "16" Then
   lv.ListItems(i).SubItems(5) = "4:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "17" Then
   lv.ListItems(i).SubItems(5) = "5:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "18" Then
   lv.ListItems(i).SubItems(5) = "6:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "19" Then
   lv.ListItems(i).SubItems(5) = "7:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "20" Then
   lv.ListItems(i).SubItems(5) = "8:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "21" Then
   lv.ListItems(i).SubItems(5) = "9:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "22" Then
   lv.ListItems(i).SubItems(5) = "10:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "23" Then
   lv.ListItems(i).SubItems(5) = "11:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "24" Then
   lv.ListItems(i).SubItems(5) = "12:00 AM"
End If
'==========
check_RStemp
rstemp.Open "select description from function where function_no = " & rs(8), Cnn
lv.ListItems(i).SubItems(6) = rstemp(0)
'==========
check_RStemp
rstemp.Open "select description from setup where setup_no = " & rs(9), Cnn
lv.ListItems(i).SubItems(7) = rstemp(0)
'==========
lv.ListItems(i).SubItems(8) = rs(10).Value
lv.ListItems(i).SubItems(9) = rs(11).Value
lv.ListItems(i).SubItems(10) = rs(12).Value
lv.ListItems(i).SubItems(11) = rs(13).Value
lv.ListItems(i).SubItems(12) = rs(14).Value

i = i + 1
'End If
End If
rs.MoveNext
Wend
End Sub
Private Sub fillBanquetResCON()
check_RS
rs.Open "select * from banquet_reservation order by banquet_res_no asc", Cnn
lv.ListItems.Clear
lv.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(14) = "Confirmed" Then
lv.Refresh
lv.ListItems.Add
lv.ListItems(i).Text = rs(0).Value
lv.ListItems(i).SubItems(1) = rs(1).Value
lv.ListItems(i).SubItems(2) = rs(2).Value
lv.ListItems(i).SubItems(3) = rs(5).Value
lv.ListItems(i).SubItems(4) = rs(6).Value
If lv.ListItems(i).SubItems(4) = "6" Then
   lv.ListItems(i).SubItems(4) = "6:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "7" Then
   lv.ListItems(i).SubItems(4) = "7:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "8" Then
   lv.ListItems(i).SubItems(4) = "8:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "9" Then
   lv.ListItems(i).SubItems(4) = "9:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "10" Then
   lv.ListItems(i).SubItems(4) = "10:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "11" Then
   lv.ListItems(i).SubItems(4) = "11:00 AM"
ElseIf lv.ListItems(i).SubItems(4) = "12" Then
   lv.ListItems(i).SubItems(4) = "12:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "13" Then
   lv.ListItems(i).SubItems(4) = "1:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "14" Then
   lv.ListItems(i).SubItems(4) = "2:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "15" Then
   lv.ListItems(i).SubItems(4) = "3:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "16" Then
   lv.ListItems(i).SubItems(4) = "4:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "17" Then
   lv.ListItems(i).SubItems(4) = "5:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "18" Then
   lv.ListItems(i).SubItems(4) = "6:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "19" Then
   lv.ListItems(i).SubItems(4) = "7:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "20" Then
   lv.ListItems(i).SubItems(4) = "8:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "21" Then
   lv.ListItems(i).SubItems(4) = "9:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "22" Then
   lv.ListItems(i).SubItems(4) = "10:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "23" Then
   lv.ListItems(i).SubItems(4) = "11:00 PM"
ElseIf lv.ListItems(i).SubItems(4) = "24" Then
   lv.ListItems(i).SubItems(4) = "12:00 AM"
End If
lv.ListItems(i).SubItems(5) = rs(7).Value
If lv.ListItems(i).SubItems(5) = "6" Then
   lv.ListItems(i).SubItems(5) = "6:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "7" Then
   lv.ListItems(i).SubItems(5) = "7:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "8" Then
   lv.ListItems(i).SubItems(5) = "8:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "9" Then
   lv.ListItems(i).SubItems(5) = "9:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "10" Then
   lv.ListItems(i).SubItems(5) = "10:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "11" Then
   lv.ListItems(i).SubItems(5) = "11:00 AM"
ElseIf lv.ListItems(i).SubItems(5) = "12" Then
   lv.ListItems(i).SubItems(5) = "12:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "13" Then
   lv.ListItems(i).SubItems(5) = "1:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "14" Then
   lv.ListItems(i).SubItems(5) = "2:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "15" Then
   lv.ListItems(i).SubItems(5) = "3:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "16" Then
   lv.ListItems(i).SubItems(5) = "4:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "17" Then
   lv.ListItems(i).SubItems(5) = "5:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "18" Then
   lv.ListItems(i).SubItems(5) = "6:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "19" Then
   lv.ListItems(i).SubItems(5) = "7:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "20" Then
   lv.ListItems(i).SubItems(5) = "8:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "21" Then
   lv.ListItems(i).SubItems(5) = "9:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "22" Then
   lv.ListItems(i).SubItems(5) = "10:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "23" Then
   lv.ListItems(i).SubItems(5) = "11:00 PM"
ElseIf lv.ListItems(i).SubItems(5) = "24" Then
   lv.ListItems(i).SubItems(5) = "12:00 AM"
End If
'==========
check_RStemp
rstemp.Open "select description from function where function_no = " & rs(8), Cnn
lv.ListItems(i).SubItems(6) = rstemp(0)
'==========
check_RStemp
rstemp.Open "select description from setup where setup_no = " & rs(9), Cnn
lv.ListItems(i).SubItems(7) = rstemp(0)
'==========
lv.ListItems(i).SubItems(8) = rs(10).Value
lv.ListItems(i).SubItems(9) = rs(11).Value
lv.ListItems(i).SubItems(10) = rs(12).Value
lv.ListItems(i).SubItems(11) = rs(13).Value
lv.ListItems(i).SubItems(12) = rs(14).Value

i = i + 1
'End If
End If
rs.MoveNext
Wend
End Sub

Private Sub fillCon()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(6) = "Not Confirmed" Then
If rs.Fields(4) = Date Then
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
ll.ListItems(i).SubItems(6) = rs(6).Value
i = i + 1
End If
End If
rs.MoveNext
Wend
End Sub

Private Sub Command4_Click()
strConfirm = "D"
fillXfire
ll.ForeColor = vbRed
End Sub

Private Sub Form_Load()
ReservationStatus = "Confirmed"
Command11.Enabled = False
strConfirm = "X"
Status = "OCCUPIED"
strCharges = "0"
Label2 = Date
ll.ForeColor = vbBlack
Command3.Caption = "View Confirmed"
Command7.Caption = "View Confirmed"
'=========
check_RS1
rs1.Open "select * from room_reservation", Cnn
fillShowAll
'=========
check_RS
rs.Open "select * from banquet_reservation order by banquet_res_no asc", Cnn
fillBanquetSHOWALL
End Sub
Private Sub filll()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(6) = "Not Confirmed" Then
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
ll.ListItems(i).SubItems(6) = rs(6).Value
i = i + 1
End If
rs.MoveNext
Wend
End Sub

Private Sub fill()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(6) = "Confirmed" Then
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
ll.ListItems(i).SubItems(6) = rs(6).Value
i = i + 1
End If
rs.MoveNext
Wend
End Sub
Private Sub fillXfire()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
If rs.Fields(6) = "Not Confirmed" Then
If rs.Fields(4) < Date Then
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
ll.ListItems(i).SubItems(6) = rs(6).Value
i = i + 1
End If
End If
rs.MoveNext
Wend
End Sub
Private Sub fillShowAll()
check_RS
rs.Open "select * from room_reservation order by room_res_no asc", Cnn
ll.ListItems.Clear
ll.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
ll.Refresh
ll.ListItems.Add
ll.ListItems(i).Text = rs(0).Value
ll.ListItems(i).SubItems(1) = rs(1).Value
ll.ListItems(i).SubItems(2) = rs(2).Value
ll.ListItems(i).SubItems(3) = rs(3).Value
ll.ListItems(i).SubItems(4) = rs(4).Value
ll.ListItems(i).SubItems(5) = rs(5).Value
ll.ListItems(i).SubItems(6) = rs(6).Value
i = i + 1
rs.MoveNext
Wend
End Sub
Private Sub Combo1_Click()
If lv.ListItems(i).SubItems(6) = "6" Then
   TimeStart = "6:00 AM"
ElseIf Combo1.Text = "7" Then
   TimeStart = intSEVENam
ElseIf Combo1.Text = "8" Then
   TimeStart = intEIGHTam
ElseIf Combo1.Text = "9:00 AM" Then
   TimeStart = intNINEam
ElseIf Combo1.Text = "10:00 AM" Then
   TimeStart = intTENam
ElseIf Combo1.Text = "11:00 AM" Then
   TimeStart = intELEVENam
ElseIf Combo1.Text = "12:00 PM" Then
   TimeStart = intTWELVEpm
ElseIf Combo1.Text = "1:00 PM" Then
   TimeStart = intONEpm
ElseIf Combo1.Text = "2:00 PM" Then
   TimeStart = intTWOpm
ElseIf Combo1.Text = "3:00 PM" Then
   TimeStart = intTHREEpm
ElseIf Combo1.Text = "4:00 PM" Then
   TimeStart = intFOURpm
ElseIf Combo1.Text = "5:00 PM" Then
   TimeStart = intFIVEpm
ElseIf Combo1.Text = "6:00 PM" Then
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -