PROJECT REPORT

ON

Submitted towards the partial fulfillment of the requirement

For the award of the degree of

BATCHELOR OF COMPUTER APPLICATION (BCA)

SUBMITTED BY UNDER THE GUIDANCE

Sunny Kumar Mr. Vaibhav Vats
Roll no. 9264066

DEEN DAYAL COLLEGE, MUZAFFARNAGAR

AFFILIATED TO C.C.S. UNIVERSITY, MEERUT

1
 CONTENTS
SNO TITLE PAGE NO

1. Acknowledgement………..…………………………………………. 3
2. College Certificate……….………………………………………… 4
3. Introduction…………………………………………………………. 5
4. Preface………………………………………………………..……… 6
5. Hardware, Software Specification…………………………………… 7
 Hardware requirement…………………………………………10
 Front End, Back End………………………………………….. 8
 Database design……………………………………………….. 11
 Dataflow diagram…………………………………………….. 15
 ER-Diagram ………………………………………………….. 21
5. System analysis………………………………………………………. 22
6. Software Planning……………………………………………………. 26
7. System design………………………………………………………… 28
8. Testing & Debugging...………………………………………………. 35
9. Security of the system………………………………………………… 44
10. Output……………………..………………………………………… 63
11. Coding……………………………………………………………….. 77
12. Conclusion……………………………………………………………121
11. Bibliography………………………………………….……………... 122

2
 ACKNOWLEDGEMENT

This project report on ”GET PASS MANAGEMENT SYSTEM” is the

result of idea and suggestions to me by Mr. Vaibhav Vats.

I have received unfailing encouragement and inspiration of Mr.

Vaibhav Vats whose exceptional knowledge and unparalleled
behavior is full of ardent inspiration in it. However, we can never
adequate thank all those who have their assistance, guidance,
cooperation criticism contributed to the improvement of this report. I
am ebullient in expressing my intense in debtless heartiest gratitude
to all of them.

Since performance feedback is essential for effective communication,

mistakes and creative feedback of the report may be unhesitatingly
communicated to me, which will be as far as possible duly
acknowledged and most welcome.

In this report, whatever is beneficial comes from almighty, and

whatever is faulty is mine.

DATE

SUBMITTED BY

Sunny Kumar

Roll no. 9264066

3
4
 INTRODUCTION TO PRESENT SYSTEM

Get Pass Management System is a tool that It provides efficient

services to its Vehicle, Driver and Vehicle Pass. The various types of

operations and dealings take places in the Transport. But we had

undertaken the work of Computerization of Generation of

Transportation Management System which covers the activities

related to Vehicle and Driver etc. & All Types of activities

corresponds to the Member, these operations was manually operated

by the clerks and Operator and the operations were really time

consuming task to perform. The present system will help them a lot.

5
 PREFACE

This project has been written in simple language. In presenting this project
matter, we have tried our best to make this exposition very clear and concise.
Every attempt has been made to create the interest of the converted people in
project. Although the presentation has made in the honest manner and the
entire human weakness and they are if the constructive suggestion
modification and error brought to our notice will be highly appreciated and
grateful acknowledged.

This document is a full information document that serves for SRS document
also. This project contains all basic facilaties that can be provide by a
technical institute management system.

We had kept the focus, while developing the project, that it should be project
that be implemented in any technical college with only slight modifications.
Because it is an introductory project so it does not contain all facilities that
provided by a university.

Sunny Kumar

Roll no. 9264066

6
 HARDWARE SOFTWARE REQUIREMENT

THIS SOFTWARE RUNS within any environment .This software needs at

least Pentium prosessor 32MB RAM memory,2.1GB of Hard disk ,SVGA
display of 1 MB video memory and color monitor but with this lot of
processor power consumed and speed of the system will be very slow.
Therefore a realistic hardware configuration for this software is:-

Processor : Pentium 3 or higher processor

Operating System : Microsoft windows 98 or xp

Ram Memory : 128MB

Monitor : VGA Monitor or high resolution

Monitor

Display : VGA card

Keyboard : 104 keys

Visual Basic : 6.0

Microsoft Access : 2003

7
FRONT END

VISUAL BASIC has been developed by Microsoft. Visual Basic can use a
large number of reference liabraries and components. Visual Basic –the
environment-provides integration with a variety of other tools, including
source code management ,component reuse tools and data manipulation.
Visual Basic truly is much more of a “programming environment” than just
a language. using this environment ,a single developer can quickly create a
simple application; a team of developers can create a so sophisticated,
distributed application.

Features in Visual Basic 6.0

 Data access
 Internet features
 Controls
 Component creation
 Language
 Wizards

Visual Basic has evolved to be much more than a language-it is an

application producing “machine”.no other development environment on the
planet provides as wide a variety of capabilities in the box as Visual Basic.
Even though Visual Basic is much more productive than other tools,it also
requires more discipline to produce clean design. A key to improving your
programming technique is to embrace the capabilities to create classes and
ActiveX in Visual Basic.

8
As system becomes more complex and distributed, no single tool can
address all of the needs of the system.Visual Basic provides the development
environments with the raw tools needed to build small systems well as
components of large system.

If we look at all of the new features and functions added to the 6.0 release of
the Visual Basic, a couple of themes become evident: the internet and the
database

BACK END

A database is a collection of information that’s related to a particular subject

or purpose, such as tracking customer orders or maintaining a music
collection .If your database isn’t stored on a computer, or only parts of it
are , you may be tracking information from a variety of sources that you
have having to coordinate and organize yourself.

For example, suppose the phone numbers of your suppliers are stored in
various locations: in a card file containing supplier phone numbers, in
product information file cabinet, and in a spreadsheet containing order
information .if a supplier’s phone number changes, you might have to update
that information in all three places in database, however, you only have to
update that information in one place- the supplier’s phone number is
automatically updated wherever you use it in database.

Using Microsoft Access, you can manage all your information from a single
database file. within the file, you can use:

9
 Tables to store your data.
 Queries to find and retrieve just the data you want
 Forms to view, add and update data in tables.
 Reports to analyze or print data in a specific layout.
 Data access pages to view, update, or analyze the database’s data from
the internet or an intranet.

10
 MAIN CHART OF TRANSPORTATION

VEHICLE

TRANSPORT

PSSING VEHICLE DRIVER

REPORTS LOGIN

11
 DATA FLOW DIAGRAM

A Data Flow Diagram (DFD) is a graphical tool used to describe and

analyze the movement of data through a system - manual or automated
including the processes, stores of data and delays in the system. They are
central tools and the basis from which other components are developed. It
depicts the transformation of data, independent of the physical components,
from input to output through logical processes and the interaction between
processes.

DFD’s are an excellent mechanism of communicating with the customers

and are widely used for representing external and top-level internal design
specification. In the later situations, DFD’s are quite valuable for
establishing naming conventions and names of system components such as
subsystems, files and data links.
In a DFD there are four components:

Sources or Destinations of data such as human, entities that interact with

system, outside the system boundary, who form the source and the recipient
of information are depicted in the form of a closed rectangle.

Data flow is a packet of data. It identifies data flow. It is a pipeline through

which information flows. It is depicted in DFD as an arrow with the pointer
pointing in the direction of flow. This connecting symbol connects an entity,
process and data stores. This arrow mark also specifies the sender and the
receiver.

12
Process depicts procedure, function or module that transforms input data into
output data. It is represented as a circle or a bubble with the procedure name
and a unique number inside the circle.

Data stores are the physical areas in the computer’s hard disk where groups
of related data are stored in the form of files. They are depicted as an open-
ended rectangle. The Data store is used either for storing data into the files
or for reference purposes.

13
 DFD FOR USER LOGIN

USER 1 User_id
User Enter Their Password & User_Id for
Opening the application
Accessing User
Information
Invalid Pasword
Validity
Process
User Matched Accessing User
Information

Valid User for Type

Matching

Invalid User Type User Type

Validity
Process
Matched

14
FIRST LEVEL DFD FOR CHANGE PASSWORD

USERT
2 USER_ID
User Enter Their Id And
Password For Changing
Password Accessing User
Info

User_Id and
Password
Invalid Validity
Process
Password
Valid User for New
Password

New Password Password Updating Password

Updation
Process
Information

15
 DFD OF VEHICLE

t VEHICLE

Vehicle data being processed

Data
Validity
Process 1 Vehicle1
Invalid Vehicle
No

2 Vehicle2

16
 DFD FOR DRIVER

DRIVER
1 DRIVER LIST

Accessing Driver
Info

Searching Driver
data

