Railway Reservation Report
Railway Reservation Report
SUPERVISED BY:
Ms:DEEPALI ARORA
SUBMITTED BY:
DIVESH KUMAR (105142142402) INDERPREET KAUR (105142142420) RASHI (105142142439)
ACKNOWLEDGEMENT
A formal statement of acknowledgement will hardly do justice. It is a matter of expressing our deep gratitude and obligations to all those who helped us in completion of our project.
We are thankful to our course in charge and SASIIT for giving us the opportunity to make this project on security services. A word of acknowledgement for MS DEEPALI
Since project formulation is essential academic requirement, which strengths the confidence of technical students and enables us to gratitude to worthy CHAIRMAN SIR for giving us this opportunity to develop the project.
INDEX
Abstract of the Project System Requirements Product Definition Feasibility Analysis Project Plan Front-end and back-end Tables used in project Source code(CODING AND DESISN) Bibliography and References
As we are beginners and have no practical experience in the field of software development and moreover the RAILWAY system is very wide. So, we limit the scope of our project by computerizing the following fields of the RAILWAY system:
TRAIN record
PASSENGER record
ENQUAIRY Search:
SYSTEM REQUIREMENTS
PRODUCT DEFINITION:---We have come to final conclusion that after analyzing the existing system of the Solitaire Software. We came to know that it is very difficult for the person to maintain records manually same in the case with the person that done the reservation, so in order to provide the person with such a system that helps him easy in maintaining the records of the passenger we are going with this project.
o PROBLEM STATEMENT:
Data redundancy and inconsistency. Difference in accessing data. Data isolation. Security problem Communication gap Updating problem
o FUNCTIONALITY TO BE PROVIDED:
Maintenance of train information. Maintenance of passenger information. Maintenance of fares of sold tickets. Maintenance of the reports.
Operating system is a platform on which the specified application will be used. Once it has been complete, the software we are about to make, will execute machine. on both client machine and server
Configuration: O/S Windows XP, Windows 2000 Service pack-2, etc. RAM Min. 128 MB Networking enabled for clients, or database.
o SOLUTION STRATEGY: Classical Life Cycle Model: This is a sequential It approach with to software and &
development. progresses
begins design,
analysis
through
coding,
testing
maintenance.
Analysis: To understand the nature of the program to build, the analysts must know the required function, behavior, performance are and by interfacing. These the
found
interleaving various
asking
them
questions
Design: This process translates the requirement into a representation that can be accessed before putting into actual code, design include the following activities:
1. Algorithm 2. Logical Design Flow Charts 3. Physical Design 4. Database Design Coding: The design is then translated into actual machine language using appropriate language.
Testing: The design is then translated is written, testing begins, the testing focus on the checking the logic if the code, intervals of the software to uncover errors so that the code produces the actual result.
Maintenance: Maintenance is done after the software has been installed at the user sight. As error bound to occur so changes has to done to meet the user needs.
o ACCEPTANCE CRITERIA:
mobile handset. Maintain the records of the companies from which he has brought his products (mobiles). Maintain the bills of the sold product.
FEASIBILITY ANALYSIS:---Depending on the results of the initial investigation, the survey is expanded to a more detailed feasibility study. A feasibility study is a test of a system proposal. According to its workability, impact on the organization, ability to meet users needs and effective use of the resources. Main task done during the feasibility study are:1. Evaluation of existing system and procedures. Our group went to various Mobile shops & Mobile dealer to gather information about the software system. They are using and evaluating those
system and the procedures invoked in it during the period of feasibility study.
2. Analysis of alternative candidate systems:- after studying the various systems we derived various alternatives through which we develop our project and evaluated the alternative. The most
appropriate is selected.
o ECONOMIC FEASIBILITY:The only tangible benefit provided by the proposed that the paper work is Reduced to the minimum and hence the reduction in cost incurred on Stationary and its storage. The system provide many benefits that cant be measured in terms of Money for e.g. users friendliness, more user response being more efficient.
TECHNICAL FEASIBILITY:-
The proposed system is technically feasible as it can be developed easily with the help of available technology. The proposed system requires MS office 97 or 2000 with MS VISUAL BASIC 6.0 & back-end MS-Access storing a database. The database can be easily interconnected using access.
o OPERATIONAL FEASIBILITY:Automation make our life easy. The proposed system is highly user friendly and is much easily able to interact with the system. Therefore the users will readily accept the system as data entry and making queries can be easily done.
PROJECT PLAN:----
For developing this project, our team structure consists 3 members as mentioned above.
Each member has devoted his efforts toward the achievement for this project. The whole project is divided among us, so that functionality can be achieved.
Visual Basic is one of the most popular programming tools available today. And its also secret that there have been massive changes in it as it became Visual Basic.Net.
Visual Basic has a long and so far glorious history. When it first appeared, it created a revolution in windows programming. Visual Basic introduced
unheard of ease to windows programming just builds the program you want right before your eyes, and then run it. In so doing it changed programming form a chore to something very like fun. There are two visual styles available in V.B. IDE that are :-
Microsoft access is the relational database management system designed for the graphical environment of windows. With access we can perform the following tasks: 1 Organize the data into manageable related units. 2 Enter, locate and modify data. 3 Extract subsets of data based on specific criteria. 4 Automate common database tasks. 5 Graph data relations.
In access, the term database refers to a single foil that contains a collection of information. A database consists of the following objects:
TABLES: Tables store data in a row-and-column format similar to spreadsheets. Every table in a database focuses on one subject for e.g. students, customers, e.t.c. Each row or record in a table is a unique instances of the subject fro the table.
QUERIES: Queries extract data from a table or a user-defined criterion. They enable us to view fields from more than one table.
FORMS: Forms display entering data from a table or a query based on a user format. They enable us o view, edit and print data.
REPORTS: Reports display and print data from the tables or queries based on a user defined custom format. Data in a report cannot be edited.
MACROS: Macros automate common database action based on user specified commands and events
MODULES: Modules automate complex operation give a programmer more controls than macros.
-CREATING DATA BASE: Access provides many wizards to help automate the creation of the objects in the database. The database wizard is used to create an entire database from templates or create a blank database.
-TABLES: After an access database, next step is to create a table that stores a data. Tables are the foundation of a database. All other database objects depend on the data in The tables Microsoft access provides a number of ways to create a blank table.
CODING
Option Explicit Private Sub Form_KeyPress(KeyAscii As Integer) frmLogin.Show Unload Me End Sub Private Sub Frame1_Click() Unload Me End Sub Private Sub imgLogo_Click()
End Sub Private Sub Timer1_Timer() ProgressBar1.Value = ProgressBar1.Value + 20 If (ProgressBar1.Value = 100) Then Unload Me frmLogin.Show End If End Sub
CODING Option Explicit Public LoginSucceeded As Boolean Private Sub cmdCancel_Click() LoginSucceeded = False End Sub Private Sub cmdOK_Click() If txtPassword = "RAIL" And txtUserName = "INDIAN" Then Me.Hide
LoginSucceeded = True DETAILS.Show Else MsgBox "Invalid Password, try again!", , "Login" txtPassword.SetFocus SendKeys "{Home}+{End}" End If End Sub Unload Me
CODING
Private Sub APRT_Click() ABOUT_PROJECT.Show End Sub Private Sub AU_Click() ABOUT_US.Show End Sub Private Sub ENQ_Click() ENQUIRY.Show End Sub Private Sub NET_Click()
ENQUIRY_NE.Show
End Sub Private Sub PD_Click() PASSENGER_DETAILS.Show End Sub Private Sub PDD_Click() NE_PASS_DT.Show End Sub Private Sub PDTNE_Click() DataReport4.Show End Sub Private Sub PRPRT_Click() DataReport2.Show End Sub Private Sub TD_Click() TRAIN_DETAILS.Show End Sub Private Sub TDD_Click() NE_TRAIN_DETAILS.Show End Sub Private Sub TDNE_Click() DataReport3.Show End Sub Private Sub TPRT_Click() DataReport1.Show End Sub
CODING
Dim db As Database Dim rs As Recordset Public Sub SHOW1()
Text1.Text = rs(0) Text2.Text = rs(1) Text7.Text = rs(2) Text3.Text = rs(3) Text4.Text = rs(4) Text5.Text = rs(5) Text6.Text = rs(6)
End Sub Private Sub Command1_Click() Command4.Enabled = True Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text1.SetFocus rs.AddNew End Sub Private Sub Command10_Click() If rs.RecordCount > 0 Then If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "FIRST SELECT ANY RECORD", vbCritical Else rs.Delete MsgBox "RECORD DELETED" Text1.Text = "" Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " End If End If End Sub Private Sub Command11_Click() Text1.Text = "" Text2.Text = " " Text3.Text = " "
Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " End Sub Private Sub Command2_Click() rs.Edit rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text7.Text rs(3) = Text3.Text rs(4) = Text4.Text rs(5) = Text5.Text rs(6) = Text6.Text rs.Update MsgBox " RECORD UPDATED" End Sub Private Sub Command3_Click() T = MsgBox("ARE YOU SURE YOU WANT TO EXIT", vbYesNo) Print T If T = 6 Then Unload Me End If DETAILS.Show End Sub Private Sub Command4_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "PLEASE ENTER ALL THE FIELDS" Else rs.AddNew rs.Fields(0) = Text1.Text
rs.Fields(1) = Text2.Text rs.Fields(2) = Text7.Text rs.Fields(3) = Text3.Text rs.Fields(4) = Text4.Text rs.Fields(5) = Text5.Text rs.Fields(6) = Text6.Text rs.Update End If MsgBox "NEW RECORD SAVED" End Sub Private Sub Command5_Click() rs.MoveNext If rs.EOF = True Then rs.MoveLast MsgBox "YOU ARE IN LAST RECORD" Else Call SHOW1 End If End Sub Private Sub Command6_Click() rs.MoveFirst Call SHOW1 End Sub Private Sub Command7_Click() rs.MoveLast Call SHOW1
End Sub Private Sub Command8_Click() rs.MovePrevious If rs.BOF = True Then rs.MoveFirst MsgBox " YOU ARE IN FIRST RECORD"
Else Call SHOW1 End If End Sub Private Sub Command9_Click() Unload Me DETAILS.Show End Sub Private Sub Form_Load() Set db = OpenDatabase(App.Path & "\TRECORD.MDB") Set rs = db.OpenRecordset("TRECORD", dbOpenTable) Command4.Enabled = False Call SHOW1 End Sub
CODING
Dim db As Database Dim rs As Recordset Public Sub SHOW1() Text1.Text = rs(0) Text2.Text = rs(1) Text3.Text = rs(2) Combo1.Text = rs(3) Text4.Text = rs(4) Text5.Text = rs(5) Text6.Text = rs(6) Text7.Text = rs(7) Text8.Text = rs(8) End Sub
Private Sub ADD_Click() Command4.Enabled = True Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Text1.SetFocus rs.AddNew End Sub Private Sub Command1_Click() End End Sub Private Sub Command10_Click() If rs.RecordCount > 0 Then If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Combo1.Text = "" Then MsgBox "FIRST SELECT ANY RECORD", vbCritical Else rs.Delete MsgBox "RECORD DELETED" Text1.Text = "" Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Combo1.Text = " "
End If End If End Sub Private Sub Command11_Click() Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " End Sub Private Sub Command12_Click() Command15.Enabled = True Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text1.SetFocus rs.AddNew End Sub Private Sub Command13_Click() rs.Edit rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text7.Text rs(3) = Text3.Text rs(4) = Text4.Text rs(5) = Text5.Text rs(6) = Text6.Text rs.Update
MsgBox " RECORD UPDATED" End Sub Private Sub Command14_Click() T = MsgBox("ARE YOU SURE YOU WANT TO EXIT", vbYesNo) Print T If T = 6 Then Unload Me End If DETAILS.Show End Sub Private Sub Command15_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "PLEASE ENTER ALL THE FIELDS" Else rs.AddNew rs.Fields(0) = Text1.Text rs.Fields(1) = Text2.Text rs.Fields(2) = Text3.Text rs.Fields(3) = Combo1.Text rs.Fields(4) = Text4.Text rs.Fields(5) = Text5.Text rs.Fields(6) = Text6.Text rs.Fields(7) = Text7.Text rs.Fields(8) = Text8.Text rs.Update End If MsgBox "NEW RECORD SAVED" End Sub Private Sub Command16_Click()
rs.MoveNext If rs.EOF = True Then rs.MoveLast MsgBox "YOU ARE IN LAST RECORD" Else Call SHOW1 End If End Sub Private Sub Command17_Click() rs.MoveFirst Call SHOW1 End Sub Private Sub Command18_Click() rs.MoveLast Call SHOW1 End Sub Private Sub Command19_Click() rs.MovePrevious If rs.BOF = True Then rs.MoveFirst MsgBox " YOU ARE IN FIRST RECORD" Else Call SHOW1 End If End Sub Private Sub Command2_Click() rs.Edit rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text3.Text rs(3) = Combo1.Text
rs(4) = Text4.Text rs(5) = Text5.Text rs(6) = Text6.Text rs(7) = Text7.Text rs(8) = Text8.Text rs.Update MsgBox " RECORD UPDATED" End Sub Private Sub Command20_Click() If rs.RecordCount > 0 Then If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Then MsgBox "FIRST SELECT ANY RECORD", vbCritical Else rs.Delete MsgBox "RECORD DELETED" Text1.Text = "" Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " End If End If End Sub Private Sub Command3_Click() Text1.Text = "" Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " "
End Sub Private Sub Command4_Click() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Then MsgBox "PLEASE ENTER ALL THE FIELDS" Else rs(0) = Text1.Text rs(1) = Text2.Text rs(2) = Text3.Text rs(3) = Combo1.Text rs(4) = Text4.Text rs(5) = Text5.Text rs(6) = Text6.Text rs(7) = Text7.Text rs(8) = Text8.Text rs.Update End If MsgBox "NEW RECORD SAVED" Text1.Text = " " Text2.Text = " " Text3.Text = " " Text4.Text = " " Text5.Text = " " Text6.Text = " " Text7.Text = " " Text8.Text = " " Combo1.Text = " " End Sub Private Sub Command5_Click() rs.MoveNext If rs.EOF = True Then rs.MoveLast MsgBox "YOU ARE IN LAST RECORD"
Else Call SHOW2 End If End Sub Private Sub Command6_Click() rs.MoveFirst Call SHOW2 MsgBox "YOU ARE IN FIRST RECORD"
End Sub Private Sub Command7_Click() rs.MoveLast Call SHOW2 MsgBox "YOU ARE IN LAST RECORD"
End Sub Private Sub Command8_Click() rs.MovePrevious If rs.BOF = True Then rs.MoveFirst MsgBox " YOU ARE IN FIRST RECORD" Else Call SHOW2 End If End Sub Private Sub Command9_Click() Unload Me DETAILS.Show End Sub
Private Sub Form_Load() Combo1.AddItem "MALE" Combo1.AddItem "FEMALE" Set db = OpenDatabase(App.Path & "\PRECORD.MDB") Set rs = db.OpenRecordset("PRECORD", dbOpenTable) Command15.Enabled = False Command13.Enabled = False Call SHOW1
End Sub
CODING
Dim db As Database Dim rs As Recordset Dim STR As Double Dim STR2 As Double Dim T As Double Private Sub Command1_Click() STR = Val(Combo1.Text) rs.MoveFirst While Not rs.EOF STR2 = Val(rs(0)) If STR = STR2 Then Call SHOWF End If
rs.MoveNext Wend End Sub Private Sub Command2_Click() Unload Me ENQUIRY.Show End Sub Private Sub Command3_Click() T = MsgBox("ARE YOU SURE YOU WANT TO EXIT", vbYesNo) If T = 6 Then Unload Me DETAILS.Show End If End Sub Private Sub Command4_Click() Text1.Text = " " ENQUIRY.Cls Text1.SetFocus End Sub
Private Sub Form_Load() Set db = OpenDatabase(App.Path & "\TRECORD.MDB") Set rs = db.OpenRecordset("TRECORD", dbOpenTable) Label1.Visible = False Label3.Visible = False Label4.Visible = False Label5.Visible = False Label6.Visible = False Label7.Visible = False Text2.Visible = False Text3.Visible = False Text4.Visible = False Text5.Visible = False Text6.Visible = False Text7.Visible = False STR = Val(Combo1.Text) rs.MoveFirst While Not rs.EOF Combo1.AddItem rs(0)
rs.MoveNext Wend End Sub Public Sub SHOWF() Label1.Visible = True Label3.Visible = True Label4.Visible = True Label5.Visible = True Label6.Visible = True Label7.Visible = True Text2.Visible = True Text3.Visible = True Text4.Visible = True Text5.Visible = True Text6.Visible = True Text7.Visible = True Text2.Text = rs(1) Text3.Text = rs(2) Text4.Text = rs(3) Text5.Text = rs(4) Text6.Text = rs(5) Text7.Text = rs(6) End Sub
SEARCH ENGINES:
PROJECT INCHARGE: