frmseaadd.frm

Complete Hotel Management System BackEnd Oracle

         TabIndex        =   24
         Top             =   2040
         Width           =   1230
      End
      Begin VB.Label Label6 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Rate"
         Height          =   240
         Left            =   7080
         TabIndex        =   23
         Top             =   2040
         Width           =   510
      End
      Begin VB.Label Label7 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Quantity"
         Height          =   240
         Left            =   8640
         TabIndex        =   22
         Top             =   2040
         Width           =   855
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Amount"
         Height          =   240
         Left            =   10800
         TabIndex        =   21
         Top             =   2040
         Width           =   780
      End
      Begin VB.Label Label9 
         BackStyle       =   0  'Transparent
         Caption         =   "Customer No:"
         Height          =   240
         Left            =   6600
         TabIndex        =   20
         Top             =   1200
         Width           =   1815
      End
      Begin VB.Line Line1 
         BorderColor     =   &H00000000&
         X1              =   0
         X2              =   12240
         Y1              =   1680
         Y2              =   1680
      End
      Begin VB.Line Line2 
         BorderColor     =   &H00000000&
         X1              =   0
         X2              =   14040
         Y1              =   4320
         Y2              =   4320
      End
      Begin VB.Line Line3 
         BorderColor     =   &H00000000&
         X1              =   5760
         X2              =   5760
         Y1              =   4320
         Y2              =   8640
      End
      Begin VB.Label Label10 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "Total Amount"
         BeginProperty Font 
            Name            =   "Bookman Old Style"
            Size            =   12
            Charset         =   0
            Weight          =   600
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   285
         Left            =   8520
         TabIndex        =   19
         Top             =   4920
         Width           =   1710
      End
   End
   Begin VB.Label Label12 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Add records!!"
      ForeColor       =   &H0000FFFF&
      Height          =   240
      Left            =   240
      TabIndex        =   37
      Top             =   120
      Width           =   1410
   End
   Begin VB.Image Image3 
      Height          =   240
      Left            =   11880
      Picture         =   "frmSeaAdd.frx":02A4
      Top             =   120
      Width           =   270
   End
   Begin VB.Image Image2 
      Height          =   360
      Left            =   -2520
      Picture         =   "frmSeaAdd.frx":0666
      Top             =   0
      Width           =   17595
   End
   Begin VB.Image Image1 
      Height          =   1875
      Left            =   -480
      Picture         =   "frmSeaAdd.frx":1121
      Top             =   7680
      Width           =   15000
   End
End
Attribute VB_Name = "frmSeaAdd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim adoConn As ADODB.Connection
Dim adoResSea As ADODB.Recordset
Dim errmsg As String

Private Sub cmdback_Click()
If adoResSea.EditMode = adEditInProgress Then
  If MsgBox("All unsaved changes would be lost.Proceed anyway?") = vbYes Then
    adoResSea.CancelUpdate
  Else
    adoResSea.Update
 End If
End If
MsgBox "Now exiting from application", vbInformation
Set adoResSea = Nothing
Set adoConn = Nothing
frmSeaAdd.Visible = False
frmSeasonsRes.Show
End Sub

Public Function Validate() As Boolean
Dim ret As Boolean
ret = True
errmsg = "Following errors are encountered in your data" + Chr(13) + Chr(13)
If Len(Trim(txtSeaDate.Text)) = 0 Then
    errmsg = errmsg + "* Date cannot be left Blank" + Chr(13)
    ret = False
End If
If Len(Trim(txtSeaCName.Text)) = 0 Then
    errmsg = errmsg + "* Customer Name cannot be left blank " + Chr(13)
    ret = False
End If
If Len(Trim(txtSeaEmpNo.Text)) = 0 Then
    errmsg = errmsg + "* Employee Number cannot be left blank " + Chr(13)
    ret = False
End If
If Len(Trim(txtSeaCNo.Text)) = 0 Then
    errmsg = errmsg + "* Customer Number cannot be left blank " + Chr(13)
    ret = False
End If
Validate = ret
End Function

Private Sub cmdSave_Click()
If Validate() = True Then
   adoResSea.Update
   adoResSea.MoveLast
   adoResSea.AddNew
   Clearcontrols
Else
  MsgBox errmsg, vbCritical, "Data entry Errors!!!"
End If
End Sub