Invalid Driver

Display Process
Valid Driver for
display

17
 DFD FOR GET PASS

DRIVER
1 VEHICLE
Driver Data

Searching
available Vehicle

Invalid Vehicle no

Passing Vehicle
Get pass

18
 MODULES AND THEIR PROCESS LOGICS

Process Name:- Vehicle

Description :- This process is for the new Vehicle entry. This process
displays the all information about the Vehicle according
to the selection criteria of the Vehicle.This process gives
the facility of selecting different types of query about the
particular Vehicle.

Process Name:- Driver

Description : This process displays the all information about the

Driver according to the selection criteria of the
Driver.This process gives the facility of selecting
different types of query about the particular Driver.

Process Name:- Get pass.

Description :- This process is for the searching the entry of particular

Vehicle for Transportation.

Process Name:- Report

Description :- This process is for the displaying the reports of Driver,

Vehicle and Transportation etc.

19
 ENTITY – RELATIONSHIP DIAGRAM

The entity – relationship (E – R) data model is based on a perception of a

real world that consists of a collection of basic objects, called entities, and of
relationships among these objects. An entity is a thing or objects in the real
world that is distinguishable from other objects. Entities are described in
database by a set of attributes.

A relationship is an association among several entities. The set of all entities

of the same type and the set of all relationships of the same type are termed
as entity set and relationship set, respectively.

The overall logical structure (schema) of a database can be expressed

graphically by an E-R Diagram, which is built up from the following
components:

 Rectangles, which represents entity sets.

 Ellipses, which represents attributes.

 Diamonds, which represents relationships among entity sets.

 Lines, which link attributes to entity sets and entity sets to

relationships.

20
 NAME ADDRESS
FUEL RENT
COMPANY

PHONE NAME
REG.NO

DRIVER
VEHICLE
DID
VNO

COLOR

contains
has

DATA BASE

PASSING
VEHICLE

CUST ADD
VNO

GET PASS

DATE
FROM
CUST NAME

DID
DATE TO

21
OPERATIONS OF PRESENT SYSTEM

The LIBRARY MANAGEMEN is further the integration of various sub-

systems. Broadly speaking these sub-system are based on following broadly
classified activities.

A. Vehicle management
 Add new vehicle
 Delete vehicle
 Modify vehicle
 Search vehicle
B. Driver management
 Add new driver
 Delete driver
 Modify driver
 Search driver
C. Get pass
 Transport
 Searching
D. Reports
 Vehicle report
 Driver report

22
 SYSTEM DEVELOPMENT LIFE CYCLE

Software development is a complex process so we divide the process in a

small module. These modules are called system development phases. These
phases are combinedly known as system development life cycle. These
linear cycle phases are given below: -

i. Recognition of Needs: - It includes preliminary survey and initial

investigation by personnel interviews and questionnaires.

ii. System Analysis: - Detailed evaluation of present system and data

collection is done. The various reports and documents used are studied
in detail. After that the interview of various levels of management is
carried out. The DFD. Data dictionary, Menu chart are the tools used for
it.

iii. System Desigh: - It involves general and detailed design specification,

output, input files, files, program construction plans, all these details are
submitted to user and got signed.

iv. System Construction: - It involves implementation of total

construction plan i.e. coding. It is done in a language i.e. known to user,
analyst and programmer.

v. Testing: - Each and every input and output program is executed

separately and tested for bugs. Whole of the system is executed and test

23
 data is prepared and is fed in to the system and the output reports are
compared with the parameters.

vi. Implementation: - It checks that users requirement are fulfilled or not.

Response time is checked and finally the user manual is prepared and is
submitted.

24
 ANALYSIS PHASE

PROPOSAL FOR A NEW SYSTEM

SYSTEM DEFINATION

A system may be defined as any set of modules and ideas and its inter-
relationships that is ordered to achieve a common goal .A system processes
the input to produce outputs .The process in a manual system usually
employs various types of elements.

 Physical
 Procedural
 Conceptual
 Social etc.

A system is limited by its boundary. A system is composed of sub-systems,

which are also systems as this developed Transportation Management
System. It was decided to develop a system which having following
features:

1. Driver management
2. Vehicle management
3. Transportation management
4. Bookded or not vehicel in a particular date

25
Therefore, the system has the characteristics of frequently available
information.

PERFORMANCE REQUIREMENTS:

1. USER-FRIENDLY:
The system should be user friendly so that it can be easily understood by the
user without any difficulty.

2. EASY TO MAINTAIN:

The system be easy to maintain and use. The system should be less time
consuming whish could be achieved by good programming.

3. PORTABILITY:

The system probability should be take care of without any interventions.

4. SECURITY:
The system should be secure from the unauthorized access and should be
password protected so that no other user can access it.

5. ERROR FREE:

The system should easily handle the use error in any case.

26
GENERAL ATTRIBUTES:

 AVAILABILITY
 MAINTAINABILITY

This software can be maintained with the help of extensive

documentation to be provided to the client.

 TRANSFERABILITY/CONVERSION
Product can easily be transferable to new version of windows.

 TEAM SIZE
The development team consist of two members RASHMI, RAVITA,
BABITA.

27
LIMITATIONS OF EXISTING SYSTEM

When the existing system of the Library, we found that some add on were
required there so that problems could be solved. Some of the problems or
limitations in the present system are: -

1) To update each Library member.

2) While preparing the Reports statements the Member have to manually go

through the Records Mannually.

3) There is no security of the database register i.e. any other person can
make changes in the database.

4) Issue/Return book.

5) It is a time consuming task to prepare the list of Books which are issued
by the library member.

28
 SYSTEM ANALYSIS

OBJECTIVE OF THE STUDY

Information plays a key role as the horizons of knowledge keep on

expanding since the project is an effort to making a software for
Tranportation to maintains the details of vehicle and the driver that holds
the complete information Vehicle.

System Analysis is a very vast field of study through which a system analyst
puts his thought and search for the best solution of problem .Really, system
analysis is not a precise science, in fact it is an art of scientific approach
through which a analyst find the facts and records them in flexible manner .
Since the evolution of computer, computer based information system has
generally increased the quality and the performance of the computerization
of entrance test, that’s why the possibility of partiality or mistakes by
checker has lowered down almost to zero(0).

For understanding the actual performance it provides lots of options are

here which make works easy and one click event.

PRELIMINARY INVESTIGATION

The first step in the computerization of entrance test is to investigate the

feasibility of the system. The purpose is to evaluate the project

29
requirement .It is the collection of information that made the impartial and
very easy for the user to attempt any entrance test.

The following objectives were achieved during the preliminary

investigation.

 Classification and the understanding of the project.

 Determination of options required for the test
 Determination of the technical and operational feasibility of the
alternative approaches.
.
STRUCTURED ANALYSIS

DATA FLOW MODEL (DFD)

The DFD may be used to represent a system at any level of abstraction. It

may be partitioned into two levels that represent increased and functional
flow details .It is also called fundamental model or context model represent
as a entire software element.

A DFD is a graphical technique that depicts information flow and transforms

that are applied as data move from input to output that is why it is also called
bubble chart .It may be broken into different levels. Function depicted here
are sub functions of overall system depicted in the context model.

FEASIBILITY ANALYSIS

30
It is a text of proposed system according to its work ability, ability to meet
users need and effective use of resources.

It is developed as a selection criteria and selection procedures. There are

three criteria for judgement are as follows:

TECHNICAL FEASIBILITY

This tells whether the appropriate h/w and s/w application tools will be
available when required. The system is developed under.
 Pentium4
 Window -xp platform
 Visual basic

31
ECONOMICAL FEASIBILITY

The application module has since been by us but it is difficult to know the
cost of this package in monetary terms after considering h/w, s/w and overall
expenses in project making.

OPERATIONAL FEASIBILITY:

This informs us whether the user will accept it or not and considered that it
does not need extra training to operate it .

Online guidelines are to be there and proper error message are to be

displayed if occurs during execution. Moreover the reports are generated in
same format as are in existing system.

32
 DESIGN OBJECTIVE

Desugn is an excat blueprint of what will be built & a basis for the
configuration & content of that blueprint .The primary objective of the
design is to deliver the requirements as specified in the feasibility report.
Following objectives should be kept in mind: -

1. Practicability:-

The system must be stable & can be operated by people of average

intelligence.

2. Efficiency:-

Good design should be efficient as it should properly use the scare

resource of system. two of the important such resources are processor
time & memory. An efficient system consume less processor time &
memory.

3. Cost: -

It is desirable to aim for a system with a minimum cost subject to the

