SYNOPSIS:--PROJECT REPORT TITLED FOR A-LEVEL, MCA, B.Tech: ONLINE TOUR PLANNER

Document Sample
SYNOPSIS:--PROJECT REPORT TITLED FOR A-LEVEL, MCA, B.Tech: ONLINE TOUR PLANNER Powered By Docstoc
					           Online Tour Planner




 PROJECT REPORT TITLED
“ONLINE TOUR PLANNER”
                         -fly over world



WWW.PROJECTWORLD.IN

           Submitted by

     NAME:………………….

     Date of Submission:……………………


     Under the able Guidance of
      …………………………….
       …………………………

                    1
                      Online Tour Planner




WWW.PROJECTWORLD.IN

             Acknowledgement




    I would like to express my gratitude to all those who gave
us the possibility to complete this project. I appreciate the
many helpful comments and reviews provided by all members.

     I am deeply indebted to my guide <TEACHER’S NAME>
whose timely attendance and intervention, with good sense of
criticism and suggestion helped me to modify my project and
make it a multi facilitated general-purpose project.

   I would like to thank <TEACHER’S NAME> as well for giving
their precious time and helping us throughout the
development of the project.

    Lastly, i would like to express my thanks and gratitude to
all faculty members and friends who helped us in completing
the project work.




                               2
        Online Tour Planner



W

WWW.PROJECTWORLD.IN
       WW.PROJECTWORLD.IN




                 3
                      Online Tour Planner


                      PREFACE

  Project initiation is the process of formally conceiving,
approving and launching a new project. Numerous activities
are vital for getting a project off to a good start.

  This project describes the entire actions undertaken to lay
the foundation of my software ONLINE TOUR PLANNER.

  The software has been developed keeping in mind all the
basic concepts and practices of project management. Some of
these apply to project initiation phase where as others are
applicable throughout the project duration. I have developed
this software using .NET platform with SQL server as
database.

  During this project i enhanced my computer knowledge as i
developed an entire prototype from scratch,through constant
analysis and designing at each phase.

  I would like to thank all those person who gave us the
possibility to complete this project.

  Finally i hope that every individual will find this project
useful, encouraging others to do a bigger project like this in
coming years.




WWW.PROJECTWORLD.IN




                               4
                        Online Tour Planner




WWW.PROJECTWORLD.IN

        Certificate of Originality

       This is to certify that the project report entitled
“ONLINE TOUR PLANNER” submitted to Doeacc Society in
partial fulfillment of the requirement for the award of the
diploma of A level, is prepared by Sharat Chandra Singh.

     This report or a similar report on this topic has not been
submitted for any other examination and does not form part of
any other course undergone by the candidates.




Signature of Manager:                         Name of Guide:
<TEACHER’S_NAME>                              <TEACHER’S NAME>

Dated:………………………………….                          Signature:…………………………….

Signature:…………………………….


Dated:……………………………………




                                 5
                      Online Tour Planner




WWW.PROJECTWORLD.IN
WWW.PROJECTWORLD.IN




    CONTENTS
Contents
Page No.

   Synopsis……………………………………………………………….              08
   System Analysis and Design……………………………….        17
       Identification of Need………………………………….       18

       Introduction………………..……………………………….          19
       Objective & Scope……………………………………….          20

       Feasibility Study………………………………………….         21
       Cost Benefit Analysis…………………………………..       24
       Benefits………………………………………………………..            26
       System Planning………………………………………….           27
       Project Evaluation & Review Techniques……   31
       SRS………………………………………………………………                33
       Flowchart ……………….…………………………………..           41
       DFD……………………………………………………………..               53
       ERD……………………………………………………………..               59
   Technology Introduction…………………………………….         63
       Introduction to .NET…………………………………..        64
       Introduction to Asp.net………………………………        64
       Advantages of Asp.net……………………………….         65
       Introduction to VB.Net……………………………….        66

                               6
                   Online Tour Planner


       Introduction to SQL Server………………………..       67
   Methodology Adopted & Life Cycle of Project……   69
       Introduction……………………………………………. …            70
       Methodology used………………………………….. …           70
       Analysis methodology……………………………. …          71
       Design methodology………………………………. …           71
       Coding methodology………………………………. …           72
       Testing Methodology………………………………….           72
   Details of Hardware and Software to be used….   75
   Modularization Details………………………………………..         77
   Database Design…………………………………………………              84
   User Interface Design…………………………………………           92
   Input and Output Screen Design……………………….        95
   Testing………………………………………………………………..               120
        Test Cases…………………………………………………              125
   System Maintenance………………………………………….             129
   Security Implementations………………………………….          132
   Coding……………………………………………………………… ..               134
   Annexure……………………………..………………………….                232
        User Manual……………………………………………….             233
        Data Dictionary………………………………………….           234
        Limitations of Project…………………………………        235
        Reference      ……………………………………………           236
        Bibliography……………………………………………….            237




                            7
                      Online Tour Planner



WWW.PROJECTWORLD.IN


                  WWW.PROJECTWORLD.IN




           SYNOPSIS

WWW.PROJECTWORLD.IN




                               8
                           Online Tour Planner



WWW.PROJECTWORLD.IN



Title of the Project:


    “Online Tour Planner”-                               a step towards
knowledge.”




PROBLEM STATEMENT
Managing all activities:-

   It’s quite difficult to manage allover activities of tourism for a tourism
     company having the limited resources.

Huge Database maintenance:-

   The activities of tourism like transport system includes various means
     that is airports, railways, tourist buses along with the information
     knowledge about the tourist places requires to maintain huge
     database.

Booking overload:-

   Also, the records of customers with reference to manually booking add
     the additional working load over the company.




                                     9
                            Online Tour Planner


Basic Database Operations:-

   The basic manipulating operations of database i.e.,; insertion, deletion,
     modification, updating leads disadvantages like time consuming and
     more manual resources.

Difficult of Modify:-

   On the other hand, modification, updation and removed of data is
     required when the customer makes the cancellation, of its bookings as
     well as other changes.

Time consuming & manual interference:-

   The Problems in the management of tourism function leads two major
     anomalies i.e., time consuming and more manual interference results
     in inconsistency.

OBJECTIVE & SCOPE


   The proposed software is a web based application that satisfies all

     requirements of the company. The objective & scope of the proposed

     software is the computerization of the tourism company.


   The software covers all the activities of tourism in computerized way.
     The updation of the database can be frequently performed where as

     on other hand attractive graphics surely increase comfort ability in

     operating the functionalities.


METHODOLOGIES



                                      10
                              Online Tour Planner


   The proposed s/w can be implemented through prototype model. It is
      so because it might be possible that all the requirement specified by
      the customer is not be implemented due to certain reasons or it may
      be that the requirement of customer expands in future.

   So, prototype model quite helpful in development the working model of
      proposed software.

PROTOTYPE MODEL
   A prototype is small-scale, incomplete, but working sample of a desired
      system. Prototypes clatters to the "I will know that I want, when I see
      it." Way of thinking.

            By incomplete, i mean that a prototype will not include the error
      checking, input data validation, security and processing completeness
      of a finished application. It advocates building a simple system through
      "trial and error" and refining it through an interactive process. The
      basic steps are:

   Identify the users information and operation requirements.

   Develop a working model that focuses on, only the most important
      functions using a database.

   Allow the users to use the model and implement the most important
      changes.

   Repeat the next version of prototype with further changes incorporated
      until the system fully meets user requirements.

Advantage

WWW.PROJECTWORLD.IN
s of prototyping:



                                       11
                            Online Tour Planner


      Prototyping is not necessary or appropriate in every systems project.

However, the advantages, should be given consideration when deciding

whether to prototype. The three major advantages of prototyping are:

           Potential for changing the system early in its development

           Opportunity to stop development on a system that is not working

           Possibility of developing a system that more closely address
             user's needs and expectations.


          
           WWW.PROJECTWOR
           LD.IN




                                     12
                        Online Tour Planner


HARDWARE & SOFTWARE REQUIREMENT

Hardware           Requirement:- 90 MHZ or more

Microprocessor

RAM                                   with minimum capacity

Hard Disk                             600 MB on system drive,

                                      10 GB on disk drive

Printer                               Any version




Software Requirement:-

Operating System                   Windows 98 or above version

Platform used                      .net

Web browser                           MS internet explorer 6.0

Frontend                           Asp. Net

Backend                            SQL server




                     WWW.PROJECTWORLD.IN




                                 13
                             Online Tour Planner


                   TESTING TECHNOLOGY

    Before actually implementing the new system into operations, a test
      run of the system is done removing all the bugs, if any. It is an
      important phase of a successful system. After codifying the whole
      programs of the system. After codifying the whole programs of the
      system, a test plan should be developed and run on a given set of test
      data. The output of the test run should match the expected results.
    Initially in analysis & design phase, i use black box testing. In this
      phase of testing the codes are not available. When i further approach
      towards the next coming phases of SDLC, the white box testing is
      conducted.

White box testing:-

Using White box testing methods, the software engineer can derive test
cases that-
    Guarantee that all independent paths within a module have been
      exercised at least once.
    Exercise all logical divisions on their true and false sides.
    Execute all loops at their boundaries and within their operational
      bounds.
    Exercise internal data structures to assure their validity.
Reasons for conduction white box test:
    Logic errors and incorrect assumptions are inversely proportional to
      the probability that a program path will be executed. Errors tend to
      creep into my work when i design and implement function, conditions
      or control that are out of mainstream.
    I often believe that a logical path is not likely to be executed when, in
      fact, it may be executed on a regular basis.
    Typographical errors are random.




                                       14
                        Online Tour Planner




      User Needs
                                               Acceptance Testing




      Requirements                              System Testing




                                              Integration Testing
       Architecture




          Design




       Implementation                         Unit Testing




TYPES OF TESTING:
    Unit testing -




                                 15
                   Online Tour Planner


   Unit testing- testing performed by the developer on a unit of
    code (subroutine, class, etc) before integration.




                            16
                               Online Tour Planner


Integration testing -
              After components are individually tested (unit testing) they are
               combined and tested together as a system. Integration testing
               is usually performed by a special build group.

System Test-
              After carrying out the unit test for each of the programs of the
               system and when errors are removed, then system test is done.
               At this stage the test is done on actual data. At each stage of
               the execution, the results or output of the system is analyzed.

Acceptance testing -
              A system acceptance test is a final system, test performed by
               end-users using real data over an extended time period. It is an
               extensive test, that addresses three levels of acceptance
               testing:
                   Verification testing
                   Validation testing and
                   Audit testing




PROJECT UTILITY

Decentralization view-
          The company with multiple centers fined itself comfortable to
               operate it a business through this software.

Complete Information-
          It provides full fledged information about routes to tourist places,
               transport services, tourist places etc.




                                           17
                                Online Tour Planner



Availability of records-
           The records about the availability of seats in railways, airports
             as well as cruises can be easily retrieved through this software
             from the database.

Database consistency maintained-
           Due to web based application, the software itself maintaining
             the consistency of database.

Attractive packages-
           The packages provided by the company style with creative
             functionalities.
           Packages with multiple functionalities on the basis of no of days,
             places, hotels with different modes, and transport with different
             modes will surely attract the customers.

My trips options-
           Member provides the opportunities for creating their own trips

Individual booking-
           Individual bookings for hotels transport, airways, railways etc
             can be made by the customer online.

On line billing-
           A well comfortable response format for each bookings made by
             member will be provided along with billing information.



Cancellation of booking-
           The booking mades by the customer can be easily cancelled on
             simple charges




                                         18
                               Online Tour Planner




                       Context level Diagram:




   Acquire Membership/ Login                     Grant / Revoke Membership

            Bookings                                 Modify Package/Car/Bus
            Made Payment                                Provide Bill

Members    Searching/Query                              Give Response     Administrator
                                 Online Tour
           Cancel Bookings        Planner
                                                     View Update Delivery Status
  Download Online Ticket
                                                      Edit Members Records




                                        19
                              Online Tour Planner




                        FUTURE SCOPE


      Multiple Language Facilities-

           Software supports multiple languages.


Backup Facilities-

           A proper backup technique is provide in future working mode.


Enhanced Security Features-

           In future security is enhanced on the basis of value ability of
             data.




                                       20
    Online Tour Planner




  System
Analysis and
  Design




             21
                       Online Tour Planner


   Identification Of The Problem


    “One of the best ways to utilize knowledge is to
share it with others”

     In the present era, people do not have enough time to go
to the Tour companies and Book their desired Tour. People are
tired of going to Tour companies only to find out that Tour
they want is currently not available. Many of the times, it
leads to wastage of time and energy.

   Taking into consideration my lives, Tours are required for
traveling all over world, to get enjoyment or for their work
rather i say business tour . Hence, a proper utilization always
demands that the source of knowledge not to be put in an idle
state, it is so because i have latest software technologies and
thus must be implemented over every sectors of life.

  Therefore, i are building a system, which solves the problem
of not only tourist but also business experts and researchers
who move here and there for there own professional purpose.
By using this system user can easily book the desired tour
package on specific basis or of desired places from their home
by using Internet at a single mouse click.


   While designing the software, the needs and requirements
of end user were kept in mind. The software will enable its
users to maintain, retrieve and generate results quickly,
requiring minimum efforts.
It also helps to solve their time and energy when they want to
retrieve some kind of information, for their specific purposes
and needs.




                                22
                       Online Tour Planner


                   Introduction

The objective for creating a tour planner software is to provide
faster and cheaper access to all tourism packages as well
other services, predominantly in International language
available to everyone over Internet.

     Are you a tourist or business agent or researcher? If so
then visit my site, www.tourplanner.com. my passion to look
the world award us best tourism operator. You can find every
kind of pakages in my collection. You can also search the
buse,cars,hotels,trvel agencies in your desired city that you
want. I have carefully designed events for my customers.

     In the present era, people do not have enough time to go
to the Tour companies and Book their desired Tour. People are
tired of going to Tour companies only to find out that Tour
they want is currently not available. Many of the times, it
leads to wastage of time and energy.




                                23
                       Online Tour Planner




            Objective and Scope

     " The real voyage of discovery consists not in seeking
new landscapes but in having new eyes"

        The objective for creating a tour planner software is to
provide faster and cheaper access to all tourism packages as
well other services, predominantly in International language
available to everyone over Internet.


   The system aims at providing such a solution by which
    customers can easily book packages,cars and bus; online
    without making, any extra effort in going to travel
    agencies and thereby can save their time.
   Do not battle the traffic and the roads. Just order
    packages online and get ready to fly over the world.
   Customers can book only            after acquiring the
    membership Customer can also books car and buses on
    desired date.

   Payment has to be made online through credit cards,
    debit cards, maestro cards.
   Customers can also download soft copy of bills according
    to their bookings
   Users can query or provide suggestion regarding any of
    the books/ magazines/ notes.


     The primary goal of my software is to help the customer
when they need information regarding any package, bus or
cars and thereby making it possible for them to buy their
products online with very less effort.




                                24
                       Online Tour Planner


                 Feasibility study

     In the present era, people do not have enough time to go
to the Tour companies and Book their desired Tour. People are
tired of going to Tour companies only to find out that Tour
they want is currently not available. Many of the times, it
leads to wastage of time and energy


Types of feasibility


1. Operation feasibility:

      Every proposed project is beneficial only if they turned
into information system that will meet operating requirement
of the organization.

      The software will enable its users to maintain, retrieve
and generate results quickly, requiring minimum efforts.
It also helps to solve their time and energy when they want to
retrieve some kind of information, for their specific purposes
and needs.

   Non-Programmers can easily use my software. However, it is
    desirable that the user has the basic knowledge of the
    computers.
   Without making, any changes in the rules and regulations of
    the existing system proposed system can easily be adopted.




                                25
                       Online Tour Planner


2. Technical feasibility:
      The technical feasibility tests are conducted to study the
functional performance and constraints that may affect the
ability of the new proposed system. In this phase, i think and
analyze about the technical requirement of a product and i try
to find out the answer of a question that whether my project is
technically feasible or not.

   The following questions were asked during the study:

1. Is the proposed technology or solution practical?
2. Do i currently pass the necessary technical expertise?
3. How many systems are required?
4. Is the project has ability to producing the result in a fine
time span.

5. The proposed system must be responsible for reliability of
database.
6. Keeping above points in mind the proposed system has
been to design a VB Lang. known as “VB.Net”.
7. One more aspect, which is worth for discussion, is security
and reliability of the new system.
8. Since the proposed system is designed to run on
computers, there is every bit possibility that any unauthorized
user can modify the data. Hence, great care has been taken so
that only authorized user can have access. For creating
reliable & secure database, i have used SQL Server database
as a backend tool.




3. Economical feasibility:
   Economic analysis is the most frequently used method for
evaluating the candidate system. More commonly known as
Cost Benefit Analysis, the procedure is to determine the
benefits and savings of the candidate system and compare
them with the costs.



                                26
                       Online Tour Planner


   The economic feasibility for the proposed system is
reasonably fair. This project does not have many hardware
requirements and also the no of people required for this
system is less than that of the manual system , thus, it
requires less costing to install the software overall.

  The costs incurred are:

        Computer hardware installation & maintenance cost
        Cost of developing the required software.
        The cost involved in maintaining a skilled staff to
         constantly secure & maintain the database.

BENEFITS AND SAVINGS:

   Cost of the maintenance of the proposed system is   negligible.

  Money is saved as paper work is minimized.

  Records are easily entered and retrieved.

  Time is saved as all the work can be done by a simple mouse
   click.

  The proposed system is fully automated and hence easy to
   use.

  Since benefits out base the cost, my project is economically
   feasible.

Therefore, the infrastructure cost required in this system is
much less, than that is required in manual system.




                                27
              Online Tour Planner




  Cost Benefit
   Analysis




        Cost Benefit Analysis
Cost:

                       28
                      Online Tour Planner


  1) Development Cost ( Rs. 100000)
  2) Resources Cost(Rs. 70000)
  3) Web hosting Cost (30000 per year)
  4) Maintenance Cost (Rs. 3000)
  5) Total Cost = Development Cost + Web hosting Cost=
     (Rs. 100000 + 30000 = 130000 )

Benefits:
  1) Customer Satisfaction(Intangible benefit)
  2) Removal of paper costs: - (Rs. 35000 per year)


Net Benefit:
  Net Benefit=Gross Cost-Gross Benefits
  So Net Profit is 130000 - 35000=95000(approximately)

Note: This 9000 will be deducted per year             and the
maintenance cost will also be deducted annually.




Benefits


                               29
                        Online Tour Planner


      This software is very beneficial for the organization from
the financial as well as the time consumption point of view.
This software reduces the cost of stationery bills & other
products required to maintain the records of the numerous
clients along with their other details. This will also reduce the
time required to retrieve the details of a particular bills &
generate bill for the same.
Conclusively this software will provide following benefits to its
users:-

   Readers can easily purchase books, magazines, and
    notes; online without making any extra effort in going to
    book stall and thereby can save their time
   Make information retrieval quicker and easier.
   Save time & energy in locating the details of the clients.
   Make bills generation easier and faster.
   Protect the information from unauthorized users by
    usernames and passwords.




                System Planning
   Project management activity can be viewed as having three
 major phases:



                                 30
                       Online Tour Planner


        o Project Planning
        o Project Monitoring and control
        o Project Termination

       Planning entails all activities that must be performed
before starting the development work. Once the project is
started, Project Control begins, in other words during planning
all the activities that management      needs to be perform are
planned, while during Project Control the plan is executed and
updated. Planning is the most important activity. Without a
proper plan, no real monitoring or controlling of the project is
possible.
   The input to planning activity is the requirement
specification. A very detailed requirement document is not
essential for planning, but for a good plan, all the important
requirements must be known. The output of this phase is the
Project Plan, which is a document describing the different
aspects of the plan .The project plan is instrumental in driving
the development process through the remaining phase.
      This project is planned to make it error free and to meet
the user requirement. The project plan was developed
encountering major issues related to the project development.
The most important among them is the project scheduling.
Project scheduling is done using the PERT chart.
      Project scheduling enabled us to establish a proper routine
of execution of the various sub-task in the project within a
certain stipulated period in order to acquire the milestone set at
the beginning. Online Book Bank comprises a set of inter
related activities which when carried out systematically result in
production of appropriate result.




         PROJECT PLANNING AND
              SCHEDULING


                                31
                       Online Tour Planner


     The complexities of the present day management problem
and the business competitions have added to the brains of the
decisions makers. In a large and complex project involving a
number of men machines and materials, it is not possible for
the, management to make and execute an optimum schedule
just by intuition based on the organizational capabilities and
work experience.

      Management are thus always on out for some methods
and techniques which may help in planning scheduling and
controlling the project. A project is a combination of integrated
activities, executed in a certain definite order before the entire
task is completed. The aim of planning is to develop a sequence
of activities of the project, so that the project completion time
and cost are properly balanced. To meet the objective of
systematic planning the management has evolved a number of
techniques applying network strategy. PERT is one of the many
network techniques, which have been widely used for planning,
scheduling and controlling the large and complex projects.

Work Breakdown Structure:
     A project is a combination of interrelated activities, which
must be performed in a certain order for its completion. The
process of dividing the project into various small activities is
called the work breakdown structure. The activity or a unit of
work, also called work content is clearly identifiable and
manageable work unit.

