Sl. TITLE Pg. No.

No.
1. ABSTRACT 01
2. INTRODUCTION 02-06
1.1 SOLUTION OF THESE PROBLEMS
1.2 FEATURES OF VISUAL BASIC
1.3 PROGRAMMING PROCESS
3. SYSTEM ANALYSIS 07-08
2.1 SYSTEM ANALYSIS NECESSARY
2.2 ROLE OF SYSTEM ANALYST
4. SYSTEM DESIGN 09-12
3.1 SDLC(SYSTEM DEVELOPMENT LIFE
CYCLE
3.2 DATA FLOW DIAGRAM
3.3 DESIGN SPECIFICATION &
REQUIREMENT
5. DATA FLOW DIAGRAM 13
6. E-R DIAGRAM 14-15
7. IMPLEMENTATION 16-17
8. CODING 16-33
9. SCREEN SHOT 34-43
10. FEASIBILITY STUDY 44

11. FUTURE DEVELOPMENT 45

12. CONCLUSION 46

13. BIBLIOGRAPHY 47
 ABSTRACT

INTRODUCTION-:

The Tourism Management System is a stand-alone based application and maintains a

centralized repository of all related information. The objective of this project is to
develop a system that automates the processes and activities of a travel agency and
customer details. The purpose is to design a system using which one can perform all
operations related to traveling and sight-seeing.

SCOPE:

Tourism Management System is an integrated software developed for tour operating

companies. The main aim of this project is to help the tourism companies to manage
their customers, vehicles and agents. It makes all operations of the tour company easy
and accurate. The standalone platform makes tourism management easy by handling
agencies requests and providing services for the customers located at different parts of
the various cities. Different modules have been incorporated in this project to handle
different parts and sectors of the tour management field.

RESOURCES REQUIRED: -

Development Tool: - VB 6.0

Database: - oracle 10g

 INTRODUCTION

INTRODUCTION OF PROJECT

OBJECTIVE

The Tourism Management System is a stand-alone based application and

maintains a centralized repository of all related information. The objective of this project
is to develop a system that automates the processes and activities of a travel agency and
customer details. The purpose is to design a system using which one can perform all
operations related to traveling and sight-seeing.

PURPOSE OF THE SYSTEM

Tourism Management System is an integrated software developed for tour

operating companies. The main aim of this project is to help the tourism companies to
manage
their customers, vehicles and agents. It makes all operations of the tour company easy
and accurate. The standalone platform makes tourism management easy by handling
agencies requests and providing services for the customers located at different parts of
the various cities.

Different modules have been incorporated in this project to handle different parts and
sectors of the tour management field.

PROBLEMS IN THE EXISTING SYSTEM

The present systems are inadequate in providing information and advices to the
agencies and customers about tour plans. Often agencies are compelled to rely on local
information sources and count on their own experiences regarding time and cost.
Through phone call they have to get information.

1.1 SOLUTION OF THESE PROBLEMS

The development of this new system contains the following activities, which try
to automate the entire process keeping in the view of database integration approach.
  User Friendliness is provided in the application with various controls provided by
system Rich User Interface.

 The system makes the overall management much easier and flexible.

 It can be accessed over the Intranet.

 All information can be stored in centralized database which can be

maintained by the system.

 This can give the good security for user information because data is not in
client machine.

 Authentication is provided for this application only registered agencies

can access.

 There is no risk of data management at any level while the project development
is under process.

1.2 Features of Visual Basic:

 Visual Basic is a flexible, high level, structured programming language.

Visual Basic includes certain low level features that normally available only
in assembly or machine

Visual Basic is widely available, commercial

interpreter are available for most personal computer, mini computers and main frames.
 Visual Basic is largely machined independent. Programs written in
visual basic are easily ported from one computer to another.

Your programs interface may include the familiar controls that window
users already know how to operate-such as command buttons, option list, text boxes and
scroll bars.

With just a few mouse actions, you can add any combination of these
controls to a program.

As a result, design tasks that used to require many hours of detailed
programming efforts can how be completed in minutes.

In Visual Basic you can quickly design the visual elements of any new
programming project.

1.3 The Programming Process:

These standards steps are to be followed while creating

Visual Basic Programs:

1. Deciding what your application is due by creating an overall design.

2. Creating the Visual Basic portion of the application (the serene and menus that
the users will interact with)

3. Adding the Visual Basic programming language code to tie the Visual Basic
elements together and to automate the program.

4. Testing the application to locate and remove any bugs.

5. Compiling the tested application and distribute the compiled application to the
Visual basic includes a special helper’s system called a debugger that the programmer
can use to help locate bugs that appear during testing. The debugger is an interactive
monitoring system that you turn on and off inside Visual Basic that helps you locate
statements that may contain bugs.

Programming Maintenance

Apart from the bugs, the programmer has to maintain the program he /she has created.
Program Maintenance is a term used for the updating of a program after the program
after the program is put into use. This updating may be a result of the users request or a
change in the way the program needs to operate.

Project

A project is a collection of files that make up your application. A single Application

might consist of several files and the projects is the collection of those files.

Multiple Documents Interface (MDI)

It allows the application to contain multiple documents windows. In effect, this interface
lets your work with several sets of data in multiple window within the program. Each
document window is called a child window.

 Single Document Interface (SDI)

It limits the application take on a window Explorer- like interface with topic summaries
in the left window an details for a selected topic in the right pane.
 SYSTEM ANALYSIS

2.1 Why is System Analysis Necessary?

During system analysis some activities are carried out, such as problem
definition, design, implementation. Before designing the actual system/project, you
should know,

1. What is the problem?

2. How to solve it?

3. What are the technical factors required?

4. What are its features and limitations?

If a system is designed without considering above activities, then the system

will not work properly to the satisfaction of user requirement.

So system analysis is necessary to design perfect and accurate system, which

satisfies the user requirement.
2.2 Role of system analyst:

System analysis is central to the whole of system development. It includes

gathering the necessary data and developing plans for new system. This is not an easy
task because many people need to be satisfied and many conflicts resolved.

The system analyst is the person who guides the analysis, design and
implementation and maintenance of a given system. In performing these four tasks, the
analyst must always match the information system objectives with the goals of
organization.

1. System analyst must determine the requirements of user

of a new system so that during analysis they can discuss with users how to design a new
system that meets the requirements.

2. System analyst has to provide different solutions to the problem, to satisfy user
requirements.

3. The system analyst must be a able to find out the details about the system itself. To
do this, the analyst will have to look at such things as forms (input, output formats), data
used by the organization.

4. System analyst must also be able to work in environments that have considerable
ambiguity and uncertainty.

5. System analyst must also be creative and imaginative in producing new solutions to
meet user requirements
 SYSTEM DESIGN

3.1 SDLC (System Development Life Cycle)

A structured sequence of phases for implementing an information system is

system design life cycle of that system.

The various steps involved in the system design life cycle are as follows: -

Reorganization of need (preliminary survey/initial investigation): -

The steps involve about outlining the problem and understanding what are the
present methods of solving the problems, which are designing the system. It includes
preliminary survey/initial investigation as well.

Feasibility study: -

(Evaluation of existing system and procedures analysis of alternative

candidate systems cost estimation)

The feasibility study is a formal proposal for a new system. Before the project
is to begin, the project is studied to determine what exactly the user wants depending
upon the result of initial investigation. The survey is expanded to more detailed
study.

System analysis: -

Analysis is a detailed study of various operations performed by the system and

the relationship with in and outside of the system that is it includes finding out in more
detailed what the system problem are and what are the different new changes the user
wants.
 System design: -

The system design is most creative and challenging phase of the system
design life cycle. Analysis phase is used to design the logical model of the system and
system design the physical model of the system:

In these phase system designer designs: -

Output: -

Output design means that what should be the format presentation of the result.
First of all for designing of various forms to be present which is the front end of our
software.

Input: -

In input design stage, which is the part of the system design stage the system
analyst has to decide what inputs

are required for the system and prepare input format to give input to the system
according to the requirement. Considering the input to the front end from the user we use
the user-friendly visual basic software so that the user can easily enter the data. In case
operator gate confuse then the by moving the cursor pointer on the corresponding field
data user can get one tool tip box as example.
 User
Problem
Requirement
Definition

Feasibility
study

System Verify
analysis
System model

Detailed system objectives

Broad Verify
design System
Design
Validation

Program and database Validat

ion Verify specification
Post implementation
Detailed USER PROCEDURE
design Proposed equipment
Develop- configuration
ment Verify Broad
design
Broad
Impleme design
ntation

Working system
Validation
3.2 DATA FLOW DIAGRAM:

The project dictionary contains an entry for each DFD developed during
analysis. Thus there is a context diagram. A top level DFD and detailed diagrams for all
top level functions and their components. Each DFD has a unique number and can be
reference by that number.

DFD is a graphics representation of system that shows data flow to,

frame and with in the system, processing functions that change data in some manner and
the storage this data.

DFD are nothing but more than network of a related system functions
(processing of data) that indicate from where information (data) is received (inputs) and
to where it is send (outputs). It is also called as bubble charges.

DFD’s are more detailed than content diagram. DFD’s are used to
despite specifics data flows (movement of inform) from both the physical view point
(How it is done) and the logical view point (what is done).

DFD use a number of symbols to represent system. Most data flow

modeling methods use four kinds of symbols these symbols are used to represent four
kinds of system components.

1-processes
2-data stores

3-data flows
4-external entities
 TOU_AGENCY
ADMIN
LOGIN
TOU_BUS

TOU_PACK

LOGIN TOU_BOOK

AGENCY

CANCEL TICKET

TOU_FEEDBACK
ENTER REVIEW
USER
aname
oname ai
d

Tou_pack
city

mobile pid
View
TOU_AGENCY tourpack

pname
email

ptotday
pwd

pavai
addr
pplaces

BOOK pprice

pdate

pdepart

porgnam
TOU_BOOK

porgno

Book_sea
ts
BID

PID
PNA
ME
CNA
ME
CGE
NDE
R
CMO
BILE
AMN
T
BOO
KED
ON
AGEN
CY
SEAT
NO
 3.3 DESIGN SPECIFICATIONS &
REQUIREMENT

Software & Hardware Specification : -

Hardware Requirement

Processor : Intel Core Duo 2.0 GHz or more

RAM : 1 GB or More

Harddisk : 80GB or more

Monitor : 15” CRT, or LCD monitor

Keyboard : Normal or Multimedia

Mouse : Compatible mouse

Software Requirement
Front End : Visual Basic 6.0
Software Required : Visual Basic 6.0 IDE
Back End : Oracle 10g
Operation System : Windows 7
 IMPLEMENTATION

Table Design:

Database Name: Tourism

Tou_Admin
id Number, primary key
Uname Varchar2(50)
Pwd Varchar2(100)

Tou_Agency
aid Number, primary key
Oname Varchar2(50)
Aname Varchar2 (50)
City Varchar2 (50)
Mobile Number
Email Varchar2 (100)
Pwd Varchar2 (200)
Addr Varchar2 (200)

Tou_bus
Bid Number, Primary key
Bno Varchar2(20)
Bmodel Varchar2(30)
Bcap Number
Bpurch Varchar2(30)
Bstatus Varchar2(10)
Bphoto Varchar2(200)

Tou_city
cid Number, Primary key
Cname Varchar2(30)
Tou_feedback
Fid Number, Primary key
Cname Varchar2(50)
Cmob Number
Feedback Varchar2(500)
Star Number

Tou_pack
Pid Number, Primary key
Pname Varchar2(100)
Ptotday Varchar2(100)
Pavai Number
Pplaces Varchar2(300)
Pprice Number
Pdate Varchar2 (50)
Pdepart Varchar2 (50)
Porgnam Varchar2 (50)
Porgno Number
Book_seats Number

Tou_book
Bid Number, Primary key
Pid Number
Pname Varchar2(100)
Cname Varchar2(50)
Cgender Varchar2(10)
Cmobile Number
Amnt Number
Bookedon Varchar2(30)
Agency Varchar2(50)
Seatno Number
 CODING:

ADMIN HOME

Private Sub Form_Load()

With Frame1
Frame1.Left = (Screen.Width - .Width) / 2
End With
End Sub
Private Sub Image1_Click()
viewagency.Show
End Sub
Private Sub Image2_Click()
viewbus.Show
End Sub
Private Sub Image3_Click()
viewtour.Show
End Sub
Private Sub Image4_Click()
cutomer.Show
End Sub
Private Sub Image6_Click()
End
End Sub

Private Sub Image7_Click()

review.Show
End Sub
Private Sub mnaddagn_Click()
addagency.Show
End Sub
Private Sub mnaddbus_Click()
addbus.Show
End Sub
Private Sub mnaddtour_Click()
addtour.Show
End Sub
Private Sub mncity_Click()
addcity.Show
End Sub
Private Sub mnquit_Click()
Unload Me
Form2.Show
End Sub
Private Sub mnvwagn_Click()
viewagency.Show
End Sub

Private Sub mnvwbus_Click()

viewbus.Show
End Sub
Private Sub mnvwtour_Click()
viewtour.Show
End Sub

ADMIN LOGIN
Private Sub Command1_Click()
Dim rcnt As Integer
Dim un, pw As String
un = Text1.Text
pw = Text2.Text
connectdb
rec.CursorLocation = adUseClient
rec.Open "select * from tou_admin where uname='" & un & "' and pwd='" &
pw & "'", con, adOpenDynamic, adLockOptimistic
rcnt = rec.RecordCount
If rcnt = 1 Then
Me.Hide
Form2.Hide
adminhome.Show
Else
Label4.Caption = "Login info is not correct"
clr
End If
rec.Close
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub
Sub clr()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rec = Nothing
Unload Me
End Sub
Private Sub Image2_Click()
End
End Sub

AGENCY HOME

Private Sub Form_Load()

With Frame1
Frame1.Left = (Screen.Width - .Width) / 2 End
With
Label5.Caption = MS.agnam
End Sub
Private Sub Image1_Click()
viewagency.Show
End Sub
Private Sub Image2_Click()
viewbus.Show
End Sub
Private Sub Image3_Click()
viewtour.Show
End Sub
Private Sub Image4_Click()
bookticket.Show
End Sub
Private Sub Image5_Click()
cutomer.Show
End Sub
Private Sub mnagencydetails_Click()
viewagency.Show
End Sub
Private Sub mnbusdetails_Click()
 viewbus.Show
End Sub
Private Sub mnmycustmr_Click()
cutomer.Show
End Sub
Private Sub mnquit_Click()
Unload Me
Form2.Show
End Sub
Private Sub mnticktcancel_Click()
ticketcancel.Show
End Sub
Private Sub mntourdetails_Click()
viewtour.Show
End Sub

AGENCY LOGIN

Private Sub Command1_Click()

Dim rcnt As Integer
Dim un, pw As String
un = Text1.Text
pw = Text2.Text
connectdb
rec.CursorLocation = adUseClient
rec.Open "select * from tou_agency where email='" & un & "' and pwd='"
& pw & "'", con, adOpenDynamic, adLockOptimistic rcnt =
rec.RecordCount
con.Close
Dim agnhom As New agencyhome
MS.agnam = un
If rcnt = 1 Then
Me.Hide
Form2.Hide
agnhom.Show
Else
MsgBox "Login Info is not correct", vbOKOnly + vbExclamation, "Login
Message"
 clr
End If
End Sub

Private Sub Command2_Click()

clr
End Sub
Sub clr()
Text1.Text = ""
Text2.Text = ""
End Sub
Private Sub Form_Load()
End Sub

BOOK TICKET

Private Sub Command2_Click()

Dim bseat, camnt As Integer

Dim cmob As Double
Dim cname, tabnam, cgen, pid, pname As String
Dim bookdon As Date
bookdon = Str(Now)
bseat = Combo2.Text
cname = Text5.Text
cmob = Text9.Text
camnt = Text7.Text
pid = Combo1.Text
pname = Text8.Text

If Option1.Value = True Then

cgen = "Male"
Else
cgen = "Female"
End If
tabnam = "pp" + pid
tabnam = Replace(tabnam, " ", "")
rec.Open "insert into
tou_book(pid,pname,cname,cgender,cmobile,amnt,bookedon,agency,seatno)
values('" & pid & "','" & pname & "','" & cname & "','" & cgen & "','" & cmob & "','" &
camnt & "','" & bookdon & "','" & MS.agnam & "','" & bseat
& "')", con, adOpenDynamic, adLockOptimistic If
rec.State = 1 Then
MsgBox "Not Done", vbYesNo + vbCritical
Else

rec.Open "update " & tabnam & " set seat=1 where sno='" & bseat & "'", con,
adOpenDynamic, adLockOptimistic

rec.Open "update tou_pack set book_seats=book_seats+1 where pid='"

& pid & "'", con, adOpenDynamic, adLockOptimistic Dim
msval As Integer
msval = MsgBox("Ticket Booked Successfully. Do you want to book
another Ticket?", vbYesNo + vbInformation)
If msval = 6 Then
Unload Me
bookticket.Show
Else
Me.Hide
End If
clr
End If
End Sub
Private Sub Command3_Click()
Frame3.Visible = True
If Combo2.Text = "" Then
Frame3.Visible = False
Else
Frame3.Visible = True
End If
Text7.Text = Text4.Text
End Sub
Private Sub Form_Load()
connectdb
Adodc1.Refresh
With Adodc1.Recordset
Do Until .EOF
Combo1.AddItem ![pid]
.MoveNext
 Loop
End With
End Sub
Private Sub Combo1_Click()
On Error GoTo Procerror
Dim tpack, tabnam As String
Dim reccount, i As Integer
tpack = Combo1.Text
'connectdb
'rec.Open "select bno from tou_bus where bno='" & rno & "'", con,
adOpenDynamic, adLockOptimistic
'rcnt = rec.RecordCount
tabnam = "pp" + tpack
rec.Open "select * from tou_pack where pid='" & tpack & "'", con,
adOpenDynamic, adLockOptimistic
reccount = rec.RecordCount
Text1.Text = rec.Fields("pavai")
Text2.Text = rec.Fields("book_seats")
Text3.Text = Text1.Text - Text2.Text
Text4.Text = rec.Fields("pprice")
Text8.Text = rec.Fields("pname")
rec.Close
dynlabel (tpack)
Combo1.Enabled = False
Procexit:
Exit Sub
Procerror:
MsgBox "Reset seat view or Close window and Try", vbOKOnly + vbCritical
Resume Procexit
End Sub
Sub dynlabel(ByVal pid As Integer)
Dim tabnam As String
Dim rcnt, j As Integer

tabnam = "pp" + Str(pid)

tabnam = Replace(tabnam, " ", "")
rec.Open "select * from " & tabnam & "", con, adOpenDynamic,
adLockOptimistic
rcnt = rec.RecordCount
 Dim x, y As Integer
txtarray(0).Text = "in"
Do Until rec.EOF
x = rec.Fields("sno")
y = rec.Fields("seat")
Load txtarray(x)
With txtarray(x)
.Text = rec.Fields("sno")
.Visible = True
.Alignment = vbCenter
.Enabled = False
.ForeColor = vbWhite
.Left = txtarray(x - 1).Left + 250
End With
If y = 0 Then
txtarray(x).BackColor = vbGreen
Else
txtarray(x).BackColor = vbRed
End If
rec.MoveNext
Loop
rec.Close
' fill free seats in drop down
rec.Open "select * from " & tabnam & " where seat=0", con,
adOpenDynamic, adLockOptimistic
Combo2.Clear
Do Until rec.EOF
Combo2.AddItem rec.Fields("sno")
rec.MoveNext
Loop
rec.Close
End Sub
Private Sub Command1_Click()
On Error GoTo procreset
Dim i, n As Integer
n = Text1.Text
For i = 1 To n
Unload txtarray(i)
Next i
 Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text8.Text = ""
Text4.Text = ""
Combo2.Clear
Combo1.Enabled = True
Frame3.Visible = False
Procexit:
Exit Sub
procreset:
MsgBox "Already reset Done", vbOKOnly + vbInformation Resume
Procexit
End Sub
Sub clr()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text9.Text = ""
Text7.Text = ""
Text8.Text = ""
Combo1.Text = ""
Combo2.Text = ""
Frame3.Visible = False
End Sub

TICKET CANCLE

Private Sub Command1_Click()

rec.Close
connectdb
Dim i, pid, seatno As Integer
Dim tabnam As String
pid = Text2.Text
seatno = Text7.Text
i = MsgBox("Are you sure?. Do you want to cancel this ticket?", vbYesNo
+ vbInformation, "Ticket Cancel")
 If i = 6 Then
tabnam = "pp" + pid
tabnam = Replace(tabnam, " ", "")

rec.Open "update tou_pack set book_seats=book_seats-1 where pid='" & pid &
"'", con, adOpenDynamic, adLockOptimistic
rec.Open "update " & tabnam & " set seat=0 where sno='" & seatno & "'", con,
adOpenDynamic, adLockOptimistic
rec.Open "delete from tou_book where bid='" & Text1.Text & "'", con,
adOpenDynamic, adLockOptimistic
MsgBox "Ticket Calcelled successfully", vbOKOnly + vbInformation, "Ticket
Cancelled"
Unload Me
Else
MsgBox "Ticket not cancelled", vbOKOnly + vbInformation, "Ticket
Cancelled"
End If
End Sub
Private Sub Form_Load()
connectdb
rec.CursorLocation = adUseClient
rec.Open "select * from tou_book where agency='" & MS.agnam & "'", con,
adOpenDynamic, adLockOptimistic Set Text1.DataSource = rec

Text1.DataField = "bid"
Set Text2.DataSource = rec
Text2.DataField = "pid"

Set Text3.DataSource = rec

Text3.DataField = "pname"
Set Text4.DataSource = rec
Text4.DataField = "cname"
Set Text5.DataSource = rec
Text5.DataField = "cmobile"
Set Text6.DataSource = rec
Text6.DataField = "amnt"
Set Text7.DataSource = rec
Text7.DataField = "seatno"
Set DataGrid1.DataSource = rec
DataGrid1.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rec = Nothing
Unload Me
End Sub

USER HOME

Private Sub Command1_Click()

Dim cname, feedback As String
Dim cmob As Double
Dim star As Integer
cname = Text1.Text
cmob = Text2.Text
feedback = Text3.Text

If Option1.Value = True Then

star = 1
ElseIf Option2.Value = True Then
star = 2
ElseIf Option3.Value = True Then
star = 3
ElseIf Option4.Value = True Then
star = 4
ElseIf Option5.Value = True Then
star = 5
Else
star = 0
End If
connectdb
rec.Open "insert into tou_feedback(cname,cmob,feedback,star)values('"
& cname & "','" & cmob & "','" & feedback & "','" & star & "')", con,
adOpenDynamic, adLockOptimistic

If rec.State = 1 Then
MsgBox "Adding problem in FeedBack. Try again later", vbOKOnly + vbCritical,
"Error"
clr
Else
 MsgBox "FeedBack Entered Successfully. Thank you!!!!!", vbOKOnly
+ vbInformation, "Thank you" clr
Unload Me
End If
End Sub
Private Sub Command2_Click()
clr
End Sub
Private Sub Form_Load()
With Frame1
Frame1.Left = (Screen.Width - .Width) / 2
End With
End Sub

Sub clr()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Option1.Value = False
Option2.Value = False
Option3.Value = False
Option4.Value = False
Option5.Value = False
End Sub

Private Sub Form_Unload(Cancel As Integer)

Unload Me
End Sub

VIEW TOUR

Private Sub Command1_Click()

rec.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
End Sub
Private Sub Command2_Click()
Command1.Enabled = True
Command3.Enabled = True
Command4.Enabled = True
rec.MovePrevious
If rec.AbsolutePosition = 1 Then
Command2.Enabled = False
End If
End Sub
Private Sub Command3_Click()
Command1.Enabled = True
Command2.Enabled = True
Command4.Enabled = True
rec.MoveNext
If rec.RecordCount = rec.AbsolutePosition Then
Command3.Enabled = False
End If
End Sub
Private Sub Command4_Click()
rec.MoveLast
Command1.Enabled = True
Command2.Enabled = True
Command3.Enabled = False
Command4.Enabled = False
End Sub
Private Sub Form_Load()
connectdb
rec.CursorLocation = adUseClient
rec.Open "select * from tou_pack order by pid", con, adOpenDynamic,
adLockOptimistic
Set DataGrid1.DataSource = rec
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rec = Nothing
Unload Me
End Sub
COUSTMER

Private Sub Command1_Click()

End Sub
Private Sub Form_Load()
If MS.agnam = "" Then
Label1.Caption = "Cutomer Details"
connectdb
rec.CursorLocation = adUseClient
rec.Open "select * from tou_book order by bid desc", con,
adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rec
DataGrid1.Refresh
Else
Label1.Caption = "My Cutomer Details"
connectdb
rec.CursorLocation = adUseClient
rec.Open "select * from tou_book where agency='" & MS.agnam & "' order by
bid desc", con, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = rec
DataGrid1.Refresh
End If
Set Text1.DataSource = rec
Text1.DataField = "bid"
Set Text2.DataSource = rec
Text2.DataField = "pname"
Set Text3.DataSource = rec
Text3.DataField = "cname"
Set Text4.DataSource = rec
Text4.DataField = "cgender"
Set Text5.DataSource = rec
Text5.DataField = "cmobile"
Set Text6.DataSource = rec
Text6.DataField = "amnt"
Set Text7.DataSource = rec
Text7.DataField = "bookedon"
Set Text8.DataSource = rec
Text8.DataField = "agency"
Set Text9.DataSource = rec
 Text9.DataField = "seatno"
Dim collct As Variant
collct = "Book Id : " & Text1.Text & vbCrLf & "Customer name : " & Text2.Te
Text3.Text = collct

With DataGrid1
.Columns(0).Width = 700
.Columns(1).Width = 400
.Columns(2).Width = 2000
.Columns(3).Width = 1400
.Columns(4).Width = 800
.Columns(5).Width = 1300
.Columns(6).Width = 800
.Columns(7).Width = 2000
.Columns(8).Width = 2000
End With
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set rec = Nothing
Unload Me
End Sub

HOME FORM

Private Sub Form_Load()

With Label1
Label1.Left = (Screen.Width - .Width) / 2
End With
End Sub
Private Sub Image2_Click()
adminlogin.Show
'Me.Hide
'adminhome.Show
End Sub

Private Sub Image3_Click()

agencylogin.Show
End Sub
Private Sub Image4_Click()
userhome.Show
End Sub
Private Sub Image5_Click()
End
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(3) = Time$
End Sub

CONNECTIVITY

Global con As New ADODB.Connection

Global rec As New ADODB.Recordset
Public Type MyStruct
agnam As String
End Type
Public MS As MyStruct
Public Function connectdb()
Set con = New ADODB.Connection
con.Open "Provider=MSDAORA.1;Password=tourism;User
ID=tourism;Persist Security Info=True" End Function
Input & Output Consideration:

The Tourism management system handles the daily operations at Tour organizer
Office. It uses VB 6.0 as a front end & MS-Access as a back end.

This system is to supports admin to add new agencies, add new buses as well
adding new tour packages. Admin module has a control to access and edit, delete all
information.

With the help of this software the agency can book ticket for his customer from
various branches. As well can maintain his own customers of particular branch. Agencies
have option to cancel the tour ticket of his customer.

Agency can see other agency details, bus details, tour pack details such
information. But he cannot modify or delete any information from this application.

In tour plan, tour pack name, total days and places, individual ticket price, tour
date, organizer name and contact number and total availability seats such information are
available.

Customers are considering as User in this project. User can enter their review and
rate the agency services in system. It can view by Admin of this Application.
IN OUR PROJECT:

Fig 1 Loading screen

1. HOME FORM:
This form is used for accessing the admin, agency accounts individually by using the
mouse interface. This will allow the admin, agency to work with ‘Tourism management
system’. User can enter their feedback and rate the service.

Fig 2 Home screen

2. LOGIN FORM:
Admin and agency have separate Login forms to access their accounts. Admin and
agency have different functionalities and options. Agency accounts are created by
Admin.

Fig 3 Admin Login form

Fig 4 Agency Login form

 2. ADMIN HOME:

After entering valid information admin can login into his account and can add
new agency, new buses, new-tour pack. And can view customer details and customer
reviews.

Fig 5 Admin Home window

3. ADD AGENCY AND VIEW:

Admin can add new agency details as well can edit and delete details. Admin
will provide login information to agency at the time of account creation.

Fig 6 Add new agency form

 Fig 7 View agency Details form

5. ADD BUS AND VIEW:

Admin can add new bus details as well can edit and delete details. In this form Bus
registration number, bus capacity, bus model, purchased date, condition of bus and Bus
picture information are given.

Fig 8 Add new Bus

 Fig 9 View Bus Details form

6. ADD TOUR PACK AND VIEW:

Admin can add new tour pack details. Admin will entered all necessary information
about tour such as tour date, plan, organizer name, contact number, price and availability
of seats.
 Fig 10 View tour pack Details form
7. CUSTOMER DETAILS:

In this form Admin can see all customer details whoever booked ticket for various tour
packages with different agencies. And he can see the feedback and review of customers.

Fig 11 View Customer Details form

 Fig 12 Feedback view form
8. ADD CITY:
In this form Admin can add new cities where agencies are available.

Fig 13 Add new City form

9. TICKET BOOKING FORM:

In this form agency can view the seat availabilities of each and every tour pack as
well can book the ticket for customers by selecting seats from combo box. For booking
customer name, gender, contact number is required.
 Fig 14 Seats Availability and Ticket Booking form
10. TICKET CANCELLATION FORM:
In this form agency can cancel the ticket of his customers means whoever
booked ticket from him. After cancelling ticket, particular information will be removed
from table and seats will become free also.

Fig 15 Ticket Cancellation form

10. FEEDBACK AND REVIEW FORM:

In this form user can enter his feedback about service and can rate. Entered
feedback will be available on admin screen.

Fig 16 User Feedback and rating form

 FEASIBILITY STUDY

FEASIBILITY STUDY

Introduction:

A feasibility analysis involves a detailed assessment of the need,

value and practicality of a proposed enterprise, such as systems development. The
process of designing and implementing record-keeping systems has sufficient
accountability and resource implications for an organization. Feasibility analysis will
help you make inform and transparent decision at crucial points during the
developmental process to determine whether it is operationally, economically and
technically realistic to produce with a particular course of action.
 FUTURE DEVELOPMENT

6.1. FUTURE DEVELOPMENT OF PROJECT

As per users’ requirement our whole program is designed. We can add an additional
constraint to our project. We can implement this project as a Network application (Online
Application or Web). So that customers can book tickets from anywhere and Admin, agency
can maintain all information very easy and effective with help of Centralized Data access.
 Conclusion

Compared to the present time consuming and uneconomical system, the proposed Online
Tourism Management System Project reduces human resource required – labor (agents),
wastage of time and proves to be very economical in the long run. This project can be
further enhanced to provide better flexibility and performance with certain modifications
whenever necessary.

It decreases the cost and time of maintaining a book. It is very easy to use and It is very
less time consuming. It is very easy to debug also.
 BIBLOGRAPHY

This section gives you the name of the books required for the development of the project.

NAME OF THE BOOK AUTHOR NAME

1. Visual Studio complete reference 6.0 Noel Jacek

2. Programming in Visual Basic Julie Case Bradley

3. Visual Basic 6.0 Wright Brothers