Private Sub Form_Load()
MsgBox "Connecting Oracle.Please wait...", vbInformation, "Wait"
Set adoConn = New ADODB.Connection
adoConn.ConnectionString = "Provider=MSDAORA;user id=scott;password=tiger;"
adoConn.CursorLocation = adUseClient
adoConn.Open
Set adoResSea = New ADODB.Recordset
adoResSea.CursorType = adOpenDynamic
adoResSea.LockType = adLockOptimistic
adoResSea.Open "Res_Sea", adoConn, , , adCmdTable
Set txtSeaDate.DataSource = adoResSea
txtSeaDate.DataField = "Date_SR"
Set txtSeaCName.DataSource = adoResSea
txtSeaCName.DataField = "Cust_Name"
Set txtSeaEmpNo.DataSource = adoResSea
txtSeaEmpNo.DataField = "Emp_no"
Set comSeaFN1.DataSource = adoResSea
comSeaFN1.DataField = "Fno1"
Set comSeaFN2.DataSource = adoResSea
comSeaFN2.DataField = "Fno2"
Set comSeaFN3.DataSource = adoResSea
comSeaFN3.DataField = "Fno3"
Set txtSeaFName1.DataSource = adoResSea
txtSeaFName1.DataField = "Fname1"
Set txtSeaFName2.DataSource = adoResSea
txtSeaFName2.DataField = "Fname2"
Set txtSeaFName3.DataSource = adoResSea
txtSeaFName3.DataField = "Fname3"
Set txtSeaRate1.DataSource = adoResSea
txtSeaRate1.DataField = "Rate1"
Set txtSeaRate2.DataSource = adoResSea
txtSeaRate2.DataField = "Rate2"
Set txtSeaRate3.DataSource = adoResSea
txtSeaRate3.DataField = "Rate3"
Set txtSeaQty1.DataSource = adoResSea
txtSeaQty1.DataField = "Quant1"
Set txtSeaQty2.DataSource = adoResSea
txtSeaQty2.DataField = "Quant2"
Set txtSeaQty3.DataSource = adoResSea
txtSeaQty3.DataField = "Quant3"
Set txtSeaAmt1.DataSource = adoResSea
txtSeaAmt1.DataField = "Amt1"
Set txtSeaAmt2.DataSource = adoResSea
txtSeaAmt2.DataField = "Amt2"
Set txtSeaAmt3.DataSource = adoResSea
txtSeaAmt3.DataField = "Amt3"
Set txtSeaTAmount.DataSource = adoResSea
txtSeaTAmount.DataField = "Tot_Amount"
adoResSea.AddNew
End Sub

Private Sub Clearcontrols()
txtSeaDate.Text = ""
txtSeaCName.Text = ""
txtSeaEmpNo.Text = ""
comSeaFN1.Text = ""
comSeaFN2.Text = ""
comSeaFN3.Text = ""
txtSeaFName1.Text = ""
txtSeaFName2.Text = ""
txtSeaFName3.Text = ""
txtSeaRate1.Text = ""
txtSeaRate2.Text = ""
txtSeaRate3.Text = ""
txtSeaQty1.Text = ""
txtSeaQty2.Text = ""
txtSeaQty3.Text = ""
txtSeaAmt1.Text = ""
txtSeaAmt2.Text = ""
txtSeaAmt3.Text = ""
txtSeaTAmount.Text = ""
End Sub

Private Sub txtSeaDate_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub
Private Sub txtSeaCName_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub
Private Sub txtSeaFName1_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub
Private Sub txtSeaFName2_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub
Private Sub txtSeaFName3_KeyPress(KeyAscii As Integer)
Call ConvUpcase(KeyAscii)
End Sub

Private Sub cmdCompute_Click()
Dim R1 As Integer, Q1 As Integer, A1 As Integer
Dim R2 As Integer, Q2 As Integer, A2 As Integer
Dim R3 As Integer, Q3 As Integer, A3 As Integer
Dim T As Integer
R1 = Val(txtSeaRate1.Text)
R2 = Val(txtSeaRate2.Text)
R3 = Val(txtSeaRate3.Text)
Q1 = Val(txtSeaQty1.Text)
Q2 = Val(txtSeaQty2.Text)
Q3 = Val(txtSeaQty3.Text)
A1 = R1 * Q1
A2 = R2 * Q2
A3 = R3 * Q3
T = A1 + A2 + A3
txtSeaAmt1.Text = "QR." & Str$(A1)
txtSeaAmt2.Text = "QR." & Str$(A2)
txtSeaAmt3.Text = "QR." & Str$(A3)
txtSeaTAmount.Text = "QR." & Str$(T)
End Sub

