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:
1. Basic Requirements:
1) Enter the employee details.
2) Enter the salary details of the employee.
2. Functional Requirements:
1) The employee must store the data to database.
2) Each time salary has to be recorded and the employee must be able to review the salary.
3) All data includes the following details: Name, employee ID.
3. 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:
Login
Displaying Employee details
user Administrator
Salary Calculation
Creating a new account
printer
Deleting a Account
Figure . Use Case Diagram For Payroll System
Class Diagram:
Figure . Class Diagram For Login
Figure. Class Diagram For Creating a Employee Account
Figure . Class Diagram For Calculating Salary
Figure . Class Diagram For Deleting A Employee Account
Figure. Class Diagram For View A Employee Details
Activity Diagram:
System Require User name,password
and Authentication type
User enters a username,passwordand
Authentication type
System validate the
username and password
System Enters System displays a
into the system error message
Reeneter the
password
Figure. Activity diagram for login
System Require account number and
personal details
Admin enters account number and Other
details
System validate the
account number
If the system validation is true If the system validation is false
System Create a new
System displays a
record in database
error message
Re-eneter the
Account number
Figure . Activity Diagram For Creating an employee account
System Require account number
User enters account number
System validate the
account number
If the system validation is true If the system validation is false
System delete a record
System displays a
error message
Re-eneter the
Account number
Figure . Acitivity Diagram For Deleting an Employee Account
System Require account number
User enters account number
System validate the
account number
If the system validation is true If the system validation is false
System require
System displays a
attendance,HRA,PF
error message
System calculate total
salary and basic salary Reeneter the
password
System store the salary
details in database
Figure . Acitivity Diagram For Salary Calculation
System Requires
Account Number
User Enters A
Account Number
System Validate The
Account Number
If The Validation Is True If The Validation Is False
System Displays The System Displays
Details Of Employee Error Message
Re-Enter The
Account Number
User Wish To Retype The Account Number
Figure . Activity diagram for salary details
SOFTWARE DEVELOPMENT:
CODE IMPLEMENTATION:
(FORM 1)-LOGIN
Dim db As Database
Dim rs As Recordset
Private Sub Command1_Click()
If (Option2.Value = True) Then
rs.MoveFirst
For i = 1 To rs.RecordCount
a = Trim(rs("Acc_no"))
If (Text2.Text = a) Then
form2.Command1.Enabled = False
form2.Command4.Enabled = False
form2.Command5.Enabled = False
form2.Show
Else
rs.MoveNext
End If
Next i
ElseIf (Option1.Value = True) Then
If (Text2.Text = "sathish") Then
form2.Command1.Enabled = True
form2.Command4.Enabled = True
form2.Command5.Enabled = True
form2.Show
Else
MsgBox ("password error")
End If
Else
MsgBox ("select your Autherntecation type")
End If
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("C:\Users\sathish\Desktop\SA\New Folder\pay roll.mdb")
Set rs = db.OpenRecordset("creat")
End Sub
Private Sub Option1_Click()
If (Option2.Value = False) Then
Label2.Caption = "password"
End If
End Sub
Private Sub Option2_Click()
If (Option1.Value = False) Then
Label2.Caption = "Account No"
End If
End Sub
(FORM 2)-SALARY CALCULATION
Dim db As Database
Dim rs As Recordset
Private Sub Command7_Click()
Dim i As Integer
rs.MoveFirst
For i = 1 To rs.RecordCount
a = Trim(rs("Acc_no"))
If (a = Text2.Text) Then
rs.Edit
rs("attendance") = Text4.Text
rs("sa_perday") = Text8.Text
rs("basic") = Text5.Text
rs("hra") = Text6.Text
rs("pf") = Text7.Text
rs("total_salary") = Text9.Text
rs("date") = Text11.Text
rs("time") = Text12.Text
rs.Update
MsgBox ("record added")
End If
rs.MoveNext
Next i
End Sub
Private Sub Command8_Click()
Form1.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("C:\Users\sathish\Desktop\SA\New Folder\pay roll.mdb")
Set rs = db.OpenRecordset("creat")
Combo1.Enabled = False
Text5.Enabled = False
Text9.Enabled = False
Text8.Enabled = False
Text1.Enabled = False
Text10.Enabled = False
Text3.Enabled = False
Option1.Enabled = False
Option2.Enabled = False
End Sub
Private Sub Command1_Click()
Dim xs As String
Dim a As Integer
If Combo1.Text = "CEO" Then
Text8.Text = 2000
a=1
ElseIf Combo1.Text = "Manager" Then
Text8.Text = 1500
a=1
ElseIf Combo1.Text = "Project manager" Then
Text8.Text = 1200
a=1
ElseIf Combo1.Text = "Programmer" Then
Text8.Text = 1000
a=1
Else
a=0
xs = MsgBox("enter the occupation")
End If
If a = 1 And Text4.Text "" And Text6.Text "" And Text7.Text "" Then
Text5.Text = Text4.Text * Text8.Text
Text9.Text = Text5.Text + ((Text5.Text * (Text6.Text / 100)) - (Text5.Text * (Text7.Text /
100)))
Else
xs = MsgBox("Fill require data")
End If
Text4.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text4.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Text13.Text = ""
Text14.Text = ""
Text15.Text = ""
Text16.Text = ""
Option1.Value = False
Option2.Value = False
Combo1.Text = "Select from list"
End Sub
Private Sub Command4_Click()
Form3.Show
End Sub
Private Sub Command5_Click()
Form4.Show
End Sub
Private Sub Command6_Click()
Dim xs As String
rs.MoveFirst
For i = 1 To rs.RecordCount
a = Trim(rs("Acc_no"))
If (a = Text2.Text) Then
If rs("total_salary") 0 Then
Text4.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Text4.Enabled = False
Text6.Enabled = False
Text7.Enabled = False
Combo1.Text = rs("occupation")
Text4.Text = rs("attendance")
Text8.Text = rs("sa_perday")
Text5.Text = rs("basic")
Text6.Text = rs("hra")
Text7.Text = rs("pf")
Text9.Text = rs("total_salary")
Frame6.Visible = True
Text14.Text = rs("date")
Text13.Text = rs("time")
Else
Text4.Enabled = True
Text6.Enabled = True
Text7.Enabled = True
End If
Combo1.Text = rs("occupation")
Text3.Text = rs("dob")
Text10.Text = rs("addr")
Text1.Text = rs("Name")
Text15.Text = rs("c_date")
Text16.Text = rs("c_time")
If rs("gender") = "Male" Then
Option1.Value = True
Else
Option2.Value = True
End If
x=1
End If
rs.MoveNext
Next i
If x 1 Then
MsgBox ("Type your correct Account number")
End If
End Sub
Private Sub Timer1_Timer()
Text11.Text = Time$
Text12.Text = Date$
End Sub
(FORM 4)-ACCOUNT CREATION FOR EMPLOYEE
Private Sub Command1_Click()
Dim xs As String
Dim Y As Integer
rs.MoveFirst
For i = 1 To rs.RecordCount
a = Trim(rs("Acc_no"))
If (a = Text2.Text) Then
Y=2
MsgBox ("record number already exist")
End If
rs.MoveNext
Next i
If Y 2 Then
If Text1.Text "" And Text2.Text "" And Text3.Text "" And Text4.Text "" And
(Option1.Value False Or Option2.Value False) And Combo1.Text "Select from list"
Then
rs.AddNew
rs("Name") = Text1.Text
rs("Acc_no") = Text2.Text
rs("dob") = Text3.Text
rs("Addr") = Text4.Text
rs("c_time") = form2.Text11.Text
rs("c_date") = form2.Text12.Text
If (Option1.Value = True) Then
rs("gender") = "Male"
ElseIf (Option2.Value = True) Then
rs("gender") = "Female"
Else
xs = MsgBox("Select gender", , "Gender error")
End If
If (Combo1.ListIndex = 0) Then
rs("occupation") = "CEO"
rs.Update
ElseIf (Combo1.ListIndex = 1) Then
rs("occupation") = "Manager"
rs.Update
ElseIf (Combo1.ListIndex = 2) Then
rs("occupation") = "Project manager"
rs.Update
ElseIf (Combo1.ListIndex = 3) Then
rs("occupation") = "Programmer"
rs.Update
End If
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Option1.Value = False
Option2.Value = False
Combo1.Text = "Select from list"
xs = MsgBox("Account created")
Else
MsgBox ("data missing")
End If
End If
End Sub
Private Sub Command3_Click()
form2.Show
End Sub
Private Sub Form_Load()
Set db = OpenDatabase("C:\Users\sathish\Desktop\SA\New Folder\pay roll.mdb")
Set rs = db.OpenRecordset("creat")
End Sub
SCREEN SHOTS:
FORM-1
Figure . Login form payroll system
FORM-3
Figure . Creating An Account For Employee
FORM-4
Figure
Figure . Deleting An Account For Employee
FORM-5
Figure . Calculating Salary For Employee
FORM-6
Figure . Viewing A Employee Details
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.