New Reply 
Employee Cubicle Management System full report
computer science technology Offline
SP Expert Member
****
Posts: 742
Threads: 424
Joined: Jan 2010
#1
31-01-2010, 11:02 AM

[attachment=1586]
[attachment=1587]
Title of the project

Development of an Employee Cubicle Management System

Abstract of the project

This project is aimed at tracking and having the view of the cubicle and the person sitting in it. Assuming there is already system that has the cubicle numbers and the telephone number data, at the same time this system will also need to take the floor plan as input and maintain the cubicle plan and the seat numbers. The floor plan input is needed to make system more robust and adaptable to the new buildings coming up.

Functional components of the project

Following is a list of functionalities of the system. More functionality that you find appropriate can be added to this list. And, in places where the description of functionality is not adequate, you can make appropriate assumptions and proceed.

The work flow should be like this:

1. User will log into the System.
2. The system will open up a screen to enter employee no. Alternatively it will provide a screen to search a particular employee depending on various criteria.
3. Once the employee is found out, his location details will be displayed pictorially on the screen. The whole floor plan should be visible on the screen. And the particular location of the employee should be highlighted.
4. There must different user groups of different privilege levels.
5. The Administrator group will be responsible for adding new floor plans, new employees to the database. The application should provide some screens to add/modify/delete Floor Plan and related details and employee details.



Steps to start-off the project

The suggested OS and languages to implement such a system are

Microsoft platform: The system is developed using Java, Java Swing, Java Applet and SQL Server as the back end.


The following steps will be helpful to start off the project.

1. Study and be comfortable with technologies such as
a. Java, Java Applet, Java Swing and SQL server

Some links to these technologies are given in the ËœGuidelines and Referencesâ„¢
section of this document

2. Decide on details of the review and defect that you want to have.

3. Create the screen which will display the floor plan and highlight the particular location of the employee cubicle.

4. Create the help-pages of the system in the form of Q&A. This will help you also when implementing the system

Create other sub-systems like screens for searching employee based on different criteria.
Find
Reply
projectsofme Offline
SP Deserved Member
**********
Posts: 1,149
Threads: 370
Joined: Jun 2010
#2
24-11-2010, 11:10 AM
VB CODE FOR EMPLOYEE ADDING MANAGER


Option Explicit

Private Sub cmdclear_Click()
txtempid.Text = ""
txtname.Text = ""
txtaddress.Text = ""
txtphone.Text = ""
txtsalary.Text = ""
txtempid.SetFocus
End Sub

Private Sub cmdclose_Click()
confirm = MsgBox("Are you sure to exit ?" & Chr(10) & "Any unsaved data will be lost.", vbApplicationModal + vbYesNo + vbQuestion, "Exit Addition")
If confirm = vbNo Then
txtempid.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
Unload Me
frmmenu.optadd.SetFocus
End If
End Sub

Private Sub cmdsave_Click()
If Trim(txtempid.Text) <> "" And Trim(txtname.Text) <> "" And Trim(txtaddress.Text) <> "" And Trim(txtphone.Text) <> "" _
And Trim(txtsalary.Text) <> "" Then
Set rsd = db.OpenRecordset("select * from info where empno='" & Trim(txtempid.Text) & "'")
If rsd.RecordCount > 0 Then
MsgBox "Employee " & Chr(34) & Trim(txtempid.Text) & Chr(34) & " already exists.", vbApplicationModal + vbInformation, "Duplication Found"
txtempid.SelStart = 0
txtempid.SelLength = Len(Trim(txtempid.Text))
txtempid.SetFocus
Exit Sub
ElseIf rsd.RecordCount = 0 Then
rs.AddNew
If rs.EditMode = dbEditAdd Then
rs("empno") = Trim(txtempid.Text)
rs("name") = Trim(txtname.Text)
rs("address") = Trim(txtaddress.Text)
rs("phone") = Trim(txtphone.Text)
rs("salary") = Trim(txtsalary.Text)
rs.Update
MsgBox "Successfully added new employee data.", vbApplicationModal + vbInformation, "Done"
cmdclear_Click
End If
End If
Set rsd = Nothing
Else
MsgBox "Sorry,blank values cannot be saved.", vbApplicationModal + vbExclamation, "Incompleted Information"
txtempid.SetFocus
Exit Sub
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then cmdclose_Click
End Sub

Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2

Set db = OpenDatabase(App.Path & "\employee.mdb")
Set rs = db.OpenRecordset("info", dbOpenTable)
Set rsd = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst
If rsd.RecordCount > 0 Then rsd.MoveFirst
End Sub

Private Sub txtname_LostFocus()
Dim i, c As Integer, n As String

If Trim(txtname.Text) <> "" Then
For i = 1 To Len(Trim(txtname.Text)) Step 1
n = Mid(Trim(txtname.Text), i, 1)
n = LCase(n)
If n >= "a" And n <= "z" Or n = " " Then
c = 0
Else
c = 1
End If
Next i
If c = 0 Then
Exit Sub
ElseIf c = 1 Then
MsgBox "Name contains some junk characters." & vbCrLf & "Please rectify.", vbApplicationModal + vbExclamation, "Error"
txtname.SelStart = 0
txtname.SelLength = Len(Trim(txtname.Text))
txtname.SetFocus
End If
Else
Exit Sub
End If
End Sub