condition that it must satisfy all the requirements.

4. Flexibility: -

The system should be modifiable depending on the changing needs of the

user, Such modifications should not entail extensive reconstruction or
recreation of software. It should also be portable to different computer
systems.

33
5. Security: -

This is very important aspect of the design & should cover areas as
hardware reliability, fall back procedures, physical security of data &
provision of detection of fraud & abuse.

6. Reliability:-

The end user will normally specify reliability requirements for a new
system.these requirements may be expressed in terms of mean time
between failure or mean time to repair or system availability.

7. Correctness:-

Good design should correctly implement both ,all of the explicit

requirements contained in the analysis model and all of the implicit
requirements desired by the customer.

8. Understandability:-

The design should be a readable , simple, understandable guide for those

who generate code and for those who test and subsequently support the
system.

9. Modularity:-

It aims for composition of a problem into modules which results in

reduction of complexity of the design solution.

10.Completeness:-

Good design should cover all relevant data structures , modules ,external
interface and module interconnection .

34
11.Consistency:-

Design should follow consistency through the system. it aims that there is
no inherent inconsistencies in the design.

12.Verifiability:-

Concerned with how easily the correctness of design canbe checked.

13.Traceabiliy:-

Design should be traceable. traceable design aid design verification.

35
 FEASIBILITY REPORT

Is it feasible to automatic the system? The three major areas to determine the
feasibility of project:

1. Technical Feasibility:
The current level of technology can support the proposed system. The
proposed software is enabling to meet all the objective of the system and
output received is more efficient. So the project is technical feasible.

2. Economic Feasibility:
The proposed system needs to get hardware and software installed. The
short-term costs are over shadowed by the long-term gains. The profits of
the business is raised as this visual drafting system help in establishing
the better relationship between client and also satisfy their query’s and so
the cost of the development of the software and hardware is over
shadowed. Thus, project is economically feasible.

3. Operational Feasibility:
The current system faces a lot of problems that are removed in the
proposed system. The Clients of the system will be free from the burden
and a lot of confusion. The clients are themselves interested in getting the
manual system replace by the automated one. The proposal system is user
friendly, so even a layman can use it. Thus it is operationally feasible.

36
 COST & BENEFIT ANALYSIS

In developing cost estimates for a system, we need to consider servable cost

elements. Among them hardware, personnel, facility, operating, & supply
costs.

Hardware Cost

Hardware cost relate to the actual purchase or lease of the computer

&peripherals Ex. Printers, disk, floppy drive, the best way to control for this
cost is to treat it as an operating cost.

Personnel Cost
This include staff salaries & benefits (health insurance, vocation time, sick
pay etc.) as well as pay for those involved in developing system. Costs
incurred during the development of a system are one time costs & are
labeled development costs. Once the system is installed the costs of
operating & maintaining the system become recurring costs.

Facility Cost
Facility costs are expenses incurred in the preparation of the physical site
where the application or the computer will be I operation. This includes
wiring, flooring, acoustics, lighting & air conditioning. These costs are
treated as one-time costs.

Operating Cost

37
Operating costs include all costs associated with the day-to-day operating
system. The amount depends on the number of sifts the nature of the
application & the caliber of the operating staff. There are various ways of
covering operating costs to overhead. Another approach is to change each
authorized user for the amount of processing they request from the system.
The amount charged is based on the computer time, staff time & the volume
of output produced.
Supply Cost
These costs are variable costs that increase with increased use of paper,
ribbon, disks & the like they should be estimated & include in the overall
cost of the system.

Equipment Cost
Equipment costs include rental & annual deprecation of any equipment such
as typewriter, copies, computer, terminals & microcomputers used in
connection with the system. Other costs associated with the equipment, such
as insurance & maintenance should also be included.

38
 SYSTEM ANALYSIS

Introduction :

System Analysis is a set of techniques and graphical tools to develop a new

kind of specification that are easily understandable to the users. The system
Analysis has the following attributes:

1. It is graphical. The DFD, for example, depicts a picture of what is being

specified and conceptually easy to under to understand the presentation of
the application and flow the data to /from/with in the system.

2. The process is partitioned so that we have clear picture of progression

from general to specific in the system flow.

1. It is logical rather then we have clear picture of progression from

general to specific in the system flow.

2. It collects regroups study of the user area, a commitment that is often

taken likely in the traditionally advent of the system analysis.

3. Certain tasks that are normally carried out late in the system
development cycle are moved to the analysis phase. For example , user
procedure documented during the analysis rather than later in the
application.

39
The end result of the system analysis is that produces a structured
specification has uses several basics tools, such as:

 Context diagram

 Data flow diagram

 Structured chart

Context Diagram :
Context digram is the starting point of the structured analysis. They are
constructed to show the highest- level model of the system. It is used to
represent pictorially, the scope of boundaries of the system, or what we call
“AREA UNDER STUDY”.

40
SYSTEM DESIGN

Introduction:

System design is a solution, “How to approach ” to the creation of a new

system. This important phase is composed of several steps. It provides the
understanding and procedural feasibility study. Design gose through a
logical and physical stage of development. Logical design reviews the
present physical system, prepares input – output specification, makes edit,
security and control specification, detail implementation plans, prepares a
logical design walkthrough. The physical design maps out the details of the
physical system, plans the system implementation and specifies any new
hardware and software.

System design is a highly created process that can be greatly facilitated by

the following:

 Strong problem definition,

 Pictorial description of the existing system,
and
 Set of requirements of the new system.

Input Design
The most common cause of errors in data processing is inaccurate input data
errors entered by the data entry operator. It can be controlled by the input
design. Input design is the process of converting user oriented inputs to the

41
computer based formats. The goal of the input design is to make data entry
as easy, logical and free from as many errors as possible.

Output Design

Computers are the most important sources of information to the users are fed
into the computers to acquire the necessary outputs. The computers can
provide the well enough output in the form of information regarding various
items to the users. The major form of output is a hard copy from the printer.
Printouts are designed around the output requirements of the user(s).

Interface Design

Forms are designed to control the redundancy, increased operator accuracy

maximum readability, easy data entry and elimination of unnecessary data to
provide easier checking and correction of data.

Keeping in view the user’s requirements, the input/output forms have been
designed
and developed for easy data entry and query handling. Based on the various
types of inputs to be fed into the computer in using this system, several
inputs forms have been designed to make data entry easier and accurate.

Database Design

The collection of data is usually referred to as the database. The database

contains information about the particular enterprise. Database systems are

42
designed to manage larger bodies of information. The management of data
involves both the definition of the structures for the storage of the
information and the provision for the mechanism to manipulate the
information. In addition the database system must provide the safety of the
information stored in the database, despite system crashes or attempts at
unauthorized access.

43
SYSTEM IMPLEMANTATION

Implementation, literally, means to put into effects or to carry out. The

system implementation phase of software engineering deals with all
activities that take place to convert from the old system to the new. Proper
implementation is essential to provide system to meet organization’s
requirements.

During the implementation phase debugging, documentation of the system

was created out, module in the project for
 Accuracy of Results,
 Minimization of response Time,
 Clarity and Simplicity of the code,
 Minimization of hard – Coding i.e. (a generic approach was followed)
 Minimization of amount of memory used.

Various types of errors were discovered while debugging the modules.

These ranged from errors to failure to account for various processing cases.
Proper documentation of each module was done by embedding comments in
the executable portion of the code. To enhance the readability, comments,
indentation, parenthesis, block spaces, blank lines and borders were around
the blocks of comments. Care was taken to use descriptive names for table,
field modules, forms etc. The proper use of indentation, parenthesis and
blank lines was also ensured during coding.

44
Testing of the report Generation module was carried out to find out the
response time of the system for the generating reports. To make the response
time negligible.

SYSTEM DOCUMENTATION

Documentation is the process of collecting, organizing, storing, and

maintaining on paper (or some relatively permanently medium ) a complete
record of why application were developed, for whom, what function they
perform, and how these function are carried out. Thus it provides an
explanation of how a system operates & what features characterize models
& algorithms. Producing documentation is an important – but often
neglected – activity of programmers.
Documentation of the system always reduces maintenance costs and make
maintenance much more easier. Documentation can be broadly classified as:
1. INTERNAL DOCUMENTATION
2. EXTERNAL DOCUMENTATION

INTERNAL DOCUMENTATION

Internal documentation in the code can be extremely useful in enhancing the

understandability of programs. Internal documentation of programs is done
by the use of comments. All the language provide means of writing
comments in the programs. Comments are textual statements that are meant
for the reader and are not executed. Comment, if properly written, and if
kept consistent with the code, can be invaluable during maintenance.

45
The purpose of comments is not to explain the internal logic of the program
– the program itself is the best documentation for the details of logic.
The comments should explain what the code is done is doing, and not how it
is done it. Comments should be provided for the block of code, particularly
those parts of code which are hard to follows.

Providing comments for module is most useful as module form the unit
testing, compiling, verification and modification. Comments for a module
are often called prologue for the module. It is best to standardized the
structure of the prologue of the module. It is desirable that prologue contains
the following information ;

a) Module functionality or what the module is doing.

b) Parameters are their purpose

c) Assumptions about the input, if any

d) Global variable accessed and or modified in the module As explanation

of parameters (whether they are input only, output only or both input and
output, why they are needed by the module and how the parameters are
modified) can be quite useful during Maintenance.

In addition to that given above, often information can be included,

depending on the local coding standards. Example include:
 Name of the author,
 Date of compilation

46
  Last date of modification

Note that if the module is modified, then the prologue should also be
modified, if necessary. A prologue that is inconsistent with the internal logic
of the module is prologue worse than having no prologue at all.

While coding programs for the Station Coding System special attention has
been paid to the internal documentation of the system, in addition to the
external documentation. Each program/module has:

 Program/module name on top.

 Date of creation of the program.
 Last modification date.
 The S/W tool used to develop the program.
 Description of input to the program/module.
 Description of the output produced.
 How the module is related to other modules?
 Purpose of variable/constants used.

Apart from this comments lines have been inserted whenever it was felt that
they were necessary. Moreover meaningful variable names/constants have
been assigned to different variable/constants used in the program.

47
EXTERNAL DOCUMENTATION

The external documentation of the system contains all the relevant

information about the system which is not included within the programs.
The external documentation typically explains:

 What is the basic purpose of the system?

 Why the system was developed?
 The platform on which the system will run.
 The various trouble shooting mechanisms.
 The operation’s guide.

48
 TESTING

During system testing, the system is used experimentally to ensure that

the software does not fail, specific test data are input for processing and
results examined. It is desirable to discover any surprises before the
organization implements the system & depends on it.

Testing Objectives: -

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

an error.

2. A good test case is one that has a high probability of finding an

undiscovered error.

3. A successful test is one that uncovers an undiscovered error.

4. Testing Principles:-

 All tests should be traceable to customer’s requirements.

 Test should be planned long before the testing begins.

 Testing should begin “in the small” & progress towards “in the
large”.

 Exhaustive Testing is not possible.

 To be most effective, an independent third party should conduct

testing

49
White Box Testing: -

It is also known as glass box testing and internal testing. It is a test case
design method that uses a control structure of the procedural design to derive
test cases. Using white box testing methods, software engineer can derive
test cases that: -

1. Guarantee that all independent paths within the module have been
exercised at least once.

2. Exercised all logical decisions on their true & false sides.

3. Execute all loops at their boundaries & within their operational

bounds.

4. Exercise internal data structures to ensure their validity.

Black Box Testing: -

It is also called behavioral testing & external testing. It focuses in the

functional requirements of the software i.e. it enables the software engineer
to derive sets of input conditions that will fully exercise all functional
requirements for a program. It is not an alternative to white box techniques.
Rather it is a complementary approach that is likely to uncover a different
class of errors than white box methods.

Black Box testing attempts to find errors in the following categories: -

1. Incorrect or missing functions.

2. Interface errors.

3. Errors in data structures.

50
4. Behavior or performance errors.

5. Initialization & termination errors.

Activity network for system testing:-

1. prepare test plan

2. specify conditions for user acceptance testing

3. prepare test data for program testing

4. Prepare test data for transaction path testing.

5. Plan user training

6. Compile/assemble programs

7. Prepare job performance helps.

8. Prepare operational documents.

51
 DEBUGGING

This stage is the discovery & correction of programming errors. Few

programs run correctly the first time, so debugging is important & time-
consuming stage of the software development. Programming theorists &
testing as verification & validation, respectively. Verification ensures that
the program does what the programmer intend to do. It is the checking or
testing of the items ,including software ,for conformance and consistency
with an associated specification. Validation ensures that the program
produces the correct results for a set of test data. It refers to the different set
of activities that ensures that the software that has been built is traceable to
custom requirements.

BOEHM states these terms as

VERIFICATION—“Are we building the product right?”

VALIDATION—“Are we building the right product?”

The debugging of microprocessor programs is generally quite difficult

because of the inability to observe register contents directly, the primitive
debugging aids, the close interaction between hardware & software, the
frequent dependence of programs on precise timing, and the difficulty of
obtaining adequate data for real-time applications, The tools that can be used
by programs with brief description are given below: -

52
Simulators: -

It is a compute program that simulates the execution of programs on another

computer.

Logical Analyzers:

It is a test instrument that is the digital bus-oriented version of the

oscilloscope. It detects the states of digital signals during each clock cycle &
stores them in the memory. It then displays the information on a CRT, much
as an oscilloscope does.

Breakpoints: -

It is place in a program at which execution can be halted, in order to

examine the current contents of registers, memory locations & I/O ports.

Trace Routines: -

A trace is a program that prints information concerning the status of the

processor at specified intervals. Most simulator program & some
microcomputer development system have trace facilities.

Memory Dumps: -

A memory dump is a listing of the current contents of a section of the

memory. Most simulator programs, microcomputer development systems &
monitors can produce memory dumps.

53
Software Interrupts: -

The software interrupts or trap instruction is frequently used for debugging

purposes. The instruction usually saves the current value of the program
counter & then branches to a specified memory location. That information
location can be the starting point of a debugging program that lists or
displays status information – breakpoint may be inserted with trap
instructions.

54
 MAINTENANCE

Like any system, there is an aging process that requires periodic

maintenance of hardware & software. If new information is inconsistent with
design specifications, then changes have to be made. Hardware also requires
periodic maintenance to keep in tune with design specifications. The
importance of maintenance is to continue to bring the new system to
standards.

Types of Maintenance

1. Corrective maintenance:-

Repairing processing or performance failures or making changes due to

uncorrected errors.

2. Adaptive Maintenance: -

Adaptive maintenance means changing the program function to make it

adaptable according to its future environment.

3. Perfective Maintenance: -

Perfective Maintenance means enhancing the performance or modifying

the programs to responds to the changing needs.

55
Fundamental objective of system maintenance:-

1 Tto complete the system tasks as quickly as possible without

compromising the system reliability and quality.

2 To preserve those aspects of programs that were correct and to avoid the
possibility that fixes applications and cause other aspects of those
applications to behave differently.

3 To react proactively to affect changes to existing applications, to correct

errors that were made during system design or implementation.

4 To avoid as much as possible degradation of system performance.

56
 SECURITY OF THE SYSTEM

While setting up a system aspect should be kept in mind for various reasons
like privacy of data, investment costs and levels this can be achieved by
appointing system administrator, users control supervisor etc. this
organization that depends heavily on information. These controls are
classified into:

 Physical security: This security of system is performed by the protection

from fire, flood and other physical damages. For that many measures are
taken such as hardware locks, preventing access of unauthorized person
from entering the system area, keep the floppy and disk in face custody,
keeping any heat generating appliances away from the system. Obtaining
insurance cover against the risk and natural calamities.

 Database integrity: to maintain the data integrity many data validation

techniques are used so that the user cannot enter any unauthorized data.
The access of database is possible only to responsible user through
password.

 Operating system level security: The measures is taken by giving no

permission to the direct access to the data in primary memory or to online
files, which protect it’s both program and data.

57
 Application security: The application has also given a security
measures, so that no unauthorized person can enter the application, by
giving the password at the start of the program.

 Administration security: By monitoring user on regular basis.

SYSTEM ANALYSIS

QUALITY ASSURANCE

I have determined the quality of our system through following factors:

1. Correctness
2. Reliability
3. Efficiency
4. Usability
5. Maintainability
6. Testability
7. Portability
8. Accuracy
9. Error tolerance

58
INTRODUCTION TO PROPOSED SYSTEM

APPLICATION AREA: - After studying the working of present system

We were able to learn about the difficulties and limitations, which it was
facing. Before going into the details of proposed system I am here by
drawing the boundary of application area inside which I would be working.

Following are three main sub area of the main application area: -

i. Proper Maintenance of Vehicle

ii. Proper Maintenance of Driver
iii. Proper Generation of Transport vehicle

All the activities related with the above Three activities starts with
transported a new vehicle to the customer.

