Ex.

No: 4
ONLINE TICKET RESERVATION SYSTEM

PROBLEM STATEMENT:
The “Any Where Any Time Advance Reservation” system is the online ticket reserving
system where the passengers can reserve the tickets for their travel, cancel the reserved ticket
and they can view the status of the ticket before travelling.
The passenger who is reserving the ticket in AWATAR unless they are the member of
AWATAR .The passenger can reserve the ticket by giving the required detail in the form and
submit it for the processing .They can reserve for at the max for five members and a single
ticket is provided for them.
The administrator the AWATAR can control the ticket reservation and the accounts of
the passengers who are signing up in AWATAR. The administrator can reset the seats, fares of
the tickets, and generates the PNR number for the ticket that are reserved.
The sole control of the system is handled by the administrator. The printer prints the
tickets that are reserved by the passenger. The passenger can sign-up for only one time and he
can sign in for any number of times for reserving, cancelling and viewing the tickets.
The AWATAR system provides flexibility for the persons based on the age, the
passengers are fared based on the age and the place of travelling. This makes ease of use in
using AWATAR system. The system tracks for the database any number of times for reserving,
cancelling and status viewing.
The passenger can see the status of the classes that are available in the train which he
is going to travel by noticing the number of seats details from the display board.
The cancellation of the tickets is also very easy so that the passenger can cancel the
tickets that he has booked.

PROBLEM REQUIREMENTS:
1. Basic Requirements:
1) Source place.
2) Destination place.
3) Date of journey.
2. Functional Requirements:

Know more @ www.vidyarthiplus.com Powered by WR1334

 1) Details of passengers.
2) Details of the coach.
3) Pay the amount using visa card or debit card.
4) Give out the balance
5) Show the detail of ticket.
3. Non-Functional Requirements:
1) Trading system failure.
2) Unavailability of date.
3) Coach Unavailability
4) Insufficient amount for making payment.
5) Unavailability of berth.

MODELING:
UML DIAGRAMS:
Use case Diagram:

Login

Ticket Reservation
Admin

Passenger

Ticket Cancellation

Printer

View Status

Figure 1. Use Case diagram for Online Ticket Reservation System

Know more @ www.vidyarthiplus.com Powered by WR1334

Class Diagram:

Figure 2.Class Diagram for Login

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure 3.Class Diagram for Reservation
Activity Diagram:

Know more @ www.vidyarthiplus.com Powered by WR1334

 System Requests
Username and Password

Passenger enters
Username and Password

System validates the given

data from the passenger

System checks
data in database

Passenger enters into System displays the

the next level error message

Passenger views
other options available

Passenger exits Passenger re-enters the

the system required data

Figure 4. Activity Diagram for Login

Know more @ www.vidyarthiplus.com Powered by WR1334

 System requires for
the Train number

Passengers enters
the Train number

System validates and displays the

train name and days available

System requires for

the travelling date

Passenger enter the

travelling date

System validates the data

entered by the passenger

System requires for System displays the

class of travel error message

Passenger enters
the class of travel
Passenger leaves Passenger re-enters the
the system required data
System validates
the data entered

Passenger submits the System displays the

completed form error message

System displays Passenger re-enters the

the message required data

Figure 7. Activity diagram for Reservation

Know more @ www.vidyarthiplus.com Powered by WR1334

Sequence Diagram:

PASSENGER SYSTEM DATABASE

Req username & password

Enter username & password

Validates data

Permits to access

Figure 10. Sequence Diagram for Login

PASSENGER SYSTEM DATABASE

Requests train no

Enter Train no

Validates data

Requires class

Enter class

Validates data

Display resevation details

Figure 11. Sequence Diagram for Reservation

Know more @ www.vidyarthiplus.com Powered by WR1334

Collaboration Diagram:

2: Enter username & password

PASSENGER SYSTEM

1: Req username & password

4: Permits to access

3: Validates data

DATABASE

Figure 14. Collaboration Diagram for Login

2: Enter Train no
5: Enter class
PASSENGER SYSTEM

1: Requests train no
4: Requires class
7: Display resevation details

3: Validates data
6: Validates data

DATABASE

Figure 15. Collaboration Diagram for Reservation

Know more @ www.vidyarthiplus.com Powered by WR1334

Component Diagram:

Online Reservation
System

Update

Front Panel