Private Sub txtphone_KeyPress(KeyAscii As Integer)
If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Private Sub txtsalary_KeyPress(KeyAscii As Integer)
If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Private Sub txtphone_LostFocus()
If Trim(txtphone.Text) <> "" Then
If InStr(1, txtphone.Text, ".") Then
MsgBox "Phone number contains a junk character." & vbCrLf & "Please rectify.", vbApplicationModal + vbExclamation, "Error"
txtphone.SelStart = 0
txtphone.SelLength = Len(Trim(txtphone.Text))
txtphone.SetFocus
Else
If Len(Trim(txtphone.Text)) = 8 Or Len(Trim(txtphone.Text)) = 10 Then
Exit Sub
Else
MsgBox "Phone no should be consist of 8(Cell) or 10(Land) digits.", vbApplicationModal + vbInformation, "Invalid Phone No Format"
txtphone.SelStart = 0
txtphone.SelLength = Len(Trim(txtphone.Text))
txtphone.SetFocus
End If
End If
Else
Exit Sub
End If
End Sub

Private Sub txtsalary_LostFocus()
If Trim(txtsalary.Text) <> "" Then
If IsNumeric(Trim(txtsalary.Text)) Then
Exit Sub
Else
MsgBox "Invalid salary.", vbApplicationModal + vbExclamation, "Error"
txtsalary.SelStart = 0
txtsalary.SelLength = Len(Trim(txtsalary.Text))
txtsalary.SetFocus
End If
Else
Exit Sub
End If
End Sub
EMPLOYEE DELETION MANAGER

Option Explicit

Private Sub cboempid_Click()
If cboempid.ListIndex > 0 Then
Set rs = db.OpenRecordset("select *from info where empno='" & cboempid.Text & "'")
If rs.RecordCount > 0 Then
lblemp.Caption = "Details of Employee " & cboempid.Text & " to be Removed"
txtempid.Text = rs("empno")
txtname.Text = rs("name")
txtaddress.Text = rs("address")
txtphone.Text = rs("phone")
txtsalary.Text = rs("salary")
txtempid.BackColor = vbWhite
txtname.BackColor = vbWhite
txtaddress.BackColor = vbWhite
txtphone.BackColor = vbWhite
txtsalary.BackColor = vbWhite
End If
Set rs = Nothing
Else
Exit Sub
End If
End Sub

Private Sub cmdclose_Click()
confirm = MsgBox("Are you sure to exit ?", vbApplicationModal + vbYesNo + vbQuestion, "Exit Deletion")
If confirm = vbNo Then
cboempid.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
Unload Me
frmmenu.optadd.SetFocus
End If
End Sub

Private Sub cmdremove_Click()
If Trim(txtempid.Text) <> "" Then
mnusel.Enabled = True
Else
mnusel.Enabled = False
End If
If cboempid.ListCount > 1 Then
mnuall.Enabled = True
ElseIf cboempid.ListCount = 1 Then
mnuall.Enabled = False
End If
PopupMenu mnuremove
End Sub

Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2

Set db = OpenDatabase(App.Path & "\employee.mdb")
Set rs = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst

cboempid.AddItem "-=Select Emp ID=-"
Do Until rs.EOF
cboempid.AddItem rs("empno")
rs.MoveNext
Loop
cboempid.ListIndex = 0
txtempid.BackColor = &HC0C0C0
txtname.BackColor = &HC0C0C0
txtaddress.BackColor = &HC0C0C0
txtphone.BackColor = &HC0C0C0
txtsalary.BackColor = &HC0C0C0
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then cmdclose_Click
End Sub

Private Sub mnuall_Click()
confirm = MsgBox("Are you sure to truncate the employee record table ?", vbApplicationModal + vbYesNo + vbQuestion, _
"Confirm Removal")
If confirm = vbNo Then
cboempid.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
frmdelprogress.Show vbModal
End If
End Sub

Private Sub mnusel_Click()
confirm = MsgBox("Are you sure to remove record of Employee " & txtempid.Text & " from the database ?", vbApplicationModal + vbYesNo + vbQuestion, _
"Confirm Removal")
If confirm = vbNo Then
txtempid.Text = ""
txtaddress.Text = ""
txtname.Text = ""
txtphone.Text = ""
txtsalary.Text = ""
txtempid.BackColor = &HC0C0C0
txtname.BackColor = &HC0C0C0
txtaddress.BackColor = &HC0C0C0
txtphone.BackColor = &HC0C0C0
txtsalary.BackColor = &HC0C0C0
cboempid.ListIndex = 0
cboempid.SetFocus
ElseIf confirm = vbYes Then
Set rs = db.OpenRecordset("select *from info where empno='" & txtempid.Text & "'")
If rs.RecordCount > 0 Then
rs.Delete
End If
txtempid.Text = ""
txtaddress.Text = ""
txtname.Text = ""
txtphone.Text = ""
txtsalary.Text = ""
txtempid.BackColor = &HC0C0C0
txtname.BackColor = &HC0C0C0
txtaddress.BackColor = &HC0C0C0
txtphone.BackColor = &HC0C0C0
txtsalary.BackColor = &HC0C0C0
MsgBox "Successfully removed employee record from the database.", vbApplicationModal + vbInformation, "Done"
Set rs = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then
rs.MoveFirst
cboempid.Clear
cboempid.AddItem "-=Select Emp ID=-"
Do Until rs.EOF
cboempid.AddItem rs("empno")
rs.MoveNext
Loop
cboempid.ListIndex = 0
cboempid.SetFocus
ElseIf rs.RecordCount = 0 Then
MsgBox "There is currently no employee record available for further removal." & vbCrLf & "Employee deletion manager will now close.", _
vbApplicationModal + vbInformation, "Empty Database"
Unload Me
frmmenu.optadd.SetFocus
End If
End If
End Sub