59
60
DATABASE DESIGN

All the tables, sequences, triggers are stored in database for storing the
information about entrance test made by the users.
Following are the tables:

Login Table

Loginname Text
Password Text

Vehicle Table

vno vname company color rno fuel rent

up12 M001 INDICA TATA RED 23432 DESEL 10
up12 M001 BOLERO TATA BLACK 23432 DESEL 12
up12 M001 SCORPIO TATA WHITE 23432 PETROL 20

Driver Table

did dName Age Phone address lno fname

1 raju 23 4353444 mzn 1222 ramsingh
3 mukesh 23 2342342 meerut 3322 sunderlal
4 kapil 32 2333432 mzn 2321 kamalsingh

61
GetpassTable

tno vno vname fuel rent rno DID age lno datefrom dateupto amt cname cphone
1 up12m2342 indica desel 12 23 4 23 23333 01-Feb- 10-Feb- 1200 jai 23423424
2000 2000 singh
2 up12m2342 indica desel 12 23 4 23 23333 01-Feb- 10-Feb- 1200 jai 23423424
2000 2000 singh
3 up12m2342 indica desel 12 23 4 23 23333 01-Feb- 10-Feb- 1200 jai 23423424
2000 2000 singh
4 up12m2342 indica desel 12 23 4 23 23333 01-Feb- 10-Feb- 1200 jai 23423424
2000 2000 singh
5 up12m2342 indica desel 12 23 4 23 23333 01-Feb- 10-Feb- 1200 jai 23423424
2000 2000 singh

62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
FRMSPLASH

Private Sub Timer1_Timer()

Static i As Integer
If i = 100 Then
Unload Me
Mainform.Show
Else
ProgressBar1.Value = i
i=i+1
End If

End Sub

LOGINFORM

Private Sub cmdexit_Click()

End
End Sub

Private Sub cmdok_Click()

Data1.Refresh
If txtpassword.Text = Data1.Recordset.Fields("password") And
txtlogin.Text = Data1.Recordset.Fields("login") Then
Unload Me
splashform.Show

78
Else
ANS = MsgBox("Incurrect, Try again", vbYesNo + vbQuestion)
If ANS = vbYes Then
txtlogin.SetFocus
Else
End
End If

End If
End Sub

Private Sub Form_Activate()

txtlogin.SetFocus
End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"
Data1.RecordSource = "logintable"
End Sub

Private Sub txtlogin_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtpassword.SetFocus
End If

End Sub

79
Private Sub txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdok.SetFocus
End If
End Sub

MAINFORM

Private Sub adddriver_Click()

Driver_add.Show
End Sub

Private Sub addvehicle_Click()

Vehicle_add.Show
End Sub

Private Sub bookedvehicle_Click()

BOOKED_VEHICLE.Show
End Sub

Private Sub del_mod_tran_Click()

DELETE_MOD_TRANS.Show

End Sub

Private Sub delmodvehicle_Click()

Del_mod_vehicle.Show

80
End Sub

Private Sub driverreport_Click()

DRIVER_REPORT.Show
End Sub

Private Sub MDIForm_Load()

Me.WindowState = 2
End Sub

Private Sub mnuBillingReport_Click()

Calculating_bill_frm.Show
End Sub

Private Sub mnuYes_Click()

End
End Sub

Private Sub mod_del_driver_Click()

Delete_modify_driver.Show
End Sub

Private Sub searchdriver_Click()

Driver_search.Show
End Sub

Private Sub searchvehicle_Click()

81
Vehicle_search.Show
End Sub

Private Sub transoption_Click()

Trans_form.Show
End Sub

Private Sub vehiclereport_Click()

VEHICLE_REPORT.Show
End Sub

VEHICLE_ADD

Private Sub cmdadd_Click()

txtvno.Locked = False
txtvname.Locked = False
txtcompany.Locked = False
txtcolor.Locked = False
txtfuel.Locked = False
txtrent.Locked = False
txtrno.Locked = False

txtvno.Text = ""
txtvname.Text = ""
txtcompany.Text = ""
txtcolor.Text = ""
txtfuel.Text = ""

82
txtrent.Text = ""
txtrno.Text = ""

cmdsave.Enabled = True
cmdadd.Enabled = False
txtvno.SetFocus
End Sub

Private Sub CMDBACK_Click()

Me.Hide
End Sub

Private Sub cmdsave_Click()

Data1.Refresh
Data1.Recordset.FindFirst "vno='" & txtvno.Text & " ' "
If Data1.Recordset.NoMatch Then
Data1.Refresh
On Error GoTo message
Data1.Recordset.AddNew
Data1.Recordset.Fields("vno") = txtvno.Text
Data1.Recordset.Fields("vname") = txtvname.Text
Data1.Recordset.Fields("company") = txtcompany.Text
Data1.Recordset.Fields("color") = txtcolor.Text
Data1.Recordset.Fields("fuel") = txtfuel.Text
Data1.Recordset.Fields("rent") = txtrent.Text
Data1.Recordset.Fields("rno") = txtrno.Text
Data1.Recordset.Update

83
 MsgBox "Successfully saved", vbExclamation
cmdsave.Enabled = False
cmdadd.Enabled = True
txtvno.Locked = True
txtvname.Locked = True
txtcompany.Locked = True
txtcolor.Locked = True
txtfuel.Locked = True
txtrent.Locked = True
txtrno.Locked = True
cmdsave.Enabled = False
cmdadd.Enabled = True
Exit Sub
message:
MsgBox "Invalid data", vbExclamation
cmdsave.Enabled = False
cmdadd.Enabled = True
Else
MsgBox "Duplicate not allowed", vbExclamation

End If

End Sub

Private Sub Form_Activate()

txtvno.Text = ""
txtvname.Text = ""

84
txtcompany.Text = ""
txtcolor.Text = ""
txtfuel.Text = ""
txtrent.Text = ""
txtrno.Text = ""

txtvno.Locked = True
txtvname.Locked = True
txtcompany.Locked = True
txtcolor.Locked = True
txtfuel.Locked = True
txtrent.Locked = True
txtrno.Locked = True
cmdsave.Enabled = False
cmdadd.SetFocus
cmdadd.SetFocus

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"

Data1.RecordSource = "vehicletable"

End Sub

85
Private Sub txtfuel_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtfuel.SetFocus
End If
KeyAscii = ChkAlpha(KeyAscii)
End Sub

Private Sub txtrent_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtrent.SetFocus
End If
KeyAscii = ChkDigit(KeyAscii)
End Sub

Private Sub txtcolor_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtcolor.SetFocus
End If
KeyAscii = ChkAlpha(KeyAscii)
End Sub

EDIT_VEHICLE
Private Sub CMDBACK_Click()
Me.Hide
End Sub

86
Private Sub CMDDEL_Click()
Dim ANS As Variant
ANS = MsgBox("Are you sure", vbYesNo + vbQuestion)
If ANS = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
MsgBox "Successfully deleted", vbExclamation
End If
txtvno.Text = ""
txtvname.Text = ""
txtcompany.Text = ""
txtcolor.Text = ""
txtfuel.Text = ""
txtrent.Text = ""
txtrno.Text = ""
CMDDEL.Enabled = True
CMDMODIFY.Enabled = True
CMDUPDATE.Enabled = False

End Sub

Private Sub CMDMODIFY_Click()

Frame1(1).Enabled = True
txtvno.SetFocus
CMDDEL.Enabled = False
CMDMODIFY.Enabled = False

87
CMDUPDATE.Enabled = True
End Sub

Private Sub cmdok_Click()

Data1.Refresh
If Data1.Recordset.EOF = False Then
Data1.Recordset.FindFirst "vno='" & txtvid.Text & " ' "
If Data1.Recordset.NoMatch Then
MsgBox "Not found", vbExclamation
Else
Frame1(1).Enabled = False
txtvno.Text = Data1.Recordset.Fields("vno")
txtvname.Text = Data1.Recordset.Fields("vname")
txtcompany.Text = Data1.Recordset.Fields("company")
txtcolor.Text = Data1.Recordset.Fields("color")
txtfuel.Text = Data1.Recordset.Fields("fuel")
txtrent.Text = Data1.Recordset.Fields("rent")
txtrno.Text = Data1.Recordset.Fields("rno")
End If

End If
End Sub

Private Sub CMDUPDATE_Click()

Data1.Refresh

88
 On Error GoTo message