Figure 18. Component diagram for Online Ticket Reservation System

Deployment Diagram:

Online Reservation
System

Counter PC

Figure 19. Deployment diagram for Online Ticket Reservation System

Know more @ www.vidyarthiplus.com Powered by WR1334

SOFTWARE DEVELOPMENT:
CODE IMPLEMENTATION:

Form 1:
Private Sub Command1_Click()
Form2.Show
Form1.Hide
End Sub
Private Sub Command2_Click()
End
End Sub

Form 2:
Public a As New NewClass
Private Sub Command1_Click()
a.viewdetails
End Sub
Private Sub Command2_Click()
Form4.Show
Form2.Hide
End Sub
Private Sub Command3_Click()
Form5.Show
Form2.Hide
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Set a = New NewClass
End Sub

Form 3:
Private Sub Command1_Click ()
Form2.Show
Form3.Hide
End Sub

Form 4:

Know more @ www.vidyarthiplus.com Powered by WR1334

Public B As New System
Public a As New NewClass
Private Sub Combo2_Click()
Form4.Label11.Caption = Form4.Combo2.Text
End Sub
Private Sub Command1_Click()
a.reservation
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
B.delete
End Sub
Private Sub Command4_Click()
Form2.Show
Form4.Hide
End Sub
Private Sub Form_Load()
Set B = New System
Set a = New NewClass
End Sub

Form 5:
Public a As New NewClass
Public B As New System
Private Sub Command1_Click()
B.update
End Sub
Private Sub Command2_Click()
a.cancellation
End Sub
Private Sub Command3_Click()
Form2.Show
Form5.Hide
End Sub
Private Sub Command4_Click()
End
End Sub
Private Sub Form_Load()
Set a = New NewClass
Set B = New System

Know more @ www.vidyarthiplus.com Powered by WR1334

End Sub

CLASS MODULE:
NEW CLASS:
Option Explicit
Dim db As Database
Dim rs As Recordset
Public Sub viewdetails()
Form3.Show
End Sub
Public Sub reservation()
Set db = OpenDatabase("D:\06bei7876\OnlineRail\railway.mdb")
Set rs = db.OpenRecordset("details")
rs.AddNew
rs(1) = Form4.Text1.Text
rs(2) = Form4.Text2.Text
rs(3) = Form4.Text3.Text
rs(4) = Form4.Text7.Text
rs(5) = Form4.Label11.Caption
rs(6) = Form4.Text4.Text
rs(7) = Form4.Text5.Text
rs(8) = Form4.Text6.Text
rs.update
MsgBox "YOUR TICKET IS RESERVED"
End Sub
Public Sub cancellation()
Set db = OpenDatabase("D:\06bei7876\OnlineRail\railway.mdb")
Set rs = db.OpenRecordset("details")
rs.MoveFirst
While rs.EOF = False
If rs(1) = Form5.Text1.Text Then
rs.delete
MsgBox " YOUR TICKET IS CANCELLED"
Form5.Text1.Text = ""
Form5.Label6.Caption = ""
Form5.Label7.Caption = ""
Form5.Label8.Caption = ""
End If
rs.MoveNext

Know more @ www.vidyarthiplus.com Powered by WR1334

Wend
End Sub

SYSTEM:
Option Explicit
Dim db As Database
Dim rs As Recordset
Public Sub update()
Set db = OpenDatabase("D:\06bei7876\OnlineRail\railway.mdb")
Set rs = db.OpenRecordset("details")
rs.MoveFirst
While rs.EOF = False
If rs(1) = Form5.Text1.Text Then
Form5.Label6.Caption = rs(4)
Form5.Label7.Caption = rs(8)
Form5.Label8.Caption = rs(5)
End If
rs.MoveNext
Wend
End Sub
Public Sub delete()
Form4.Text1.Text = ""
Form4.Text2.Text = ""
Form4.Text3.Text = ""
Form4.Text4.Text = ""
Form4.Text5.Text = ""
Form4.Text6.Text = ""
Form4.Label10.Caption = ""
Form4.Label11.Caption = ""
End Sub

Know more @ www.vidyarthiplus.com Powered by WR1334

SCREEN SHOTS:

FORM 1

Figure12: Home Page Form

FORM 2

Figure13: Option selection Form

FORM 3

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure14: Train details Form

FORM 4