DELETING PROGRESS BAR
Option Explicit
Dim i As Integer, tot As Integer

Private Sub Form_Activate()
Do Until rs.EOF
rs.Delete
i = i + 1
p1.Value = i
lblprogress.Caption = "Removed : " & i & "\" & tot
lbldone.Caption = CInt((i * 100) / tot) & " % Completed"
rs.MoveNext
Loop
Timer1.Enabled = False
MsgBox "Successfully removed all records.", vbApplicationModal + vbInformation, "Done"
Unload Me
Unload frmdeletion
frmmenu.optadd.SetFocus
End Sub

Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2

i = 0
Set db = OpenDatabase(App.Path & "\employee.mdb")
Set rs = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst

tot = rs.RecordCount
p1.Max = rs.RecordCount
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
lblwait.Visible = Not lblwait.Visible
End Sub

LOGIN FORM

Option Explicit
Dim i As Integer

Private Sub cmdcancel_Click()
confirm = MsgBox("Are you sure to exit ?", vbApplicationModal + vbYesNo + vbQuestion, "Confirm Exit")
If confirm = vbYes Then
End
Else
txtusername.SetFocus
Exit Sub
End If
End Sub

Private Sub cmdchange_Click()
frmverify.Show vbModal
End Sub

Private Sub cmdok_Click()
If Trim(username) = "" And Trim(password) = "" Then
If Trim(txtusername.Text) <> "" And Trim(txtpassword.Text) <> "" Then
SaveSetting "Employee", "Login", "Username", Trim(txtusername.Text)
SaveSetting "Employee", "Login", "Password", Trim(txtpassword.Text)
MsgBox "User authentication has been accepted." & vbCrLf & "Click Ok to launch the system.", vbApplicationModal + vbInformation, _
"User Data Saved"
lblmsg.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
txtpassword.Enabled = False
txtusername.Enabled = False
cmdcancel.Enabled = False
cmdchange.Enabled = False
cmdok.Enabled = False
Me.Height = 2805
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
Timer1.Enabled = True
Timer2.Enabled = True
Else
MsgBox "Sorry,blank values cannot be accepted in user settings.", vbApplicationModal + vbCritical, "Error Accepting Values"
txtusername.SetFocus
Exit Sub
End If
ElseIf Trim(username) <> "" And Trim(password) <> "" Then
If Trim(txtusername.Text) = Trim(username) And Trim(txtpassword.Text) = Trim(password) Then
lblmsg.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
txtpassword.Enabled = False
txtusername.Enabled = False
cmdcancel.Enabled = False
cmdchange.Enabled = False
cmdok.Enabled = False
Me.Height = 2805
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
Timer1.Enabled = True
Timer2.Enabled = True
Else
MsgBox "The system cannot recognised these user settings." & vbCrLf & "Please enter valid data and try again...", vbApplicationModal + _
vbExclamation, "Invalid User Data"
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
Exit Sub
End If
End If
End Sub
Private Sub Form_Activate()
username = GetSetting("Employee", "Login", "Username")
password = GetSetting("Employee", "Login", "Password")
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If cmdcancel.Enabled = True Then
cmdcancel_Click
ElseIf cmdcancel.Enabled = False Then
Exit Sub
End If
End If
End Sub

Private Sub Form_Load()
Me.Height = 1905
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
p1.Max = 100
p1.Min = 0
Timer1.Enabled = False
Timer2.Enabled = False

username = GetSetting("Employee", "Login", "Username")
password = GetSetting("Employee", "Login", "Password")

If Trim(username) = "" And Trim(txtpassword) = "" Then
MsgBox "First of all thank you for downloading this application." & vbCrLf & "If you find any bugs please notify it by posting your" & vbCrLf & _
"comment.Any suggestions for improving this application" & vbCrLf & "will be appreciated.", vbApplicationModal, "Thank You Fellow Programmer"
MsgBox "This application is running first time on this system.please set an" & vbCrLf & "user authentication in order to prevent unauthorized access.", _
vbApplicationModal + vbInformation, "Welcome"
cmdok.Caption = "Save And Go"
cmdchange.Enabled = False
lblmsg.Caption = "Please Set User Authentication"
Else
cmdok.Caption = "GO"
cmdchange.Enabled = True
lblmsg.Caption = "Please Login"
End If
End Sub

Private Sub Timer1_Timer()
i = i + 1
p1.Value = i
lbldone.Caption = p1.Value & "% Completed"
If i = 100 Then
Unload Me
frmmenu.Show
End If
End Sub

Private Sub Timer2_Timer()
lblwait.Visible = Not lblwait.Visible
End Sub

Private Sub txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then cmdok_Click
End Sub

Private Sub txtusername_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then cmdok_Click
End Sub

FORM MENU

