frmmain.frm

Complete Hotel Management System BackEnd Oracle

VERSION 5.00
Begin VB.Form frmMain 
   BackColor       =   &H000000C0&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Hotel Management System"
   ClientHeight    =   5490
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   9045
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   366
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   603
   StartUpPosition =   2  'CenterScreen
   WindowState     =   2  'Maximized
   Begin VB.Label Label17 
      Alignment       =   2  'Center
      AutoSize        =   -1  'True
      BackColor       =   &H8000000A&
      BackStyle       =   0  'Transparent
      Caption         =   "THE  PARADISE  HOTEL"
      BeginProperty Font 
         Name            =   "Monotype Corsiva"
         Size            =   36
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   855
      Left            =   4560
      TabIndex        =   2
      Top             =   1200
      Width           =   7725
   End
   Begin VB.Image Image1 
      BorderStyle     =   1  'Fixed Single
      Height          =   7620
      Left            =   2640
      Picture         =   "frmMain.frx":030A
      Top             =   2400
      Width           =   11535
   End
   Begin VB.Label Label25 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "www.paradisehotel.com"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   4440
      TabIndex        =   1
      Top             =   10200
      Width           =   2835
   End
   Begin VB.Label Label36 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "E-mail : [e-mail]"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   178
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FF00&
      Height          =   300
      Left            =   8280
      TabIndex        =   0
      Top             =   10200
      Width           =   4350
   End
   Begin VB.Menu mnufile 
      Caption         =   "File"
      Begin VB.Menu mnuAbout 
         Caption         =   "About"
      End
      Begin VB.Menu mnuLogout 
         Caption         =   "Logout"
         Shortcut        =   +{F1}
      End
      Begin VB.Menu mnusep7 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnucus 
      Caption         =   "Customer Status"
      Begin VB.Menu mnuFrontOff 
         Caption         =   "Front Office "
         Shortcut        =   ^F
      End
      Begin VB.Menu mnusep3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuaddDet 
         Caption         =   "Add Details"
         Begin VB.Menu mnuCheckin 
            Caption         =   "Check In"
            Shortcut        =   ^I
         End
         Begin VB.Menu mnuCheckOut 
            Caption         =   "Check Out"
            Shortcut        =   ^O
         End
         Begin VB.Menu mnuRes 
            Caption         =   "Reservations"
            Shortcut        =   ^R
         End
      End
   End
   Begin VB.Menu mnuHotelSt 
      Caption         =   "Hotel Status"
      Begin VB.Menu mnuStatusRoom 
         Caption         =   "Room"
         Shortcut        =   {F1}
      End
      Begin VB.Menu mnusep6 
         Caption         =   "-"
      End
      Begin VB.Menu mnutoday 
         Caption         =   "Today's Hotel Statistics"
         Shortcut        =   +{F3}
      End
   End
   Begin VB.Menu mnuRest 
      Caption         =   "Restaurants"
      Begin VB.Menu mnuRestSea 
         Caption         =   "Seasons "
         Shortcut        =   ^S
      End
      Begin VB.Menu mnuRestHPR 
         Caption         =   "Hyde Park Cave"
         Shortcut        =   ^H
      End
   End
   Begin VB.Menu mnuEmpPro 
      Caption         =   "Employee processing"
      Begin VB.Menu mnuEmpProDet 
         Caption         =   "Employee Details"
         Shortcut        =   ^E
      End
      Begin VB.Menu mnuEmpProADet 
         Caption         =   "All Details"
         Shortcut        =   ^A
      End
      Begin VB.Menu mnusep2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuPayRollSal 
         Caption         =   "Salary Statement"
         Shortcut        =   {F11}
      End
      Begin VB.Menu mnusep5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuaddemp 
         Caption         =   "Add employee records"
         Shortcut        =   {F12}
      End
   End
   Begin VB.Menu mnuAcc 
      Caption         =   "Accounts"
      Begin VB.Menu mnuAccAssets 
         Caption         =   "Incomes"
         Shortcut        =   +{F7}
      End
      Begin VB.Menu mnuAccExpenses 
         Caption         =   "Expenses"
         Shortcut        =   +{F8}
      End
   End
   Begin VB.Menu mnuReports 
      Caption         =   "Reports"
      Begin VB.Menu mnurepFrontOff 
         Caption         =   "Front Office"
         Begin VB.Menu mnuFrontOffChkIn 
            Caption         =   "Check In"
         End
         Begin VB.Menu mnuFrontOffChkOut 
            Caption         =   "Check Out"
         End
         Begin VB.Menu mnuFrontOffRes 
            Caption         =   "Reservations"
         End
      End
      Begin VB.Menu mnurepRes 
         Caption         =   "Restaurants"
         Begin VB.Menu mnurepResSea 
            Caption         =   "Seasons  Report"
         End
         Begin VB.Menu mnurepResHPCR 
            Caption         =   "Hyde Park Cave Report"
         End
      End
      Begin VB.Menu mnurepEmpSta 
         Caption         =   "Employee Status"
         Begin VB.Menu mnurepEmpStaDet 
            Caption         =   "Employee Details"
         End
         Begin VB.Menu mnurepEmpStaDepList 
            Caption         =   "Department wise Listing"
         End
         Begin VB.Menu mnusep4 
            Caption         =   "-"
         End
         Begin VB.Menu murepPayroll 
            Caption         =   "Payroll Details"
         End
      End
      Begin VB.Menu mnuRepAcc 
         Caption         =   "Accounts Report"
         Begin VB.Menu mnuRepAccAssets 
            Caption         =   "Incomes"
         End
         Begin VB.Menu mnuRepAccExp 
            Caption         =   "Expenses"
         End
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False