Figure15: Ticket Reservation Form

FORM 5

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure16: Ticket cancellation Form

FORM 6

Figure17: Entering Name for Cancelling ticket

SOFTWARE TESTING:
TEST CASE REPORT:

Know more @ www.vidyarthiplus.com Powered by WR1334

TEST CASE NAME: Train number Availability
OBJECTIVE: Usability Test
TEST CASES:
SCENARIO 1: Train Number: 6655
EXPECTED OUTPUT: Error Message
TEST RESULT
ACTUAL OUTPUT: Train number not available

CONCLUSION:
Thus the application on student mark list analysis system is developed using rational
rose and implemented using visual basic. The main aspects that are behind this application is
that they enabled us to bring out the new ideas that sustained within us for many days. This
application enables the student to retrieve their student details and mark details at anywhere
with a system.

Know more @ www.vidyarthiplus.com Powered by WR1334

Ex.No: 5
STUDENT MARK ANALYSIS SYSTEM
PROBLEM STATEMENT:
Student marks analyzing system has to be developed for analyzing obtained by the students
who scored in Semester Examination the System should provide following functionalities

1. The System obtains following information’s from the faculty generates report Roll No,
Name, Department, Semester, Marks obtained in each subject.
2. The total for each student should be calculated and ranked based on total and pass in all the
subject appeared.
3. The Final report should display rank, percentage, Class, Pass/Fail Status for each student.
4. The report should also contain information about no of students passed, failed, list of
students who got more than 60% in each subject, overall list of students who got >=60%

PROBLEM REQUIREMENTS:
4. Basic Requirements:
1) Student name and Register number.
2) Enter the mark details of the student.
3) Ensure the result analysis.
5. Functional Requirements:
1) The Student must store the data to database.
2) Each mark has to be recorded and the student must be able to review all
marks.
3) All data includes the following details: Marks, Name and Register number.
4) System to be designed such that it automatically checks the data after stored.
6. Non-Functional Requirements:
1) Fault occurs in Registration number.
2) Missing any marks in the database.
3) Wrong entry of the results.
4) Improper Results.

Know more @ www.vidyarthiplus.com Powered by WR1334

MODELING:
UML DIAGRAMS:
Use case Diagram:

Login

Student Details

Student
Mark Details
Staff

Viewing Result

Printer
Mark Edition

Figure 1. Use case diagram for Student mark analysis system.

Know more @ www.vidyarthiplus.com Powered by WR1334

Class Diagram:

Figure 2. Class diagram for login

Figure 3. Class diagram for student details

Know more @ www.vidyarthiplus.com Powered by WR1334

Activity Diagram:

Student/Staff asked
for password to login

Student/Staff enters
the password

Entered password
is verified

Yes No

Displays login Displays incorrect

successful password

Figure 4. Acitivity diagram for login

successfully logged student/staff is

asked for student detail

Student/staff enters the

student details

Yes No

Successfully proceeds Displays invalid

to the next process Student detail

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure 5. Acitivity diagram for student details
Sequence Diagram:

Figure 6: Sequence diagram for Login

Figure 7. Sequence diagram for Student details

Know more @ www.vidyarthiplus.com Powered by WR1334

Collaboration Diagram:

Figure 8: Collaboration diagram for Login

Figure 9: Collaboration diagram for Student details

Know more @ www.vidyarthiplus.com Powered by WR1334

Component diagram:

Figure10: Component Diagram for Student Mark Analysis System

Deployment Diagram:

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure11: Deployment diagram for Student Mark Analysis System

SOFTWARE DEVELOPMENT:
CODE IMPLEMENTATION:

Form1:
Dim a, b
Private Sub Command1_Click()
a = william
b = 123456789
Text1.Text = ""
Text2.Text = ""
If Text1.Text = "a" & Text2.Text = b Then
Option2.Visible = True
Option3.Visible = True
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Option2.Visible = False
Option3.Visible = False
End Sub
Private Sub Label2_Click()
End Sub
Private Sub Option1_Click()
Form2.Show

Know more @ www.vidyarthiplus.com Powered by WR1334

End Sub
Private Sub Option2_Click()
Form3.Show
End Sub
Private Sub Option3_Click()
Form4.Show
End Sub