Option Explicit

Private Sub cmdexit_Click()
confirm = MsgBox("Are you sure to exit Employee Manager ?", vbApplicationModal + vbYesNo + vbInformation, "Exit Application")
If confirm = vbNo Then
optadd.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
MsgBox "Thanks for being worked with this application.", vbApplicationModal, "GoodBye"
End
End If
End Sub

Private Sub cmdexit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Exits employee manager application."
End Sub

Private Sub cmdlaunch_Click()
If optadd.Value = False And optedit.Value = False And optremove.Value = False And optsearch.Value = False And Option1.Value = False Then
MsgBox "You should select an option in order to proceed.", vbApplicationModal + vbExclamation, "Nothing Is Selected"
optadd.SetFocus
ElseIf optadd.Value = True Then
frmadditon.Show vbModal
ElseIf optedit.Value = True Then
frmmodification.Show vbModal
ElseIf optremove.Value = True Then
frmdeletion.Show vbModal
ElseIf optsearch.Value = True Then
frmsearching.Show vbModal
ElseIf Option1.Value = True Then
frmstaffbill.Show vbModal
End If
End Sub

Private Sub cmdlaunch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Starts the service associated based on your selection."
End Sub

Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Welcome to Employee Management System"
End Sub

Private Sub Form_Unload(Cancel As Integer)
confirm = MsgBox("Are you sure to exit Employee Manager ?", vbApplicationModal + vbYesNo + vbInformation, "Exit Application")
If confirm = vbNo Then
Cancel = vbNo
optadd.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
MsgBox "Thanks for being worked with this application.", vbApplicationModal, "GoodBye"
End
End If
End Sub

Private Sub optadd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Opens addition manager and helps you to create new employee record that is going to be stored in employee database."
End Sub

Private Sub optedit_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Opens modification manager and helps you to edit existing employee record that is going to be updated in employee database."
End Sub

Private Sub Option1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Opens Staff Pay manager and helps you to add Emplayee bill "
End Sub

Private Sub optremove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Opens deletion manager and helps you to remove existing employee record that is going to be removed from employee database based on the option you choose."
End Sub

Private Sub optsearch_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lbldes.Caption = "Opens searching manager and helps you to find out existing employee record that is going to be fetched from employee database based on the employee id you give."
End Sub



MODIFICATION MANAGER

Option Explicit

Private Sub cboempid_Click()
If cboempid.ListIndex > 0 Then
Set rsd = db.OpenRecordset("select *from info where empno='" & cboempid.Text & "'")
If rsd.RecordCount > 0 Then
lblemp.Caption = "Edit Details of Employee " & cboempid.Text
txtempid.Text = rsd("empno")
txtname.Text = rsd("name")
txtaddress.Text = rsd("address")
txtphone.Text = rsd("phone")
txtsalary.Text = rsd("salary")
cmdrequery.Enabled = True
Label6.Enabled = False
cboempid.Enabled = False
cmdupdate.Enabled = True
cmdclear.Enabled = True
txtaddress.Enabled = True
txtname.Enabled = True
txtname.SetFocus
txtphone.Enabled = True
txtsalary.Enabled = True
Label1.Enabled = True
Label2.Enabled = True
Label3.Enabled = True
Label4.Enabled = True
Label5.Enabled = True
txtempid.BackColor = vbWhite
txtname.BackColor = vbWhite
txtaddress.BackColor = vbWhite
txtphone.BackColor = vbWhite
txtsalary.BackColor = vbWhite
lblreset.Visible = True
End If
Set rsd = Nothing
Else
Exit Sub
End If
End Sub

Private Sub cmdclear_Click()
txtname.Text = ""
txtaddress.Text = ""
txtphone.Text = ""
txtsalary.Text = ""
txtname.SetFocus
End Sub

Private Sub cmdclose_Click()
confirm = MsgBox("Are you sure to exit ?" & Chr(10) & "Any unsaved data will be lost.", vbApplicationModal + vbYesNo + vbQuestion, "Exit Modification")
If confirm = vbNo Then
If txtname.Enabled = True Then
txtname.SetFocus
Else
cboempid.SetFocus
End If
Exit Sub
ElseIf confirm = vbYes Then
Unload Me
frmmenu.optadd.SetFocus
End If
End Sub

Private Sub cmdrequery_Click()
Label6.Enabled = True
cboempid.Enabled = True
cboempid.ListIndex = 0
cmdrequery.Enabled = False
lblemp.Caption = "Employee Data Updation"
cmdclear_Click
Label1.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
cmdupdate.Enabled = False
cmdclear.Enabled = False
txtempid.Text = ""
txtaddress.Enabled = False
txtname.Enabled = False
txtphone.Enabled = False
txtsalary.Enabled = False
txtempid.BackColor = &HC0C0C0
txtname.BackColor = &HC0C0C0
txtaddress.BackColor = &HC0C0C0
txtphone.BackColor = &HC0C0C0
txtsalary.BackColor = &HC0C0C0
lblreset.Visible = False
cboempid.SetFocus
End Sub

