Student Attendance Management System Report
Student Attendance Management System Report
Submitted by
Name :K. SHARMILA DEVI
Reg. No. 212100052
We have pleasure in extending our sincere and heartful thanks to all our staff
members and friends for their cooperation throughout this project work.
Also my loving thanks to my family members for their continuous help during the
entire period of the entire period of project.
By
K. SHARMILA DEVI
\
TABLEOFCONTENTS
CHAPTERNO TITLE PAGENO
ABSTRACT vii
LISTOF FIGURES viii
LISTOF TABLES ix
1 INTRODUCTION 1
1.1Objective 1
2 SYSTEMANALYSIS 2
2.1ExistingSystem 3
2.2ProposedSystem 3
2.3FeasibilityStudy 3
2.3.1Economical Feasibility 4
2.3.2TechnicalFeasibility 4
2.3.3OperationalFeasibility 4
3 SYSTEMSPECIFICATION 5
3.1Hardware Specification 5
3.2Software Specification 5
4 SOFTWAREDESCRIPTION 6
4.1Package-VisualStudio2010 6
4.2DevelopmentToolsAndTechnologies 6
[Link](10.0) 7
4.2.2Oracle10g 7
[Link] 8
5 PROJECTDESCRIPTION 9
5.1ProblemDefinition 9
5.2Overview ofTheProject 9
5.3ModuleDescription 9
5.4SystemFlow Diagram 12
5.5DataFlow Diagram 13
5.6SystemDesign 15
5.6.1 EntityRelationship Diagram 15
5.6.2 Usecase Diagram 16
5.6.3 DatabaseDesign 17
5.6.4 Input Design 20
5.6.5 OutputDesign 21
6 SYSTEMTESTING 22
6.1 Introduction 22
6.2 TestingMethodologies 22
6.2.1 UnitTesting 23
6.2.2 SystemTesting 23
6.2.4 PerformanceTesting 23
6.3 Test Cases 24
7 SYSTEMIMPLEMENTATION 28
7.1 Purpose 28
7.2. SystemMaintenance 29
8 CONCLUSIONANDFUTURE
30
ENHANCEMENTS
8.1 Conclusion 30
8.2 ScopeFor Future Development 30
9 APPENDICES 37
9.1 Sourcecode 31
9.2 ScreenShots 50
10 REFERENCES 59
ABSTRACT
presence in class. It is maintained on the daily basis oftheir attendance. the staffs will
be provided with the separate username & password to make the student’s status.
The staffs handling the particular subjects responsible to make the attendance
for all students. Only if the student present on that particular period, the attendance
will be calculated. The students attendance reports based on weekly and consolidate
will be generated.
LISTOF FIGURES
5.6.1 EntityRelationshipDiagram 14
5.6.2 UsecaseDiagram 17
5.4.5LISTOFTABLES
[Link] LoginTable 17
[Link] Staffdetails 17
[Link] StudentdetailsTable 18
[Link] TimeTable 19
[Link] AttendanceTable 20
CHAPTER 1
INTRODUCTION
1.1 OBJECTIVE:
Planning.
Scheduling.
Developingcandidatesolution.
Performingcostbenefitanalysis.
Recommendingalternativesolutions.
Sellingofthesystem.
Supervising, installingandmaintainingthesystem.
This system manages to the analysis of the report creation and develops manual
entry of the student attendance. First design the students entry form , staff allocation and
time table allocation forms. This project will helps the attendance system for the
department calculate percentage and reports for eligibility criteria of examination .The
application attendance entry system will provide flexible report for all students.
2.2 EXISTINGSYSTE
The Existing system is a manual entry for the students. Here the attendance willbe carried
out in the hand written registers. It will be a tedious job to maintain the record fortheuser.
Thehumaneffort is morehere. Theretrievalofthe informationis notaseasy as the records are
maintained in the hand written registers.
This application requires correct feed on input into the respective field. Suppose
the wrong inputs are entered, the application resist to work. so the user find it difficult to
use.
2.3 PROPOSEDSYSTEM:
Toovercomethedrawbacksoftheexistingsystem,theproposedsystemhasbeen
evolved. Thisproject aimsto reducethe paper work and saving time to generate accurate
results from the student’s attendance. The system provides with the best user interface.
Theefficientreportscanbegenerated byusing thisproposed system.
2.3.1 AdvantagesofProposed System
Itistrouble-freetouse.
Itisarelativelyfastapproachtoenterattendance
Ishighlyreliable, approximateresultfromuser
BestuserInterface
Efficientreports
3. FEASIBILITYSTUDY:
Feasibilityanalysis beginsoncethegoalsaredefined. It startsbygenerating broad
possible solutions, which are possible to give an indication of what the new systemshould
look lime. This is where creativity and imagination are used. Analysts must think
upnewwaysofdoingthings- generatenew ideas. There is no needto go intothedetailed
system operation yet. The solution should provide enough information to makereasonable
estimates about project cost and give users an indication of how the new systemwill fit
into the organization. It is important notto exert considerable effort at this stage only to
find out that the project is not worthwhile or that there is a needsignificantly change the
original goal.
Feasibility ofa new system means ensuring that the new system, which we are
goingto implement,isefficient [Link] be
determined. They are,
3.1 EconomicallyFeasibility:
Development [Link] be
done is making an environment with an effective supervision.
It iscost effective inthe sensethat [Link]
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.
3.2 Technicalfeasibility:
The technical requirement for the system is economic and it does not use any
[Link] the
existing systems can be upgraded to use the new technology and whether the
organization has the expertise to use it.
Install all upgrades framework into the .Net package supported widows based
[Link],database. Enter
their attendance and generate report to excel sheet.
3.3 OperationalFeasibility:
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. Technical
performance include issues such as determining whether the system can provide the right
information for the Department personnel student details, and whether the systemcan be
organized so that it always delivers this information at the right place and on time using
intranet services. Acceptance revolves around the current system and its personnel.
CHAPTER 3
SYSTEMSPECIFICATION
3.1 HARDWAREREQUIREMENTS(MinimumRequirement)
MinimumRAM:-1GB
HardDisk:-128 GB
Processor:-IntelPentium4(1.50GHZ)orabove
3.2 SOFTWAREREQUIREMENTS(minimumRequirement)
Operatingsystem:WindowsXP
Front_Design:VB.Netversion10.0,.NETframework4.0
Front-EndLanguage:Visualbasic
Back-End:Oracle10g
Back-End Connectivity:[Link]
CHAPTER 4
SOFTWAREDESCRIPTION
4.1 PACKAGE-VISUALSTUDIO2010
MicrosoftVisualStudio isan integrateddevelopmentenvironment (IDE)
[Link] console and
graphicaluserinterfaceapplicationsalongwith WindowsFormsorWPFapplications,
websites, webapplications, and web services in bothnative codetogether with managed
code for all platformssupportedbyMicrosoftWindows,
WindowsMobile,WindowsCE,.NETFramework, .NET Compact Framework and
Microsoft Silver light.
Visual Studio supports different programming languagesby means of language
services, whichallowthe codeeditoranddebuggerto support (to varying degrees) nearly
any programming language, provided a language-specific service exists.
Visual Studio also includes a web-site editor and designer that allows web pages
to be authored by dragging and dropping widgets. It is used for [Link]
application efficiently to get input and output design easiest one. It will be run atwindows
application based services provide the user.
4.2 DEVELOPMENTTOOLSANDTECHNOLOGIES
VB.NETVersion10.0:
The latest version of Visual Basic .NET, which runs on .NET
framework [Link] Feature, Iterators, Call Hierarchy, Caller Information and Global
Keyword in Namespace Statements are some of the major features introduced in this
version of VB. Visual Basic .NET ([Link]) is an object-oriented computer
programming language that can be viewed as an evolution of the classic Visual Basic
(VB), implemented on the .NET Framework. Microsoft currently supplies two main
editions of IDEs for developing in Visual Basic: Microsoft Visual Studio 2012, which is
commercial software and Visual Basic Express Edition2012,which is free ofcharge. The
command-line compiler, [Link], is installed as part ofthe freeware .NET Framework
SDK. Mono also [Link] compiler. The most recent versionis
VB 2012, which was released on August 15, 2012.
My goal in this article is to provide you with an introductory,yet
intensive, look at Visual Basic .NET and the new Microsoft®.NET platform. In order to
learnwhat [Link] isallabout, youmust first understanda fewcoreaspectsof the
.NET platform. This article will build your knowledge ofVisual Basic .NET fromthe
ground up, so I'll begin by discussing the new programming model and the high-level
architecture of the platform's execution engine called the common language runtime
(CLR).
While explaining what the CLR is and how it works, I'll show a few
examples using Visual Basic .NET. As you'll see, Visual Basic® has undergone a
significant overhaul to accommodate the CLR and its associated programming model.
Consequently, Visual Basic .NET has many new object-oriented design features and
muchhigher levelsoftypesafetythanprevious [Link] language can
be used to write software that takes full advantage of the CLR .NET Framework.
Now,letmegetstarted byintroducing [Link]
[Link]
IOmanagement
WindowsandWebControls
Databaseaccess
Multithreading
Remoting
Reflections
ORACLE10G:
Oracle10ghascomewithpurposeofimprovingmanageabilityand
performance in all areas, right from the process of installation, server configuration,
database upgrades to application tuning, space and storage management and so on. This
Oracle version has been designed to reduce the cost of manageability and deliver high
performance for all key workloads. Also various new features are provided for high-
availability, including new flashback capabilities, virtualization of computing resourcesin
Grid environment that reduce the cost of hardware and storage, securityenhancement,
Business intelligent solutions etc. Let have a glance at some exiting features of Oracle
10g.
Clustering
Gridcomputing
Servermanageability
Networkmanagement
Storagemanagement
Space,objecttransactionmanagement
Backuprecoverymanagement
[Link]:
An evolutionary, more flexible successor to ADO.A system designed for
connected environments. A programming model with advanced XML support A set of
classes, interfaces, structures, and enumerations that manage data access fromwithin the
.NETFramework
DataProviders
MSSQLServer 7.0+
Oracle
OLEDB(oldSQL&Access-Jet4.0)
OpenDatabaseConnectivity(ODBC)-earlierVisualStudio,Access Driver,
ODBC for Oracle
CHAPTER 5
PROJECTDESCRIPTION
5.1 PROBLEMDEFINITION:
This system developed will reduce the manual work and avoid
redundant data. Bymaintainingtheattendance manually, thenefficient reportscannot be
generated. The system can generate efficient weekly,consolidate report based on
theattendance. Asthe attendancesare maintained inregisters it has been a toughtask for
admin and staff to maintain for long time. Instead the software can keep long and
retrieve the information when needed.
5.2 PROJECTOVERVIEW
Attendance Management System basically has two main modules for proper
functioning
Admin module is has rights for creating any new entry of faculty and
student details.
User has a rights of making daily attendance, generating report.
Attendance report can be taken by given details of student details,date,
class.
5.3 MODULEDESCRIPTION
The system should be designed in such a way that only authorized people should
be allowed to access some particular modules. The records should be modified by only
administrators and no one else. The user should always be in control of the application
and not the vice versa.
The user interface should be consistent so that the user can handle the application
with ease and speed. The application should be visually, conceptually clear.
5.3.1 ADMINISTRATORMODULE:
StudentDetails:
Timetabledetails:
Attendance details:
5.3.2 STAFFSMODULE:
Attendance details:
It assists the staffto mark attendance to the students for their subject. This
will authenticate the staff before making the entry.
Reportdetails:
Figure5.4-SystemFlow Diagram
5.5 DataFlowDiagram
5.5.1 FDlevel0:
ATTANDANCE
MANAGEMENT REPORT
USER
SYSTEM
DATABASE
Figure5.5.1-DataFlowDiagramLevel1
5.5.2 DFDlevel1:
PERSON
ENTRY
LOGIN
INVALID
UID/PWD
USER
AUTHENDICAT CHECK
DATABASE
ION
ADMIN
STAFF
ACCESS
ACCESS
Figure5.5.2-DataFlowDiagramLevel1
5.5.3 DFDlevel2:
Admin:
ALLOCATION
contribution
Getdetails
STUDENTS
Storeddatafrom
database
database
ATTANDANCE
ADMIN contribution VIEW
Storeddatafrom
ACCESS STAFFS Getdetails
database
Storeddatafrom
Getdetails
TIMETABLE
UPDATE
REPORT
Figure5.5.3.1-DataFlowDiagramLevel2
[Link] staffs:
UPDATE
ATTENDANCE
Updateattendance Storedattendance
InputAttendance Storedattendance
Attendance
entry
USER Attendancetable
REPORT Getallstudent
attendance
Figure5.5.3.2-DataFlowDiagramLevel2
5.6 SYSTEMDESIGN:
5.6.1 EntityRelationshipDiagram:
year DoB
III IV dept Address
II V
Name
VI
I mno
VII Rolllno
*
TTaabbleennaammee day SStatus
*
Timetable Student
details
user
1
*
date
1 hour
*
1
Attandance * Attendance
details
* subjject
*
Authendication
Rolllno
*
* Staffs
details
subjject
password
Subjject
Staffname
code
Figure5.6.1-EntityRelationship Diagram
5.6.2 Usecase Diagram:
Figure:5.6.2 -UsecaseDiagram
5.6.2 DatabaseDesign:
[Link] LOGINTABLE:
Tocreatealogindetailsforthetable.
[Link] StaffsTable:
Tocreateusernameandpasswordforthestaffdetails.
Table:[Link]–StudentdetailsTable
[Link] Studenttable:
Tocreatetablefor Studentpersonaldetailsforourdepartment.
Table:[Link]–StaffDetailsTable
[Link] Timetable:
Tocreatethesubjecttimetableforaparticular class.
Table:[Link]-TimeTable
[Link] Attendance table:
Tocreateattendancedetailsforparticularclass.
As the outputs are the most important sources of information to the users, better
design should improve the system’s relationships with us and also will help in decision
making. Form design elaborates the way output is presented and the layout available for
capturing information.
One of the most important factors of the system is the output it produces. This
system refers to the results and information generated. Basically the output from a
computer system is used to communicate the result of processing to the user.
Attendance management system to show the report subject wise attendance
maintaining by staffs. Taken as a whole reportobtain on a administrator privileges only.
this forms will showweekly report and consolidate report generated date, batch, and class
wise to our end user. we want to change our report to convert Excel format .if you want
change any modification.
CHAPTER 6
SYSTEMTESTING
6.1 Introduction
Once source code has been generated, software must be tested to uncover (and
correct) as many errors as possible before delivery to customer. Our goal is to design a
series of test cases that have a high likelihood of finding errors. To uncover the errors
software techniques are used. These techniques provide systematic guidance fordesigning
test that
(1) Exercisetheinternallogicofsoftwarecomponents,and
(2) Exercisethe input andoutputdomainsoftheprogramto uncovererrors In
program function, behavior and performance.
6.1.1 Steps:Softwareistestedfromtwodifferentperspectives:
(1) Internalprogramlogicisexercisedusing―Whitebox‖testcase design
Techniques.
(2) Softwarerequirementsareexercisedusing―blockbox‖testcase
Designtechniques.
Inbothcases,theintent istofindthe maximumnumberoferrorswiththe Minimum
amount of effort and time.
6.2 TestingMethodologies:
A strategy for software testing must accommodate low-level tests that are
necessary to verify that a small source code segment has been correctly implemented as
well as high-level tests that validate major system functions against customer
requirements. A strategy must provide guidance for the practitioner and a set of
milestones for the manager. Because the steps of the test strategy occur at a time when
deadline pressure begins to rise, progress must be measurable and problems must surface
asearlyaspossible. Following testing techniquesarewellknownand thesamestrategyis
adopted during this project testing.
6.2.1 Unittesting:
Unit testing focuses verification effort on the smallest unit of software design-the
software component or module. The unit test is white-box oriented. The unit testing
implemented in every module of student attendance management System. by giving
correct manual input to the system ,the datas are stored in database and retrieved. If you
want required module to access input or get the output from the End user. any error will
accruedthe time will provide handler to show what type of error will accrued .
6.2.2 Systemtesting:
System testing is actually a series of different tests whose primary purpose is to
fully exercise the computer-based system. Below we have described the two types of
testing which have beentaken for this project. it is to check all modules worked on input
basis .if you want change any values or inputs will change all information. so specified
input is must.
6.2.4 PerformanceTesting
Performance testing is designed to test the run-time performance of software
within the context of an integrated system. Performance testing occurs throughout all
steps in the testing process. Even at the unit level, the performance of an individual
module may be assessed as white-box tests are conducted.
This project reduceattendance table, codes. it will generate report [Link] have
[Link] datawillshowresult few millisecond. just used
only low memory of our system. Automatically do not getting access at another software.
Get user permission and access to other applications.
6.3 Testcases
Test case is anobject for execution for other modules in the architecture does not
represent any interaction by itself. Atest case is a set ofsequential steps to execute atest
operating onaset ofpredefined inputsto producecertainexpected [Link] types
of test cases:-manual and automated. A manual test case is executed manuallywhile an
automated test case is executed using automation.
In system testing, test data should cover the possible values of each parameter
based on the requirements. Since testing every value is impractical, a few values should
bechosenfromeachequivalenceclass. Anequivalenceclass isa setofvaluesthat should all be
treated the same.
Ideally, test cases that check error conditions are written separately from the
functional test cases and should have steps to verify the error messages and logs.
Realistically, if functional test cases are not yet written, it is ok for testers to check for
error conditions when performing normal functional test cases. It should be clear which
test data, if any is expected to trigger errors.
TESTCASE:
6.3.1 Agentandadminloginform
Sno Testcase Testcase Testcase Step Expected Actual Test
id name desc result Result case
status
pass/fail
1 Login Validate Toverify Enter the Login Login Pass
admin login thatlogin login successful successful
name on nameand oranerror
login password message
page and click “In valid
submit login or
button password”
must be
displayed
2 Login Validate Toverify Enter the Login Login Pass
Staff login thatlogin login successful successful
name on nameand oranerror
login password message
page and click “In valid
submit login or
button password”
must be
displayed
3 Password Validate Toverify Enter An error An error fail
password that password message message
password andlogin “password “password
on login name invalid” invalid”
page click must be must be
submit displayed displayed
button
6.3.2 MASTERform
BarcodeReaderbasedattendance system.
IndividualAttendancesystemWithphotousingStudentlogin.
CHAPTER 9
APPENDICES
9.1 Sourcecode:
LOGIN:
[Link]
PublicClasslogin
Dim con As New
[Link],rs1AsNewAD
[Link]
Publicstr,temp1,temp2,temp3,temp4 AsString Dim i
As Integer
PrivateSubButton1_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
rs = New
ADODB.Recordsetrs1=NewA
[Link]
If [Link]([Link], "Admin") Or [Link]([Link],
"admin") Or [Link]([Link], "ADMIN") And
[Link]([Link],"Admin")[Link]([Link],"admin")Or
[Link]([Link], "ADMIN") Then
temp4="MDIParent2"
[Link] = ""
[Link] = ""
[Link]()
[Link]()
i=1
Else
Try
str="select*fromlogintable"
[Link](str,con,[Link],
[Link])
[Link]()
While([Link]<>True)
str = "select * from " &[Link]("tablename").Value &""
[Link](str,con,[Link],
[Link])
While ([Link] <>True)
[Link]([Link]("sname").Value,[Link])And
[Link]([Link]("pass").Value, [Link]) Then
temp1 = [Link]("sname").Value
temp2 = [Link]("scode").Value
temp3=[Link]("ssname").Value
temp4 = "MDIParent1"
[Link] = ""
[Link]= ""
[Link]()
[Link]()
i=1
Exit While
End If
[Link]()
End While
[Link]()
[Link]()
End While
Ifi=0Then
MsgBox("LOGINNOT VAILD")
EndIf
Catch ex As Exception
MsgBox([Link])
EndTry
End If
EndSub
PrivateSubForm6_Load([Link],ByValeAs
[Link]) Handles [Link]
con= [Link]
If([Link]=[Link])Then
[Link]()
EndIf
PrivateSubButton2_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
End
EndSub
End Class
AttendanceEntry:
PublicClassattentry
Dim con As New
[Link],rs1AsNewAD
[Link] str, datAs String
Dim attAs String
DimiAsInteger=1
DimflagAsInteger=1
Dimchk1AsNewDataGridViewCheckBoxColumn()
Dim chkAs New DataGridViewCheckBoxColumn()
PrivateSubButton3_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
rs=[Link]
y
str="select *from"&[Link]&"_" &
[Link] &""
[Link](str,con,[Link],
[Link])
[Link]()
[Link]()
i=1
While([Link]<>True)
DimrowAsString()=NewString(){i,[Link]("rollno").Value,
[Link]("name").Value}
[Link](row)
i=i+1
[Link]()
End While
[Link]()
[Link](chk)
[Link]="PRESENT/ABSENT"
[Link] = "chk"
[Link]=True
[Link](chk1)
[Link] = "ONDUTY"
[Link] = "chk1"
timetb()
CatchexAsException
'[Link]()
MsgBox([Link])
EndTry
EndSub
PrivateSubForm3_Load([Link],ByValeAs
[Link]) Handles [Link]
con= [Link]
'If([Link]=[Link])Then '
[Link]()
'EndIf
EndSub
PrivateSubButton2_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
str=[Link]
t = ""
flag=1
dat=[Link]("dd-MMM-yyyy")
ForMe.i=0 [Link]-1
[Link](i).Cells(3).Value=TrueThen If
(flag < 2) Then
att = "'P'"
flag=3
Else
att=att+",'P'" End
If
[Link](i).Cells(4).Value=TrueThen If
(flag < 2) Then
att="'O'"
flag = 3
Else
att=att+",'O'" End
If
Else
If(flag<2)Then att
= "'A'"
flag=3
Else
att=att+",'A'" End
If
EndIf
Next
Try
str = "insert into "& [Link] &"_" &
[Link] &"_" & [Link] &"_" &
[Link]&"_att values('"&dat&"',"&[Link] &",'"&
[Link] &"'," &att&")"
[Link](str)
MsgBox("insert")
CatchexAsException
MsgBox([Link])
End Try
EndSub
PrivateSubCREATEToolStripMenuItem_Click([Link],
[Link])[Link]
rs1 =[Link]
str="select *from"&[Link]&"_"&[Link] &"" [Link](str,
con, [Link],
[Link])
[Link]()
str = "create table " & [Link] &"_" & [Link] &"_" &
[Link]&"_"&[Link]&"_att(daysDate,hournumber,subjectvarchar
(15),primary key(days,hour))"
[Link](str)
While([Link]<>True)
str="altertable"&[Link] &"_"&[Link]&"_"&
[Link] &"_" & [Link] &"_att add(M" &
[Link]("rollno").Value &" varchar(20))"
[Link](str)
[Link]()
End While
EndSub
PrivateSubtimetb()
DimtempAsString
rs1 = New
ADODB.RecordsetComboBox4.T
ext="SelectOne" Try
temp="select *from" &[Link] &"_"&[Link] &"_"
& [Link] &"_" & [Link] &"_time where(day='" &
[Link]("dddd") &"')"
[Link](temp,con,[Link],
[Link])
[Link]()
For Me.i=1To7
[Link]([Link](i).Value,[Link])Then
[Link](i)
EndIf
Next
[Link]()
Catch ex As Exception
MsgBox([Link])
EndTry
End Sub
PrivateSubDateTimePicker1_ValueChanged([Link],ByVale
As [Link]) Handles [Link]
timetb()
End Sub
PrivateSubDELETEToolStripMenuItem_Click([Link],
[Link]) [Link]
str="droptable"&[Link] &"_"&[Link] &"_"&
[Link] &"_" & [Link] &"_" & [Link] &" "
[Link](str)
MsgBox("TABLEDELETEDSUCCESSFULLY")
EndSub
PrivateSubHOMEToolStripMenuItem_Click([Link],ByVale
As [Link]) Handles [Link]
[Link]()
[Link]()
EndSub
PrivateSubButton1_Click(ByValsender [Link],ByValeAs
[Link])
EndSub
PrivateSubCheckBox1_CheckedChanged(ByValsender [Link],ByVale As
[Link]) Handles [Link]
[Link]=TrueThen i
=0
While (i < [Link])
[Link](i).Cells(3).Value=True i
=i+1
EndWhile
Else
i=0
While (i < [Link])
[Link](i).Cells(3).Value=False i
=i+1
EndWhile
End If
EndSub
PrivateSubDataGridView1_CellContentClick([Link], ByVale
As [Link]) Handles
[Link]
i=0
While(i<[Link])
If [Link](i).Cells(3).Value <>True Then
[Link](i).Cells(3).[Link]=[Link]
Else
[Link](i).Cells(3).[Link]=[Link]
d If
i= i+1
EndWhile
EndSub
End Class
WEEKLY REPORT:
[Link]
[Link]
imrs, [Link]
str, datAs String
Dimi,j,flag,diff,count1 AsNewInteger
Dimro,temp,tot_day,pre_day,ab_dayAsInteger
Dim holiday As String
PrivateSubButton3_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
holiday=[Link]
Try
rs = New
ADODB.Recordsetrs1=NewA
[Link]
[Link]()
[Link]()
[Link]()
[Link]()
Dimclm1AsNewDataGridViewTextBoxColumn()
[Link](clm1)
[Link]=[Link]+"-"+[Link]
[Link] = "clm1"
Dimclm2AsNewDataGridViewTextBoxColumn()
[Link](clm2)
[Link]="SEMESTER"+"-"+[Link] [Link]
= "clm3"
[Link](1).Width=130
Dimclm3AsNewDataGridViewTextBoxColumn()
[Link](clm3)
[Link] = "ROLLNO"
[Link]="clm3"
Dimclm4AsNewDataGridViewTextBoxColumn()
[Link](clm4)
[Link]="STUDENTNAME"
[Link] = "clm4"
[Link](1).Width=130
While([Link]<>True)
DimrowAsString()=NewString(){[Link]("rollno").Value,
[Link]("name").Value}
[Link](row)
[Link]()
EndWhile
[Link]()
DimdAsDate
d=[Link]
Dim d1 As Date
d1=[Link]
diff=DateDiff([Link],d,d1) j
=2
Whilediff>=0
Try
str = "Select * from " & [Link] &"_" &
[Link] &"_" & [Link] &"_" &
[Link]&"_attwhere(days='"&[Link]("dd-MMM-yyyy")
&"')order by hour asc "
[Link](str,conn,[Link],
[Link])
[Link]()
count1 = 1
DimdtxtAsNewDataGridViewTextBoxColumn()
[Link](dtxt)
[Link]=[Link]("dd-MMM-yyyy")
[Link] = 140
While([Link]<>True)
Dim dtxt1 As New DataGridViewTextBoxColumn()
[Link](dtxt1)
[Link]=[Link]("hour").[Link]
[Link]=20
DimrcountAsInteger=0
Dim count As Integer = 3
While ([Link] > count)
[Link](rcount).Cells(j).Value=[Link](count).Value
[Link](rcount).[Link] = (rcount +
1).ToString
holiday+="("+[Link]("dd-MMM-yyyy")+"-HOLIDAY)" d =
DateAdd([Link], 1, d)
diff=diff-1 [Link]()
EndTry
End While
' MsgBox(holiday)
[Link](holiday)
Catch ex As Exception
MsgBox([Link])
EndTry
End Sub
PrivateSubcreport_Load([Link],ByValeAs
[Link]) Handles [Link]
conn=[Link]
= New [Link]
[Link]("driver={microsoft ODBC for
Oracle};server=test;uid=M11MCA20;pwd=M11MCA20;")
EndSub
PrivateSubButton1_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
[Link] = True
[Link]=0
[Link]=100
[Link]
[Link]
[Link]
DimmisValueAsObject=[Link]
m i As Integer
DimjAsInteger
xlApp=[Link]
xlWorkBook=[Link](misValue)
xlWorkSheet = [Link]("sheet1")flag
=0
j=1
[Link](1,1)="[Link]&Technology
".ToString
[Link](2,1)="NPT-MCETCampus,UdumalaiRoad -
Makkinaickenpatti-Pollachi".ToString
[Link](3,1)="Phone:04259-236030Fax:04259-236070".ToString
[Link](4, 1) = "E-Mail : principal@[Link] Web Site :
[Link]".ToString
[Link]("A5").Value="BATCH:"+[Link]+"-"+
[Link] + " ATTENDANCE DETAILS FROM" +
[Link]("dd-MMM-yyyy") + "TO" +
[Link]("dd-MMM-yyyy") + " SEMESTER:"+"-"+
[Link]
[Link] If
flag < 2 Then
[Link](6,[Link]+1)=[Link]
flag = flag + 1
j=j+1
Else
j=j+1
[Link](6,j)=[Link] For
i = 1 To 6
j=j+1
[Link](6,j+i-
1)="".ToStringNext
EndIf
Next
[Link](6,1)="SNO".ToString
flag = 0
[Link] If
flag < 2 Then
[Link](6,[Link]+2)=[Link] flag
= flag + 1
Else
[Link](7,[Link]+2)=[Link]
If
Next
Fori=[Link]-1 [Link](i
+ 7, 1) = [Link]
flag=0
Forj=[Link] -1
Dim vvAs String
IfDataGridView1(j, i-1).ValueIsNothingThen vv =
"Nietingevuld"
Else
vv=DataGridView1(j,i-
1).[Link](i + 7, j + 2) = vv
Ifflag <2Then
[Link](j+2).ColumnWidth=15
'[Link](2)
flag=flag+1
Else
[Link](j+2).ColumnWidth=1 End
If
EndIf
[Link]=(i/[Link])*100 Next
Next
[Link]("A1:AS1").Merge()
[Link]("A2:AS2").Merge()
[Link]("A3:AS3").Merge()
[Link]("A4:AS4").Merge()
[Link]("A5:AS5").Merge()
[Link]("D6:J6").Merge()
[Link]("K6:Q6").Merge()
[Link]("R6:X6").Merge()
[Link]("Y6:AE6").Merge()
[Link]("AF6:AL6").Merge()
[Link]("AM6:AS6").Merge()
[Link]()
[Link]("D:\[Link]")
[Link]()
[Link]()
[Link]=False
MsgBox("Youcanfindyourreportat"&"D:\[Link]") End
Sub
PrivateSubHOMEToolStripMenuItem_Click([Link],ByVale
As [Link]) Handles [Link]
[Link]()
[Link]()
EndSub
End Class
ConsolidateReport:
[Link]
Public Class consli
DimconAsNew [Link]
Dimrs,[Link]
str, datAs String
Dimi,j,k,diff, count1 AsNewInteger
Dimpre_hours(100),tot_hours(100),ab_hours(100)AsInteger
Dim tot_day(100), pre_day(100), ab_day(100) As Double
PrivateSubButton3_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
[Link]()
rollno()
daycalc()
End Sub
End Sub
PrivateSubadconsoli_Load([Link],ByValeAs
[Link]) Handles [Link]
con=[Link]
= New [Link]
[Link]("driver={microsoft ODBC for
Oracle};server=test;uid=M11MCA20;pwd=M11MCA20;")
[Link] = login.temp1
[Link]=login.temp2
[Link]=login.temp3
EndSub
PrivateSubdaycalc()
Dimpre_hours(100),tot_hours(100),ab_hours(100)AsInteger Try
DimdAsDate
d=[Link]
Dim d1 As Date
d1=[Link]
diff=DateDiff([Link],d,d1) j
=2
Whilediff>=0
Try
str = "Select * from " & [Link] &"_" &
[Link] &"_" & [Link] &"_" &
[Link]&"_attwhere(days='"&[Link]("dd-MMM-yyyy")
&"' and subject='" & [Link] &"')order by hour asc "
[Link](str,con,[Link],
[Link])
[Link]()
Dimtemp(100),temp1(100)AsInteger Dim
flag1(100) As Integer
While ([Link]<>True)
DimrcountAsInteger=0
Dim count As Integer = 3
k=0
While([Link]>count)
[Link]([Link](count).Value,"P")Or
[Link]([Link](count).Value, "O") Then
pre_hours(k) =pre_hours(k)+1
[Link]([Link](count).Value,"A")Then
ab_hours(k)=ab_hours(k)+1 End
If
tot_hours(k)=tot_hours(k)+ 1
rcount=rcount+1
count = count + 1k
=k+1
EndWhile
j=j+1
[Link]()
End While
ForMe.i=[Link]-1 tot_day(i)
= tot_day(i) + 1
Next
d=DateAdd([Link],1,d)
diff = diff - 1
[Link]()
CatchexAsException
d=DateAdd([Link],1,d)
diff = diff - 1
[Link]()
End Try
End While
Catch ex As Exception
MsgBox([Link])
EndTry
i=0
While (i < [Link] - 1)
[Link](i).Cells(2).Value=pre_hours(i)
[Link](i).Cells(3).Value = ab_hours(i)
[Link](i).Cells(4).Value=tot_hours(i)
[Link](i).Cells(5).Value=[Link]((pre_hours(i)/ tot_hours(i)
* 100), 2)
i=i+1
EndWhile
End Sub
PrivateSubHOMEToolStripMenuItem_Click([Link],ByVale
As [Link]) Handles [Link]
[Link]()
[Link]()
EndSub
PrivateSubButton1_Click(ByValsender [Link],ByValeAs
[Link]) Handles [Link]
[Link] = True
[Link]=0
[Link]=100
[Link]
[Link]
[Link]
DimmisValueAsObject=[Link]
m i As Integer
DimjAsInteger
xlApp=[Link]
xlWorkBook=[Link](misValue)
xlWorkSheet = [Link]("sheet1")
[Link](1,1)="[Link]&Technology
".ToString
[Link](2,1)="NPT-MCETCampus,UdumalaiRoad -
Makkinaickenpatti-Pollachi".ToString
[Link](3,1)="Phone:04259-236030Fax:04259-236070".ToString
[Link](4, 1) = "E-Mail : principal@[Link] Web Site :
[Link]".ToString
[Link]("A5").Value="BATCH:"+[Link]+"-"+
[Link] + " ATTENDANCE DETAILS FROM" +
[Link]("dd-MMM-yyyy") + "TO" +
[Link]("dd-MMM-yyyy") + " SEMESTER:"+"-"+
[Link]
[Link]
[Link](6, [Link] + 1) = [Link]
Next
Fori=[Link]-1
Forj=[Link] -1
Dim vvAs String
IfDataGridView1(j, i-1).ValueIsNothingThen vv =
"Nietingevuld"
Else
vv=DataGridView1(j,i-
1).[Link](i + 6, j + 1) = vv
EndIf
Next
[Link]=(i/[Link])*100 Next
[Link]()
[Link]("D:\[Link]")
[Link]()
[Link]()
[Link]=False
MsgBox("Youcanfindyourreportat"&"D:\[Link]") End
Sub
EndClass
9.2 ScreenShots:
9.2.1 LOGIN:
Figure:9.2.1-login
9.2.2 ADMINHOMEPAGE:
Figure:9.2.2adminhomepage
[Link] STUDENTDETAILS:
Figure:9.2.2.1studentdetailsEntry
Figure:9.2.2.1studentdetailsEntry
[Link] Staffs:
Figure:9.2.2.2Staffsinsertion
[Link] TIME TABLE:
Figure:9.2.2.3timetable
[Link] VIEWSTUDENTSDETAILS:
Figure:9.2.2.4viewstudentsdetails
[Link] Staffsdetails:
Figure:[Link]-Staffsdetails
[Link] TIME TABLE:
Figure:9.2.2.6timetable details
[Link] UPDATE:
Figure:9.2.2.7update details
[Link] STUDENT:
Figure:9.2.2.8studentdetails
[Link] ATTENDANCEENTRY:
Figure:9.2.2.9attendanceentry
9.2.3 WEEKLY REPORT:
Figure:9.2.3weeklyreport
9.2.4 CONSOLIDATEREPORT:
Figure:9.2.4consolidatereport details
9.3 STAFFSLOGIN:
9.3.1 DAILYATTENDANCE:
Figure:9.3.1dailyattendance
9.3.2 UPDATEATTENDANCE:
figure :9.3.3weeklyreportdetails
9.3.4 Consolidate:
Figure:9.3.4Consolidatedetails
CHAPTER10
REFERENCES
BooksReferences
1. [Link],[Link].
2. JoeMayo,“MicrosoftVisualStudio2010:ABeginner'sGuide”,TataMcGraw Hill,
2010.
3. AlexMackey, “Introducing.NET4.0:WithVisualStudio2010”,Press,USA,
2010.
WEBSITES
1. [Link]
2. [Link]
3. [Link]
4. [Link]
5. [Link]
6. [Link]
7. [Link]