Airlines
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) !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 End Sub Private Sub Combo1_Click() If Combo1.Text = "DELHI-BANGKOK-DELHI" Then Adodc1.RecordSource = "SELECT *FROM AIRLINES_BANGKOK" Adodc1.Refresh ElseIf Combo1.Text = "DELHI-SINGAPORE-DELHI" Then Adodc1.RecordSource = "SELECT*FROM AIRLINES_SINGAPORE" 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 = "SLECT*FROM AIRLINES_UK" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End If End Sub Private Sub Command1_Click() On Error GoTo errorhandler If Combo1.Text = "DELHI-BANGKOK-DELHI" Then Adodc1.RcordSource = "SELECT*FROM AIRLINES_BANGKOK WHERE TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh cn.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn.Open With rs Set .ActiveConnection = cn .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = "SELECT*FROM AIRLINES_BANGKOK WHERE TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text +""" End With rs.Open rseat = rs.Fields("REMAIN_SEAT") Label3 = rs.Fields("FLIGHT_NO") cn.Close ElseIf Combo1.Text = "DELHI-SINGAPORE-DELHI" Then Adodc1.RecordSource = "SELECT*FROM AIRLINES_BANGKOK WHERE TO_CHAR(JOuRNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh cn.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn.Open With rs Set .ActiveConnection = cn .CursorType = adOpenDyanamic .LockType = adLockOptimistic .Source = adLockOptimistic .Source = "SELECT*FROM AIRLINES_BANGKOK WHERE TO_CHAR(JOuRNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" End With cn.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn.Open With rs Set .ActiveConnection = cn .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = " SELECT*FROM AIRLINES_BAHRAIN WHERE TO_CHAR(JOuRNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+"" " End With rs.Open rseat = rs.Fields("REMAIN_SEAT") Label3 = rs.Fields("FLIGHT_NO") cn.Close ElseIf Combo1.Text = "DELHI-DUBAI-DELHI" Then Adodc1.RecordSource = "SELECT*FROM AIRLINES_dubai WHERE TO_CHAR(JOuRNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" Adodc1.Refresh SetDataGrid1.DataSource = Adodc1 DataGrid1.Refresh cn.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn.Open With rs Set .ActiveConnection = cn .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = "SELECT*FROM AIRLINES_DUBAI WHERE TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" End With rs.Open rseat = rs.Fields("REMAIN_SEAT") Label3 = rs.Fields("FLIGHT_NO") cn.Close ElseIf Combo1.Text = "DELHI-UK-DELHI" Then Adodc1.RecordSource = "SELECT*FROM AIRLINES_UK WHERE TO_CHAR(JOuRNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh cn.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn.Open With rs Set .ActiveConnection = cn .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = "SELECT*FROM AIRLINES_UK WHERE TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY')="" + Text1.Text+""" End With rs.Open rseat = rs.Fields("REMAIN_SEAT") Label3 = rs.Fields("FLIGHT_NO") cn.Close End If Command2.Enabled = True Exit Sub errorhandler: MsgBox "Error occurred", vbCritical, "Error" Unload AIRLINES_ENQ AIRLINES_MAIN.Show cn1.Close End Sub Private Sub Command2_Click() If rseat >= 1 Then If Combo1.Text = "DELHI-BANGKOK-DELHI" Then With rs1 .Close .Source = "SELECT*FROM AIRLINES_BANGKOK WHERE TO_CHAR(JOuRNEY_DATE,'fmMM/DD/YYYY')=" ' + Text1.Text+'"" .Open .Fields("REMAIN_SEAT") = rseat - 1 .Update End With ElseIf Combo1.Text = "DELHI-SINGAPORE-DELHI" Then With rs1 .Close .Source = "select remain_seat from airlines_singapore where to_char(journey_date,'fmMM/DD/YYYY')=" '+TEXT1.TEXT'"" .Open .Fields("REMAIN_SEAT") = rseat - 1 .Update End With ElseIf Combo1.Text = "DELHI-BAHRAIN-DELHI" Then With rs1 .Close .Source = "SELECT REMAIN_SEAT FROM AIRLINES_BAHRAIN WHERE TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY') = " '+TEXT1.TEXT+'"" .Open .Fields("REMAIN_SEAT") = rseat - 1 .Update End With ElseIf Combo1.Text = "DELHI-DUBAI-DELHI" Then With rs1 .Close .Source = "SELECT REMAIN_SEAT FROM AIRLINES_UK WHERE TO_CHAR(JOURNEY_DATE,'fmMM/DD/YYYY')=" '+TEXT1.TEXT'"" .Open .Fields("REMAIN_SEAT") = rseat - 1 .Update End With End If MsgBox "PLEASE FILL THE INFORMATION" AIRLINES_ENQ.Hide Unload AIRLINES_RESERV AIRLINES_RESERV.Show AIRLINES_RESERV.Text10.Text = rseat Else MsgBox "SORRY TICKETS NOT AVAILABLE" Unload AIRLINES_ENQ Unload AIRLINES_MAIN AIRLINES_MAIN.Show End If cn1.Close End Sub Private Sub Form_Load() cn1.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn1.Open With rs1 Set .ActiveConnection = cn1 .CursorType = adOpenOptimistic .LockType = adLockOptimistic .Source = "SELECT * FROM AIRLINES_BANGKOK" End With Combo1.AddItem ("DELHI-BANGKOK-DELHI") Combo1.AddItem ("DELHI-SINGAPORE-DELHI") Combo1.AddItem ("DELHI-BAHRAIN-DELHI") Combo1.AddItem ("DELHI-DUBAI-DELHI") Combo1.AddItem ("DELHI-UK-DELHI") If Combo1.Text = "DELHI-BANGKOK-DELHI" Then Adodc1.RecordSource = "SELECT * FROM AIRLINES_BANGKOK" Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End If End Sub Airlines_Cancel(airlines_cancel.frm) Dim rs As New ADODB.Recordset Dim rs1 As New ADODB.Recordset Dim j As String Dim d As String Dim rseat As Integer Private Sub Command1_Click() Adodc1.RecordSource = "select * from airlines_ticket where pnr=" & Text1.Text Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh End Sub Private Sub Command2_Click() With rs .Source = "select * from airlines_ticket where pnr=&text1.text " .Open .Fields("status") = "CANCELLED" .Fields("CANCEL_DATE") = CDate(Text2.Text) .Update End With MsgBox "ticket cancelled", vbInformation, "CANCEL" Adodc1.RecordSource = "select* from airlines_ticket where pnr= " & Text1.Text Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.Refresh With rs .Close .Source = "select * from airlines ticket where pnr= " & Text1.Text .Open d = .Fields("destination") j = .Fields("journey_date") End With If d = "delhi-bangkok_delhi" Then With rs1 .Close .Source = "select * from airlines_bangkok where to_char(journey_date,'fmMM/DD/YYYY')=" + j + "" .Open rseat = .Fields("REMAIN_SEAT") .Fields("REMAIN_SEAT") = rseat + 1 .Update End With ElseIf d = "DELHI_SINGAPORE_DELHI" Then With rs1 .Close .Source = "select * from airlines_singapore where To_Char(JOURNEY_DATE,'fmMM/DD/YYYY')="" +J+""" .Open rseat = .Fields("REMAIN_SEAT") = rseat + 1 .Update End With ElseIf d = "DELHI-BAHRAIN-DELHI" Then With rs1 .Close .Source = "SELECT* FROM AIRLINES BAHRAIN WHERE TO_Char(JOURNEY_DATE,'fmMM/DD/YYYY')="" +J+""" .Open rseat = .Fields("REMAIN_SEAT") .Fields("REMAIN_SEAT") = rseat + 1 .Update End With ElseIf d = "DELHI_DUBAI_DELHI" Then With rs1 .Close .Source = "SELECT * FROM AIRLINES BAHRAIN WHERE TO_Char(JOURNEY_DATE,'fmMM/DD/YYYY')="" +J+""" .Open rseat = Fields("REMAIN_SEAT") .Fields("REMAIN_SEAT") = rseat + 1 .Update End With ElseIf d = "DELHI-UK-DELHI" Then .With rs1 .Close .Source = "SELECT * FROM AIRLINES BAHRAIN WHERE TO_Char(JOURNEY_DATE,'fmMM/DD/YYYY')="" +J+""" .Open rseat = .Fields("REMAIN_SEAT") Fields("REMAIN_SEAT") = rseat + 1 .Update End With End If End Sub Private Sub Command3_Click() AIRLINES_CANCEL.Hide Unload airlines_refund_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 WHERE PNR =" & Text1.Text End With With rs1 Set .ActiveConnection = cn .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = "SELECT *FROM AIRLINES_BANGKOK" End With rs1.Open Text2.Text = Date End Sub Airlines_Genenq(airlines_genenq.frm) Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub Private Sub Command2_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End If End Sub Private Sub Command3_Click() Adodc1.Recordset.MoveLast End Sub Private Sub Command4_Click() If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirst End If End Sub Private Sub Command5_Click() Unload AIRLINES_GENENQ Unload AIRLINES_MAIN AIRLINES_MAIN.Show End Sub Airlines_refund(airlines_refund.frm) Dim cn1 As New ADODB.Connection Dim rs As New ADODB.Recordset Private Sub Command1_Click() With rs .Source = "SELECT * FROM AIRLINES_PAYMENT WHERE PNR=" & Text1.Text .Open Text2.Text = .Fields("AMOUNT") Text3.Text = Val(Text2.Text) - Val(Text2.Text) * 0.1 .Close End With Command2.Enabled = True End Sub Private Sub Command2_Click() With rs .Source = "SELECT * FROM AIRLINES_PAYMENT WHERE PNR = " & Text1.Text .Open .Fields("STATUS") = "REFUNDED" .Fields("REFUND_AMOUNT") = Val(Text3.Text) .Fields("DEDUCT_AMOUNT") = Val(Text2.Text) * 0.1 .Fields("REFUND_DATE") = CDate(AIRLINES_CANCEL.Text2.Text) .Update .EndWith MsgBox "AMOUNT REFUNDED", vbInformation, "REFUND" Command3.Enabled = True End Sub Private Sub Command3_Click() Unload AIRLINES_REFUND Unload AIRLINES_MAIN AIRLINES_MAIN.Show cn1.Close End Sub Private Sub Form_Load() cn1.Provider = "MSDAORA.1;password = tiger;User ID=scott" cn1.Open With rs Set .ActiveConnection = cn1 .CursorType = adOpenDynamic .LockType = adLockOptimistic .Source = "SELECT * FROM AIRLLINES_PAYMENT" End With Text1.Text = AIRLINES_CANCEL.Text1.Text End Sub Airlines_Payment(airlines_payment.frm) Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim a As String * 15 Dim s As Integer Private Sub Command1_Click() If Option1.Value = True Then a = "CASH" ElseIf Option2.Value = True Then a = "CREDIT CARD" End If With rs s = 1 .AddNew !PNR = Val(Text1.Text) !AMOUNT = Val(Text2.Text) !PAY_MADE_BY = a !CARD_NAME = Text3.Text !CARD_NO = Text4.Text !satis = "PAID" .Update s = 0 End With MsgBox "Thank you for choosing International Airlines", vbInformation, "Thanks" Unload AIRLINES_PAYMENT Unload AIRLINES_MAIN Load AIRLINES_MAIN AIRLINES_MAIN.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_PAYMENT" End With rs.Open Text1.Text = AIRLINES_RESERV.Text9.Text Text2.Text = AIRLINES_RESERV.Text1.Text End Sub Sql codes create table airlines_bahrain (flight_no varchar2(6), destination varchar2(40), journey_date date, tot_seat number(6), remain_seat number(6)); create table airlines_bangkok (flight_no varchar2(6), destination varchar2(40), journey_date date, tot_seat number(6), remain_seat number(6)); create table airlines_dubai (flight_no varchar2(6), destination varchar2(40), journey_date date, tot_seat number(6), remain_seat number(6)); create table airlines_genenq (flight_no varchar2(6), destination varchar2(40), fare number(10,2), departure varchar2(10), arrival varchar2(10), tot_seat number(6), bag_allow varchar2(15)); create table airlines_payment (pnr number(10), amount number(10,2), pay_made_by varchar2(15), card_name varchar2(20), card_no varchar2(15)); status varchar2(20), refund_amount number(10,2), deduct_amount number(10,2), refud_date date); create table airlines_singapore (flight_no varchar2(6), destination varchar2(40), journey_date date, tot_seat number(6), remain_seat number(6)); create table airlines_ticket (pnr number(10), passenger_name varchar2(25), address varchar2(50), dob date, phone_no number(6), flight_no varchar2(6), destination varchar2(40), journey_date date, fare number(10,2), booking_date date, seat_no number(4), departure varchar2(10), status varchar2(20), cancel_date date); 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); |