The following figure represents the WBS of           application
software :




                                32
                            Online Tour Planner




                                Application software




Requirements       Design              Code              Test          Document
specification




   Database part      Graphical user              Database part   Graphical user
                      interface part                              interface part




                                     33
                           Online Tour Planner



 Network Logic:


  Some of the terms commonly used in network are defined
 below:

   1. Activity
       It is an identifiable part of the project, which consumes
time and resource. Activities are obtained as small work contents
from the Work Breakdown Structure. In the network, an arrow
consists of head and tail, in which tail represents the start point
and the head, represents the finish pint of the activity.




    1. Event
            The beginning point and the end point of an activity
 are called events. Event is a point that does not consume any
 resource. A numbered circle generally represents an event. For
 example:



                                         Activity
                       i                                j

                     Event                           Event

    2. Path
      An unbroken chain of activity arrow connecting        the initial
 event to some other event is called a path.
    3. Network
          It is the graphical representation of logically   and
 sequentially connected arrows and nodes representing activities


                                    34
                        Online Tour Planner


and events of a project. Networks are also known as Arrow
diagrams.

 5. Network Construction:
    Firstly, the project is split into activities. Start and end
 events of the project are then decided. After deciding the
 precedence order, activities are put in a logical sequence by
 using graphical notations.
     Activities that must be completed before a particular
 activity can start are called the predecessor activities and
 those, which must follow a particular activity, are called
 successor activity.
   The predecessor relationship is expressed in a number of
 ways. Job A is a predecessor to job B and C, i.e., A <B<C.


PERT CHART
   This is the table of ‘Activity’ and its estimated time duration,
used to accomplish the project “ONLINE TOUR PLANNER”.
     Activity                    Preprocessor(s)    Duration(In Week)
    A: Study     -mk                      -   6cc             2
    B: Analysis A                         A 12 1               3
               B
    C: Form Design                        B 5                 4
                C
    D: Coding and Testing                 C 5 5               5
                Design
    E: Database B                         B 5 2               2
                D,
    F: Connectivity E                       6
                                        D,E,F 2               2
                 F
    G: Test with Database                 C 11 1              3
              C
    H: Documentation                     F,H 102              1
                 F, H
    I: Error trapping                    I,J 52 1             2
    J:            I,
         Final Test J                     -   5gh             1




                                 35
                            Online Tour Planner




                        5



    A       B       C           D            F        G       I       J
2       3       4           5        2            2       3       1       2



                                     10
                                         7




                PERT CHART BASED ON THE ABOVE DATA




                                     36
Online Tour Planner




  SRS




         37
                       Online Tour Planner


 System Requirements Specification
              (SRS)

Introduction:
    This document aims at defining the overall software
requirement for ‘Online Tour Planner’. Efforts have been
made to define the requirements exhaustively and accurately.
The final product will be having only features/functionalities
mentioned in this document.

  The objective is to create a Tour portal, which will allow a
Member to perform Online Bookings of Car, Bus and Packages.



Purpose
    This specification document describes the capabilities that
will be provided by the software application ‘Online Tour
Planner’. It also states the various required constraints by
which the system will abide. The intended audiences for this
document are the development team, testing team and end
users of the product.
   The purpose of this project is to make online book
purchasing possible by users at their home at a single mouse
click. The system aims at providing such a solution by which
Member can easily Book Package, Car, and Bus; online without
making, any extra effort in going to Travel Agencies and thereby
can save their time.


Scope
   The software ‘Online Tour Planner’ will provide services to
the customers who would like to get certain information
regarding any Tourist Places,Cars,Buses and different
Packages provided by us. In addition, it would enable the
customer to perform an online Booking of these items i.e. It
would generate an online receipt on Booking, which the user
can take a print out. It will comprise a Package id/Car id/Bus


                                38
                            Online Tour Planner


id, which will be unique for every Package/Car/Bus and the
Booking id, based on which the user can check his/her
transaction.



Overview
      The rest of this SRS document describes the various
system requirements, interfaces, features & functionalities in
detail.


Overall Description
      By using this system user can easily Book the desired
Package/Car/Bus on specific topics or of desired authors from
their home by using Internet at a single mouse click. User can
become my permanent member by taking my monthly or
yearly membership and can avail the facility of free
downloading.


Product Perspectives
       The application will be web-based, self contained and
independent software product.




  Front End Client Application (with                 Backend
  Data entry/update/delete view and                  Database
  Reporting facility).




System Interfaces
   None.

User Interfaces


                                       39
                      Online Tour Planner


   The application will have a user friendly and menu based
interface.


  (i)     A login screen for entering the username and
          password.
  (ii)    There will be a screen for registering a new User
          onto my Booking services.

  (iii)   There will be a screen for capturing and displaying
          information regarding various types of queries like
          services, Instant Booking, cancel Booking, status,
          and query.
  (iv)    There will be a screen for displaying information
          regarding various services.
  (v)     There will be a screen for capturing and displaying
          information regarding Online Payment of Books


  Following reports are generated:-
  (i)     Month wise Booking report for Package,Car and Bus
          Bookings.
  (ii)    Date wise Booking reports.
  (iii)   Report for Package,Car and Bus Bookings,
          generated based on certain time interval.
  (iv)    Bill Report.

Hardware Interface

  (i)      Screen resolution of at least 800 x 600 required
           for proper and complete viewing of screens.
           Higher resolution would not be a problem.
           Support for printer.
  (ii)     Support for printer.

Software Interfaces

  (i)      Windows XP Professional ( or Windows NT 4 or
           above)
  (ii)     MS SQL Server 2000 for database.


                               40
                       Online Tour Planner


  (iii)     Visual Studio.NET 2005 or above will aim at
            upgrading.
  (iv)      Visual Basic.NET - for coding/developing the
            software.


Communication Interface
  None.




Memory Constraints
    At least 128 MB RAM or above and 20GB space on hard
disk or above will be required for running the application.



Operations
 The product release will not cover any automated
housekeeping aspects of the database.
 The DBA at the client site will be responsible for manually
adding new or deleting old/non-required data.
 Database backup & recovery will also have to be handled by
the DBA.


Site Adaptation Requirements

The terminals at client site will have to support the hardware &
software interfaces specified in above sections.
Product Functions:-
A Summary of major function that the software will perform:-
  (i)      A Login facility for enabling only authorized access
           to the system.
  (ii)     Customers can Book Package/Car/Bus online if they
           become my Anonymous or Permanent Member.

                                41
                        Online Tour Planner


  (iii)     User (with type Administrator) will be able to reset
            the system- leading to deletion of all existing
            information from the backend.
  (iv)      A Registration process for customers visiting the
            website of Online Tour Planner. Users interested in
            Booking Package/Car/Bus will have to register onto
            my site. For availing other advantages, they need
            to become my Permanent member.




User Characteristics
           Educational Level: - At least graduate should be
            comfortable with English language.
           Experience: - Should be versed/informed about the
            working of the organization.
           Technical Expertise: - Should be comfortable using
            general-purpose applications on a computer.

Constraints
               DBMS used is MS SQL Server; it is a powerful
                DBMS, capable of storing a very huge numbers
                of records.
               Due to the powerful features of DBMS being
                used, performance-tuning features can be
                applied to the queries and thus the system
                does not slow down with increase in number of
                records.
               Database auditing will be provided.

Apportioning of Requirements
Not Required.




                                 42
                       Online Tour Planner


User Accounts Information Maintenance

Description: The system maintains information about various
users who will be able to access the system. The following
details are maintained:-
             Username, Password, and Type .
Validity Check:
           Only user with Type Administrator is authorized
            to access the User Accounts Information
            Maintenance module.
           Username cannot be blank.
           Username should be unique for every user.
           Password cannot be blank.
           Type cannot be blank.




Sequencing Information
User Account for a particular user is created so that he can
avail the services of my website and Do Bookings easily. At
system startup, only a default user account for ‘Administrator’
would be present in the system.



Error   Handling/Response                    to   Abnormal
Situations
   If any of the above validations/sequencing flow fails, then
appropriate error message will be prompted to the user for
doing the needful.



Performance Requirements
None.

Design Constraints

                                43
                        Online Tour Planner


None.

Software System Attributes
Security: The application is password protected. Users will
have to enter correct username, password, and type
(Administrator/User) to access the restricted part of
application.
Maintainability: It will be easy to                incorporate   new
requirements in the individual modules.
Portability: The application is easily portable.


Logical Database Requirements
The following information is placed in a database:
                  Member Info: - Customer name and other
                    details.
                  Package Info:-        Package Id, Package
                    Name, Package Type, Cost, Tourist Place
                    and Duration .
                  Car Info:- Car Id, Car name, Car mode,
                    and Price
                  Bus Info: Bus Id, Bus mode, Price.
                  Account Info: Customer Name, Booked
                    product Info, Date, Book Info

Other Requirements
None.

Specific Requirements
This section contains the software requirements to a level of
details sufficient to enable designers to design the system, and
testers to test that system.




                                 44
   Online Tour Planner




FLOWCHART




            45
      Online Tour Planner



                    Start




             Enter Login name




             Enter Password




               Is login &
 No
               name
               password
                Valid?




                            Yes


               Is member          No
                                       Go to member login
                  type
               is Admin ?




                            Yes

            Go to Admin login




                     Stop



Flowchart for Login


               46
           Online Tour Planner



         Start




   Choose the query_id




     Enter the Answer




    Update the answer
   and set status to yes




           Stop




Flowchart for Response to Query




                    47
                       Online Tour Planner




               Start


           Select Packages


                                      Yes
             Is session
            Uname=””?


                       No

            Choose Card



           Enter card no & pin



   No
                Is
            transaction
            successful?
                                            Display to buy
                                             after login
                        Yes

            Print receipt




                 Stop




                 /
Flowchart for Package Booking




                                 48
                 Online Tour Planner




         Start


     Select Packages


                                Yes
       Is session
      Uname=””?


                 No

      Choose Card



     Enter card no & pin



No
          Is
      transaction
      successful?
                                      Display to buy
                                       after login
                  Yes

      Print receipt




           Stop




           /
      Flowchart for Car Booking




                           49
                        Online Tour Planner




                Start


            Select Packages


                                      Yes
             Is session
            Uname=””?


                        No

             Choose Card



           Enter card no & pin



    No
                 Is
             transaction
             successful?
                                            Display to buy
                                             after login
                         Yes

             Print receipt




                  Stop




                  /
Flowchart for Bus Booking




                                 50
                          Online Tour Planner


                               Start



                          Enter Booking_id



                                                No
                                 Is
                            Booking_id
                             existing?


                                                                  Booking_id
                                        Yes                        not exist

                                                 No
                            Is status is
                             pending?

                                                     Show
                                       Yes
                                                     Package is
                                                     Booked
                  No
                            Is duration
                             is one day


                                        Yes


                            Cancel order
    Display
duration >1 day
                          Update database



                            Display order
                              cancelled




                               Stop

            Flowchart for Booking Cancellation


                                   51
                   Online Tour Planner




                     Start


                Enter Package_id



                                         No
                   IS Package
                    Exist?

                                   Yes

                Show Information              Dislay Package
                                                not found


                  Change Info



                      Update Info



                       Stop




Flowchart for Updating Package Info




                              52
        Online Tour Planner



                 Start


           Enter car_id



                                  No
               IS car
                Exist?

                            Yes

           Show Information            Dislay car not
                                           found


              Change Info



                  Update Info



                   Stop




Flowchart for Updating Car Info




                 53
          Online Tour Planner




                   Start


             Enter bus_id



                                    No
                 IS bus
                  Exist?

                              Yes

             Show Information            Dislay bus not
                                             found


                Change Info



                    Update Info



                     Stop




Flowchart for Updating Package Info




                   54
        Online Tour Planner




                START


         Enter current pswd
         and email_id



                                   No
               Does
             password and
             email_id
               Match?
                             Yes

           Enter new paswd               Display Paswd
           and email_id                      Match


               Retype paswd and
         email_id


                                    No
               Does both
              paswrd and
              email_idmatc
                    h

                         Yes

            Update Profile



                STOP




Flowchart for Profile Updation




                 55
        Online Tour Planner




                START


         Enter current pswd
         and email_id



                                    No
               Does
             password and
             email_id
               Match?

                             Yes

           Enter new paswd                 Display Paswd
                                          and email_id not
                                               Match
               Retype paswd



             Does both               No
             paswrd and
             email_id
             match


                              Yes

            Update Profile



                STOP




Flowchart for Profile Updation




                 56
   Online Tour Planner




Data Flow
 Diagram
   (DFD)




            57
                       Online Tour Planner


DATA FLOW DIAGRAM
       A DFD has the purpose of clarifying system
requirements and identifying major transformation means
how data is flowing at various level between source
destinations. A DFD consist of a series of bubbles Joint by
lines. The bubbles represent data transformation and the lines
represent data flow.

     The DFD is one of the most important tools to be used by
system analyst. The main merit of DFD is that can provide an
overview of what files are used, and where the results flow.
The graphical representation of the system makes it a good
communication tool between a user and an analyst. Symbols
used in making data flow diagram are: -


  1. Circle or a Bubble:-
      It represents a process that transforms incoming
     data flows into outgoing data flows.



                    Symbol-



  2. Rectangle: -
         A rectangle represents an external entity, situated
        outside the system. Entity supplying data are known
        as sources and those that consume data are called
        sinks.

                 Symbol-




                                58
                     Online Tour Planner




3. An Arrow: -
      An arrow identifies data flow. It also represents data
   in                               motion. It is a pipeline
   through which information flows.



       Symbol-



4. Slant Line: -
   Thin slant line depicts a line. A file or data store
 stores data. If an arrow points to the file, it indicates
 operation of writing in the file. If it points away from the
 file, it indicates operation of reading from the file. If both
 arrows are there, it indicates that one may write in or
 read from the file.



               Symbol-




                              59
                            Online Tour Planner




     Acquire Membership                           View Update Delivery Status



            Acquire Login                            Grant/Revoke Membership



          Book Package/Bus/Car                       Modify Package/Bus/Car

              Made payment                             Authorize Mem


                 Give                                      Maintain
                 Feedback                                  Consistent
Members                                                    Database             Admin


                  Queries
                                     OTP                     Answer



    Download Online Ticket                             Edit Membership



             Read Feedback                             Ban/ Allow Members



           Cancel Bookings                         Generate Booking Report




            CONTEXT LEVEL DFD



                                     60
                                Online Tour Planner
                                          1 Level DFD


                                                                                            Database

                              Database
                                                                 Database
                                                                                                    Fetch
                                                                                        7
         Database        5                Added
                                                             6                 Ok
                                Ask               Ok                 6.0                     Read
                               Query                                Down
 Update                         5.0                                 Loads                   Feedback
                                                                  Online                       7.0
                                                                  Tickets/
                    Ok                    Query_Id                Bill
     4

               4.0              Email_id,F_Id
             Gives              F_Id
            Feedback


                                                                  Pack                                 Ok
                                                                  age/
                                                                  Bus/                  Email_id
    Ok                                                                                  Password
                                                                  Car




                    Card no & Password

                                                                                       Booking_Id

                         Package Name                                                                  8


                                                             Member                           Cancel
                                                                                              Booking
                                                                                               8.0

                                                       Acquire
                                                                                   Update




                                                                                              Database
               3                                                               1
                                                   2

       3.0               Ok               2.0           Ok             1.0
      Made                             Book                           Member
     Payment                           Package/                        ship
                                       Car/Bus




Update                        Check               Response                     Add



    Database                          Database                        Database
                                           61
                                   Online Tour Planner




    Database                Database             Booking/Account Database           Booking/Account Database



Query           Response                Update        Query                Response                    Fetch



        Login
                               Modify                           View                          Generate
         1.0
                               List of                        Update                          Booking
                              Packages                        Booking                          Report
                              /Car/Bus                         Status                           4.0
                              /Hotel/Tr                          3.0
                                avel
                               Agency
                                 2.0
                                                                           Date                        Ok




  User Name
   Password       Package_Id                Booking_ID
                    Bus_Id
                    Car_id




                                                                                               Receives
                                                                                               Payment
Administrator                                                                                    5.0
                                           Emai_id & Booking



                                                                                   Booking
                                                                                   Database


                     Member_Id

                                                           Member_Id                                   Ok




            Revoke                                 Ban/Allow                                Responds
          Membership                                Members                                    To
              8.0                                     7.0                                    Queries
                                   Ok                                      Ok                  6.0

                                                                                Fetch
                          Update           Fetch                  Update        Question               Update
                                                                                                       Answer


         Login Database                          Login Database
                                                                                           Query Database




                                                 62
  Online Tour Planner




ER Diagram




           63
                        Online Tour Planner




                       E-R DIAGRAM
     E-R diagram is a physical relationship between different
entities. It depicts the overall structure of an organization. E-R
Model is a      detailed Logical representation of entities. It is
an association of data elements for an organization and
business area. Basic symbols used for E-R diagram are: -


 1.    Entity:
       It is a thing in real word with an independent existence.
 An entity may be an object with a physical existence or may
 be an object with a conceptual existence.

                 Symbol-


             There is a type of entity, which is called weak
           entity:

       Weak Entity:

         The entity, which has not any key, attributes of their
        own; these are called weak entity.




2. Attribute:
       These are properties, which describe an entity.


           Symbol-

                                 64
                       Online Tour Planner


Type Of Attributes :

    Multivalued attribute:
         These attributes are shown in double Ovals. It shows
       the attributes that have multiple values.




     Derived Attribute:

            These attributes are shown in double dotted lines.
           Example, Age of the person can be a derived
           attribute. Because it is possible to get the age of a
           person when Date of Birth is known.

                 Symbol:




3. Relationship:
   Whenever an attribute of one entity type refers to another
 entity type, some relationship   exists. It connects entities
 and represents a meaningful dependency between them.


               Symbol-


4. Primary key:
   It is a unique quality and is related with attribute.



                Symbol-




                                65
                                     Online Tour Planner


                                                                            Address
   Travelagency_id

                                        Travel Agencies
                                                                                            Address
                           Name                                        Hotel_id

        User                                    Search                                      Hotel
                                                                             Name

                                                                                                       type
                            Car_i
                            d

                                              Packages
                               Car                                         P_id
                                                                                              phoneno
                                            Name
                                                                    Type

               Email
               _id                                           Name

                                                                             Price            Bus_id
First
name               Member
                                                   Booking                            Bus
        Type
                                                                            mode
                                                                                              capacity

                                                                       Bill_no.

                       Gives                        Receive
                                                    bill                                    Bill


                                                                            Amount
                                                                                                date
         F Id


 Post
                       Feedback             By Email_id




                                              66
    Online Tour Planner




 Technology
Introduction




             67
                          Online Tour Planner


  Introduction To .Net
  What is .NET?

   .NET is set of common services that can be used from a
   number of languages and have the following specialties:
i.    These services are executed in the form of intermediate code
   that is independent of the underlying architecture.
ii.   They operate in the runtime (Common Language Runtime),
   which manages resources and monitors applications execution.
   The .NET frameworks are a multi-language environment for
   building, deploying, and running web services and applications.
   The Microsoft .NET platform provides .NET infrastructure and
   tools to build and operate a new generation of services.


  Introduction to Asp. net:


      ASP.NET offers a novel programming model and
 infrastructure that facilitates a powerful new class of
 applications. ASP.NET is a compiled. NET-based environment,
 so one can author applications in any .NET compatible
 language, including Visual Basic, C# and Jscript.NET.
 Developers can effortlessly access the advantage of these
 technologies, which consist of a managed Common Language
 Runtime environment, type safety, inheritance, and so on. With
 the aid of Microsoft Visual Studio.NET Web, development
 becomes easier.


     Web Forms permits us to build powerful forms-based Web
 pages. When building these pages, i can use Web Forms
 controls to create common UI elements and program them for
 common tasks. These controls permit us to rapidly build a Web
 Form.

 Web services enable the exchange of data in client-server or
 server-server scenarios, using standards like HTTP, SOAP


                                   68
                       Online Tour Planner


(Simple Object Access Protocol) and XML messaging to move
data across firewalls. XML provides meaning to data, and SOAP
is the protocol that allows web services to communicate easily
with one another. Web services are not tied to a particular
component technology or object-calling convention. As a result,
programs written in any language, using any component model,
and running on any operating system can access Web services.


 Advantages of Asp.net:
  ASP.NET is Part of the .NET Framework:
     The .NET Framework comprises over 3,400 classes that i
 can employ in my ASP.NET applications. I can use the classes
 in the .NET Framework to develop any type of applications.
 Since ASP.NET is part of the .NET Framework, i can do all
 these things from within an ASP.NET page. While ASP Classic
 pages are formed with scripting languages such as VBScript
 and JavaScript, ASP.NET pages are formed with full-blown
 programming languages such as Visual Basic and C#. There
 are five standard objects accessible in the ASP Classic
 Framework (the Request, Response, Application, Session, and
 Server objects), where as there are over 3,400 standard
 objects in the .NET Framework that i can use in an ASP.NET
 page.

ASP.NET Pages are compiled
    When an ASP.NET page is first requested, it is compiled and
cached on the server. This means that an ASP.NET page
performs very rapidly. All ASP.NET code is compiled rather than
interpreted, which permits early binding, strong typing, and
just in time (JIT) compiling to native code.