Form 2:
Private Sub Command1_Click()
Dim a As String
a = InputBox("enter register number")
Data1.Recordset.MoveFirst
see:
If Data1.Recordset.Fields(1) = a Then
Text1.Text = Data1.Recordset.Fields(1)
Text2.Text = Data1.Recordset.Fields(21)
Text3.Text = Data1.Recordset.Fields(2)
Text4.Text = Data1.Recordset.Fields(3)
Text5.Text = Data1.Recordset.Fields(4)
Text6.Text = Data1.Recordset.Fields(5)
Text7.Text = Data1.Recordset.Fields(6)
Text8.Text = Data1.Recordset.Fields(7)
Text9.Text = Data1.Recordset.Fields(8)
Text10.Text = Data1.Recordset.Fields(9)
Text11.Text = Data1.Recordset.Fields(10)
Text12.Text = Data1.Recordset.Fields(11)
Text13.Text = Data1.Recordset.Fields(12)
Text14.Text = Data1.Recordset.Fields(13)
Text15.Text = Data1.Recordset.Fields(14)
Text16.Text = Data1.Recordset.Fields(15)
Text17.Text = Data1.Recordset.Fields(16)
Text18.Text = Data1.Recordset.Fields(17)
Text19.Text = Data1.Recordset.Fields(18)
Text20.Text = Data1.Recordset.Fields(19)
If Option1.Value = True Then
Data1.Recordset.Fields(19) = "1"
ElseIf Option2.Value = True Then
Data1.Recordset.Fields(19) = "2"
ElseIf Option3.Value = True Then
Data1.Recordset.Fields(19) = "3"
ElseIf Option4.Value = True Then
Data1.Recordset.Fields(19) = "4"
ElseIf Option5.Value = True Then
Data.Recordset.Fields(19) = "5"
ElseIf Option6.Value = True Then
Data1.Recordset.Fields(19) = "6"
ElseIf Option7.Value = True Then
Data1.Recordset.Fields(19) = "7"
ElseIf Option8.Value = True Then

Know more @ www.vidyarthiplus.com Powered by WR1334

Data1.Recordset.Fields(19) = "8"
End If
GoTo Terminate
Else
Data1.Recordset.MoveNext
GoTo see
End If
Terminate:
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
End Sub
Private Sub Text1_Change()
End Sub

Form 3:
Private Sub Command1_Click()
Dim a As String
a = InputBox("enter name")
Data2.Recordset.MoveFirst
see:
If Data2.Recordset.Fields(20) = a Then
Text1.Text = Data2.Recordset.Fields(20)
Text2.Text = Data2.Recordset.Fields(21)
Text3.Text = Data2.Recordset.Fields(2)
Text4.Text = Data2.Recordset.Fields(3)
Text5.Text = Data2.Recordset.Fields(4)
Text6.Text = Data2.Recordset.Fields(5)
Text7.Text = Data2.Recordset.Fields(6)
Text8.Text = Data2.Recordset.Fields(7)
Text9.Text = Data2.Recordset.Fields(8)
Text10.Text = Data2.Recordset.Fields(9)

Know more @ www.vidyarthiplus.com Powered by WR1334

Text11.Text = Data2.Recordset.Fields(10)
Text12.Text = Data2.Recordset.Fields(11)
Text13.Text = Data2.Recordset.Fields(12)
Text14.Text = Data2.Recordset.Fields(13)
Text15.Text = Data2.Recordset.Fields(14)
Text16.Text = Data2.Recordset.Fields(15)
Text17.Text = Data2.Recordset.Fields(16)
Text18.Text = Data2.Recordset.Fields(17)
Text19.Text = Data2.Recordset.Fields(18)
Text20.Text = Data2.Recordset.Fields(19)
If Option1.Value = True Then
Data2.Recordset.Fields(19) = "1"
ElseIf Option2.Value = True Then
Data2.Recordset.Fields(19) = "2"
ElseIf Option3.Value = True Then
Data2.Recordset.Fields(19) = "3"
ElseIf Option4.Value = True Then
Data2.Recordset.Fields(19) = "4"
ElseIf Option5.Value = True Then
Data2.Recordset.Fields(19) = "5"
ElseIf Option6.Value = True Then
Data2.Recordset.Fields(19) = "6"
ElseIf Option7.Value = True Then
Data2.Recordset.Fields(19) = "7"
ElseIf Option8.Value = True Then
Data2.Recordset.Fields(19) = "8"
End If
GoTo Terminate
Else
Data2.Recordset.MoveNext
GoTo see
End If
Terminate:
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form1.Show
End Sub
Private Sub Command4_Click()
Data2.Recordset.Edit
Data2.Recordset.Fields(20) = Text1.Text
Data2.Recordset.Fields(21) = Text2.Text
Data2.Recordset.Fields(2) = Text3.Text
Data2.Recordset.Fields(3) = Text4.Text
Data2.Recordset.Fields(4) = Text5.Text
Data2.Recordset.Fields(5) = Text6.Text
Data2.Recordset.Fields(6) = Text7.Text
Data2.Recordset.Fields(7) = Text8.Text

