frmbanquetres.frm

Call centeer gestion de usuarios todo ello gratis y bajo windows

      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   22
      Top             =   7080
      Width           =   855
   End
   Begin VB.Label Label14 
      BackColor       =   &H8000000D&
      BorderStyle     =   1  'Fixed Single
      Caption         =   "end"
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   3480
      TabIndex        =   21
      Top             =   7080
      Width           =   855
   End
   Begin VB.Label lblFno 
      BackColor       =   &H00C0C0FF&
      BorderStyle     =   1  'Fixed Single
      BeginProperty Font 
         Name            =   "Century Gothic"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1800
      TabIndex        =   20
      Top             =   6960
      Width           =   855
   End
   Begin VB.Label Label20 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Reservation No. 1"
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   615
      Left            =   7080
      TabIndex        =   19
      Top             =   0
      Width           =   3615
   End
End
Attribute VB_Name = "frmBanquetRes"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public brn As Integer
Public Amount As Currency
Public TotalAmount As Currency
Const intSIXam As Integer = 6
Const intSEVENam As Integer = 7
Const intEIGHTam As Integer = 8
Const intNINEam As Integer = 9
Const intTENam As Integer = 10
Const intELEVENam As Integer = 11
Const intTWELVEpm As Integer = 12
Const intONEpm As Integer = 13
Const intTWOpm As Integer = 14
Const intTHREEpm As Integer = 15
Const intFOURpm As Integer = 16
Const intFIVEpm As Integer = 17
Const intSIXpm As Integer = 18
Const intSEVENpm As Integer = 19
Const intEIGHTpm As Integer = 20
Const intNINEpm As Integer = 21
Const intTENpm As Integer = 22
Const intELEVENpm As Integer = 23
Const intTWELVEam As Integer = 24
Dim TimeStart As Integer
Dim TimeEnd As Integer
Dim MealPrice As Integer
Dim MealQTY As Integer
Dim tempDeposit As String
Dim Status As String
Private Function ValidData() As Boolean
check_RS2
rs2.Open "select * from banquet_reservation", Cnn
    Dim strMessage As String
    If txtDateReserved.Text = "" Then
        txtDateReserved.SetFocus
        strMessage = "Please Enter Date Reserved..."
    ElseIf txtClient.Text = "" Then
        txtClient.SetFocus
        strMessage = "Please Enter Client Name..."
    ElseIf txtAddress.Text = "" Then
        txtAddress.SetFocus
        strMessage = "Please Enter Client's Address..."
    ElseIf txtContactNo.Text = "" Then
        txtContactNo.SetFocus
        strMessage = "Please Enter Contact Number..."
    ElseIf Combo1.Text = "" Then
        Combo1.SetFocus
        strMessage = "Please Enter Time Start..."
    ElseIf Combo2.Text = "" Then
        Combo2.SetFocus
        strMessage = "Please Enter Time End..."
    ElseIf txtTimeServed.Text = "" Then
        txtTimeServed.SetFocus
        strMessage = "Please Enter Time Served..."
    ElseIf lblFno.Caption = "" Then
        cboFunc.SetFocus
        strMessage = "Please Enter Function..."
    ElseIf lblSetupNo.Caption = "" Then
        cboSetup.SetFocus
        strMessage = "Please Enter Setup..."
    ElseIf txtBackdrop.Text = "" Then
        txtBackdrop.SetFocus
        strMessage = "Please Enter Backrop..."
    ElseIf lblBanquetNo.Caption = "" Then
        cboLoc.SetFocus
        strMessage = "Please Enter Location..."
    ElseIf lblEngNo.Caption = "" Then
        cboEng.SetFocus
        strMessage = "Please Enter Engineering..."
    ElseIf lblMealNo.Caption = "" Then
        cboMealDes.SetFocus
        strMessage = "Please Enter Meal Description..."
    ElseIf txtQuantity.Text = "" Then
        txtQuantity.SetFocus
        strMessage = "Please Enter Meal Quantity..."
    ElseIf txtQuantity.Text = "" Then
        txtQuantity.SetFocus
        strMessage = "Please Enter Meal Quantity..."
    ElseIf txtConfirmDate.Text = "" Then
        txtConfirmDate.SetFocus
        strMessage = "Please Enter Confirmation Date..."
 '   ElseIf (txtDateReserved.Text = rs2.Fields(5)) And (Label15.Caption > rs2.Fields(6)) Then
  '      strMessage = "Conflick..."
   '     Exit Function
   ' ElseIf Label14.Caption <= rs2(7) Then
    '    strMessage = "Conflick..."
    Else
        ValidData = True
    End If
    If Not ValidData Then
        MsgBox strMessage, vbOKOnly
    End If