XML-Based
    ASP.NET configuration settings are stored in XML-based
files, which are human readable and writable. Each one of my
applications can have a different configuration file and i can
extend the configuration scheme according to my necessities.




                                69
                        Online Tour Planner


Code-Behind logic
   The main problem with ASP Classic pages is that an *.asp
page does not yield modularized code. Both HTML and Script
are present in a single page. However, Microsoft's ASP.NET
implementation contains a new-fangled method to break up
business logic code from presentation code. Each ASPX created
in Visual Studio has an equivalent class written in a .NET
compliant language such as C#. This class consists of event
handlers, initialization code and other supporting code for the
user interface in the ASPX file. The

 C# file that holds this class is called the code-behind file and
affords the ASPX file's programmatic implementation.



ASP.NET Pages are built with Server Controls
     I can easily build complex Web pages by bring together the
pages out of ASP.NET server controls. For example, by adding
validation controls to a page, i can easily validate form data.



 Visual Basic.Net
    Visual Basic.NET is the most recent generation of Visual
Basic. Developers will be pleased to note that its new features
include inheritance, method overloading, structured exception
handling, and more. These capabilities make it easier than ever
to create .NET applications, including Windows applications,
web services, and web applications. The articles in this section
give you all the tips you need to work wit this useful language.

    Visual Basic.NET support in Mono is relatively new. The
Visual Basic runtime has been available for Mono for a while,
and with the release of Mono 1.2.3, the Visual Basic support
will be complete, with the introduction of a self-hosting
compiler and class libraries for Visual Basic development on any
of the Mono supported systems.




                                 70
                        Online Tour Planner




  Introduction to Database management
                  System

      A database is a collection of interrelated data. The
collection of data must be logically coherent with some inherent
meaning. A database is designed and built for a specific
purpose, keeping in mind the needs of the applications that are
going to use it and the end users of those applications. It is
managed by a software package known a database
management system (DBMS).


      A DBMS is a software system that enables users to record
and maintain database. It provides an environment where in
data can be stored and retrieved from database easily and
efficiently




 Introduction To Microsoft SQL Server 2000

        Microsoft SQL Server 2000 is a full-featured relational
database management system (RDBMS) that offers a variety of
administrative tools to ease the burdens of database
development, maintenance and administration. I will cover six
of the more frequently used tools: Enterprise Manager, Query
Analyzer, SQL Profiler, Service Manager, Data Transformation
Services and Books Online. Let us take a brief look at each:

Enterprise Manager is the main administrative console for
SQL Server installations. It provides you with a graphical
"birds-eye" view of all of the SQL Server installations on your
network. You can perform high-level administrative functions


                                 71
                         Online Tour Planner


that affect one or more servers, schedule common maintenance
tasks or create and modify the structure of individual
databases.

Query Analyzer offers a quick and dirty method for
performing queries against any of your SQL Server databases.
It is a great way to quickly pull information out of a database in
response to        user requests and test queries before
implementing them in other applications, create/modify stored
procedures       and       execute      administrative      tasks.

SQL Profiler provides a window into the inner workings of your
database. You can monitor many different event types and
observe database performance in real time. SQL Profiler allows
you to capture and replay system "traces" that log various
activities. It is a great tool for optimizing databases with
performance issues or troubleshooting particular problems.

Service Manager is used to control the MS SQL Server (the
main SQL Server process), MSDTC (Microsoft Distributed
Transaction Coordinator) and SQLServerAgent processes. An
icon for this service normally resides in the system tray of
machines running SQL Server. You can use Service Manager to
start, stop or pause any one of these services.

Data Transformation Services (DTS) provide an extremely
flexible method for importing and exporting data between a
Microsoft SQL Server installation and a large variety of other
formats. The most commonly used DTS application is the
"Import and Export Data" wizard found in the SQL Server
program group.


Books Online is an often-overlooked resource provided with
SQL Server that contains answers to a variety of
administrative, development and installation issues. It is a
great resource to consult before turning to the Internet or
technical support.




                                  72
     Online Tour Planner




 Methodology
Adopted and Life
Cycle of Project




              73
                        Online Tour Planner


Introduction

       A Software Life Cycle is the series of identifiable stages
that a software product undergoes during its lifetime. The first
stage in the life cycle of any software product is usually the
feasibility study stage. The subsequent stages are requirement
analysis and specification, design, coding, testing and
maintenance. Each of these stages is called a life cycle phase.
A life cycle model represents all the activities required to make
a software product transit through its life cycle phases.
It also captures the order in which these activities are to be
undertaken. The strictest life cycle model used is the classical
life cycle model. However, in any practical software
development work, it is not possible to strictly follow the
classical waterfall model from every phase to its preceding
phase.



Methodology Used

  1). Structure System Analysis techniques had been adopted
  for the analysis of the algorithm and software development.
  2). Structure System Design techniques had been adopted
  for the design of the algorithm & software development.
  3). Spiral Model had been used for the development of the
  software.
  4). Structure development life cycle had been used for this
  project.
  5). PERT Chart is the primary tool used for system
  planning.
  6). Project Cost has been estimated by referring to
  COCOMO Model theoretically.




                                 74
                        Online Tour Planner



Analysis Methodology

1). Structure System Analysis:
  Techniques are used for the analysis of algorithm and
development.

2). Back Ground Analysis
      Concept of mining & about the algorithm is learned
through research papers on internet and expert theory.

3). Fact-Finding
      Facts about the algorithm are collected from the books
and internet.

4). Fact Analysis
      Facts are analyzed to through examples related to
algorithm.

5). DFD and Flow Chart
     DFD and Flow Chart are used to model the algorithm and
logic design.

Design Methodology
1). Structured design techniques are used to design the
software.
2). An activity of all phases of project is the walk-through .It is
the inter
change of the ideas among the team members. In design
walk-through      the purpose is to recognize as many problems
in the software as possible.
While they are still “Tiger Paper”.
3). Activity diagram are used then to define the behaviors of
mechanism.
4). Layering has been done to refine the architecture.

                                 75
                       Online Tour Planner


5). Initially, two layers are introduced system layer and
application layer.
6). Demo version is created on these lines of design
techniques to
demonstrate the feasibility of design methods.
7). Database design is according to the implementation of
algorithm.




Coding Methodology

1). Event driven programming VB.Net had been used for
coding the modules and programs.
2). Structured English and pseudo codes are used to closely
refine the mechanism using the fatality of the define objects.
3). Various steps had been used to facilitate incremental
coding followed by testing.
4). The basic philosophy followed at this stage is code one line
followed by rigorous testing.
5). Integrated development environment of VB.Net has been
used for the   development of various modules in integrated
manner.
6). Incremental compilation had been used to compile and test
on which   work was in progress.
7). Stepwise refinement technique had been used to code the
modules.


Testing Methodology

1). Structured testing tools have been used for testing the
programs.




                                76
                        Online Tour Planner


2). Small programs are developed to test the individual
modules.
3). Each module is tested for its proper functionality.
4). Groups of people tested the software functionality.
5). The same group tested the reliability of software by using
    various input techniques, on various modules of the
software.
6). Software was distributed to teachers and friends for Beta
testing.



Spiral Model:
         The Spiral Model is evolutionary software process
model that couples the iterative nature of prototyping with the
controlled and systematic aspects of the Waterfall Model. It
provides the potential for rapid development of incremental
versions of the software. Using the spiral model, software is
developed in a series of incremental releases. A spiral model is
divided into a number of framework activities, also called task
regions.

     A prototype is evolved by a fourfold procedure:

        1.Defining the requirements of the prototype.

        2.Evaluating the prototype in terms of its strengths,
        weaknesses, and risks.

        3.Planning and designing the prototype.

        4.Constructing and testing the prototype.




Why to use Spiral Model?



                                 77
                       Online Tour Planner


      Since the project is to be used online, a number of risks
are associated like virus attacks, failure of server backup
failures and so on. The spiral model is a realistic approach to
the development of large-scale systems and software. Because
software evolves as the process progresses, the developer and
customer better understand and react to risks at each
evolutionary level. The spiral model uses prototyping as a risk
reduction mechanism but, more important, enables the
developer to apply the prototyping approach at any stage in
the evolution of the product.

     So, using this model all-possible risks are analyzed and
proper solutions are devised for it. Each defined cycle around
the spiral results in more complete model of the system,
eventually leading to final operational system.




                    Spiral Model

                                78
    Online Tour Planner




  Details of
Hardware and
Software to be
     used




             79
                     Online Tour Planner


Minimum Hardware Requirement:

      128 MB of RAM.
      20 GB of Hard disk.
      15’’ Color VGA monitor.
      101 key Standard Keyboard.
      PS2 Mouse.
      Processor with PIII or later version with 2.66 GHZ or
       higher.




Recommended:

      256 MB of RAM.
      40 GB of Hard disk.
      15’’ Color VGA/ TFT monitor.
      104 Key Standard keyboard.
      An Optical Mouse.
      Laser Printer.
      Processor with PIV or later version with 2.88 GHZ or
       higher




Software Requirement:

         Operating system: Windows 98/ 2000 or later
          version.
         Front end: ASP.net
         Back end: SQL Server.
         Application Server: IIS.
         Client Tool: IE 5.0 or higher.




                              80
                       Online Tour Planner




      MODULARIZATION
        DETAILS




Modularization Details

System Analysis
    This is one of the phases of SDLC (Software Development
Life Cycle). It is a detailed appraisal of the existing system &
includes how the system works & what it does; it also includes
finding out more details what the system problems is and


                                81
                        Online Tour Planner


what are management techniques, which helps us in designing
a new system & improving the existing system.
Elements of System Analysis:
   There are four basic elements in the system analysis. These
are the following:-
a) Outputs:-

    First i must determine the objective or goal, and what i
 intend to achieve, what is the purpose of my work, in other
 words, what is the main aim behind the system.

    Defining aim is very vital in system work. If i do not know
 where i     want to go, i will not know when i have reached
 there. I shall be wasting unnecessarily time and energy in
 the purpose. Once i know one aim, i can try to achieve it in
 best possible way. The user has to define the objective in
 their terms and needs. These become outputs, which the
 analyst has to keep in mind.
b) Inputs:-

    Once i know the output, i can easily determine what the
inputs should be. Sometimes, it may happen that the required
information may not be readily available in proper form. This
may be because the existing forms were not properly
designed. Sometimes, it may not be possible to get required
information without the help of top-level management. If the
information is vital to the system, i should make all possible
efforts to make it available.

 Sometimes, it might be too costly to get the required
information.



Essential elements of inputs are-
    1). Accuracy: If the data is not accurate, the outputs will
be wrong.
  2). Timeliness: If the data is not obtained in time, the entire
system will fall into arrears.


                                 82
                      Online Tour Planner


    3). Proper Format: The inputs must be available in the
proper format.
    4). Economy: The data must be produced at the least
cost.

 c). Files:-
As the word implies files are used to store data. Most of the
input necessary for the system may be historical data; or it
may be generated from within the system; these are stored in
files either in isolated form or in large volumes.
 d). Processes: -
In this, i come to details of how the inputs reconverted into
outputs. How the processing is done such that the inputs are
transformed into correct output.


System Design:
     The system design is not a step adherence of clear
procedures and guidelines. Through certain clear procedures
and guidelines have emerged in recent days, but still much of
design work depends on knowledge and experience of the
designers.
. More clear defined logical method for developing system that
meets user requirements that has led to new techniques and
methodology that fundamentally attend to do the following:-
    Improve productivity of analyst and programmer.
    Improve documentation which means subsequent
      enhancements.
    Cut down drastically on cost over runs and delays.
    Improve communications among the users, analyst,
      designers, and programmers.
    Standardize the approach to analysis and design.
    Simplify design by segmentation.
Software function overview:-


       In the existing manual system, the overall working
process is performed manually. The conversion of the manual


                               83
                       Online Tour Planner


system into an automated one is replaced by a table in the
SQL Server. Input format has changed into interactive input
forms and validations. The process has automated for relieving
the user from a critical burden.


Requirement analysis:
      Requirements Analysis is a software engineering task
that bridges the gap between system level requirements
engineering and software design.
      Requirements engineering activities result in the
specification of the software’s operational characteristics
(function, data and behavior), indicate software’s interface
with other system elements, and       establish constraints that
software must meet. The most commonly used requirements
technique is to conduct a meeting or interview. The first
meeting between a software engineer (the analyst) and the
customer can be linked to the awkwardness of a first date
between two adolescents. Neither person knows what to say
or ask; both are worried that they do say will be
misinterpreted; both are thinking about where it might lead
(both likely have radically differ ent expectations here); both
want to get the thing over with, but at the same time, both
want it to be a success. Gauss and Weinberg suggest that the
analyst start by asking CONTEXT FREE QUESTIONS. i.e. A set
of questions that will lead to a basic understanding of the
problem, the person who wants a solution, the nature of the
solution that is desired, and the effectiveness of the first
encounter itself.
       The goal of the requirements gathering activity is to
collect   all  relevant   information from       the   customer
requirements and the weeding out the incompleteness and
inconsistencies in these requirements. The requirements
analysis activities begin by collecting all relevant data
regarding the product that is to be developed from the users
of the product and from the customer through interviews and
discussions.


Client Desalination:


                                84
                            Online Tour Planner


    Firstly the client has to fill a form namely, the Registration Form..
    They are generally been identified by their Username and
     Password.
    No two users or clients can have the same Username.
    Only my members can Book Package/Car/Bus.



Input Requirements:

 1) For Client:- Details of the client like client name, address, gender,
    date of birth, city name, state, pin code, phone no, occupation etc.
 2) Package/Car/Bus Enquiry: - Information about Package/Car/Bus
    Name, Package/Car/Bus id, Tourist Place Name and its Price..
 3) Bank Info: - Bank Name, Credit car Number, Pin Number
 4) For Billing: - Details of customer, Details about Purchased Product.




Output Requirements:

1) On valid entry at the time of filling, the records of enquiry information
get stored in the specific table for future references.

2) On valid entry at the time of filling, the record of the customer/client
gets stored in the specific table for future references & a unique client
username is generated for that client.
3) On valid entry at the time of payment, the bill details get stored in a
specific table & similarly all other information also.

Functional Requirement:
1). Credit Card number should be an integer and valid.
2). Pin number should be an integer and valid.
3). Booking id should be numeric and valid
4). Date should be entered in proper format [mm/dd/yyyy]


                                     85
                         Online Tour Planner



5) While searching Package/Car/Bus details, proper names for searching
must be provided


External Interface Requirements:

  The user interface of software is responsible for all the
interactions with the user. Almost software has a user
interface. Many users judge a software product based on its
user interface.
An interface that is difficult to use leads to higher level of user
errors and ultimately leads to user dissatisfaction. Users
become particularly irritated when a system behaves in
unexpected ways. i.e. Issued commands do not carryout
actions according to the intuitive expectations of the user.
Therefore, sufficient care and attention should be paid to the
design of the user interface of any software product.
Development of a good user interface usually takes significant
portion of the total system development efforts.
This software is developed keeping in mind the basic
characteristics of a good user interface. Some features of this
software can be stated as:-
    It is very easy to learn. It does not require its users to
      memorize commands. Neither the users are asked to
      remember information from one screen to another while
      performing various tasks using the interface.
    The time and user effort necessary to initiate and
      execute different commands is minimal.
    It is very attractive to use. It catches user attention and
      fancy. It is a Graphical-Based User Interface.
    The users can seek guidance and online help when they
      either for get a command or are unaware of some
      features of the software.


Performance Constraints
 For 100 entries in the database, it takes 2-3 seconds
approximately.



                                  86
                      Online Tour Planner


Design Constraint
1). Software Constraints: The software is to run under
Windows-XP Operating System or above versions.
2). Hardware Constraints: The software will run on an Intel
Workstation with 256 or above MB RAM, running on Windows-
XP version or above.




Acceptance Criteria
        Before finally implementing the software at the user’s
site, the developer must demonstrate that the system works
on the source data and other information. The developer will
have to show through Test Cases that all the conditions and
requirements are satisfied.




WWW.PROJECTWORLD.IN



                               87
       Online Tour Planner




   Database
    Design




WWW.PROJECTWORLD.IN




                88
                    Online Tour Planner


Table: Member


   Columns         Data type              Length   Allow nulls
   Email_id        Varchar                20
   Firstname       Varchar                30
   Lastname        Varchar                30
   Address1        Varchar                20
   Address2        Varchar                13         
   City            Varchar                40
   State           Varchar                30
   Country         Varchar                30
   Pincode         Varchar                30         
   Landlinephone   Varchar                8          
   Mobilephone     Varchar                20         
   Title           Char                   6
   DOB             Date time              18
   Membership_date Date time              18




WWW.PROJECTWORLD.IN

                               89
       Online Tour Planner




WWW.PROJECTWORLD.IN

WWW.PROJECTWORLD.IN




                90
                   Online Tour Planner


Table: login


 Column name      Data type              Length   Allow null
Email_id          Varchar                  30
Pwd               Varchar                  256
 Password_hint    Varchar                  13         
Usertype          Varchar                  100        




Table: Accounts
Columns           Data type          Length       Allow Nulls
Email_id           Varchar             30
Payment             Numeric            30
Date               Datetime            18
Payment_mode       Varchar             50
Booking_id         Numeric             9




WWW.PROJECTWORLD.IN

                            91
                    Online Tour Planner




Table: Bookings

   Columns          Data              Length    Allow
                  Type                          nulls
   Booking_mode     Varchar               20
   Email_id         Varchar               50
   Date             Datetime              18
   Booking_id      Numeric                 9




Table: Buses

   COLUMN         DATATYPE            LENGHT    ALLOW
   NAME                                         NULL
     Bus_id            Varchar            30
     Dep_city          char               30
     Des_city          char               9
     City_id           Numeric            17
    Bus_mode           Varchar             9
     Rent              Numeric            10
    dep_date           Datetime            8
    ret_date           Datetime            18
     Time              Varchar            15
    Capacity           Numeric            18
    travel_mode        Varchar            30




                             92
                     Online Tour Planner




WWW.PROJECTWORLD.IN




Table: Cancel_book

   Column            Data                  Length     Allow
   Name             type                            null
    booking_id         Varchar               20
    Booking_mode       Varchar               30
     Cancel_Date                             8
                    Datetime
       Cost             Numeric              12
      Deduction         Numeric              12
     email_id           Varchar              30
     booking_date                            18
                    Datetime




Table: Cars

   Column            Data                  Length    Allow
   name             type                            null
   Car_id             Varchar                20
   car_mode           Varchar                20
   car_name           Char                   20
   City_id           Numeric                 18


                               93
                        Online Tour Planner


     Date                Date time             20
     car_rent            Numeric               17




Table: Cities

     Column            Data                Length    Allow
     Name             type                          Null
      City_id           Numeric               13
      country_id        Varchar               50
      Name              Varchar               25




Table: country

     Field         Data Type               Length   Allow Null
     Name
     Country_id    Varchar            13
     cruises_id    Numeric            13
     Name          Varchar            30
     Capital       Varchar            80




Table: Cruise


Field              Data Type          Size          Allow Null
Cruise_id          Varchar            13


                                 94
                        Online Tour Planner


Cruise_name        Varchar            50
Cruise_Agency      Varchar            50
cruise_country     Varchar            50




Table: Distance


Field              Data Type          Size          Allow Null
route_id           Numeric            13
city_between       Varchar            50
Distance           Numeric            50



Table: Hotel
Columns               Data type            Length      Allow Nulls
Hotel_id               Numeric               30
Name                   Varchar               30
Address                Varchar               30
Phone_no               Numeric               30
Email_id               Varchar               20
Rating                 Varchar                8
City_id                Numeric               30
Website_address        Varchar               50
Type                   Varchar               10



Table: Packages
Columns               Data type            Length      Allow Nulls
Package_id             Numeric               30
Duration               Varchar               30
special_services       Varchar               30

                                 95
                       Online Tour Planner


      Tourist_place         Varchar           30
      Package_Type          Varchar            8
      P_name                Varchar           30             
      issue_date            Date time         10
      Cost                  Numeric           9

Table: Route
Columns               Data type          Length    Allow Nulls
Route_id               Numeric             30
Source                 Varchar             30
Destination            Varchar             30
Distance_km            Numeric             30
r_map                  Varchar              8




Table: TouristSpots
Columns               Data type          Length    Allow Nulls
T_sname                 Varchar            30
City_id                 Numeric            30
Country_id             Varchar             30
TouristSpots_id        Varchar             30
Spot_mode              Varchar             18




                                96
                     Online Tour Planner




Table: TravelAgencies
Columns                Data type           Length   Allow Nulls
TravelAgency_id         Numeric              30
TravelAgency_name       Varchar              30
Address                 Varchar              30
Phone_no                Numeric              30
Email_id                Varchar              20
Mode_of_transportation  Varchar              18
State_id                Varchar              30
City_id                 Numeric              50
Scope_mode              Varchar              10




WWW.PROJECTWORLD.IN




                              97
                        Online Tour Planner




            User Interface Design
User Based Interface


Introduction
    The user interface portion of a software product is
responsible for all interactions with the user. In the early days
of the computer, no software product had any user interface.
    Now, i know that things are very different almost every
