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

📄 frmresdata.frm

📁 Call centeer gestion de usuarios todo ello gratis y bajo windows
💻 FRM
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
   TimeStart = intSIXpm
ElseIf Combo1.Text = "7:00 PM" Then
   TimeStart = intSEVENpm
ElseIf Combo1.Text = "8:00 PM" Then
   TimeStart = intEIGHTpm
ElseIf Combo1.Text = "9:00 PM" Then
   TimeStart = intNINEpm
ElseIf Combo1.Text = "10:00 PM" Then
   TimeStart = intTENpm
ElseIf Combo1.Text = "11:00 PM" Then
   TimeStart = intELEVENpm
ElseIf Combo1.Text = "12:00 AM" Then
   TimeStart = intTWELVEam
End If
End Sub

Private Sub fillBanquetSHOWALL()
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 fillBanquetCONDATE()
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
If rs.Fields(12) = Date 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 fillBanquetXFIRE()
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
'If rs.Fields(6) = "Not Confirmed" Then
'If rs.Fields(4) < Date Then
While Not rs.EOF
If rs.Fields(14) = "Not Confirmed" Then
If rs.Fields(12) < Date 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 lv_Click()
On Error GoTo r
check_RS
rs.Open "select * from banquet_reservation order by banquet_res_no asc", Cnn
While Not rs.EOF
If lv.SelectedItem.Text = rs!banquet_res_no Then
    strBRN = rs!banquet_res_no
    Text1 = rs!banquet_res_no
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
check_RS
rs.Open "select * from banquet_res_details where banquet_res_details.banquet_res_no = " & strBRN, Cnn
fillBanquetDetails
r:
End Sub
Private Sub fillBanquetDetails()
check_RS
rs.Open "select * from banquet_res_details where banquet_res_details.banquet_res_no = " & strBRN, Cnn
brd.ListItems.Clear
brd.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
brd.Refresh
brd.ListItems.Add
brd.ListItems(i).Text = rs(0).Value
'==========
check_RStemp
rstemp.Open "select location from banquet where banquet_no = " & rs(1), Cnn
brd.ListItems(i).SubItems(1) = rstemp(0)
'==========
check_RStemp
rstemp.Open "select description from engineering where eng_no = " & rs(2), Cnn
brd.ListItems(i).SubItems(2) = rstemp(0)
'===========
'check_RStemp
'rstemp.Open "select mealtype from meal where meal_no = " & rs(3), Cnn
'brd.ListItems(i).SubItems(3) = rstemp(0)
'===========
brd.ListItems(i).SubItems(3) = rs(3).Value
brd.ListItems(i).SubItems(4) = rs(4).Value
brd.ListItems(i).SubItems(5) = rs(5).Value
i = i + 1
rs.MoveNext
Wend
End Sub
1234

⌨️ 快捷键说明

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