7.software Personnel Mang

EX:NO:7 SOFTWARE PERSONNEL MANAGEMENT SYSTEM
PROBLEM STATEMENT
Software Personnel Management System deals with the management of employee details,
their projects, salary information, work hours, addition and removal or transfer of position. For
every employee, their personal details are obtained. An ID and expected number of working
hours are also assigned. Then, their salary is determined according to their qualification and
experience. A list of projects is maintained for each employee and the status is updated when a
progress is made. If an absence is requested, it is recorded in the profile, and they are warned in
case their limit is exceeded. Salary and positional changes are made in case of promotion or
transfer. If an employee is dismissed, their records are archived.
DATABASE DESIGN
EMPLOYEETABLE
PROJECT TABLE
SOFTWARE PERSONNEL MANAGEMENT SYSTEM
USE CASE DIAGRAM
personel details
educational details
TL officier
experience details
apps round
applicant
gd round
direct hr round
HR officer
analys
giva placement order

CLASS DIAGRAM
SEQUENCE DIAGRAM
applicant TL officer HR officer database
log in
register details
sent resume
apps round
gd round
submit
analys
HR round
select
give placement order

Activity diagram
login
personal
details
educational
qualification
experience
details
if specified direct HR
round
app round
gd round
if selected reject
HR round
give placement
order
STATECHART DIAGRAM
log in personel educational apps round GD round Hr round

deatils details
COMPONENT DIAGRAM
applicant TL officer HR
officer
DEPLOYMENT DIAGRAM
Persone databas
... e
LAYERED ARCHTECTURE DIAGRAM
ui layer
employee detail project project details

form allocation form form
domain layer
Applicants TL manager HR manager
technical layer
database
CODINGS:
MODULE
Global db As New ADODB.Connection
Global rs1 As New ADODB.Recordset
Global rs As New ADODB.Recordset
FORM 1
Private Sub cmdaddprodetails_Click()
Form3.Show
End Sub
Private Sub cmdnewempdetails_Click()
Form2.Show
End Sub
Private Sub cmdprojalloc_Click()
Form5.Show
End Sub
Private Sub cmdviewempdetails_Click()
Form4.Show
End Sub
Private Sub cmdviewprodetails_Click()
Form6.Show
End Sub
FORM2 (REGISTER DETAILS)

Private Sub cmdsubmit_Click()
query = "insert into
empdetails(empid,empname,dob,phno,address,email,qual,basic,hra,da,projectalloc)values('" & txtempid
& "','" & txtempname & "','" & txtdob & "','" & txtphno & "','" & txtaddr & "','" & txtemail & "','" &
txtqual & "'," & txtbasic & "," & txthra & "," & txtda & ",'free')"
db.Execute (query)
Form1.Show
End Sub
Private Sub Form_Load()
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Z:\spm\spm.mdb;Persist
Security Info = False"
db.Open
End Sub
FORM3 (PROJECT DETAILS)
Dim query1 As String
Private Sub cmdsubmit_Click()
query = "insert into prodetails(proname,promgrname,start1,end1)values('" & txtproname & "','" &
cmbpromgr & "','" & txtstart & "','" & txtend & "')"
db.Execute (query)
End Sub
db.Open
query = "select * from empdetails"
Set rs = db.Execute(query)
While (Not rs.EOF)
cmbpromgr.AddItem (rs(1))
rs.MoveNext
Wend
End Sub
FORM4 (VIEW EMPLOYEE DETAILS)

Private Sub cmdok_Click()
Set rs1 = db.Execute("select * from empdetails where empid = '" & txtempid.Text & "'")
If Not rs1.EOF Then
txtempname = rs1(1)
txtdob = rs1(2)
txtphno = rs1(3)
txtaddr = rs1(4)
txtemail = rs1(5)
txtqual = rs1(6)
txtbasic = rs1(7)
txthra = rs1(8)
txtda = rs1(9)
txtnetsal = rs1(7) + rs1(8) + rs1(9)
txtproject = rs1(10)
rs1.Close
End If
End Sub
db.Open
End Sub
FORM5 (PROJECT ALLOCATION)
Private Sub cmdclick_Click()
Set rs3 = db.Execute("select * from empdetails where empid = '" & txtenteremp.Text & "'")
If Not rs3.EOF Then
txtempname = rs3(1)
rs3.Close
End If
query = "select proname from prodetails"
Set rs4 = db.Execute(query)
While (Not rs4.EOF)
cmbchoosepro.AddItem (rs4(0))
rs4.MoveNext
Wend
End Sub
query = "update empdetails set projectalloc = '" & cmbchoosepro.Text & "' where empid= '" &
txtenteremp.Text & "'"
db.Execute (query)
End Sub
db.Open
End Sub
FORM6 (VIEW PROJECT DETAILS)

query = "select empname from empdetails where projectalloc= '" & cmbproname & "'"
If Not rs6.EOF Then
lstteam.AddItem (rs6("empname"))
End If
query = "select * from prodetails where proname = '" & cmbproname.Text & "'"
txtpromgr = rs3(1)
txtstart = rs3(2)
txtend = rs3(3)
End Sub
db.Open
query = "select proname from prodetails"
While (Not rs5.EOF)
cmbproname.AddItem (rs5(0))
rs5.MoveNext
Wend
End Sub
OUTPUT
FORM1
FORM2
FORM3
FORM4
FORM5 FORM6

7.software Personnel Mang

Uploaded by

Copyright:

Available Formats

7.software Personnel Mang

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

7.software Personnel Mang

Uploaded by

Copyright:

Available Formats

EX:NO:7 SOFTWARE PERSONNEL MANAGEMENT SYSTEM

USE CASE DIAGRAM

giva placement order

applicant TL officer HR officer database

give placement order

log in personel educational apps round GD round Hr round

employee detail project project details

Applicants TL manager HR manager

FORM2 (REGISTER DETAILS)

FORM4 (VIEW EMPLOYEE DETAILS)

FORM6 (VIEW PROJECT DETAILS)

You might also like

Pfad - The Proxy pFad of © 2024 Garber Painting. All rights reserved.