Know more @ www.vidyarthiplus.com Powered by WR1334

Data2.Recordset.Fields(8) = Text9.Text
Data2.Recordset.Fields(9) = Text10.Text
Data2.Recordset.Fields(10) = Text11.Text
Data2.Recordset.Fields(11) = Text12.Text
Data2.Recordset.Fields(12) = Text13.Text
Data2.Recordset.Fields(13) = Text14.Text
Data2.Recordset.Fields(14) = Text15.Text
Data2.Recordset.Fields(15) = Text16.Text
Data2.Recordset.Fields(16) = Text17.Text
Data2.Recordset.Fields(17) = Text18.Text
Data2.Recordset.Fields(18) = Text19.Text
Data2.Recordset.Fields(19) = Text20.Text
If Option1.Value = True Then
Data2.Recordset.Fields(19) = "1"
ElseIf Option2.Value = True Then
Data2.Recordset.Fields(19) = "2"
ElseIf Option3.Value = True Then
Data2.Recordset.Fields(19) = "3"
ElseIf Option4.Value = True Then
Data2.Recordset.Fields(19) = "4"
ElseIf Option5.Value = True Then
Data2.Recordset.Fields(19) = "5"
ElseIf Option6.Value = True Then
Data2.Recordset.Fields(19) = "6"
ElseIf Option7.Value = True Then
Data2.Recordset.Fields(19) = "7"
ElseIf Option8.Value = True Then
Data2.Recordset.Fields(19) = "8"
End If
Data2.Recordset.Update
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""

Know more @ www.vidyarthiplus.com Powered by WR1334

Text19.Text = ""
End Sub

Form 4:
Private Sub Command1_Click()
Dim a As String
Data3.Recordset.Edit
a = InputBox("enter name")
Data3.Recordset.MoveFirst
see:
If Data3.Recordset.Fields(20) = a Then
Text1.Text = Data3.Recordset.Fields(20)
Text2.Text = Data3.Recordset.Fields(21)
Text3.Text = Data3.Recordset.Fields(2)
Text4.Text = Data3.Recordset.Fields(3)
Text5.Text = Data3.Recordset.Fields(4)
Text6.Text = Data3.Recordset.Fields(5)
Text7.Text = Data3.Recordset.Fields(6)
Text8.Text = Data3.Recordset.Fields(7)
Text9.Text = Data3.Recordset.Fields(8)
Text10.Text = Data3.Recordset.Fields(9)
Text11.Text = Data3.Recordset.Fields(10)
Text12.Text = Data3.Recordset.Fields(11)
Text13.Text = Data3.Recordset.Fields(12)
Text14.Text = Data3.Recordset.Fields(13)
Text15.Text = Data3.Recordset.Fields(14)
Text16.Text = Data3.Recordset.Fields(15)
Text17.Text = Data3.Recordset.Fields(16)
Text18.Text = Data3.Recordset.Fields(17)
Text19.Text = Data3.Recordset.Fields(18)
If Option1.Value = True Then
Data3.Recordset.Fields(19) = "1"
ElseIf Option2.Value = True Then
Data3.Recordset.Fields(19) = "2"
ElseIf Option3.Value = True Then
Data3.Recordset.Fields(19) = "3"
ElseIf Option4.Value = True Then
Data3.Recordset.Fields(19) = "4"
ElseIf Option5.Value = True Then
Data3.Recordset.Fields(19) = "5"
ElseIf Option6.Value = True Then
Data3.Recordset.Fields(19) = "6"
ElseIf Option7.Value = True Then
Data3.Recordset.Fields(19) = "7"
ElseIf Option8.Value = True Then
Data3.Recordset.Fields(19) = "8"
End If
GoTo Terminate
Else
Data3.Recordset.MoveNext

