1.

Synopsis:
The project entitled HOTEL MANAGEMENT SYSTEM
has been designed and developed for Hotel Days-inn.
The main aim of this project is computerization of all
customer needs. It is a database system for creating a
selective retrieved of information, for subsequent
analysis, manipulation and application.

The system has different modules for various activities.

The various modules of the system are rooms enquiry
details, reservation details, cancellation details, vacating
details, and restaurant information.

Implementation of this system requires the use of

computers with most versatile system. Hence, this
software is developed on MS-Windows platform using
Visual Basic 6.0.

This package if fully of menu-driven with pop-up menu

being given wherever there is a need. It is very simple in
its creation and all the user-friendly facilities are
provided. Messages are given wherever there is a need.
Special care has been made for data integrity and
security; in addition the authorization is also [Link]
system of computerization is to ameliorate and make
more advantages than the existing system by being
  More efficient
 More reliable
 Time saving and
 Accurate

The unique micro computer server is used to maintain the

database in MS-ACCESS with Visual Basic as front end-
tool. The reason for choosing this package, Visual Basic
is because of utilization of graphical interface facility and
also of event-driven property.
[Link]:

This project is HOTEL MANAGEMENT SYSTEM; the

main aim of this project is gives the customer view of the
hotel. The customer needs in hotel are, enquiry about
rooms, reservation process, vacating process, canceling
the reservation, and the restaurant for food items.

In this project the first module gives the customer view

for lodging. The customer needs enquiry for first process.
So the enquiry process is shown in the project that works
more effectively than the manual process. The next
process of customer is reservation. This reservation is for
may today or future, for this the reservation form can
work more efficient than the manual process. This form
also checks the rooms for reservation dates. It is
interactive to the customer, if the rooms are not available
it gives message and not allows reserving for that date.

The next process for the customer is vacating the room.

For this he needs the total bills. Also he uses the
restaurant for food that information also we need in the
bill. The vacating form works for this information
effectively. This form calculates the user bills of room
and restaurant; it is minus by the advance. Shows the
total bill he need to pay. The cancellation process is the
next process of the customer. For this the cancellation
form works effectively. The customers reserved for future
needs the cancellation process. That time we need to
calculate the refund amount from the advance. For this,
this form works efficiently.

The next module gives the restaurant information for the

customer. The customer gives order from room and also
spot order. For the room order and the spot order the
customer having same process, only one different is for
the room order he need to select the id, and for the
customer order he need to enter the name. The last
module is reports of the hotel management system. It is
having all details of the database.
[Link] Configuration:

This project was developed in the system saving Pentium

processor with the following configuration.

Processor : Pentium-MMX
RAM : 16MB
Cachememory : 256 KB
Speed : 166 MHz
Co-Processor : In Built
Monitor : SVGA
Resolution : 800 x 600 pixels
Hard Disk : 2 GB
Operating System : Windows ’me
Floppy drives : 1.2 MB, 1.44 MB
[Link] Analysis:

In the hotel management system, the customer operations

in lodging, enquiry, reservation, vacating, and
cancellation, and in restaurant orders from the room, and
customer spot orders are the operations.

Exiting system:

The existed system is in that hotel is manual working.

Using this many problems can occur, for this system they
used some bill books. That time any customer came for
enquiry or reservation they need to check every
reservation in the book, that is surly time wasting
process. Also the man who is searching also important,
some times he may do some problems in the process. The
same problems in restaurant also possible, in the billing
time wasting are possible to occur. Some drawbacks of
this existed system are

 Time required to do manual work

 Calculation is difficult
  Security is low
 Searching is difficult
 Data entry is difficult

Need for computerization:

In order to escape from the disadvantages mentioned in
the existing system, the system need to computerize. In
the computer system we can over come these problems.
In this system we can eliminate time wasting process.
The searching is very easy to do compare to the manual
work. Also the calculations is very is to do. Data entry is
easier than the manual.

 As the variety of information and timeliness is now

of great importance.
 At every stage of operation a great deal of
information is required for checking, reserving and
billing.
 Easy and quick retrieval of data.
 Facilitation of proper security.
Project Modules:

Module1:(Lodging)
In this module, we have lodging details. Here enquiry of
the rooms, reservation of rooms for today or future,
vacating the room, and canceling the future reservation.
For the rooms enquiry, and the reservation the system
uses room, and reservation tables in the database. The
vacating process uses the reservation table; the vacating
table for process, and the cancellation process uses the
reservation table for the cancel future reservations.

Module 2:(Restaurant)
In this module, we have restaurant details, the orders are
from room or spot order by the customer. So, this checks
the order type, after that it allows the user to access the
menu, and allows the order for items. The room order the
payment is taken when they are vacating. For the spot
orders are current payments.

Module 3:(Reporting)
In this module, we have the reporting information about
the system. The room details, reservation details,
vacating information, cancellation details, item details,
 restaurant details, also the restaurant bill item details are
included in this module.

[Link] Description:

Welcome to Microsoft Visual Basic, the fastest and

easiest way to create applications for Microsoft
Windows®. Whether you are an experienced professional
or brand new to Windows programming, Visual Basic
provides you with a complete set of tools to simplify
rapid application development.

So what is Visual Basic? The "Visual" part refers to the

method used to create the graphical user interface (GUI).
Rather than writing numerous lines of code to describe
the appearance and location of interface elements, you
simply add prebuilt objects into place on screen. If you've
ever used a drawing program such as Paint, you already
have most of the skills necessary to create an effective
user interface.

The "Basic" part refers to the BASIC (Beginners All-

Purpose Symbolic Instruction Code) language, a
language used by more programmers than any other
language in the history of computing. Visual Basic has
evolved from the original BASIC language and now
contains several hundred statements, functions, and
keywords, many of which relate directly to the Windows
GUI. Beginners can create useful applications by
learning just a few of the keywords, yet the power of the
language allows professionals to accomplish anything
that can be accomplished using any other Windows
programming language.

The Visual Basic programming language is not unique to

Visual Basic. The Visual Basic programming system,
Applications Edition included in Microsoft Excel,
Microsoft Access, and many other Windows applications
uses the same language. The Visual Basic Scripting
Edition (VBScript) is a widely used scripting language
and a subset of the Visual Basic language. The
investment you make in learning Visual Basic will carry
over to these other areas.

Whether your goal is to create a small utility for yourself

or your work group, a large enterprise-wide system, or
even distributed applications spanning the globe via the
Internet, Visual Basic has the tools you need.

Data access features allow you to create databases, front-

end applications, and scalable server-side components for
most popular database formats, including Microsoft SQL
Server and other enterprise-level databases.

ActiveX™ technologies allow you to use the

functionality provided by other applications, such as
 Microsoft Word processor, Microsoft Excel spreadsheet,
and other Windows applications. You can even automate
applications and objects created using the Professional or
Enterprise editions of Visual Basic.

Internet capabilities make it easy to provide access to

documents and applications across the Internet or intranet
from within your application, or to create Internet server
applications.

Your finished application is a true .exe file that uses a

Visual Basic Virtual Machine that you can freely
distribute.

Features:
Visual basic has so many features which helps the
developer feel free to develop the user friendly
environment. The features are
 It has so many toolbars such as standard
toolbar, edit toolbar, debug toolbar, form editor
toolbar, customizing a toolbar.
 It has great features to build the user interface
using The toolbox and custom controls and
components
 Properties windows to set the properties for
each components
 It supports wide range of data types
 Good controlling programming flow
 Determinate loops (for-next loop),