Private Sub cmdExit_Click()
If MsgBox("Are you sure you want to exit Hotel Mangement Sytem ?", vbQuestion + vbYesNo, "Confirm Exit !") = vbYes Then
End
End If
End Sub

Private Sub comSeaFN1_Click()
Dim intFcode As Integer
Dim strCriteria As String
Dim varMark As Variant
Dim Found As Boolean
adoSeaMenu.Recordset.MoveFirst
Found = False
If comSeaFN1.Text <> adoSeaMenu.Recordset.Fields("F_code").Value Then
   intFcode = Val(comSeaFN1)
   strCriteria = "F_code =" & intFcode
   adoSeaMenu.Recordset.Find strCriteria, 0, adSearchForward, adBookmarkCurrent
   Do While Not adoSeaMenu.Recordset.EOF
       txtSeaFName1.Text = adoSeaMenu.Recordset.Fields("F_Name").Value
       txtSeaRate1.Text = adoSeaMenu.Recordset.Fields("F_Rate").Value
       varMark = adoSeaMenu.Recordset.Bookmark
       Found = True
       adoSeaMenu.Recordset.Find strCriteria, 1, adSearchForward, varMark
   Loop
Else
   MsgBox "You have entered a invalid Food code.This code is not occupied", vbCritical, "Wrong Entry"
End If
End Sub

Private Sub comSeaFN2_Click()
Dim intFcode As Integer
Dim strCriteria As String
Dim varMark As Variant
Dim Found As Boolean
adoSeaMenu.Recordset.MoveFirst
Found = False
If comSeaFN2.Text <> adoSeaMenu.Recordset.Fields("F_code").Value Then
   intFcode = Val(comSeaFN2)
   strCriteria = "F_code =" & intFcode
   adoSeaMenu.Recordset.Find strCriteria, 0, adSearchForward, adBookmarkCurrent
   Do While Not adoSeaMenu.Recordset.EOF
       txtSeaFName2.Text = adoSeaMenu.Recordset.Fields("F_Name").Value
       txtSeaRate2.Text = adoSeaMenu.Recordset.Fields("F_Rate").Value
       varMark = adoSeaMenu.Recordset.Bookmark
       Found = True
       adoSeaMenu.Recordset.Find strCriteria, 1, adSearchForward, varMark
   Loop
Else
   MsgBox "You have entered a invalid Food code.This code is not occupied", vbCritical, "Wrong Entry"
End If
End Sub

Private Sub comSeaFN3_Click()
Dim intFcode As Integer
Dim strCriteria As String
Dim varMark As Variant
Dim Found As Boolean
adoSeaMenu.Recordset.MoveFirst
Found = False
If comSeaFN3.Text <> adoSeaMenu.Recordset.Fields("F_code").Value Then
   intFcode = Val(comSeaFN3)
   strCriteria = "F_code =" & intFcode
   adoSeaMenu.Recordset.Find strCriteria, 0, adSearchForward, adBookmarkCurrent
   Do While Not adoSeaMenu.Recordset.EOF
       txtSeaFName3.Text = adoSeaMenu.Recordset.Fields("F_Name").Value
       txtSeaRate3.Text = adoSeaMenu.Recordset.Fields("F_Rate").Value
       varMark = adoSeaMenu.Recordset.Bookmark
       Found = True
       adoSeaMenu.Recordset.Find strCriteria, 1, adSearchForward, varMark
   Loop
Else
   MsgBox "You have entered a invalid Food code.This code is not occupied", vbCritical, "Wrong Entry"
End If
End Sub

Private Sub Image3_Click()
If adoResSea.EditMode = adEditInProgress Then
  If MsgBox("All unsaved changes would be lost.Proceed anyway?") = vbYes Then
    adoResSea.CancelUpdate
  Else
    adoResSea.Update
 End If
End If
MsgBox "Now exiting from application", vbInformation
Set adoResSea = Nothing
Set adoConn = Nothing
frmSeaAdd.Visible = False
frmSeasonsRes.Show
End Sub

Private Sub Timer1_Timer()
txtSeaDate.Text = Date
End Sub