Airlines
Airline Reservation System project
The Airline Reservation System project is an implementation of a general Airline Ticketing website like Orbitz, which helps the customers to search the availability and prices of various airline tickets, along with the different packages available with the reservations.
Airlines Download Output
Airlines Download CPP
airlines.txt |
Airlines_Main(airlines_main.frm)
Private Sub CANCELATION_Click()
Unload AIRLINES_MAIN
Unload AIRLINES_CANCEL
AIRLINES_CANCEL.Show
End Sub
Private Sub ENQUIRY_Click()
Unload AIRLINES_MAIN
AIRLINES_GENENQ.Show
End Sub
Private Sub EXIT_Click()
End
End Sub
Private Sub RESERVATION_Click()
Unload AIRLINES_MAIN
Unload AIRLINES_RESERV
AIRLINES_RESERV.Show
End Sub
Private Sub STATUS_Click()
Unload AIRLINES_MAIN
Unload AIRLINES_ENQ
AIRLINES_ENQ.Show
End Sub
Airlines_Reserv(airlines_reserv.frm)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim s As Integer
Private Sub Command1_Click()
With rs
s = 1
.AddNew
!PASSENGER_NAME = Text1.Text
!Address = Text2.Text
!DOB = CDate(Text3.Text)
!PHONE_NO = Val(Text4.Text)
Private Sub CANCELATION_Click()
Unload AIRLINES_MAIN
Unload AIRLINES_CANCEL
AIRLINES_CANCEL.Show
End Sub
Private Sub ENQUIRY_Click()
Unload AIRLINES_MAIN
AIRLINES_GENENQ.Show
End Sub
Private Sub EXIT_Click()
End
End Sub
Private Sub RESERVATION_Click()
Unload AIRLINES_MAIN
Unload AIRLINES_RESERV
AIRLINES_RESERV.Show
End Sub
Private Sub STATUS_Click()
Unload AIRLINES_MAIN
Unload AIRLINES_ENQ
AIRLINES_ENQ.Show
End Sub
Airlines_Reserv(airlines_reserv.frm)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim s As Integer
Private Sub Command1_Click()
With rs
s = 1
.AddNew
!PASSENGER_NAME = Text1.Text
!Address = Text2.Text
!DOB = CDate(Text3.Text)
!PHONE_NO = Val(Text4.Text)
!FLIGHT_NO = Text5.Text
!DESTINATION = Text6.Text
!JOURNEY_DATE = CDate(Text7.Text)
!BOOKING_DATE = CDate(Text8.Text)
!PNR = Val(Text9.Text)
!FARE = Val(Text11.Text)
!DEPARTURE = Text12.Text
!STATUS = "CONFIRMED"
.Update
s = 0
End With
AIRLINES_RESERV.Hide
Unload AIRLINES_PAYMENT
AIRLINES_PAYMENT.Show
cn.Close
End Sub
Private Sub Form_Load()
cn.Provider = "MSDAORA.1;password = tiger;User ID=scott"
cn.Open
With rs
Set .ActiveConnection = cn.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "SELECT * FROM AIRLINES_TICKET"
End With
rs.Open
With rs1
Set .ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "SELECT * FROM AIRLINES_TICKET"
End With
With rs1
rs1.Source = "SELECT NVL(MAX(PNR),1000)+1 FROM AIRLINES_TCKET"
rs1.Open
a = rs1.Fields(0)
Text9.Text = a
End With
With rs2
Set .ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "SELECT * FROM AIRLINES_TICKET"
End With
Text6.Text = AIRLINES_ENQ.Combo1.Text
Text7.Text = AIRLINES_ENQ.Text1.Text
If Text6.Text = "DELHI-BANGKOK-DELHI" Then
Text11.Text = "12500"
Text12.Text = "7.30A.M."
ElseIf Text6.Text = "DELHI-SINGAPORE-DELHI" Then
Text11.Text = "20000"
Text12.Text = "12.30 P.M."
ElseIf Text6.Text = "DELHI-BAHRAIN-DELHI" Then
Text11.Text = "18000"
Text12.Text = "10.30A.M."
ElseIf Text6.Text = "DELHI-DUBAI-DELHI" Then
Text11.Text = "16500"
Text12.Text = "6.30P.M."
ElseIf Text6.Text = "DELHI-UK-DELHI" Then
Text11.Text = "30000"
Text12.Text = "7.30P.M."
End If
Text8.Text = Date
Text5.Text = AIRLINES_ENQ.Label3.Caption
End Sub
Airlines_Enq(airlines_enq.frm)
Dim cn As New ADODB.Connection
Dim cn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rseat As Integer
Private Sub Combo1_Change()
If Combo1.Text = "DELHI_BANGKOK-DELHI" Then
Adodc1.RecordSource = "SELECT* FROM AIRLINES_BANGKOK"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-SINGAPORE-DELHI" Then
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-BAHRAIN-DELHI" Then
Adodc1.RecordSource = "SELECT * FROM AIRLINES_BAHRAIN"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-DUBAI-DELHI" Then
Adodc1.RecordSource = "SELECT*FROM AIRLINES_DUBAI"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-UK-DELHI" Then
Adodc1.RecordSource = "SELECT*FROM AIRLINES_UK"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End If
!DESTINATION = Text6.Text
!JOURNEY_DATE = CDate(Text7.Text)
!BOOKING_DATE = CDate(Text8.Text)
!PNR = Val(Text9.Text)
!FARE = Val(Text11.Text)
!DEPARTURE = Text12.Text
!STATUS = "CONFIRMED"
.Update
s = 0
End With
AIRLINES_RESERV.Hide
Unload AIRLINES_PAYMENT
AIRLINES_PAYMENT.Show
cn.Close
End Sub
Private Sub Form_Load()
cn.Provider = "MSDAORA.1;password = tiger;User ID=scott"
cn.Open
With rs
Set .ActiveConnection = cn.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "SELECT * FROM AIRLINES_TICKET"
End With
rs.Open
With rs1
Set .ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "SELECT * FROM AIRLINES_TICKET"
End With
With rs1
rs1.Source = "SELECT NVL(MAX(PNR),1000)+1 FROM AIRLINES_TCKET"
rs1.Open
a = rs1.Fields(0)
Text9.Text = a
End With
With rs2
Set .ActiveConnection = cn
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "SELECT * FROM AIRLINES_TICKET"
End With
Text6.Text = AIRLINES_ENQ.Combo1.Text
Text7.Text = AIRLINES_ENQ.Text1.Text
If Text6.Text = "DELHI-BANGKOK-DELHI" Then
Text11.Text = "12500"
Text12.Text = "7.30A.M."
ElseIf Text6.Text = "DELHI-SINGAPORE-DELHI" Then
Text11.Text = "20000"
Text12.Text = "12.30 P.M."
ElseIf Text6.Text = "DELHI-BAHRAIN-DELHI" Then
Text11.Text = "18000"
Text12.Text = "10.30A.M."
ElseIf Text6.Text = "DELHI-DUBAI-DELHI" Then
Text11.Text = "16500"
Text12.Text = "6.30P.M."
ElseIf Text6.Text = "DELHI-UK-DELHI" Then
Text11.Text = "30000"
Text12.Text = "7.30P.M."
End If
Text8.Text = Date
Text5.Text = AIRLINES_ENQ.Label3.Caption
End Sub
Airlines_Enq(airlines_enq.frm)
Dim cn As New ADODB.Connection
Dim cn1 As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim rseat As Integer
Private Sub Combo1_Change()
If Combo1.Text = "DELHI_BANGKOK-DELHI" Then
Adodc1.RecordSource = "SELECT* FROM AIRLINES_BANGKOK"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-SINGAPORE-DELHI" Then
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-BAHRAIN-DELHI" Then
Adodc1.RecordSource = "SELECT * FROM AIRLINES_BAHRAIN"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-DUBAI-DELHI" Then
Adodc1.RecordSource = "SELECT*FROM AIRLINES_DUBAI"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
ElseIf Combo1.Text = "DELHI-UK-DELHI" Then
Adodc1.RecordSource = "SELECT*FROM AIRLINES_UK"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End If
End Sub
insert into airlines_uk values('a005','delhi-uk-delhi','28-sep-2003',200,200);
insert into airlines_singapore values('aoo2','delhi-singapore-delhi','28-sep-2003',200,200);
insert into airlines_genenq values('a001','delhi-bangkok-delhi',12500, '7.30 A.M.','9.20 P.M.',200,'20 KG ');
insert into airlines_bahrain values('a003', 'delhi-bahrain-delhi','28-sep-2003',250,250);
insert into airlines_dubai values('a004','delhi-dubai-delhi','28-sep-2003', 300,300);
insert into airlines_uk values('a005','delhi-uk-delhi','28-sep-2003',200,200);
insert into airlines_singapore values('aoo2','delhi-singapore-delhi','28-sep-2003',200,200);
insert into airlines_genenq values('a001','delhi-bangkok-delhi',12500, '7.30 A.M.','9.20 P.M.',200,'20 KG ');
insert into airlines_bahrain values('a003', 'delhi-bahrain-delhi','28-sep-2003',250,250);
insert into airlines_dubai values('a004','delhi-dubai-delhi','28-sep-2003', 300,300);
airlines.txt |
airline reservation system project in java github
airline reservation system project pdf
airline reservation system project in java with mysql
airline reservation system project ppt
airline reservation system project in java using spring
airline reservation system mini project
airline reservation system project in php and mysql with source code
airline reservation system project python
airline reservation system project pdf
airline reservation system project in java with mysql
airline reservation system project ppt
airline reservation system project in java using spring
airline reservation system mini project
airline reservation system project in php and mysql with source code
airline reservation system project python