Data1.Recordset.Edit
Data1.Recordset.Fields("vno") = txtvno.Text
Data1.Recordset.Fields("vname") = txtvname.Text
Data1.Recordset.Fields("company") = txtcompany.Text
Data1.Recordset.Fields("color") = txtcolor.Text
Data1.Recordset.Fields("fuel") = txtfuel.Text
Data1.Recordset.Fields("rent") = txtrent.Text
Data1.Recordset.Fields("rno") = txtrno.Text
Data1.Recordset.Update
MsgBox "Successfully saved", vbExclamation
CMDDEL.Enabled = True
CMDMODIFY.Enabled = True
CMDUPDATE.Enabled = False

Exit Sub
message:
MsgBox "Invalid data", vbExclamation
CMDDEL.Enabled = True
CMDMODIFY.Enabled = True
CMDUPDATE.Enabled = False

End Sub

Private Sub Form_Activate()

txtvid.SetFocus
CMDDEL.Enabled = True

89
CMDMODIFY.Enabled = True
CMDUPDATE.Enabled = False
End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"

Data1.RecordSource = "vehicletable"

End Sub

SEARCH_VEHICLE

Private Sub cmdexit_Click()

Me.Hide
End Sub

Private Sub cmdok_Click()

If Option1.Value = True Then
Data1.RecordSource = "Select * from vehicletable where vno='" &
txtvid.Text & " ' "
ElseIf Option2.Value = True Then
Data1.RecordSource = "Select * from vehicletable where vname='" &
txtvid.Text & " ' "
ElseIf Option3.Value = True Then
Data1.RecordSource = "Select * from vehicletable where rno=" &
txtvid.Text

90
Else
Data1.RecordSource = "select * from vehicletable"
End If
Data1.Refresh

End Sub

Private Sub Form_Activate()

Data1.RecordSource = "select * from VEHICLEtable"

End Sub

Private Sub Form_Load()

Me.WindowState = 2
Data1.DatabaseName = App.Path + "\transdatabase.mdb"
Data1.RecordSource = "vehicletable"

End Sub

Private Sub Option1_Click()

Label2.Caption = "Enter vehicle no"
txtvid.SetFocus
End Sub

Private Sub Option2_Click()

Label2.Caption = "Enter vehicle name"
txtvid.SetFocus

91
End Sub

Private Sub Option3_Click()

Label2.Caption = "Enter the reg. no"
txtvid.SetFocus
End Sub

DRIVER_ADD

Private Sub cmdadd_Click()

Data1.Refresh
If Data1.Recordset.EOF = True Then
txtdid.Text = 1

Else
Data1.Recordset.MoveLast
txtdid.Text = Data1.Recordset.Fields("did") + 1
End If
txtdname.Locked = False
txtage.Locked = False
txtphone.Locked = False
txtadd.Locked = False
txtfname.Locked = False
txtlno.Locked = False

txtdname.Text = ""
txtage.Text = ""

92
txtphone.Text = ""
txtadd.Text = ""
txtfname.Text = ""
txtlno.Text = ""

cmdsave.Enabled = True
cmdadd.Enabled = False
txtdname.SetFocus
End Sub

Private Sub CMDBACK_Click()

Me.Hide
End Sub

Private Sub cmdsave_Click()

Data1.Refresh
On Error GoTo message
Data1.Recordset.AddNew
Data1.Recordset.Fields("did") = txtdid.Text
Data1.Recordset.Fields("dname") = txtdname.Text
Data1.Recordset.Fields("age") = txtage.Text
Data1.Recordset.Fields("address") = txtadd.Text
Data1.Recordset.Fields("phone") = txtphone.Text
Data1.Recordset.Fields("fname") = txtfname.Text
Data1.Recordset.Fields("lno") = txtlno.Text
Data1.Recordset.Update

93
 MsgBox "Successfully saved", vbExclamation
cmdsave.Enabled = False
cmdadd.Enabled = True
txtdid.Locked = True
txtdname.Locked = True
txtage.Locked = True
txtphone.Locked = True
txtadd.Locked = True
txtfname.Locked = True
txtlno.Locked = True
Exit Sub
message:
MsgBox "Invalid data", vbExclamation
cmdsave.Enabled = False
cmdadd.Enabled = True
End Sub

Private Sub Form_Activate()

txtdid.Text = ""
txtdname.Text = ""
txtage.Text = ""
txtphone.Text = ""
txtadd.Text = ""
txtfname.Text = ""
txtlno.Text = ""
txtdid.Locked = True
txtdname.Locked = True

94
txtage.Locked = True
txtphone.Locked = True
txtadd.Locked = True
txtfname.Locked = True
txtlno.Locked = True
cmdsave.Enabled = False
cmdadd.SetFocus
cmdadd.SetFocus

End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"

Data1.RecordSource = "drivertable"

End Sub

Private Sub txtdname_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtfname.SetFocus
End If
End Sub

Private Sub txtfname_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

95
 txtage.SetFocus
End If
End Sub

Private Sub txtage_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtphone.SetFocus
End If
End Sub

Private Sub txtphone_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtadd.SetFocus
End If
End Sub

Private Sub txtadd_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
txtlno.SetFocus
End If
End Sub
Private Sub txtlno_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
cmdsave.SetFocus
End If
End Sub

96
DRIVER_SEARCH

Private Sub cmdexit_Click()

Me.Hide
End Sub

Private Sub cmdok_Click()

If Option1.Value = True Then
Data1.RecordSource = "Select * from drivertable where did=" &
txtdid.Text
ElseIf Option2.Value = True Then
Data1.RecordSource = "Select * from drivertable where dname='" &
txtdid.Text & " ' "
ElseIf Option3.Value = True Then
Data1.RecordSource = "Select * from drivertable where lno=" &
txtdid.Text
Else
Data1.RecordSource = "select * from drivertable"
End If
Data1.Refresh

End Sub

Private Sub Form_Activate()

Data1.RecordSource = "select * from drivertable"

97
End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"
Data1.RecordSource = "drivertable"

End Sub

Private Sub Label6_Click()

End Sub

Private Sub Option1_Click()

Label2.Caption = "Enter driver id"
txtdid.SetFocus
End Sub

Private Sub Option2_Click()

Label2.Caption = "Enter driver name"
txtdid.SetFocus
End Sub

Private Sub Option3_Click()

Label2.Caption = "Enter the license no"
txtdid.SetFocus
End Sub

98
TRANS_FORM

Private Sub cmbdid_Click()

Data2.Refresh
If Data2.Recordset.EOF = False Then
Data2.Recordset.FindFirst "did=" & cmbdid.Text
If Data2.Recordset.NoMatch Then
MsgBox "Not found", vbExclamation
Else
Frame1(2).Enabled = False
txtdname.Text = Data2.Recordset.Fields("dname")
txtage.Text = Data2.Recordset.Fields("age")
txtadd.Text = Data2.Recordset.Fields("address")
txtphone.Text = Data2.Recordset.Fields("phone")
txtfname.Text = Data2.Recordset.Fields("fname")
txtlno.Text = Data2.Recordset.Fields("lno")
End If

End If
End Sub

Private Sub cmbvno_Click()

Data1.Refresh
If Data1.Recordset.EOF = False Then
Data1.Recordset.FindFirst "vno='" & cmbvno.Text & " ' "
If Data1.Recordset.NoMatch Then

99
 MsgBox "Not found", vbExclamation
Else
Frame3.Enabled = False
txtvname.Text = Data1.Recordset.Fields("vname")
txtcompany.Text = Data1.Recordset.Fields("company")
txtcolor.Text = Data1.Recordset.Fields("color")
txtfuel.Text = Data1.Recordset.Fields("fuel")
txtrent.Text = Data1.Recordset.Fields("rent")
txtrno.Text = Data1.Recordset.Fields("rno")
End If

End If
End Sub

Private Sub cmdadd_Click()

Data3.Refresh
If Data3.Recordset.EOF = True Then
txttno.Text = 1
Else
Data3.Recordset.MoveLast
txttno.Text = Data3.Recordset.Fields("tno") + 1
End If

txtvname.Locked = False
txtcompany.Locked = False
txtcolor.Locked = False

100
txtfuel.Locked = False
txtrent.Locked = False
txtrno.Locked = False

cmbvno.Text = ""
txtvname.Text = ""
txtcompany.Text = ""
txtcolor.Text = ""
txtfuel.Text = ""
txtrent.Text = ""
txtrno.Text = ""

txtdname.Locked = False
txtage.Locked = False
txtphone.Locked = False
txtadd.Locked = False
txtfname.Locked = False
txtlno.Locked = False

cmbdid.Text = " "

