MAHTMA GANDHI MISSION’S COLLEGE OF COMPUTER SCIENCE AND INFORMATION TECHINOLOGY (KAMOTHE, NAVI MUMBAI)
A PROJECT REPORT ON
HOTEL RESERVATION MANAGEMENT SYSTEM DEVELOPED BY
VIVEKANAND BIDRI T.Y. B.Sc. (Computer Science) (2007-2008) Seat No: 15853 GUIDED BY
Mrs. SUCHITA MASKE
HOTEL RESERVATION MANAGEMENT SYSTEM
MAHTMA GANDHI MISSION’S COLLEGE OF COMPUTER SCIENCE AND INFORMATION TECHNOLOGY, KAMOTHE, NAVI MUMBAI NAVI MUMBAI - 410209.
CERTIFICATE This is to certify that project work entitled ,
“HOTEL RESERVATION management SYSTEM” is Submitted by VIVEKANAND VIVEKANAND BIDRI In partial fulfillment of the degr degree ee in B.Sc B.Sc.. Comp Comput uter er Scie Scienc ncee Of the the Mumb Mumbai ai Univ Univer ersi sity ty for for The The session 2007-2008. He has worked under my supervision for the submission of this project, which to my knowledge has reached the requisite r equisite standards.
_________________
Head of Department
Internal Guide
Mrs. CHAITALI GADEKAR
________________ ________________ Principal
_____________
Mrs. SUCHITA MASKE
__________________ __________________ External Examiner
HOTEL RESERVATION MANAGEMENT SYSTEM
__________________ __________________ External Examiner
MAHTMA GANDHI MISSION’S COLLEGE OF COMPUTER SCIENCE AND INFORMATION TECHNOLOGY, KAMOTHE, NAVI MUMBAI NAVI MUMBAI - 410209.
CERTIFICATE This is to certify that project work entitled ,
“HOTEL RESERVATION management SYSTEM” is Submitted by VIVEKANAND VIVEKANAND BIDRI In partial fulfillment of the degr degree ee in B.Sc B.Sc.. Comp Comput uter er Scie Scienc ncee Of the the Mumb Mumbai ai Univ Univer ersi sity ty for for The The session 2007-2008. He has worked under my supervision for the submission of this project, which to my knowledge has reached the requisite r equisite standards.
_________________
Head of Department
Internal Guide
Mrs. CHAITALI GADEKAR
________________ ________________ Principal
_____________
Mrs. SUCHITA MASKE
__________________ __________________ External Examiner
HOTEL RESERVATION MANAGEMENT SYSTEM
__________________ __________________ External Examiner
ACKNOWLEDGEMENT
It gives me great pleasure to present my project on, “HOTEL RESERVATION MANAGEMENT SYSTEM”.
This is my first Milestone in B.Sc. with Computer Science. I would like to give my thanks to our Principal and our in charge Mrs. SUCHITA MASKE for her support and facilities provided to us for the project. I would like to express my sincere thanks to all the teachers. Who helped me throughout the project I would also like to acknowledge the help and guidance provided by teachers in all places during the presentation of this project. I would like to give my thanks to my all Friends & My parents for providing the great support.
DATE: PLACE: - KAMOTHE
HOTEL RESERVATION MANAGEMENT SYSTEM
Developed by:VIVEKANAND VIVEKANAND BIDRI
INDEX SR.NO. 1 2 3 4 5
6
7 8 9 10
CHAPTER NAME
Gantt Chart. Proposed System. Hardware Specification. Software Specification. System Documentation. 5.1) Entity Relationship Diagram. 5.2) Data Flow Diagram. A) Context Level Diagram. B) 0th Level Diagram. 0th Level DFD Fragment. i) C) Level 1 Diagram. D) Level 2 Diagram. E) Level 3 Diagram. F) Level 4 Diagram. G) Level 5 Diagram. 5.3) Event Table. 5.4) System Flowcharts. 5.5) Structured Chart 5.6) Menu Tree 5.7) Program List 5.8) Database Design 5.9)System Controls And Standard 5.10) Project Coding And Conventions Program Documentation a)Program ID b)Program Level Pseudopodia c)Test Data d)Test Results Report Conclusion Future Enhancement Bibliography
HOTEL RESERVATION MANAGEMENT SYSTEM
PAGE NO.
C H A P T E R
1 Gantt Chart In This Chapter
1) Gantt chart
HOTEL RESERVATION MANAGEMENT SYSTEM
1.1) GANT CHART
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
2 Proposed System In This Chapter :
1) Introduction 2) Features of Proposed System
HOTEL RESERVATION MANAGEMENT SYSTEM
2.1) INTRODUCTION By the Computerization of this system all the records can Be maintained easily.
Unlike the manual system particular record can be found Easily .There is no need to maintain register.
Computerized system contains several forms for different Purposes.
It generates the Proper report of every stage of system.
The proposed system contain various report like Client Status Report, Room Rate Report etc.
HOTEL RESERVATION MANAGEMENT SYSTEM
Report,
2.2) FEATURES OF THE PROPOSED SYSTEM
The search structure is used to find the entries of the Database from various fields which makes it more reliable for viewing hierarchal information.
Time is saved due to faster access to records .
Validation is done at every level in the system.
This system is uses MS Access as database, which is strong and secure database for proposed system.
The proposed system empowers the user with a new computer based system by reducing the efforts of data maintenance.
The proposed developed according to the user specification hence it is a user-centered system.
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
3 Hardware Specification In This Chapter :
1) Minimum requirement 2) Drivers used
HOTEL RESERVATION MANAGEMENT SYSTEM
REQUIREMENTS: 3.1) MINIMUM R REQUIREMENTS: 1) Windows 98 Server runs with 12MB of RAM. 2) It doesn’t run until it has 16MB of RAM. 3) It doesn’t shine well until it has 32MB of RAM. 4) Minimum speed needed to run Windows NT is 486.
3.1) DRIVER USED: To access a database a suitable driver used is “MICROSOFT ACCESS DRIVER”
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
4 Software Specification In This Chapter :
1) Minimum requirement
HOTEL RESERVATION MANAGEMENT SYSTEM
EQUIREMENTS: 4.1) MINIMUM R EQUIREMENTS:
FRONT END: VISUAL STUDIO 6.0
BACK END: MS-ACCESS
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
5 System Documentation In This Chapter
1) Entity Relationship Diagram 2) Data Flow Diagram i) Conventions of DFD ii) Date Flow Diagram(DFD) in detail A). Context Level Diagram B). Zero Level Diagram C). Level One Diagram DFD Fragments D). Level Two Diagram E). Level Three Diagram F). Level Four Diagram G). Level Five Diagram 3) Event Table 4) System Chart 5) Structure Chart 6) Menu Tree 7) Program List 8) Data Base Design 9) System Controls and Standards 10) Project Coding and Conventions HOTEL RESERVATION MANAGEMENT SYSTEM
5.1) ENTITY R ELATIONSHIP DIAGRAM: Nam e
Addres s
Nationalit y
Reservatio n Date
Gende r
Age
Room No
OutDate InDate
Nam e
Charg e
Pays
Customer
Bill
ISA Generat es
Borro ws Outsider
Employee
Nam e
Nam e
User
Rooms Type Room No
HOTEL RESERVATION MANAGEMENT SYSTEM
Nam e
Passwor d
Rate
5.2) DATA FLOW DIAGRAM: The DFD is short for Data Flow Diagram. It represents how the data flows in the processes.
i) THE CONVENTIONS OF DFD :-
PROCESS
DATA FLOW
EXTERNAL AGENT
DATA STORE
Real-Time Link
HOTEL RESERVATION MANAGEMENT SYSTEM
ii) DATA FLOW DIAGRAMS IN DETAIL:
A). CONTEXT LEVEL DIAGRAM: Room availability Inquiry
Check room availability
Room availability Response
Enter check-In and Check-Out Details
Room request Customer
Room Allotted
Hotel Reservation Management System
Generate Bills
Edit Room Rates Room Vacating Notice Bill Provided
Update Records
Add / Delete User and
Management
HOTEL RESERVATION MANAGEMENT SYSTEM
User
B). ZERO LEVEL DIAGRAM: Room Inquiry
1
Customer Status Confirmation
Rooms
Look Up Room Availability
Room Request
Room Allotment Confirmation
2
Enter Customer Details
Room Booking / Reservation
User Check Room Status Room Status Details Rooms Room Vacating Notice Bill Provided
3
Room Vacating
Clients
Generates Bill Duplicate Bill Request
Duplicate Bill Provided
4
Duplicate Bill Generation
Clients
Edits Room Rates Acknowledgement
5 Rate
Edit Room Rates Notice
Edit Room Rates
Confirmation Management
HOTEL RESERVATION MANAGEMENT SYSTEM
B.I) DFD Fragment 1
Room Inquiry
1
Customer Status Confirmation
Rooms
Look Up Room Availability
B.II) DFD Fragment 2 Customer Details + Room Specification
2
Customer Confirmation
Rooms
Room Booking / Reservation
B.III) DFD Fragment 3
Customer
3
Rooms
Room Vacating Clients
HOTEL RESERVATION MANAGEMENT SYSTEM
B.III) DFD Fragment 4
Customer Details Customer
Bill Provided
4
Duplicate Bill Generation
Clients
B.III) DFD Fragment 5
New Rates Management Confirmation
5
Edit Room Rates
HOTEL RESERVATION MANAGEMENT SYSTEM
Rate
C). LEVEL ONE DIAGRAM: Look Up Room Availability
1.4 Customer
Feedback
Room Status Details
User
1.1
Room Inquire
Rooms
1.2 Room Specification
HOTEL RESERVATION MANAGEMENT SYSTEM
1.3 Check Availability
D). LEVEL TWO DIAGRAM: Room Booking / Reservation
Customer
Confirmation 2.3 Allot Room
Rooms
User
2.2 2.1 Room Request
HOTEL RESERVATION MANAGEMENT SYSTEM
Record Customer Details
E). LEVEL THREE DIAGRAM: Room Vacating
Bill Provided Customer 3.3 Generate Bill
Clients
Rooms Customer Records User
3.1 Room Vacating Notice
3.2 Check Out Date
HOTEL RESERVATION MANAGEMENT SYSTEM
Update Record
F). LEVEL FOUR DIAGRAM: Duplicate Bill Request
Bill Provided Customer 4.3 Generate Bill
Clients
Details
User
4.1 Bill Request
HOTEL RESERVATION MANAGEMENT SYSTEM
4.2 Take Customer Details
G). LEVEL FIVE DIAGRAM: Edit Room Rates
New Room Rates Report Management
5.3 Generate Report
Rate
User
5.1 Edit Room Rates Notice
5.2
New Rates
HOTEL RESERVATION MANAGEMENT SYSTEM
Edit Room Rates
5.3) EVENT TABLE: EVENT
TRIGGER
SOURCE
ACTIVITY
RESPONSE
Customer wants to know room availability
Room Enquire
Customer
Look up for Room room availability availability details.
Customer
Room request placed
Check-In / Reservation
Customer
Room Allotment
Customer
Allotment confirmation Allotment Details
Customer wants to Vacant Room
Check-Out
Customer
Room Deallotment
Deallotment confirmation
DESTINATI ON
Status Data Base
Customer Customer
Bill generated Check-Out Details Entry
MasterList database, Status Data Base
Management decides to change room rates
Edit Room rates
Management
Room rates Changed
Confirmation of Changes Made
Rooms Data Base
Management decides to add/delete User
Edit User
Management
User added/ Deleted
Confirmation
Existing Data Base
Customer Request for Duplicate Bill
Duplicate Bill Request
Customer
Duplicate Bill Generated
Duplicate Bill printed
Customer
HOTEL RESERVATION MANAGEMENT SYSTEM
5.4). SYSTEM FLOWCHART:
MasterList
Status
Rooms
MasterList
Clients Detail
Room Status
Client Master List Report
Room Status Report
Room Rate
Customer Details
HOTEL RESERVATION MANAGEMENT SYSTEM
Room Rate Report
Bill
5.5). STRUCTURE CHART:
Hotel Reservation Management System
Rooms
Inquire Room Type
Know user Requirement
Room Booking Room No
Record Customer Information
Rates
Room Vacation
Edit Rates
Add / Delete User
New Rates
User Details
Customer Information
Generate Bill
User Name
HOTEL RESERVATION MANAGEMENT SYSTEM
Password
5.6). MENU TREE: MENU TREE AUTHENTICATION
USER ACCESS LOGIN USERS CHANGE PASSWORD LOG OFF EXIT MENU CARD
ADD VIEW ORDERS
CUSTOMER DETAILS ORDER DETAILS
ROOM RATES REPORTS CLIENT MASTER LIST ROOM STATUS ROOM RATES BILL ABOUT US
HOTEL RESERVATION MANAGEMENT SYSTEM
5.7). PROGRAM LIST: SR FORM NAME NO.
DESCRIPTION
1
frmSplash.frm
A Splash Form
2
frmlogin.frm
Login form
3
frmMain.frm
Main (MDI) form where all links available
4
frmStanSingle.frm
Standard Single Room Transaction Form.
5
frmStanDouble.frm
Standard Double Room Transaction Form.
6
frmVipSingle.frm
V.I.P Single Room Transaction Form.
7
frmVipDouble.frm
V.I.P Double Room Transaction Form.
8
frmFamilyDouble.frm
Family Double Room Transaction Form.
9
frmFamilyTriple.frm
Family Triple Room Transaction Form.
10
frmMasterList.frm
Client Master List Form.
11
frmRooms.frm
Room Status Form.
12
frmAdminSecurity.frm
System Security Form.
13
frmAdministrator.frm
Add, Delete – User and Change Room Rate Form.
14
frmAbout.frm
Info. About system
HOTEL RESERVATION MANAGEMENT SYSTEM
5.8). DATABASE DESIGN: TABLE 1 :- Users
Description :- This table stores the information about the users of System.
FIELD NAME
DATATYPE
DESCRIPTION
Username
Text
Store Name of Users
Password
Text
Store Password Of Users
TABLE 2:- Rates Description :- This table stores the information about the Rates of different types of Rooms. FIELD NAME
DATATYPE DESCRIPTION
Type
Text
Tells the type of Room is.
PerDay
Text
Stores the cost of Per Day for specific Type of Room.
HOTEL RESERVATION MANAGEMENT SYSTEM
TABLE 3:- Status Description :- This table stores the information about the State of Rooms along with Active Customers Details, Check-In, Check-Out Date, Total Charge etc.
FIELD NAME
DATATYPE DESCRIPTION
RoomNumber
Text
Stores Room Number.
Name
Text
Stores Name of the Customer.
Address
Text
Stores Address of the Customer.
Age
Text
Stores age of the Customer.
Gender
Text
Stores Gender of the user.
Nationality
Text
Stores Nationality of the Customer.
DateReserved
Text
Stores Date of Reservation of Room
DateIn
Text
Stores Date of Check In.
DateOut
Text
Stores Date of Check Out.
DaysIncurred
Text
Stores No of Days Stayed.
Status
Text
Stores Status of the Room.
Charge
Text
Stores Total Charge of Room.
HOTEL RESERVATION MANAGEMENT SYSTEM
TABLE 4:- CustomerRecord Description: - This table stores the Information of all those Customer who have stayed in the Hotel. FIELD NAME
DATATYPE DESCRIPTION
RoomNumber
Text
Stores Room Number.
Name
Text
Stores Name of the Customer.
Address
Text
Stores Address of the Customer.
Age
Text
Stores age of the Customer.
Gender
Text
Stores Gender of the user.
Nationality
Text
Stores Nationality of the Customer.
DateReserved
Text
Stores Date of Reservation of Room
DateIn
Text
Stores Date of Check In.
DateOut
Text
Stores Date of Check Out.
DaysIncurred
Text
Stores No of Days Stayed.
Status
Text
Stores Status of the Room.
Charge
Text
Stores Total Charge of Room.
HOTEL RESERVATION MANAGEMENT SYSTEM
5.9). SYSTEM CONTROLS AND STANDARDS: 11.1). Access Control:My System gives access by accepting valid password only.
11.2). Input Control :•
•
•
System validates every textbox. It allows entering textual values for textual fields. It allows entering numeric values for numeric fields.
Some allows both numeric and textual Values to meet the Requirement of System.
HOTEL RESERVATION MANAGEMENT SYSTEM
5.10). PROJECT CODING AND CONVENTIONS: This document discusses Common Coding Conventions and naming techniques used for Database designing (backend) i.e. Microsoft Access and from design layout (front-end) i.e. for Visual Basic 6.0.
NAMING CONVENTIONS The most important rule in naming is that are long enough and as descriptive as possible. Especially in a large project containing several modules the name should be made carefully to avoid conflicts between modules. For that reason too short and general names should be avoided when naming public identifiers of a module.
TABLE NAME
The table Name must have a unique name via which it can be referred to after its creation.
The table name should not contain any space; underscore can be given instead of spaces.
Table name should not contain any special symbol.
The table name should be provided with descriptive names as far as possible.
FOR eg: EmpMaster
This clearly indicates that it contains information of the employee.
COMMENTING CONTROL STRUCTURES
All control statements should have a comment at the start.
HOTEL RESERVATION MANAGEMENT SYSTEM
If it is an ‘if or a case’ statement you can provide the reason for the decision and the summary of the outcome.
If it is a loop, you can indicate the purpose of the loop.
NAMING CONVENTIONS FOR VISUAL BASIC FORM NAME OF THE PROJECT
The name of the projects should reflect the contents of the project and should be saved with a “*.vbp” extension. The name could be more than 10 characters long and a mixture of small case and upper case letters. They cannot include any special symbols except for an underscore i.e. “_”
Eg: SmartSoft_vb_1.vbp
NAME OF THE MODULE The name of the module should reflect the contents of the module. It should be saved with a “*.bas” extension. They cannot include any special symbols except for an underscore i.e.”_”
NAME OF THE FORM The name of the form should reflect the contents of the project and should be saved with a “*.frm” extension. The name could be more than 10 characters long and a mixture of small case and upper case letters. They cannot include any special symbols except for an underscore i.e.”_” Eg: frmEmpMaster.frm
HOTEL RESERVATION MANAGEMENT SYSTEM
1. FORM The name of the form should reflect the contents of the form making it easy to recognize.
The first alphabet of the form should be capital letter followed by small letters, if the form name comprises of two words then first letter of both the words should be capital.
The form should be saved with “*.frm” extension.
They cannot include any special symbols except for an underscore i.e.”_” Eg: frmXXX i.e. frmEmpMaster.frm
2. COMMAND BUTTON
The command buttons should be named with a keyword “cmd” preceding the name of the button making it easier to understand that we are referring to a command button.
The first letter of the command button name after the keyword should be capital.
They cannot include any special symbol except for an underscore i.e.”_” Eg: CmdXXX i.e. CmdAaa
3. LABELS
The labels should be named with a keyword “lbl” preceding the name of the label making it easier to understand that we are referring to a label.
The first letter of the label name after the keyword should be capital.
They cannot include any special symbols except for an underscore i.e.”_”
4. TEXTBOX HOTEL RESERVATION MANAGEMENT SYSTEM
The textbox should be named with a keyword “txt” preceding the name of the textbox making it easier to understand that we are referring to a textbox.
The first letter of the textbox name after the keyword should be capital.
They cannot include any special symbols except for an underscore i.e.”_” Eg: txtXXX i.e. txtCmpName
5. FRAMES
The frames should be named with a keyword”fra” preceding the name of the frame making it easier to understand that we are referring to a textbox.
The first letter of the frame name after the keyword sho uld be capital.
They cannot include any special symbols except for an underscore i.e. “_” Eg: fraXXX i.e. fraSmartSoft
6. COMBO BOX
The combo box should be named with a keyword “cmb” or "cbo" preceding the name of the combo box making it easier to understand that we are referring to a listbox.
The first letter of the frame name after the keyword sho uld be capital.
They cannot include any special symbols except for an underscore i.e. “_” Eg: cmbCmpName cboProducts
NOTE : By default the names of all the properties of the form elements are beginning with the capital letter.
7. NAMING FOR VARIABLES AND CONSTANTS
Identifiers must be meaningful. Chose a name that identifies its purpose.
HOTEL RESERVATION MANAGEMENT SYSTEM
Do not abbreviate names unless the meaning is very obvious.
Do not use very short identifiers.
Precede each identifier with a lowercase prefix that specifies the data type.
It is similar to the convention we have adopted for naming form elements. Eg: Dim strname as string Dim age as Integer
Capitalize each word of the name following the prefix. Never use all uppercase.
Declare constants using the keyword “const”. Its value cannot be changed.
They cannot include any special symbols except for an underscore i.e.”_” Eg: Const strCompanyName as string=”R” Const curSales as currency=.095
NOTE
By default the names of all the properties of the variables and constants are beginning with a capital letter.
8. MENUS
While declaring menu name we follow the usual convention where before the menu element name field we have a keyword “mnu” preceded by the name. Eg: mnuOpenMain
9. TABLE NAME
The table name must have a unique name via when it can be referred to after its creation.
The table name should not contain any space. Underscore can be given instead of space.
HOTEL RESERVATION MANAGEMENT SYSTEM
Table name should not contain any special symbol. e.g tblCustdetails or Client
C H A P T E R
6 Program Documentation In This Chapter
1) 2) 3) 4)
Program ID Program level pseudopodia Text data Text results
HOTEL RESERVATION MANAGEMENT SYSTEM
Design Section 1) Splash Form This is the introductory form which just appears while loading the program
HOTEL RESERVATION MANAGEMENT SYSTEM
2) Login Form This form is used to gain access to the system by entering the user name and password given to the user
As soon as you put your correct login name and password you can get the control to use the software
HOTEL RESERVATION MANAGEMENT SYSTEM
3) MDI Form This form gives the control to handle all the operations regarding subscriber details storage and knowing the issues released subscription end
HOTEL RESERVATION MANAGEMENT SYSTEM
4) Standard Single Room Form Enables the user to Reserve, Allot and Deallot the rooms.
HOTEL RESERVATION MANAGEMENT SYSTEM
5) Room Status Form Enables the user to know the Status of the Rooms
HOTEL RESERVATION MANAGEMENT SYSTEM
6) Customers MasterList Form Displays list of all the Customers.
HOTEL RESERVATION MANAGEMENT SYSTEM
7) Administrator Utility Wizard Form Enables User/Administrator to edit the Room rates or Add/Delete User.
HOTEL RESERVATION MANAGEMENT SYSTEM
8) About Form Describes the System Objective in brief.
HOTEL RESERVATION MANAGEMENT SYSTEM
Coding Section MDI Form : '===================================================== 'Program Name : frmMain.frm 'Description : Main Form 'Developed By : Vivekanand Bidri 'Date : 'Issue/Version : 1.0 '===================================================== Dim rs As ADODB.Recordset Private Sub MDIForm_Load() Top = 0 'Properties of the Form are Re-Set to new values. Left = 0 Call ConnectDB End Sub Private Sub mStanSingle_Click() frmStanSingle.Show 'Form: frmStanSingle frmStanSingle will be Displayed End Sub Private Sub mStanDouble_Click() frmStanDouble.Show 'Form: frmStanDouble will be Displayed End Sub Private Sub mVipSingle_Click() frmVipSingle.Show 'Form: frmVipSingle will be Displayed End Sub Private Sub mVipDouble_Click() frmVipDouble.Show 'Form: frmVipDouble will be Displayed
HOTEL RESERVATION MANAGEMENT SYSTEM
End Sub Private Sub mFamilyDouble_Click() frmFamilyDouble.Show 'Form: frmFamilyDouble will be Displayed End Sub Private Sub mFamilyTriple_Click() frmFamilyTriple.Show 'Form: frmFamilyTriple will be Displayed End Sub Private Sub mExit_Click() If MsgBox("You are about to quit this application. Are you sure?", vbOKCancel + vbInformation, "Confirm Logoff") = vbOK Then End Else Exit Sub End If End Sub Private Sub mClients_Click() frmMasterList.Show 'Form: frmMasterList will be Displayed End Sub Private Sub mRoomStat_Click() frmRooms.Show 'Form: frmRooms will be Displayed End Sub Private Sub mSecurity_Click() frmAdminSecurity.Show 'Form: frmAdminSecurity will be Displayed End Sub Private Sub mRoomRates_Click() frmAdminSecurity.Show 1 'Form: frmAdminSecurity will be Displayed End Sub Private Sub mmaster_Click() DRCustRecord.Show 'DataReport: DRCustRecord will be Displayed End Sub Private Sub mstatus_Click() DRRoomStatus.Show 'DataReport: DRRoomStatus will be Displayed End Sub Private Sub mroomrate_Click() DRRoomRates.Show 'DataReport: DRRoomRates will be Displayed End Sub
HOTEL RESERVATION MANAGEMENT SYSTEM
Private Sub mAbout_Click() frmAbout.Show 'Form: frmAbout will be Displayed End Sub Private Sub Timer1_Timer() lblDate.Caption = Format(Date, "mmmm dd, yyyy") lblTime.Caption = Format(Time, "hh:dd:ss am/pm") End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 frmStanSingle.Show 'Form: frmStanSingle Will be Displayed frmStanDouble.Show 'Form: frmStanDouble Will be Displayed Case 2 frmVipSingle.Show 'Form: frmVipSingle Will be Displayed frmVipDouble.Show 'Form: frmVipDouble Will be Displayed Case 3 frmFamilyDouble.Show 'Form: frmFamilyDouble Will be Displayed frmFamilyTriple.Show 'Form: frmFamilyTriple Will be Displayed Case 4 frmMasterList.Show 'Form: frmMasterList Will be Displayed Case 5 frmRooms.Show 'Form: frmRooms Will be Displayed Case 6 frmAdminSecurity.Show 0 'Form: frmAdminSecurity Will be Displayed Case 7 frmAbout.Show 'Form: frmAbout Will be Displayed Case 8 If MsgBox("You are about to quit this application. Are you sure?", vbOKCancel + vbInformation, "Confirm Logoff") = vbOK Then End 'System will be Closed. Else Exit Sub End If End Select End Sub
HOTEL RESERVATION MANAGEMENT SYSTEM
Standard Single Room Form : '===================================================== 'Program Name : frmStanSingle.frm 'Description : Deals with Standard Single Rooms 'Developed By : Vivekanand Bidri 'Date : 'Issue/Version : 1.0 '===================================================== Dim rs1 As ADODB.Recordset Dim rs2 As ADODB.Recordset Dim rs3 As ADODB.Recordset Dim rsCR As ADODB.Recordset Dim rsR As ADODB.Recordset Private Sub Form_Load() Height = 6750 'Properties of the Form are set to new values Top = 1300 Left = 400 SSTab1.Tab = 0 Call ConnectDB 'Connection will be established with the Database to enable information transection End Sub Private Sub cmdGbill1_Click() 'bill will be generated for the Customer who used Room with Room No: 1 bill.Sections("Section2").Controls.Item("lblName").Caption = txtName1.Text bill.Sections("Section2").Controls.Item("lblAdd").Caption = txtAddress1.Text bill.Sections("Section2").Controls.Item("lblRUsed").Caption = " Room No : 1" bill.Sections("Section2").Controls.Item("lblRes").Caption = lblDateReserved1 bill.Sections("Section2").Controls.Item("lblDI").Caption = lblDaysIncurred1 & " Day(s)" bill.Sections("Section2").Controls.Item("lblChkIn").Caption = lblDateIn1 bill.Sections("Section2").Controls.Item("lblChkOut").Caption = lblDateOut1 bill.Sections("Section2").Controls.Item("lblBill").Caption = "Rs " & lblCharge1 & "Only" bill.Show End Sub Private Sub cmdGbill2_Click() HOTEL RESERVATION MANAGEMENT SYSTEM
'bill will be generated for the Customer who used Room with Room No: 2 bill.Sections("Section2").Controls.Item("lblName").Caption = txtName2.Text bill.Sections("Section2").Controls.Item("lblAdd").Caption = txtAddress2.Text bill.Sections("Section2").Controls.Item("lblRUsed").Caption = " Room No : 2" bill.Sections("Section2").Controls.Item("lblRes").Caption = lblDateReserved2 bill.Sections("Section2").Controls.Item("lblDI").Caption = lblDaysIncurred2 & " Day(s)" bill.Sections("Section2").Controls.Item("lblChkIn").Caption = lblDateIn2 bill.Sections("Section2").Controls.Item("lblChkOut").Caption = lblDateOut2 bill.Sections("Section2").Controls.Item("lblBill").Caption = "Rs " & lblCharge2 & "Only" bill.Show End Sub Private Sub cmdGbill3_Click() 'bill will be generated for the Customer who used Room with Room No: 3 bill.Sections("Section2").Controls.Item("lblName").Caption = txtName3.Text bill.Sections("Section2").Controls.Item("lblAdd").Caption = txtAddress3.Text bill.Sections("Section2").Controls.Item("lblRUsed").Caption = " Room No : 3" bill.Sections("Section2").Controls.Item("lblRes").Caption = lblDateReserved3 bill.Sections("Section2").Controls.Item("lblDI").Caption = lblDaysIncurred3 & " Day(s)" bill.Sections("Section2").Controls.Item("lblChkIn").Caption = lblDateIn3 bill.Sections("Section2").Controls.Item("lblChkOut").Caption = lblDateOut3 bill.Sections("Section2").Controls.Item("lblBill").Caption = "Rs " & lblCharge3 & "Only" bill.Show End Sub Private Sub Timer1_Timer() '************************* Room 1 **************************** 'set the controls of Room 1 tab to there desire state Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic With rs1 RStatus = .Fields("Status") End With SSTab1.TabCaption(0) = "Room 1" & " [" & RStatus & "]" If RStatus = "Available" Then Toolbar1.Buttons(1).Enabled = False Toolbar1.Buttons(2).Enabled = False Toolbar1.Buttons(3).Enabled = False Toolbar1.Buttons(4).Enabled = True
HOTEL RESERVATION MANAGEMENT SYSTEM
Toolbar1.Buttons(5).Enabled = False ElseIf RStatus = "Reserved" Then Toolbar1.Buttons(1).Enabled = False Toolbar1.Buttons(2).Enabled = True Toolbar1.Buttons(3).Enabled = False Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(5).Enabled = True With rs1 txtName1 = .Fields("Name") txtAddress1 = .Fields("Address") txtAge1 = .Fields("Age") cmdGender1 = .Fields("Gender") txtNationality1 = .Fields("Nationality") lblDateReserved1 = .Fields("DateReserved") End With ElseIf RStatus = "Using" Then Toolbar1.Buttons(1).Enabled = False Toolbar1.Buttons(2).Enabled = False Toolbar1.Buttons(3).Enabled = True Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(5).Enabled = True With rs1 txtName1 = .Fields("Name") txtAddress1 = .Fields("Address") txtAge1 = .Fields("Age") cmdGender1 = .Fields("Gender") txtNationality1 = .Fields("Nationality") lblDateReserved1 = .Fields("DateReserved") lblDateIn1 = .Fields("DateIn") RStatus = .Fields("Status") End With ElseIf RStatus = "Out" Then Toolbar1.Buttons(1).Enabled = False Toolbar1.Buttons(2).Enabled = False Toolbar1.Buttons(3).Enabled = False Toolbar1.Buttons(4).Enabled = True Toolbar1.Buttons(5).Enabled = False With rs1 txtName1 = .Fields("Name") txtAddress1 = .Fields("Address") txtAge1 = .Fields("Age") cmdGender1 = .Fields("Gender")
HOTEL RESERVATION MANAGEMENT SYSTEM
txtNationality1 = .Fields("Nationality") lblDateReserved1 = .Fields("DateReserved") lblDateIn1 = .Fields("DateIn") lblDateOut1 = .Fields("DateOut") lblDaysIncurred1 = .Fields("DaysIncurred") lblCharge1 = .Fields("Charge") End With End If rs1.Close Timer1.Enabled = False End Sub Private Sub Timer2_Timer() '************************* Room 2 **************************** 'set the controls of Room 2 tab to there desire state Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic With rs2 RStatus = .Fields("Status") End With SSTab1.TabCaption(1) = "Room 2" & " [" & RStatus & "]" If RStatus = "Available" Then Toolbar2.Buttons(1).Enabled = False Toolbar2.Buttons(2).Enabled = False Toolbar2.Buttons(3).Enabled = False Toolbar2.Buttons(4).Enabled = True Toolbar2.Buttons(5).Enabled = False ElseIf RStatus = "Reserved" Then Toolbar2.Buttons(1).Enabled = False Toolbar2.Buttons(2).Enabled = True Toolbar2.Buttons(3).Enabled = False Toolbar2.Buttons(4).Enabled = False Toolbar2.Buttons(5).Enabled = True
With rs2 txtName2 = .Fields("Name") txtAddress2 = .Fields("Address") txtAge2 = .Fields("Age") cmdGender2 = .Fields("Gender") txtNationality2 = .Fields("Nationality") lblDateReserved2 = .Fields("DateReserved")
HOTEL RESERVATION MANAGEMENT SYSTEM
End With ElseIf RStatus = "Using" Then Toolbar2.Buttons(1).Enabled = False Toolbar2.Buttons(2).Enabled = False Toolbar2.Buttons(3).Enabled = True Toolbar2.Buttons(4).Enabled = False Toolbar2.Buttons(5).Enabled = True
With rs2 txtName2 = .Fields("Name") txtAddress2 = .Fields("Address") txtAge2 = .Fields("Age") cmdGender2 = .Fields("Gender") txtNationality2 = .Fields("Nationality") lblDateReserved2 = .Fields("DateReserved") lblDateIn2 = .Fields("DateIn") RStatus = .Fields("Status") End With ElseIf RStatus = "Out" Then Toolbar2.Buttons(1).Enabled = False Toolbar2.Buttons(2).Enabled = False Toolbar2.Buttons(3).Enabled = False Toolbar2.Buttons(4).Enabled = True Toolbar2.Buttons(5).Enabled = False With rs2 txtName2 = .Fields("Name") txtAddress2 = .Fields("Address") txtAge2 = .Fields("Age") cmdGender2 = .Fields("Gender") txtNationality2 = .Fields("Nationality") lblDateReserved2 = .Fields("DateReserved") lblDateIn2 = .Fields("DateIn") lblDateOut2 = .Fields("DateOut") lblDaysIncurred2 = .Fields("DaysIncurred") lblCharge2 = .Fields("Charge") End With End If rs2.Close Timer2.Enabled = False End Sub Private Sub Timer3_Timer() '************************* Room 3 ****************************
HOTEL RESERVATION MANAGEMENT SYSTEM
'set the controls of Room 3 tab to there desire state Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic With rs3 RStatus = .Fields("Status") End With SSTab1.TabCaption(2) = "Room 3" & " [" & RStatus & "]" If RStatus = "Available" Then Toolbar3.Buttons(1).Enabled = False Toolbar3.Buttons(2).Enabled = False Toolbar3.Buttons(3).Enabled = False Toolbar3.Buttons(4).Enabled = True Toolbar3.Buttons(5).Enabled = False End If If RStatus = "Reserved" Then Toolbar3.Buttons(1).Enabled = False Toolbar3.Buttons(2).Enabled = True Toolbar3.Buttons(3).Enabled = False Toolbar3.Buttons(4).Enabled = False Toolbar3.Buttons(5).Enabled = True
With rs3 txtName3 = .Fields("Name") txtAddress3 = .Fields("Address") txtAge3 = .Fields("Age") cmdGender3 = .Fields("Gender") txtNationality3 = .Fields("Nationality") lblDateReserved3 = .Fields("DateReserved") End With End If If RStatus = "Using" Then Toolbar3.Buttons(1).Enabled = False Toolbar3.Buttons(2).Enabled = False Toolbar3.Buttons(3).Enabled = True Toolbar3.Buttons(4).Enabled = False Toolbar3.Buttons(5).Enabled = True
With rs3 txtName3 = .Fields("Name")
HOTEL RESERVATION MANAGEMENT SYSTEM
txtAddress3 = .Fields("Address") txtAge3 = .Fields("Age") cmdGender3 = .Fields("Gender") txtNationality3 = .Fields("Nationality") lblDateReserved3 = .Fields("DateReserved") lblDateIn3 = .Fields("DateIn") RStatus = .Fields("Status") End With End If If RStatus = "Out" Then Toolbar3.Buttons(1).Enabled = False Toolbar3.Buttons(2).Enabled = False Toolbar3.Buttons(3).Enabled = False Toolbar3.Buttons(4).Enabled = True Toolbar3.Buttons(5).Enabled = False With rs3 txtName3 = .Fields("Name") txtAddress3 = .Fields("Address") txtAge3 = .Fields("Age") cmdGender3 = .Fields("Gender") txtNationality3 = .Fields("Nationality") lblDateReserved3 = .Fields("DateReserved") lblDateIn3 = .Fields("DateIn") lblDateOut3 = .Fields("DateOut") lblDaysIncurred3 = .Fields("DaysIncurred") lblCharge3 = .Fields("Charge") End With End If Timer3.Enabled = False rs3.Close End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 'Deals with transection of information related with Room No: 1 , from form to Database and vice versa. Set rsR = New ADODB.Recordset rsR.Open "select * from Rates where Type='StandardSingle'", con1, adOpenDynamic, adLockOptimistic Select Case Button.Index '***** Reserve ***** Case 1 If txtName1 = "" Or _ txtAddress1 = "" Or _ txtAge1 = "" Or _ txtNationality1 = "" Then
HOTEL RESERVATION MANAGEMENT SYSTEM
MsgBox "Please fill in the form properly", vbInformation, "Form Error" txtName1.SetFocus Exit Sub Else lblDateReserved1 = Format(Date, "mmmm dd, yyyy") Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic With rs1 .Fields("Name") = txtName1 .Fields("Address") = txtAddress1 .Fields("Age") = txtAge1 .Fields("Nationality") = txtNationality1 .Fields("DateReserved") = lblDateReserved1 .Fields("Gender") = cmdGender1 .Fields("Status") = "Reserved" .Fields("DateIn") = "" .Fields("DateOut") = "" .Fields("I") = Format(Date, "y") .Fields("Charge") = "0.0" .Fields("DaysIncurred") = "" .Update .Close End With Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic rs1.Close Timer1.Enabled = True frmRooms.Show End If '***** Check In ***** Case 2 If txtName1 = "" Or _ txtAddress1 = "" Or _ txtAge1 = "" Or _ txtNationality1 = "" Then MsgBox "Please fill in the form properly", vbInformation, "Form Error" txtName1.SetFocus Exit Sub Else lblDateIn1 = Format(Date, "mmmm dd, yyyy") Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic
HOTEL RESERVATION MANAGEMENT SYSTEM
With rs1 .Fields("Name") = txtName1 .Fields("Address") = txtAddress1 .Fields("Age") = txtAge1 .Fields("Nationality") = txtNationality1 .Fields("DateReserved") = lblDateReserved1 .Fields("Gender") = cmdGender1 If .Fields("Status") = "Reserved" Then Else .Fields("I") = Format(Date, "y") End If .Fields("Status") = "Using" .Fields("DateIn") = lblDateIn1 .Fields("DateOut") = "" .Fields("Charge") = "0.0" .Fields("DaysIncurred") = "" .Update .Close End With Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic rs1.Close Timer1.Enabled = True frmRooms.Show End If '***** Check Out ***** Case 3 lblDateOut1 = Format(Date, "mmmm dd, yyyy") ODate = Format(Date, "y") Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic With rs1 DI = .Fields("I") End With Charge = ODate - DI + 1 With rsR rSS = .Fields("PerDay") End With lblDaysIncurred1 = Charge Charge = Charge * rSS
HOTEL RESERVATION MANAGEMENT SYSTEM
lblCharge1 = Charge With rs1 .MoveLast .Fields("Name") = txtName1 .Fields("Address") = txtAddress1 .Fields("Age") = txtAge1 .Fields("Gender") = cmdGender1 .Fields("Nationality") = txtNationality1 .Fields("DateReserved") = lblDateReserved1 .Fields("DateIn") = lblDateIn1 .Fields("DateOut") = lblDateOut1 .Fields("DaysIncurred") = lblDaysIncurred1 .Fields("Charge") = Charge .Fields("Status") = "Out" .Update End With rs1.Close Set rsCR = New ADODB.Recordset rsCR.Open "select * from CustomerRecord", con1, adOpenDynamic, adLockOptimistic With rsCR If .EOF = False Then .MoveLast End If .AddNew .Fields("RoomNUmber") = "1" .Fields("RoomType") = "Standard [Single]" .Fields("Name") = txtName1 .Fields("Address") = txtAddress1 .Fields("Age") = txtAge1 .Fields("Gender") = cmdGender1 .Fields("Nationality") = txtNationality1 .Fields("DateReserved") = lblDateReserved1 .Fields("DateIn") = lblDateIn1 .Fields("DateOut") = lblDateOut1 .Fields("DaysIncurred") = lblDaysIncurred1 .Fields("RatePerDay") = rSS .Fields("Charge") = Charge .Update End With rsCR.Close Timer1.Enabled = True frmRooms.Show cmdGbill1.Enabled = True '***** New *****
HOTEL RESERVATION MANAGEMENT SYSTEM
Case 4 frRoom1.Enabled = True Toolbar1.Buttons(1).Enabled = True Toolbar1.Buttons(2).Enabled = True Toolbar1.Buttons(4).Enabled = False Toolbar1.Buttons(5).Enabled = False txtName1.SetFocus Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con 1, adOpenDynamic, adLockOptimistic With rs1 If .Fields("name") <> "" Then .Fields("Name") = "" .Fields("Address") = "" .Fields("Age") = "" .Fields("Gender") = "" .Fields("Nationality") = "" .Fields("DateReserved") = "" .Fields("DateIn") = "" .Fields("DateOut") = "" .Fields("DaysIncurred") = "" .Fields("Charge") = "0.0" .Fields("I") = "" .Fields("Status") = "Using" .Update txtName1 = .Fields("Name") txtAddress1 = .Fields("Address") txtAge1 = .Fields("Age") cmdGender1 = .Fields("Gender") txtNationality1 = .Fields("Nationality") lblDateReserved1 = .Fields("DateReserved") lblDateIn1 = .Fields("DateIn") lblDateOut1 = .Fields("DateOut") lblDaysIncurred1 = "" lblCharge1 = .Fields("Charge") End If End With rs1.Close cmdGbill1.Enabled = False
'****** Cancel ***** Case 5
HOTEL RESERVATION MANAGEMENT SYSTEM
Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic With rs1 .Fields("Name") = "" .Fields("Address") = "" .Fields("Age") = "" .Fields("Gender") = "" .Fields("Nationality") = "" .Fields("DateReserved") = "" .Fields("DateIn") = "" .Fields("I") = "" .Fields("Status") = "Available" .Fields("DaysIncurred") = "" .Fields("DateOut") = "" .Fields("Charge") = "" .Update .Close End With Set rs1 = New ADODB.Recordset rs1.Open "select * from Status where RoomNumber=1", con1, adOpenDynamic, adLockOptimistic With rs1 txtName1 = .Fields("Name") txtAddress1 = .Fields("Address") txtAge1 = .Fields("Age") cmdGender1 = .Fields("Gender") txtNationality1 = .Fields("Nationality") lblDateReserved1 = .Fields("DateReserved") lblDateIn1 = .Fields("DateIn") lblDateOut1 = .Fields("DateOut") lblDaysIncurred1 = .Fields("DaysIncurred") lblCharge1 = .Fields("Charge") End With rs1.Close Timer1.Enabled = True frmRooms.Show
'***** Exit ***** Case 6 Unload Me End Select rsR.Close End Sub
HOTEL RESERVATION MANAGEMENT SYSTEM
Private Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) 'Deals with transection of information related with Room No: 2 , from form to Database and vice versa. Set rsR = New ADODB.Recordset rsR.Open "select * from Rates where Type='StandardSingle'", con1, adOpenDynamic, adLockOptimistic Select Case Button.Index '***** Reserve ***** Case 1 If txtName2 = "" Or _ txtAddress2 = "" Or _ txtAge2 = "" Or _ txtNationality2 = "" Then MsgBox "Please fill in the form properly", vbInformation, "Form Error" txtName2.SetFocus Exit Sub Else lblDateReserved2 = Format(Date, "mmmm dd, yyyy") Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic With rs2 .Fields("Name") = txtName2 .Fields("Address") = txtAddress2 .Fields("Age") = txtAge2 .Fields("Nationality") = txtNationality2 .Fields("DateReserved") = lblDateReserved2 .Fields("Gender") = cmdGender2 .Fields("Status") = "Reserved" .Fields("DateIn") = "" .Fields("DateOut") = "" .Fields("I") = Format(Date, "y") .Fields("Charge") = "0.0" .Fields("DaysIncurred") = "" .Update .Close End With Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic rs2.Close Timer2.Enabled = True frmRooms.Show End If
HOTEL RESERVATION MANAGEMENT SYSTEM
'***** Check In ***** Case 2 If txtName2 = "" Or _ txtAddress2 = "" Or _ txtAge2 = "" Or _ txtNationality2 = "" Then MsgBox "Please fill in the form properly", vbInformation, "Form Error" txtName2.SetFocus Exit Sub Else lblDateIn2 = Format(Date, "mmmm dd, yyyy") Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic With rs2 .Fields("Name") = txtName2 .Fields("Address") = txtAddress2 .Fields("Age") = txtAge2 .Fields("Nationality") = txtNationality2 .Fields("DateReserved") = lblDateReserved2 .Fields("Gender") = cmdGender2 If .Fields("Status") = "Reserved" Then Else .Fields("I") = Format(Date, "y") End If .Fields("Status") = "Using" .Fields("DateIn") = lblDateIn2 .Fields("DateOut") = "" .Fields("Charge") = "0.0" .Fields("DaysIncurred") = "" .Update .Close End With Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic rs2.Close Timer2.Enabled = True frmRooms.Show End If '***** Check Out ***** Case 3 lblDateOut2 = Format(Date, "mmmm dd, yyyy") ODate = Format(Date, "y")
HOTEL RESERVATION MANAGEMENT SYSTEM
Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic With rs2 DI = .Fields("I") End With Charge = ODate - DI + 1 With rsR rSS = .Fields("PerDay") End With lblDaysIncurred2 = Charge Charge = Charge * rSS lblCharge2 = Charge With rs2 .MoveLast .Fields("Name") = txtName2 .Fields("Address") = txtAddress2 .Fields("Age") = txtAge2 .Fields("Gender") = cmdGender2 .Fields("Nationality") = txtNationality2 .Fields("DateReserved") = lblDateReserved2 .Fields("DateIn") = lblDateIn2 .Fields("DateOut") = lblDateOut2 .Fields("DaysIncurred") = lblDaysIncurred2 .Fields("Charge") = Charge .Fields("Status") = "Ou t" .Update End With rs2.Close Set rsCR = New ADODB.Recordset rsCR.Open "select * from CustomerRecord", con1, adOpenDynamic, adLockOptimistic With rsCR If .EOF = False Then .MoveLast End If .AddNew .Fields("RoomNUmber") = "2" .Fields("RoomType") = "Standard [Single]" .Fields("Name") = txtName2 .Fields("Address") = txtAddress2 .Fields("Age") = txtAge2 .Fields("Gender") = cmdGender2
HOTEL RESERVATION MANAGEMENT SYSTEM
.Fields("Nationality") = txtNationality2 .Fields("DateReserved") = lblDateReserved2 .Fields("DateIn") = lblDateIn2 .Fields("DateOut") = lblDateOut2 .Fields("DaysIncurred") = lblDaysIncurred2 .Fields("RatePerDay") = rSS .Fields("Charge") = Charge .Update End With rsCR.Close Timer2.Enabled = True frmRooms.Show cmdGbill2.Enabled = True '***** New ***** Case 4 frRoom2.Enabled = True Toolbar2.Buttons(1).Enabled = True Toolbar2.Buttons(2).Enabled = True Toolbar2.Buttons(4).Enabled = False Toolbar2.Buttons(5).Enabled = False txtName2.SetFocus Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con 1, adOpenDynamic, adLockOptimistic With rs2 If .Fields("name") <> "" Then .Fields("Name") = "" .Fields("Address") = "" .Fields("Age") = "" .Fields("Gender") = "" .Fields("Nationality") = "" .Fields("DateReserved") = "" .Fields("DateIn") = "" .Fields("DateOut") = "" .Fields("DaysIncurred") = "" .Fields("Charge") = "0.0" .Fields("I") = "" .Fields("Status") = "Using" .Update txtName2 = .Fields("Name") txtAddress2 = .Fields("Address") txtAge2 = .Fields("Age") cmdGender2 = .Fields("Gender")
HOTEL RESERVATION MANAGEMENT SYSTEM
txtNationality2 = .Fields("Nationality") lblDateReserved2 = .Fields("DateReserved") lblDateIn2 = .Fields("DateIn") lblDateOut2 = .Fields("DateOut") lblDaysIncurred2 = "" lblCharge2 = .Fields("Charge") End If End With rs2.Close cmdGbill2.Enabled = False
'****** Cancel ***** Case 5 Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic With rs2 .Fields("Name") = "" .Fields("Address") = "" .Fields("Age") = "" .Fields("Gender") = "" .Fields("Nationality") = "" .Fields("DateReserved") = "" .Fields("DateIn") = "" .Fields("I") = "" .Fields("Status") = "Available" .Fields("DaysIncurred") = "" .Fields("DateOut") = "" .Fields("Charge") = "" .Update .Close End With Set rs2 = New ADODB.Recordset rs2.Open "select * from Status where RoomNumber=2", con1, adOpenDynamic, adLockOptimistic With rs2 txtName2 = .Fields("Name") txtAddress2 = .Fields("Address") txtAge2 = .Fields("Age") cmdGender2 = .Fields("Gender") txtNationality2 = .Fields("Nationality") lblDateReserved2 = .Fields("DateReserved") lblDateIn2 = .Fields("DateIn")
HOTEL RESERVATION MANAGEMENT SYSTEM
lblDateOut2 = .Fields("DateOut") lblDaysIncurred2 = .Fields("DaysIncurred") lblCharge2 = .Fields("Charge") End With rs2.Close Timer2.Enabled = True frmRooms.Show
'***** Exit ***** Case 6 Unload Me End Select rsR.Close End Sub Private Sub Toolbar3_ButtonClick(ByVal Button As MSComctlLib.Button) 'Deals with transection of information related with Room No: 3 , from form to Database and vice versa. Set rsR = New ADODB.Recordset rsR.Open "select * from Rates where Type='StandardSingle'", con1, adOpenDynamic, adLockOptimistic Select Case Button.Index '***** Reserve ***** Case 1 If txtName3 = "" Or _ txtAddress3 = "" Or _ txtAge3 = "" Or _ txtNationality3 = "" Then MsgBox "Please fill in the form properly", vbInformation, "Form Error" txtName3.SetFocus Exit Sub Else lblDateReserved3 = Format(Date, "mmmm dd, yyyy") Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic With rs3 .Fields("Name") = txtName3 .Fields("Address") = txtAddress3 .Fields("Age") = txtAge3 .Fields("Nationality") = txtNationality3 .Fields("DateReserved") = lblDateReserved3 .Fields("Gender") = cmdGender3
HOTEL RESERVATION MANAGEMENT SYSTEM
.Fields("Status") = "Reserved" .Fields("DateIn") = "" .Fields("DateOut") = "" .Fields("I") = Format(Date, "y") .Fields("Charge") = "0.0" .Fields("DaysIncurred") = "" .Update .Close End With Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic rs3.Close Timer3.Enabled = True frmRooms.Show End If '***** Check In ***** Case 2 If txtName3 = "" Or _ txtAddress3 = "" Or _ txtAge3 = "" Or _ txtNationality3 = "" Then MsgBox "Please fill in the form properly", vbInformation, "Form Error" txtName3.SetFocus Exit Sub Else lblDateIn3 = Format(Date, "mmmm dd, yyyy") Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic With rs3 .Fields("Name") = txtName3 .Fields("Address") = txtAddress3 .Fields("Age") = txtAge3 .Fields("Nationality") = txtNationality3 .Fields("DateReserved") = lblDateReserved3 .Fields("Gender") = cmdGender3 If .Fields("Status") = "Reserved" Then Else .Fields("I") = Format(Date, "y") End If .Fields("Status") = "Using" .Fields("DateIn") = lblDateIn3 .Fields("DateOut") = "" .Fields("Charge") = "0.0"
HOTEL RESERVATION MANAGEMENT SYSTEM
.Fields("DaysIncurred") = "" .Update .Close End With Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic rs3.Close Timer3.Enabled = True frmRooms.Show End If '***** Check Out ***** Case 3 lblDateOut3 = Format(Date, "mmmm dd, yyyy") ODate = Format(Date, "y") Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic With rs3 DI = .Fields("I") End With Charge = ODate - DI + 1 With rsR rSS = .Fields("PerDay") End With lblDaysIncurred3 = Charge Charge = Charge * rSS lblCharge3 = Charge With rs3 .MoveLast .Fields("Name") = txtName3 .Fields("Address") = txtAddress3 .Fields("Age") = txtAge3 .Fields("Gender") = cmdGender3 .Fields("Nationality") = txtNationality3 .Fields("DateReserved") = lblDateReserved3 .Fields("DateIn") = lblDateIn3 .Fields("DateOut") = lblDateOut3 .Fields("DaysIncurred") = lblDaysIncurred3 .Fields("Charge") = Charge .Fields("Status") = "Out" .Update
HOTEL RESERVATION MANAGEMENT SYSTEM
End With rs3.Close Set rsCR = New ADODB.Recordset rsCR.Open "select * from CustomerRecord", con1, adOpenDynamic, adLockOptimistic With rsCR If .EOF = False Then .MoveLast End If .AddNew .Fields("RoomNUmber") = "3" .Fields("RoomType") = "Standard [Single]" .Fields("Name") = txtName3 .Fields("Address") = txtAddress3 .Fields("Age") = txtAge3 .Fields("Gender") = cmdGender3 .Fields("Nationality") = txtNationality3 .Fields("DateReserved") = lblDateReserved3 .Fields("DateIn") = lblDateIn3 .Fields("DateOut") = lblDateOut3 .Fields("DaysIncurred") = lblDaysIncurred3 .Fields("RatePerDay") = rSS .Fields("Charge") = Charge .Update End With rsCR.Close Timer3.Enabled = True frmRooms.Show cmdGbill3.Enabled = True '***** New ***** Case 4 frRoom3.Enabled = True Toolbar3.Buttons(1).Enabled = True Toolbar3.Buttons(2).Enabled = True Toolbar3.Buttons(4).Enabled = False Toolbar3.Buttons(5).Enabled = False txtName3.SetFocus Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con 1, adOpenDynamic, adLockOptimistic With rs3 If .Fields("name") <> "" Then .Fields("Name") = "" .Fields("Address") = ""
HOTEL RESERVATION MANAGEMENT SYSTEM
.Fields("Age") = "" .Fields("Gender") = "" .Fields("Nationality") = "" .Fields("DateReserved") = "" .Fields("DateIn") = "" .Fields("DateOut") = "" .Fields("DaysIncurred") = "" .Fields("Charge") = "0.0" .Fields("I") = "" .Fields("Status") = "Using" .Update txtName3 = .Fields("Name") txtAddress3 = .Fields("Address") txtAge3 = .Fields("Age") cmdGender3 = .Fields("Gender") txtNationality3 = .Fields("Nationality") lblDateReserved3 = .Fields("DateReserved") lblDateIn3 = .Fields("DateIn") lblDateOut3 = .Fields("DateOut") lblDaysIncurred3 = "" lblCharge3 = .Fields("Charge") End If End With rs3.Close cmdGbill3.Enabled = False
'****** Cancel ***** Case 5 Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic With rs3 .Fields("Name") = "" .Fields("Address") = "" .Fields("Age") = "" .Fields("Gender") = "" .Fields("Nationality") = "" .Fields("DateReserved") = "" .Fields("DateIn") = "" .Fields("I") = "" .Fields("Status") = "Available" .Fields("DaysIncurred") = "" .Fields("DateOut") = ""
HOTEL RESERVATION MANAGEMENT SYSTEM
.Fields("Charge") = "" .Update .Close End With Set rs3 = New ADODB.Recordset rs3.Open "select * from Status where RoomNumber=3", con1, adOpenDynamic, adLockOptimistic With rs3 txtName3 = .Fields("Name") txtAddress3 = .Fields("Address") txtAge3 = .Fields("Age") cmdGender3 = .Fields("Gender") txtNationality3 = .Fields("Nationality") lblDateReserved3 = .Fields("DateReserved") lblDateIn3 = .Fields("DateIn") lblDateOut3 = .Fields("DateOut") lblDaysIncurred3 = .Fields("DaysIncurred") lblCharge3 = .Fields("Charge") End With rs3.Close Timer3.Enabled = True frmRooms.Show
'***** Exit ***** Case 6 Unload Me End Select rsR.Close End Sub '-------Controls of the Form are Vallidated--------Private Sub txtAge1_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then If KeyAscii <> 8 Then KeyAscii = 0 End If End If End Sub Private Sub txtAge2_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then If KeyAscii <> 8 Then
HOTEL RESERVATION MANAGEMENT SYSTEM
KeyAscii = 0 End If End If End Sub Private Sub txtAge3_KeyPress(KeyAscii As Integer) If KeyAscii < 48 Or KeyAscii > 57 Then If KeyAscii <> 8 Then KeyAscii = 0 End If End If End Sub Private Sub txtName1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then If KeyAscii < 97 Or KeyAscii > 122 Then If KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End Sub Private Sub txtName2_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then If KeyAscii < 97 Or KeyAscii > 122 Then If KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End Sub Private Sub txtName3_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then If KeyAscii < 97 Or KeyAscii > 122 Then If KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End Sub Private Sub txtNationality1_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then If KeyAscii < 97 Or KeyAscii > 122 Then
HOTEL RESERVATION MANAGEMENT SYSTEM
If KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End Sub Private Sub txtNationality2_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then If KeyAscii < 97 Or KeyAscii > 122 Then If KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End Sub Private Sub txtNationality3_KeyPress(KeyAscii As Integer) If KeyAscii < 65 Or KeyAscii > 90 Then If KeyAscii < 97 Or KeyAscii > 122 Then If KeyAscii <> 8 And KeyAscii <> 32 Then KeyAscii = 0 End If End If End If End Sub
HOTEL RESERVATION MANAGEMENT SYSTEM
Administrator Utility Wizard Form : '===================================================== 'Program Name : frmAdministrator.frm frmAdministrator.frm 'Description : Deals with task to be done by Administrator Administrator or the the User of the System. 'Developed By : Vivekanand Vivekanand Bidri 'Date : 'Issue/Version : 1.0 '===================================================== Private Sub cmdAddnew_Click() frSearchEngine.Enabled = False frDatas.Enabled = True cmdAddnew.Enabled = False cmdDelete.Enabled = False cmdSave.Enabled = True txtSearchEngine = "" txtUsername = "" txtPassword = "" txtConfirm = "" txtUsername.SetFocus End Sub Private Sub cmdDelete_Click() If txtUsername = "" Then MsgBox "No current record to delete!", vbCritical, vb Critical, "Delete Error" Exit Sub Else With Data2.Recordset .Index = "seeker" .Seek "=", txtUsername End With If Data2.Recordset.NoMatch = False Then If MsgBox("You are about to delete " & txtUsername & " in the list. are you sure?", vbOKCancel + vbInformation, "Confirm Delete") = vbOK Then Data2.Recordset.Delete DBGrid1.Refresh Else Exit Sub End If End If End If cmdRefresh_Click End Sub HOTEL RESERVATION MANAGEMENT SYSTEM
Private Sub cmdFDUpdate_Click() If txtFD <> 0 Then With Data1.Recordset .Index = "seeker" .Seek "=", "FamilyDouble" End With If Data1.Recordset.NoMatch = False Then Data1.Recordset.Edit With Data1.Recordset .Fields("PerDay") = txtFD End With Data1.Recordset.Update End If txtFD = "" Timer1.Enabled = True frmRooms.Timer1.Enabled = True Else MsgBox "Invalid Entry!", vbCritical, "Update Error" txtFD = "" txtFD.SetFocus Exit Sub End If End Sub Private Sub cmdFTUpdate_Click() If txtFT <> 0 Then With Data1.Recordset .Index = "seeker" .Seek "=", "FamilyTriple" End With If Data1.Recordset.NoMatch = False Then Data1.Recordset.Edit With Data1.Recordset .Fields("PerDay") = txtFT End With Data1.Recordset.Update End If txtFT = "" Timer1.Enabled = True frmRooms.Timer1.Enabled = True Else MsgBox "Invalid Entry!", vbCritical, "Update Error" txtFT = "" txtFT.SetFocus Exit Sub
HOTEL RESERVATION MANAGEMENT SYSTEM
End If End Sub Private Sub cmdRefresh_Click() txtSearchEngine = "" txtPassword = "" txtUsername = "" txtConfirm = "" cmdAddnew.Enabled = True cmdDelete.Enabled = True cmdSave.Enabled = False frSearchEngine.Enabled = True frDatas.Enabled = False txtSearchEngine.SetFocus DBGrid1.Refresh End Sub Private Sub cmdSave_Click() If txtUsername = "" Or txtPassword = "" Or txtConfirm = "" Then MsgBox "Please fill in the boxes properly!", vbCritical, "Save Error" txtUsername.SetFocus Exit Sub Else With Data2.Recordset .Index = "seeker" .Seek "=", txtUsername End With If Data2.Recordset.NoMatch = True Then If txtConfirm = txtPassword Then Data2.Recordset.AddNew With Data2.Recordset .Fields("Username") = txtUsername .Fields("Password") = txtPassword End With Data2.Recordset.Update Data2.Refresh DBGrid1.Refresh Else MsgBox "Confirmed password does not match your password!", vbCritical, "Save Error" txtConfirm = "" txtConfirm.SetFocus Exit Sub End If Else MsgBox "Username already exist!", vbCritical, "Save Error"
HOTEL RESERVATION MANAGEMENT SYSTEM
txtUsername = "" txtUsername.SetFocus Exit Sub End If End If cmdRefresh_Click End Sub Private Sub cmdSDUpdate_Click() If txtSD <> 0 Then With Data1.Recordset .Index = "seeker" .Seek "=", "StandardDouble" End With If Data1.Recordset.NoMatch = False Then Data1.Recordset.Edit With Data1.Recordset .Fields("PerDay") = txtSD End With Data1.Recordset.Update End If txtSD = "" Timer1.Enabled = True frmRooms.Timer1.Enabled = True Else MsgBox "Invalid Entry!", vbCritical, "Update Error" txtSD = "" txtSD.SetFocus Exit Sub End If DBGrid1.Refresh End Sub Private Sub cmdSSUpdate_Click() If txtSS <> 0 Then With Data1.Recordset .Index = "seeker" .Seek "=", "StandardSingle" End With If Data1.Recordset.NoMatch = False Then Data1.Recordset.Edit With Data1.Recordset .Fields("PerDay") = txtSS End With Data1.Recordset.Update End If
HOTEL RESERVATION MANAGEMENT SYSTEM
txtSS = "" Timer1.Enabled = True frmRooms.Timer1.Enabled = True Else MsgBox "Invalid Entry!", vbCritical, "Update Error" txtSS = "" txtSS.SetFocus Exit Sub End If End Sub
Private Sub cmdVDUpdate_Click() If txtVD <> 0 Then With Data1.Recordset .Index = "seeker" .Seek "=", "VIPDouble" End With If Data1.Recordset.NoMatch = False Then Data1.Recordset.Edit With Data1.Recordset .Fields("PerDay") = txtVD End With Data1.Recordset.Update End If txtVD = "" Timer1.Enabled = True frmRooms.Timer1.Enabled = True Else MsgBox "Invalid Entry!", vbCritical, "Update Error" txtVD = "" txtVD.SetFocus Exit Sub End If End Sub Private Sub cmdVSUpdate_Click() If txtVS <> 0 Then With Data1.Recordset .Index = "seeker" .Seek "=", "VIPSingle" End With If Data1.Recordset.NoMatch = False Then Data1.Recordset.Edit With Data1.Recordset .Fields("PerDay") = txtVS
HOTEL RESERVATION MANAGEMENT SYSTEM
End With Data1.Recordset.Update End If txtVS = "" Timer1.Enabled = True frmRooms.Timer1.Enabled = True Else MsgBox "Invalid Entry!", vbCritical, "Update Error" txtVS = "" txtVS.SetFocus Exit Sub End If End Sub Private Sub Command1_Click() frRoomRates.Visible = False End Sub Private Sub Command2_Click() frSecurity.Visible = False End Sub Private Sub DBGrid1_Click() Timer2.Enabled = True End Sub Private Sub Form_Load() Data1.DatabaseName = App.Path + "\" + "HR.mdb" Data1.RecordSource = "Rates" Data2.DatabaseName = App.Path + "\" + "HR.mdb" Data2.RecordSource = "Users" If adm = 1 Then frSecurity.Visible = True frRoomRates.Visible = False End If If adm = 2 Then frSecurity.Visible = False frRoomRates.Visible = True End If End Sub Private Sub mExit_Click() Unload Me End Sub Private Sub mRoom_Click()
HOTEL RESERVATION MANAGEMENT SYSTEM
frSecurity.Visible = False frRoomRates.Visible = True End Sub Private Sub mSystemSec_Click() frSecurity.Visible = True frRoomRates.Visible = False End Sub Private Sub Timer1_Timer() With Data1.Recordset .Index = "seeker" .Seek "=", "StandardSingle" End With If Data1.Recordset.NoMatch = False Then With Data1.Recordset txtSSO = .Fields("PerDay") End With End If With Data1.Recordset .Index = "seeker" .Seek "=", "StandardDouble" End With If Data1.Recordset.NoMatch = False Then With Data1.Recordset txtSDO = .Fields("PerDay") End With End If With Data1.Recordset .Index = "seeker" .Seek "=", "VIPSingle" End With If Data1.Recordset.NoMatch = False Then With Data1.Recordset txtVSO = .Fields("PerDay") End With End If With Data1.Recordset .Index = "seeker" .Seek "=", "VIPDouble" End With If Data1.Recordset.NoMatch = False Then With Data1.Recordset txtVDO = .Fields("PerDay") End With End If
HOTEL RESERVATION MANAGEMENT SYSTEM
With Data1.Recordset .Index = "seeker" .Seek "=", "FamilyDouble" End With If Data1.Recordset.NoMatch = False Then With Data1.Recordset txtFDO = .Fields("PerDay") End With End If With Data1.Recordset .Index = "seeker" .Seek "=", "FamilyTriple" End With If Data1.Recordset.NoMatch = False Then With Data1.Recordset txtFTO = .Fields("PerDay") End With End If Timer1.Enabled = False End Sub Private Sub Timer2_Timer() On Error GoTo error_2 User = Data2.Recordset.Fields("Username") txtSearchEngine = User error_2: Timer2.Enabled = False End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 frRoomRates.Visible = False frSecurity.Visible = True Case 2 frRoomRates.Visible = True frSecurity.Visible = False Case 3 Unload Me End Select End Sub
Private Sub txtConfirm_LostFocus() If txtConfirm <> txtPassword Then MsgBox "Please conform the password", vbOKOnly + v bCritical, "Error"
HOTEL RESERVATION MANAGEMENT SYSTEM
cmdUpdate.Enabled = False End If End Sub Private Sub txtFD_Change() If IsNumeric(txtFD) = True Then cmdFDUpdate.Enabled = True Else cmdFDUpdate.Enabled = False End If End Sub Private Sub txtFT_Change() If IsNumeric(txtFT) = True Then cmdFTUpdate.Enabled = True Else cmdFTUpdate.Enabled = False End If End Sub Private Sub txtSD_Change() If IsNumeric(txtSD) = True Then cmdSDUpdate.Enabled = True Else cmdSDUpdate.Enabled = False End If End Sub Private Sub txtSearchEngine_Change() With Data2.Recordset .Index = "seeker" .Seek ">=", txtSearchEngine End With On Error GoTo error_1 With Data2.Recordset txtUsername = .Fields("Username") txtPassword = .Fields("Password") End With error_1: End Sub Private Sub txtSS_Change() If IsNumeric(txtSS) = True Then cmdSSUpdate.Enabled = True Else cmdSSUpdate.Enabled = False
HOTEL RESERVATION MANAGEMENT SYSTEM
End If End Sub Private Sub txtVD_Change() If IsNumeric(txtVD) = True Then cmdVDUpdate.Enabled = True Else cmdVDUpdate.Enabled = False End If End Sub Private Sub txtVS_Change() If IsNumeric(txtVS) = True Then cmdVSUpdate.Enabled = True Else cmdVSUpdate.Enabled = False End If End Sub
HOTEL RESERVATION MANAGEMENT SYSTEM
Run Time Section 1) Splash Form
2) Login Form
HOTEL RESERVATION MANAGEMENT SYSTEM
3) MDI Form
HOTEL RESERVATION MANAGEMENT SYSTEM
4) Standard Single Room Form
HOTEL RESERVATION MANAGEMENT SYSTEM
5) Room Status Form
HOTEL RESERVATION MANAGEMENT SYSTEM
6) Clients Master List Form
7) Administrator Utility Wizard Form
HOTEL RESERVATION MANAGEMENT SYSTEM
9) About Form
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
7 Reports In This Chapter
1) Reports
HOTEL RESERVATION MANAGEMENT SYSTEM
Client Master List Report :
HOTEL RESERVATION MANAGEMENT SYSTEM
Room Status Report :
HOTEL RESERVATION MANAGEMENT SYSTEM
Room Rates Report :
HOTEL RESERVATION MANAGEMENT SYSTEM
Bill Report :
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
8 Conclusio n In This Chapter
1) Conclusion
HOTEL RESERVATION MANAGEMENT SYSTEM
CONCLUSION : The “HOTEL RESERVATION MANAGEMENT SYSTEM” is done using VB as the Front end and access as the backend. We are trying to keep the record of automatically. The present system is worked manually that means they keep the records in Registers. This required manpower. It was time consuming and money mattered. But due to Proposed System they can maintain their records automatically. Now, using this atomized system will reduce the work load and also wastage of precious time and money.
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
9 Future Enhancement In This Chapter
1) Future Enhancement
HOTEL RESERVATION MANAGEMENT SYSTEM
FUTURE ENHANCEMENT: 1). In future new utilities will be added to the software if required. 2). With time software will be made more consistent and integrated. 3). User Interface (U.I) will be made more user friendly and attractive. 4). Concept of finding Yearly Income, Profit etc will be added.
HOTEL RESERVATION MANAGEMENT SYSTEM
C H A P T E R
10 Bibliography In This Chapter
1) Bibliography
HOTEL RESERVATION MANAGEMENT SYSTEM