indeterminate loops (relational operators, do
while loop, do loops with AND, OR, NOT
 Making decisions (conditionals) like the else,
combining conditions in an if-then, the block if-
then, the Goto
 It has so many built in functions like string
functions, replace function, like and fuzzy
functions etc.
 Arrays, handling functions (split, filter
functions), sorting and searching, records all
these can be controlled by code
 Control arrays, list and combo box, the flex grid
controls
 We can build larger projects easily using
multiple forms, code modules, error trapping
 It allows object oriented programming
 It has tools and techniques for testing,
debugging, and optimization
 We can do graphics
 Since it is a event driven programming it has a
mouse event procedures
 It has a file system controls and file system
objects (file list boxes, drive list boxes)
  It can communicate with other windows
applications
 We can build Activex controls
 Vbscript can be use for building dynamic html
pages

Access features:

Microsoft Access appeared out of nowhere at the end of

1992 to rapidly become the database of choice for
Windows based database development. Access is a
relational database designed for the modern Windows
environment, it does not carry the baggage and pre-
Windows design history of earlier database systems (such
as FoxPro, Microsoft's other database system). Access is
now in its fifth major incarnation (versions 1.0, 2.0, 95,
97 and now 2000) and just keeps on getting better.

What's new about the Database window

The Database window in Microsoft Access 2000 provides
a variety of options for viewing and manipulating
database objects.

 Use the Database window toolbar Quickly

find commands for creating, opening, or
managing database objects.
  Use the Objects bar View database objects in

the Objects bar — its vertical orientation makes

it easier to use.

 Organize database objects into groups Click

the Groups bar to view your groups, which can
contain shortcuts to database objects of
different types.

 Use new object shortcuts In the Database

window, quickly create a new database object
by using a wizard, or open a new database
object in design view.

 Customize how you select and open objects in

the Database window If you choose, change

the default behavior so that you select a
database object by resting the pointer over it,
and open an object by single-clicking it.

 Select an object by typing its name For

example, select the Shippers table while
viewing the list of table objects by typing Sh.

Microsoft Access 2000 provides many new features that

make working with data and designing a database even
easier.

Use record-level locking A Microsoft Access database

now supports record-level locking, in addition to page-
level locking. You enable the locking level with the new
database option, Open databases using record level
locking (Tools menu, Options command, Advanced Tab).
The actual level that is used depends on how the Access
database is programmed.

Find and replace You can now move freely between the
Find and Replace dialog boxes and the data in the view
or window.

View related data in a subdatasheet Use a subdatasheet

to view and edit related or joined data in a table, query, or
form datasheet, or in a subform all from the same view.
For example, in the Northwind sample database the
Suppliers table has a one-to-many relationship with the
Products table; so for each row of the Suppliers table in
Datasheet view, you can view and edit the related rows of
the Products table in a subdatasheet.

Automatically fix errors caused by renaming fields

Name AutoCorrect automatically corrects common side
effects that occur when you rename forms, reports,
tables, queries, fields, text boxes or other controls.

Take advantage of Unicode support Use the characters

of any language that Unicode supports in your data. Use
Unicode compression to offset the effect of Unicode's
increased storage space requirements. Take advantage of
dual-font support — specify a substitute font that you can
use in addition to your default font to properly display all
of the characters in your data.

Print relationships Print a report of the relationships in

your Access database as they appear in the Relationships
window.

Use the keyboard to manage relationships Use the

keyboard to create, edit, and delete relationships and
joins.

Use Microsoft ActiveX Data Objects (ADO) Use

Microsoft ActiveX Data Objects (ADO) to access and
manipulate data in a database server through any OLE
DB provider.

What's new about forms and reports

Microsoft Access 2000 provides new features to make it
faster and easier to create great-looking forms and
reports.

Group text boxes and other controls Use the Group

command on the Format menu to group related text
boxes and other controls on a form or report.

Define conditional formatting rules for text boxes and

other controls Use the Conditional Formatting
command on the Format menu to define the font color,
font size, control background color, and other visual
information that gives feedback to users as they enter
data on a form.

Create forms and reports for SQL Server databases In a

Microsoft Access project, create forms and reports for an
SQL Server database with the same tools that you use to
create them in a Microsoft Access database.

Distribute reports to users who don't have Microsoft

Access Export Microsoft Access reports to report
snapshot (.snp) file format. You can use Snapshot Viewer
to view, print, and mail report snapshots.
 [Link] Flow Diagram:

USER

Lodgin Resstauran Reports

g t

Room
Enquiry

Reservation

Reservatio
Vacating
n
Item
Vacating
Restbill

Billitems
Cancellation
[Link] Structures:

Room Table:

Field Name Data Type Description

Rtype Text Room Type
Total Integer Total Rooms
Price Currency Cost Of Room

Reservation Table:

Field Name Data Type Description

Cid Integer Customer ID
Cname Text Customer Name
Add Text Address
Tel Integer Telephone number
Rtype Text Room type
Noofrooms Integer No. of rooms
Noofdays Integer No. of days
 Indate Date/time In date
Intime Date/time In time
Advance Currency Room advance
Status Text Fucture or current

Vacating Table:

Field Name Data Type Description

Bno Integer Bill no.
cid Integer Customer id
Name Text Customer name
Rtype Text Room type
Noofrooms Integer No. of rooms
Indate Date/time In date
Outdate Date/time Out date
Outtime Date/time Out time
Restbill Currency Restaurant bill
Roombill Currency Room bill
Total Currency Total bill
Status Text Vacated or cancel
Item Table:

Field Name Data Type Description

Status Text Item Type
Name Text Item name
Price Currency Cost of item

Restaurant Table:
 Field Name Data Type Description
Bno Integer Bill no.
cid Integer Customer id
Name Text Customer name
Amt Currency Total amount

Bill Items Table:

Field Name Data Type Description

Bno Integer Bill no.
Item Text Item name
Qty Integer Item qty
Price Currency Total amount
[Link] Coding:

Dim DB As Database
Dim RS As Recordset
Dim RS1 As Recordset
Dim RS2 As Recordset
Dim RS3 As Recordset
Dim RS4 As Recordset
Dim RS5 As Recordset
Dim FRAMEFLAG1 As Integer
Dim L As String
Dim T As Date
Dim I As Integer
Dim J As Currency
Dim RESFLAG As Integer
Dim RESTFLAG As Integer
Dim ITMS As String
Dim VAFLAG As Integer
Dim CANFLAG As Integer

Private Sub Image11_Click()

[Link]
End Sub

Private Sub Image12_Click()

[Link]
End Sub

Private Sub Image13_Click()

[Link]
End Sub

Private Sub Image14_Click()

[Link]
End Sub

Private Sub Image15_Click()

RM = InputBox("ENTER THE ID")
[Link]
DataEnvironment1.Command4 RM
[Link]
End Sub

Private Sub Image16_Click()

RM = InputBox("ENTER THE ID")
[Link]
DataEnvironment1.Command5 RM
[Link]
End Sub

Private Sub Option3_Click()

If [Link] = True Then
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
FRAMEFLAG1 = 1
End If

End Sub

Private Sub Timer1_Timer()

[Link] = Date
[Link] = Time
End Sub
Private Sub Form_Load()
Set DB = OpenDatabase("C:\MADHURIMA\[Link]")
Set RS = [Link]("ROOM", 2)
Set RS1 = [Link]("RES", 2)
Set RS2 = [Link]("VACATING", 2)
Set RS3 = [Link]("ITEM", 2)
Set RS4 = [Link]("RESTBILL", 2)
Set RS5 = [Link]("BITEMS", 2)
[Link] = False
[Link] = False
CLEAR
TXTE
FRV
FRAMEFLAG1 = 0
D=0
RESFLAG = 0
RESTFLAG = 0
VAFLAG = 0
CANFLAG = 0

End Sub

Private Sub Image10_Click()

If CANFLAG = 1 Then
[Link] = (Val([Link]) / 10) * 8
[Link] = Val([Link]) - Val([Link])
[Link] = False
 CANFLAG = 2
ElseIf CANFLAG = 2 Then
CAM = MsgBox("SURE DO U WANT TO CANCEL", vbYesNo)
If CAM = vbYes Then
If [Link] Then
BILLNO = 1
Else
[Link]
BILLNO = RS2(0) + 1
End If
[Link]
RS2(0) = BILLNO
RS2(1) = [Link]
RS2(2) = [Link]
RS2(3) = [Link]
RS2(4) = [Link]
RS2(5) = [Link]
RS2(6) = Date
RS2(7) = Time
RS2(8) = O
RS2(9) = [Link]
RS2(10) = [Link]
RS2(11) = "CANCEL"
[Link]
[Link] "[CID]=" & Val([Link])
[Link]
MsgBox "CANCELLED"
 CANFLAG = O
[Link] = False
ElseIf CAM = vbNo Then
[Link] = True
End If
End If

End Sub

Private Sub Image2_Click()

If ((RESFLAG = 2) And ([Link])) Then
[Link]
RS1(0) = [Link]
RS1(1) = [Link]
RS1(2) = [Link]
RS1(3) = [Link]
RS1(4) = [Link]
RS1(5) = [Link]
RS1(6) = [Link]
RS1(7) = [Link]
RS1(8) = [Link]
RS1(9) = [Link]
RS1(10) = [Link]
[Link]
MsgBox "RESERVAED"
[Link] = False
RESFLAG = 0
ElseIf RESFLAG = 3 Then
[Link] "[CID]=" & Val([Link])
[Link]
RS1(0) = [Link]
RS1(1) = [Link]
RS1(2) = [Link]
RS1(3) = [Link]
RS1(4) = [Link]
RS1(5) = [Link]
RS1(6) = [Link]
RS1(7) = [Link]
RS1(8) = [Link]
RS1(9) = [Link]
RS1(10) = [Link]
[Link]
MsgBox "RESERVAED"
[Link] = False
RESFLAG = 0
ElseIf ((RESFLAG = 1) And ([Link] <> "")) Then
N = MsgBox("D U WANT TO RESERVE", vbOKCancel)
If N = vbOK Then
RESFLAG = 3
D2 = DateAdd("d", Val([Link]), [Link])
D3 = DateDiff("d", Date, D2)
If D3 <> 0 Then
[Link] = D3
Else
 [Link] = 1
End If
[Link] = Date
[Link] = Time
[Link] = "C"
End If
End If

End Sub

Private Sub Image3_Click()

If VAFLAG = 1 Then
RAMT = 0
ROOMAMT = 0
ROOMD = 0
[Link] = Date
[Link] = Time
If Not [Link] Then
[Link]
Do While Not [Link]
If RS4(1) = Val([Link]) Then
RAMT = RAMT + RS4(3)
End If
[Link]
Loop
End If
[Link] = RAMT
 [Link] "[RTYPE]='" & [Link] & " '"
ROOMAMT = RS(2) * Val([Link])
[Link] "[CID]=" & Val([Link])
ROOMD = DateDiff("d", RS1(7), Date)
If ROOMD = 0 Then
ROOMD = 1
End If
ROOMAMT = ROOMAMT * ROOMD
[Link] = ROOMAMT - RS1(9)
[Link] = Val([Link]) + Val([Link])
[Link] = False
VAFLAG = 2
ElseIf VAFLAG = 2 Then
M = MsgBox("DO U WANT TO VACATE", vbYesNo)
If M = vbYes Then
If [Link] Then
BILL = 1
Else
[Link]
BILL = RS2(0) + 1
End If
[Link]
RS2(0) = BILL
RS2(1) = [Link]
RS2(2) = [Link]
RS2(3) = [Link]
RS2(4) = [Link]
RS2(5) = [Link]
RS2(6) = [Link]
RS2(7) = [Link]
RS2(8) = [Link]
RS2(9) = [Link]
RS2(10) = [Link]
RS2(11) = "VACATED"
[Link]
[Link] "[CID]=" & Val([Link])
[Link]
MsgBox "THANQ VISIT AGAIN"
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = True
If Not [Link] Then
[Link]
Do While Not [Link]
If ((RS1(10) = "C") And (RS1(7) >= Date)) Then
[Link] RS1(0)
End If
 [Link]
Loop
End If
VAFLAG = 0
End If
End If

End Sub

Private Sub Image4_Click()

If RESTFLAG = 1 Then
R = MsgBox("Room Order", vbYesNo)
If R = vbYes Then
MsgBox "SELECT CUSTOMER ID"
[Link] = True
[Link] = True
[Link] = True
[Link] = False
RESTFLAG = 2
ElseIf R = vbNo Then
MsgBox "Enter Customer Name"
[Link] = False
[Link] = False
[Link] = True
RESTFLAG = 3
End If
ElseIf (((RESTFLAG = 2) Or (RESTFLAG = 3)) And ([Link] <>
"")) Then
If [Link] Then
[Link] = 100
Else
[Link]
[Link] = RS4(0) + 1
End If
RESTFLAG = 4
[Link] = False
[Link] = True
[Link] = False
[Link] = False
ElseIf RESTFLAG = 4 Then
If [Link] = False Then
ID = -1
Else
ID = Val([Link])
End If
[Link]
RS4(0) = [Link]
RS4(1) = ID
RS4(2) = [Link]
RS4(3) = [Link]
[Link]
For LCOUNT = 0 To ([Link] - 1)
[Link]
 RS5(0) = [Link]
RS5(1) = [Link](LCOUNT)
RS5(2) = [Link](LCOUNT)
RS5(3) = [Link](LCOUNT)
[Link]
Next
MsgBox "THANQ"
RESTFLAG = 1
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
[Link]
[Link]
[Link]
[Link] = False
[Link] = True
[Link] = True
End If

End Sub

Private Sub Image5_Click()

If FRAMEFLAG1 = 1 Then
[Link] = True
 [Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
FRAMEFLAG1 = 0
Else
[Link] = False
[Link] = True
[Link] = False
CLEAR
TXTE
End If

End Sub

Private Sub Image6_Click()

M = MsgBox("B4 U RESERVED", vbYesNoCancel)
If M = vbNo Then
CLEAR
[Link] = False
 [Link] = True
[Link] = False
[Link] = True
[Link] = False
[Link] = False
If Not [Link] Then
[Link]
Do While Not [Link]
[Link] RS(0)
[Link]
Loop
End If
If [Link] Then
[Link] = 1
Else
[Link]
[Link] = RS1(0) + 1
End If
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
RESFLAG = 2
ElseIf M = vbYes Then
CLEAR
 [Link]
[Link] = True
If Not [Link] Then
[Link]
Do While Not [Link]
If RS1(10) = "F" Then
D1 = DateAdd("d", RS1(6), RS1(7))
If ((RS1(7) <= Date) And (D1 >= Date)) Then
[Link] RS1(0)
End If
End If
[Link]
Loop
End If
[Link] = False
[Link] = True
RESFLAG = 1
End If

End Sub

Private Sub Image8_Click()

If ([Link] = "MADHURIMA" Or [Link] = "madhurima")
And ([Link] = "DAYSINN" Or [Link] = "daysinn") Then
[Link] = True
[Link] = False
[Link] = True
 [Link] = False
[Link] = False
[Link] = False
Else
MsgBox "Error In Login"
[Link]
End If

End Sub

Private Sub Image9_Click()

End
End Sub

Private Sub List1_Click()

[Link] = True
End Sub

Private Sub List10_Click()

[Link] "[CID]=" & Val([Link])
[Link] = RS1(1)
[Link] = RS1(4)
[Link] = RS1(5)
[Link] = RS1(7)
[Link] = RS1(9)
[Link] = ""
[Link] = ""
CANFLAG = 1

End Sub

Private Sub List2_Click()

[Link] "[CID]=" & Val([Link])
[Link] = RS1(1)
[Link] = RS1(2)
[Link] = RS1(3)
[Link] = RS1(4)
[Link] = RS1(5)
[Link] = RS1(6)
[Link] = RS1(7)
[Link] = RS1(8)
[Link] = RS1(9)
[Link] = RS1(10)

End Sub

Private Sub List4_Click()

[Link] "[CID]=" & Val([Link])
[Link] = RS1(1)
[Link] = RS1(4)
[Link] = RS1(5)
[Link] = RS1(7)
VAFLAG = 1
[Link] = True
End Sub

Private Sub List5_Click()

[Link] "[CID]=" & Val([Link])
[Link] = RS1(1)
End Sub

Private Sub List6_Click()

[Link] "[NAME]= '" & [Link] & " '"
[Link] = RS3(2)
[Link] = True
[Link]

End Sub

Private Sub Option1_Click()

If [Link] = True Then
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
 [Link] = False
[Link] = False
End If
FRAMEFLAG1 = 1

End Sub

Private Sub Option10_Click()

If [Link] = True Then
ITMS = [Link]
GITEMS
End If

End Sub

Private Sub Option11_Click()

If [Link] = True Then
ITMS = [Link]
GITEMS
End If

End Sub

Private Sub Option12_Click()

If [Link] = True Then
[Link] = False
[Link] = False
 [Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = False
[Link] = True
CLEAR
TXTE
If Not [Link] Then
[Link]
Do While Not [Link]
If RS1(10) = "F" And RS1(7) >= Date Then
[Link] RS1(0)
End If
[Link]
Loop
End If

CANFLAG = 0
End If
End Sub

Private Sub Option2_Click()

If [Link] = True Then
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = True
[Link] = True
[Link] = False
[Link] = True
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
FRAMEFLAG1 = 1
RESTFLAG = 1
[Link]
[Link]
[Link]
[Link]
[Link]
If Not [Link] Then
[Link]
 Do While Not [Link]
If RS1(10) = "C" Then
[Link] RS1(0)
End If
[Link]
Loop
End If
FRAMEFLAG1 = 1
End If

End Sub

Private Sub Option4_Click()

If [Link] = True Then
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
CLEAR
TXTE
If Not [Link] Then
[Link]
Do While Not [Link]
 [Link] RS(0)
[Link]
Loop
End If
End If

End Sub

Private Sub Option5_Click()

If [Link] = True Then
[Link] = True
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link] = True
[Link] = False
[Link] = True
CLEAR
TXTE
 If Not [Link] Then
[Link]
Do While Not [Link]
If RS1(10) = "C" Then
[Link] RS1(0)
End If
[Link]
Loop
End If
End If

End Sub

Private Sub Option6_Click()

If [Link] = True Then
VAFLAG = 0
[Link] = True
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = True
[Link]
If Not [Link] Then
 [Link]
Do While Not [Link]
If RS1(10) = "C" Then
[Link] RS1(0)
End If
[Link]
Loop
End If
End If

End Sub

Public Sub CLEAR()

[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link] = ""
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link]
[Link] = False
[Link] = False
[Link] = False
[Link] = False

End Sub

Private Sub Option7_Click()

If [Link] = True Then
ITMS = [Link]
GITEMS
End If

End Sub

Private Sub Option8_Click()

If [Link] = True Then
ITMS = [Link]
GITEMS
End If
End Sub

Private Sub Option9_Click()

If [Link] = True Then
ITMS = [Link]
GITEMS
End If

End Sub

Private Sub Text1_LostFocus()

If [Link] <> "" Then
If CDate([Link]) < Date Then
MsgBox "ERROR IN DATE"
[Link]
Else
L = [Link]
T = CDate([Link])
DATECHECK
[Link] = I
[Link] = J
End If
End If

End Sub
Public Sub FRV()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub

Public Sub TXTE()

[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False

End Sub

Public Sub DATECHECK()

Dim X, Y As Date
If Not [Link] Then
[Link]
Do While Not [Link]
If L = RS(0) Then
I = RS(1)
J = RS(2)
End If
[Link]
Loop
End If
If Not [Link] Then
[Link]
Do While Not [Link]
If RS1(4) = L Then
 X = RS1(7)
Y = DateAdd("d", RS1(6), X)
If ((T >= X) And (T <= Y)) Then
I = I - RS1(5)
End If
End If
[Link]
Loop
End If

End Sub

Private Sub Text11_LostFocus()

Dim COUNT As Integer
If [Link] <> "" Then
If CDate([Link]) < Date Then
MsgBox "ERROR IN DATE"
[Link]
ElseIf [Link] = "" Then
MsgBox "SELECT ROOM TYPE"
[Link] = ""
[Link]
Else
DAYS = [Link]
COUNT = 0
Do While COUNT <= DAYS
T = DateAdd("d", COUNT, [Link])
 L = [Link]
DATECHECK
If I < Val([Link]) Then
MsgBox ("Number Of Rooms Not Availabel For This Date" &
T)
Exit Do
End If
COUNT = COUNT + 1
Loop
If COUNT <= DAYS Then
[Link]
[Link] = ""
Else
[Link] = Time
[Link] = Val([Link]) * Val([Link]) * 250
If CDate([Link]) = Date Then
[Link] = "C"
Else
[Link] = "F"
End If
[Link] = True
End If
End If
End If

End Sub
Public Sub GITEMS()
[Link]
[Link] = ""
If Not [Link] Then
[Link]
Do While Not [Link]
If ITMS = RS3(0) Then
[Link] RS3(1)
End If
[Link]
Loop
End If

End Sub

Private Sub Text26_LostFocus()

If [Link] = "" Then
AMT = 0
Else
AMT = Val([Link])
End If
If [Link] <> "" Then
[Link] [Link]
[Link] [Link]
[Link] (Val([Link]) * Val([Link]))
[Link] = AMT + (Val([Link]) * Val([Link]))
LICOUNT = LICOUNT + 1
 [Link] = ""
[Link] = False
[Link] = True
End If

End Sub