Know more @ www.vidyarthiplus.com Powered by WR1334

GoTo see
End If
Terminate:
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Form1.Show
End Sub
Private Sub Command4_Click()
Data3.Recordset.Edit
Data3.Recordset.Fields(20) = Text1.Text
Data3.Recordset.Fields(21) = Text2.Text
Data3.Recordset.Fields(2) = Text3.Text
Data3.Recordset.Fields(3) = Text4.Text
Data3.Recordset.Fields(4) = Text5.Text
Data3.Recordset.Fields(5) = Text6.Text
Data3.Recordset.Fields(6) = Text7.Text
Data3.Recordset.Fields(7) = Text8.Text
Data3.Recordset.Fields(8) = Text9.Text
Data3.Recordset.Fields(9) = Text10.Text
Data3.Recordset.Fields(10) = Text11.Text
Data3.Recordset.Fields(11) = Text12.Text
Data3.Recordset.Fields(12) = Text13.Text
Data3.Recordset.Fields(13) = Text14.Text
Data3.Recordset.Fields(14) = Text15.Text
Data3.Recordset.Fields(15) = Text16.Text
Data3.Recordset.Fields(16) = Text17.Text
Data3.Recordset.Fields(17) = Text18.Text
Data3.Recordset.Fields(18) = Text19.Text
Data3.Recordset.Fields(19) = Text20.Text
If Option1.Value = True Then
Data3.Recordset.Fields(19) = "1"
ElseIf Option2.Value = True Then
Data3.Recordset.Fields(19) = "2"
ElseIf Option3.Value = True Then
Data3.Recordset.Fields(19) = "3"
ElseIf Option4.Value = True Then
Data3.Recordset.Fields(19) = "4"
ElseIf Option5.Value = True Then
Data3.Recordset.Fields(19) = "5"
ElseIf Option6.Value = True Then
Data3.Recordset.Fields(19) = "6"
ElseIf Option7.Value = True Then
Data3.Recordset.Fields(19) = "7"
Else
Data3.Recordset.Fields(19) = "8"
End If
Data3.Recordset.Update

Know more @ www.vidyarthiplus.com Powered by WR1334

End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Text17.Text = ""
Text18.Text = ""
Text19.Text = ""
End Sub

SCREEN SHOTS:

FORM 1

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure12: Login Form

FORM 2

Figure13: Student view Form

FORM 3

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure14: Staff view Form

FORM 4

Figure15: Principal view Form

Know more @ www.vidyarthiplus.com Powered by WR1334

 FORM 5

Figure 16: Student entering register number of other student

FORM 6

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure17: Updation by a Staff
SOFTWARE TESTING:
TEST REPORT
TEST CASE NAME: Check Roll Number
OBJECTIVE: usability test
TEST CASES
SCENARIO: Roll number is a integer value
SAMPLE INPUT: NAME: KARTHIK
ROLL NUMBER: K
EXPECTED OUTPUT:
Error message
TEST RESULT:
ACTUAL OUTPUT: Invalid Roll

CONCLUSION:
Thus the application on student mark list analysis system is developed using rational
rose and implemented using visual basic. The main aspects that are behind this application is
that they enabled us to bring out the new ideas that sustained within us for many days. This
application enables the student to retrieve their student details and mark details at anywhere
with a system.

Know more @ www.vidyarthiplus.com Powered by WR1334

Ex.No:6
PAYROLL SYSTEM
PROBLEM STATEMENT:
In the olden days, salary detail maintenance plays the major role to maintain the records.
They gave the salary without any records. So many of them gave the salary twice or thrice per
month.
Because of improper maintenance, to avoid that they need certain records to maintain
the particular employee details. So we provide the Employee payroll system to manage the
records.
Our project is to maintain the Employee Payroll System in the easy manner. This project
makes use of Visual Basic and oracle. In this project it contains a many fields like employee
account number, employee name, job, basic salary, PA, HRA, attendance.
We can calculate the total salary, basic salary in easier manner with out any error by
using some attribute. These calculated salary are stored in database as record and we can
retrieve record when ever required in easier way.
The objective of the project is to create an application that can maintain the employee
payroll system.
In this project creating many forms like login form, new user account form, Employee
details form, salary details form, Deleting the employee form.

