CONTENTS
· About the project
· Dataflow Diagram
· Design of the database
· Software development life cycle
· System environment
About the project
The Employee Information System (EIS) is an application used solely to manage the information necessary to contact the Department’s personnel in the case of an emergency or other significant event.
It is anticipated that information stored in the EIS will, in the future, be used to support a wide variety of applications requiring directory services, however access to and use of all information stored in this system will be strictly limited.
In this project first the employee or rather administrator has to login in the project by giving his/her administrator id and password. If the required fields are valid then he or she has granted with a permission to view all the details of all the employees of the organization .Administrator also grant the permission to other person to view these details by providing the admin id and password. Through this project we can add, append, delete the details of any employee.
The front end of this project is Visual Basic and the back end of this project MS Access. All the designing part has been done in the Visual Basic and the MS Access is used to manage database .
This project can also be made web based for future prospects. This is all about this project.
· About the project
· Dataflow Diagram
· Design of the database
· Software development life cycle
· System environment
About the project
The Employee Information System (EIS) is an application used solely to manage the information necessary to contact the Department’s personnel in the case of an emergency or other significant event.
It is anticipated that information stored in the EIS will, in the future, be used to support a wide variety of applications requiring directory services, however access to and use of all information stored in this system will be strictly limited.
In this project first the employee or rather administrator has to login in the project by giving his/her administrator id and password. If the required fields are valid then he or she has granted with a permission to view all the details of all the employees of the organization .Administrator also grant the permission to other person to view these details by providing the admin id and password. Through this project we can add, append, delete the details of any employee.
The front end of this project is Visual Basic and the back end of this project MS Access. All the designing part has been done in the Visual Basic and the MS Access is used to manage database .
This project can also be made web based for future prospects. This is all about this project.
Data Flow Diagram:-
Snap Shots Of Database Tables :-
Administrator Table :-
Username Table :-
Employee Details Table :-
Form Designs:-
Front Screen !!
Administrator’s Permission Screen To Add A new User !!
Add A New User Screen !!
Delete A User Screen !!
Login Screen !!
Options Screen !!
Search Screen For The Details Of The Employee !!
Personal Details Screen !!
Salary Details Screen !!
Add Details Of A New Employee !!
Delete Details Of A Employee !!
Append The Details Of The Employee !!
Exit Screen !!
Front Page Coding
Dim e, a As String
Dim s, b As Integer
Private Sub Command1_Click()
Form1.Visible = False
Form2.Show
End Sub
Private Sub Command2_Click()
Form3.Show
End Sub
Private Sub Command3_Click()
Form4.Show
End Sub
Private Sub Form_Load()
Label3.Caption = Format(Now, "hh:mm:ss")
Label7.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
s = Len(e)
b = 1
End Sub
Private Sub Command4_Click()
Form9.Show
End Sub
Private Sub Timer1_Timer()
Label3.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label1.Caption = ""
Else
a = Left(e, s - (s - b))
Label1.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
Label4.ForeColor = QBColor(Rnd * 10)
End Sub
Login Page Coding !!
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
Do While rs.EOF = False
If Text1.Text = rs("Username") And Text2.Text = rs("Password") Then
Form2.Visible = False
form5.Show
Exit Sub
Else
rs.MoveNext
End If
Loop
If MsgBox("Sorry The Login is Invalid !!", vbOKOnly, "Employee Information System") = vbOK Then
Form2.Show
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
Form2.Visible = False
Form1.Show
End Sub
Private Sub Form_Load()
Label1.Caption = Format(Now, "hh:mm:ss")
Label2.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
f = "Sign Me Up Now"
q = Len(f)
s = Len(e)
b = 1
c = 1
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Username1"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If c = q + 1 Then
c = 1
Label6.Caption = ""
Else
d = Left(f, q - (q - c))
Label6.Caption = d
c = c + 1
End If
End Sub
Private Sub Timer3_Timer()
If b = s + 1 Then
b = 1
Label3.Caption = ""
Else
a = Left(e, s - (s - b))
Label3.Caption = a
b = b + 1
End If
End Sub
Administrator’s Permission Page Coding
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
Do While rs.EOF = False
If Text1.Text = rs("Administrator") And Text2.Text = rs("Password") Then
Form3.Visible = False
Form6.Show
Form1.Visible = False
Exit Sub
Else
rs.MoveNext
End If
Loop
If MsgBox("Sorry The Login is Invalid !!", vbOKOnly, "Employee Information System") = vbOK Then
Form3.Show
Text1.Text = ""
Text2.Text = ""
End If
End Sub
Private Sub Command2_Click()
Form3.Visible = False
Form1.Show
End Sub
Private Sub Form_Load()
Label5.Caption = Format(Date, "dd/mm/yy")
Label4.Caption = Format(Now, "hh:mm:ss")
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Administrator"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label4.Caption = Format(Now, "hh:mm:ss")
End Sub
Add New User Page Coding
Dim e, a As String
Dim s, b As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
If Text1.Text = "" Or Text2.Text = "" Then
If MsgBox("Fields shouldn't Be Empty", vbOKOnly, "Employee Information System") = vbOK Then
Form6.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If Text1.Text = rs("Username") Then
If MsgBox("Sorry The Username Already Exists", vbOKOnly, "Employee Information System") = vbOK Then
Form6.Show
Text1.Text = ""
Text2.Text = ""
End If
Exit Sub
Else
rs.MoveNext
End If
Loop
If rs.EOF = True Then
rs.AddNew
rs("Username") = Text1.Text
rs("Password") = Text2.Text
rs.Update
If MsgBox("Added !!", vbOKOnly, "Employee Information System") = vbOK Then
Form6.Show
Text1.Text = ""
Text2.Text = ""
End If
End If
End Sub
Private Sub Command2_Click()
Form6.Visible = False
Form1.Show
End Sub
Private Sub Form_Load()
Label1.Caption = Format(Now, "hh:mm:ss")
Label2.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
s = Len(e)
b = 1
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Username1"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label3.Caption = ""
Else
a = Left(e, s - (s - b))
Label3.Caption = a
b = b + 1
End If
End Sub
Delete User Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
If Text1.Text = "" Then
If MsgBox("Fields shouldn't Be Empty", vbOKOnly, "Employee Information System") = vbOK Then
Form12.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If Text1.Text = rs("Username") Then
rs.Delete
rs.Update
If MsgBox("Deleted !!", vbOKOnly, "Employee Information System") = vbOK Then
Text1.Text = ""
Form12.Show
Exit Sub
End If
Exit Sub
Else
rs.MoveNext
End If
Loop
If rs.EOF = True Then
If MsgBox("Sorry The Username Doesn't Exists", vbOKOnly, "Employee Information System") = vbOK Then
Form12.Show
Text1.Text = ""
End If
End If
End Sub
Private Sub Command2_Click()
Form12.Visible = False
Form1.Show
End Sub
Private Sub Form_Load()
Label1.Caption = Format(Now, "hh:mm:ss")
Label3.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
f = "Delete the User from Accessing (E . I . S .) !!"
q = Len(f)
s = Len(e)
b = 1
c = 1
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Username1"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label2.Caption = ""
Else
a = Left(e, s - (s - b))
Label2.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Options Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Private Sub Command1_Click()
Form7.Show
End Sub
Private Sub Command2_Click()
Form10.Show
End Sub
Private Sub Command3_Click()
form5.Visible = False
Form15.Show
End Sub
Private Sub Command4_Click()
form5.Visible = False
Form13.Show
End Sub
Private Sub Command5_Click()
form5.Visible = False
Form14.Show
End Sub
Private Sub Command6_Click()
Form9.Show
End Sub
Private Sub Form_Load()
Label2.Caption = Format(Date, "dd/mm/yy")
Label1.Caption = Format(Now, "hh:mm:ss")
e = "Employee Information System"
s = Len(e)
b = 1
f = "Details Handler !!"
q = Len(f)
c = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label3.Caption = ""
Else
a = Left(e, s - (s - b))
Label3.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Search Employee Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
If Text1.Text = "" Then
If MsgBox("Fields shouldn't Be Empty", vbOKOnly, "Employee Information System") = vbOK Then
Form7.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If rs("Empid") = Text1.Text Then
Form7.Visible = False
form5.Visible = False
Form8.Show
Text1.Text = ""
fields
Exit Sub
Else
rs.MoveNext
End If
Loop
If rs.EOF = True Then
If MsgBox("Sorry the Employee doesn't Exist !!", vbOKOnly, "Employee Information System") = vbOK Then
Text1.Text = ""
Exit Sub
End If
End If
End Sub
Private Sub Command2_Click()
Form7.Visible = False
form5.Show
End Sub
Private Sub Form_Load()
e = "Employee Information System"
f = "Search for the Details Of the Employee !!"
q = Len(f)
s = Len(e)
b = 1
c = 1
Label1.Caption = Format(Now, "hh:mm:ss")
Label2.Caption = Format(Date, "dd/mm/yy")
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Personal"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
If b = s + 1 Then
b = 1
Label3.Caption = ""
Else
a = Left(e, s - (s - b))
Label3.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer2_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Private Sub Timer3_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Public Sub fields()
Form8.Label13.Caption = rs("Empid")
Form8.Label14.Caption = rs("Empname")
Form8.Label15.Caption = rs("DateofBirth")
Form8.Label16.Caption = rs("EmpAdd")
Form8.Label17.Caption = rs("Designation")
Form8.Label18.Caption = rs("Yearofjoin")
Form8.Label19.Caption = rs("Experience")
Form8.label20.Caption = rs("Contactno")
End Sub
Personal Details Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Private Sub Command1_Click()
Form7.Show
End Sub
Private Sub Command2_Click()
Form9.Show
End Sub
Private Sub Command3_Click()
Form8.Visible = False
form5.Show
End Sub
Private Sub Form_Load()
e = "Employee Information System"
f = "Personal Details Of the Employee !!"
q = Len(f)
s = Len(e)
b = 1
c = 1
Label1.Caption = Format(Now, "hh:mm:ss")
Label2.Caption = Format(Date, "dd/mm/yy")
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label3.Caption = ""
Else
a = Left(e, s - (s - b))
Label3.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Salary Details Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Private Sub Command1_Click()
Form11.Visible = False
form5.Show
End Sub
Private Sub Command2_Click()
Form10.Show
End Sub
Private Sub Command3_Click()
Form9.Show
End Sub
Private Sub Form_Load()
Label3.Caption = Format(Date, "dd/mm/yy")
Label1.Caption = Format(Now, "hh:mm:ss")
e = "Employee Information System"
s = Len(e)
b = 1
f = "Salary Details Of The Employee !!"
q = Len(f)
c = 1
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label2.Caption = ""
Else
a = Left(e, s - (s - b))
Label2.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Add Details (Employee) Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then
If MsgBox("Fields shouldn't Be Empty", vbOKOnly, "Employee Information System") = vbOK Then
Form15.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If Text1.Text = rs("Empid") Then
If MsgBox("Sorry The Employee Id. Already Exists", vbOKOnly, "Employee Information System") = vbOK Then
Form15.Show
End If
Exit Sub
Else
rs.MoveNext
End If
Loop
If rs.EOF = True Then
rs.AddNew
rs("Empid") = Text1.Text
rs("Empname") = Text2.Text
rs("DateofBirth") = Text3.Text
rs("EmpAdd") = Text4.Text
rs("Designation") = Text5.Text
rs("Yearofjoin") = Text6.Text
rs("Experience") = Text7.Text
rs("Contactno") = Text8.Text
rs("Basicsalary") = Text9.Text
rs.Update
If MsgBox("Added !!", vbOKOnly, "Employee Information System") = vbOK Then
Form15.Show
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
rs.Close
con.Close
End If
End If
End Sub
Private Sub Command2_Click()
Form15.Visible = False
form5.Show
End Sub
Private Sub Form_Load()
Label1.Caption = Format(Now, "hh:mm:ss")
Label3.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
f = "Add the Details Of A New Employee !!"
q = Len(f)
s = Len(e)
b = 1
c = 1
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Personal"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label2.Caption = ""
Else
a = Left(e, s - (s - b))
Label2.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Delete Employee Details Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
If Text1.Text = "" Then
If MsgBox("Fields shouldn't Be Empty", vbOKOnly, "Employee Information System") = vbOK Then
Form13.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If Text1.Text = rs("Empid") Then
Label1.Visible = True
Label7.Visible = True
Label1.Caption = rs("Empname")
Exit Sub
Else
rs.MoveNext
End If
Loop
If rs.EOF = True Then
If MsgBox("Sorry the Employee doesn't Exist !!", vbOKOnly, "Employee Information System") = vbOK Then
Text1.Text = ""
Exit Sub
End If
End If
End Sub
Private Sub Command2_Click()
rs.MoveFirst
Do While rs.EOF = False
If Text1.Text = rs("Empid") Then
rs.Delete
rs.Update
If MsgBox("Employee's Details Deleted !!", vbOKOnly, "Employee Information System") = vbOK Then
Form13.Show
Text1.Text = ""
Label1.Caption = ""
Label1.Visible = False
Label7.Visible = False
End If
Exit Sub
Else
rs.MoveNext
End If
Loop
End Sub
Private Sub Command3_Click()
Form13.Visible = False
form5.Show
End Sub
Private Sub Form_Load()
Label1.Visible = False
Label7.Visible = False
Label2.Caption = Format(Now, "hh:mm:ss")
Label3.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
f = "Delete the Details Of the Employee !!"
q = Len(f)
s = Len(e)
b = 1
c = 1
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Personal"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label2.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label4.Caption = ""
Else
a = Left(e, s - (s - b))
Label4.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label5.Caption = ""
Else
d = Left(f, q - (q - c))
Label5.Caption = d
c = c + 1
End If
End Sub
Append Employee Details Page Coding
Dim e, a, f, d As String
Dim s, b, q, c As Integer
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
rs.MoveFirst
If Text10.Text = "" Then
If MsgBox("Enter the Employee Id.)", vbOKOnly, "Employee Information System") = vbOK Then
Form14.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If Text10.Text = rs("Empid") Then
Text1.Text = rs("Empid")
Text2.Text = rs("Empname")
Text3.Text = rs("DateofBirth")
Text4.Text = rs("EmpAdd")
Text5.Text = rs("Designation")
Text6.Text = rs("Yearofjoin")
Text7.Text = rs("Experience")
Text8.Text = rs("Contactno")
Text9.Text = rs("Basicsalary")
Text10.Visible = False
Label10.Visible = False
Command1.Visible = False
Exit Sub
Else
rs.MoveNext
End If
Loop
If rs.EOF = True Then
If MsgBox("Sorry the Employee doesn't Exist !!", vbOKOnly, "Employee Information System") = vbOK Then
Text1.Text = ""
Exit Sub
End If
End If
End Sub
Private Sub Command2_Click()
rs.MoveFirst
If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Or Text4.Text = "" Or Text5.Text = "" Or Text6.Text = "" Or Text7.Text = "" Or Text8.Text = "" Or Text9.Text = "" Then
If MsgBox("All the Fields should be filled !!", vbOKOnly, "Employee Information System") = vbOK Then
Form14.Show
Exit Sub
End If
End If
Do While rs.EOF = False
If Text10.Text = rs("Empid") Then
rs("Empid") = Text1.Text
rs("Empname") = Text2.Text
rs("DateofBirth") = Text3.Text
rs("EmpAdd") = Text4.Text
rs("Designation") = Text5.Text
rs("Yearofjoin") = Text6.Text
rs("Experience") = Text7.Text
rs("Contactno") = Text8.Text
rs("Basicsalary") = Text9.Text
rs.Update
If MsgBox("Appended !!", vbOKOnly, "Employee Information System") = vbOK Then
Form14.Show
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Label10.Visible = True
Text10.Visible = True
Command1.Visible = True
End If
Exit Sub
Else
rs.MoveNext
End If
Loop
End Sub
Private Sub Command3_Click()
Form14.Visible = False
form5.Show
End Sub
Private Sub Form_Load()
Label1.Caption = Format(Now, "hh:mm:ss")
Label3.Caption = Format(Date, "dd/mm/yy")
e = "Employee Information System"
f = "Append the Details Of the Employee !!"
q = Len(f)
s = Len(e)
b = 1
c = 1
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
con.Provider = "Microsoft.Jet.OLEDB.4.0"
con.ConnectionString = "Data Source=f:\Vb\Sachin Databases\sachindb.mdb;"
con.Open
rs.Source = "Personal"
rs.ActiveConnection = con
rs.CursorType = adOpenKeyset
rs.LockType = adLockPessimistic
rs.Open
End Sub
Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")
End Sub
Private Sub Timer2_Timer()
If b = s + 1 Then
b = 1
Label2.Caption = ""
Else
a = Left(e, s - (s - b))
Label2.Caption = a
b = b + 1
End If
End Sub
Private Sub Timer3_Timer()
If c = q + 1 Then
c = 1
Label4.Caption = ""
Else
d = Left(f, q - (q - c))
Label4.Caption = d
c = c + 1
End If
End Sub
Exit Page Coding
Private Sub Command1_Click()
End
End Sub
System Environment
Visual Basic
Visual Basic is one the most popular programming languages on the market today . Microsoft has positioned it to fit multiple purposes in development . The languages ranges from lightweight Visual Basic Script programming , to application –specific programming with Visual Basic for applications, and finally, full-fledged enterprise development with Visual Basic 6.0 .
Visual Basic 6.0 is designed to deploy applications across the enterprise and to scale to nearly any size needed . The ability to develop object models, database integration, server components, and Internet/Intranet application
an extensive range of capabilities and tools for the developer .
Visual Basic 6.0 Integrated Development Environment
Coding Environment
What is a Database ?
· Database
“ A set of data related to particular topic or purpose . A database contains tables and can also contain queries and table relationship , as well as table and column validation criteria .”
· Table
A table is a collection of data , arranged in rows and columns . For example, you might have a table for author information called authors .
Each column would contain a certain type of information , such as the author’s last name . Each row would contain all the information about a specific author : first name , last name , address , and so on .
· Recordset
“ A logical set of records, where Microsoft defines a record as : A set of related data about a person, place, event, or some other item . Table data is stored in records (rows) in the database . Each record is composed of a set of related fields (columns) – each field defining one attribute of info -
- rmation for the record . Taken together , a record defines one specific unit of retrievable information in a database .”
There are the five types of recordsets :
· Table – type Recordset
Basically a complete table from a database . We can use to add, change, or delete records . This is the simplest in concept since it matches a complete table in the database , but is not necessarily the best choice in many applications.
· Dynaset – type Recordset
The result of query that can have updatable records . We can use to add, change, or delete records . It can contains fields from one or more tables in a database . Provides worse performance than a Table – type recordset .
· Snapshot – type Recordset
A read – only set of records that we can use to find data or generate reports . Can contain fields from one or more tables in a database but can’t be updated . Uses a minimum of resources and provides fast performance .
· Forward – only – type Recordset
Identical to snapshot except that no cursor is provided . You can only scroll forward through records . This improves performance in situations where you only need to make a single pass through a recordset .
· Dynamic – type Recordset
A query result set from one or more base tables in which you can add , change , or delete records from a row – returning query . Further , records other users add , delete , or edit in the base tables also appear in your Recordset.
System Analysis
Introduction
Analysis is detailed study of the various operations performed by a system and their relationships within and outside of the system . A key Question is : What must be done to solve the problem ? One aspect of analysis is defining the boundaries of the system and determining whether or not a candidate system should consider other related systems .
During analysis , data is collected on the available files , decision points , and transaction handled by the present systems .
Data flow diagrams , Interviews , On – site observations , and questionnaires are examples .
The interviews is a commonly used tools in analysis . It requires special skills and sensitivity to the subjects being interviewed . Bias in data collection and interpretation can be a problem . Training , Experience and common sense required for collection of information needed to do the analysis.
Existing System
Existing system in Motherson’s Sumi Infotech Ltd. For handling of Employee’s credentials is purely based upon pen and paper work hitherto , which is not at all user friendly as this type of system leaves a person who wants to extract an Employee’s information in a perplexed state as it is very tedious and sometimes it becomes quixotic to extract the information from the paper files which are stored in an extravagant manner . So this type of system is really time consuming .
Purpose Of The Sytem
The proposed system is based on GUI – based environment .
A deliberate effort has been made to make the system user – friendly .
The user interface is made form – based where a user can access information with a mere click of a button .
It helps in omitting the tediousness and monotonicity in the extraction of any employee’s personal details .
System is proposed in enhancing the efficiency of the organization .
It helps in time – saving .
Reduces work load and operating costs
Omits the tediousness of maintaining the paper files for the personal details of each employee .
Updation of the records is also made very simple with such a form – based system .
The validation of the input data becomes easier .
The user interacts with the database , through the user interface .
Scope Of The System
So far as this project is concerning with handling of Employee’s credentials , the product envisages many important ingredients and has been articulated in such a way that it helps in systematic maintenance of any Employee’s information without any hassels .
It also assists in extraction , updation or deletion of any employee’s credentials from the database by just a mere click of a button .
Damage and loss of the documents also gets averted which is not possible if the conventional paperwork is followed .
This product can be helpful in proper and efficient functioning of any organization , as it converts the total monotonous and conventional paper work into fully automated system of handling employee’s information which forms one of the basic ingredients of any organization .
This product can run on a network of computers as well as on a stand alone system as per the availability .