End Function

Private Sub cboEng_Click()
check_RS
rs.Open "select * from engineering order by eng_no asc", Cnn
While Not rs.EOF
If cboEng.Text = rs!Description Then
    lblEngNo.Caption = rs!eng_no
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend


End Sub

Private Sub cboFunc_Click()
check_RS
rs.Open "select * from function order by function_no asc", Cnn
While Not rs.EOF
If cboFunc.Text = rs!Description Then
    lblFno.Caption = rs!function_no
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
End Sub

Private Sub cboLoc_Click()
check_RS
rs.Open "select * from banquet order by banquet_no asc", Cnn
While Not rs.EOF
If cboLoc.Text = (rs(1)) + " (" + (rs(2)) + ")" Then
    lblBanquetNo.Caption = rs!banquet_no
    lblCap.Caption = rs!pax
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend

End Sub

Private Sub cboMealDes_Click()
check_RS
rs.Open "select * from meal", Cnn
While Not rs.EOF
If cboMealDes.Text = rs!Description Then
    lblMealNo.Caption = rs!meal_no
    lblMealPrice.Caption = rs!price
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
txtQuantity.Text = ""
lblAmount.Caption = ""
'cboMealDes.Width = 3135
'cboMealDes.Top = 1560
'cboMealDes.Left = 7800
txtQuantity.SetFocus
End Sub

Private Sub cboMealType_Click()
check_RS
rs.Open "select * from meal_type order by mealtype_no asc", Cnn
While Not rs.EOF
If cboMealType.Text = rs!Description Then
    lblMTNo.Caption = rs!mealtype_no
        rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend
cboMealDes.SetFocus
'===========
If cboMealType.Text = "Buffet" Then
cboMealDes.Clear
check_RS1
rs1.Open "Select * from meal where meal.mealtype_no = " & lblMTNo, Cnn
While Not rs1.EOF
cboMealDes.AddItem (rs1(2))
rs1.MoveNext
Wend
lblMealPrice.Caption = ""
txtQuantity.Text = ""
lblAmount.Caption = ""
'cboMealDes.Width = 9015
'cboMealDes.Top = 1560
'cboMealDes.Left = 1920
'==========
ElseIf cboMealType.Text = "Plate-In" Then
cboMealDes.Clear
check_RS1
rs1.Open "Select * from meal where meal.mealtype_no = " & lblMTNo, Cnn
While Not rs1.EOF
cboMealDes.AddItem (rs1(2))
rs1.MoveNext
Wend
lblMealPrice.Caption = ""
txtQuantity.Text = ""
lblAmount.Caption = ""

'cboMealDes.Width = 9015
'cboMealDes.Top = 1560
'cboMealDes.Left = 1920
End If
End Sub

Private Sub cboSetup_Click()
check_RS
rs.Open "select * from Setup order by setup_no asc", Cnn
While Not rs.EOF
If cboSetup.Text = rs!Description Then
    lblSetupNo.Caption = rs!setup_no
    'lblCap.Caption = rs!capacity
    rs.MoveLast
    rs.MoveNext
Else
    rs.MoveNext
End If
Wend

End Sub

Private Sub Combo1_Click()
'txtTimeEnd.Text = Combo2.Text
If Combo1.Text = "6:00 AM" Then
   TimeStart = intSIXam
ElseIf Combo1.Text = "7:00 AM" Then
   TimeStart = intSEVENam
ElseIf Combo1.Text = "8:00 AM" 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
   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
Label15 = TimeStart
'If TimeEnd <= TimeStart Then
'   MsgBox "Time End must be higher than Time Start"
'   Combo2.Text = ""
'   Label15.Caption = ""
'End If
End Sub

Private Sub Combo2_Click()
'txtTimeEnd.Text = Combo2.Text
If Combo2.Text = "6:00 AM" Then
   TimeEnd = intSIXam
ElseIf Combo2.Text = "7:00 AM" Then
   TimeEnd = intSEVENam
ElseIf Combo2.Text = "8:00 AM" Then
   TimeEnd = intEIGHTam
ElseIf Combo2.Text = "9:00 AM" Then
   TimeEnd = intNINEam
ElseIf Combo2.Text = "10:00 AM" Then
   TimeEnd = intTENam
ElseIf Combo2.Text = "11:00 AM" Then
   TimeEnd = intELEVENam
ElseIf Combo2.Text = "12:00 PM" Then
   TimeEnd = intTWELVEpm
ElseIf Combo2.Text = "1:00 PM" Then
   TimeEnd = intONEpm