mdiform1.frm

An application on Hotel Management System. I developed it for my project during exam time. Any how i

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H00C0E0FF&
   Caption         =   "Hotel Management System"
   ClientHeight    =   9135
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   12705
   Icon            =   "MDIForm1.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu FILE 
      Caption         =   "File"
      Begin VB.Menu MnuRestCashMemo 
         Caption         =   "Print Restaurant Cash Memo"
      End
      Begin VB.Menu a 
         Caption         =   "-"
      End
      Begin VB.Menu MnuCheckoutbill 
         Caption         =   "Print Checkout Bill"
      End
      Begin VB.Menu b 
         Caption         =   "-"
      End
      Begin VB.Menu MnuExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu MnuAdmin 
      Caption         =   "Admin"
      Begin VB.Menu MnuUser 
         Caption         =   "User"
      End
      Begin VB.Menu MnuRoomEntry 
         Caption         =   "Room Entry"
      End
      Begin VB.Menu MnuLogout 
         Caption         =   "Logout"
      End
   End
   Begin VB.Menu MnuView 
      Caption         =   "View"
      Begin VB.Menu MnuRoomStatus 
         Caption         =   "Room Status"
      End
      Begin VB.Menu MnuReservStatus 
         Caption         =   "Reservation Status"
      End
      Begin VB.Menu MnuViewCheckIn 
         Caption         =   "Check In"
      End
      Begin VB.Menu MnuViewCheckOut 
         Caption         =   "Check Out"
      End
   End
   Begin VB.Menu MnuReception 
      Caption         =   "Reception"
      Begin VB.Menu MnuReservation 
         Caption         =   "Room Reservation   ""Add/Edit/Delete"""
      End
      Begin VB.Menu MnuConfermReser 
         Caption         =   "Confirm Reservation"
      End
      Begin VB.Menu MnuCheckOut 
         Caption         =   "Check Out"
      End
   End
   Begin VB.Menu MnuRestourant 
      Caption         =   "Restaurant"
      Begin VB.Menu MnuAddMenue 
         Caption         =   "Menu Stock Entry"
      End
      Begin VB.Menu MnuRestBilling 
         Caption         =   "Billing"
      End
   End
   Begin VB.Menu MnuHelp 
      Caption         =   "Help ?"
   End
   Begin VB.Menu MnuAbout 
      Caption         =   "About"
   End
   Begin VB.Menu exit 
      Caption         =   "Exit"
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim MyDb As Database, MyRs As Recordset
Private Sub exit_Click()
res = MsgBox("Do you want to Quit ?", vbYesNo + vbQuestion, "Want to Quit ?")
If res = vbYes Then
End
Else
Exit Sub
End If

End Sub

Private Sub MDIForm_Load()
Me.Left = 0
Me.Top = 0
RunStatus = "frmAbout"
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
Cancel = True

End Sub

Private Sub MnuAbout_Click()
frmAbout.Show
End Sub

Private Sub MnuAddMenue_Click()
FrmStockEntry.Show
End Sub

Private Sub MnuCheckOut_Click()
FrmCheckOut.Show
End Sub

Private Sub MnuCheckoutbill_Click()
FrmPrintBill.Show

End Sub

Private Sub MnuConfermReser_Click()
FrmConferm.Show
End Sub

Private Sub MnuExit_Click()
exit_Click
End Sub

Private Sub MnuHelp_Click()
FrmHelp.Show
End Sub

Private Sub MnuLogout_Click()
FrmLogin.Show
Me.Hide
End Sub

Private Sub MnuReservation_Click()
FrmRegister.Show
End Sub

Private Sub MnuReservStatus_Click()
FrmRegistrationStatus.Show
End Sub

Private Sub MnuRestBilling_Click()
FrmRestourant.Show
End Sub

Private Sub MnuRestCashMemo_Click()
FrmPrintRest.Show

End Sub

Private Sub MnuRoomEntry_Click()
FrmRoomEntry.Show
End Sub

Private Sub MnuRoomStatus_Click()
FrmRoomStatus.Show
End Sub

Private Sub MnuUser_Click()
FrmCreatUser.Show
End Sub

Private Sub MnuViewCheckIn_Click()
FrmCheckInShow.Show
End Sub

Private Sub MnuViewCheckOut_Click()
FrmCheckOutView.Show

End Sub