Private Sub cmdupdate_Click()
If Trim(txtname.Text) <> "" And Trim(txtaddress.Text) <> "" And Trim(txtphone.Text) <> "" And Trim(txtsalary.Text) <> "" Then
confirm = MsgBox("Are you sure to update this record ?", vbApplicationModal + vbYesNo + vbQuestion, "Confirm Update")
If confirm = vbNo Then
txtname.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
Set rs = db.OpenRecordset("select *from info where empno='" & Trim(txtempid.Text) & "'")
If rs.RecordCount > 0 Then
rs.Edit
End If
rs("empno") = txtempid.Text
rs("name") = Trim(txtname.Text)
rs("address") = Trim(txtaddress.Text)
rs("phone") = Trim(txtphone.Text)
rs("salary") = Trim(txtsalary.Text)
rs.Update
MsgBox "Successfully updated database.", vbApplicationModal + vbInformation, "Done"
cmdrequery_Click
Set rs = Nothing
End If
Else
MsgBox "Sorry,modification manager cannot" & Chr(10) & "update the database with blank values.", vbApplicationModal + vbExclamation, _
"Incomplete Information"
txtname.SetFocus
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then cmdclose_Click
End Sub

Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2

Set db = OpenDatabase(App.Path & "\employee.mdb")
Set rs = db.OpenRecordset("info", dbOpenTable)
Set rsd = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst
If rsd.RecordCount > 0 Then rsd.MoveFirst

cboempid.AddItem "-=Select Emp ID=-"
Do Until rs.EOF
cboempid.AddItem rs("empno")
rs.MoveNext
Loop
cboempid.ListIndex = 0
lblemp.Caption = "Employee Data Updation"
cmdrequery.Enabled = False
cmdupdate.Enabled = False
cmdclear.Enabled = False
txtaddress.Enabled = False
txtname.Enabled = False
txtphone.Enabled = False
txtsalary.Enabled = False
Label1.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
Label4.Enabled = False
Label5.Enabled = False
txtempid.BackColor = &HC0C0C0
txtname.BackColor = &HC0C0C0
txtaddress.BackColor = &HC0C0C0
txtphone.BackColor = &HC0C0C0
txtsalary.BackColor = &HC0C0C0
lblreset.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblreset.FontUnderline = False
End Sub

Private Sub lblreset_Click()
Set rsd = db.OpenRecordset("select *from info where empno='" & cboempid.Text & "'")
If rsd.RecordCount > 0 Then
lblemp.Caption = "Edit Details of Employee " & cboempid.Text
txtempid.Text = rsd("empno")
txtname.Text = rsd("name")
txtaddress.Text = rsd("address")
txtphone.Text = rsd("phone")
txtsalary.Text = rsd("salary")
End If
Set rsd = Nothing
End Sub

Private Sub lblreset_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblreset.FontUnderline = True
End Sub

Private Sub txtname_LostFocus()
Dim i, c As Integer, n As String

If Trim(txtname.Text) <> "" Then
For i = 1 To Len(Trim(txtname.Text)) Step 1
n = Mid(Trim(txtname.Text), i, 1)
n = LCase(n)
If n >= "a" And n <= "z" Or n = " " Then
c = 0
Else
c = 1
End If
Next i
If c = 0 Then
Exit Sub
ElseIf c = 1 Then
MsgBox "Name contains some junk characters." & vbCrLf & "Please rectify.", vbApplicationModal + vbExclamation, "Error"
txtname.SelStart = 0
txtname.SelLength = Len(Trim(txtname.Text))
txtname.SetFocus
End If
Else
Exit Sub
End If
End Sub

Private Sub txtphone_KeyPress(KeyAscii As Integer)
If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Private Sub txtsalary_KeyPress(KeyAscii As Integer)
If KeyAscii >= vbKey0 And KeyAscii <= vbKey9 Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeyBack Then
KeyAscii = KeyAscii
Else
KeyAscii = 0
End If
End Sub

Private Sub txtphone_LostFocus()
If Trim(txtphone.Text) <> "" Then
If InStr(1, txtphone.Text, ".") Then
MsgBox "Phone number contains a junk character." & vbCrLf & "Please rectify.", vbApplicationModal + vbExclamation, "Error"
txtphone.SelStart = 0
txtphone.SelLength = Len(Trim(txtphone.Text))
txtphone.SetFocus
Else
If Len(Trim(txtphone.Text)) = 8 Or Len(Trim(txtphone.Text)) = 10 Then
Exit Sub
Else
MsgBox "Phone no should be consist of 8(Cell) or 10(Land) digits.", vbApplicationModal + vbInformation, "Invalid Phone No Format"
txtphone.SelStart = 0
txtphone.SelLength = Len(Trim(txtphone.Text))
txtphone.SetFocus
End If
End If
Else
Exit Sub
End If
End Sub

Private Sub txtsalary_LostFocus()
If Trim(txtsalary.Text) <> "" Then
If IsNumeric(Trim(txtsalary.Text)) Then
Exit Sub
Else
MsgBox "Invalid salary.", vbApplicationModal + vbExclamation, "Error"
txtsalary.SelStart = 0
txtsalary.SelLength = Len(Trim(txtsalary.Text))
txtsalary.SetFocus
End If
Else
Exit Sub
End If
End Sub

SEARCHING MANAGER

Option Explicit
Dim i As Integer

Private Sub cmdclose_Click()
confirm = MsgBox("Are you sure to exit ?", vbApplicationModal + vbYesNo + vbQuestion, "Exit Searching")
If confirm = vbNo Then
txtsearch.SetFocus
Exit Sub
ElseIf confirm = vbYes Then
Unload Me
frmmenu.optadd.SetFocus
End If
End Sub