software product is highly interactive. No wonder then that
many users often judge a software product based on its user
interface.
Normally, when a user starts using a system, he builds a
mental model of the system and expects the system behavior
to conform to it.

A User Interface Design Methodology

    At present, no systematic methodology is available that
can be followed by route to come up with a good user
interface.
Even through almost all-popular GUI design, methodologies
are User – Centered design. It is the theme of almost all
modern user interface techniques. However, the user-centered
design does not mean design by user. One should not get the
users opinion of which design alternative is superior is always
right.


Characteristics of a good User Interface

                                 98
                       Online Tour Planner



Systematic development of the user interface is also important
from another consideration.
Development of a good user interface usually takes significant
portion of the total system development effort.
In the following, i identify a new important characteristic of a
good User Interface: -
Firstly, the client would be interested to know various sorts of
information available i.e. about various types of services like
different Package/Car/Bus.
 In addition, they would like to get information regarding price
and discounts.

     A part from all these kind of information the clients may
also be interested in knowing about special services, help,
giving their views/suggestions or complaints.
If the customer is interested and want to purchase book, they
can do so if they have an account, just that they need to sign
into my website. When the new user Sign’s on then it must
provide following details: -

     Name
     Password.
     Email Id.
     Name of the City.
     Name of the State.
     Address
     Pin Code No.
     Gender
     Telephone No

User Interface: After the user/client Signs in, he/she can Book
Package/Car/Bus Online if he/she has an account. For this
purpose, he has to choose the item that he wants to Book.
Then an Online payment Form will be displayed, where the
user must specify the following information: -

1). Credit Card Number
2) Pin Number



                                99
                      Online Tour Planner


Based on above given information, amount will be deducted
from the bank account with the help of payment gateway, a
message would be flashed that you have purchased
book/magazine successfully and receipt would be generated.

Speed of learning: A good user interface should be easy to
learn. The speed of learning is hampered by complex syntax
and semantics of the command issue procedures. A good user
interface should neither require its users to memorize
command nor to remember information from one
screen to another while using the interface services. Besides,
the following three issues are crucial to enhancing the speed
of learning.

Speed of use:      The speed of use of user interface is
determined by the time and effort required to initiate and
execute different commands. This characteristic of the
interface is sometimes referred to as productivity support of
the interface.
It indicates how fast the users can perform their intended
tasks. The time and effort required to initiate and execute
different command should be minimal.
Speed to recall: Once the user learn how to use an interface
the speed with which they can recall the command issue
procedure should be maximized.
Error prevention: A good user interface should minimize the
scope of committing error while initiating different command.

The error rate of an interface can be easily determined by
monitoring the error committed by a user while using the
interface.
Attractiveness: A good user interface should be attractive to
use. An attractive user interface catches user attention and
fancy. In this respect, graphics based user interface have a
definite advantage over the text based interface.
Consistency: The commands supported by a user interface
should be consistent. The basic purpose of consistency is to




                              100
                      Online Tour Planner


help the users to generalize the knowledge of aspects of the
interface from one part to another.

Feedback: A good user interface must provide feedback to
various user actions.
Especially if any user request takes more than a few seconds
to process, the user should be informed about the state of the
processing of his request.




WWW.PROJECTWORLD.IN




                              101
                        Online Tour Planner




               Testing




Testing Techniques

    Testing is the process of executing a program with the goal
of finding errors in it. Software testing aims at eliminating
program errors. This is a demanding and time consuming task,
since designers cannot confirm 100 percent accuracy. The
system can be made to undergo a “fail test” cycle, which helps
in determining what make it fail. A test is said to be successful
if it finds errors.

Testing types:
          1. UNIT TESTING

          2. INTEGRATED TESTING

          3. VALIDATION TESTING




                                102
                       Online Tour Planner


          4. SYSTEM TESTING

UNIT TESTING: -

        Unit testing is a software verification and validation
method where the programmer gains confidence that
individual units of source code are fit for use. A unit is the
smallest testable part of an application. In procedural
programming a unit may be an individual program, function,
procedure, etc., while in object-oriented programming, the
smallest unit is a method, which may belong to a base/super
class, abstract class or derived/child class.

The goal of unit testing is to isolate each part of the program
and show that the individual parts are correct. A unit test
provides a strict, written contract that the piece of code must
satisfy. As a

result, it affords several benefits. Unit tests find problems
early in the development cycle.

INTEGRATED TESTING: -

            'Integration testing’ is the activity of software
testing in which individual software modules are combined and
tested as a group. It occurs after unit testing and before
system testing.

Integration testing takes as its input modules that have been
unit tested, groups them in larger aggregates, applies tests
defined in an integration test plan to those aggregates, and
delivers as its output the integrated system ready for system
testing.

VALIDATION TESTING: -

              V & V are very popular among software
developers. It stands for verifications and validation of
software. Verification implies – are i building right? I have
been testing this all along the previous tests, now its time for


                               103
                         Online Tour Planner


 validation testing i.e. - are i build the right product? It means i
 will be checking that whether my software is able to meet the
 requirement of end users.

 SYSTEM TESTING:-

                 In system testing, performance and acceptance
 standards are developed. Standard performance or services
 interruption that results in system failure are checked during
 the test. The purpose of the system testing is to identify and
 checks errors in the system.


             A                                                 F




         B                   C
                                                   G           H       I


                 D

                                               J       K   L       M       N
                     E


WHY SOFTWARE TESTING IS IMPORTANT


      After testing the performance of the project, user can find
any type of problem in his/her, project if there is any.

Testing Objective:
Rules that can serve well as testing objectives:

        Testing is a process of executing a program with the
         intent of finding errors.

        A good test case is one that high probability of finding
         an as-yet discovered error.


                                 104
                       Online Tour Planner



      
       WWW.PROJECTWORLD.
       IN
       A successful test is one that uncovers all undiscovered
        error.


Testing Principles:

     Testing should begin "in small” and progress towards
      testing "in the large".’

     All tests should be traceable to traveler requirements.

     To be most effective, an independent third party should
      conduct testing.

     Tests should be planned long before testing actually
      begins.

     Exhaustive testing is not possible.




    VALIDATION AND TESTING IN THIS
                         PROJECT


    Basically two types of testing are used which are BLACK
 BOX TESTING & WHITE BOX TESTING. Where BLACK BOX
 testing used for the whole project to check whether each
 module is working properly or not, Whereas WHITE BOX
 testing is used to test the internal working of modules.


                               105
                        Online Tour Planner



   The different modules are tested independently in Unit
testing. Functions in the module that call internally are tested,
and their proper declaration is checked. The expected output
and the generated output of each module is matched properly
The data extraction, processing and storage of data in the
database is correct.


   All the enquiries give correct results and the reports
generate appropriate and useful information.


    The project contains proper messaging for each mistake
that may be committed by the user.




WWW.PROJECTWORLD.IN

                                106
                   Online Tour Planner




               TEST CASES
TEST CASE-1


               Test no:    1

              Test type:   Unit testing

              Objective:    User authentication

                 Input:     Login/password

       Excepted output:     Access to authorized users

         Actual output:     Authentication successful

                 Result:         Access to authorized users
only



TEST CASE-2



               Test no:      2



                           107
                      Online Tour Planner


                 Test type:     Unit testing

                 Objective:     To store valid data in table

                     Input:     Data entry in various forms

                 Excepted:             Output: Successful data
storing

                    Actual:        Output: Storage successful

                   Results:        Data stored in table




TEST CASE- 3


                  Test no:     3

                Test type:     Unit testing

                Objective:               Package/Hotel/Bus/Car
searching

                    Input:     Package/Hotel/Bus/Car details

          Excepted output:     Searched details

            Actual output:     Search completed successfully

                   Result:     Package/Hotel/Bus/Car found



TEST CASE-4


                 Test no:     4.

               Test type:     Unit testing.




                               108
                           Online Tour Planner


                  Objective:    Package/Hotel/Bus/Car Booking.

                     Input:        Package/Hotel/Bus/Car Id and
A/C details.

         Excepted output:          Package/Hotel/Bus/Car Booked
for   valid user.

    Actual output:               Package/Hotel/Bus/Car      Booked
successfully.

                Results:      Package/Hotel/Bus/Car Booked for
valid user.




TEST CASE-5

                   Test no:       5

                  Test type:      Unit testing.

                  Objective:      Cancel Booking.

                     Input:       Booking ID.

        Excepted output:         Cancel Booking.

              Actual output:      Cancelled.

                   Results:       Cancelled successfully.



TEST CASE-6

                   Test no:       6

                  Test type:    Unit testing



                                   109
                         Online Tour Planner



              Objective:       To Add/Remove Package/Car/Bus

                     Input:    Package/Car/Bus detail

       Excepted output:        Package/Car/Bus Added/Removed

           Actual    output:               Record   Added/Deleted
successfully

                Results:        Query successful




TEST CASE-7



                    Test no:    7

               Test type:       Unit testing

               Objective:        User’s record updation

                     Input:     User details

        Expected output:        Update records of users

          Actual output:         Record updated successfully

                Results:        Updated




TEST CASE-8


                Test no:        8


                                 110
                      Online Tour Planner



               Test type:    System testing

               Objective:     Successful functioning of entire
system

                   Input:    Data entry

         Excepted Output:    Correctly worked and functioned

                 Results:    Running successfully




WWW.PROJECTWORLD.IN




                              111
                      Online Tour Planner


           System Maintenance

      The analysts and programmers spend much time in
maintaining programs than they do in developing them.
Maintaining takes up around 50-80 percent of the total system
resources and time. Through the cost of the hardware has
continuously declined, the cost of developing programs has
increased considerably.
Other problems include:-
    Lack of good test plan.
    Non- availability of sufficient tools.
    Maintenance problem or cost of maintaining.
    Perception that maintenance requires neither experience
      nor skills.
    Poorly defined standards, procedures and guidelines.
    Delegation of the maintenance job to junior programmer
      considering it as a necessary evil.
    Maintenance       of   programs      without giving  any
      consideration to structure and documentation.

  System Maintenance Objectives:

  The fundamental objectives of system maintenance
  are:

   To complete the system modification tasks at the earliest
    without compromising with system reliability and quality.
   To preserve those programs that were correct and to
    avoid the possibility that fixes applications and causes
    other aspects of those applications to behave differently.
   To react proactively to affect change to existing
    applications, to correct error or bugs detected during
    systems implementation or operation.
   To avoid degradation of system performance




                              112
          Online Tour Planner




            Gather Change




            Analyze Change




         Device Code Change




          Apply Code Change
         Strategies to the Old
                 One




Update                          Integrate




                  113
                       Online Tour Planner




                       Error List
    “Invalid Password or Username”-

 If the password or username is incorrect at the time of start-
up then it will generate an error message. Only authorized
users are allowed to use the software.

   “Field cannot be left blank!”-

If the mandatory fields of the form are left blank, then it will
generate an error message.

   “Minimum 6 characters!”

 Password should be of minimum six characters.

   “Invalid card Number!”

 Card no must be a valid 16-digit number.

   “Invalid Pin!”

Pin number must be a valid 4-digit number.

   “Invalid Postal code!”

Postal code must be a valid 6-digit number.

   “Invalid email!”

E-mail address should be entered in proper format.




                               114
                       Online Tour Planner




WWW.PROJECTWORLD.IN


        Security Implementation

       The first point where the software needs to be secure is
at the time of start-up i.e., while logging in to the system. So
that only the authorized users can access the software and the
secured information, an initial password is applied with the
software; the user(administrator) can change the password for
his convenience. For each user(Customer), an unique name
and password is maintained. The password gets stored into
the database that is maintained for storing the names along
with the password in the encrypted form by following some
algorithm.

      The algorithm needs to be kept secret. The database
maintains a security question and answer (encrypted) for each
user at the time of registration. This can be referred in case a
user forgets his password thereby maintaining the security of
his/her account.
Therefore, ENCRYPTION technique is the key for monitoring
security & authenticity of the software that maintains and
stores the personal details of several nos. of client.




                               115
       Online Tour Planner




    CODING


WWW.PROJECTWORLD.IN




               116
                     Online Tour Planner




           MEMBERSHIP FORM

Imports System.Security.Cryptography
Imports System.Data.SqlClient


Partial Class _Default
    Inherits System.Web.UI.Page
    Private Function pas(ByVal s As String)
        Dim h(5) As Byte
        Dim ue As New UnicodeEncoding
        Dim mb As Byte() = ue.GetBytes(s)
        Dim sh As New MD5CryptoServiceProvider
        h = sh.ComputeHash(mb)
        Dim b As Byte
        s = b.ToString
        For Each b In h
             s = s + b.ToString
        Next
        Return s
    End Function

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        '------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
--------------
        'query for cheking the availability or validation
of email_id enter by member
Try
Dim   c  As   SqlConnection  =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
            Dim e_mail As String
            e_mail = TextBox13.Text
            Dim dr As SqlDataReader