PROBLEM REQUIREMENTS:
7. Basic Requirements:
1) Enter the employee details.
2) Enter the salary details of the employee.
8. Functional Requirements:
1) The employee must store the data to database.
2) Each time salary has to be recorded and employee must be able to review salary.
3) All data includes the following details: Name, employee ID.
9. Non-Functional Requirements:
1) System should be simple to operate without any formal training.
2) System must be reused and protected from other unauthorized users.
MODELING:
UML DIAGRAMS:
Use case Diagram:

Know more @ www.vidyarthiplus.com Powered by WR1334

 Login

Employee Detail

Employee
Salary Calculation Admin

Creating New Account

Printer
Delete Account

Figure 1. Use Case Diagram For Payroll System

Class Diagram:

Figure 2. Class Diagram for Login

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure 3. Class Diagram For Calculating Salary

Activity Diagram:

System requires the

Accont No and Password

Employee enters the

Account No. and Password

System validates
the user's data

successful login unsuccessful login

System enters into System displays

the user's account error message

User re-enters
the details

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure 4. Activity diagram for login

Figure 5. Acitivity Diagram For Salary Calculation

Sequence Diagram:
Employee System Database

Req Acc. No. & Pwd

Enter Acc. No. & Pwd

Validates the details

Authenticates the user

Display the message

Figure 6. Sequence Diagram for Login

Know more @ www.vidyarthiplus.com Powered by WR1334

 Employee System Database

Req the Acc. No.

Enters the Acc. No.

Validate data

Authenticate

Req HRA,PF, etc

Enters the req details

Calculate salary

Returns result

Displays the salary

Figure 7. Sequence Diagram for salary calculation

Collaboration Diagram:
2: Enter Acc. No. & Pwd
Employee System

1: Req Acc. No. & Pwd

5: Display the message

4: Authenticates the user

3: Validates the details

Database

Figure 8. Collaboration Diagram for Login

Know more @ www.vidyarthiplus.com Powered by WR1334

 2: Enters the Acc. No.
6: Enters the req details
Employee System

1: Req the Acc. No.

5: Req HRA,PF, etc
9: Displays the salary

4: Authenticate
8: Returns result 3: Validate data
7: Calculate salary

Database

Figure 9. Collaboration Diagram for salary calculation

Component Diagram:
Payroll
System

Update

Counter
PC

Figure 10. Component Diagram for Payroll System

Deployment Diagram:

Payroll System

Counter PC

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure 11. Deployment Diagram for Payroll System
SOFTWARE DEVELOPMENT:
CODE IMPLEMENTATION:

Form1:
Private Sub Command1_Click()
If Text1.Text = "anderson" And Text2.Text = "1234" Then
Form2.Visible = True
Form2.Command2.Visible = False
Form2.Command3.Visible = False
Form2.Command4.Visible = False
Form2.Command5.Visible = False
Form2.Command6.Visible = False
Form2.Command7.Visible = False
Form2.Command8.Visible = False
Form1.Visible = False
Form3.Visible = False
Form4.Visible = False
Else
MsgBox ("incorrect username and password")
Form1.Visible = True
End If
End Sub
Private Sub Command2_Click()
If Text3.Text = "peterson" And Text4.Text = "123456789" Then
Form2.Visible = True
Form1.Visible = False
Form3.Visible = False
Form4.Visible = False
Else
MsgBox ("incorrect username and password")
Form1.Visible = True
End If
End Sub
Private Sub Form_Load()
Frame1.Visible = False
Frame2.Visible = True
Frame3.Visible = False
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Option1_Click()
Frame1.Visible = False
Frame3.Visible = True
End Sub
Private Sub Option2_Click()
Frame3.Visible = False
Frame1.Visible = True

Know more @ www.vidyarthiplus.com Powered by WR1334

End Sub

