frmbanquetres.frm

Call centeer gestion de usuarios todo ello gratis y bajo windows

ElseIf Combo2.Text = "2:00 PM" Then
   TimeEnd = intTWOpm
ElseIf Combo2.Text = "3:00 PM" Then
   TimeEnd = intTHREEpm
ElseIf Combo2.Text = "4:00 PM" Then
   TimeEnd = intFOURpm
ElseIf Combo2.Text = "5:00 PM" Then
   TimeEnd = intFIVEpm
ElseIf Combo2.Text = "6:00 PM" Then
   TimeEnd = intSIXpm
ElseIf Combo2.Text = "7:00 PM" Then
   TimeEnd = intSEVENpm
ElseIf Combo2.Text = "8:00 PM" Then
   TimeEnd = intEIGHTpm
ElseIf Combo2.Text = "9:00 PM" Then
   TimeEnd = intNINEpm
ElseIf Combo2.Text = "10:00 PM" Then
   TimeEnd = intTENpm
ElseIf Combo2.Text = "11:00 PM" Then
   TimeEnd = intELEVENpm
ElseIf Combo2.Text = "12:00 AM" Then
   TimeEnd = intTWELVEam
End If
Label14 = TimeEnd
If TimeEnd <= TimeStart Then
   MsgBox "Time End must be higher than Time Start"
   Combo2.Text = ""
   Label14.Caption = ""
End If
End Sub

Private Sub Command1_Click()
If Command1.Caption = "<< Cancel <<" Then
   Unload Me
ElseIf Command1.Caption = ">> Proceed >>" Then
'tempDeposit = "0"
'While Val(tempDeposit) = "0" Or IsNumeric(tempDeposit) = False
'==========
'tempDeposit = InputBox("Please enter Deposit.. ", "Your TotalAmount is " + Label26)
'==========
'Wend
'Else
check_RS1
rs1.Open "select * from banquet_reservation where banquet_res_no = " & brn, Cnn
If rs1.RecordCount = 0 Then
Cnn.Execute "INSERT INTO banquet_reservation (banquet_res_no, reservation_date, client_name, address, contact_no, date_reserved, time_start, time_end, function_no, setup_no, backdrop, meal_total, confirmation_date, time_served, status) VALUES (" & brn & ", '" & lbldate & _
"', '" & txtClient & "', '" & txtAddress & "', '" & txtContactNo & "', '" & txtDateReserved & _
"', '" & Label15 & "', '" & Label14 & "', '" & lblFno & "', '" & lblSetupNo & "', '" & txtBackdrop & _
"', '" & Label26 & "', '" & txtConfirmDate & "', '" & txtTimeServed & "', '" & Status & "')"    '
Unload Me
End If
End If
End Sub

Private Sub DTPicker1_Change()
'If Date + 15 > DTPicker1.Value Then
'   MsgBox "Date must be higher or equal to " + Label1.Caption, vbInformation, "HMS"
'   txtDateReserved.Text = ""
'   txtDateReserved.SetFocus
'Else
txtDateReserved.Text = DTPicker1.Value
'End If
End Sub

Private Sub DTPicker2_Change()
'If Date + 15 > DTPicker1.Value Then
'   MsgBox "Date must be higher or equal to " + Label1.Caption, vbInformation, "HMS"
'   txtDateReserved.Text = ""
'   txtDateReserved.SetFocus
'Else
txtConfirmDate.Text = DTPicker2.Value
'End If

End Sub

Private Sub Form_Load()
DTPicker1.Value = Date
DTPicker2.Value = Date
Status = "Not Confirmed"
Command1.Caption = "<< Cancel <<"
Amount = 0
TotalAmount = 0
'=============
brn = 1
check_RS
'rs.Open "Select * from function" & cboFunction, Cnn
rs.Open "select * from banquet_res_details", Cnn
'=============
'fillr
While Not rs.RecordCount = 0
 check_RS
 brn = brn + 1
 rs.Open "select * from banquet_res_details where banquet_res_no = " & brn, Cnn
Wend
 Label20 = "Reservation No. " & brn
'============
cboFunc.Clear
check_RS1
rs1.Open "select * from function order by function_no asc", Cnn
While Not rs1.EOF
cboFunc.AddItem (rs1(1))
rs1.MoveNext
Wend
'======
cboLoc.Clear
check_RS1
rs1.Open "select * from banquet order by banquet_no asc", Cnn
While Not rs1.EOF
cboLoc.AddItem (rs1(1)) + " (" + (rs1(2)) + ")"
rs1.MoveNext
Wend
'======
cboSetup.Clear
check_RS1
rs1.Open "select * from setup order by description asc", Cnn
While Not rs1.EOF
cboSetup.AddItem (rs1(1))
rs1.MoveNext
Wend
'======
check_RS1
rs1.Open "select * from engineering order by eng_no asc", Cnn
While Not rs1.EOF
cboEng.AddItem (rs1(1))
rs1.MoveNext
Wend
'=====
cboMealType.Clear
check_RS1
rs1.Open "select * from meal_type order by mealtype_no asc", Cnn
lblMTNo = rs1(0)
While Not rs1.EOF
cboMealType.AddItem (rs1(1))
rs1.MoveNext
Wend
'==========
check_RS2
rs2.Open "select date_reserved, time_start, time_end from banquet_reservation order by banquet_res_no", Cnn
'fill3
lbldate.Caption = Date
Label1.Caption = "Date must be Higher or Equal to " & Date + 15
'Label1.Caption = Format(Date, "Long Date")

End Sub
Private Sub fill2()
check_RS
rs.Open "select * from banquet_res_details where banquet_res_no = " & brn, Cnn
On Error GoTo HELL
lvtran.ListItems.Clear
lvtran.Refresh
Dim i As Integer
i = 1
While Not rs.EOF
lvtran.Refresh
lvtran.ListItems.Add
lvtran.ListItems(i).Text = rs(0).Value
'===========
check_RStemp
rstemp.Open "select location from banquet where banquet_no = " & rs(1), Cnn
lvtran.ListItems(i).SubItems(1) = rstemp(0)
'===========
check_RStemp
rstemp.Open "select description from engineering where eng_no = " & rs(2), Cnn
lvtran.ListItems(i).SubItems(2) = rstemp(0)
'==========
lvtran.ListItems(i).SubItems(3) = rs(3).Value
'==========
check_RStemp
rstemp.Open "select price from meal where meal_no = " & rs(3), Cnn
lvtran.ListItems(i).SubItems(4) = rstemp(0)
lvtran.ListItems(i).SubItems(5) = rs(4).Value
lvtran.ListItems(i).SubItems(6) = rs(5).Value
'Amount = lvtran.ListItems(i).SubItems(6)
'TotalAmount = TotalAmount + Amount
Label26 = FormatNumber(TotalAmount)
i = i + 1
rs.MoveNext
HELL:
Wend
End Sub


Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.key
'=======
Case "Cancel"
Unload Me
'=======
Case "Save"
check_RS1
rs1.Open "select * from banquet_res_details order by banquet_res_no asc", Cnn
check_RS
rs.Open "select * from banquet_reservation order by banquet_res_no asc", Cnn
While Not rs.EOF And rs1.EOF
If txtDateReserved.Text = rs!date_reserved And Label15.Caption = rs!time_start _
And lblBanquetNo.Caption = rs1!banquet_no Then
MsgBox "1Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
rs.MoveLast
rs.MoveNext
Exit Sub
'ElseIf lblroomno.Caption = rs!room_no And txtReservedDate.Text = rs!date_reserved _
'And txtEndDate.Text = rs!lenght_of_stay Then
'MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
'rs.MoveLast
'rs.MoveNext
'Exit Sub
'ElseIf txtReservedDate.Text >= rs!date_reserved And txtReservedDate.Text < rs!lenght_of_stay And _
'lblroomno.Caption = rs!room_no Then
'MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
'rs.MoveLast
'rs.MoveNext
'Exit Sub
'ElseIf txtReservedDate.Text < rs!lenght_of_stay And lblroomno.Caption = rs!room_no Then
'MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
'rs.MoveLast
'rs.MoveNext
'Exit Sub
'ElseIf txtReservedDate.Text > rs!date_reserved And lblroomno.Caption = rs!room_no _
'And rs!lenght_of_stay > txtReservedDate.Text Then
'MsgBox "Conflick Detected, Please check your Reservation System", vbInformation, "Conflick Detected"
'rs.MoveLast
'rs.MoveNext
'Exit Sub
'Else
'rs.MoveNext
End If
Wend
If ValidData Then
check_RStemp
rstemp.Open "select * from banquet_res_details", Cnn
'================
Cnn.Execute "INSERT INTO banquet_res_details (banquet_res_no, banquet_no, engineering_no, meal_no, quantity, amount) VALUES (" & brn & ", '" & lblBanquetNo & _
"', '" & lblEngNo & "', '" & lblMealNo & "', '" & txtQuantity & _
"', '" & lblAmount & "')"
TotalAmount = TotalAmount + Amount
fill2
Command1.Caption = ">> Proceed >>"
If MsgBox("Add another? ", vbYesNo, "?") = vbNo Then
'tempDeposit = "0"
'While Val(tempDeposit) = "0" Or IsNumeric(tempDeposit) = False
'==========
'tempDeposit = InputBox("Please enter Deposit.. ", "Your TotalAmount is " + Label26)
'==========
'Wend
'Else
check_RS1
rs1.Open "select * from banquet_reservation where banquet_res_no = " & brn, Cnn
If rs1.RecordCount = 0 Then
Cnn.Execute "INSERT INTO banquet_reservation (banquet_res_no, reservation_date, client_name, address, contact_no, date_reserved, time_start, time_end, function_no, setup_no, backdrop, meal_total, confirmation_date, time_served, status) VALUES (" & brn & ", '" & lbldate & _
"', '" & txtClient & "', '" & txtAddress & "', '" & txtContactNo & "', '" & txtDateReserved & _
"', '" & Label15 & "', '" & Label14 & "', '" & lblFno & "', '" & lblSetupNo & "', '" & txtBackdrop & _
"', '" & Label26 & "', '" & txtConfirmDate & "', '" & txtTimeServed & "', '" & Status & "')"    '
Unload Me
End If
End If
End If
'End If
End Select
End Sub
Private Sub txtTimeEnd_Change()
If txtTimeEnd.Text = "6:00 AM" Then
   TimeEnd = intSIXam
