AIRPORT MANAGEMENT SYSTEM
ABSTRACT The object of this project is to design and implement Airport Management with user interface and administrator interface using VB.NET. It includes details such as passenger with fields such as name, address phone number and passport details which will be stored in database for verification. Reservation details help in reserving seats for the passenger with other details such as date, flight no, code and other details. If the user needs to cancel the reservation he can do cancellation providing details to the administrator. Flight details have to be maintained including flight no, code, source and destination etc which is to be considered during reservation Airport Management System is developed in VB .NET as Front end and SQL SERVER 2000 as Back end. Visual Basic is referred to as an “Event Driven” programming language because all the code is triggered by specific events that the user performs. This puts the user firmly in control of how the program flows and therefore increases user satisfaction with the program.
Introduction: The airline industry is a very particular system. Airlines provide a service, which is to transport a passenger between two cities at an agreed price. There is neither physical product given to the consumer, nor inventory created and stored. Airlines also exhibit very particular economics that, over time, have motivated specific management concepts, tools and practices. Some of them are analyzed in this section.
The best strategy is to analyze the market for each flight and check what passengers prefer. If they value lower price tickets, use a plane with more seats. If they belong to a business community, use a plane with fewer seats (pricing higher), but that gives them more comfort and workspace.
Airports are subject to various state, county, and municipal requirements when it comes to budgeting and tracking airport expenses, financial management is another area of opportunity for improvement. In addition, to discussing general financial management topics for small airports, the guide book should encourage the development of better financial systems for small airports and provide information to do so. For this airport management is very essential in order to maintain all details regarding the fields such as flight, passenger and other details if required.
Literature Review: The managers of small airports have a wide range of responsibilities covering everything from operations and maintenance to regulatory compliance to stakeholder outreach all of which must often be accomplished within fiscal constraints. Small airport managers are as diverse as the airports that they oversee. Some are professional airport managers,
others are fixed-base operators (FBO) who provide management services, and others are elected officials or municipal employees whose portfolio of duties happens to nclude managing the local airport. Aviation management is a relatively new academic discipline and training programs sponsored by industry associations tend to be geared towards the professional airport manager. Thus, many people who become airport managers or have responsibility for managing an airport as part of another position, have received little in the way of formal airport management training.
Airports responding to the survey reported a variety of safety practices currently in use including: passenger details, flight details, other regular self-inspection of airfield systems and navigational aids, and employee safety programs.
Problem Statement:
Existing System: The existing system is a static system and has called for improvements also have certain limitations in the development of this Project. The details we maintain is not the computerized every details of the passenger have to note manually during reservation and to check during passenger entry. Proposed System: Details about the airport management are maintained computerized which allow to the administrator with less management. Data’s are stored and retrieved whenever
needed. Time is saved. It includes all details to be stored in database which provides flexible operation of data mining.
System Analysis: Hardware Requirement: Processor
:
Pentium IV
Processor Speed
:
2.80GHz
Main Storage
:
512MB RAM
Hard Disk Capacity
:
80GB
Software Requirement: Front End: Asp.net Back End: Ms Access Operating System: Windows xp/2000
MODULES LOGIN PASSENGER DETAILS RESERVATION DETAILS FLIGHT DETAILS CANCELLATION DETAILS
MODULE DESCRIPTION: LOGIN: This is used to verify the user is valid or not. It helps in preventing unauthorized user accessing the information.
PASSENGER DETAILS: This is used to maintain all details about the passenger who are going to reserve for airway. All the details will be maintained in database and it can be retrieved whenever needed.
RESERVATION DETAILS: This module contains all information about the passenger who reserved for flight. It contains passenger information with additional flight details.
FLIGHT DETAILS: This module is used to maintain all details about the flight. It includes flight number, code, source and destination. All details will be maintained in database and listed whenever passenger reserve ticket.
CANCELLATION DETAILS: This module is used to cancel the reservation done by the passenger. The list of cancellation is maintained by the administrator.
Use Case Diagram:
Passenger Details
Reservatio n Details Admin Flight Details
Cancellati on Details
Databas e
Screen Shots:
Sample coding Imports System.Data.OleDb Public Class passenger Dim cn As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=" & Application.StartupPath & "\airlines.mdb;") Dim con As New OleDbCommand Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try If pnrno.Text = "" Or sname.Text = "" Or sage.Text = "" Or sgen.Text = "" Or spassno.Text = "" Then MsgBox("Enter all the fields") Else con.CommandText = "insert into passenger values('" & pnrno.Text & "','" & sname.Text & "','" & sage.Text & "','" & sgen.Text & "','" & spassno.Text & "')" con.Connection = cn cn.Open()
con.ExecuteNonQuery() cn.Close() MsgBox("Details added") End If Catch ex As Exception MsgBox("Invalid Pnr no") End Try End Sub Private Sub pnrno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pnrno.TextChanged Try If CInt(pnrno.Text) Then End If Catch ex As Exception ' MsgBox("Enter in numbers") pnrno.Text = "" End Try End Sub Private Sub sage_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Try If CInt(sage.Text) Then End If Catch ex As Exception ' MsgBox("Enter in numbers") sage.Text = "" End Try End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
Imports System.Data.OleDb Public Class reservation Dim cn As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=" & Application.StartupPath & "\airlines.mdb;") Dim con As New OleDbCommand Dim con1 As New OleDbCommand Dim con2 As New OleDbCommand Dim rd As OleDbDataReader Dim a, b, c As String
Private Sub sgen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub pnrno_Enter(ByVal sender As Object, ByVal e As System.EventArgs) End Sub Private Sub pnrno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Try con.CommandText = "select * from passenger where pnrno='" & pnrno.Text & "'" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read sname.Text = rd.GetString(1) spassno.Text = rd.GetString(4) End While rd.Close() cn.Close() Catch ex As Exception End Try End Sub Private Sub reservation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load con.CommandText = "select * from Flight" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read arcode.Items.Add(rd.GetString(0)) End While rd.Close() cn.Close() con1.CommandText = "select * from passenger" con1.Connection = cn cn.Open() rd = con1.ExecuteReader While rd.Read pnrno.Items.Add(rd.GetString(0)) End While rd.Close()
cn.Close() End Sub Private Sub arcode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles arcode.SelectedIndexChanged con.CommandText = "select * from Flight where AircraftCode='" & arcode.SelectedItem & "'" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read fltname.Text = rd.GetString(1) sr.Text = rd.GetString(2) des.Text = rd.GetString(3) drtime.Text = rd.GetString(4) jrhrs.Text = rd.GetValue(5) a = rd.GetString(6) amt.Text = rd.GetString(7) End While rd.Close() cn.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If pnrno.Text = "" Or arcode.Text = "" Then MsgBox("Enter all the fields") Else con.CommandText = "insert into Reservation values('" & pnrno.Text & "','" & sname.Text & "','" & arcode.Text & "','" & jrdate.Text & "','" & amt.Text & "','" & seat.Text & "','" & totamt.Text & "')" con.Connection = cn cn.Open() con.ExecuteNonQuery() cn.Close() pnrno.Text = "" sname.Text = "" arcode.Text = "" jrdate.Text = "" amt.Text = "" seat.Text = "" totamt.Text = "" spassno.Text = "" fltname.Text = "" sr.Text = "" des.Text = "" End If con1.CommandText = "select * from Reservation"
con1.Connection = cn cn.Open() rd = con1.ExecuteReader While rd.Read b = rd.GetString(5) End While rd.Close() cn.Close() c = CInt(a) - CInt(b) If a > b Then con2.CommandText = "update Flight set seatav='" & c & "' where AircraftCode='" & arcode.SelectedItem & "'" con2.Connection = cn cn.Open() con2.ExecuteNonQuery() cn.Close() MsgBox("Reserved") End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Me.Close() End Sub Private Sub seat_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles seat.TextChanged totamt.Text = Val(amt.Text) * Val(seat.Text) End Sub Private Sub pnrno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pnrno.SelectedIndexChanged con.CommandText = "select * from passenger where pnrno='" & pnrno.SelectedItem & "'" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read sname.Text = rd.GetString(1) spassno.Text = rd.GetString(4) End While rd.Close() cn.Close() End Sub End Class
Imports System.Data.OleDb Public Class Add_flight Dim cn As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=" & Application.StartupPath & "\airlines.mdb;") Dim con As New OleDbCommand Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If fltname.Text = "" Or arcode.Text = "" Or sr.Text = "" Or des.Text = "" Or drtime.Text = "" Or jrhrs.Text = "" Then MsgBox("Enter all the fields") Else con.CommandText = "insert into flight values('" & arcode.Text & "','" & fltname.Text & "','" & sr.Text & "','" & des.Text & "','" & drtime.Text & "','" & jrhrs.Text & "','" & seats.Text & "','" & amt.Text & "')" con.Connection = cn cn.Open() con.ExecuteNonQuery() cn.Close() MsgBox("Flight added") arcode.Text = "" fltname.Text = "" sr.Text = "" des.Text = "" drtime.Text = "" jrhrs.Text = "" seats.Text = "" amt.Text = "" End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
Imports System.Data.OleDb Public Class Cancel_reservation Dim cn As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=" & Application.StartupPath & "\airlines.mdb;") Dim con As New OleDbCommand Dim con1 As New OleDbCommand Dim con2 As New OleDbCommand Dim con3 As New OleDbCommand Dim rd As OleDbDataReader Dim a, b As String
Dim c As String Private Sub Cancel_reservation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load con1.CommandText = "select * from Reservation" con1.Connection = cn cn.Open() rd = con1.ExecuteReader While rd.Read pnrno.Items.Add(rd.GetString(0)) End While rd.Close() cn.Close() End Sub Private Sub pnrno_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Try con.CommandText = "select * from reservation where pnrno='" & pnrno.Text & "'" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read sname.Text = rd.GetString(1) arcode.Text = rd.GetString(2) jrdate.Text = rd.GetString(3) b = rd.GetString(5) End While rd.Close() cn.Close() Catch ex As Exception End Try End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click con.CommandText = "select * from Reservation" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read b = rd.GetString(5) End While rd.Close() cn.Close()
con1.CommandText = "select * from Flight" con1.Connection = cn cn.Open() rd = con1.ExecuteReader While rd.Read
a = rd.GetString(6) End While rd.Close() cn.Close() c = CInt(b) + CInt(a) con2.CommandText = "update Flight set seatav='" & c & "' where AircraftCode='" & arcode.Text & "'" con2.Connection = cn cn.Open() con2.ExecuteNonQuery() cn.Close() con.CommandText = "delete from reservation where pnrno='" & pnrno.SelectedItem & "'" con.Connection = cn cn.Open() con.ExecuteNonQuery() cn.Close() MsgBox("reservation cancelled") sname.Text = "" arcode.Text = "" jrdate.Text = "" seat.Text = "" amt.Text = "" End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub pnrno_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pnrno.SelectedIndexChanged con.CommandText = "select * from Reservation where pnrno='" & pnrno.SelectedItem & "'" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read sname.Text = rd.GetString(1) arcode.Text = rd.GetString(2) jrdate.Text = rd.GetValue(3) seat.Text = rd.GetString(5) amt.Text = rd.GetString(6) End While rd.Close() cn.Close()
End Sub Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) con.CommandText = "select * from Reservation" con.Connection = cn cn.Open() rd = con.ExecuteReader While rd.Read b = rd.GetString(5) End While rd.Close() cn.Close()
con1.CommandText = "select * from Flight" con1.Connection = cn cn.Open() rd = con1.ExecuteReader While rd.Read a = rd.GetString(6) End While rd.Close() cn.Close() c = CInt(b) + CInt(a) con2.CommandText = "update Flight set seatav='" & c & "' where AircraftCode='" & arcode.Text & "'" con2.Connection = cn cn.Open() con2.ExecuteNonQuery() cn.Close() End Sub End Class
Imports System.Data.OleDb Public Class flight_details Dim cn As New OleDbConnection("Provider=microsoft.jet.oledb.4.0;Data source=" & Application.StartupPath & "\airlines.mdb;") Dim con As New OleDbCommand Dim rd As OleDbDataReader Private Sub flight_details_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim adp As New OleDbDataAdapter("select * from Flight", cn) Dim ds As New DataSet adp.Fill(ds, "Flight") DataGridView1.DataSource = ds.Tables(0) End Sub
Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class
Conclusion:
The project helps in maintaining airport such as providing information for reservation, flight available and seats in each aircraft along with the code for identification. Data maintenace is very inportant in each fields. It should be flexible and can be retrieved whenever needed. Hence such form of application is implemented in this project. Computerized based activity will be employed with aids user and administrator.