txtdname.Text = ""
txtage.Text = ""
txtphone.Text = ""
txtadd.Text = ""
txtfname.Text = ""
txtlno.Text = ""

101
txttno.Locked = True
cmbvno.Locked = False
cmbdid.Locked = False

txtdatefrom.Locked = False
txtuptodate.Locked = False
txttime.Locked = False
txtdatefrom.Text = ""
txtuptodate.Text = ""
txttime.Text = ""
cmdsave.Enabled = True
cmdadd.Enabled = False
cmbvno.SetFocus

End Sub

Private Sub CMDBACK_Click()

Me.Hide
End Sub

Private Sub cmdsave_Click()

Data1.Refresh
On Error GoTo message
Data3.Recordset.AddNew
Data3.Recordset.Fields("tno") = txttno.Text

102
 Data3.Recordset.Fields("vno") = cmbvno.Text
Data3.Recordset.Fields("vname") = txtvname.Text
Data3.Recordset.Fields("company") = txtcompany.Text
Data3.Recordset.Fields("color") = txtcolor.Text
Data3.Recordset.Fields("fuel") = txtfuel.Text
Data3.Recordset.Fields("rent") = txtrent.Text
Data3.Recordset.Fields("rno") = txtrno.Text
Data3.Recordset.Fields("did") = cmbdid.Text
Data3.Recordset.Fields("dname") = txtdname.Text
Data3.Recordset.Fields("age") = txtage.Text
Data3.Recordset.Fields("address") = txtadd.Text
Data3.Recordset.Fields("phone") = txtphone.Text
Data3.Recordset.Fields("fname") = txtfname.Text
Data3.Recordset.Fields("lno") = txtlno.Text
Data3.Recordset.Fields("datefrom") = txtdatefrom.Text
Data3.Recordset.Fields("dateupto") = txtuptodate.Text
Data3.Recordset.Fields("ttime") = txttime.Text

Dim d1 As Integer, d2 As Integer

Data4.Refresh
If Data4.Recordset.EOF = False Then
Data4.Recordset.FindFirst "vno='" & cmbvno.Text & " ' "
d1 = DateDiff("d", Data4.Recordset.Fields("datefrom"),
txtdatefrom.Text)
d2 = DateDiff("d", Data4.Recordset.Fields("dateupto"),
txtuptodate.Text)

103
 d3 = DateDiff("d", Data4.Recordset.Fields("dateupto"),
txtdatefrom.Text)
If d1 >= 0 And d2 <= 0 Then
MsgBox "VEHICLE Already passed", vbExclamation
Exit Sub
ElseIf d1 >= 0 And d3 <= 0 Then
MsgBox "VEHICLE Already passed", vbExclamation
Exit Sub
End If
End If

'check THE DRIVER is already booked or not

Data4.Refresh
If Data4.Recordset.EOF = False Then
Data4.Recordset.FindFirst "DID=" & cmbdid.Text
d1 = DateDiff("d", Data4.Recordset.Fields("datefrom"),
txtdatefrom.Text)
d2 = DateDiff("d", Data4.Recordset.Fields("dateupto"),
txtuptodate.Text)
d3 = DateDiff("d", Data4.Recordset.Fields("dateupto"),
txtdatefrom.Text)
If d1 >= 0 And d2 <= 0 Then
MsgBox "DRIVER Already passed", vbExclamation
Exit Sub
ElseIf d1 >= 0 And d3 <= 0 Then
MsgBox "DRIVER Already passed", vbExclamation

104
 Exit Sub
End If
End If

Data3.Recordset.Update

'update booked vehicle

Data4.Refresh
Data4.Recordset.AddNew
Data4.Recordset.Fields("tno") = txttno.Text
Data4.Recordset.Fields("vno") = cmbvno.Text
Data4.Recordset.Fields("datefrom") = txtdatefrom.Text
Data4.Recordset.Fields("dateupto") = txtuptodate.Text
Data4.Recordset.Fields("did") = cmbdid.Text

Data4.Recordset.Update

MsgBox "Successfully saved", vbExclamation

txttno.Locked = True
cmbvno.Locked = True
txtvname.Locked = True
txtcompany.Locked = True
txtcolor.Locked = True
txtfuel.Locked = True
txtrent.Locked = True

105
 txtrno.Locked = True

cmbdid.Locked = True
txtdname.Locked = True
txtage.Locked = True
txtphone.Locked = True
txtadd.Locked = True
txtfname.Locked = True
txtlno.Locked = True

txtdatefrom.Locked = True
txtuptodate.Locked = True
txttime.Locked = True

cmdsave.Enabled = False
cmdadd.Enabled = True

Exit Sub
message:
MsgBox "Invalid data", vbExclamation
cmdsave.Enabled = False
cmdadd.Enabled = True

End Sub

Private Sub Form_Activate()

106
Data1.Refresh
If Data1.Recordset.EOF = False Then
cmbvno.Clear
Do
cmbvno.AddItem Data1.Recordset.Fields("vno")
Data1.Recordset.MoveNext
Loop While Data1.Recordset.EOF = False
End If
Data2.Refresh
If Data2.Recordset.EOF = False Then
cmbdid.Clear
Do
cmbdid.AddItem Data2.Recordset.Fields("did")
Data2.Recordset.MoveNext
Loop While Data2.Recordset.EOF = False
End If

cmdadd.SetFocus
End Sub

Private Sub Form_Load()

Me.WindowState = 2
Data1.DatabaseName = App.Path + "\transdatabase.mdb"
Data1.RecordSource = "vehicletable"
Data2.DatabaseName = App.Path + "\transdatabase.mdb"
Data2.RecordSource = "drivertable"
Data3.DatabaseName = App.Path + "\transdatabase.mdb"

107
Data3.RecordSource = "transtable"
Data4.DatabaseName = App.Path + "\transdatabase.mdb"
Data4.RecordSource = "bookedvehicle"

End Sub

Private Sub txtdatefrom_LostFocus()

txtdatefrom.Text = Format(txtdatefrom.Text, "dd-mmm-yyyy")

End Sub
Private Sub txtuptodate_lostFocus()
txtuptodate.Text = Format(txtuptodate.Text, "dd-mmm-yyyy")

End Sub

DELETE_MOD_TRANS

Private Sub CMDBACK_Click()

Me.Hide
End Sub

Private Sub CMDDEL_Click()

108
Dim ANS As Variant
ANS = MsgBox("Are you sure", vbYesNo + vbQuestion)
If ANS = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
MsgBox "Successfully deleted", vbExclamation

txttno.Text = ""
cmbvno.Text = ""
txtvname.Text = ""
txtcompany.Text = ""
txtcolor.Text = ""
txtfuel.Text = ""
txtrent.Text = ""
txtrno.Text = ""
cmbdid.Text = ""
txtdname.Text = ""
txtage.Text = ""
txtphone.Text = ""
txtadd.Text = ""
txtfname.Text = ""
txtlno.Text = ""
txtdatefrom.Text = ""
txtuptodate.Text = ""
txttime.Text = ""

End If

109
 cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False

End Sub

Private Sub CMDMODIFY_Click()

Frame5.Enabled = True
txtdatefrom.SetFocus
cmdDEL.Enabled = False
cmdMODIFY.Enabled = False
cmdUPDATE.Enabled = True
End Sub

Private Sub cmdok_Click()

Data1.Refresh
If Data1.Recordset.EOF = False Then
Data1.Recordset.FindFirst "Tno=" & txttno.Text
If Data1.Recordset.NoMatch Then
MsgBox "Not found", vbExclamation
Else
cmdMODIFY.Enabled = True
cmdDEL.Enabled = True

cmbvno.Text = Data1.Recordset.Fields("vno")
txtvname.Text = Data1.Recordset.Fields("vname")

110
 txtcompany.Text = Data1.Recordset.Fields("company")
txtcolor.Text = Data1.Recordset.Fields("color")
txtfuel.Text = Data1.Recordset.Fields("fuel")
txtrent.Text = Data1.Recordset.Fields("rent")
txtrno.Text = Data1.Recordset.Fields("rno")

cmbdid.Text = Data1.Recordset.Fields("did")
txtdname.Text = Data1.Recordset.Fields("dname")
txtage.Text = Data1.Recordset.Fields("age")
txtadd.Text = Data1.Recordset.Fields("address")
txtphone.Text = Data1.Recordset.Fields("phone")
txtfname.Text = Data1.Recordset.Fields("fname")
txtlno.Text = Data1.Recordset.Fields("lno")