ElseIf txtTimeEnd.Text = "7:00 AM" Then
   TimeEnd = intSEVENam
ElseIf txtTimeEnd.Text = "8:00 AM" Then
   TimeEnd = intEIGHTam
ElseIf txtTimeEnd.Text = "9:00 AM" Then
   TimeEnd = intNINEam
ElseIf txtTimeEnd.Text = "10:00 AM" Then
   TimeEnd = intTENam
ElseIf txtTimeEnd.Text = "11:00 AM" Then
   TimeEnd = intELEVENam
ElseIf txtTimeEnd.Text = "12:00 PM" Then
   TimeEnd = intTWELVEpm
ElseIf txtTimeEnd.Text = "1:00 PM" Then
   TimeEnd = intONEpm
ElseIf txtTimeEnd.Text = "2:00 PM" Then
   TimeEnd = intTWOpm
ElseIf txtTimeEnd.Text = "3:00 PM" Then
   TimeEnd = intTHREEpm
ElseIf txtTimeEnd.Text = "4:00 PM" Then
   TimeEnd = intFOURpm
ElseIf txtTimeEnd.Text = "5:00 PM" Then
   TimeEnd = intFIVEpm
ElseIf txtTimeEnd.Text = "6:00 PM" Then
   TimeEnd = intSIXpm
ElseIf txtTimeEnd.Text = "7:00 PM" Then
   TimeEnd = intSEVENpm
ElseIf txtTimeEnd.Text = "8:00 PM" Then
   TimeEnd = intEIGHTpm
ElseIf txtTimeEnd.Text = "9:00 PM" Then
   TimeEnd = intNINEpm
ElseIf txtTimeEnd.Text = "10:00 PM" Then
   TimeEnd = intTENpm
ElseIf txtTimeEnd.Text = "11:00 PM" Then
   TimeEnd = intELEVENpm
End If
lblend.Caption = TimeEnd
'If TimeEnd < lblstart Then
 '  MsgBox "Time End must be greater than Time Start"
  ' txtTimeStart.Text = ""
'End If

End Sub

Private Sub txtTimeStart_Change()
If txtTimeStart.Text = "6:00 AM" Then
   TimeStart = intSIXam
ElseIf txtTimeStart.Text = "7:00 AM" Then
   TimeStart = intSEVENam
ElseIf txtTimeStart.Text = "8:00 AM" Then
   TimeStart = intEIGHTam
ElseIf txtTimeStart.Text = "9:00 AM" Then
   TimeStart = intNINEam
ElseIf txtTimeStart.Text = "10:00 AM" Then
   TimeStart = intTENam
ElseIf txtTimeStart.Text = "11:00 AM" Then
   TimeStart = intELEVENam
ElseIf txtTimeStart.Text = "12:00 PM" Then
   TimeStart = intTWELVEpm
ElseIf txtTimeStart.Text = "1:00 PM" Then
   TimeStart = intONEpm
ElseIf txtTimeStart.Text = "2:00 PM" Then
   TimeStart = intTWOpm
ElseIf txtTimeStart.Text = "3:00 PM" Then
   TimeStart = intTHREEpm
ElseIf txtTimeStart.Text = "4:00 PM" Then
   TimeStart = intFOURpm
ElseIf txtTimeStart.Text = "5:00 PM" Then
   TimeStart = intFIVEpm
ElseIf txtTimeStart.Text = "6:00 PM" Then
   TimeStart = intSIXpm
ElseIf txtTimeStart.Text = "7:00 PM" Then
   TimeStart = intSEVENpm
ElseIf txtTimeStart.Text = "8:00 PM" Then
   TimeStart = intEIGHTpm
ElseIf txtTimeStart.Text = "9:00 PM" Then
   TimeStart = intNINEpm
ElseIf txtTimeStart.Text = "10:00 PM" Then
   TimeStart = intTENpm
ElseIf txtTimeStart.Text = "11:00 PM" Then
   TimeStart = intELEVENpm
End If
lblstart.Caption = TimeStart
'===========
'If lblstart.Caption < lblend.Caption Then
'   MsgBox "Time start must be greater than Time End"
'End If
'===========
'If lblstart.Caption > TimeEnd Then
'   MsgBox "Time End must be greater than Time Start"
'End If
'===========
End Sub

Private Sub txtQuantity_Change()
On Error GoTo r
MealPrice = Val(lblMealPrice.Caption)
MealQTY = Val(txtQuantity)

Amount = MealQTY * MealPrice
lblAmount = Amount
r:
End Sub