Dim com2 As SqlCommand = New SqlCommand("select Email_id
from Login where Email_id=@e_mail", c)
com2.Parameters.AddWithValue("@e_mail", TextBox13.Text)


                             117
                       Online Tour Planner

           dr = com2.ExecuteReader
           If dr.HasRows = True Then
                Label29.Visible = True
                Label30.Visible = False
           Else
                Label29.Visible = False
                Label30.Visible = True


           End If
           c.Close()

       Catch ex As Exception

            MsgBox("temporary service unavailable")
        End Try
        'over
        '------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
-------
    End Sub
    'updation of tables MEMBER and LOGIN by member
information and login information


Protected Sub Button1_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button1.Click
        'declaration of variables
        Dim f_n As String
        Dim ln As String
        Dim mob As String
        Dim title As String
        Dim landline As String
        Dim dob As Date
        Dim add1 As String
        Dim add2 As String
        Dim city As String
        Dim state As String
        Dim country As String
        Dim pin As String
        Dim membershipdate As Date
        Dim e_mail As String
        Dim passwd As String
        Dim passwd_hint As String
        Dim user_type As String
        'over


                               118
                     Online Tour Planner

        '------------------------------------------------
---------------------------------------------------------
----
        'initialising value to variables
        f_n = TextBox3.Text
        ln = TextBox4.Text
        mob = TextBox5.Text
        landline = TextBox6.Text
        title = DropDownList5.SelectedItem.Text
        add1 = TextBox8.Text
        add2 = TextBox7.Text
        city = TextBox9.Text
        state = DropDownList6.SelectedItem.Text
        country = DropDownList4.SelectedItem.Text
        pin = TextBox12.Text
        e_mail = TextBox13.Text
        passwd = TextBox11.Text
        passwd_hint = TextBox10.Text
        user_type = TextBox15.Text

        membershipdate = Date.Today
        'over
        '------------------------------------------------
---------------------------------------------------------
------------
        'changing the value get from three dropdownlist
into date of birth
        Try




dob   =   CDate(DropDownList2.SelectedValue   &   "/"   &
DropDownList1.Text & "/" & DropDownList3.SelectedValue)
        Catch ex As Exception

            MsgBox("invalid date of birth")
        End Try
        'over
        '------------------------------------------------
---------------------------------------------------------
-------------
        '------------------------------------------------
---------------------------------------------------------
----------------------------------
        'code for encrypting the password



                             119
                       Online Tour Planner

        '------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
------------------------

        'query   for   inserting     member   info   into   member
table



Try
Dim   c  As   SqlConnection   =  New   SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
Dim com As SqlCommand = New SqlCommand("insert into
Member
values(@ln,@f_n,@add1,@add2,@city,@state,@country,@pin,@l
andline,@mob,@dob,@title,@e_mail,@membershipdate)", c)
com.Parameters.AddWithValue("@f_n", TextBox3.Text)
com.Parameters.AddWithValue("@ln", TextBox4.Text)
com.Parameters.AddWithValue("@mob", TextBox5.Text)
com.Parameters.AddWithValue("@landline", TextBox6.Text)
com.Parameters.AddWithValue("@dob",CDate(DropDownList2.Se
lectedValue   &   "/"  &   DropDownList1.Text   &  "/"   &
DropDownList3.SelectedValue))
com.Parameters.AddWithValue("@title",
DropDownList5.SelectedItem.Text)
com.Parameters.AddWithValue("@e_mail",TextBox13.Text)
com.Parameters.AddWithValue("@add1", TextBox8.Text)
com.Parameters.AddWithValue("@add2", TextBox7.Text)
com.Parameters.AddWithValue("@city", TextBox9.Text)
com.Parameters.AddWithValue("@state",DropDownList6.Select
edItem.Text)
com.Parameters.AddWithValue("@country",DropDownList4.Sele
ctedItem.Text)
com.Parameters.AddWithValue("@pin", TextBox12.Text)

com.Parameters.AddWithValue("membershipdate",Date.Today)
com.ExecuteNonQuery()


            'over
            '--------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
--


                               120
                        Online Tour Planner

            'query   for  inserting           the   member   login
information into login table


            c.Close()
            c.Open()

Dim com1 As SqlCommand = New SqlCommand("insert into
Login
values(@e_mail,@passwd,@passwd_hint,@user_type)", c)
com1.Parameters.AddWithValue("@e_mail",TextBox13.Text)
com1.Parameters.AddWithValue("@passwd",pas(TextBox11.Text
))

com1.Parameters.AddWithValue("@passwd_hint",TextBox10.Tex
t)

com1.Parameters.AddWithValue("@user_type",TextBox15.Text)

com1.ExecuteNonQuery()

c.Close()

            'over
            '--------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
----
            'query for checking the availability of
e_mail id by member


            c.Open()


Dim dr As SqlDataReader

Dim com2 As SqlCommand = New SqlCommand("select Email_id
from Login where Email_id=@e_mail", c)
com2.Parameters.AddWithValue("@e_mail",TextBox13.Text)
            dr = com2.ExecuteReader
            If dr.HasRows = True Then
                 Label29.Visible = True
            Else
                 Label29.Visible = False
                 Label30.Visible = True



                                121
                        Online Tour Planner



               End If



               c.Close()
               Session.Item("Register") = True
               Response.Redirect("afterregister.aspx")

         Catch ex As Exception

         End Try


     End Sub

 Protected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
         TextBox3.Focus()




     End Sub
     End Class




 WWW.PROJECTWORLD.IN




                                122
                     Online Tour Planner


                   LOGIN PAGE

Imports System.Data.SqlClient
Imports System.Security.Cryptography
Partial Class Default2
    Inherits System.Web.UI.Page
    Private Function pas(ByVal s As String)
        Dim h(5) As Byte
        Dim ue As New UnicodeEncoding
        Dim mb As Byte() = ue.GetBytes(s)
        Dim sh As New MD5CryptoServiceProvider
        h = sh.ComputeHash(mb)
        Dim b As Byte
        s = b.ToString
        For Each b In h
             s = s + b.ToString
        Next
        Return s
    End Function
    Protected Sub Button1_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button1.Click
        Panel8.Visible = True
        TextBox1.Focus()
    End Sub

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Panel8.Visible = False
        Response.Redirect("Home1.aspx")
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click,
TextBox2.TextChanged
        '------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
-------------
        'declaration of variables
        Dim em As String
        Dim p As String
        'Dim u As String
        Dim dr As SqlDataReader
        '------------OVER-------------------------




                             123
                     Online Tour Planner

        '------------------------------------------------
---------------------------------------------------------
---------------------------------------------------------
-------------------------------
        'INITIALISING VALUES TO VARIABLES
        em = TextBox1.Text
        p = TextBox2.Text
        'u = RadioButtonList3.SelectedItem.Text

        Session("a") = TextBox1.Text
        '----------------------OVER----------------------
-----------------------------------------
        '------------------------------------------------
---------------------------------------------------------
        '---------ESTABLISHING CONNECTION TO DATABASE----
---------------------------------------------------------
--------------------------------------------------------
        '-------------AND FIRING THE QUERY---------------
---------------------------------------------
        Try
            Dim     c    As    SqlConnection     =     New
SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()

            Dim     com    As     SqlCommand    =     New
SqlCommand("select Email_id,Pwd,usertype from Login where
Email_id=@em and Pwd=@p ", c)

            com.Parameters.AddWithValue("@em",
TextBox1.Text)
            com.Parameters.AddWithValue("@p",
pas(TextBox2.Text))
            'com.Parameters.AddWithValue("@u",
RadioButtonList3.SelectedItem.Text)
            dr = com.ExecuteReader()
            '---------------------OVER-------------------
---------------------------------------------------------
----------------------------------------------
            If dr.HasRows Then

                dr.Read()
                If dr.Item("usertype") = "admin" Then
                     Response.Redirect("Admin.aspx")
                Else
                     Response.Redirect("myprofile.aspx")


                             124
                          Online Tour Planner

                     End If

              Else

                  Label30.Visible = True
              End If



            dr.Close()
            c.Close()
            ' Response.Redirect("myprofile.aspx")
        Catch ex As Exception


        End Try



    End Sub




    Protected                                           Sub
RadioButtonList2_SelectedIndexChanged(ByVal    sender    As
Object,    ByVal    e    As    System.EventArgs)    Handles
RadioButtonList2.SelectedIndexChanged
        If       RadioButtonList2.SelectedItem.Text       =
"International" Then
             Panel13.Visible = True
        Else
             Panel13.Visible = False
        End If
    End Sub

    Protected Sub LinkButton20_Click(ByVal sender As
Object,    ByVal   e    As    System.EventArgs)   Handles
LinkButton20.Click
        Dim p_name As String = LinkButton20.Text
        Session("p_name") = LinkButton20.Text
        Session("type") = "Package"
        Dim dr3 As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")


                                  125
                     Online Tour Planner

        c.Open()
        Dim com3 As SqlCommand = New SqlCommand("select
Cost from Packages where P_name=@p_name", c)
        com3.Parameters.AddWithValue("@p_name",
LinkButton20.Text)
        dr3 = com3.ExecuteReader
        dr3.Read()
        If dr3.HasRows Then
            Session("cost") = dr3("Cost")
        End If
        dr3.Close()
        c.Close()

       If Session("a") = "" Then
            Response.Redirect("membership.aspx")
       Else
            Response.Redirect("bookingform.aspx")
       End If


    End Sub
    Protected Sub Page_Load(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Me.Load

    End Sub
End Class




WWW.PROJECTWORLD.IN




                             126
                     Online Tour Planner


    CODING FOR VIEW/UPDATE
            PROFILE

Protected Sub ImageButton3_Click(ByVal sender As Object,
ByVal e As System.Web.UI.ImageClickEventArgs) Handles

ImageButton3.Click
        Panel14.Visible = False
        Panel201.Visible = False
        Panel13.Visible = True
        Dim id As String = Label6.Text
        Dim dr As SqlDataReader

Dim   c  As   SqlConnection  =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()


Dim   com   As   SqlCommand   =   New  SqlCommand("select
Lastname,Firstname,Address1,Address2,city,state,country,P
incode,Landlinephone,Mobilephone,DOB,Title,Membership_dat
e from Member where Email_id=@id", c)

com.Parameters.AddWithValue("@id", Label6.Text)
        dr = com.ExecuteReader
        dr.Read()
    DropDownList7.SelectedItem.Text = dr("Title")
        TextBox1.Text = dr("Firstname")
        TextBox2.Text = dr("Lastname")
        TextBox8.Text = dr("Address1")
        TextBox12.Text = dr("Address2")
        TextBox7.Text = dr("City")
        TextBox9.Text = dr("Pincode")

 DropDownList8.SelectedItem.Text = dr("state")
 DropDownList6.SelectedItem.Text = dr("country")
        TextBox6.Text = dr("Landlinephone")
        TextBox5.Text = dr("Mobilephone")
        TextBox3.Text = dr("DOB")
        dr.Close()
        c.Close()
End Sub


                             127
                     Online Tour Planner


       CODING FOR VIEW BOOKING


Panel13.Visible = False
        Panel201.Visible = False
        Panel14.Visible = True
        'Dim dr As SqlDataReader
        'Dim email_id As String = Label8.Text
        'Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        'c.Open()
        'Dim com As SqlCommand = New SqlCommand("select *
from Accounts where Email_id=@email_id", c)
        'com.Parameters.AddWithValue("@email_id",
Label8.Text)
        'dr = com.ExecuteReader()
        'If dr.HasRows() Then
        '    GridView1.DataSource = dr
        '    GridView1.DataBind()

       'End If
       'dr.Close()
       'c.Close()




WWW.PROJECTWORLD.IN




                             128
                     Online Tour Planner




   CODING FOR CHANGE LOGIN INFO

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
         Dim id As String = TextBox16.Text
         Dim new_mail As String = TextBox15.Text
         Dim new_pass As String = TextBox13.Text
         Dim pass_h As String = TextBox10.Text
Dim   c   As   SqlConnection   =  New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
         c.Open()
Dim com2 As SqlCommand = NewSqlCommand("update login set
Email_id=@new_mail,Pwd=@new_pass,Password_hint=@pass_h
where Email_id=@id", c)
com2.Parameters.AddWithValue("@id", TextBox16.Text)
com2.Parameters.AddWithValue("@new_mail",TextBox15.Text)
com2.Parameters.AddWithValue("@pass_h",TextBox10.Text)
com2.Parameters.AddWithValue("@new_pass",TextBox13.Text)
        com2.ExecuteNonQuery()
         c.Close()
         c.Open()
Dim com3 As SqlCommand = New SqlCommand("update Member
set Email_id=@new_mail where Email_id=@id", c)
         com3.Parameters.AddWithValue("@id",
TextBox16.Text)
         com3.Parameters.AddWithValue("@new_mail",
TextBox15.Text)
         com3.ExecuteNonQuery()
         Session("a") = new_mail
         c.Close()
    End Sub




                             129
                       Online Tour Planner




WWW.PROJECTWORLD.IN


              CODING FOR BOOKING

Protected Sub LinkButton20_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles LinkButton20.Click
        Dim p_name As String = LinkButton20.Text
        Session("p_name") = LinkButton20.Text
        Session("type") = "Package"
        Dim dr3 As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com3 As SqlCommand = New SqlCommand("select
Cost from Packages where P_name=@p_name", c)
        com3.Parameters.AddWithValue("@p_name",
LinkButton20.Text)
        dr3 = com3.ExecuteReader
        dr3.Read()
        If dr3.HasRows Then
            Session("cost") = dr3("Cost")
        End If
        dr3.Close()
        c.Close()

          If Session("a") = "" Then
               Response.Redirect("membership.aspx")
          Else
               Response.Redirect("bookingform.aspx")
          End IF
End Sub

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page


                               130
                     Online Tour Planner

    Dim booking_id As Integer
  Protected Sub Page_Load(ByVal sender As Object, ByVal e
As System.EventArgs) Handles Me.Load
        If Session("a") = "" Then
             Response.Redirect("membership.aspx")
        End If
        'Dim dr1 As SqlDataReader
Dim   c   As   SqlConnection  =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim   com1   As   SqlCommand   =   New  SqlCommand("select
max(Booking_id) from Bookings", c)
        booking_id = com1.ExecuteScalar
        booking_id = booking_id + 1
        'If dr1.HasRows = True Then
        '     booking_id = dr1("Booking_id")
        '     booking_id = booking_id + 1
        'End If

        c.Close()
        TextBox1.Text = Session("a")
        TextBox2.Text = Session("cost")
        TextBox11.Text = Session("type")
        TextBox8.Text = Session("p_name")


    End Sub

    Protected Sub ImageButton3_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton3.Click

        'Dim e_id As String = Session("a")
        Dim pay As String = Session("cost")
        Dim dat As String = Date.Today
        Dim book_mode As String = TextBox11.Text
Dim payment_mode As String =
RadioButtonList2.SelectedItem.Text

Dim   c   As   SqlConnection =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
         c.Open()
Dim com As SqlCommand = New SqlCommand("insert into
Accounts
values(@e_id,@booking_id,@dat,@payment_mode,@pay)", c)


                             131
                       Online Tour Planner

 com.Parameters.AddWithValue("@e_id", Session("a"))
 com.Parameters.AddWithValue("@booking_id",booking_id)
  com.Parameters.AddWithValue("@dat", Date.Today)
        com.Parameters.AddWithValue("@payment_mode",
RadioButtonList2.SelectedItem.Text)
com.Parameters.AddWithValue("@pay", Session("cost"))
        com.ExecuteNonQuery()
        c.Close()
        c.Open()
Dim com1 As SqlCommand = New SqlCommand("insert into
Bookings values(@booking_id,@dat,@e_id,@book_mode)", c)
com1.Parameters.AddWithValue("@booking_id", booking_id)
com1.Parameters.AddWithValue("@e_id",TextBox1.Text)
com1.Parameters.AddWithValue("@dat", Date.Today)
com1.Parameters.AddWithValue("@book_mode",TextBox11.Text)

          com1.ExecuteNonQuery()
          c.Close()

End Sub


End Class




WWW.PROJECTWORLD.IN




                               132
                     Online Tour Planner




       CODING FOR QUERY SEARCH

Partial Class _Default
    Inherits System.Web.UI.Page
Protected Sub ImageButton3_Click(ByVal sender As Object,
ByVal e As System.Web.UI.ImageClickEventArgs) Handles
ImageButton3.Click
        Panel10.Visible = True
        Dim dat As String = TextBox1.Text
        Dim dr As SqlDataReader
Dim   c  As   SqlConnection  =    New   SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com As SqlCommand = New SqlCommand("select
car_mode,car_rent,car_name   from    Cars   where   City_id
=(select City_id from Cities where Name=@city) and
date=@dat", c)
com.Parameters.AddWithValue("@city",RadioButtonList3.Sele
ctedItem.Text)
        com.Parameters.AddWithValue("@dat",
TextBox1.Text)
        dr = com.ExecuteReader()
        If dr.HasRows Then
            GridView1.DataSource = dr
            GridView1.DataBind()
        End If
        dr.Close()
        c.Close()



                             133
                     Online Tour Planner

    End Sub
    Protected Sub ImageButton1_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton1.Click
        Calendar1.Visible = True

    End Sub

    Protected Sub Calendar1_SelectionChanged(ByVal sender
As   Object,  ByVal   e   As   System.EventArgs)  Handles
Calendar1.SelectionChanged
        TextBox1.Text = Calendar1.SelectedDate.Date
    End Sub




          CODING FOR BUS QUERY

Imports System.Data.SqlClient
Partial Class Default5
    Inherits System.Web.UI.Page



Protected   Sub    ImageButton3_Click(ByVal    sender   As
Object,ByVale    As     System.Web.UI.ImageClickEventArgs)
Handles ImageButton3.Click

Panel10.Visible = True
Dim dep_city As String = DropDownList1.SelectedItem.Text
        Dim       des_city        As       String        =
DropDownList2.SelectedItem.Text
        Dim dep_date As String = TextBox3.Text

        Dim        bus_time        As       String      =
DropDownList3.SelectedItem.Text
        Dim        passenger       As       String      =
DropDownList5.SelectedItem.Text
        Dim b_id As String
        Dim curr_capacity As Integer
        Dim t_mode As String
        If RadioButton1.Checked = True Then
             t_mode = RadioButton1.Text
        Else


                             134
                     Online Tour Planner

            t_mode = RadioButton2.Text
            Dim ret_date As Date = TextBox5.Text
        End If
        Dim dr As SqlDataReader
        Dim dr4 As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")


        c.Open()
Dim   com    As  SqlCommand   =   New   SqlCommand("select
Bus_id,Dep_city,Des_city,Bus_mode,Rent,dep_date,ret_date,
time    from    Buses   where    Dep_city=@dep_city    and
des_city=@des_city     and      dep_date=@dep_date     and
time=@bus_time and travel_mode=@t_mode", c)
com.Parameters.AddWithValue("@dep_city",DropDownList1.Sel
ectedItem.Text)
com.Parameters.AddWithValue("@des_city",DropDownList2.Sel
ectedItem.Text)
com.Parameters.AddWithValue("@dep_date", TextBox3.Text)

com.Parameters.AddWithValue("@bus_time",DropDownList3.Sel
ectedItem.Text)
com.Parameters.AddWithValue("@passenger",DropDownList5.Se
lectedItem.Text)
        If RadioButton1.Checked = True Then
             com.Parameters.AddWithValue("@t_mode",
RadioButton1.Text)
        Else
             com.Parameters.AddWithValue("@t_mode",
RadioButton2.Text)
             com.Parameters.AddWithValue("@ret_date",
TextBox5.Text)
        End If

        dr = com.ExecuteReader

               If dr.HasRows Then
            GridView1.DataSource = dr
            GridView1.DataBind()
        End If

        dr.Close()
        c.Close()
        c.Open()



                             135
                     Online Tour Planner

Dim com4 As SqlCommand = New SqlCommand("select Bus_id
from      Buses     where      Dep_city=@dep_city     and
des_city=@des_city     and     dep_date=@dep_date     and
time=@bus_time", c)
com4.Parameters.AddWithValue("@dep_city",DropDownList1.Se
lectedItem.Text)
com4.Parameters.AddWithValue("@des_city",DropDownList2.Se
lectedItem.Text)
com4.Parameters.AddWithValue("@dep_date",TextBox3.Text)

com4.Parameters.AddWithValue("@bus_time",DropDownList3.Se
lectedItem.Text)
com4.Parameters.AddWithValue("@passenger",DropDownList5.S
electedItem.Text)

        If RadioButton2.Checked = True Then
            com4.Parameters.AddWithValue("@t_mode",
RadioButton1.Text)

             com4.Parameters.AddWithValue("@ret_date",
TextBox5.Text)
        Else
com4.Parameters.AddWithValue("@t_mode",RadioButton2.Text)

       End If
       dr4 = com.ExecuteReader
       dr4.Read()

        b_id = dr4("Bus_id")
        c.Close()
        c.Open()
        Dim dr1 As SqlDataReader
Dim com2 As SqlCommand = New SqlCommand("select Capacity
from Buses where Bus_id=@b_id", c)
        com2.Parameters.AddWithValue("@b_id", b_id)
        dr1 = com2.ExecuteReader
        dr1.Read()
        curr_capacity = dr1("Capacity")
        c.Close()
        curr_capacity = curr_capacity - passenger

        If curr_capacity < passenger Then
            MsgBox("sorry!!!!!!! book another     bus   no
space ")

       End If



                             136
                     Online Tour Planner

        c.Open()
Dim com3 As SqlCommand = New SqlCommand("update buses set
Capacity=@curr_capacity where Bus_id=@b_id ", c)
        com3.Parameters.AddWithValue("@curr_capacity",
curr_capacity)
com3.Parameters.AddWithValue("@b_id", b_id)
        com3.ExecuteNonQuery()
        c.Close()



   End Sub

    Protected Sub ImageButton1_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton1.Click
        Calendar1.Visible = True

   End Sub

    Protected    Sub    RadioButton2_CheckedChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
RadioButton2.CheckedChanged
        TextBox5.Visible = True
        Label5.Visible = True
        ImageButton2.Visible = True

   End Sub

    Protected    Sub    RadioButton1_CheckedChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
RadioButton1.CheckedChanged
        TextBox5.Visible = False
        Label5.Visible = False
        ImageButton2.Visible = False
    End Sub

    Protected Sub ImageButton2_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton2.Click
        Calendar2.Visible = True
    End Sub

     Protected    Sub    Calendar1_SelectionChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
Calendar1.SelectionChanged
        TextBox3.Text = Calendar1.SelectedDate.Date


                             137
                     Online Tour Planner

    End Sub
    Protected Sub Calendar2_SelectionChanged(ByVal sender
As   Object,  ByVal   e   As   System.EventArgs)  Handles
Calendar2.SelectionChanged
        TextBox5.Text = Calendar2.SelectedDate.Date
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Me.Load
        Calendar1.Visible = False
        Calendar2.Visible = False
    End Sub
End Class




WWW.PROJECTWORLD.IN
    CODING FOR QUERY THE ROUTE
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
Protected Sub ImageButton3_Click(ByVal sender As Object,
ByVal e As
System.Web.UI.ImageClickEventArgs)                 Handles
ImageButton3.Click
Dim sou As String = DropDownList2.SelectedItem.Text
Dim des As String = DropDownList7.SelectedItem.Text
        Dim dr As SqlDataReader
Dim   c   As   SqlConnection   =  New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim   com    As   SqlCommand   =   New  SqlCommand("select
city_between,distance        from      Distance      where
route_id=(select Route_id from Route     where source=@sou
and destination=@des) ", c)
com.Parameters.AddWithValue("@sou",DropDownList2.Selected
Item.Text)
com.Parameters.AddWithValue("@des",DropDownList7.Selected
Item.Text)
        dr = com.ExecuteReader
        dr.Read()
        If dr.HasRows Then


                             138
                     Online Tour Planner

            GridView1.DataSource = dr
            GridView1.DataBind()
        End If
        dr.Close()
        c.Close()
        c.Open()
        Dim dr1 As SqlDataReader
Dim com2 As SqlCommand = New SqlCommand("select r_map
from Route where source=@sou and destination=@des", c)
com2.Parameters.AddWithValue("@sou",DropDownList2.Selecte
dItem.Text)
com2.Parameters.AddWithValue("@des",DropDownList7.Selecte
dItem.Text)
        dr1 = com2.ExecuteReader
If dr1.Read() Then
            Image3.ImageUrl = dr1.Item("r_map")
        End If
dr1.Close()
        c.Close()End Sub End Class
CODING FOR BOOKING CANCELLATION
Imports System.Data.SqlClient
Partial Class bookingcancel
    Inherits System.Web.UI.Page
    Dim b_mode As String

    Protected Sub Button1_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button1.Click
        Dim dr As SqlDataReader
        Dim data_pay As Integer
        Dim deduc As Integer
        Dim b_id As Integer = TextBox2.Text
Dim   c  As   SqlConnection  =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com As SqlCommand = New SqlCommand("select Payment
where Booking_id=@b_id", c)
com.Parameters.AddWithValue("@b_id", TextBox2.Text)


       data_pay = com.ExecuteScalar
       deduc = data_pay * 5 / 100
       TextBox6.Text = deduc
       c.Close()
       c.Open()


                             139
                     Online Tour Planner

Dim   com1  As   SqlCommand   =   New   SqlCommand("select
Date,Payment_mode,Payment where Booking_id=@b_id", c)
com1.Parameters.AddWithValue("@b_id",TextBox2.Text)
        dr = com1.ExecuteReader
        TextBox3.Text = TextBox2.Text
        TextBox4.Text = dr("Date")
        TextBox5.Text = dr("Payment")
        TextBox7.Text = data_pay - deduc

        c.Close()
    End Sub

Protected Sub Button2_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button2.Click
        Dim b_id As Integer = TextBox2.Text
        dim b_mode as String =

        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("delete
Email_id,Booking_id,Date,Payment_mode,Payment         from
Accounts where Booking_id=@b_id", c)
com.Parameters.AddWithValue("@b_id", TextBox2.Text)
        com.ExecuteNonQuery()
        c.Close()
        c.Open()
Dim   com1  As    SqlCommand  =   New  SqlCommand("delete
Booking_id,Date,Email_id,Booking_mode                where
Booking_id=@b_id ", c)
        com1.ExecuteNonQuery()
        c.Close()
        c.Open()
Dim com2 As SqlCommand = New SqlCommand("insert into
Cancel_book
values(@b_id,@b_mode,@c_date,@Cost,@ded,@)")
    End Sub
End Class




                             140
       Online Tour Planner




WWW.PROJECTWORLD.IN




               141
                     Online Tour Planner




           Admin


WWW.PROJECTWORLD.IN
    Coding for Adding Car info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click

        '--------------inserting data for cars-----------
---------------------------------------------------------
----------------------
        Try
            '--------declaration of variables------------
---------------------------------------------------------
-----------------------
            Dim c_id As String


                             142
                     Online Tour Planner

             Dim c_carmode As String
             Dim c_rent As String
             Dim c_name As String
             Dim city_id As String
             '----intialising the variables---------------
---------------------------------------------------------
----------
             c_id = TextBox3.Text
             c_carmode = DropDownList1.SelectedValue
             c_rent = TextBox1.Text
             c_name = TextBox2.Text
             city_id = TextBox5.Text
             '------------declaring connection object-----
---------------------------------------------------------
-----------
             Dim    c     As    SqlConnection     =    New
SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
             c.Open()
             '--------------declaring command object------
---------------------------------------------------------
----
             Dim     com     As     SqlCommand    =    New
SqlCommand("insert                 into               cars
values(@c_id,@c_carmode,@c_rent,@c_name,@city_id)", c)
             com.Parameters.AddWithValue("@c_id",
TextBox3.Text)
com.Parameters.AddWithValue("@c_carmode",DropDownList1.Se
lectedValue)
com.Parameters.AddWithValue("@c_rent", TextBox1.Text)
com.Parameters.AddWithValue("@c_name", TextBox2.Text)
com.Parameters.AddWithValue("city_id", TextBox5.Text)
             com.ExecuteNonQuery()

            TextBox1.Text = ""
            TextBox5.Text = ""
            TextBox2.Text = ""
            c.Close()

            '-----------------------over-----------------
---------------------------------------------------------
----------------------
        Catch ex As Exception
            MsgBox("recheck data")
        End Try



                             143
                     Online Tour Planner




    End Sub


End Class

Coding for Adding Bus info



Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page




    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim b_id As String = TextBox5.Text
            Dim dep_c As String = TextBox1.Text
            Dim des_c As String = TextBox3.Text
            Dim c_id As String = TextBox2.Text
            Dim       B_mode       As       String    =
DropDownList1.SelectedItem.Text

            Dim     c    As    SqlConnection     =     New
SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
            Dim     com2    As    SqlCommand     =     New
SqlCommand("insert               into                Buses
values(@b_id,@dep_c,@des_c,@c_id,@B_mode)", c)
            com2.Parameters.AddWithValue("@b_id",
TextBox5.Text)
            com2.Parameters.AddWithValue("@dep_c",
TextBox1.Text)
            com2.Parameters.AddWithValue("@des_c",
TextBox3.Text)
            com2.Parameters.AddWithValue("@c_id",
TextBox2.Text)
            com2.Parameters.AddWithValue("@B_mode",
DropDownList1.SelectedItem.Text)


                             144
                     Online Tour Planner

            com2.ExecuteNonQuery()
        Catch ex As System.Exception
            MsgBox("pls       check        us     entry",
MsgBoxStyle.ApplicationModal)
        End Try

        TextBox5.Text = ""
        TextBox1.Text = ""
        TextBox3.Text = ""
        TextBox2.Text = ""
        DropDownList1.SelectedItem.Text = ""
        Label15.Visible = True




    End Sub



End Class




    Coding for Adding City info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

   Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim C_id As String = TextBox1.Text
            Dim Cou_id As String = TextBox7.Text
            Dim Nam As String = TextBox3.Text

            Dim     c    As    SqlConnection     =     New
SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")


                             145
                     Online Tour Planner

            c.Open()
Dim com2 As SqlCommand = New SqlCommand("insert into
Cities values(@C_id,@Cou_id,@Nam)", c)
com2.Parameters.AddWithValue("@C_id", TextBox1.Text)
com2.Parameters.AddWithValue("@Cou_id", TextBox7.Text)
com2.Parameters.AddWithValue("@Nam", TextBox3.Text)
            com2.ExecuteNonQuery()
            c.Close()
        Catch ex As System.Exception
            MsgBox("pls       check       us       entry",
MsgBoxStyle.SystemModal)
        End Try
        TextBox1.Text = ""
        TextBox7.Text = ""
        TextBox3.Text = ""

        Label16.Visible = True

    End Sub

End Class




 Coding for Adding Country info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page


    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Try
Dim Cou_id As String = TextBox2.Text
Dim Nam As String = TextBox7.Text
Dim cruises_id As String = TextBox3.Text
Dim Capital As String = TextBox1.Text




                             146
                     Online Tour Planner

Dim   c  As   SqlConnection  =   New   SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
            Dim     com1    As     SqlCommand     =     New
SqlCommand("insert              into                country
values(@Cou_id,@Nam,@cru_id,@Cap)", c)
com1.Parameters.AddWithValue("@Cou_id",TextBox2.Text)
com1.Parameters.AddWithValue("@Nam", TextBox7.Text)
com1.Parameters.AddWithValue("@cru_id",TextBox3.Text)
com1.Parameters.AddWithValue("@Cap", TextBox1.Text)
com1.ExecuteNonQuery()
            c.Close()
        Catch ex As System.Exception
            MsgBox("pls       check       us        entry",
MsgBoxStyle.SystemModal)
        End Try
        TextBox2.Text = ""
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""


        Label16.Visible = True
    End Sub


End Class



  Coding for Adding Cruise info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

Protected Sub Button2_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button2.Click
        Try
 Dim crus_id As String = TextBox5.Text
 Dim crus_name As String = TextBox3.Text
 Dim crus_agency As String = TextBox1.Text
 Dim crus_cou As String = TextBox2.Text




                             147
                     Online Tour Planner

 Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
   c.Open()
Dim com2 As SqlCommand = New SqlCommand("insert into
Cruise
values(@crus_id,@crus_name,@crus_agency,@crus_cou)", c)

com2.Parameters.AddWithValue("@crus_id",TextBox5.Text)

com2.Parameters.AddWithValue("@crus_name",TextBox3.Text)

com2.Parameters.AddWithValue("@crus_agency",TextBox1.Text
)

com2.Parameters.AddWithValue("crus_cou",TextBox2.Text)
            com2.ExecuteNonQuery()
            c.Close()
        Catch ex As System.Exception
            MsgBox("pls       check       us      entry",
MsgBoxStyle.SystemModal)
        End Try
        TextBox5.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""

       Label16.Visible = True

    End Sub
End Class



   Coding for Adding Hotel info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

   Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Try
Dim h_id As String = TextBox3.Text
Dim h_name As String = TextBox7.Text
Dim h_add As String = TextBox1.Text


                             148
                          Online Tour Planner

Dim   p_no As String = TextBox2.Text
Dim   e_id As String = TextBox5.Text
Dim   rating As String = DropDownList1.SelectedValue
Dim   c_name As String = TextBox8.Text
Dim   url As String = TextBox6.Text
Dim   tpe As String = RadioButtonList2.SelectedItem.Text

Dim   c   As   SqlConnection =   New   SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com As SqlCommand = New SqlCommand("insert into
Hotels
values(@h_id,@h_name,@h_add,@p_no,@e_id,@rating,@c_name,@
url,@tpe)", c)
com.Parameters.AddWithValue("@h_id", TextBox3.Text)
com.Parameters.AddWithValue("@h_name",TextBox7.Text)
com.Parameters.AddWithValue("@h_add",TextBox1.Text)
com.Parameters.AddWithValue("@p_no", TextBox2.Text)
com.Parameters.AddWithValue("@e_id", TextBox5.Text)
com.Parameters.AddWithValue("@rating",
DropDownList1.SelectedValue)
com.Parameters.AddWithValue("@c_name",TextBox8.Text)
com.Parameters.AddWithValue("@url", TextBox6.Text)
com.Parameters.AddWithValue("@tpe",RadioButtonList2.Selec
tedItem.Text)

com.ExecuteNonQuery()
Catch ex As System.Exception
            MsgBox("pls               check     ur   entry",
MsgBoxStyle.SystemModal)
        End Try

          TextBox3.Text    =   ""
          TextBox7.Text    =   ""
          TextBox8.Text    =   ""
          TextBox1.Text    =   ""
          TextBox2.Text    =   ""
          TextBox5.Text    =   ""
          TextBox6.Text    =   ""



    End Sub
End Class




                                    149
                     Online Tour Planner




WWW.PROJECTWORLD.IN


 Coding for Adding Package info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim p_id As String


                             150
                     Online Tour Planner

         Dim p_name As String
         Dim dur As String
         Dim spe_ser As String
         Dim tou_pla As String
         Dim cost As String
         Dim tpe As String
         p_id = TextBox3.Text
         p_name = TextBox6.Text
         dur = TextBox7.Text
         spe_ser = TextBox1.Text
         tou_pla = TextBox2.Text
         cost = TextBox5.Text
         tpe = RadioButtonList1.SelectedItem.Text
         Dim      c     As     SqlConnection      =   New
SqlConnection("DataSource=.\SQLEXPRESS;AttachDbFilename=|
DataDirectory|\Database.mdf;Integrated Security=True;User
Instance=True")
         c.Open()
Dim com As SqlCommand = New SqlCommand("insert into
Packages
values(@p_id,@p_name,@dur,@spe_ser,@tou_pla,@cost,@tpe)",
c)
com.Parameters.AddWithValue("@p_id", TextBox3.Text)
com.Parameters.AddWithValue("@p_name",TextBox6.Text)
com.Parameters.AddWithValue("@dur", TextBox7.Text)
com.Parameters.AddWithValue("@spe_ser",TextBox1.Text)
com.Parameters.AddWithValue("@tou_pla",TextBox2.Text)
com.Parameters.AddWithValue("@cost", TextBox5.Text)
com.Parameters.AddWithValue("@tpe",RadioButtonList1.Selec
tedItem.Text)

        com.ExecuteNonQuery()
End Sub
End Class
 Coding for Adding Tourist Spot
              info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page



    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click


                             151
                     Online Tour Planner

       Try
            Dim TS_id As String = TextBox5.Text
            Dim TS_name As String = TextBox7.Text
            Dim C_id As String = TextBox3.Text
            Dim Cou_id As String = TextBox1.Text
            Dim S_mode As String = TextBox2.Text
Dim   c  As   SqlConnection  =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
Dim com2 As SqlCommand = New SqlCommand("insert into
TouristSpots
values(@TS_name,@C_id,@Cou_id,@TS_id,@S_mode) ", c)
com2.Parameters.AddWithValue("@TS_id",TextBox5.Text)

com2.Parameters.AddWithValue("@TS_name",TextBox7.Text)
com2.Parameters.AddWithValue("@C_id",TextBox3.Text)
com2.Parameters.AddWithValue("@Cou_id",TextBox1.Text)
com2.Parameters.AddWithValue("@S_mode",TextBox2.Text)
com2.ExecuteNonQuery()
            c.Close()
Catch ex As System.Exception
            MsgBox("     pls    check     your    entry",
MsgBoxStyle.SystemModal)
        End Try
        TextBox5.Text = ""
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label16.Visible = True

    End Sub
End Class
      Coding for Adding Travel
            Agencies Info
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Try
            Dim TA_id As String = TextBox10.Text
            Dim TA_name As String = TextBox7.Text
            Dim Add As String = TextBox3.Text


                             152
                         Online Tour Planner

              Dim   P_no As String = TextBox1.Text
              Dim   E_id As String = TextBox2.Text
              Dim   M_mode As String = TextBox5.Text
              Dim   St_id As String = TextBox6.Text
              Dim   C_id As String = TextBox8.Text
              Dim   S_mode As String = TextBox9.Text

Dim   c  As   SqlConnection  =   New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
Dim com2 As SqlCommand = New SqlCommand("insert into
TravelAgencies                                      values
(@TA_id,@TA_name,@Add,@P_no,@E_id,@M_mode,@St_id,@C_id,@S
_mode)", c)
com2.Parameters.AddWithValue("@TA_id",TextBox10.Text)

com2.Parameters.AddWithValue("@TA_name",TextBox7.Text)
com2.Parameters.AddWithValue("@Add", TextBox3.Text)
com2.Parameters.AddWithValue("@P_no",TextBox1.Text)
com2.Parameters.AddWithValue("@E_id",TextBox2.Text)com2.P
arameters.AddWithValue("@M_mode",TextBox5.Text)
com2.Parameters.AddWithValue("@St_id",TextBox6.Text)
com2.Parameters.AddWithValue("@C_id",TextBox8.Text)
com2.Parameters.AddWithValue("@S_mode",TextBox9.Text)
com2.ExecuteNonQuery()
            c.Close()
Catch ex As System.Exception
 MsgBox("pls check us entry", MsgBoxStyle.SystemModal)
        End Try
        TextBox10.Text = ""
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        Label16.Visible = True

    End Sub



End Class



                                 153
                     Online Tour Planner




WWW.PROJECTWORLD.IN




   Coding for updating/deleting
             Bus info
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
Protected Sub Button4_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button4.Click


                             154
                     Online Tour Planner

        Dim        b_id         As         String       =
DropDownList4.SelectedItem.Text
        Dim dep_c As String = TextBox1.Text
        Dim des_c As String = TextBox3.Text
        Dim c_id As String = TextBox2.Text
        Dim        b_mod         As        String       =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("update
Buses set Dep_city=@dep_c ,Des_city=@des_c,city_id=@c_id
,Bus_mode=@b_mod where Bus_id=@b_id", c)
        com.Parameters.AddWithValue("@dep_c",
TextBox1.Text)
        com.Parameters.AddWithValue("@des_c",
TextBox3.Text)
        com.Parameters.AddWithValue("@c_id",
TextBox2.Text)
        com.Parameters.AddWithValue("@b_mod",
DropDownList1.SelectedItem.Text)
        com.Parameters.AddWithValue("@b_id",
DropDownList4.SelectedItem.Text)
        com.ExecuteNonQuery()
        c.Close()
        Label15.Visible = True
        Label16.Visible = False
End Sub
Protected Sub Button5_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button5.Click
        Dim        b_id         As         String       =
DropDownList4.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com1 As SqlCommand = New SqlCommand("select
Dep_city,Des_city, city_id,Bus_mode from Buses where
Bus_id=@b_id ", c)
        com1.Parameters.AddWithValue("@b_id",
DropDownList4.SelectedItem.Text)
        dr = com1.ExecuteReader
        dr.Read()
        TextBox1.Text = dr("Dep_city")
        TextBox3.Text = dr("Des_city")


                             155
                     Online Tour Planner

        TextBox2.Text = dr("city_id")
        DropDownList1.SelectedItem.Text = dr("Bus_mode")
        c.Close()
        Label15.Visible = False
        Label16.Visible = False
    End Sub
    Protected                                          Sub
DropDownList4_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal   e    As    System.EventArgs)    Handles
DropDownList4.SelectedIndexChanged
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        Label15.Visible = False
        Label16.Visible = False
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim        b_id         As        String         =
DropDownList4.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com2 As SqlCommand = New SqlCommand("delete
from Buses where Bus_id=@b_id", c)
        com2.Parameters.AddWithValue("@b_id",
DropDownList4.SelectedItem.Text)
        com2.ExecuteNonQuery()
        DropDownList4.DataBind()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        Label15.Visible = False
        Label16.Visible = True
End Sub

   End Class
 Code for updating/deleting car
              info
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page




                             156
                     Online Tour Planner

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim        cr_id         As       String         =
DropDownList1.SelectedItem.Text
        Dim        cr_mod         As       String        =
DropDownList2.SelectedItem.Text
        Dim cr_na As String = TextBox2.Text
        Dim cr_rent As String = TextBox1.Text
        Dim ci_id As String = TextBox5.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com1 As SqlCommand = New SqlCommand("update Cars set
car_mode=@cr_mod,car_rent=@cr_rent,car_name=@cr_na,city_i
d=@ci_id where Car_id=@cr_id", c)
com1.Parameters.AddWithValue("@cr_id",DropDownList1.Selec
tedItem.Text)
com1.Parameters.AddWithValue("@cr_mod",DropDownList2.Sele
ctedItem.Text)
com1.Parameters.AddWithValue("@cr_na", TextBox2.Text)
com1.Parameters.AddWithValue("@cr_rent", TextBox1.Text)
com1.Parameters.AddWithValue("@ci_id", TextBox5.Text)
        com1.ExecuteNonQuery()
        c.Close()
        Label15.Visible = True
        Label16.Visible = False
    End Sub
    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Dim        cr_id         As       String         =
DropDownList1.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
car_mode,car_rent,car_name,city_id   from    Cars   where
Car_id=@cr_id", c)
        com.Parameters.AddWithValue("@cr_id",
DropDownList1.SelectedItem.Text)
        dr = com.ExecuteReader
        dr.Read()
        TextBox2.Text = dr("car_name")
        DropDownList2.SelectedItem.Text = dr("car_mode")
        TextBox1.Text = dr("car_rent")


                             157
                     Online Tour Planner

        TextBox5.Text = dr("city_id")
        dr.Close()
        c.Close()
                 Label15.Visible = False
        Label16.Visible = False
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim         cr_id        As        String        =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com2 As SqlCommand = New SqlCommand("delete
from Cars where Car_id=@cr_id", c)
        com2.Parameters.AddWithValue("@cr_id",
DropDownList1.SelectedItem.Text)
        com2.ExecuteNonQuery()
        c.Close()
        DropDownList1.DataBind()
        TextBox2.Text = ""
        TextBox1.Text = ""
        TextBox5.Text = ""
        Label15.Visible = False
        Label16.Visible = True
    End Sub
Protected   Sub   DropDownList1_SelectedIndexChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
DropDownList1.SelectedIndexChanged
        TextBox2.Text = ""
        TextBox1.Text = ""
        TextBox5.Text = ""
        Label15.Visible = False
        Label16.Visible = False
    End Sub
End Class
 Code for updating/deleting for
          Package info
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
Protected Sub Button5_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button5.Click



                             158
                     Online Tour Planner

        Dim        pac_id        As        String        =
DropDownList1.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
duration,special_services,Tourist_place,Cost,Booking_id,P
ackage_Type from Packages where Package_id=@pac_id", c)
        com.Parameters.AddWithValue("@pac_id",
DropDownList1.SelectedItem.Text)
        dr = com.ExecuteReader
        dr.Read()
        DropDownList2.SelectedItem.Text                  =
dr("Package_Type")
        TextBox3.Text = dr("duration")
        TextBox1.Text = dr("special_services")
        TextBox2.Text = dr("Tourist_place")
        TextBox5.Text = dr("Cost")
        TextBox6.Text = dr("Booking_id")
        dr.Close()
        c.Close()
        Label15.Visible = False
        Label16.Visible = False
End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button4.Click
        Dim        pac_id        As        String        =
DropDownList1.SelectedItem.Text
        Dim        pac_ty        As        String        =
DropDownList2.SelectedItem.Text
        Dim pac_du As String = TextBox3.Text
        Dim pac_sps As String = TextBox1.Text
        Dim to_p As String = TextBox2.Text
        Dim cost As String = TextBox5.Text
        Dim bk_id As String = TextBox6.Text

        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com1 As SqlCommand = New SqlCommand("update Packages
set
duration=@pac_du,special_services=@pac_sps,Tourist_place=
@to_p,Cost=@cost,Package_Type=@pac_ty,Booking_id=@bk_id
where Package_id=@pac_id ", c)


                             159
                     Online Tour Planner

        com1.Parameters.AddWithValue("@pac_id",
DropDownList1.SelectedItem.Text)
        com1.Parameters.AddWithValue("@pac_ty",
DropDownList2.SelectedItem.Text)
        com1.Parameters.AddWithValue("@pac_du",
TextBox3.Text)
        com1.Parameters.AddWithValue("@pac_sps",
TextBox1.Text)
        com1.Parameters.AddWithValue("@to_p",
TextBox2.Text)
        com1.Parameters.AddWithValue("@cost",
TextBox5.Text)
        com1.Parameters.AddWithValue("@bk_id",
TextBox6.Text)
        com1.ExecuteNonQuery()
        c.Close()

       Label15.Visible = True
       Label16.Visible = False
   End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim        pac_id        As        String       =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com2 As SqlCommand = New SqlCommand("delete
from Packages where package_id=@pac_id", c)
        com2.Parameters.AddWithValue("@pac_id",
DropDownList1.SelectedItem.Text)
        com2.ExecuteNonQuery()
        c.Close()
        DropDownList1.DataBind()
        DropDownList2.SelectedItem.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        Label16.Visible = True
        Label15.Visible = False
    End Sub




                             160
                     Online Tour Planner

    Protected                                          Sub
DropDownList1_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal   e    As    System.EventArgs)    Handles
DropDownList1.SelectedIndexChanged

        TextBox3.Text =   ""
        TextBox1.Text =   ""
        TextBox2.Text =   ""
        TextBox5.Text =   ""
        TextBox6.Text =   ""
        Label15.Visible   = False
        Label16.Visible   = False
    End Sub
End Class




WWW.PROJECTWORLD.IN

 Code for updating and deleting
           hotel info

                             161
                     Online Tour Planner



Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Try
             Dim        h_id       As        String       =
DropDownList1.SelectedItem.Text
             Dim dr As SqlDataReader
Dim   c   As   SqlConnection  =   New   SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
             c.Open()
Dim   com    As   SqlCommand   =   New   SqlCommand("select
Name,Address,Phone_no,Email_id,Rating,City_id,Website_add
ress,Type from Hotels where Hotel_id=@h_id", c)
com.Parameters.AddWithValue("@h_id",DropDownList1.Selecte
dItem.Text)
             dr = com.ExecuteReader
             dr.Read()
             TextBox7.Text = dr("Name")
      DropDownList2.SelectedItem.Text = dr("Type")
             TextBox1.Text = dr("Address")
             TextBox2.Text = dr("Phone_no")
             TextBox5.Text = dr("Email_id")
             DropDownList3.SelectedIndex = dr("Rating")
             TextBox8.Text = dr("City_id")
             TextBox6.Text = dr("Website_address")
             dr.Close()
             c.Close()
             Label15.Visible = False
             Label16.Visible = False
        Catch ex As Exception
             MsgBox("temprory server problem")
        End Try

    End Sub

    Protected                                          Sub
DropDownList1_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal   e    As    System.EventArgs)    Handles
DropDownList1.SelectedIndexChanged
        Try
            TextBox7.Text = ""



                             162
                     Online Tour Planner

            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox5.Text = ""
            TextBox8.Text = ""
            TextBox6.Text = ""
            Label15.Visible = False
            Label16.Visible = False
        Catch ex As Exception
            MsgBox("temporary server problem")
        End Try

    End Sub
Protected Sub Button4_Click(ByVal sender As Object, ByVal
e As System.EventArgs) Handles Button4.Click
        Try
Dim h_id As String = DropDownList1.SelectedItem.Text
            Dim h_na As String = TextBox7.Text
            Dim        h_ty       As        String       =
DropDownList2.SelectedItem.Text
            Dim h_add As String = TextBox1.Text
            Dim h_pno As String = TextBox2.Text
            Dim h_eid As String = TextBox5.Text
            Dim        h_rat       As       String       =
DropDownList3.SelectedIndex
            Dim c_id As String = TextBox8.Text
            Dim h_web As String = TextBox6.Text
            Dim     c     As    SqlConnection     =    New
SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
            c.Open()
            Dim     com1     As    SqlCommand     =    New
SqlCommand("update                Hotels               set
Name=@h_na,Address=@h_add,Phone_no=@h_pno,Email_id=@h_eid
,Rating=@h_rat,City_id=@c_id,Website_address=@h_web,Type=
@h_ty where Hotel_id=@h_id", c)
com1.Parameters.AddWithValue("@h_na",TextBox7.Text)
com1.Parameters.AddWithValue("@h_add",TextBox1.Text)
com1.Parameters.AddWithValue("@h_pno",TextBox2.Text)
com1.Parameters.AddWithValue("@h_eid",TextBox5.Text)
com1.Parameters.AddWithValue("@h_rat",DropDownList3.Selec
tedIndex)
com1.Parameters.AddWithValue("@c_id",TextBox8.Text)
com1.Parameters.AddWithValue("@h_web",TextBox6.Text)
com1.Parameters.AddWithValue("@h_ty                     ",
DropDownList2.SelectedItem.Text)



                             163
                     Online Tour Planner

com1.Parameters.AddWithValue("h_id",DropDownList1.Selecte
dItem.Text)
            com1.ExecuteNonQuery()
             c.Close()
             If Data.ConnectionState.Executing Then
                 Label15.Visible = True
             End If
             Label16.Visible = False
        Catch ex As Exception
             MsgBox("temprory server problem")
        End Try
End Sub
    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Try
             Dim       h_id        As        String      =
DropDownList1.SelectedItem.Text
             Dim    c     As    SqlConnection      =   New
SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
             c.Open()
             Dim    com2     As     SqlCommand     =   New
SqlCommand("delete from Hotels where Hotel_id=@h_id", c)
             com2.Parameters.AddWithValue("@h_id",
DropDownList1.SelectedItem.Text)
             com2.ExecuteNonQuery()
             c.Close()
             DropDownList1.DataBind()
             TextBox7.Text = ""
             TextBox1.Text = ""
             TextBox2.Text = ""
             TextBox5.Text = ""
             TextBox8.Text = ""
             TextBox6.Text = ""
             Label16.Visible = True
             Label15.Visible = False
        Catch ex As Exception
             MsgBox("temporary server problem")
        End Try
    End Sub End Class

   Coding for updating/deleting
        Travel Agency Info
Imports System.Data.SqlClient


                             164
                     Online Tour Planner

Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Dim        TA_id         As       String         =
DropDownList1.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
TravelAgency_id,TravelAgency_name,Address,Phone_no,Email_
id,Mode_of_transportation,State_id,City_id,Scope_mode
from TravelAgencies where TravelAgency_id=@TA_id", c)
        com.Parameters.AddWithValue("@TA_id",
DropDownList1.SelectedItem.Text)
        dr = com.ExecuteReader
        dr.Read()
        TextBox7.Text = dr("TravelAgency_name")
        TextBox3.Text = dr("Address")
        TextBox1.Text = dr("Phone_no")
        TextBox2.Text = dr("Email_id")
        TextBox5.Text = dr("Mode_of_transportation")
        TextBox6.Text = dr("State_id")
        TextBox8.Text = dr("City_id")
        TextBox9.Text = dr("Scope_mode")
        dr.Close()
        c.Close()

        Label15.Visible = False
        Label16.Visible = False

    End Sub

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim        TA_id        As         String      =
DropDownList1.SelectedItem.Text
        Dim TA_name As String = TextBox7.Text
        Dim Add As String = TextBox3.Text
        Dim P_no As String = TextBox1.Text
        Dim E_id As String = TextBox2.Text
        Dim M_transportation As String = TextBox5.Text
        Dim S_id As String = TextBox6.Text
        Dim C_id As String = TextBox8.Text


                             165
                     Online Tour Planner

        Dim S_Mode As String = TextBox9.Text

        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com1 As SqlCommand = New SqlCommand("update
TravelAgencies                                         set
TravelAgency_name=@TA_name,Address=@Add,Phone_no=@P_no,Em
ail_id=@E_id,Mode_of_transportation=@M_transportation,Sta
te_id=@S_id,City_id=@C_id,Scope_mode=@S_mode        where
TravelAgency_id=@Ta_id ", c)
        com1.Parameters.AddWithValue("@TA_id",
DropDownList1.SelectedItem.Text)
        com1.Parameters.AddWithValue("@TA_name",
TextBox7.Text)
        com1.Parameters.AddWithValue("@Add",
TextBox3.Text)
        com1.Parameters.AddWithValue("@P_no",
TextBox1.Text)
        com1.Parameters.AddWithValue("@E_id",
TextBox2.Text)
        com1.Parameters.AddWithValue("@M_transportation",
TextBox5.Text)
        com1.Parameters.AddWithValue("@S_id",
TextBox6.Text)
        com1.Parameters.AddWithValue("@C_id",
TextBox8.Text)
        com1.Parameters.AddWithValue("@S_mode",
TextBox9.Text)

        com1.ExecuteNonQuery()
        c.Close()

        Label15.Visible = True
        Label16.Visible = False
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim        TA_id        As        String        =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()



                             166
                     Online Tour Planner

        Dim com2 As SqlCommand = New SqlCommand("delete
from TravelAgencies where TravelAgency_id=@TA_id", c)
        com2.Parameters.AddWithValue("@TA_id",
DropDownList1.SelectedItem.Text)
        com2.ExecuteNonQuery()
        c.Close()
        DropDownList1.DataBind()
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        Label16.Visible = True
        Label15.Visible = False
    End Sub

    Protected                                          Sub
DropDownList1_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal   e    As    System.EventArgs)    Handles
DropDownList1.SelectedIndexChanged
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        TextBox8.Text = ""
        TextBox9.Text = ""
        Label15.Visible = False
        Label16.Visible = False
    End Sub

    Protected Sub TextBox9_TextChanged(ByVal sender As
Object,    ByVal   e  As    System.EventArgs)   Handles
TextBox9.TextChanged

    End Sub
End Class




                             167
                     Online Tour Planner


   Coding for updating/deleting
         Tourist Spot info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Dim        TS_id         As        String        =
DropDownList1.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
T_sname,City_id,Country_id,Spot_mode   from   TouristSpots
where TouristSpots_id=@TS_id", c)
        com.Parameters.AddWithValue("@TS_id",
DropDownList1.SelectedItem.Text)
        dr = com.ExecuteReader
        dr.Read()
        TextBox7.Text = dr("T_sname")
        TextBox3.Text = dr("City_id")
        TextBox1.Text = dr("Country_id")
        TextBox2.Text = dr("Spot_mode")
        dr.Close()
        c.Close()
        Label15.Visible = False
        Label16.Visible = False

    End Sub

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim        TS_id        As         String        =
DropDownList1.SelectedItem.Text
        Dim TS_name As String = TextBox7.Text
        Dim C_id As String = TextBox3.Text
        Dim Cou_id As String = TextBox1.Text
        Dim S_id As String = TextBox2.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")


                             168
                     Online Tour Planner

        c.Open()
        Dim com1 As SqlCommand = New SqlCommand("update
TouristSpots                                          set
TouristSpots_id=@TS_id,T_sname=@TS_name,City_id=@C_id,Cou
ntry_id=@Cou_id,Spot_mode=@S_mode                   where
TouristSpots_id=@TS_id ", c)
        com1.Parameters.AddWithValue("@TS_id",
DropDownList1.SelectedItem.Text)
        com1.Parameters.AddWithValue("@TS_name",
TextBox7.Text)
        com1.Parameters.AddWithValue("@C_id",
TextBox3.Text)
        com1.Parameters.AddWithValue("@Cou_id",
TextBox1.Text)
        com1.Parameters.AddWithValue("@S_mode",
TextBox2.Text)
        com1.ExecuteNonQuery()
        c.Close()
        Label15.Visible = True
        Label16.Visible = False
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim        TS_id         As       String        =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com2 As SqlCommand = New SqlCommand("delete
from TouristSpots where TouristSpots_id=@TS_id", c)
        com2.Parameters.AddWithValue("@TS_id",
DropDownList1.SelectedItem.Text)
        com2.ExecuteNonQuery()
        c.Close()
        DropDownList1.DataBind()
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label16.Visible = True
        Label15.Visible = False
    End Sub

    Protected                                         Sub
DropDownList1_SelectedIndexChanged(ByVal    sender     As


                             169
                     Online Tour Planner

Object,    ByVal   e    As    System.EventArgs)   Handles
DropDownList1.SelectedIndexChanged
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label15.Visible = False
        Label16.Visible = False
    End Sub
End Class




WWW.PROJECTWORLD.IN


                             170
       Online Tour Planner




WWW.PROJECTWORLD.IN




               171
                     Online Tour Planner


   Coding for updating/deleting
            Cruise info

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page
    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim crus_n As String = TextBox3.Text
        Dim crus_ag As String = TextBox1.Text
        Dim crus_cn As String = TextBox2.Text
        Dim        crus_id       As        String       =
DropDownList2.SelectedItem.Text
Dim   c  As   SqlConnection   =  New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com As SqlCommand = New SqlCommand("update Cruise set
Cruise_name=@crus_n,Cruise_Agency=@crus_ag
,Cruise_country=@crus_cn where Cruise_id=@crus_id ", c)
com.Parameters.AddWithValue("@crus_n",TextBox3.Text)
com.Parameters.AddWithValue("@crus_ag",TextBox1.Text)
com.Parameters.AddWithValue("@crus_cn",TextBox2.Text)
com.Parameters.AddWithValue("@crus_id",DropDownList2.Sele
ctedItem.Text)
        com.ExecuteNonQuery()
        c.Close()
        Label15.Visible = True
        Label16.Visible = False
    End Sub

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
Dim crus_id As String = DropDownList2.SelectedItem.Text
        Dim dr As SqlDataReader
Dim   c  As   SqlConnection   =  New  SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim   com1  As   SqlCommand    =  New  SqlCommand("select
Cruise_name,Cruise_Agency,cruise_country    from   Cruise
where Cruise_id=@crus_id", c)
com1.Parameters.AddWithValue("@crus_id",DropDownList2.Sel
ectedItem.Text)
        dr = com1.ExecuteReader


                             172
                       Online Tour Planner

          dr.Read()
          TextBox3.Text =   dr("Cruise_name")
          TextBox1.Text =   dr("Cruise_Agency")
          TextBox2.Text =   dr("cruise_country")
          dr.Close()
          c.Close()
          Label15.Visible   = False
          Label16.Visible   = False

End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click

        Dim        crus_id       As        String       =
DropDownList2.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
Dim com2 As SqlCommand = New SqlCommand("delete from
Cruise where Cruise_id=@crus_id", c)
        com2.Parameters.AddWithValue("@crus_id",
DropDownList2.SelectedItem.Text)
        com2.ExecuteNonQuery()
        DropDownList2.DataBind()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        Label15.Visible = False
        Label16.Visible = True
c.Close()

    End Sub

Protected   Sub  DropDownList2_SelectedIndexChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
DropDownList2.SelectedIndexChanged
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        Label15.Visible = False
        Label16.Visible = False

End Sub
End Class



                               173
                     Online Tour Planner


   Coding for updating/deleting
           Country info
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Dim        B_id         As        String        =
DropDownList1.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
Name,cruises_id,Capital      from      country      where
Country_id=@Cou_id", c)
        com.Parameters.AddWithValue("@Cou_id",
DropDownList1.SelectedItem.Text)
        dr = com.ExecuteReader
        dr.Read()
        TextBox7.Text = dr("Name")
        TextBox3.Text = dr("cruises_id")
        TextBox1.Text = dr("Capital")
        dr.Close()
        c.Close()
        Label15.Visible = False
        Label16.Visible = False

    End Sub
    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim        Cou_id        As        String        =
DropDownList1.SelectedItem.Text
        Dim Nam As String = TextBox7.Text
        Dim cruises_id As String = TextBox3.Text
        Dim Capital As String = TextBox1.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com1 As SqlCommand = New SqlCommand("update
country   set    Name=@Nam,cruises_id=@cru_id,Capital=@Cap
where Country_id=@Cou_id ", c)


                             174
                     Online Tour Planner

        com1.Parameters.AddWithValue("@Cou_id",
DropDownList1.SelectedItem.Text)
        com1.Parameters.AddWithValue("@Nam",
TextBox7.Text)
        com1.Parameters.AddWithValue("@cru_id",
TextBox3.Text)
        com1.Parameters.AddWithValue("@Cap",
TextBox1.Text)
        com1.ExecuteNonQuery()
        c.Close()
        Label15.Visible = True
        Label16.Visible = False
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim        Cou_id        As        String        =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com2 As SqlCommand = New SqlCommand("delete
from country where Country_id=@Cou_id", c)
        com2.Parameters.AddWithValue("@Cou_id",
DropDownList1.SelectedItem.Text)
        com2.ExecuteNonQuery()
        c.Close()
        DropDownList1.DataBind()
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        Label16.Visible = True
        Label15.Visible = False
    End Sub
    Protected                                          Sub
DropDownList1_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal    e   As    System.EventArgs)    Handles
DropDownList1.SelectedIndexChanged
        TextBox7.Text = ""
        TextBox3.Text = ""
        TextBox1.Text = ""
        Label15.Visible = False
        Label16.Visible = False
    End Sub
End Class



                             175
                     Online Tour Planner


     Code for updating/deleting
             City Info
Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Dim        C_id         As        String        =
DropDownList1.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
country_id,Name from Cities where city_id=@C_id", c)
        com.Parameters.AddWithValue("@C_id",
DropDownList1.SelectedItem.Text)
        dr = com.ExecuteReader
        dr.Read()
        TextBox7.Text = dr("country_id")
        TextBox3.Text = dr("Name")

       dr.Close()
       c.Close()

       Label15.Visible = False
       Label16.Visible = False

   End Sub

    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Dim        C_id         As        String      =
DropDownList1.SelectedItem.Text
        Dim cou_id As String = TextBox7.Text
        Dim Nam As String = TextBox3.Text

        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()




                             176
                     Online Tour Planner

        Dim com1 As SqlCommand = New SqlCommand("update
Cities     set      country_id=@cou_id,Name=@Nam  where
city_id=@C_id ", c)

        com1.Parameters.AddWithValue("@C_id",
DropDownList1.SelectedItem.Text)
        com1.Parameters.AddWithValue("@cou_id",
TextBox7.Text)
        com1.Parameters.AddWithValue("@Nam",
TextBox3.Text)
        com1.ExecuteNonQuery()
        c.Close()

        Label15.Visible = True
        Label16.Visible = False
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click
        Dim        C_id         As        String        =
DropDownList1.SelectedItem.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com2 As SqlCommand = New SqlCommand("delete
from Cities where city_id=@C_id", c)
        com2.Parameters.AddWithValue("@C_id",
DropDownList1.SelectedItem.Text)
        com2.ExecuteNonQuery()
        c.Close()
        TextBox7.Text = ""
        TextBox3.Text = ""
        DropDownList1.DataBind()

        Label16.Visible = True
        Label15.Visible = False
    End Sub
Protected   Sub  DropDownList1_SelectedIndexChanged(ByVal
sender As Object, ByVal e As System.EventArgs) Handles
DropDownList1.SelectedIndexChanged
        TextBox7.Text = ""
        TextBox3.Text = ""
        Label15.Visible = False
        Label16.Visible = False
    End Sub
End Class


                             177
                      Online Tour Planner


    Coding for Query from Admin

Imports System.Data.SqlClient
Partial Class Default2
    Inherits System.Web.UI.Page

    Protected                                          Sub
DropDownList1_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal   e    As    System.EventArgs)    Handles
DropDownList1.SelectedIndexChanged
        If DropDownList1.SelectedItem.Text = "Packages"
Then
            CheckBoxList1.Visible = True

        ElseIf   DropDownList1.SelectedItem.Text   =   "Cars"
Then

            CheckBoxList1.Visible = False
        ElseIf DropDownList2.SelectedItem.Text = "Buses"
Then
            CheckBoxList1.Visible = False
        ElseIf DropDownList1.SelectedItem.Text     =    "All"
Then

            CheckBoxList1.Visible = False
            Label5.Visible = False
            Label7.Visible = False
            TextBox2.ReadOnly = True


        End If
    End Sub

    Protected                                          Sub
DropDownList2_SelectedIndexChanged(ByVal     sender     As
Object,    ByVal   e    As    System.EventArgs)    Handles
DropDownList2.SelectedIndexChanged
        If DropDownList2.SelectedItem.Text = "On Date"
Then
            TextBox2.Visible = False
            Label7.Visible = False
            Label5.Visible = False
            'Label8.Visible = False




                              178
                       Online Tour Planner

        ElseIf DropDownList2.SelectedItem.Text = "within
duration" Then
            TextBox2.Visible = False
            Label7.Visible = True
            Label5.Visible = True
            'Label8.Visible = False
        ElseIf DropDownList2.SelectedItem.Text = "Cost"
Then
            'Label8.Visible = True
            TextBox2.Visible = True

       Else
              TextBox2.Visible = True
              Label7.Visible = False
              Label5.Visible = False
              'Label8.Visible = False




        End If
    End Sub
    Protected Sub Button2_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button2.Click

       Dim i As Integer
       Dim value As Integer
       For i = 0 To Me.CheckBoxList1.Items.Count - 1
           If Me.CheckBoxList1.Items(i).Selected = True
Then
                  value += 2 ^ i

            End If
       Next
       Dim e_mail As String
       Dim opt As String
       Dim sub_op As String
       Dim basis As String
       Dim p_type As String
       Dim f_date As String = TextBox3.Text
       Dim l_date As String = TextBox5.Text



       e_mail = TextBox1.Text
       opt = DropDownList1.SelectedItem.Text
       sub_op = DropDownList2.SelectedItem.Text


                               179
                     Online Tour Planner

        basis = TextBox2.Text
        p_type = value
        '------------------------------------------------
---------------------------------------------------------
----------------
        '------------------------connection to database--
---------------------------------------------------------
------------
        '------------------------------------------------
---------------------------------------------------------
-------------------------
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        '------------------------------------------------
---------------------------------------------------------
--------------------------------------
        '-------------------query for the overall booking
records of member----------------------------------------
-------------
        '------------------------------------------------
---------------------------------------------------------
---------------------------
        If DropDownList1.SelectedItem.Text = "All" Then
            DropDownList2.Items.Remove("Place")
            If DropDownList2.SelectedItem.Text = "All"
Then
                 Dim dr As SqlDataReader
                 c.Open()
                 Dim    com    As    SqlCommand    =    New
SqlCommand("select      *      from      Accounts    where
Email_id=@e_mail", c)
                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                 dr = com.ExecuteReader
                 dr.Read()
                 GridView1.DataSource = dr
                 GridView1.DataBind()




                c.Close()
                '----------------query for displaying all
the records on the basis of single date------------------
--------



                             180
                      Online Tour Planner

             ElseIf DropDownList2.SelectedItem.Value = "On
date" Then
                Dim dr As SqlDataReader
                c.Open()
                Dim    com     As    SqlCommand   =    New
SqlCommand("select   *    from    Accounts   as a   where
(a.Email_id=@e_mail and a.Date=@f_date)")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                dr = com.ExecuteReader
                dr.Read()
                GridView1.DataSource = dr
                GridView1.DataBind()


                c.Close()
                '-------------query for displaying all
the records on the basis of date within duration---------
---------------
            ElseIf    DropDownList2.SelectedItem.Text      =
"Within duration" Then
                Dim dr As SqlDataReader
                c.Open()
                Dim    com     As     SqlCommand     =   New
SqlCommand("select   *    from    Accounts    as   a   where
a.Email_id=@e_mail   and   a.Date    between   @f_date   and
@l_date")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                dr = com.ExecuteReader
                dr.Read()
                GridView1.DataSource = dr
                GridView1.DataBind()


                 c.Close()

             End If



                              181
                      Online Tour Planner

            '---------------------query for filtering the
records on the basis of packages and type inbound--------
--------------

        ElseIf      DropDownList1.SelectedItem.Text      =
"Packages" And p_type = "1" Then
            '---------------------query for filtering the
records on the basis of packages and type inbound and
place----------------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p   where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound'and p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                dr.Read()
                GridView1.DataSource = dr
                GridView1.DataBind()


                 c.Close()

                '---------------------query for filtering
the records on the basis of packages and type inbound and
date----------------------
        ElseIf   DropDownList2.SelectedItem.Text  =   "On
Date" Then

            c.Open()
                Dim dr As SqlDataReader



                              182
                     Online Tour Planner

                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound'and Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                dr.Read()
                GridView1.DataSource = dr
                GridView1.DataBind()


                c.Close()
                '---------------------query for filtering
the records on the basis of packages and type inbound and
within duration----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound'and Bookings.Date between @f_date to
@l_date", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)


                             183
                      Online Tour Planner

                 com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                 dr = com.ExecuteReader
                 dr.Read()
                 GridView1.DataSource = dr
                 GridView1.DataBind()


                c.Close()
                '---------------------query for filtering
the records on the basis of packages and type inbound and
all----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound'", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                 dr = com.ExecuteReader
                 dr.Read()
                 GridView1.DataSource = dr
                 GridView1.DataBind()


                c.Close()
            End If




                              184
                      Online Tour Planner

            ' ---------------------query for filtering
the records on the basis of packages and type outbound --
--------------------
        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "2" Then
            ' ---------------------query for filtering
the records on the basis of packages and type outbound
and place----------------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'outbound'and p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                dr.Read()
                GridView1.DataSource = dr
                GridView1.DataBind()


                c.Close()
                '      ---------------------query     for
filtering the records on the basis of packages and type
outbound and on particular date----------------------
        ElseIf   DropDownList2.SelectedItem.Text   =  "On
Date" Then

            c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m


                              185
                     Online Tour Planner

ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'outbound'and Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                dr.Read()
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
            ' ---------------------query for filtering
the records on the basis of packages and type outbound
and within duration----------------------
        ElseIf DropDownList2.SelectedItem.Text = "Within
duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'outbound'and Bookings.Date between @basis1
to @basis2", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)



                             186
                     Online Tour Planner

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query     for
filtering the records on the basis of packages and type
outbound and all----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'outbound'", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type1",
CheckBoxList1.SelectedItem.Text)

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()


        End If
        ' ---------------------query for filtering the
records on the basis of packages and type honeymoon------
----------------
        ElseIf       DropDownList1.SelectedItem.Text    =
"Packages" And p_type = "4" Then
            ' ---------------------query for filtering
the records on the basis of packages and type honeymoon
and on particular date----------------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                 c.Open()


                             187
                      Online Tour Planner

                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Honeymoon'and p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
honeymoon and on particular date----------------------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Honeymoon'and Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader


                              188
                     Online Tour Planner

                GridView1.DataSource = dr
                GridView1.DataBind()

                c.Close()
                '      ---------------------query     for
filtering the records on the basis of packages and type
honeymoon and within duration----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Honeymoon'and Bookings.Date between @basis1
to @basis2", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query     for
filtering all the records on the basis of packages and
type honeymoon ----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m


                             189
                      Online Tour Planner

ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Honeymoon'", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                 dr = com.ExecuteReader
                 GridView1.DataSource = dr
                 GridView1.DataBind()

            End If
            ' ---------------------query for filtering
the records on the basis of packages and type wildlife --
--------------------
        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "8" Then
            ' ---------------------query for filtering
the records on the basis of packages and type wildlife
and on particular place----------------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Wildlife'and p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)


                              190
                     Online Tour Planner

                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
wildlife and on particular date----------------------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife'and Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
wildlife and within duration date----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and


                             191
                     Online Tour Planner

p.type like 'wildlife'and Bookings.Date between @basis1
to @basis2", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query     for
filtering all the records on the basis of packages and
type wildlife ----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife'", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()


                             192
                      Online Tour Planner

                c.Close()
            End If
            ' ---------------------query for filtering
the records on the basis of packages and type inbound and
outbound ----------------------
        ElseIf      DropDownList1.SelectedItem.Text      =
"Packages" And p_type = "3" Then
            ' ---------------------query for filtering
the records on the basis of packages and type inbound and
outbound and on particular place----------------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound' and p.type like 'outbound'and
p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
inbound and outbound and on particular date--------------
--------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =       New
SqlCommand("select


                              193
                     Online Tour Planner

a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type   like   'inbound'and    p.type   like   'outbound'
Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
inbound and outbound and within date duration------------
----------
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound' and p.type like 'outbound' and
Bookings.Date between @basis1 to @basis2", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)



                             194
                     Online Tour Planner

                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering all the records on the basis of packages and
type inbound and outbound ----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound' and p.type like 'outbound' ", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()


            End If

            ' ---------------------query for filtering
all the records on the basis of packages and type inbound
and Honeymoon ----------------------
        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "5" Then
            ' ---------------------query for filtering
all the records on the basis of packages and type inbound
and outbound and on the basis of place ------------------
----


                             195
                      Online Tour Planner

            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Inbound' and p.type like 'Honeymoon' and
p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering all the records on the basis of packages and
type inbound and outbound and on particular date---------
-------------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound' and p.type like 'Honeymoon'and
Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)



                              196
                      Online Tour Planner

                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
inbound and outbound and on the basis of within duration
----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type   like   'inbound'and   p.type   like   'Honeymoon'
Bookings.Date between @basis1 to @basis2", c)
                c.Open()

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering all the records on the basis of packages and
type inbound and outbound ----------------------


                              197
                      Online Tour Planner

             ElseIf   DropDownList2.SelectedItem.Text   =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife'", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                 dr = com.ExecuteReader
                 GridView1.DataSource = dr
                 GridView1.DataBind()
                 c.Close()

            End If
            ' ---------------------query for filtering
all the records on the basis of packages and type inbound
and wildlife ----------------------
        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "9" Then
            ' ---------------------query for filtering
all the records on the basis of packages and type inbound
and wildlife and on the basis of place ------------------
----
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and



                              198
                      Online Tour Planner

p.type like 'Inbound' and       p.type      like   'Wildlife'   and
p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '---------------------query for filtering
all the records on the basis of packages and type inbound
and wildlife and on particular date----------------------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'inbound' and p.type like 'Wildlife'and
Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()



                              199
                      Online Tour Planner

                '      ---------------------query     for
filtering the records on the basis of packages and type
inbound and wildlife and on the basis of within duration
----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type   like   'inbound'and    p.type   like  'Wildlife'
Bookings.Date between @basis1 to @basis2", c)
                c.Open()

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering all the records on the basis of packages and
type inbound and wildlife ----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and



                              200
                      Online Tour Planner

p.type like 'wildlife' and p.type like 'inbound' and
p.type like 'wildlife' ", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                 dr = com.ExecuteReader
                 GridView1.DataSource = dr
                 GridView1.DataBind()

            End If
        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "6" Then
            ' ---------------------query for filtering
all the records on the basis of packages and type
outbound and Honeymoon and on the basis of place --------
--------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Outbound' and p.type like 'Honeymoon' and
p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)


                              201
                     Online Tour Planner

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '---------------------query for filtering
all the records on the basis of packages and type
outbound and Honeymoon and on particular date------------
----------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'outbound' and p.type like 'Honeymoon'and
Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
outbound and Honeymoon and on the basis of within
duration ----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where


                             202
                      Online Tour Planner

a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type   like  'outbound'and   p.type   like  'Honeymoon'
Bookings.Date between @basis1 to @basis2", c)
                c.Open()

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering all the records on the basis of packages and
type outbound and Honeymoon ----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife' and p.type like 'Outbound' and
p.type like 'Honeymoon' ", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)



                              203
                      Online Tour Planner

                 dr = com.ExecuteReader
                 GridView1.DataSource = dr
                 GridView1.DataBind()
                 c.Close()

            End If
        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "10" Then
            ' ---------------------query for filtering
all the records on the basis of packages and type
outbound and wildlife and on the basis of place ---------
-------------
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Outbound' and p.type like 'wildlife' and
p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '---------------------query for filtering
all the records on the basis of packages and type
outbound and Wildlife and on particular date-------------
---------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                 c.Open()
                 Dim dr As SqlDataReader


                              204
                      Online Tour Planner

                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'outbound' and p.type like 'Wildlife'and
Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
outbound and Wildlife and on the basis of within duration
----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type   like   'outbound'and   p.type   like  'Wildlife'
Bookings.Date between @basis1 to @basis2", c)
                c.Open()

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)


                              205
                      Online Tour Planner

                 com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query     for
filtering all the records on the basis of packages and
type outbound and Wildlife ----------------------
            ElseIf    DropDownList2.SelectedItem.Text   =
"All" Then

                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'Outbound' and p.type like 'Wildlife' ", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                 dr = com.ExecuteReader
                 GridView1.DataSource = dr
                 GridView1.DataBind()

            End If

        ElseIf      DropDownList1.SelectedItem.Text     =
"Packages" And p_type = "12" Then
            ' ---------------------query for filtering
all the records on the basis of packages and type
Honeymoon and Wildlife and on the basis of place --------
--------------



                              206
                      Online Tour Planner

            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim     com    As   SqlCommand    =   New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment      from   Accounts  a,Packages   p  where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife' and p.type like 'Honeymoon' and
p.Tourist_place=@basis", c)

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader

                c.Close()
                '---------------------query for filtering
all the records on the basis of packages and type
wildlife and Honeymoon and on particular date------------
----------
            ElseIf DropDownList2.SelectedItem.Text = "On
Date" Then

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife' and p.type like 'Honeymoon'and
Bookings.Date=@basis", c)
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)


                              207
                      Online Tour Planner

                 com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                c.Close()
                '      ---------------------query      for
filtering the records on the basis of packages and type
wildlife and Honeymoon and on the basis of within
duration ----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then


                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type   like  'wildlife'and   p.type   like   'Honeymoon'
Bookings.Date between @basis1 to @basis2", c)
                c.Open()

                 com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
                '      ---------------------query      for
filtering all the records on the basis of packages and
type wildlife and Honeymoon ----------------------
            ElseIf    DropDownList2.SelectedItem.Text    =
"All" Then

                 Dim dr As SqlDataReader


                              208
                     Online Tour Planner

                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment   from Accounts as a,Packages as p where
a.Email_id=@e_mail and a.Booking_mode like 'p%' and
p.type like 'wildlife' and p.type like 'Honeymoon' and
p.type like 'Honeymoon' ", c)
                c.Open()
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)

                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
            End If
        ElseIf DropDownList1.SelectedItem.Text   =   "Cars"
Then
            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment,c.Car_id from Accounts as a,Packages as p
where c.City_id =@basis ")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                dr = com.ExecuteReader()
                c.Close()
            ElseIf    DropDownList2.SelectedItem.Text    =
"Date" Then


                             209
                     Online Tour Planner

                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment,c.Car_id from Accounts as a,Packages as p
where a.Date =@basis ")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                dr = com.ExecuteReader()
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then
                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment,c.Car_id from Accounts as a,Packages as p
where a.Date between   ")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
            End If
        ElseIf DropDownList1.SelectedItem.Text = "Buses"
Then


                             210
                     Online Tour Planner

            If DropDownList2.SelectedItem.Text = "Place"
Then
                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment,c.Car_id from Accounts as a,Packages as p
where c.City_id =@basis ")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                dr = com.ExecuteReader()
                c.Close()
            ElseIf    DropDownList2.SelectedItem.Text    =
"Date" Then
                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m
ode,a.Payment,c.Car_id from Accounts as a,Packages as p
where a.Date =@basis ")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@basis",
TextBox2.Text)
                dr = com.ExecuteReader()
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
            ElseIf    DropDownList2.SelectedItem.Text    =
"Within duration" Then
                c.Open()
                Dim dr As SqlDataReader
                Dim    com    As    SqlCommand    =    New
SqlCommand("select
a.Email_id,a.Booking_id,a.Booking_mode,a.Date,a.Payment_m


                             211
                    Online Tour Planner

ode,a.Payment,c.Car_id from Accounts as a,Packages as p
where a.Date between   ")
                com.Parameters.AddWithValue("@e_mail",
TextBox1.Text)
                com.Parameters.AddWithValue("@opt",
DropDownList1.SelectedItem.Text)
                com.Parameters.AddWithValue("@sub_op",
DropDownList2.SelectedItem.Text)
                com.Parameters.AddWithValue("@f_date",
TextBox3.Text)
                com.Parameters.AddWithValue("@l_date",
TextBox5.Text)
                com.Parameters.AddWithValue("@p_type",
CheckBoxList1.SelectedItem.Text)
                dr = com.ExecuteReader
                GridView1.DataSource = dr
                GridView1.DataBind()
                c.Close()
            End If
        End If
    End Sub


    Protected Sub Button4_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button4.Click
        Label8.Visible = True
        DropDownList3.Visible = True
        Button5.Visible = True
    End Sub

    Protected Sub Button6_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button6.Click
        Label10.Visible = True
        TextBox6.Visible = True
        Button9.Visible = True
    End Sub

    Protected Sub Button7_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button7.Click
        Label11.Visible = True
        TextBox7.Visible = True
        Button10.Visible = True
    End Sub

    Protected Sub ImageButton11_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton11.Click


                            212
                     Online Tour Planner

       Panel11.Visible = True
       DropDownList1.Visible = False
       DropDownList2.Visible = False
   End Sub




    Protected Sub Button5_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button5.Click
        Dim        p_id         As       Integer        =
DropDownList3.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select *
from Packages where Package_id=@p_id ", c)
        com.Parameters.AddWithValue("@p_id",
DropDownList3.SelectedItem.Text)
        dr = com.ExecuteReader
        If dr.HasRows = True Then
            GridView1.DataSource = dr
            GridView1.DataBind()

       End If
       dr.Close()
       c.Close()

   End Sub

    Protected Sub Button9_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button9.Click
        Dim t_place As String = TextBox6.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select *
from Packages where Tourist_place=@t_place ", c)
        com.Parameters.AddWithValue("@t_place",
TextBox6.Text)
        dr = com.ExecuteReader
        If dr.HasRows = True Then
            GridView1.DataSource = dr


                             213
                     Online Tour Planner

           GridView1.DataBind()

       End If
       dr.Close()
       c.Close()
   End Sub

    Protected Sub Button10_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button10.Click
        Dim p_date As Date = TextBox7.Text

        Dim dr1 As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com1 As SqlCommand = New SqlCommand("select *
from Packages where issue_date=@p_date", c)
        com1.Parameters.AddWithValue("@p_date",
TextBox7.Text)
        dr1 = com1.ExecuteReader
        If dr1.HasRows = True Then
            GridView1.DataSource = dr1
            GridView1.DataBind()
        End If
        'd_date = com1.ExecuteScalar

        dr1.Close()
        c.Close()
        'c.Open()
        'Dim com As SqlCommand = New SqlCommand("select *
from Packages where Tourist_place=@t_place ", c)

        'com.Parameters.AddWithValue("@t_place",
TextBox6.Text)
        'dr = com.ExecuteReader
        'If dr.HasRows = True Then
        '    GridView1.DataSource = dr
        '    GridView1.DataBind()

       'End If
       'dr.Close()
       'c.Close()
   End Sub

    Protected Sub Button11_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button11.Click


                             214
                     Online Tour Planner

       Dim f_date As Date = TextBox8.Text
       Dim l_date As Date = TextBox9.Text

        Dim dr1 As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com1 As SqlCommand = New SqlCommand("select *
from Packages where issue_date between @f_date and
@l_date", c)
        com1.Parameters.AddWithValue("@f_date",
TextBox8.Text)
        com1.Parameters.AddWithValue("l_date",
TextBox9.Text)
        dr1 = com1.ExecuteReader
        If dr1.HasRows = True Then
             GridView1.DataSource = dr1
             GridView1.DataBind()
        End If


       dr1.Close()
       c.Close()
   End Sub

    Protected Sub Button8_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button8.Click
        Label12.Visible = True
        Label13.Visible = True
        TextBox8.Visible = True
        TextBox9.Visible = True
        Button11.Visible = True

   End Sub

    Protected Sub Button12_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button12.Click
        Dim      TravelAgency_id     As     Integer     =
DropDownList3.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select *
from TravelAgencies where TravelAgency_id=@t_id", c)


                             215
                     Online Tour Planner

        com.Parameters.AddWithValue("@t_id",
DropDownList3.SelectedItem.Text)
        dr = com.ExecuteReader
        If dr.HasRows = True Then
            GridView1.DataSource = dr
            GridView1.DataBind()


        End If
        dr.Close()
        c.Close()
    End Sub

    Protected Sub ImageButton12_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton12.Click
        Panel12.Visible = True
        DropDownList1.Visible = False
        DropDownList2.Visible = False
    End Sub

    Protected Sub Button13_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button13.Click
        Dim        h_id         As       Integer         =
DropDownList5.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select *
from Hotels where Hotel_id =@h_id", c)
        com.Parameters.AddWithValue("@h_id",
DropDownList5.SelectedItem.Text)

        dr = com.ExecuteReader
        If dr.HasRows Then
            GridView1.DataSource = dr
            GridView1.DataBind()

        End If
        dr.Close()
        c.Close()

    End Sub




                             216
                     Online Tour Planner

    Protected Sub ImageButton15_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton15.Click
        Panel14.Visible = True
    End Sub

    Protected Sub Button15_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button15.Click
        Dim        c_id         As        String        =
DropDownList6.SelectedItem.Text
        Dim dr As SqlDataReader
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select *
Cars where Car_id=@c_id", c)
        com.Parameters.AddWithValue("@c_id",
DropDownList6.SelectedItem.Text)
        dr = com.ExecuteReader
        If dr.HasRows = True Then
            GridView1.DataSource = dr
            GridView1.DataBind()

       End If
       dr.Close()
       c.Close()
   End Sub

    Protected Sub ImageButton14_Click(ByVal sender As
Object, ByVal e As System.Web.UI.ImageClickEventArgs)
Handles ImageButton14.Click
        Panel15.Visible = True
    End Sub

    Protected Sub Button14_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button14.Click
        Label21.Visible = True
        DropDownList6.Visible = True
        Button15.Visible = True
    End Sub


    Protected Sub Button16_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button16.Click
        Dim dr As SqlDataReader
        Dim b_mode = "car"


                             217
                     Online Tour Planner

        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
a.email_id,a.Booking_id,a.Date,Payment_mode,Payment from
Accounts a,Bookings b where Booking_mode=@b_mode ", c)
        com.Parameters.AddWithValue("@b_mode", b_mode)
        dr = com.ExecuteReader
        If dr.HasRows = True Then
            GridView1.DataSource = dr
            GridView1.DataBind()
        End If
        dr.Close()
        c.Close()
    End Sub

    Protected Sub Button17_Click(ByVal sender As Object,
ByVal e As System.EventArgs) Handles Button17.Click
        Label22.Visible = True
        TextBox10.Visible = True
        Button19.Visible = True
        Dim dr As SqlDataReader
        Dim c_date As Date = TextBox10.Text
        Dim c As SqlConnection = New SqlConnection("Data
Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\Data
base.mdf;Integrated Security=True;User Instance=True")
        c.Open()
        Dim com As SqlCommand = New SqlCommand("select
email_id,Booking_id,Date,Payment_mode,Payment        from
Accounts,Bookings    b   where    @Booking_mode=@car   and
b.Date=@c_date ", c)
        com.Parameters.AddWithValue("@c_date",
TextBox10.Text)
        dr = com.ExecuteReader
        If dr.HasRows = True Then
            GridView1.DataSource = dr
            GridView1.DataBind()
        End If
        dr.Close()
        c.Close()
    End Sub


End Class




                             218
       Online Tour Planner




WWW.PROJECTWORLD.IN


WWW.PROJECTWORLD.IN




     SYSTEM
   INTERFACES


               219
       Online Tour Planner




WWW.PROJECTWORLD.IN



WWW.PROJECTWORLD.IN

       Home Page




               220
       Online Tour Planner




WWW.PROJECTWORLD.IN
               221
 Online Tour Planner



Login Page




         222
   Online Tour Planner




Member Logged In

           223
  Online Tour Planner




Member Profile

          224
Online Tour Planner




        225
      Inbound Packages
         Online Tour Planner




WWW.PROJECTWORLD.IN

               226
 Online Tour Planner
Outbound Packages




         227
 Online Tour Planner
Wildlife Packages




         228
         Online Tour Planner
    Honeymoon Packages




WWW.PROJECTWORLD.IN
                 229
Online Tour Planner




        230
Online Tour Planner
        Cars




        231
 Online Tour Planner
Cars Search




         232
                  Bus
       Online Tour Planner




        Routes


WWW.PROJECTWORLD.IN

               233
Online Tour Planner




        234
       Online Tour Planner



WWW.PROJECTWORLD.IN




               235
         Online Tour Planner




     Booking Cancelation




WWW.PROJECTWORLD.IN


                 236
        Add Cars
       Online Tour Planner




WWW.PROJECTWORLD.IN

               237
  Online Tour Planner




Update /Remove Cars
Cars




          238
       Online Tour Planner




WWW.PROJECTWORLD.IN




               239
       Online Tour Planner
      Update /Remove Bus




WWW.PROJECTWORLD.IN

               240
Online Tour Planner




 Add Bus




        241
       Online Tour Planner




WWW.PROJECTWORLD.IN




               242
 Add Packages
Online Tour Planner




        243
          Online Tour Planner



WWW.PROJECTWORLD.IN
    Update /Remove Packages




                  244
Online Tour Planner




        245
                              Online Tour Planner



                              Limitations



No one in the world is all rounder, so there will be also the limitations of

“Online Tour Planer”. The software could not be used now for booking the

train and flight tickets currently, but the facility may be implemented in future.



There may be problem in finding routes for the foreign journey because the

database become too complex and long as a result query for the route searching

also become complex and thus not be implemented.




WWW.PROJECTWORLD.IN




                                       246
                             Online Tour Planner




                            User Manual


The software can be installed at the server side. The address to use the software

is www.OnlineTourPlaner.com.



The default login is rish.baranwal@gmail.com and the password is “mother”.

Once you logged in successfully you can make any type of booking for

package, Car& bus by simply fill the booking form.



The booking process is a two-way step that keeps records of your booking type

and cast.



The customer can also receive proper bill after the booking.



On the Admin side, the proper insertion, deletion as well as updation of data

entry in the database can be made.

The Admin is able to make each & every query from anyway.


                                      247
                      Online Tour Planner




                         Reference


 www.yatra.com .



 www.Cox&kings.com



 www.google.com



 www.mapsofworld.com



 www.tourindia.com



 www.incredibleindia .com



 www.indianrailway.gov.in



 www.indiacruises.com




                              248
                       Online Tour Planner




                      Bibliography



   S.chand books
   Tour your world magazine
   World Atlas
   Travel India
   Ace Tours & Travel Civil Lines Allahabad
   India Today
   Tourist Guide


 WWW.PROJECTWORLD.IN





                               249

				
DOCUMENT INFO
Description: ONLINE TOUR PLANNER....PROJECT REPORT TITLED FOR A-LEVEL, MCA, B.Tech:
AVIRAL DIXIT AVIRAL DIXIT A tutorials search engine http://www.pdfwallet.com
About Download lots of ebooks from PDF WALLET. It's a tutorials search engine, provide ebooks, notes, pdf's on a single click. Save your Time & Money Pdf Wallet