txtdatefrom.Text = Data1.Recordset.Fields("datefrom")
txtuptodate.Text = Data1.Recordset.Fields("dateupto")
txttime.Text = Data1.Recordset.Fields("amt")

End If

End If
End Sub

Private Sub CMDUPDATE_Click()

111
 ' On Error GoTo message
Data1.Recordset.Edit
Data1.Recordset.Fields("datefrom") = txtdatefrom.Text
Data1.Recordset.Fields("dateupto") = txtuptodate.Text
Data1.Recordset.Fields("ttime") = txttime.Text

'check THE VEHICLE is already booked or not

Dim d1 As Integer, d2 As Integer

Data2.Refresh
If Data2.Recordset.EOF = False Then
Data2.Recordset.FindFirst "vno='" & cmbvno.Text & " ' "
d1 = DateDiff("d", Data2.Recordset.Fields("datefrom"),
txtdatefrom.Text)
d2 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtuptodate.Text)
d3 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtdatefrom.Text)
If d1 >= 0 And d2 <= 0 Then
MsgBox "VEHICLE Already passed", vbExclamation
Exit Sub
ElseIf d1 >= 0 And d3 <= 0 Then
MsgBox "VEHICLE Already passed", vbExclamation
Exit Sub
End If

112
 End If

'check THE DRIVER is already booked or not

Data2.Refresh
If Data2.Recordset.EOF = False Then
Data2.Recordset.FindFirst "DID=" & cmbdid.Text
d1 = DateDiff("d", Data2.Recordset.Fields("datefrom"),
txtdatefrom.Text)
d2 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtuptodate.Text)
d3 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtdatefrom.Text)
If d1 >= 0 And d2 <= 0 Then
MsgBox "DRIVER Already passed", vbExclamation
Exit Sub
ElseIf d1 >= 0 And d3 <= 0 Then
MsgBox "DRIVER Already passed", vbExclamation
Exit Sub
End If
End If

Data1.Recordset.Update
MsgBox "Successfully saved", vbExclamation
cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False

113
 Exit Sub
message:
MsgBox "Invalid data", vbExclamation
cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False

End Sub

Private Sub Form_Activate()

txttno.SetFocus
Frame3.Enabled = False
Frame1(2).Enabled = False
Frame5.Enabled = False
cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False
End Sub

Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"

Data1.RecordSource = "transtable"
Data2.DatabaseName = App.Path + "\transdatabase.mdb"
Data2.RecordSource = "bookedvehicle"
End Sub

114
EDIT_TRANS

Private Sub CMDBACK_Click()

Me.Hide
End Sub

Private Sub CMDDEL_Click()

Dim ANS As Variant
ANS = MsgBox("Are you sure", vbYesNo + vbQuestion)
If ANS = vbYes Then
Data1.Recordset.Delete
Data1.Refresh
MsgBox "Successfully deleted", vbExclamation

txttno.Text = ""
cmbvno.Text = ""
txtvname.Text = ""
txtcompany.Text = ""
txtcolor.Text = ""
txtfuel.Text = ""
txtrent.Text = ""
txtrno.Text = ""
cmbdid.Text = ""
txtdname.Text = ""
txtage.Text = ""

115
 txtphone.Text = ""
txtadd.Text = ""
txtfname.Text = ""
txtlno.Text = ""
txtdatefrom.Text = ""
txtuptodate.Text = ""
txttime.Text = ""

End If

cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False

End Sub

Private Sub CMDMODIFY_Click()

Frame5.Enabled = True
txtdatefrom.SetFocus
cmdDEL.Enabled = False
cmdMODIFY.Enabled = False
cmdUPDATE.Enabled = True
End Sub

Private Sub cmdok_Click()

Data1.Refresh
If Data1.Recordset.EOF = False Then

116
Data1.Recordset.FindFirst "Tno=" & txttno.Text
If Data1.Recordset.NoMatch Then
MsgBox "Not found", vbExclamation
Else
cmdMODIFY.Enabled = True
cmdDEL.Enabled = True

cmbvno.Text = Data1.Recordset.Fields("vno")
txtvname.Text = Data1.Recordset.Fields("vname")
txtcompany.Text = Data1.Recordset.Fields("company")
txtcolor.Text = Data1.Recordset.Fields("color")
txtfuel.Text = Data1.Recordset.Fields("fuel")
txtrent.Text = Data1.Recordset.Fields("rent")
txtrno.Text = Data1.Recordset.Fields("rno")

cmbdid.Text = Data1.Recordset.Fields("did")
txtdname.Text = Data1.Recordset.Fields("dname")
txtage.Text = Data1.Recordset.Fields("age")
txtadd.Text = Data1.Recordset.Fields("address")
txtphone.Text = Data1.Recordset.Fields("phone")
txtfname.Text = Data1.Recordset.Fields("fname")
txtlno.Text = Data1.Recordset.Fields("lno")

txtdatefrom.Text = Data1.Recordset.Fields("datefrom")
txtuptodate.Text = Data1.Recordset.Fields("dateupto")
txttime.Text = Data1.Recordset.Fields("amt")
End If

117
 End If
End Sub
Private Sub CMDUPDATE_Click()
' On Error GoTo message
Data1.Recordset.Edit
Data1.Recordset.Fields("datefrom") = txtdatefrom.Text
Data1.Recordset.Fields("dateupto") = txtuptodate.Text
Data1.Recordset.Fields("ttime") = txttime.Text

Dim d1 As Integer, d2 As Integer

Data2.Refresh
If Data2.Recordset.EOF = False Then
Data2.Recordset.FindFirst "vno='" & cmbvno.Text & " ' "
d1 = DateDiff("d", Data2.Recordset.Fields("datefrom"),
txtdatefrom.Text)
d2 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtuptodate.Text)
d3 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtdatefrom.Text)
If d1 >= 0 And d2 <= 0 Then
MsgBox "VEHICLE Already passed", vbExclamation
Exit Sub
ElseIf d1 >= 0 And d3 <= 0 Then
MsgBox "VEHICLE Already passed", vbExclamation
Exit Sub
End If

118
 End If

'check THE DRIVER is already booked or not

Data2.Refresh
If Data2.Recordset.EOF = False Then
Data2.Recordset.FindFirst "DID=" & cmbdid.Text
d1 = DateDiff("d", Data2.Recordset.Fields("datefrom"),
txtdatefrom.Text)
d2 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtuptodate.Text)
d3 = DateDiff("d", Data2.Recordset.Fields("dateupto"),
txtdatefrom.Text)
If d1 >= 0 And d2 <= 0 Then
MsgBox "DRIVER Already passed", vbExclamation
Exit Sub
ElseIf d1 >= 0 And d3 <= 0 Then
MsgBox "DRIVER Already passed", vbExclamation
Exit Sub
End If
End If
Data1.Recordset.Update
MsgBox "Successfully saved", vbExclamation
cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False

119
 Exit Sub

message:
MsgBox "Invalid data", vbExclamation
cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False

End Sub

Private Sub Form_Activate()

txttno.SetFocus
Frame3.Enabled = False
Frame1(2).Enabled = False
Frame5.Enabled = False
cmdDEL.Enabled = True
cmdMODIFY.Enabled = True
cmdUPDATE.Enabled = False
End Sub
Private Sub Form_Load()

Data1.DatabaseName = App.Path + "\transdatabase.mdb"

Data1.RecordSource = "transtable"
Data2.DatabaseName = App.Path + "\transdatabase.mdb"
Data2.RecordSource = "bookedvehicle"
End Sub

120
 CONCLUSION

After having completed this project ,We felt that it was an excellent learning
experience as I deal with a real life project that give a oppurtunity to
working for the students to make their test more easy, while working on this
project I got a good exposure to the sharp programming skills and the
various programming techniques while coding for this system I was exposed
to the vast knowledge about the strength and weakness of VB language .

A part from this I have been able to appreciate the hardwork of programmers
spent in developing such a system the most important realization was the
amount of cooperation, dedication, hardwork and team spirit that goes into
making of a successful project.

HARDWARE REQUIREMENT

THIS SOFTWARE RUNS within any environment .This software needs at

least Pentium prosessor 32MB RAM memory,2.1GB of Hard disk ,SVGA
display of 1 MB video memory and color monitor but with this lot of
processor power consumed and speed of the system will be very slow.
Therefore a realistic hardware configuration for this software is:-

121
 BIBLIOGRAPHY

The following are the books references that have been studied in the
duration of making of this project.

 Mastering in vb6.0
 Microsoft office
 Black book of vb6

WEB REFRENCES
www.microsoft.com

122