28 0 5MB
HOTEL MANAGEMENT SYSTEM
Project Report on “HOTEL MANAGEMENT SYSTEM” Submitted by: HARSHITHA.V(15KUSB7028) BCA (V Semester) Academic year 2017-2018
MSRCASC-BCA V SEM
Page 1
HOTEL MANAGEMENT SYSTEM
DEPARTMENT OF COMPUTER SCIENCE CERTIFICATE This is to certify that HARSHITHA V(15KUSB7028) have successfully completed the project entitled “HOTEL MANAGEMENT” for 5th semester as per syllabus prescribed by the Bangalore University for Academic year 20172018.
Mrs.HARI PRIYA
Mrs.PRATHIBA.V.K
(Lecturer-in-charge)
(Head of Department)
SIGNATURE OF EXAMINERS:
1.
2.
HOTEL MANAGEMENT SYSTEM MSRCASC-BCA V SEM
Page 2
ACKNOWLEDGEMENT This presentation is based on our study and practice during 5th semester of through we have tried our best for making this project unique in itself, still flexible at few points. Its’s with pride and deepest sense of gratitude that we place our profound expression our college “RAMAIAH COLLEGE OF ARTS, SCIENCE AND COMMERCE” and its illustrations faculty specially our most respected:
Mrs. Prathiba. V. Kalburgi (H.O.D BCA) for her valuable and inspiring guidance and encouragement given throughout the period of this project with reviews, evaluations of our work. We appreciate her immense patience.
Dr. A. Nagarathna (Principal, MRCASC) for providing the right academic at this institution, which has made this entire task appreciable. We are also grateful to our friends for their valuable suggestions and words of inspiration for our project work. We also grateful to our friends for their valuable suggestion and words of inspiration for our project work, “HOTEL MANEGEMENT SYSTEM”. Our sincere thanks to our parents for their co-operation and encouragement.
MSRCASC-BCA V SEM
Page 3
HOTEL MANAGEMENT SYSTEM
ABSTRACT This document fully and formally describes the requirement of the proposed said project system. It sets out the functional and non-functional requirements and includes a description of the user interface and documentation and training requirements. An SRS is basically an organization’s understanding (in writing) of a customer or potential client’s system requirements and dependencies at a particular point in time (usually) prior to any actual design or development work. It’s a two-way insurance policy that assures that both the client and the organization understand the other’s from that perspective at a given point in time Earlier everything was hand written and manually done through pen and paper, and it would take a lot of time also, the work difficult and time consuming. So to make the work easy the entire management was changed and there came into existence a device by the name “Computer”. This software named “Hotel Management System is fused to manage hotel transactions and keep records and can be used in any small, medium or large hotels and offices. The system will guide you through creation of customer list with all details such as, room information, invoices, booking slip etc This software is developed considering all the real time business transactions which takes place in most of the hotels.
MSRCASC-BCA V SEM
Page 4
HOTEL MANAGEMENT SYSTEM
CONTENTS 1. INTRODUCTION About Project About Hotel Management System 2.
SYSTEM ANALYSIS Introduction Existing System Proposed System
3. SYSTEM DESIGN
Input design Output design Form design Database design
4. SCREEN SHOTS 5. CODING 6. SYSTEM CONFIGURATION 7. CONCLUSION 8. BIBLIOGRAPHY
MSRCASC-BCA V SEM
Page 5
HOTEL MANAGEMENT SYSTEM
INTRODUCTION
My project title is HOTEL MANEGEMENT SYSTEM. I have tried my best to make the complicated process of Hotel Management System as simple as possible using Structured & Modular technique & Menu oriented interface. I have tried to design the Project in such a way that user may not have any difficulty in using this package & further expansion is possible without much effort. Even though I cannot claim that this work to entirely exhaustive, the main purpose of my exercise is perform each Employee’s activity in computerized way rather than manually which is time consuming. Administrator can maintain daily updates in the hotel records. Administrator is must be an authorized user. He can further change the password. There is the facility for password recovery, logout etc. The main aim of the entire activity is to automate the process of day to day activities of Hotel like Room activities, Admission of a New Customer, Assign a room according to customer’s demand, checkout of a computer and releasing the room and finally compute the bill etc. The limited time and resources have restricted us to incorporate, in this project, only a main activities that are performed in a HOTEL Management, but utmost care has been taken the system efficient and user friendly. “HOTEL Management System” has been designed to computerized the following functions that are performed by the system: Room Detail Functions: Opening s New Room Check-in and check-out Detail Functions Admission of New customer Check-in and check-out of customer MSRCASC-BCA V SEM
Page 6
HOTEL MANAGEMENT SYSTEM
Room assigning related to customer’s need. Statement of Customer Details Restaurant and Laundry Details Total number of Customers in the Hotel Individual customer Report
MSRCASC-BCA V SEM
Page 7
HOTEL MANAGEMENT SYSTEM
Hardware and Software Requirements
SOFTWRE REQUIREMENT
Windows 7 OS
MS Access
Visual basic
Windows 7 provides the software “Hotel Management System” a platform through MS-Office and security through passwords and antivirus.
MS ACESS is helpful in the creativity of the database. A database provides the all the information to the related topics with helps of the TABLE and Query which is through SQL (structural query language). Ms Access is useful because of following causes:-
MS Access provides data base to the library management system. Ms access also provides the query .
It is easy to handle
It has enough security needed to develop the Hotel Management.
It is easily available and easy to purchase.
It is best up to 300000 lines ,which is enough for the library system
MSRCASC-BCA V SEM
Page 8
HOTEL MANAGEMENT SYSTEM
VISUAL BASIC provides the view side of the library management system. visual basic is the front view of the library management. The main causes of the using the visual basic are as following:
It is easy to operate It is the best way to deal. V.B. provide the front view. It easy to purchase
HARDWARE REQUIREMENTS Hardware required for the library management system is as following:
Display Adapter. 512 MB DDR2 RAM or above. X86 Conpatible Processor Hard Disk 20 GB or more.
MSRCASC-BCA V SEM
Page 9
HOTEL MANAGEMENT SYSTEM
ADVANTAGES OF “HOTEL MANAGEMENT SYSTEM”
1. PROJECT OBJECTIVE: To develop a project which will maintain booking of rooms and handle account of a hotel. 2. PROJECT FEATURES: HOTEL’S ROOM INFORMATION: It provides the user to easily search about room’s availability, its type, category & easy updating of the room’s records. BILLING FACILITY Operator, using this project can easily generate the bill for the customer, He need not make any calculation for it REPORT GENERATION This feature help in easy maintenance of record of customer & their report Generation PASSWORD PROTECTEDThis feature provide privacy to customer’s personal detail information.
DIFFERENT LOGIN LEVELS This feature provide protected login at different levels. ADMINISTRATOR: Administrator can add and delete rooms. USER User can do everything except adding & deleting the rooms records.
MSRCASC-BCA V SEM
Page 10
HOTEL MANAGEMENT SYSTEM
3. EXTENSIBLITY 3.1 CUSTOMER’S INFORMATION: Operator has information of customer so as to carry out various activities.
NEW BRANCHES This feature provides confirm advance booking of room in another branch of that hotel
MSRCASC-BCA V SEM
Page 11
HOTEL MANAGEMENT SYSTEM
TEST-CONDITIONS Sr.
Test Condition
No.
1.
2.
3.
Check for entry in password
Check for entry in username and password
Check for guest entries in room booking
4.
Invalid Data Type
5.
Check for guest entries in room booking
6.
Check entries for adding new room
Pre-requisite
Expected Test
data
Result
Login form is Opened. User enters incorrect password and presses OK button Login form is combination of correct user name and password and presses OK button presses OK button
Main form is displayed to the user, consisting of menu options enabled.
All entries are filled.
Message “ room is booked”.
User has entered the invalid data type.
Warning to enter correct data type.
User has left the entries to be fulfilled, blank User fill entry for already existing Room.
MSRCASC-BCA V SEM
“Incorrect Password” Message is prompted
Message “ fill all the entries.
Message “ room is already existing”.
Page 12
HOTEL MANAGEMENT SYSTEM
LIMITATIONS 1. This project can’t be used for hotel having different branches.
2. This project doesn’t assign unique id to each customer to distinguish between him or her. Selecting the id from some given list. However, both the methods of specifying the product are too vague. 3. This project does not deal with the employee of Hotels such as clerk, manager etc.
MSRCASC-BCA V SEM
Page 13
HOTEL MANAGEMENT SYSTEM
ERROR HANDLING Error no 1
Message
Error
Fill entry properly
Cannot enter alphabets and some special symbols in this field
2
Fill entry properly
3
Entry already existing
4
Enter LOGIN and PASSWORD
Cannot enter numbers and special symbols in this field Duplicate value entered. Cannot enter already existing values in room add form. Enter LOGIN and PASSWORD field do not match.
MSRCASC-BCA V SEM
Correction Enter numbers , - hyphen, ( Opening bracket or ) Closing Bracket Enter only Alphabets
Enter other unique Room no.
Enter same value in LOGIN and PASSWORD fields
Page 14
HOTEL MANAGEMENT SYSTEM
ADVANTAGES OF VISUAL PROGRAMMING
Visual programming enables visual development of graphical user interface, and easy to use and easy to learn.
One of the principle advantages is that the programmer need not write code to display the required component.
The visual programming environment displays a list of available component, the programmer pickup the required component from the list.
The component can be moved resized and even deleted if so required.
There is no restriction in the number of controls that can be placed moreover since the programmer is creating the user interface usually we align, move or size the component as required without having resort to writing code.
MSRCASC-BCA V SEM
Page 15
HOTEL MANAGEMENT SYSTEM
SYSTEM DESIGN
Introduction to System Design
Design is the first step into the development phase for any engineered product or system. Design is a creative process. A good design is the key to effective system. The term “design” is defined as “the process of applying various techniques and principles for the purpose of defining a process or a system in sufficient detail to permit its physical realization”. It may be defined as a process of applying various techniques and principles for the purpose of defining a device, a process or a system in sufficient detail to permit its physical realization. Software design sits at the technical kernel of the software engineering process and is applied regardless of the development paradigm that is used. The system design develops the architectural detail required to build a system or product. As in the case of any systematic approach, this software too has undergone the best possible design phase fine tuning all efficiency, performance and accuracy levels. The design phase is a transition from a user oriented document to a document to the programmers or database personnel. System design goes through two phases of development: Logical and Physical Design.
MSRCASC-BCA V SEM
Page 16
HOTEL MANAGEMENT SYSTEM
Input design
The design of input focuses on controlling the amount of input required, controlling the errors, avoiding delay, avoiding extra steps and keeping the process simple. The input is designed in such a way so that it provides security and ease of use with retaining the privacy. Input Design considered the following things:
What data should be given as input?
How the data should be arranged or coded?
The dialog to guide the operating personnel in providing input.
Methods for preparing input validations and steps to follow when error occur.
OUTPUT DESIGN A quality output is one, which meets the requirements of the end user and presents the information clearly. In output design it is determined how the information is to be displaced for immediate need and also the hard copy output. It is the most important and direct source information to the user. Efficient and intelligent output design improves the system’s relationship to help user decision-making.
MSRCASC-BCA V SEM
Page 17
HOTEL MANAGEMENT SYSTEM
Designing computer output should proceed in an organized, well thought out manner; the right output must be developed while ensuring that each output element is designed so that people will find the system can use easily and effectively. When analysis design computer output, they should:
Identify the specific output that is needed to meet the requirements.
Select methods for presenting information.
Create document, report, or other formats that contain information produced by the system.
MSRCASC-BCA V SEM
Page 18
HOTEL MANAGEMENT SYSTEM
DISADVANTAGES OF OLD SYSTEM
As we know the manual processing is quite tedious, time consuming, less accurate in comparison to computerized processing. Obviously the present system is not exception consultant in counting the entire above problem.
Time consuming
It is very tedious.
All information are not placed separately.
Lot of paper work.
Slow data processing
Not user-friendly environment
It
is
difficult
MSRCASC-BCA V SEM
to
found
record
due
file
management
system.
Page 19
HOTEL MANAGEMENT SYSTEM
SCREEN SHOTS
MSRCASC-BCA V SEM
Page 20
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 21
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 22
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 23
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 24
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 25
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 26
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 27
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 28
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 29
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 30
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 31
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 32
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 33
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 34
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 35
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 36
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 37
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 38
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 39
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 40
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 41
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 42
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 43
HOTEL MANAGEMENT SYSTEM
CODING
MSRCASC-BCA V SEM
Page 44
HOTEL MANAGEMENT SYSTEM
Form Splash : Private Sub Label6_Click() End Sub Private Sub Timer1_Timer() Label2.Left = Label2.Left + 50 If Label2.Left >= 9930 Then Label2.Left = 0 - Label2.Width End If End Sub Private Sub Timer2_Timer() Timer1.Enabled = True Pb1.Value = Pb1.Value + 1 Label1.Caption = Pb1.Value & "%" If Pb1.Value = 100 Then login.Show Unload Me End If End Sub
Login Form : Dim s1 As String Dim s2 As String Private Sub cmdexit_Click() If MsgBox("Do You Really Want To Exit ?", vbQuestion + vbYesNo + vbDefaultButton, "WARNING") = vbYes Then Unload Me Else Exit Sub End If End Sub Private Sub Command1_Click() MSRCASC-BCA V SEM
Page 45
HOTEL MANAGEMENT SYSTEM
Form1.Show End Sub Private Sub cmdlogin_Click() If txtusername = "" Then MsgBox "Enter the username", vbInformation + vbOKOnly, "login" txtusername.SetFocus Exit Sub End If If txtpassword = "" Then MsgBox "Enter the password", vbInformation + vbOKOnly, "login" txtpassword.SetFocus Exit Sub End If s1 = txtusername.Text s2 = txtpassword.Text Adodc1.RecordSource = " select * from login where username ='" + s1 + "' and password='" + s2 + "' " Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "Invalid user name and password", vbCritical + vbOKOnly, "login" Else menu.Show Unload login Exit Sub End If txtusername.Text = "" txtpassword.Text = "" txtusername.SetFocus End Sub
Private Sub Form_Load() Me.WindowState = vbMaximized lblDate.Caption = Date Timer1.Enabled = True connect Set rs = New ADODB.Recordset rs.Source = "login" MSRCASC-BCA V SEM
Page 46
HOTEL MANAGEMENT SYSTEM
rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub Private Sub Labe1_Click() pchange.Show End Sub Private Sub Label1_Click() account1.Show End Sub Private Sub Timer1_Timer() lbltime.Caption = Format(Now, "hh:mm:ss AM/PM") lblDate.Caption = Format(Now, "dd-mm-yyyy") End Sub Private Sub txtpassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then KeyAscii = 0 cmdlogin_Click End If End Sub Private Sub txtusername_Change() End Sub
Login Password Mismatch: Private Sub Command1_Click() If Text2.Text Text3.Text Then MsgBox "password mismatch" Text2.Text = "" Text3.Text = "" Exit Sub End If MSRCASC-BCA V SEM
Page 47
HOTEL MANAGEMENT SYSTEM
rs.AddNew rs.Fields(0) = Text1.Text
rs.Fields(1) = Text3.Text rs.Update Unload Me menu.Show End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Me.WindowState = vbMaximized connect Set rs = New ADODB.Recordset rs.Source = "Login" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub
Menu Form : Private Sub cmdcheckout_Click() Unload Me checkout.Show End Sub Private Sub cmdcontrolpanel_Click() ratelist.Show End Sub MSRCASC-BCA V SEM
Page 48
HOTEL MANAGEMENT SYSTEM
Private Sub cmdlaundry_Click() laundry.Show End Sub Private Sub cmdrestaurant_Click() Restaurant.Show End Sub Private Sub cmdsearch_Click() searchguest.Show End Sub Private Sub Command1_Click() Unload Me checkin.Show End Sub Private Sub cmdcal_Click() On Error GoTo Err Shell "calc.exe", vbNormalFocus Exit Sub Err: MsgBox "You don't have a Calculator installed in your computer.", vbExclamation, "CSRS version 1" End Sub Private Sub cmdlogout_Click() If MsgBox("Do You Really Want To LogOut ?", vbQuestion + vbYesNo + vbDefaultButton, "WARNING") = vbYes Then Unload menu login.Show Else Exit Sub End If End Sub Private Sub cmdnotepad_Click() On Error GoTo Err Shell "notepad.exe", vbNormalFocus Exit Sub Err: MsgBox "You don't have a NotePad installed in your computer.", vbExclamation, "CSRS version 1" End Sub MSRCASC-BCA V SEM
Page 49
HOTEL MANAGEMENT SYSTEM
Private Sub cmdreservation_Click() rmenu.Show End Sub Private Sub cmdpayment_Click() payment.Show End Sub Private Sub cmdstatus_Click() status.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized Timer1.Enabled = True lbldate.Caption = Date End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() lbltime.Caption = Format(Now, "hh:mm:ss Am/Pm") End Sub
Reservation : Private Sub cmdadd_Click() Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text16.Text = "" Text17.Text = "" Text18.Text = "" MSRCASC-BCA V SEM
Page 50
HOTEL MANAGEMENT SYSTEM
Text19.Text = "" Combo1.Text = "--SELECT--" Combo2.Text = "--SELECT--" Combo3.Text = "--SELECT--" DTPicker3.Value = Date On Error GoTo errmsg Dim id As String Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then id = 1 Adodc1.Recordset.AddNew Text1.Text = id Adodc4.Recordset.AddNew Adodc2.Recordset.AddNew Adodc3.Recordset.AddNew rs.AddNew a.AddNew Else Adodc1.Recordset.MoveLast id = Adodc1.Recordset("Customer_ID") + 1 Adodc1.Recordset.AddNew Text1.Text = id Adodc4.Recordset.AddNew Adodc2.Recordset.AddNew Adodc3.Recordset.AddNew rs.AddNew a.AddNew Text1.Text = id End If Text2.SetFocus Exit Sub errmsg: If Err.Number = "-2147467259" Then Call MsgBox("CustomerID Already Exist") End If End Sub MSRCASC-BCA V SEM
Page 51
HOTEL MANAGEMENT SYSTEM
Private Sub cmdback_Click() Unload Me rmenu.Show End Sub Private Sub cmdsave_Click()
End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Combo2.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If Private Sub cmdsave_Click() If Text2.Text = "" Or Text3.Text = "" Or Text16.Text = "" Or Text17.Text = "" Or Text18.Text = "" Or Text19.Text = "" Or Text20.Text = "" Or Text1.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text8.Text = "" Or Combo1.Text = "--SELECT--" Or Combo3.Text = "--SELECT--" Then MsgBox "Please Fill All Complete Details" Exit Sub End If Dim room_type As String room_type = Combo4.Text If (room_type = "SINGLE ROOM" And val(Text9.Text) > 1) Then MsgBox "Standard Room can have only 1 member" Exit Sub End If If (room_type = "STANDARD-ROOM" And val(Text9.Text) > 2) Then MsgBox "Standard Room can have only 2 member" Exit Sub End If If (room_type = "DELUXE- ROOM" And val(Text9.Text) > 3) Then MsgBox "Deluxe Room can have only 3 member" MSRCASC-BCA V SEM
Page 52
HOTEL MANAGEMENT SYSTEM
Exit Sub End If If (room_type = "SUITE-ROOM" And val(Text9.Text) > 5) Then MsgBox "Suite Room can have only 5 member" Exit Sub End If Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(12) = "ACTIVE" Adodc1.Recordset.Fields(1) = Text2.Text Adodc1.Recordset.Fields(2) = Combo1.Text Adodc1.Recordset.Fields(3) = DTPicker1.Value Adodc1.Recordset.Fields(4) = Text3.Text Adodc1.Recordset.Fields(5) = Text16.Text Adodc1.Recordset.Fields(6) = Text17.Text Adodc1.Recordset.Fields(7) = Text18.Text Adodc1.Recordset.Fields(8) = Text19.Text Adodc1.Recordset.Fields(9) = Combo2.Text Adodc1.Recordset.Fields(10) = Text20.Text Adodc1.Recordset.Fields(11) = Text4.Text Adodc1.Recordset.Fields(12) = "BOOKED"
Adodc3.Recordset.Fields(0) = Text1.Text Adodc3.Recordset.Fields(3) = Text5.Text Adodc3.Recordset.Fields(2) = Text7.Text Adodc3.Recordset.Fields(1) = Combo4.Text Adodc3.Recordset.Fields(4) = Text9.Text Adodc2.Recordset.Fields(0) = Text1.Text Adodc2.Recordset.Fields(1) = Text8.Text Adodc2.Recordset.Fields(7) = Text6.Text Adodc2.Recordset.Fields(2) = 0 Adodc2.Recordset.Fields(3) = 0 Adodc2.Recordset.Fields(4) = 0 Adodc2.Recordset.Fields(5) = 0 Adodc2.Recordset.Fields(6) = 0 Adodc2.Recordset.Fields(9) = 0 Adodc2.Recordset.Fields(8) = "DUE"
Adodc4.Recordset.Fields(0) = Text1.Text MSRCASC-BCA V SEM
Page 53
HOTEL MANAGEMENT SYSTEM
Adodc4.Recordset.Fields(1) = DTPicker2.Value Adodc4.Recordset.Fields(2) = Combo3.Text Adodc4.Recordset.Fields(3) = Text2.Text Adodc4.Recordset.Fields(5) = Text6.Text Adodc4.Recordset.Fields(6) = Text5.Text Adodc4.Recordset.Fields(4) = DTPicker3.Value
rs.Fields(0) = Text1.Text a.Fields(0) = Text1.Text a.Fields(1) = "12:00:00 AM" a.Fields(2) = "18/09/2015" a.Fields(3) = "12:00:00 AM" a.Fields(4) = "18/09/2015" Adodc1.Recordset.Update Adodc2.Recordset.Update Adodc3.Recordset.Update Adodc4.Recordset.Update rs.Update a.Update MsgBox " COUSTOMER BOOKED" End Sub Private Sub Combo3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Combo3.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Combo4_Click() If Text1.Text = "" Then MsgBox "PLEASE ADD CUSTOMER FIRST" Exit Sub MSRCASC-BCA V SEM
Page 54
HOTEL MANAGEMENT SYSTEM
End If Dim val As String val = Combo4.Text Select Case val Case "SINGLE ROOM" Label17.Caption = "1" If Label17.Caption = "1" Then singleroom1.Show End If Case "STANDARD-ROOM" Label17.Caption = "2" If Label17.Caption = "2" Then standardroom1.Show End If Case "DELUXE- ROOM" Label17.Caption = "3" If Label17.Caption = "3" Then deluxeroom1.Show End If Case "SUITE-ROOM" Label17.Caption = "4" If Label17.Caption = "4" Then suiteroom1.Show End If End Select End Sub Private Sub Command2_Click() Set rs9 = New ADODB.Recordset rs9.Open "select * from Reservation where rid ='" & Text1 & "'", cn, 3, 2 If Not rs.EOF Then Set DataReport2.DataSource = rs9 MSRCASC-BCA V SEM
Page 55
HOTEL MANAGEMENT SYSTEM
DataReport2.Show End If End Sub Private Sub Form_Load() DTPicker2.Value = Date connect Set rs = New ADODB.Recordset rs.Source = "laundry" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open connect Set a = New ADODB.Recordset a.Source = "checkin" a.ActiveConnection = cn a.CursorLocation = adUseClient a.LockType = adLockOptimistic a.Open End Sub Private Sub Label16_Click() bookinghistory.Show End Sub
Private Sub Text1_Change() End Sub Private Sub Text16_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text16.Text "" Then Text3.SetFocus ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" MSRCASC-BCA V SEM
Page 56
HOTEL MANAGEMENT SYSTEM
End If End Sub Private Sub Text17_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text17.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text18_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text19_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or MSRCASC-BCA V SEM
Page 57
HOTEL MANAGEMENT SYSTEM
(KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text20_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text20.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub
Private Sub Text4_Change() If Len(Text4.Text) > 10 Then MsgBox "CONTACT NUMBER CONTAIN 10 DIGITS ONLY" Text4.Text = "" End If End Sub
Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text6.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text5.Text "" Then MSRCASC-BCA V SEM
Page 58
HOTEL MANAGEMENT SYSTEM
ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text6.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text7.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text8.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text9.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If MSRCASC-BCA V SEM
Page 59
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Timer1_Timer() DTPicker2.Value = Format(Now, "dd-mm-yyyy") DTPicker3.Value = Format(Now, "dd-mm-yyyy") End Sub Private Sub Combo3_click() If Text1.Text = "" Then MsgBox "PLEASE ADD CUSTOMER FIRST" Exit Sub End If
Dim val As String val = Combo3.Text Select Case val
Case "SINGLE ROOM" Label11.Caption = "1" If Label11.Caption = "1" Then singleroom.Show End If Case "STANDARD-ROOM" Label11.Caption = "2" If Label11.Caption = "2" Then standardroom.Show End If Case "DELUXE- ROOM" Label11.Caption = "3" If Label11.Caption = "3" Then deluxeroom.Show End If Case "SUITE-ROOM" Label11.Caption = "4" If Label11.Caption = "4" Then MSRCASC-BCA V SEM
Page 60
HOTEL MANAGEMENT SYSTEM
suiteroom.Show End If End Select End Sub Private Sub Command1_Click() searchguest.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized DTPicker2.Value = Date DTPicker3.Value = Time connect Set rs = New ADODB.Recordset rs.Source = "laundry" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text10.Text "" Then Text11.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text11.Text "" Then Text12.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONNLY" End If MSRCASC-BCA V SEM
Page 61
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text12.Text "" Then Text13.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text13.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" End If End Sub Private Sub room_Change() If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[ID] Like '" & room & "'" End If End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text14.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" MSRCASC-BCA V SEM
Page 62
HOTEL MANAGEMENT SYSTEM
End If End Sub Private Sub Text15_Change() On Error GoTo errmsg If Text15 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text15 & "'" Label10.Caption = Adodc4.Recordset.Fields(12) End If payment.Caption = Text15.Text room.Caption = Text15.Text checkin.Caption = Text15.Text Exit Sub errmsg: If Err.Number = "3021" Then Text15.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Combo1.Text = "--select--" Combo2.Text = "--SELECT--" Combo3.Text = "--SELECT--" Text10.Text = "" Text14.Text = "" Text12.Text = "" Text13.Text = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description MSRCASC-BCA V SEM
Page 63
HOTEL MANAGEMENT SYSTEM
End If End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text15.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 58 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text "" Then Text3.SetFocus ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text4.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text5.Text "" Then MSRCASC-BCA V SEM
Page 64
HOTEL MANAGEMENT SYSTEM
ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub
Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text6.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub
Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text7.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text8.Text "" Then Text9.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text9_Change() MSRCASC-BCA V SEM
Page 65
HOTEL MANAGEMENT SYSTEM
If Len(Text9.Text) > 10 Then MsgBox "CONTACT NUMBER CONTAIN 10 DIGITS ONLY" End If End Sub Private Sub checkin_Change() On Error GoTo errmsg
If checkin = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[cid] Like '" & checkin & "'" Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Combo1.Text = Adodc4.Recordset.Fields(2) DTPicker1.Value = Adodc4.Recordset.Fields(3) Text3.Text = Adodc4.Recordset.Fields(4) Text4.Text = Adodc4.Recordset.Fields(5) Text5.Text = Adodc4.Recordset.Fields(6) Text6.Text = Adodc4.Recordset.Fields(7) Text7.Text = Adodc4.Recordset.Fields(8) Combo2.Text = Adodc4.Recordset.Fields(9) Text8.Text = Adodc4.Recordset.Fields(10) Text9.Text = Adodc4.Recordset.Fields(11) Text14.Text = Adodc1.Recordset.Fields(4) Combo3.Text = Adodc1.Recordset.Fields(1) Text10.Text = Adodc1.Recordset.Fields(2) Text12.Text = Adodc1.Recordset.Fields(3)
Text13.Text = Adodc2.Recordset.Fields(7) Exit Sub DTPicker3.Value = Adodc3.Recordset.Fields(1) DTPicker2.Value = Adodc3.Recordset.Fields(2) MSRCASC-BCA V SEM
Page 66
HOTEL MANAGEMENT SYSTEM
End If Exit Sub errmsg: MsgBox "DATA NOT FOUND"
End Sub Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text9.Text "" Then Text9.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Timer1_Timer() DTPicker2.Value = Format(Now, "dd-mm-yyyy") End Sub Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Sub cmdcheckout_Click() On Error GoTo errmsg If Text15.Text = "" Then MsgBox " Select Customer First" Exit Sub End If If Combo1.Text = "--SELECT--" Then MsgBox "PLEASE FILL THE REQUIRED FIELDS" Exit Sub End If MSRCASC-BCA V SEM
Page 67
HOTEL MANAGEMENT SYSTEM
If Text11.Text = "DUE" Then MsgBox "must clear all the dues" Exit Sub End If If Label15.Caption = "NOT ACTIVE" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If Adodc4.Recordset.Fields(12) = "NOT ACTIVE" Adodc3.Recordset.Fields(3) = DTPicker3.Value Adodc3.Recordset.Fields(4) = DTPicker2.Value Adodc1.Recordset.Fields(5) = Combo1.Text Adodc3.Recordset.Update Adodc1.Recordset.Update Adodc4.Recordset.Update MsgBox "CHECK-OUT RECORD UPDATED" Exit Sub errmsg: End Sub
Private Sub Combo3_click() Dim val As String val = Combo3.Text Select Case val
Case "SINGLE ROOM" Label11.Caption = "1" If Label11.Caption = "1" Then singleroom.Show End If Case "STANDARD-ROOM" Label11.Caption = "2" If Label11.Caption = "2" Then MSRCASC-BCA V SEM
Page 68
HOTEL MANAGEMENT SYSTEM
standardroom.Show End If Case "DELUXE- ROOM" Label11.Caption = "3" If Label11.Caption = "3" Then deluxeroom.Show End If Case "SUITE-ROOM" Label11.Caption = "4" If Label11.Caption = "4" Then suiteroom.Show End If End Select End Sub
Private Sub Command1_Click() searchguest.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized DTPicker2.Value = Date DTPicker3.Value = Time End Sub
Private Sub payment_Change() On Error GoTo errmsg If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" Text13.Text = Adodc2.Recordset.Fields(7) Text11.Text = Adodc2.Recordset.Fields(8) End If Exit Sub errmsg: MSRCASC-BCA V SEM
Page 69
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub room_Change() On Error GoTo errmsg If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[ID] Like '" & room & "'" Combo3.Text = Adodc1.Recordset.Fields(1) Text10.Text = Adodc1.Recordset.Fields(2) Text12.Text = Adodc1.Recordset.Fields(3) Text14.Text = Adodc1.Recordset.Fields(4) End If Exit Sub errmsg: End Sub Private Sub Text15_Change() On Error GoTo errmsg If Text15 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text15 & "'" Label15.Caption = Adodc4.Recordset.Fields(12) Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Text16.Text = Adodc4.Recordset.Fields(2) Text17.Text = Adodc4.Recordset.Fields(3) Text3.Text = Adodc4.Recordset.Fields(4) Text4.Text = Adodc4.Recordset.Fields(5) Text5.Text = Adodc4.Recordset.Fields(6) Text6.Text = Adodc4.Recordset.Fields(7) Text7.Text = Adodc4.Recordset.Fields(8) Text18.Text = Adodc4.Recordset.Fields(9) Text8.Text = Adodc4.Recordset.Fields(10) Text9.Text = Adodc4.Recordset.Fields(11) End If payment.Caption = Text15.Text MSRCASC-BCA V SEM
Page 70
HOTEL MANAGEMENT SYSTEM
room.Caption = Text15.Text checkin.Caption = Text15.Text Exit Sub errmsg: If Err.Number = "3021" Then Text15.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text16.Text = "" Text18.Text = "" Text11.Text = "" Combo1.Text = "--select--" Combo3.Text = "--SELECT--" Text10.Text = "" Text14.Text = "" Text12.Text = "" Text13.Text = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub
Private Sub checkin_Change() On Error GoTo errmsg If checkin = "" Then MSRCASC-BCA V SEM
Page 71
HOTEL MANAGEMENT SYSTEM
Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[cid] Like '" & checkin & "'" DTPicker3.Value = Adodc3.Recordset.Fields(3) DTPicker2.Value = Adodc3.Recordset.Fields(4)
End If Exit Sub errmsg:
End Sub
Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text15.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub Timer1_Timer() DTPicker2.Value = Format(Now, "dd-mm-yyyy") End Sub
Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then checkin.Text10.Text = deluxeroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption MSRCASC-BCA V SEM
Page 72
HOTEL MANAGEMENT SYSTEM
End If End If
Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub
Private Sub Form_Load() checkin.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub
Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "BOOKED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then reservation.Text7.Text = deluxeroom1.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If MSRCASC-BCA V SEM
Page 73
HOTEL MANAGEMENT SYSTEM
End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() reservation.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) reservation.Enabled = True End Sub
Private Sub Form_Load() ProgressBar1.Value = ProgressBar1.Min End Sub
'Private Sub Timer1_Timer() ' ' If rs.State = 1 Then ' rs.Close ' Else ' rs.Open "select * from Login", cn, adOpenDynamic, adLockOptimistic, adCmdText ' ' If rs.EOF = True Then ' Unload Me ' account1.Show ' Else MSRCASC-BCA V SEM
Page 74
HOTEL MANAGEMENT SYSTEM
' Unload Me ' login.Show ' End If ' End If ' 'End Sub Private Sub Timer2_Timer() ProgressBar1.Value = ProgressBar1.Value + 100 If ProgressBar1.Value = 100 Then ProgressBar1.Value = ProgressBar1 + 100 If ProgressBar1.Value >= ProgressBar1.Max Then Timer2.Enabled = False End If End If login.Show End Sub Private Sub Timer3_Timer() Label1.Left = Label1.Left + 50 If Label1.Left >= 9930 Then Label1.Left = 0 - Label1.Width End If End Sub
Option Explicit Dim operand1 As Double, operand As Double Dim op1 As Double, op2 As Double Dim operator As String Dim cleardisplay As Boolean Private Sub cmdadd_Click() If Label2.Caption = "NOT ACTIVE" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If op1 = val(Text3.Text) operator = "*" Dim result1 As Double MSRCASC-BCA V SEM
Page 75
HOTEL MANAGEMENT SYSTEM
op2 = val(Label12.Caption) result1 = mul(ByVal op1, ByVal op2) Label10.Caption = result1 op1 = val(Text4.Text) operator = "*" Dim result2 As Double op2 = val(Label15.Caption) result2 = mul(ByVal op1, ByVal op2) Label11.Caption = result2 op1 = val(Label10.Caption) operator = "+" Dim result3 As Double op2 = val(Label11.Caption) result3 = add(ByVal op1, ByVal op2) Label17.Caption = result3 op1 = val(Label17.Caption) operator = "+" Dim result4 As Double op2 = val(Label16.Caption) result4 = add(ByVal op1, ByVal op2) Text5.Text = result4 Dim result5 As Double op1 = val(Label24.Caption) operator = "+" op2 = val(Text3.Text) result5 = add(ByVal op1, ByVal op2) Label24.Caption = result5 Dim result6 As Double op1 = val(Label25.Caption) operator = "+" op2 = val(Text4.Text) result6 = add(ByVal op1, ByVal op2) Label25.Caption = result6 End Sub Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Function mul(ByVal operand1 As Double, ByVal operand2 As Double) As Double mul = operand1 * operand2 MSRCASC-BCA V SEM
Page 76
HOTEL MANAGEMENT SYSTEM
End Function Private Function add(ByVal operand1 As Double, ByVal operand2 As Double) As Double add = operand1 + operand2 End Function Private Sub cmdsave_Click() On Error GoTo errmsg If Text1.Text = "" Or Text2.Text = "" Or Text6.Text = "" Or Combo1.Text = "--SELECT--" Then MsgBox "TRANSACTION NOT ALLOWED,FILL ALL DETAILS" Exit Sub End If Adodc3.Recordset.Fields(1) = Label24.Caption Adodc3.Recordset.Fields(5) = Combo1.Text Adodc3.Recordset.Fields(2) = Label25.Caption Adodc3.Recordset.Fields(3) = DTPicker1.Value Adodc3.Recordset.Fields(4) = DTPicker2.Value Adodc2.Recordset.Fields(5) = Text5.Text Adodc1.Recordset.Update Adodc2.Recordset.Update Adodc3.Recordset.Update MsgBox "TRANSACTION COMPLETE" Exit Sub errmsg: MsgBox Err.Description End Sub
Private Sub Command1_Click() searchguest.Show End Sub Private Sub Form_Load() menu.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) MSRCASC-BCA V SEM
Page 77
HOTEL MANAGEMENT SYSTEM
menu.Enabled = True End Sub
Private Sub Label26_Change() If Label26 = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[lid] Like '" & Label26 & "'" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub Text1_Change() On Error GoTo errmsg If Text1 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text1 & "'" Text6.Text = Adodc4.Recordset.Fields(1) Label2.Caption = Adodc4.Recordset.Fields(12) End If payment.Caption = Text1.Text room.Caption = Text1.Text Label26.Caption = Text1.Text Exit Sub errmsg: If Err.Number = "3021" Then MSRCASC-BCA V SEM
Page 78
HOTEL MANAGEMENT SYSTEM
Text1.Text = "" Text2.Text = "" Text6.Text = "" Label16.Caption = "" Label17.Caption = "" Combo1.Text = "--SELECT--" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" Label16.Caption = Adodc2.Recordset.Fields(5) End If End Sub Private Sub room_Change() If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc5.Recordset.Filter = "[ID] Like '" & room & "'" Text2.Text = Adodc5.Recordset.Fields(2) End If End Sub
Private Sub Command1_Click() Unload Me ratelist.Show End Sub Private Sub Command2_Click() If Option1.Value = True Then MSRCASC-BCA V SEM
Page 79
HOTEL MANAGEMENT SYSTEM
Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Update Else If Option2.Value = True Then Adodc1.Recordset.Fields(1) = Text1.Text Adodc1.Recordset.Update Else End If End If End Sub
Dim s1 As String Dim s2 As String Private Sub cmdexit_Click() If MsgBox("Do You Really Want To Exit ?", vbQuestion + vbYesNo + vbDefaultButton, "WARNING") = vbYes Then Unload Me Else Exit Sub End If End Sub Private Sub Command1_Click() Form1.Show End Sub Private Sub cmdlogin_Click() If txtusername = "" Then MsgBox "Enter the password", vbInformation + vbOKOnly, "login" txtusername.SetFocus Exit Sub End If If txtpassword = "" Then MsgBox "Enter the password", vbInformation + vbOKOnly, "login" txtpassword.SetFocus Exit Sub End If s1 = txtusername.Text s2 = txtpassword.Text MSRCASC-BCA V SEM
Page 80
HOTEL MANAGEMENT SYSTEM
Adodc1.RecordSource = " select * from login where username ='" + s1 + "' and password='" + s2 + "' " Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then MsgBox "Invalid user name and password", vbCritical + vbOKOnly, "login" Else menu.Show Unload login Exit Sub End If txtusername.Text = "" txtpassword.Text = "" txtusername.SetFocus End Sub
Private Sub Form_Load() Me.WindowState = vbMaximized lbldate.Caption = Date Timer1.Enabled = True connect Set rs = New ADODB.Recordset rs.Source = "login" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub Private Sub Labe1_Click() pchange.Show End Sub Private Sub Timer1_Timer() lbltime.Caption = Format(Now, "hh:mm:ss AM/PM") lbldate.Caption = Format(Now, "dd-mm-yyyy") End Sub Private Sub txtpassword_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then MSRCASC-BCA V SEM
Page 81
HOTEL MANAGEMENT SYSTEM
KeyAscii = 0 cmdlogin_Click End If End Sub
Private Sub cmdcheckout_Click() Unload Me checkout.Show End Sub Private Sub cmdcontrolpanel_Click() ratelist.Show End Sub Private Sub cmdlaundry_Click() laundry.Show End Sub Private Sub cmdrestaurant_Click() Restaurant.Show End Sub Private Sub cmdsearch_Click() searchguest.Show End Sub Private Sub Command1_Click() Unload Me checkin.Show End Sub Private Sub cmdcal_Click() On Error GoTo Err Shell "calc.exe", vbNormalFocus Exit Sub Err: MsgBox "You don't have a Calculator installed in your computer.", vbExclamation, "CSRS version 1" End Sub Private Sub cmdlogout_Click() If MsgBox("Do You Really Want To LogOut ?", vbQuestion + vbYesNo + vbDefaultButton, "WARNING") = vbYes Then MSRCASC-BCA V SEM
Page 82
HOTEL MANAGEMENT SYSTEM
Unload menu login.Show Else Exit Sub End If End Sub Private Sub cmdnotepad_Click() On Error GoTo Err Shell "notepad.exe", vbNormalFocus Exit Sub Err: MsgBox "You don't have a NotePad installed in your computer.", vbExclamation, "CSRS version 1" End Sub Private Sub cmdreservation_Click() rmenu.Show End Sub Private Sub cmdpayment_Click() payment.Show End Sub Private Sub cmdstatus_Click() status.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized Timer1.Enabled = True lbldate.Caption = Date End Sub Private Sub Timer1_Timer() lbltime.Caption = Format(Now, "hh:mm:ss Am/Pm") End Sub Private Sub checkin_Change() If checkin = "" Then Adodc6.Recordset.Filter = "" Adodc6.Refresh Else Adodc6.Recordset.Filter = "[cid] Like '" & checkin & "'" MSRCASC-BCA V SEM
Page 83
HOTEL MANAGEMENT SYSTEM
Label11.Caption = Adodc6.Recordset.Fields(2) End If End Sub Private Sub cmdback_Click() Unload Me menu.Show End Sub
Private Sub CMDCALCULATE_Click() If Label6.Caption = "NOT ACTIVE" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If If Text5.Text = "" Or Text6.Text = "" Then MsgBox " PLEASE ENTER EXTRA CHARGE ,DISCOUNT" Exit Sub End If Dim i As Double If Len(Text14) = 11 Then Adodc3.Refresh i = Adodc3.Recordset("singleroom") * val(Text9.Text) Text13.Text = i End If Dim a As Double If Len(Text14) = 10 Then Adodc3.Refresh a = Adodc3.Recordset("suitroom") * val(Text9.Text) Text13.Text = a End If Dim b As Double If Len(Text14) = 12 Then Adodc3.Refresh b = Adodc3.Recordset("deluxroom") * val(Text9.Text) Text13.Text = b End If Dim c As Double If Len(Text14) = 13 Then MSRCASC-BCA V SEM
Page 84
HOTEL MANAGEMENT SYSTEM
Adodc3.Refresh c = Adodc3.Recordset("standardroom") * val(Text9.Text) Text13.Text = c End If Dim tot As Double tot = val(Text5) + val(Text6) + val(Text10) + val(Text11) + val(Text13) Text7.Text = val(tot) + (4 / 100) * val(tot) Text15.Text = (4 / 100) * val(tot) Dim bal As Double bal = val(tot) - val(Text4) + val(Text15.Text) Text8.Text = val(bal) End Sub Private Sub Command1_Click() Set rs = New ADODB.Recordset rs.Open "select * from Paymentlog where Customer_ID ='" & Text1 & "'", cn, 3, 2 If Not rs.EOF Then Set DataReport1.DataSource = rs DataReport1.Show End If End Sub Private Sub Command2_Click() If Text5.Text = "" Or Text6.Text = "" Or Combo1.Text = "--SELECT--" Then MsgBox " PLEASE ENTER EXTRA CHARGE ,DISCOUNT STATUS " Exit Sub End If Adodc2.Recordset.Fields(1) = Text6.Text Adodc2.Recordset.Fields(2) = Text5.Text Adodc2.Recordset.Fields(3) = Text8.Text Adodc2.Recordset.Fields(6) = Text7.Text Adodc2.Recordset.Fields(8) = Combo1.Text MSRCASC-BCA V SEM
Page 85
HOTEL MANAGEMENT SYSTEM
Adodc2.Recordset.Fields(9) = Text13.Text Adodc1.Recordset.Fields(3) = Text9.Text Adodc2.Recordset.Fields(10) = Text15.Text Adodc5.Recordset.AddNew
Adodc5.Recordset.Fields(1) = Text1.Text Adodc5.Recordset.Fields(2) = Text2.Text Adodc5.Recordset.Fields(3) = Text13.Text Adodc5.Recordset.Fields(5) = Text6.Text Adodc5.Recordset.Fields(6) = Text5.Text Adodc5.Recordset.Fields(7) = Text10.Text Adodc5.Recordset.Fields(8) = Text11.Text Adodc5.Recordset.Fields(9) = Text7.Text Adodc5.Recordset.Fields(10) = Combo1.Text Adodc5.Recordset.Fields(11) = Text9.Text Adodc5.Recordset.Fields(12) = Combo1.Text Adodc5.Recordset.Fields(13) = Text3.Text Adodc5.Recordset.Fields(14) = Label14.Caption Adodc5.Recordset.Fields(15) = Text8.Text Adodc5.Recordset.Fields(4) = Text4.Text Adodc5.Recordset.Fields(16) = Text15.Text Adodc5.Recordset.Update Adodc2.Recordset.Update Adodc1.Recordset.Update MsgBox " PAYMENT DONE" End Sub Private Sub Command3_Click() searchguest.Show End Sub Private Sub Form_Load() menu.Enabled = False Label14.Caption = Date Timer1.Enabled = True connect MSRCASC-BCA V SEM
Page 86
HOTEL MANAGEMENT SYSTEM
Set rs = New ADODB.Recordset rs.Source = "Payment" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub Private Sub Timer1_Timer() DTPicker2.Value = Format(Now, "dd-mm-yyyy") End Sub
payment.Caption = Text1.Text End Sub Private Sub Text22_Change() On Error GoTo errmsg If Text22 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_Name] Like '*" & Text22 & "*'" Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Text3.Text = Adodc4.Recordset.Fields(2) Text4.Text = Adodc4.Recordset.Fields(3) Text5.Text = Adodc4.Recordset.Fields(4) Text6.Text = Adodc4.Recordset.Fields(5) Text7.Text = Adodc4.Recordset.Fields(6) Text8.Text = Adodc4.Recordset.Fields(7) Text9.Text = Adodc4.Recordset.Fields(8) Text10.Text = Adodc4.Recordset.Fields(9) Text11.Text = Adodc4.Recordset.Fields(10) Text12.Text = Adodc4.Recordset.Fields(11) Label10.Caption = Adodc4.Recordset.Fields(12) Text13.Text = Adodc1.Recordset.Fields(1) MSRCASC-BCA V SEM
Page 87
HOTEL MANAGEMENT SYSTEM
Text14.Text = Adodc1.Recordset.Fields(2) Text23.Text = Adodc1.Recordset.Fields(4) Text17.Text = Adodc2.Recordset.Fields(7) Text18.Text = Adodc3.Recordset.Fields(1) Text19.Text = Adodc3.Recordset.Fields(2) Text20.Text = Adodc3.Recordset.Fields(3) Text21.Text = Adodc3.Recordset.Fields(4) End If Exit Sub errmsg: If Err.Number = "3021" Then Text22.Text = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub Private Sub Text22_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text22.Text "" Then Text3.SetFocus ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub
Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" MSRCASC-BCA V SEM
Page 88
HOTEL MANAGEMENT SYSTEM
Exit Sub Else If Label4.Caption = "VACANT" Then Adodc1.Recordset.Fields(1) = Label1.Caption checkin.Text10.Text = singleroom.Label3.Caption End If End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() checkin.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "BOOKED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then Adodc1.Recordset.Fields(1) = Label1.Caption reservation.Text7.Text = singleroom1.Label3.Caption End If MSRCASC-BCA V SEM
Page 89
HOTEL MANAGEMENT SYSTEM
End If End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() reservation.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) reservation.Enabled = True End Sub Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then checkin.Text10.Text = standardroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption MSRCASC-BCA V SEM
Page 90
HOTEL MANAGEMENT SYSTEM
Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub
Private Sub Form_Load() checkin.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "BOOK" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then reservation.Text7.Text = standardroom1.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub MSRCASC-BCA V SEM
Page 91
HOTEL MANAGEMENT SYSTEM
Private Sub Form_Load() reservation.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) reservation.Enabled = True End Sub Public a As String Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Sub Form_Load() menu.Enabled = False a = Label16.Caption b = Label23.Caption Label2.Caption = Adodc1.Recordset.RecordCount Label3.Caption = Adodc2.Recordset.RecordCount Label4.Caption = Adodc3.Recordset.RecordCount Label5.Caption = Adodc4.Recordset.RecordCount
Label1.Caption = val(Label2.Caption) + val(Label3.Caption) + val(Label4.Caption) + val(Label5.Caption)
Adodc1.RecordSource = " select * from singleroom where status ='" + a + "' " Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Label7.Caption = "0" Else Label7.Caption = Adodc1.Recordset.RecordCount End If MSRCASC-BCA V SEM
Page 92
HOTEL MANAGEMENT SYSTEM
Adodc1.RecordSource = " select * from singleroom where status ='" + b + "' " Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Label19.Caption = "0" Else Label19.Caption = Adodc1.Recordset.RecordCount End If Adodc2.RecordSource = " select * from standardroom where status ='" + a + "' " Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then Label8.Caption = "0" Else Label8.Caption = Adodc2.Recordset.RecordCount End If
Adodc2.RecordSource = " select * from standardroom where status ='" + b + "' " Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then Label20.Caption = "0" Else Label20.Caption = Adodc2.Recordset.RecordCount End If
Adodc3.RecordSource = " select * from suitroom where status ='" + a + "' " Adodc3.Refresh If Adodc3.Recordset.RecordCount = 0 Then Label9.Caption = "0" Else Label9.Caption = Adodc3.Recordset.RecordCount End If
Adodc3.RecordSource = " select * from suitroom where status ='" + b + "' " Adodc3.Refresh MSRCASC-BCA V SEM
Page 93
HOTEL MANAGEMENT SYSTEM
If Adodc3.Recordset.RecordCount = 0 Then Label21.Caption = "0" Else Label21.Caption = Adodc3.Recordset.RecordCount End If
Adodc4.RecordSource = " select * from deluxroom where status ='" + a + "' " Adodc4.Refresh If Adodc4.Recordset.RecordCount = 0 Then Label10.Caption = "0" Else Label10.Caption = Adodc4.Recordset.RecordCount End If Adodc4.RecordSource = " select * from deluxroom where status ='" + b + "' " Adodc4.Refresh If Adodc4.Recordset.RecordCount = 0 Then Label22.Caption = "0" Else Label22.Caption = Adodc4.Recordset.RecordCount End If Label6.Caption = val(Label7.Caption) + val(Label8.Caption) + val(Label9.Caption) + val(Label10.Caption) Label18.Caption = val(Label19.Caption) + val(Label20.Caption) + val(Label21.Caption) + val(Label22.Caption)
Label12.Caption = val(Label2.Caption) - (val(Label7.Caption) + val(Label19.Caption)) Label13.Caption = val(Label3.Caption) - (val(Label8.Caption) + val(Label20.Caption)) Label14.Caption = val(Label4.Caption) - (val(Label9.Caption) + val(Label21.Caption)) MSRCASC-BCA V SEM
Page 94
HOTEL MANAGEMENT SYSTEM
Label15.Caption = val(Label5.Caption) - (val(Label10.Caption) + val(Label21.Caption)) Label11.Caption = val(Label12.Caption) + val(Label13.Caption) + val(Label14.Caption) + val(Label15.Caption)
End Sub Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub
Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then checkin.Text10.Text = suiteroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If
Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() checkin.Enabled = False End Sub
MSRCASC-BCA V SEM
Page 95
HOTEL MANAGEMENT SYSTEM
Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub
Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "BOOK" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then reservation.Text7.Text = suiteroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() reservation.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) reservation.Enabled = True End Sub MSRCASC-BCA V SEM
Page 96
HOTEL MANAGEMENT SYSTEM
Single Room : Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then Adodc1.Recordset.Fields(1) = Label1.Caption checkin.Text10.Text = singleroom.Label3.Caption End If End If Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() checkin.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub
Standard Room : Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" MSRCASC-BCA V SEM
Page 97
HOTEL MANAGEMENT SYSTEM
Exit Sub Else If Label4.Caption = "VACANT" Then checkin.Text10.Text = standardroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If
Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub
Private Sub Form_Load() checkin.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub
Suite Room : Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else MSRCASC-BCA V SEM
Page 98
HOTEL MANAGEMENT SYSTEM
If Label4.Caption = "VACANT" Then checkin.Text10.Text = suiteroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If
Unload Me End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() checkin.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub
Deluxe Room : Private Sub Command1_Click() If Label4.Caption = "ALLOTED" Then MsgBox "ROOM IS NOT VACANT" Exit Sub Else If Label4.Caption = "VACANT" Then checkin.Text10.Text = deluxeroom.Label3.Caption Adodc1.Recordset.Fields(1) = Label1.Caption End If End If Unload Me MSRCASC-BCA V SEM
Page 99
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Command2_Click() Adodc1.Recordset.Fields(1) = Label2.Caption Adodc1.Recordset.Update MsgBox "ROOM DEALLOTED" End Sub Private Sub Form_Load() checkin.Enabled = False End Sub Private Sub Form_Unload(Cancel As Integer) checkin.Enabled = True End Sub
Booking History : Private Sub Command1_Click() searchguest.Show End Sub Private Sub Command2_Click() Unload Me menu.Show End Sub Private Sub Form_Load() Me.filllistview End Sub
Sub filllistview() MSRCASC-BCA V SEM
Page 100
HOTEL MANAGEMENT SYSTEM
rs4.Open "select * from custinfo inner join Reservation on custinfo.Customer_ID = Reservation.rid", cn, 3, 2 If Not rs4.EOF Then ListView1.ListItems.Clear rs4.MoveFirst Do While Not rs4.EOF Set Item = ListView1.ListItems.add(, , rs4!Customer_ID) Item.SubItems(1) = rs4!Customer_Name Item.SubItems(2) = rs4!bookingdate Item.SubItems(3) = rs4!bookingvia rs4.MoveNext
Loop Else ListView1.ListItems.Clear End If rs4.Close Set rs4 = Nothing
End Sub Private Sub Text1_Change() rs4.Open "select * from custinfo inner join Reservation on custinfo.Customer_ID = Reservation.rid where Customer_ID like '" & Text1.Text & "' ", cn, 3, 2 If Not rs4.EOF Then ListView1.ListItems.Clear rs4.MoveFirst Do While Not rs4.EOF Set Item = ListView1.ListItems.add(, , rs4!Customer_ID) Item.SubItems(1) = rs4!Customer_Name Item.SubItems(2) = rs4!bookingdate Item.SubItems(3) = rs4!bookingvia rs4.MoveNext MSRCASC-BCA V SEM
Page 101
HOTEL MANAGEMENT SYSTEM
Loop Else ListView1.ListItems.Clear End If rs4.Close Set rs4 = Nothing End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub
Cancel Registration : Private Sub Combo4_Click() Dim val As String val = Combo4.Text Select Case val Case "SINGLE ROOM" Label11.Caption = "1" If Label11.Caption = "1" Then singleroom1.Show End If Case "STANDARD-ROOM" Label11.Caption = "2" If Label11.Caption = "2" Then standardroom1.Show End If Case "DELUXE- ROOM" Label11.Caption = "3" MSRCASC-BCA V SEM
Page 102
HOTEL MANAGEMENT SYSTEM
If Label11.Caption = "3" Then deluxeroom1.Show End If Case "SUITE-ROOM" Label11.Caption = "4" If Label11.Caption = "4" Then suiteroom1.Show End If End Select End Sub Private Sub Command1_Click() On Error GoTo errmsg If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "SELECT THE CUSTOMER FIRST" Exit Sub End If Dim wish As Integer wish = MsgBox("do you really want to cancel (y/n)?", vbYesNo + vbQuestion + vbDefaultButton1) If wish = vbYes Then Adodc1.Recordset.Delete Adodc2.Recordset.Delete Adodc3.Recordset.Delete Adodc4.Recordset.Delete Adodc5.Recordset.Delete Adodc6.Recordset.Delete MsgBox "RESERVATION CANCELLED SUCESSFULLY" End If Exit Sub errmsg: MsgBox "ENTER THE NAME OF CUSTOMER " End Sub Private Sub checkin_Change() If checkin = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh MSRCASC-BCA V SEM
Page 103
HOTEL MANAGEMENT SYSTEM
Else Adodc2.Recordset.Filter = "[cid] Like '" & checkin & "'" End If End Sub Private Sub Command2_Click() searchguest.Show End Sub Private Sub Command3_Click() Unload Me rmenu.Show End Sub Private Sub laundry_Change() If laundry = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[lid] Like '" & laundry & "'" End If End Sub Private Sub reservation_Change() If reservation = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[Customer_ID] Like '" & reservation & "'" End If End Sub Private Sub room_Change() If room = "" Then Adodc5.Recordset.Filter = "" Adodc5.Refresh Else Adodc5.Recordset.Filter = "[ID] Like '" & room & "'" Combo4.Text = Adodc5.Recordset.Fields(1) Text5.Text = Adodc5.Recordset.Fields(2) MSRCASC-BCA V SEM
Page 104
HOTEL MANAGEMENT SYSTEM
End If End Sub Private Sub Text1_Change() On Error GoTo errmsg If Text1 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[rid] Like '" & Text1 & "'" Text2.Text = Adodc4.Recordset.Fields(0) Text3.Text = Adodc4.Recordset.Fields(3) Text7.Text = Adodc4.Recordset.Fields(2) End If payment.Caption = Text1.Text room.Caption = Text2.Text reservation.Caption = Text1.Text laundry.Caption = Text1.Text checkin.Caption = Text1.Text Exit Sub errmsg: If Err.Number = "3021" Then Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub Private Sub payment_Change() If payment = "" Then Adodc6.Recordset.Filter = "" Adodc6.Refresh Else Adodc6.Recordset.Filter = "[PID] Like '" & payment & "'" Text6.Text = Adodc6.Recordset.Fields(7) End If End Sub MSRCASC-BCA V SEM
Page 105
HOTEL MANAGEMENT SYSTEM
Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text6.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub
Check in : Private Sub ccmdclear_Click() Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Combo1.Text = "--select--" Combo2.Text = "--SELECT--" Combo3.Text = "--SELECT--" Text10.Text = "" Text14.Text = "" Text12.Text = "" Text13.Text = "" End Sub Private Sub cmdadd_Click() Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Combo1.Text = "--select--" MSRCASC-BCA V SEM
Page 106
HOTEL MANAGEMENT SYSTEM
Combo2.Text = "--SELECT--" Combo3.Text = "--SELECT--" Text10.Text = "" Text14.Text = "" Text12.Text = "" Text13.Text = "" On Error GoTo errmsg Dim id As String Adodc4.Refresh Adodc4.Recordset.MoveLast id = Adodc4.Recordset("Customer_ID") + 1 Adodc4.Recordset.AddNew Adodc1.Recordset.AddNew Adodc2.Recordset.AddNew Adodc3.Recordset.AddNew rs.AddNew Text1.Text = id Text2.SetFocus Exit Sub errmsg: If Err.Number = "-2147467259" Then Call MsgBox("CustomerID Already Exist") Exit Sub End If Adodc4.Recordset.AddNew Adodc1.Recordset.AddNew Adodc2.Recordset.AddNew Adodc3.Recordset.AddNew rs.AddNew Text1.Text = 1 Text2.SetFocus End Sub Private Sub cmdback_Click() MSRCASC-BCA V SEM
Page 107
HOTEL MANAGEMENT SYSTEM
Unload Me menu.Show End Sub Private Sub cmdcheckin_Click() On Error GoTo errmsg If Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Or Text10.Text = "" Or Text12.Text = "" Or Text13.Text = "" Then MsgBox "field should not be left blank" Exit Sub End If Adodc4.Recordset.Fields(0) = Text1.Text Adodc4.Recordset.Fields(1) = Text2.Text Adodc4.Recordset.Fields(2) = Combo1.Text Adodc4.Recordset.Fields(3) = DTPicker1.Value Adodc4.Recordset.Fields(4) = Text3.Text Adodc4.Recordset.Fields(5) = Text4.Text Adodc4.Recordset.Fields(6) = Text5.Text Adodc4.Recordset.Fields(7) = Text6.Text Adodc4.Recordset.Fields(8) = Text7.Text Adodc4.Recordset.Fields(9) = Combo2.Text Adodc4.Recordset.Fields(10) = Text8.Text Adodc4.Recordset.Fields(11) = Text9.Text Adodc4.Recordset.Fields(12) = "ACTIVE" Adodc1.Recordset.Fields(0) = Text1.Text Adodc1.Recordset.Fields(1) = Combo3.Text Adodc1.Recordset.Fields(2) = Text10.Text Adodc1.Recordset.Fields(3) = Text12.Text Adodc1.Recordset.Fields(4) = Text14.Text Adodc2.Recordset.Fields(0) = Text1.Text Adodc2.Recordset.Fields(1) = 0 Adodc2.Recordset.Fields(2) = 0 Adodc2.Recordset.Fields(3) = 0 Adodc2.Recordset.Fields(4) = 0 Adodc2.Recordset.Fields(5) = 0 Adodc2.Recordset.Fields(6) = 0 Adodc2.Recordset.Fields(9) = 0 Adodc2.Recordset.Fields(10) = 0 Adodc2.Recordset.Fields(8) = "DUE" MSRCASC-BCA V SEM
Page 108
HOTEL MANAGEMENT SYSTEM
Adodc2.Recordset.Fields(7) = Text13.Text Adodc3.Recordset.Fields(0) = Text1.Text Adodc3.Recordset.Fields(1) = DTPicker3.Value Adodc3.Recordset.Fields(2) = DTPicker2.Value Adodc3.Recordset.Fields(3) = "00:00:00 AM" Adodc3.Recordset.Fields(4) = "1/1/2012" rs.Fields(0) = Text1.Text rs.Fields(1) = 0 rs.Fields(2) = 0 rs.Fields(3) = "1/1/2012" rs.Fields(4) = "1/1/2012" rs.Fields(5) = "--SELECT--" Adodc1.Recordset.Update Adodc2.Recordset.Update Adodc3.Recordset.Update Adodc4.Recordset.Update rs.Update MsgBox "RECORD SAVED SUCCESSFULLY" Exit Sub errmsg: MsgBox Err.Description Exit Sub End Sub Private Sub Combo1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Combo1.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "PLEASE SELECT THE GENDER" End If End Sub Private Sub Combo2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Combo2.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then MSRCASC-BCA V SEM
Page 109
HOTEL MANAGEMENT SYSTEM
KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Combo3_click() If Text1.Text = "" Then MsgBox "PLEASE ADD CUSTOMER FIRST" Exit Sub End If
Dim val As String val = Combo3.Text Select Case val Case "SINGLE ROOM" Label11.Caption = "1" If Label11.Caption = "1" Then singleroom.Show End If Case "STANDARD-ROOM" Label11.Caption = "2" If Label11.Caption = "2" Then standardroom.Show End If Case "DELUXE- ROOM" Label11.Caption = "3" If Label11.Caption = "3" Then deluxeroom.Show End If Case "SUITE-ROOM" Label11.Caption = "4" If Label11.Caption = "4" Then suiteroom.Show End If End Select MSRCASC-BCA V SEM
Page 110
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Command1_Click() searchguest.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized DTPicker2.Value = Date DTPicker3.Value = Time connect Set rs = New ADODB.Recordset rs.Source = "laundry" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub
Private Sub Text10_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text10.Text "" Then Text11.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text11_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text11.Text "" Then Text12.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONNLY" End If End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text12.Text "" Then MSRCASC-BCA V SEM
Page 111
HOTEL MANAGEMENT SYSTEM
Text13.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text13_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text13.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" End If End Sub Private Sub room_Change() If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[ID] Like '" & room & "'" End If End Sub
Private Sub Text14_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text14.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub MSRCASC-BCA V SEM
Page 112
HOTEL MANAGEMENT SYSTEM
Private Sub Text15_Change() On Error GoTo errmsg If Text15 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text15 & "'" Label10.Caption = Adodc4.Recordset.Fields(12) End If payment.Caption = Text15.Text room.Caption = Text15.Text checkin.Caption = Text15.Text Exit Sub errmsg: If Err.Number = "3021" Then Text15.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Combo1.Text = "--select--" Combo2.Text = "--SELECT--" Combo3.Text = "--SELECT--" Text10.Text = "" Text14.Text = "" Text12.Text = "" Text13.Text = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If MSRCASC-BCA V SEM
Page 113
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text15.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 58 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text2.Text "" Then Text3.SetFocus ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text4.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text5.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" MSRCASC-BCA V SEM
Page 114
HOTEL MANAGEMENT SYSTEM
End If End Sub Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text6.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text7_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text7.Text "" Then ElseIf (KeyAscii < 65 And KeyAscii 8 And KeyAscii 32) Or (KeyAscii > 90 And KeyAscii < 97) Or (KeyAscii > 122) Then KeyAscii = 0 MsgBox "LETTERS ONLY" End If End Sub Private Sub Text8_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text8.Text "" Then Text9.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text9_Change() If Len(Text9.Text) > 10 Then MsgBox "CONTACT NUMBER CONTAIN 10 DIGITS ONLY" End If End Sub Private Sub checkin_Change() MSRCASC-BCA V SEM
Page 115
HOTEL MANAGEMENT SYSTEM
On Error GoTo errmsg If checkin = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[cid] Like '" & checkin & "'" Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Combo1.Text = Adodc4.Recordset.Fields(2) DTPicker1.Value = Adodc4.Recordset.Fields(3) Text3.Text = Adodc4.Recordset.Fields(4) Text4.Text = Adodc4.Recordset.Fields(5) Text5.Text = Adodc4.Recordset.Fields(6) Text6.Text = Adodc4.Recordset.Fields(7) Text7.Text = Adodc4.Recordset.Fields(8) Combo2.Text = Adodc4.Recordset.Fields(9) Text8.Text = Adodc4.Recordset.Fields(10) Text9.Text = Adodc4.Recordset.Fields(11) Text14.Text = Adodc1.Recordset.Fields(4) Combo3.Text = Adodc1.Recordset.Fields(1) Text10.Text = Adodc1.Recordset.Fields(2) Text12.Text = Adodc1.Recordset.Fields(3)
Text13.Text = Adodc2.Recordset.Fields(7) Exit Sub DTPicker3.Value = Adodc3.Recordset.Fields(1) DTPicker2.Value = Adodc3.Recordset.Fields(2)
End If Exit Sub errmsg: MsgBox "DATA NOT FOUND" End Sub MSRCASC-BCA V SEM
Page 116
HOTEL MANAGEMENT SYSTEM
Private Sub Text9_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text9.Text "" Then Text9.SetFocus ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Timer1_Timer() DTPicker2.Value = Format(Now, "dd-mm-yyyy") End Sub
Restaurant: Private Sub Command3_Click() searchguest.Show End Sub Private Sub DTPicker1_Change() DTPicker1.MinDate = Adodc3.Recordset.Fields(13) End Sub Private Sub Form_Load() Me.WindowState = vbMaximized DTPicker1.Value = Date menu.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub Private Sub Image1_Click() MSRCASC-BCA V SEM
Page 117
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Sub Command1_Click() If Label3.Caption = "NOT ACTIVE" Or Label3.Caption = "BOOKED" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If Dim a As Double Dim b As Double If Check1.Value = Checked Then Text4.Text = Label9.Caption * Text3.Text End If If Check2.Value = Checked Then Text6.Text = Label10.Caption * Text5.Text End If If Check3.Value = Checked Then Text8.Text = Label11.Caption * Text7.Text End If If Check4.Value = Checked Then Text10.Text = Label12.Caption * Text9.Text End If If Check5.Value = Checked Then Text12.Text = Label13.Caption * Text11.Text End If If Check6.Value = Checked Then Text14.Text = Label14.Caption * Text13.Text End If If Check7.Value = Checked Then MSRCASC-BCA V SEM
Page 118
HOTEL MANAGEMENT SYSTEM
Text16.Text = Label15.Caption * Text15.Text End If a = val(Text4.Text) + val(Text6.Text) + val(Text8.Text) + val(Text10.Text) + val(Text12.Text) + val(Text14.Text) + val(Text16.Text) Label19.Caption = a b = val(Label19.Caption) + val(Label21.Caption) Label22.Caption = b End Sub Private Sub Command2_Click() Adodc2.Recordset.Fields(4) = Label22.Caption Adodc2.Recordset.Update MsgBox "TRANSACTION COMPLETE" End Sub
Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" Label21.Caption = Adodc2.Recordset.Fields(4) End If End Sub Private Sub room_Change() If room = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[ID] Like '" & room & "'" Text17.Text = Adodc4.Recordset.Fields(2) End If End Sub Private Sub Text1_Change() On Error GoTo errmsg If Text1 = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else MSRCASC-BCA V SEM
Page 119
HOTEL MANAGEMENT SYSTEM
Adodc3.Recordset.Filter = "[Customer_ID] Like '" & Text1 & "'" Text2.Text = Adodc3.Recordset.Fields(1) Text17.Text = Adodc4.Recordset.Fields(2) Label3.Caption = Adodc3.Recordset.Fields(12) Label19.Caption = "" DTPicker1.Value = Date DTPicker1.MinDate = Date End If payment.Caption = Text1.Text room.Caption = Text1.Text Exit Sub errmsg: If Err.Number = "3021" Then Text1.Text = "" Text2.Text = "" Text17.Text = "" Label19.Caption = "" Label21.Caption = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub
Laundry : Option Explicit Dim operand1 As Double, operand As Double Dim op1 As Double, op2 As Double Dim operator As String Dim cleardisplay As Boolean Private Sub cmdadd_Click() If Label2.Caption = "NOT ACTIVE" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If op1 = val(Text3.Text) operator = "*" Dim result1 As Double MSRCASC-BCA V SEM
Page 120
HOTEL MANAGEMENT SYSTEM
op2 = val(Label12.Caption) result1 = mul(ByVal op1, ByVal op2) Label10.Caption = result1 op1 = val(Text4.Text) operator = "*" Dim result2 As Double op2 = val(Label15.Caption) result2 = mul(ByVal op1, ByVal op2) Label11.Caption = result2 op1 = val(Label10.Caption) operator = "+" Dim result3 As Double op2 = val(Label11.Caption) result3 = add(ByVal op1, ByVal op2) Label17.Caption = result3 op1 = val(Label17.Caption) operator = "+" Dim result4 As Double op2 = val(Label16.Caption) result4 = add(ByVal op1, ByVal op2) Text5.Text = result4 Dim result5 As Double op1 = val(Label24.Caption) operator = "+" op2 = val(Text3.Text) result5 = add(ByVal op1, ByVal op2) Label24.Caption = result5 Dim result6 As Double op1 = val(Label25.Caption) operator = "+" op2 = val(Text4.Text) result6 = add(ByVal op1, ByVal op2) Label25.Caption = result6 End Sub Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Function mul(ByVal operand1 As Double, ByVal operand2 As Double) As Double mul = operand1 * operand2 MSRCASC-BCA V SEM
Page 121
HOTEL MANAGEMENT SYSTEM
End Function Private Function add(ByVal operand1 As Double, ByVal operand2 As Double) As Double add = operand1 + operand2 End Function Private Sub cmdsave_Click() On Error GoTo errmsg If Text1.Text = "" Or Text2.Text = "" Or Text6.Text = "" Or Combo1.Text = "--SELECT--" Then MsgBox "TRANSACTION NOT ALLOWED,FILL ALL DETAILS" Exit Sub End If Adodc3.Recordset.Fields(1) = Label24.Caption Adodc3.Recordset.Fields(5) = Combo1.Text Adodc3.Recordset.Fields(2) = Label25.Caption Adodc3.Recordset.Fields(4) = DTPicker2.Value Adodc2.Recordset.Fields(5) = Text5.Text Adodc1.Recordset.Update Adodc2.Recordset.Update Adodc3.Recordset.Update MsgBox "TRANSACTION COMPLETE" Exit Sub errmsg: MsgBox Err.Description End Sub Private Sub Command1_Click() searchguest.Show End Sub Private Sub DTPicker2_Change() DTPicker2.MinDate = Adodc4.Recordset.Fields(13) End Sub Private Sub Form_Load() Me.WindowState = vbMaximized DTPicker2.Value = Date menu.Enabled = False MSRCASC-BCA V SEM
Page 122
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub Private Sub Label26_Change() If Label26 = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[lid] Like '" & Label26 & "'" End If End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text1.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub Text1_Change() On Error GoTo errmsg If Text1 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text1 & "'" Text6.Text = Adodc4.Recordset.Fields(1) Label2.Caption = Adodc4.Recordset.Fields(12) DTPicker2.Value = Adodc4.Recordset.Fields(13) End If payment.Caption = Text1.Text room.Caption = Text1.Text Label26.Caption = Text1.Text MSRCASC-BCA V SEM
Page 123
HOTEL MANAGEMENT SYSTEM
Exit Sub errmsg: If Err.Number = "3021" Then Text1.Text = "" Text2.Text = "" Text6.Text = "" Label16.Caption = "" Label17.Caption = "" Combo1.Text = "--SELECT--" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" Label16.Caption = Adodc2.Recordset.Fields(5) End If End Sub Private Sub room_Change() If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc5.Recordset.Filter = "[ID] Like '" & room & "'" Text2.Text = Adodc5.Recordset.Fields(2) End If End Sub
MSRCASC-BCA V SEM
Page 124
HOTEL MANAGEMENT SYSTEM
Payment : Private Sub checkin_Change() If checkin = "" Then Adodc6.Recordset.Filter = "" Adodc6.Refresh Else Adodc6.Recordset.Filter = "[cid] Like '" & checkin & "'" Label11.Caption = Adodc6.Recordset.Fields(2) End If End Sub Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Sub CMDCALCULATE_Click() If Label6.Caption = "NOT ACTIVE" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If If Text5.Text = "" Or Text6.Text = "" Then MsgBox " PLEASE ENTER EXTRA CHARGE ,DISCOUNT" Exit Sub End If Dim i As Double If Len(Text14) = 11 Then Adodc3.Refresh i = Adodc3.Recordset("singleroom") * val(Text9.Text) Text13.Text = i End If Dim a As Double If Len(Text14) = 10 Then Adodc3.Refresh a = Adodc3.Recordset("suitroom") * val(Text9.Text) Text13.Text = a End If MSRCASC-BCA V SEM
Page 125
HOTEL MANAGEMENT SYSTEM
Dim b As Double If Len(Text14) = 12 Then Adodc3.Refresh b = Adodc3.Recordset("deluxroom") * val(Text9.Text) Text13.Text = b End If Dim c As Double If Len(Text14) = 13 Then Adodc3.Refresh c = Adodc3.Recordset("standardroom") * val(Text9.Text) Text13.Text = c End If Dim tot As Double tot = val(Text5) + val(Text6) + val(Text10) + val(Text11) + val(Text13) Text7.Text = val(tot) + (4 / 100) * val(tot) Text15.Text = (4 / 100) * val(tot) Dim bal As Double bal = val(tot) - val(Text4) + val(Text15.Text) Text8.Text = val(bal) End Sub Private Sub Command1_Click() Set rs = New ADODB.Recordset rs.Open "select * from Paymentlog where Customer_ID ='" & Text1 & "'", cn, 3, 2 If Not rs.EOF Then Set DataReport1.DataSource = rs DataReport1.Show End If End Sub Private Sub Command2_Click() If Text5.Text = "" Or Text6.Text = "" Or Combo1.Text = "--SELECT--" Then MsgBox " PLEASE ENTER EXTRA CHARGE ,DISCOUNT STATUS " MSRCASC-BCA V SEM
Page 126
HOTEL MANAGEMENT SYSTEM
Exit Sub End If Adodc2.Recordset.Fields(1) = Text6.Text Adodc2.Recordset.Fields(2) = Text5.Text Adodc2.Recordset.Fields(3) = Text8.Text Adodc2.Recordset.Fields(6) = Text7.Text Adodc2.Recordset.Fields(8) = Combo1.Text Adodc2.Recordset.Fields(9) = Text13.Text Adodc1.Recordset.Fields(3) = Text9.Text Adodc2.Recordset.Fields(10) = Text15.Text Adodc5.Recordset.AddNew Adodc5.Recordset.Fields(1) = Text1.Text Adodc5.Recordset.Fields(2) = Text2.Text Adodc5.Recordset.Fields(3) = Text13.Text Adodc5.Recordset.Fields(5) = Text6.Text Adodc5.Recordset.Fields(6) = Text5.Text Adodc5.Recordset.Fields(7) = Text10.Text Adodc5.Recordset.Fields(8) = Text11.Text Adodc5.Recordset.Fields(9) = Text7.Text Adodc5.Recordset.Fields(10) = Combo1.Text Adodc5.Recordset.Fields(11) = Text9.Text Adodc5.Recordset.Fields(12) = Combo1.Text Adodc5.Recordset.Fields(13) = Text3.Text Adodc5.Recordset.Fields(14) = Label14.Caption Adodc5.Recordset.Fields(15) = Text8.Text Adodc5.Recordset.Fields(4) = Text4.Text Adodc5.Recordset.Fields(16) = Text15.Text Adodc5.Recordset.Update Adodc2.Recordset.Update Adodc1.Recordset.Update MsgBox " PAYMENT DONE" End Sub Private Sub Command3_Click() searchguest.Show End Sub MSRCASC-BCA V SEM
Page 127
HOTEL MANAGEMENT SYSTEM
Private Sub Form_Load() Me.WindowState = vbMaximized menu.Enabled = False Label14.Caption = Date Timer1.Enabled = True connect Set rs = New ADODB.Recordset rs.Source = "Payment" rs.ActiveConnection = cn rs.CursorLocation = adUseClient rs.LockType = adLockOptimistic rs.Open End Sub Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub Private Sub Label11_Change() Dim Date1 As Date Dim Date2 As Date Date1 = Label11.Caption Date2 = Label14.Caption Text9.Text = Adodc1.Recordset.Fields(3) End Sub Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" Text4.Text = Adodc2.Recordset.Fields(7) Text13.Text = Adodc2.Recordset.Fields(9) Text7.Text = Adodc2.Recordset.Fields(6) MSRCASC-BCA V SEM
Page 128
HOTEL MANAGEMENT SYSTEM
Combo1.Text = Adodc2.Recordset.Fields(8) Text10.Text = Adodc2.Recordset.Fields(4) Text11.Text = Adodc2.Recordset.Fields(5) End If End Sub Private Sub room_Change() If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[ID] Like '" & room & "'" Text14.Text = Adodc1.Recordset.Fields(1) Text3.Text = Adodc1.Recordset.Fields(2) Text9.Text = Adodc1.Recordset.Fields(3) End If End Sub Private Sub Text12_Change() On Error GoTo errmsg If Text12 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text12 & "'" Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Label6.Caption = Adodc4.Recordset.Fields(12) End If payment.Caption = Text1.Text room.Caption = Text1.Text checkin.Caption = Text1.Text Exit Sub errmsg: If Err.Number = "3021" Then Call MsgBox("Customer Not exist") MSRCASC-BCA V SEM
Page 129
HOTEL MANAGEMENT SYSTEM
Text12.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text10.Text = "" Text11.Text = "" Text13.Text = "" Text14.Text = "" Combo1.Text = "--SELECT--" Else MsgBox Err.Description End If End Sub Private Sub Text12_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text12.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub Text5_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text5.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub MSRCASC-BCA V SEM
Page 130
HOTEL MANAGEMENT SYSTEM
Private Sub Text6_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text6.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub Private Sub Text9_Change() Dim a As Integer a = val(Text9.Text) If a = 0 Then Text9.Text = 1 End If End Sub Private Sub Timer1_Timer() Label14.Caption = Format(Now, "dd-mm-yyyy") End Sub
Check out : Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Sub cmdcheckout_Click() On Error GoTo errmsg If Text15.Text = "" Then MsgBox " Select Customer First" Exit Sub End If If Combo1.Text = "--SELECT--" Then MSRCASC-BCA V SEM
Page 131
HOTEL MANAGEMENT SYSTEM
MsgBox "PLEASE FILL THE REQUIRED FIELDS" Exit Sub End If
If Text11.Text = "DUE" Then MsgBox "must clear all the dues" Exit Sub End If If Label15.Caption = "NOT ACTIVE" Then MsgBox "CUSTOMER IS NOT ACTIVE" Exit Sub End If Adodc4.Recordset.Fields(12) = "NOT ACTIVE" Adodc3.Recordset.Fields(3) = DTPicker3.Value Adodc3.Recordset.Fields(4) = DTPicker2(0).Value Adodc1.Recordset.Fields(5) = Combo1.Text Adodc3.Recordset.Update Adodc1.Recordset.Update Adodc4.Recordset.Update
MsgBox "CHECK-OUT RECORD UPDATED" Exit Sub errmsg: End Sub Private Sub Combo3_click() Dim val As String val = Combo3.Text Select Case val Case "SINGLE ROOM" Label11.Caption = "1" If Label11.Caption = "1" Then singleroom.Show End If MSRCASC-BCA V SEM
Page 132
HOTEL MANAGEMENT SYSTEM
Case "STANDARD-ROOM" Label11.Caption = "2" If Label11.Caption = "2" Then standardroom.Show End If Case "DELUXE- ROOM" Label11.Caption = "3" If Label11.Caption = "3" Then deluxeroom.Show End If Case "SUITE-ROOM" Label11.Caption = "4" If Label11.Caption = "4" Then suiteroom.Show End If End Select End Sub Private Sub Command1_Click() searchguest.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized DTPicker2(0).Value = Date DTPicker3.Value = Time End Sub Private Sub payment_Change() On Error GoTo errmsg If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" Text13.Text = Adodc2.Recordset.Fields(7) Text11.Text = Adodc2.Recordset.Fields(8) End If Exit Sub errmsg: MSRCASC-BCA V SEM
Page 133
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub room_Change() On Error GoTo errmsg If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[ID] Like '" & room & "'" Combo3.Text = Adodc1.Recordset.Fields(1) Text10.Text = Adodc1.Recordset.Fields(2) Text12.Text = Adodc1.Recordset.Fields(3) Text14.Text = Adodc1.Recordset.Fields(4) End If Exit Sub errmsg: End Sub Private Sub Text15_Change() On Error GoTo errmsg If Text15 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '" & Text15 & "'" Label15.Caption = Adodc4.Recordset.Fields(12) Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Text16.Text = Adodc4.Recordset.Fields(2) Text17.Text = Adodc4.Recordset.Fields(3) Text3.Text = Adodc4.Recordset.Fields(4) Text4.Text = Adodc4.Recordset.Fields(5) Text5.Text = Adodc4.Recordset.Fields(6) Text6.Text = Adodc4.Recordset.Fields(7) Text7.Text = Adodc4.Recordset.Fields(8) Text18.Text = Adodc4.Recordset.Fields(9) Text8.Text = Adodc4.Recordset.Fields(10) Text9.Text = Adodc4.Recordset.Fields(11) DTPicker2(0).Value = Date DTPicker2(0).MinDate = Date MSRCASC-BCA V SEM
Page 134
HOTEL MANAGEMENT SYSTEM
End If payment.Caption = Text15.Text room.Caption = Text15.Text checkin.Caption = Text15.Text Exit Sub errmsg: If Err.Number = "3021" Then Text15.Text = "" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" Text7.Text = "" Text8.Text = "" Text9.Text = "" Text16.Text = "" Text18.Text = "" Text11.Text = "" Combo1.Text = "--select--" Combo3.Text = "--SELECT--" Text10.Text = "" Text14.Text = "" Text12.Text = "" Text13.Text = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub Private Sub checkin_Change() On Error GoTo errmsg If checkin = "" Then MSRCASC-BCA V SEM
Page 135
HOTEL MANAGEMENT SYSTEM
Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[cid] Like '" & checkin & "'" DTPicker3.Value = Adodc3.Recordset.Fields(3) End If Exit Sub errmsg: End Sub Private Sub Text15_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text15.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "CUSTOMER ID ONLY" End If End Sub Private Sub Timer1_Timer() DTPicker2(0).Value = Format(Now, "dd-mm-yyyy") End Sub
Search Guest :
Private Sub Command1_Click() Unload Me menu.Show End Sub Private Sub Form_Load() Me.WindowState = vbMaximized menu.Enabled = False MSRCASC-BCA V SEM
Page 136
HOTEL MANAGEMENT SYSTEM
End Sub Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub Private Sub checkout_Change() If checkout = "" Then Adodc3.Recordset.Filter = "" Adodc3.Refresh Else Adodc3.Recordset.Filter = "[cid] Like '" & checkout & "'" End If End Sub Private Sub payment_Change() If payment = "" Then Adodc2.Recordset.Filter = "" Adodc2.Refresh Else Adodc2.Recordset.Filter = "[PID] Like '" & payment & "'" End If End Sub Private Sub room_Change() If room = "" Then Adodc1.Recordset.Filter = "" Adodc1.Refresh Else Adodc1.Recordset.Filter = "[ID] Like '" & room & "'" End If End Sub MSRCASC-BCA V SEM
Page 137
HOTEL MANAGEMENT SYSTEM
Private Sub Text1_Change() Label12.Caption = Text1.Text checkout.Caption = Text1.Text room.Caption = Text1.Text payment.Caption = Text1.Text End Sub Private Sub Text22_Change() On Error GoTo errmsg If Text22 = "" Then Adodc4.Recordset.Filter = "" Adodc4.Refresh Else Adodc4.Recordset.Filter = "[Customer_ID] Like '*" & Text22 & "*'" Text1.Text = Adodc4.Recordset.Fields(0) Text2.Text = Adodc4.Recordset.Fields(1) Text3.Text = Adodc4.Recordset.Fields(2) Text4.Text = Adodc4.Recordset.Fields(3) Text5.Text = Adodc4.Recordset.Fields(4) Text6.Text = Adodc4.Recordset.Fields(5) Text7.Text = Adodc4.Recordset.Fields(6) Text8.Text = Adodc4.Recordset.Fields(7) Text9.Text = Adodc4.Recordset.Fields(8) Text10.Text = Adodc4.Recordset.Fields(9) Text11.Text = Adodc4.Recordset.Fields(10) Text12.Text = Adodc4.Recordset.Fields(11) Label10.Caption = Adodc4.Recordset.Fields(12) Text13.Text = Adodc1.Recordset.Fields(1) MSRCASC-BCA V SEM
Page 138
HOTEL MANAGEMENT SYSTEM
Text14.Text = Adodc1.Recordset.Fields(2) Text23.Text = Adodc1.Recordset.Fields(4) Text17.Text = Adodc2.Recordset.Fields(7)
Text18.Text = Adodc3.Recordset.Fields(1) Text19.Text = Adodc3.Recordset.Fields(2) Text20.Text = Adodc3.Recordset.Fields(3) Text21.Text = Adodc3.Recordset.Fields(4) End If Exit Sub errmsg: If Err.Number = "3021" Then Text22.Text = "" Call MsgBox("Customer Not exist") Else MsgBox Err.Description End If End Sub Private Sub Text22_KeyPress(KeyAscii As Integer) If KeyAscii = 13 And Text20.Text "" Then ElseIf (KeyAscii < 48 And KeyAscii 8) Or KeyAscii > 57 Then KeyAscii = 0 MsgBox "DIGITS ONLY" End If End Sub MSRCASC-BCA V SEM
Page 139
HOTEL MANAGEMENT SYSTEM
Rate List : Private Sub Command1_Click() roomrates.Show End Sub Private Sub Command2_Click() restaurantrates.Show End Sub Private Sub Command3_Click() LaundryRate.Show End Sub Private Sub Command4_Click() Unload Me End Sub Private Sub Form_Load() menu.Enabled = False End Sub
Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub Private Sub Label1_Click() roomrates.Show End Sub Private Sub Label2_Click() restaurantrates.Show End Sub MSRCASC-BCA V SEM
Page 140
HOTEL MANAGEMENT SYSTEM
Private Sub Label3_Click() LaundryRate.Show End Sub Private Sub Label4_Click() Unload Me End Sub
Status : Public a As String Private Sub cmdback_Click() Unload Me menu.Show End Sub Private Sub Form_Load() menu.Enabled = False a = Label16.Caption b = Label23.Caption Label2.Caption = Adodc1.Recordset.RecordCount Label3.Caption = Adodc2.Recordset.RecordCount Label4.Caption = Adodc3.Recordset.RecordCount Label5.Caption = Adodc4.Recordset.RecordCount Label1.Caption = val(Label2.Caption) + val(Label3.Caption) + val(Label4.Caption) + val(Label5.Caption) Adodc1.RecordSource = " select * from singleroom where status ='" + a + "' " Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Label7.Caption = "0" Else Label7.Caption = Adodc1.Recordset.RecordCount End If Adodc1.RecordSource = " select * from singleroom where status ='" + b + "' " MSRCASC-BCA V SEM
Page 141
HOTEL MANAGEMENT SYSTEM
Adodc1.Refresh If Adodc1.Recordset.RecordCount = 0 Then Label19.Caption = "0" Else Label19.Caption = Adodc1.Recordset.RecordCount End If Adodc2.RecordSource = " select * from standardroom where status ='" + a + "' " Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then Label8.Caption = "0" Else Label8.Caption = Adodc2.Recordset.RecordCount End If Adodc2.RecordSource = " select * from standardroom where status ='" + b + "' " Adodc2.Refresh If Adodc2.Recordset.RecordCount = 0 Then Label20.Caption = "0" Else Label20.Caption = Adodc2.Recordset.RecordCount End If Adodc3.RecordSource = " select * from suitroom where status ='" + a + "' " Adodc3.Refresh If Adodc3.Recordset.RecordCount = 0 Then Label9.Caption = "0" Else Label9.Caption = Adodc3.Recordset.RecordCount End If Adodc3.RecordSource = " select * from suitroom where status ='" + b + "' " Adodc3.Refresh If Adodc3.Recordset.RecordCount = 0 Then Label21.Caption = "0" Else Label21.Caption = Adodc3.Recordset.RecordCount End If MSRCASC-BCA V SEM
Page 142
HOTEL MANAGEMENT SYSTEM
Adodc4.RecordSource = " select * from deluxroom where status ='" + a + "' " Adodc4.Refresh If Adodc4.Recordset.RecordCount = 0 Then Label10.Caption = "0" Else Label10.Caption = Adodc4.Recordset.RecordCount End If Adodc4.RecordSource = " select * from deluxroom where status ='" + b + "' " Adodc4.Refresh If Adodc4.Recordset.RecordCount = 0 Then Label22.Caption = "0" Else Label22.Caption = Adodc4.Recordset.RecordCount End If Label6.Caption = val(Label7.Caption) + val(Label8.Caption) + val(Label9.Caption) + val(Label10.Caption) Label18.Caption = val(Label19.Caption) + val(Label20.Caption) + val(Label21.Caption) + val(Label22.Caption) Label12.Caption = val(Label2.Caption) - (val(Label7.Caption) + val(Label19.Caption)) Label13.Caption = val(Label3.Caption) - (val(Label8.Caption) + val(Label20.Caption)) Label14.Caption = val(Label4.Caption) - (val(Label9.Caption) + val(Label21.Caption)) Label15.Caption = val(Label5.Caption) - (val(Label10.Caption) + val(Label21.Caption)) Label11.Caption = val(Label12.Caption) + val(Label13.Caption) + val(Label14.Caption) + val(Label15.Caption) End Sub MSRCASC-BCA V SEM
Page 143
HOTEL MANAGEMENT SYSTEM
Private Sub Form_Unload(Cancel As Integer) menu.Enabled = True End Sub
MSRCASC-BCA V SEM
Page 144
HOTEL MANAGEMENT SYSTEM
Specification Analysis The very first step in a system, for the purpose of selection is understanding the requirements within the framework of the organization’s objectives and the environment in which that system is being installed. Consideration is given to the user’s resources as well as to finances. It is a document that serves as a foundation for hardware, software and database engineering. It describes the functions of a system and the constraints that will govern its development. The specifications bound each allocated system analyst with an indication of the role of software within the context of the computer based system as a whole and the various subsystems described in the data flow diagrams. The system specification also describes the information that is to input and to output from the system.
Fact-Finding Fact-finding means, learning as much as possible about the present system. Fact-finding is the formal process of using research, interviews, questionnaires, sampling and other techniques to collect information about systems, requirements and preferences. It is also called information gathering or data collections. Tools, such as data and process models, document facts, and conclusions are drawn from facts. If you can’t collect the facts, you can’t use the tools. Factfinding skills must be learned and practiced.
MSRCASC-BCA V SEM
Page 145
HOTEL MANAGEMENT SYSTEM
How to do Fact-Finding? For fact-finding, the system analyst does the following: 1.
Sampling of written (existing) documents
2.
On-site observations
3.
Interview
4.
Questionnaires
5.
Research and site visits.
6.
Observes the current system
7.
Gather forms and documents currently in use
8.
Determines the flow of data through the system, and
9.
Clearly defines the system requirements.
MSRCASC-BCA V SEM
Page 146
HOTEL MANAGEMENT SYSTEM
Conclusion Advantages 1. To manipulate the Hotel transactions with instant confirmation . 2. To save time and accuracy in work. 3. To increase efficiency of employee. 4. For fast access of data. 5. For secure and smooth running of the program. 6. For error free, effective and easy for database related works.
Disadvantages 1. Rooms won’t be booked if there is power failure. 2. Rooms cannot be booked online. 3. Customer id is not the same, if same customer returns to hotel.
MSRCASC-BCA V SEM
Page 147
HOTEL MANAGEMENT SYSTEM
BIBLIOGRAPHY Books
A Complete Guide to Programming in Visual Basic .Net
A Complete Visual Basic 6 Training Course: How to Programme: Package
Advanced Programming Using Visual Basic: Version 6.0
Access 2003 Power Programming with VBA
Advanced MS Visual Basic
Site Address
www.associatedcontent.com
www.members.tripod.com
www.vbcodesource.com
MSRCASC-BCA V SEM
Page 148
HOTEL MANAGEMENT SYSTEM
MSRCASC-BCA V SEM
Page 149