Private Sub cmdfind_Click()
If Trim(txtsearch.Text) <> "" Then
lblsearch.Caption = "Searching for Employee " & txtsearch.Text
lblwait.Caption = "Please Wait"
Set rs = db.OpenRecordset("select *from info where empno='" & txtsearch.Text & "'")
txtsearch.Enabled = False
cmdfind.Enabled = False
i = 0
p1.Max = 100
p1.Min = 0
Timer1.Enabled = True
Timer2.Enabled = True
Else
Beep
Exit Sub
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If txtsearch.Enabled = True Then
cmdclose_Click
ElseIf txtsearch.Enabled = False Then
Exit Sub
End If
End If
End Sub
Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
Timer1.Enabled = False
Timer2.Enabled = False

Set db = OpenDatabase(App.Path & "\employee.mdb")
Set rs = db.OpenRecordset("info", dbOpenTable)
If rs.RecordCount > 0 Then rs.MoveFirst
lbldone.Caption = "0 % Completed"
lblsearch.Caption = "Search Status"
lblwait.Caption = "Stopped"
lbladdress.Caption = "-=No Information=-"
lblempid.Caption = "-=No Information=-"
lblname.Caption = "-=No Information=-"
lblphone.Caption = "-=No Information=-"
lblsalary.Caption = "-=No Information=-"
End Sub

Private Sub Timer2_Timer()
lblwait.Visible = Not lblwait.Visible
End Sub

Private Sub Timer1_Timer()
i = i + 1
p1.Value = i
lbldone.Caption = p1.Value & "% Completed"
If i = 100 Then
If rs.RecordCount > 0 Then
lblemp.Caption = "Details of Employee " & txtsearch.Text
lbladdress.Caption = rs("address")
lblempid.Caption = rs("empno")
lblname.Caption = rs("name")
lblphone.Caption = rs("phone")
lblsalary.Caption = rs("salary")
Else
lblemp.Caption = "Details of Employee " & txtsearch.Text
lbladdress.Caption = "-=No Information=-"
lblempid.Caption = "-=No Information=-"
lblname.Caption = "-=No Information=-"
lblphone.Caption = "-=No Information=-"
lblsalary.Caption = "-=No Information=-"
MsgBox "No record associated with this id has been found.", vbApplicationModal + vbExclamation, "Not Found"
End If
Set rs = Nothing
Timer2.Enabled = False
lbldone.Caption = "0 % Completed"
lblsearch.Caption = "Search Status"
lblwait.Caption = "Stopped"
Timer1.Enabled = False
p1.Value = 0
txtsearch.Enabled = True
txtsearch.Text = ""
txtsearch.SetFocus
cmdfind.Enabled = True
End If
End Sub

Private Sub txtsearch_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then cmdfind_Click
End Sub

SPLASH FORM(VERSION DISPLAY)

Option Explicit
Dim i As Integer

Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2

lblver.Caption = "Version : " & App.Major & "." & App.Minor & "." & App.Revision
Timer1_Timer
Timer2.Enabled = True
End Sub

Private Sub Timer1_Timer()
lbltoday.Caption = "Today : " & Format(Date, "dddd,dd mmmm yyyy") & " " & Time
End Sub

Private Sub Timer2_Timer()
i = i + 10
If i = 100 Then
Unload Me
frmlogin.Show
End If
End Sub
STAFF BILL MANAGER
Option Explicit
Dim cd_pay As ADODB.Connection
Dim rs_pay As ADODB.Recordset
Dim rs_pay_save As ADODB.Recordset

Dim rsd As ADODB.Recordset
Dim rse As ADODB.Recordset
Dim count1 As Integer
Dim pr_day, ab_day, holy_day As Integer
Private Sub Form_Load()
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2

Set db = OpenDatabase(App.Path & "\employee.mdb")
Set cd_pay = New ADODB.Connection
cd_pay.Provider = "Microsoft.Jet.OLEDB.4.0"
cd_pay.Open (App.Path & "\db1.mdb")
Me.L_month.AddItem ("JANUARY")
Me.L_month.AddItem ("FEBRUARY")
Me.L_month.AddItem ("MARCH")
Me.L_month.AddItem ("APRIL")
Me.L_month.AddItem ("MAY")
Me.L_month.AddItem ("JUN")
Me.L_month.AddItem ("JULY")
Me.L_month.AddItem ("AUGUST")
Me.L_month.AddItem ("SEPTEMBER")
Me.L_month.AddItem ("OCTOBER")
Me.L_month.AddItem ("NOVEMBER")
Me.L_month.AddItem ("DECEMBER")

Me.L_month.ListIndex = 0

Me.L_year.AddItem ("2010")
Me.L_year.AddItem ("2011")
Me.L_year.AddItem ("2012")
Me.L_year.AddItem ("2013")
Me.L_year.AddItem ("2014")
Me.L_year.AddItem ("2015")

Me.L_year.ListIndex = 0

End Sub
Private Sub cmd_add_Click()
Me.Frame1.Enabled = True
Me.cmd_save.Enabled = True