Private Sub mnuabout_Click()
frmabout.Show
End Sub

Private Sub mnuaddemp_Click()
frmHRDPayAdd.Show
frmMain.Visible = False
End Sub

Private Sub mnuFrontOffChkIn_Click()
rptChkIn.Show
End Sub

Private Sub mnuFrontOffChkOut_Click()
rptChkOut.Show
End Sub

Private Sub mnuFrontOffRes_Click()
rptReservations.Show
End Sub

Private Sub mnuRepAccAssets_Click()
rptIncomes.Show
End Sub

Private Sub mnuRepAccExp_Click()
rptExpenses.Show
End Sub

Private Sub mnurepEmpStaDepList_Click()
rptEmpDept.Show
End Sub

Private Sub mnurepEmpStaDet_Click()
rptEmpDetails.Show
End Sub

Private Sub mnurepResHPCR_Click()
rptRestHPC.Show
End Sub

Private Sub mnurepResSea_Click()
rptRestSea.Show
End Sub

Private Sub mnuToday_Click()
frmTodaySta.Show
frmMain.Visible = False
End Sub

Private Sub murepPayroll_Click()
rptPayroll.Show
End Sub

Private Sub mnuAccAssets_Click()
frmIncome.Show
frmMain.Visible = False
End Sub

Private Sub mnuAccExpenses_Click()
frmexpenses.Show
frmMain.Visible = False
End Sub

Private Sub mnuCheckin_Click()
frmCheckInAdd.Show
frmMain.Visible = False
End Sub

Private Sub mnuCheckOut_Click()
frmCheckOutAdd.Show
frmMain.Visible = False
End Sub

Private Sub mnuEmpProADet_Click()
frmHRDADetails.Visible = True
frmMain.Visible = False
End Sub

Private Sub mnuEmpProClose_Click()
frmMain.Show
frmMain.Visible = False
End Sub

Private Sub mnuEmpProDet_Click()
frmHRDEmpDet.Show
frmMain.Visible = False
End Sub

Private Sub mnuExit_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 mnuFrontOff_Click()
MsgBox "Connecting Oracle.Please wait...", vbInformation, "Wait"
frmFrontOffice.Show
frmMain.Visible = False
End Sub

Private Sub mnulogout_Click()
frmMainPassword.Show
frmMain.Visible = False
End Sub

Private Sub mnuPayRollSal_Click()
frmPassword.Show
frmMain.Visible = False
End Sub

Private Sub mnures_Click()
frmResAdd.Show
frmMain.Visible = False
End Sub

Private Sub mnuRestHPR_Click()
frmResHydePark.Show
frmMain.Visible = False
End Sub

Private Sub mnuRestSea_Click()
frmSeasonsRes.Show
frmMain.Visible = False
End Sub

Private Sub mnuStatusRoom_Click()
frmRoomSta.Show
frmMain.Visible = False
End Sub