Attendence Management System
Attendence Management System
Attendence Management System
POLYTECHNIC,
Narendra Nagar (T.G.)
PROJECT REPORT
(SESSION:2018-2019)
On
Submitted By:
PAWAN BHATT
PGDCA Final Year
ACKNOWLEDGEMENT
Certificate
It is certified that the project
entitled “ Time Table
Management System ” has been
prepared under my guidance in
partial fulfillment of the
requirement of Board Of
Technical Education ,Roorkee
(Uttranchal) for the awards of
Diploma in Information
Technology and it own work of
the student .
FEASIBILITY STUDY
REQURMENTS
PLATFORM USED
E-R MODEL/DFD
CODING
TESTING
OUTPUT
CONCLUSION
MAINTENANCE
BIBLIOGRAPHY
INTRODUCTION OF PROJECT
Purpose:-
The purpose of developing attendance
management system is to computerized the
tradition way of taking attendance. Another
purpose for developing this software is to
generate the report automatically at the end
of the session or in the between of the
session
Scope:-
The scope of the project is the system on
which the software is installed, i.e. the
project is developed as a desktop
application, and it will work for a particular
institute. But later on the project can be
modified to operate it online. Attendance
Management System
Overview:-
Attendance Management System basically
has two main modules for proper functioning
First module is Admin which has right for
creating new data base of students.
Second module is handled by the User
which is a faulty or an operator. User has
a right of making daily attendance,
generating report. Attendance can be
taken on the basic of month.
Economically Feasibility:
The system being developed is economic
with respect to School or Collage’s point of
view. It is cost effective in the sense that has
eliminated the paper work completely. The
system is also time effective because the
calculations are automated which are made
at the end of the month or as per the user
requirement.
Technical feasibility:
The technical requirement for the system is
economic and it does not use any other
additional Hardware and software.
Behavioural Feasibility:
The system working is quite easy to use and
learn due to its simple but attractive
interface. User requires no special training
for operating the system.
HARDWARE AND SOFTWARE
REQUIREMENETS
HARDWARE:- - - -
Processor………………… Core i3
Memory [RAM]……….. 2 GB
Hard Disk………………… 464 GB
Keyboard………………… 85 Keys
Printer…………………….. Dot Matrix
Power……………………… 220 V
SOFTWARE:- - -
Operating System…… Window 8
IDE…………………………… Visual Studio 2012
Data Base………………… Microsoft
PLATFORM USED
LOGIN
Enter correct
user name or DATABASE
password
Login form
Public Class login
ADMIN FORM
Public Class add_record
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "2nd Semester"
Then
stu_infoIT2nd.Show()
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "3rd Semester"
Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "4th Semester"
Then
stu_infoIt4th.Show()
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "5TH SEMESTER"
Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "6th Semester"
Then
stu_infoIT6th.Show()
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "1st
Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem =
"2nd Semester" Then
stu_infoELE2nd.Show()
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "3rd
Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "4th
Semester" Then
stu_infoELE4th.Show()
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "5th
Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "6th
Semester" Then
stu_infoELE6th.Show()
ElseIf ComboBox1.SelectedItem =
"Electronics" And ComboBox2.SelectedItem =
"1st Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electronics" And ComboBox2.SelectedItem =
"2nd Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electronics" And ComboBox2.SelectedItem =
"3rd Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electronics" And ComboBox2.SelectedItem =
"4th Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electronics" And ComboBox2.SelectedItem =
"5th Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Electronics" And ComboBox2.SelectedItem =
"6th Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Mechanical" And ComboBox2.SelectedItem =
"1st Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Mechanical" And ComboBox2.SelectedItem =
"2nd Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Mechanical" And ComboBox2.SelectedItem =
"3rd Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Mechanical" And ComboBox2.SelectedItem =
"4th Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Mechanical" And ComboBox2.SelectedItem =
"5th Semester" Then
MsgBox("Sorry, Work In Progress")
ElseIf ComboBox1.SelectedItem =
"Mechanical" And ComboBox2.SelectedItem =
"6th Semester" Then
MsgBox("Sorry, Work In Progress")
End If
End Sub
Me.Ele2ndTableAdapter.Fill(Me.Stu_recordDataSe
t.ele2nd)
End Sub
Ele2ndTableAdapter.Update(Stu_recordDataSet.el
e2nd)
Catch ex As Exception
MsgBox("Saved Sucessfully",
MsgBoxStyle.Information)
End Try
End Sub
Private Sub
AttendenceToolStripMenuItem_Click(sender As
Object, e As EventArgs) Handles
AttendenceToolStripMenuItem.Click
mark_attendance.Show()
End Sub
Private Sub
reportToolStripMenuItem1_Click(sender As
Object, e As EventArgs) Handles
reportToolStripMenuItem1.Click
Report.Show()
End Sub
Private Sub
LogoutToolStripMenuItem_Click(sender As Object,
e As EventArgs) Handles
LogoutToolStripMenuItem.Click
login.Show()
End Sub
Private Sub
CloseToolStripMenuItem_Click(sender As Object,
e As EventArgs) Handles
CloseToolStripMenuItem.Click
Application.Exit()
End Sub
End Class
MARK ATTENDANCE
Public Class mark_attendance
If ComboBox1.SelectedItem = "Information
Technology" And ComboBox2.SelectedItem =
"2nd Semester" And ComboBox3.SelectedItem =
"March" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "2nd Semester" And
ComboBox3.SelectedItem = "April" Then
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "2nd Semester" And
ComboBox3.SelectedItem = "May" Then
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "2nd Semester" And
ComboBox3.SelectedItem = "June" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "4th Semester" And
ComboBox3.SelectedItem = "March" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "4th Semester" And
ComboBox3.SelectedItem = "April" Then
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "4th Semester" And
ComboBox3.SelectedItem = "May" Then
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "4th Semester" And
ComboBox3.SelectedItem = "June" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "6th Semester" And
ComboBox3.SelectedItem = "March" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "6th Semester" And
ComboBox3.SelectedItem = "April" Then
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "6th Semester" And
ComboBox3.SelectedItem = "May" Then
ElseIf ComboBox1.SelectedItem =
"Information Technology" And
ComboBox2.SelectedItem = "6th Semester" And
ComboBox3.SelectedItem = "June" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem =
"2nd Semester" And ComboBox3.SelectedItem =
"March" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem =
"2nd Semester" And ComboBox3.SelectedItem =
"April" Then
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem =
"2nd Semester" And ComboBox3.SelectedItem =
"May" Then
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem =
"2nd Semester" And ComboBox3.SelectedItem =
"June" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "4th
Semester" And ComboBox3.SelectedItem =
"March" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "4th
Semester" And ComboBox3.SelectedItem =
"April" Then
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "4th
Semester" And ComboBox3.SelectedItem =
"May" Then
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "4th
Semester" And ComboBox3.SelectedItem =
"June" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "6th
Semester" And ComboBox3.SelectedItem =
"March" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "6th
Semester" And ComboBox3.SelectedItem =
"April" Then
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "6th
Semester" And ComboBox3.SelectedItem =
"May" Then
ElseIf ComboBox1.SelectedItem =
"Electrical" And ComboBox2.SelectedItem = "6th
Semester" And ComboBox3.SelectedItem =
"June" Then
MsgBox("Not Avilable",
MsgBoxStyle.Information)
End If
End Sub
Private Sub
JAN_IT3rdBindingNavigatorSaveItem_Click(sende
r As Object, e As EventArgs)
Me.Validate()
Me.JAN_IT3rdBindingSource.EndEdit()
Me.TableAdapterManager.UpdateAll(Me.New_Micr
osoft_Office_Access_2007_DatabaseDataSet)
End Sub
Me.JAN_IT3rdTableAdapter.Fill(Me.New_Microsoft_
Office_Access_2007_DatabaseDataSet.JAN_IT3rd)
End Sub
JAN_IT3rdTableAdapter.Update(New_Microsoft_O
ffice_Access_2007_DatabaseDataSet.JAN_IT3rd)
End Sub
End Class
VIEW STATUS
Public Class Form2
Web Links
http://www.google.com
http://www.1000projects.com
http://www.youtube.com