Set rsd = New ADODB.Recordset
rsd.Open "select * from departmentname ", cd_pay, adOpenStatic, adLockOptimistic
count1 = 0
rsd.Requery
Me.L_dname.Clear
While (count1 < rsd.RecordCount)
Me.L_dname.AddItem (rsd.Fields(0))
count1 = count1 + 1
rsd.MoveNext
Wend
Me.L_dname.SetFocus
End Sub
Private Sub L_dname_click()
Set rse = New ADODB.Recordset
rse.Open "select * from employeeentry ", cd_pay, adOpenStatic, adLockOptimistic
count1 = 0
rse.Requery
Me.L_ename.Clear
While (count1 < rse.RecordCount)
If rse.Fields("dname") = Me.L_dname.Text Then
Me.L_ename.AddItem (rse.Fields(2))
End If
count1 = count1 + 1
rse.MoveNext
Wend
Me.L_ename.SetFocus
End Sub
Private Sub L_ename_click()

Me.L_month.AddItem ("JANUARY")
Me.L_month.AddItem ("FEBRUARY")
Me.L_month.AddItem ("MARCH")
Me.L_month.AddItem ("APRIL")
Me.L_month.AddItem ("MAY")
Me.L_month.AddItem ("JUN")
Me.L_month.AddItem ("JULY")
Me.L_month.AddItem ("AUGUST")
Me.L_month.AddItem ("SEPTEMBER")
Me.L_month.AddItem ("OCTOBER")
Me.L_month.AddItem ("NOVEMBER")
Me.L_month.AddItem ("DECEMBER")

Me.L_month.ListIndex = 0

Me.L_year.AddItem ("2010")
Me.L_year.AddItem ("2011")
Me.L_year.AddItem ("2012")
Me.L_year.AddItem ("2013")
Me.L_year.AddItem ("2014")
Me.L_year.AddItem ("2015")

Me.L_year.ListIndex = 0
End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub


Private Sub L_year_click()
Set rs_pay = New ADODB.Recordset
pr_day = 0
ab_day = 0
holy_day = 0

count1 = 0
rs_pay.Requery
While (count1 < rs_pay.RecordCount)
If Month(rs_pay.Fields("date2")) = (Me.L_month.ListIndex + 1) And Year(rs_pay.Fields("date2")) = (Me.L_year.Text) Then
If (rs_pay.Fields("atype")) = "P" Then
pr_day = pr_day + 1
ElseIf (rs_pay.Fields("atype")) = "AB" Then
ab_day = ab_day + 1
ElseIf (rs_pay.Fields("atype")) = "HOLYDAY" Then
holy_day = holy_day + 1
End If
End If
count1 = count1 + 1
rs_pay.MoveNext
Wend

Me.T_prday.Text = pr_day
Me.T_abday.Text = ab_day
Me.T_holiday.Text = holy_day
Me.T_wday.Text = pr_day + holy_day

Set rse = New ADODB.Recordset
Me.T_salary.Text = (rse.Fields("salary") / 30) * (Me.T_wday.Text)
End Sub
Private Sub cmd_save_Click()

Set rs_pay_save = New ADODB.Recordset
rs_pay_save.Open "select * from pay_slip WHERE Dept_name='" & L_dname.Text & "' and Emp_name='" & L_ename.Text & "' AND Month1='" & L_month.Text & "' AND Year1='" & Me.L_year.Text & "'", cd_pay, adOpenStatic, adLockOptimistic
If rs_pay_save.RecordCount = 0 Then

rs_pay_save.AddNew

rs_pay_save.Fields(0) = Me.L_dname.Text
rs_pay_save.Fields(1) = Me.L_ename.Text
rs_pay_save.Fields(2) = Me.L_month.Text
rs_pay_save.Fields(3) = Me.T_prday.Text
rs_pay_save.Fields(4) = Me.T_abday.Text
rs_pay_save.Fields(5) = Me.T_holiday.Text
rs_pay_save.Fields(6) = Me.T_wday.Text
rs_pay_save.Fields(7) = Me.T_salary.Text
rs_pay_save.Fields(8) = Me.L_year.Text

rs_pay_save.Update
MsgBox "RECORD SAVED!!"
Else
MsgBox "RECORD IS ALREADY SAVED!!"
End If
End Sub
Private Sub cmd_exit_click()
Unload Me
End Sub
Private Sub cmd_print_Click()
DataEnvironment1.rsCommand3.Open "Select * from pay_slip where Emp_name= '" & Me.L_ename.Text & "' AND Dept_name='" & Me.L_dname.Text & "' AND Month1='" & Me.L_month.Text & "' AND year1='" & Me.L_year.Text & "' ", cd_pay, adOpenStatic, adLockOptimistic
pay_slip.Refresh
pay_slip.Show
DataEnvironment1.rsCommand3.Close
End Sub
Private Sub cleartext()
Me.L_dname.Text = ""
Me.L_ename.Text = ""
Me.L_month.Text = ""
Me.T_prday.Text = ""
Me.T_abday.Text = ""
Me.T_holiday.Text = ""
Me.T_wday.Text = ""
Me.T_salary.Text = ""
End Sub


CHANGE USER ACCOUNT
Option Explicit

Private Sub cmdcancel_Click()
confirm = MsgBox("Are you sure to exit without saving current data ?", vbApplicationModal + vbYesNo + vbQuestion, "Confirm Exit")
If confirm = vbYes Then
Unload Me
frmlogin.txtusername.SetFocus
ElseIf confirm = vbNo Then
txtusername.SetFocus
Exit Sub
End If
End Sub