Form 2:
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Form3.Show
Form4.Hide
End Sub
Private Sub Command3_Click()
Form4.Show
Form3.Hide
End Sub
Private Sub Command5_Click()
Dim X As String
Dim a As Integer
If Text6.Text = "CEO" Then
Text8.Text = "20000"
a = 1
ElseIf Text6.Text = "MANAGER" Then
Text8.Text = "15000"
a = 1
ElseIf Text6.Text = "PROJECT MANAGER" Then
Text8.Text = "12000"
a = 1
ElseIf Text6.Text = "PROGRAMMER" Then
Text8.Text = "10000"
a = 1
Else
a = 0
X = MsgBox("ENTER THE OCCUPATION")
End If
If a = 1 And Text13.Text <> "" And Text7.Text <> "" And Text8.Text
<> "" Then
Text9.Text = Text13.Text * Text14.Text
Text10.Text = Text9.Text + ((Text9.Text * (Text8.Text / 100))) -
(Text9.Text * (Text8.Text / 100))
Else
X = MsgBox("FILL REQUIRE DATA")
End If
End Sub
Private Sub Command4_Click()
Form1.Show
Form2.Hide
Form3.Hide
Form4.Hide
End Sub
Private Sub Command6_Click()

Know more @ www.vidyarthiplus.com Powered by WR1334

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text11.Text = ""
Text12.Text = ""
Text13.Text = ""
Text14.Text = ""
End Sub
Private Sub Command7_Click()
Data1.Recordset.AddNew
Data1.Recordset.Update
End Sub
Private Sub Command8_Click()
End
End Sub

Form 3:
Private Sub Command1_Click()
Data2.Recordset.Edit
Data2.Recordset.Fields(0) = Text1.Text
Data2.Recordset.Fields(1) = Text2.Text
Data2.Recordset.Fields(2) = Text3.Text
Data2.Recordset.Fields(3) = Text4.Text
Data2.Recordset.Fields(4) = Text5.Text
If Text6.Text = "CEO" Then
Data2.Recordset.Fields(5) = "CEO"
Data2.Recordset.Fields(7) = "20000"
ElseIf Text6.Text = "MANAGER" Then
Data2.Recordset.Fields(5) = "MANAGER"
Data2.Recordset.Fields(7) = "15000"
ElseIf Text6.Text = "PROJECT MANAGER" Then
Data2.Recordset.Fields(5) = "PROJECT MANAGER"
Data2.Recordset.Fields(7) = "12000"
ElseIf Text6.Text = "PROGRAMMER" Then
Data2.Recordset.Fields(5) = "PROGRAMMER"
Data2.Recordset.Fields(7) = "10000"
Else
MsgBox ("ENTER THE OCCUPATION")
End If
Data2.Recordset.AddNew
End Sub
Private Sub Command2_Click()
Form1.Show

Know more @ www.vidyarthiplus.com Powered by WR1334

End Sub
Private Sub Label2_Click()
End Sub

Form4:
Private Sub Command1_Click()
Dim a As String
a = InputBox("enter account number")
Data3.Recordset.MoveFirst
see:
If Data3.Recordset.Fields(1) = a Then
Data1.Recordset.Delete
GoTo Terminate
Else
Data3.Recordset.MoveNext
GoTo see
End If
Terminate:
End Sub
Private Sub Command2_Click()
Form1.Show
End Sub
Private Sub Label2_Click()
End Sub

SCREEN SHOTS:
FORM 1

Know more @ www.vidyarthiplus.com Powered by WR1334

 Figure12:.Login form for Employee view

FORM 2

Figure13: Employee view Form

Know more @ www.vidyarthiplus.com Powered by WR1334

 FORM 3

Figure14:Login form for Administrator view

FORM 4

Figure15: Administrator view

Know more @ www.vidyarthiplus.com Powered by WR1334

 FORM 5

Figure16: Create Account form

FORM 6

Figure17: Delete Account form

Know more @ www.vidyarthiplus.com Powered by WR1334

SOFTWARE TESTING:
TEST REPORT:
TEST CASE NAME: Profile availability check.
OBJECTIVE: Usability test.
TEST CASE:
SCENARIO: Viewing profile with id.
SAMPLE INPUT: Enter the staff id.
EXPECTED OUTPUT: Error message displayed.
TEST RESULTS:
ACTUAL OUTPUT: Profile not found!

CONCLUSION:
Thus the application on payroll system is developed using rational rose and
implemented using visual basic. The main aspects that are behind this application are that they
enabled us to bring out the new ideas that sustained within us for many days. This application
will be a successful one because this application offers the admin to calculate the salary in a
very easy manner. Thus saving their time.

Know more @ www.vidyarthiplus.com Powered by WR1334