Private Sub cmdclear_Click()
txtusername.Text = ""
txtpassword.Text = ""
txtusername.SetFocus
End Sub

Private Sub cmdsave_Click()
If Trim(txtusername.Text) <> "" And Trim(txtpassword.Text) <> "" Then
SaveSetting "Employee", "Login", "Username", Trim(txtusername.Text)
SaveSetting "Employee", "Login", "Password", Trim(txtpassword.Text)
MsgBox "User data have been changed." & vbCrLf & "Use these information during login.", vbApplicationModal + vbInformation, "Done"
Unload Me
Else
MsgBox "Sorry,blank values cannot be accepted in user settings.", vbApplicationModal + vbCritical, "Error Accepting Values"
txtusername.SetFocus
Exit Sub
End If
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
If Label1.Enabled = True Then
Unload Me
ElseIf Label1.Enabled = False Then
cmdcancel_Click
End If
End If
End Sub

Private Sub Form_Load()
Me.Height = 2115
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
End Sub

Private Sub txtpassword_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then cmdsave_Click
End Sub

Private Sub txtusername_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then cmdsave_Click
End Sub

Private Sub txtverify_KeyPress(KeyAscii As Integer)
If KeyAscii = vbKeyReturn Then
If Trim(txtverify.Text) <> "" Then
If Trim(txtverify.Text) = Trim(password) Then
Label1.Enabled = False
Label2.Enabled = False
Label3.Enabled = False
txtverify.Enabled = False
Me.Height = 3750
Left = (Screen.Width - Me.Width) / 2
Top = (Screen.Height - Me.Height) / 2
txtusername.SetFocus
Else
MsgBox "The password you typed didn't match with the valid one." & vbCrLf & "Please enter valid password or exit this service.", _
vbApplicationModal + vbCritical, "Unauthorized Access"
txtverify.Text = ""
txtverify.SetFocus
End If
Else
Beep
Exit Sub
End If
End If
End Sub

Find
Reply
seminar details Offline
Super Moderator
******
Posts: 7,939
Threads: 421
Joined: Jun 2012
#3
10-10-2012, 03:48 PM
to get information about the topic "uml diagrams for employee management system " full report ppt and related topic refer the page link bellow

http://studentbank.in/report-employee-management-system

http://studentbank.in/report-employee-ma...e=threaded

http://studentbank.in/report-employee-cu...e=threaded

http://studentbank.in/report-employee-lo...tem--26448
Find
Reply
Guest
Guest
 
#4
02-04-2016, 09:25 PM
i need uml diagrams of employee complaint monitoring system

Reply
dhanabhagya Offline
Super Moderator
******
Posts: 6,843
Threads: 4
Joined: Mar 2015
#5
07-04-2016, 11:37 AM
To get full information or details of Employee Cubicle Management System full report please have a look on the pages

http://studentbank.in/report-employee-cu...ull-report

if you again feel trouble on Employee Cubicle Management System full report please reply in that page and ask specific fields in Employee Cubicle Management System full report
Find
Reply
New Reply 

Important Note..!

If you are not satisfied with above reply ,..Please

ASK HERE

So that we will collect data for you and will made reply to the request....OR try below "QUICK REPLY" box to add a reply to this page
Popular Searches: employee grievances quwstionaire, abstract on employee management system for vb 6 0, abstract of employee management system, employee cubicle management system project synopsis, cubicle allocation system, false gfr, tmi employee,

[-]
Quick Reply
Message
Type your reply to this message here.
Image Verification
Please enter the text contained within the image into the text box below it. This process is used to prevent automated spam bots.
Image Verification
(case insensitive)

Possibly Related Threads...
Thread Author Replies Views Last Post
  SAMBA SERVER ADMINISTRATION full report project report tiger 3 4,727 17-01-2018, 05:40 PM
Last Post: AustinnuAke
  air ticket reservation system full report project report tiger 16 46,833 08-01-2018, 02:33 PM
Last Post: RaymondGom
  event management system project report tiger 3 6,347 30-08-2017, 12:43 PM
Last Post: jaseela123d
  Development of a Recipe Management System seminar topics 1 3,028 24-04-2017, 10:17 AM
Last Post: Zakir Hussain
  An Efficient Algorithm for Mining Frequent Patterns full report project topics 3 4,736 01-10-2016, 10:02 AM
Last Post: Guest
  online examination full report project report tiger 14 42,784 03-09-2016, 11:20 AM
Last Post: jaseela123d
  The impact of technology on queue management system holax 1 1,410 14-07-2016, 02:39 PM
Last Post: seminar report asees
  School Management System project topics 9 8,446 27-06-2016, 09:23 AM
Last Post: computer science crazy
Smile school management system amrita 2211 4 5,568 27-06-2016, 09:23 AM
Last Post: computer science crazy
  Attendance Management System mechanical engineering crazy 18 23,358 05-04-2016, 09:50 AM
Last Post: dhanabhagya

Forum Jump:

Contact Us | Student Seminar Report & Project Report With Presentation (PPT,PDF,DOC,ZIP) | Return to Top | Lite (Archive) Mode | RSS Syndication