1 Abstract

1.
ABSTRACT
The Project titled “Attendance Management System” deal withthe

maintainance of attendance details. It is for maintaining dailybasis of Attendance,
the staff will be provided with the separateusername and password to make student
attendance.The Staff handling the particular subject to responsible to makethe
attendance of all Students.Only if the student present in theparticular date, the
attendance will be calculated. The studentattendance report based on
monthly and consolidate will begenerated. Here, there is an option to apply
for leave and sendthe feedback
1
2. INTRODUCTION
Attendance is one of those administrative tasks that must be done at the start of
each class. It can take up valuable time at the beginning of class and sometimes be
difficult to manage. Attendance books traditionally are big grids with tiny squares
that are hard to read and can be easy to make errors in. With QuickSchools' Online
Student Information System (also known as Online School Management System),
taking and managing attendance is no longer a hassle with our easy to use and
robust school attendance system.
The easy to use online student attendance system designed by QuickSchools make
taking attendance quick and less prone to errors. Record a student’s attendance on
the colored chart with a click of the mouse. The information pertaining to the
student attendance can then be immediately shared with parents via cloud (i.e.,
online) to help them keep track of their students via our online school management
system.
2
3.SYSTEM CONFIGURATION
3.1 HARDWARE REQUIREMNTS
The machine used to develop this system has the following Hardware
Requirements
Processor Type : Pentium –IV
Mother Board : Intel
Speed : 2.6 GHZ
Ram : 512 MB RAM
Hard disk : 80 GB HD
3.2 SOFTWARE REQUIREMENTS
The machine used to develop this system has the following Software
Requirements
Operating System : Windows XP/Windows 7/Linux
Programming Language : .NET
Front End : VB.NET
Back End : Sql Server 2005
3
3.3 SOFTWARE DESCRIPTION
VB.NET
VB.Net is developed by Microsoft. It is Visual Basic for .Net Platform.

The .NET Framework is language neural. Currently it supports C++, C#, VB,
Jscript. It provides a rich application execution environment.
Features of VB.NET
 After the development of .Net, VB was added with more set of controls
and components and thus evolved a new language VB.Net.
 ASP.NET is Microsoft Technology.
 We can drag controls from the tool bar and drop them on the form and
write code for the controls
 Runs on the CLR (Common Language Runtime).
 Release of unused objects taken care by the CLR
 Object Orientation of language enhances modularity, readability and
maintainability
SQL Server 2005
Microsoft SQL Server 2005 includes many graphical and command

prompt utilities that allows users, programmers and administrators to:
 Administer and configure SQL Server

 Determine the Catalogue information in a copy of SQL Server.
 Design and test queries for retrieving data.
 Copy, import, export and transform data.
 Provide diagnostic information
4
4.SYSTEM ANALYSIS
4.1 EXISTING SYSTEM

The existing system involves a lot of paper work. The typing of information
and reports about the admin is done in computer, but it is not atomized. This is a
tedious and repetitious task prone to errors. The software used earlier does not
contain all the provisions, which are now satisfied by the current advancements.
Also the earlier software had less flexibility. The student details in separate records
are tedious task. Referring to all these records and updating is needed. There is a
chance for more manual errors.
Drawbacks are listed out as key points:

• Less efficiency and accuracy due to lot of manual entries.
• The handling of data is difficult.
• It spends lot of time to perform any work.
• There is no security of information.
• There is a delay in information search and retrieval.
• It is hard to prepare any report.
• Quick replies are not possible.
• It is tedious to keep track of the transactions efficiency.
5
4.2 PROPOSED SYSTEM
The system is being developed using VB.NET as front end and SQL server as back end.
The mission of the system is to replace the manual works into a fully computerized one.
Computerization means speed, efficiency, reduction of paper work and smooth
operations. The advancements in the software have improved the flexibility. The grids
available here are more flexible and advanced compared to other older software.
The proposed system is designed to provide a solution for the drawbacks of
present system. It aims to:
• Replace manual processing system with an automated one.
• It is user friendly.
• Speedup Transactions.
• Security of data is provided.
• Retrieval of necessary information is very easy and fast.
• Reports can be easily generated takes minimum time.
6
5.SYTEM DESIGN AND DEVELOPMENT
5.1 INPUT DESIGN
The data, which is input to a computer-based information system, must be

correct. The input design is the link that ties the information system into its
users. User-friendly screen format is used which reduces the burden of end
user who is not proficient in computer. The input design control error at data
entry stage. It specifies the format in which data are entered.
Data entry can be achieved by instructing the computer to read data
from a written or printed document or it can occur by having people token in
data discretely into the system. The design of inputs focuses on controlling
the amount of output required, avoiding delay, controlling errors and
keeping the process simple.
5.2 OUTPUT DESIGN
This output design determines the output required and the format in
which it is to be produced. Necessary information is displayed in the screen.
When the output designs the computer output, the following things should
be taken into consideration.
1. Identify the specific output is needed to meet the information
requirements.
2. Select methods for presenting information.
3. Create report or other formats that contain information produced by the
system. If the report is for top management, It must be summarized,
highlighting important results.
7
5.3 DATABASE DESIGN
The database design is a detailed design, which helps to easily

understand the project with their modules. Each module is designed using the
database design and the project is well constructed. In database design,
several objectives were considered.
 Ease of learning and use.
 Data independence.
 More information at low cost.
 Accuracy and integrity.
 Recovery from failure.
 Privacy and security.
 Performance.
The database design includes
• Table description
• Data flow diagram.
8
Table Name: Company
Field Data Type
Coid Varchar(50)
Coname Varchar(50)
Add1 Varchar(50)
Add2 Varchar(50)
Add3 Varchar(50)
City Varchar(50)
Pincode Varchar(50)
Tinno Varchar(50)
Fyear Varchar(50)
Styear Varchar(50)
Endyear Varchar(50)
Cocode Varchar(50)
Usname Varchar(50)
Pword Varchar(50)
Path Varchar(50)
dirpath Varchar(50)
Acctype Varchar(50)
9
Table Name: exammaster
Field Data Type
Sno Int
Invdt Varchar(50)
Clas Varchar(50)
Sect Varchar(50)
Examname Varchar(50)
Stuid Varchar(50)
Studentname Varchar(50)
Tamil Int
English Int
Maths Int
Science Int
Total Int
Result Varchar(50)
Grade Varchar(50)
Remark Varchar(50)
10
Table Name: Fees details
Field DataType
Billno Varchar(50)
Studentname Varchar(50)
Dat Varchar(50)
Clas Varchar(50)
Sect Varchar(50)
Term Varchar(50)
Adfees Varchar(50)
Splfees Varchar(50)
Tution Varchar(50)
Bus Varchar(50)
Textbk Varchar(50)
Form Varchar(50)
Fine Varchar(50)
Netamt Varchar(50)
11
Table Name: Staff details
Field DataType
Empid Varchar(50)
Firstname Varchar(50)
Middlename Varchar(50)
Lastname Varchar(50)
Personal Varchar(50)
Gender Varchar(50)
Email Varchar(50)
Nationality Varchar(50)
Religion Varchar(50)
Dob Varchar(50)
Age Varchar(50)
Bgroup Varchar(50)
Status Varchar(50)
Passport Varchar(50)
Contact Varchar(50)
Address Varchar(50)
Mbl Varchar(50)
Phone Varchar(50)
Type Varchar(50)
12
Table Name: Application Master
Field DataType
Sno Int
Admissionno Varchar(50)
Student name Varchar(50)
Standard Varchar(50)
Sect Varchar(50)
Doa Varchar(50)
Gender Varchar(50)
Nationality Varchar(50)
State Varchar(50)
Religion Varchar(50)
Caste Varchar(50)
Dob Varchar(50)
Mothertonque Varchar(50)
Age Varchar(50)
Fathername Varchar(50)
Mothername Varchar(50)
Occupation Varchar(50)
Monthly income Varchar(50)
Address Varchar(50)
City Varchar(50)
Mobileno Varchar(50)
13
5.4 DATAFLOW DIAGRAM
A graphic tool used to describe and analyze the movement of
data through a system-manual or automated- including the process , stores of
data, and delays in the system. Data flow diagram are the central tool and the
basic from which other components are developed. The transformation of
data from input to output, through processes, may be described logically and
independently of the physical components associated with the system. They
are termed logical data flow diagrams. In contrast, physical data flow
diagrams show the actual implementation and the movement of data
between customers and service engineer and administrator.
A data flow diagram consists of:
o Data flows
o Processes
o Sources
o Destination
o Stores
An entire system can be described from the view point of the data it
processes with only four symbols. At the same time, data flow diagrams are
powerful enough to show parallel activities. When standard symbols limit
communication, a presentation graph which uses symbols of people, files and
terminals, documents can be used to discuss a system with user.
14
DATA FLOW DIAGRAM
Admin
Create Login
School School
Master Payroll Exam Fees SMS

Master Master
Applicatio Staff
n Staff Details
Attendanc Promotio Fees
e Mark n Entry Entry
Staff
Entry
Student Salary Fees
Record Extra Master Details
Activity Staff
Record
Student View Promotio Fees
Attendance Staff n Record Record
Mark
Salary view view
Record
Student Report
view
Report Staff Report
Fees
Promotion Report
Marks Report
Report
Email
Send to One
Excel file
using SMS
Text file
15 using SMS
Sent to
Group
6.SYSTEM TEXTING AND IMPLEMENTATION
6.1 TYPES OF TESTING

System testing is an important stage in any system development life cycle.
Testing is a process of executing a program with the intention of finding errors.
The importance of software testing and its implications with respect to
software quality cannot be over emphasized. Software testing is a critical
element of software quality assurance and represents the ultimate review of
specification, design and coding. A good test case is one that has a high
probability of finding a yet undiscovered error.
Testing is the set of activities that can be planned in advance and conducted
systematically. Different test conditions should be thoroughly checked and the
bugs detected should be fixed. The testing strategies formed by the user are
performed to prove that the software is free and clear from errors. To do this,
there are many ways of testing the system’s reliability, completeness and
maintainability.
Unit testing:
In the unit testing the analyst tests the program making up a system. The
software units in a system are the modules and routines that are assembled and
integrated to perform a specific function. In a large system, many modules on
different levels are needed.
Unit testing can be performed from the bottom up starting with the smallest and
lowest level modules and proceeding one at a time. For each module in a
bottom-up testing, a short program executes the module and provides the
needed data.
16
Integration testing:
Integration testing is a systematic technique for constructing the program
structure while conducting test to uncover errors associate with interfacing.
Objectives are used to take unit test modules and built program structure that has
been directed by design.
White box testing:
White box testing, sometimes called glass-box testing is a test case design
method that uses the control structure of the procedural design to derive test cases.
Using white box testing methods, the software engineer can derive test cases that
 Guarantee that all independent paths with in a module have been exercised
at least once.
 Exercise all logical decisions on their true and false sides.
 Executive all loops at their boundaries and within their operational bounds
and
 Exercise internal data structure to assure their validity.
Black box testing:
This method treats the coded module as a black box. The module runs with
inputs that are likely to cause errors. Then the output is checked to see if any error
occurred. This method cannot be used to test all errors, because some errors may
depend on the code or algorithm used to implement the module.
17
The objective of the acceptance test is to tell the user about the validity and
reliability of the system, it verifies whether the system operates as specified and
the integrity of important data is maintained. User motivation is very important is
very important for the successful performance of the system.
All the modules were tested individually using both test data and live data.
After each module was ascertained that it was working correctly and it had been
“integrated” with the system. Again the system was tested as a whole/ we hold the
system tested with different types of users. The system design, data flow diagrams,
procedures etc, were well documented so that the system can be easily maintained
and upgraded by any computer professional at a later.
Acceptance testing is done with live data provided by the client to ensure
that the software works satisfactorily. This test focuses on the external behavior of
the system. Data was entered and acceptance testing was performed.
TESTING IN THE PROJECT
I have done my project with unit testing for to test the project “TERRA
SCHOOL MANAGEMENT SYSTEM”. For each module in a bottom-up testing, a
short program executes the module and provides the needed data.
18
6.2 SYSTEM IMPLEMENTATION
Implementation literally means to put into effort or to carry out. The system
implementation phase of the software deals with translation of the design
specifications into the source code and the internal documentation should be
written in a manner that cases debugging, testing and modification. System flow
charts, sample output etc., is part of the implementation. An effort was made to
satisfy the following goals in order specified.
o Minimization of response time.
o Clarify and simplicity of the code.
o Minimization of hard coding and amount of memory used.
Implementation involves careful planning, investigation of the current
system and its constraints on implementation, design of methods to achieve of
changeover, an evolution, of changeover methods.
o Testing the developed software with sample data.
o Debugging of any errors if identified.
o Creating the files of the system with actual data.
o Making necessary changes to the system to find out errors.
The system can be implemented only after through testing is done and if it is
founded to be work according to the specification. The first step in implementation
the approval from the users. The data entry through various screen and reports that
the system is capable of producing is shown to the staff. When the department
manager is satisfied he is asking to give approval to the new system. The system has
been successfully implemented in the organization with full cooperation of the
management. Finally the system is handed over to the organization.
19
7.SOCURE CODE
APPLICATION MASTER
Imports System.Data.SqlClient
Public Class Applicationmaster
Private dt As New DataTable("MASTER")
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button4.Click
Me.Dispose()
End Sub
Private Sub ctlgroupmaster_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
If e.KeyCode = Keys.Enter Then
If TypeOf Me.ActiveControl Is TextBox Then
Me.SelectNextControl(Me.ActiveControl, True, True, True, False)
End If
End If
If (e.KeyCode = Keys.Escape) Then
If (MsgBox("Do you Like to Quit ", MsgBoxStyle.YesNo) =
MsgBoxResult.Yes) Then
Me.Close()
End If
End If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As

clear()
Button2.Text = "&Save"
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
TextBox2.Focus()
End Sub
Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Button1.GotFocus
20
Button7)
Button1.BackColor = Color.LightBlue
End Sub

Button7)
End Sub

Button7)
End Sub

Button7)
End Sub
Button7)
End Sub

Button7)
End Sub
21
Button7)
End Sub
Private Sub clear()
For Each txt As Control In Me.GroupBox1.Controls
If TypeOf txt Is TextBox Or TypeOf txt Is ComboBox Or TypeOf txt Is
DateTimePicker Then
txt.Text = ""
End If
Next
End Sub
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs)
If (e.KeyCode = Keys.Enter) Then
TextBox3.Focus()
End If
End Sub
savedata()
SendKeys.Send("+{Tab}")
Button1.Focus()
Me.Refresh()
End Sub
Private Function savedata()
If (MsgBox("You Are Going To Save Record", MsgBoxStyle.YesNo) =
MsgBoxResult.No) Then
Return 1
Exit Function
End If
If (Button2.Text = "&Save") Then
Dim con As New dbaction
TextBox1.Text = con.getmax("Select count(sno) from " & table_str &
"applicationmaster")
ElseIf (Button2.Text = "&Update") Then
Dim str As String
str = "Delete from " & table_str & "applicationmaster where sno=" &
Val(TextBox1.Text) & ""
22
con.delete(str)
End If
Dim qry As String
Dim cmd As SqlCommand
qry = "Insert into " & table_str &
"applicationmaster(sno,admissionno,studentname,standard ,SECT ,doa,gender ," &
_
"nationality ,state,religion,caste,dob,mothertonque,age,fathername,mothername,oc
cupation,monthlyincome,address,city,mobileno,phoneno,schoollaststudy)values
(@sno,@admissionno,@studentname,@standard ,@SECT ,@doa,@gender ," & _
"@nationality ,@state,@religion,@caste,@dob,@mothertonque,@age,@fatherna
me,@mothername,@occupation,@monthlyincome,@address,@city,@mobileno,@
phoneno,@schoollaststudy)"
cmd = New SqlCommand(qry, Main.conn)
cmd.Parameters.Add("@sno", SqlDbType.Int).Value = Val(TextBox1.Text)
cmd.Parameters.Add("@admissionno", SqlDbType.VarChar).Value =
TextBox2.Text
cmd.Parameters.Add("@studentname", SqlDbType.VarChar).Value =
TextBox3.Text
cmd.Parameters.Add("@standard", SqlDbType.VarChar).Value =
ComboBox1.Text
cmd.Parameters.Add("@SECT", SqlDbType.VarChar).Value =
ComboBox2.Text
cmd.Parameters.Add("@doa", SqlDbType.DateTime).Value =
CDate(DateTimePicker1.Text)
cmd.Parameters.Add("@gender", SqlDbType.VarChar).Value =
ComboBox3.Text
cmd.Parameters.Add("@nationality", SqlDbType.VarChar).Value =
ComboBox4.Text
cmd.Parameters.Add("@state", SqlDbType.VarChar).Value =
ComboBox5.Text
cmd.Parameters.Add("@religion", SqlDbType.VarChar).Value =
ComboBox6.Text
cmd.Parameters.Add("@caste", SqlDbType.VarChar).Value =
ComboBox7.Text
cmd.Parameters.Add("@dob", SqlDbType.VarChar).Value =
CDate(DateTimePicker2.Text)
23
cmd.Parameters.Add("@mothertonque", SqlDbType.VarChar).Value =
ComboBox8.Text
cmd.Parameters.Add("@age", SqlDbType.VarChar).Value = TextBox12.Text
cmd.Parameters.Add("@fathername", SqlDbType.VarChar).Value =
TextBox4.Text
cmd.Parameters.Add("@mothername", SqlDbType.VarChar).Value =
TextBox5.Text
cmd.Parameters.Add("@occupation", SqlDbType.VarChar).Value =
TextBox6.Text
cmd.Parameters.Add("@monthlyincome", SqlDbType.VarChar).Value =
TextBox7.Text
cmd.Parameters.Add("@address", SqlDbType.VarChar).Value =
TextBox8.Text
cmd.Parameters.Add("@city", SqlDbType.VarChar).Value = TextBox9.Text
cmd.Parameters.Add("@mobileno", SqlDbType.VarChar).Value =
MaskedTextBox1.Text
cmd.Parameters.Add("@phoneno", SqlDbType.VarChar).Value =
TextBox10.Text
cmd.Parameters.Add("@schoollaststudy", SqlDbType.VarChar).Value =
TextBox11.Text
cmd.ExecuteNonQuery()
cmd.Dispose()
Return 1
Me.Refresh()
End Function
Private Sub modify()

Dim qry As String
qry = "select admissionno ,studentname ,standard ," & _
"SECT ,gender ,nationality ,state,religion ,caste,mothertonque,age,fathername,mot

hername,occupation,monthlyincome,address,city,mobileno,phoneno,schoollaststud
y from " & table_str & "applicationmaster where sno=" & Val(TextBox1.Text)
Dim rd As SqlDataReader
rd = con.getdata(qry)
If (rd.Read) Then
TextBox2.Text = rd.Item(0)
ComboBox1.Text = rd.Item(2)
24
MaskedTextBox1.Text = rd.Item(17)
End If
rd.Close()
End Sub

Dim str As String
If (MsgBox("You Are Going To Delete the Record", MsgBoxStyle.YesNo) =
6) Then
con.delete(str)
con.delete(str)
Else
Exit Sub
End If
Button1.Focus()
End Sub
Private Sub ctladdressmaster_Load(ByVal sender As Object, ByVal e As

System.EventArgs) Handles Me.Load
clear()
25
End Sub

Dim cod, min As Integer
cod = Val(TextBox1.Text)
clear()
Button2.Text = "&Update"
TextBox1.Text = cod
If (cod = 0) Then
min = con.getmin("select min(sno) from " & table_str & "applicationmaster
where sno=" & Val(TextBox1.Text) & "")
If min = 0 Then
MsgBox("Table is Empty!", MsgBoxStyle.Information)
Exit Sub
Else
cod += 1
End If
Else
cod -= 1
End If
If (cod > 0) Then
TextBox1.Text = cod
modify()
Else
MsgBox("This is Beginning Record!", MsgBoxStyle.Information)
TextBox1.Text = cod + 1
modify()
End If
End Sub

Dim cod, max As Integer
clear()
TextBox1.Text = cod
cod += 1
26
max = con.getmax("select Max(sno) from " & table_str & "applicationmaster
If (max = 0) Then
Exit Sub
End If
If (cod <= max) Then
TextBox1.Text = cod
modify()
Else
MsgBox("End Of Record!", MsgBoxStyle.Information)
TextBox1.Text = cod - 2
modify()
End If
End Sub

clear()
Dim qry As String
qry = "select sno,admissionno ,studentname ,standard ," & _
"SECT ,gender ,nationality ,state,religion ,caste,mothertonque,age,fathername,mot

hername,occupation,monthlyincome,address,city,mobileno,phoneno,schoollaststud
y from " & table_str & "applicationmaster"
Dim con As New search(qry, TextBox1, TextBox3)

con.ShowDialog()
TextBox2.Focus()
modify()
End Sub
Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
ComboBox2.Focus()
End If
End Sub
27
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If (ComboBox1.SelectedItem = "PREKG") Then
TextBox11.Enabled = False
Else
TextBox11.Enabled = True
End If
End Sub
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles GroupBox1.Enter
End Sub
Private Sub DateTimePicker2_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles DateTimePicker2.KeyDown
ComboBox8.Focus()
End If
End Sub
Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles DateTimePicker2.ValueChanged
Dim d1, d2 As Date
Dim days, months, years As Long
d1 = DateTimePicker2.Value.ToShortDateString
d2 = Now.ToShortDateString
years = Year(d1)
months = Month(d1)
days = d1.Day
years = Year(d2) - years
months = Month(d2) - months
days = d2.Day - days
If Math.Sign(days) = -1 Then
days = 30 - Math.Abs(days)
months = months - 1
End If
If Math.Sign(months) = -1 Then
months = 12 - Math.Abs(months)
years = years - 1
28
End If
TextBox12.Text = years.ToString()
End Sub

System.Windows.Forms.KeyEventArgs) Handles TextBox10.KeyDown
If (TextBox2.Text <> "") Then
TextBox11.Focus()
End If
End If
End Sub

MaskedTextBox1.Focus()
End If
End If
End Sub
TextBox7.Focus()
End If
End If
End Sub

TextBox5.Focus()
End If
End If
End Sub

29
TextBox4.Focus()
End If
End Sub

ComboBox5.Focus()
End If
End Sub
DateTimePicker1.Focus()
End If
End Sub
Private Sub DateTimePicker1_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles DateTimePicker1.KeyDown
ComboBox3.Focus()
End If
End Sub

ComboBox4.Focus()
End If
End Sub

ComboBox6.Focus()
End If
End Sub
30
ComboBox7.Focus()
End If
End Sub

DateTimePicker2.Focus()
End If
End Sub

TextBox12.Focus()
End If
End Sub

TextBox6.Focus()
End If
End Sub
TextBox8.Focus()
End If
End Sub

TextBox9.Focus()
End If
End Sub
31
Private Sub MaskedTextBox1_KeyDown(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyEventArgs) Handles MaskedTextBox1.KeyDown
TextBox10.Focus()
End If
End Sub

Button2.Focus()
End If
End Sub
Private Sub Button8_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs)
Button2.Focus()
End If
End Sub
Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
Button2.Focus()
End If
End Sub
End Class
Mark Master:
Imports System.Data.SqlClient
Public Class Markmaster
Private dt As New DataTable("ledgermst")
Private supid As Integer
Me.Dispose()
End Sub
Private Sub ctlgroupmaster_KeyDown(ByVal sender As Object, ByVal e As

System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
32
If e.KeyCode = Keys.Enter Then
If TypeOf Me.ActiveControl Is ComboBox Then
Me.SelectNextControl(Me.ActiveControl, False, False, False, True)
End If
End If
If (e.KeyCode = Keys.Escape) Then
If (MsgBox("Do you Like to Quit ", MsgBoxStyle.YesNo) =
MsgBoxResult.Yes) Then
Me.Close()
End If
End If
SendKeys.Send("{Tab}")
End If
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As

clear()
MaskedTextBox1.Text = Format(Now(), "dd/MM/yyyy")
Button7)
DataGridView2.Rows.Add()
DataGridView2.Rows(0).Cells(0).Value = 1
End Sub
Button7)
End Sub

Button7)
33
End Sub

Button7)
End Sub

Button7)
End Sub

Button7)
End Sub

Button7)
End Sub

Button7)
End Sub
savedata()
SendKeys.Send("+{Tab}")
Button1.Focus()
34
End Sub
Private Function savedata()
Dim lrow As Integer
lrow = DataGridView2.RowCount - 1
If (MsgBox("You Are Going To Save Record", MsgBoxStyle.YesNo) =
MsgBoxResult.No) Then
Return 1
Exit Function
End If
If (Button2.Text = "&Save") Then
TextBox1.Text = con.getmax("Select max(sno) from " & table_str &
"exammaster")
ElseIf (Button2.Text = "&Update") Then
Dim str As String
str = "Delete from " & table_str & "exammaster where sno=" &
con.delete(str)
con.delete(str)
End If
If (DataGridView2.RowCount > 0) Then
If (DataGridView2.Item(2, lrow).Value = "") Then
MsgBox("Please Delete the Empty Row")
DataGridView2.Focus()
DataGridView2.CurrentCell = DataGridView2.Rows(lrow).Cells(1)
Return 0
Exit Function
End If
Dim qry As String
Dim cmd As SqlCommand
qry = "Insert into " & table_str &
"exammaster(sno,invdt,clas,sect,examname," & _
"stuid,studentname,tamil,english ,maths ,science ,socialscience ,total,result,grade,r

emark )values(@sno,@invdt,@clas,@sect,@examname," & _
"@stuid,@studentname,@tamil ,@english ,@maths ,@science ,@socialscience ,@

total,@result,@grade,@remark)"
35
For i As Integer = 0 To DataGridView2.RowCount - 1
cmd = New SqlCommand(qry, Main.conn)
cmd.Parameters.Add("@sno", SqlDbType.Int).Value =
Val(TextBox1.Text)
cmd.Parameters.Add("@invdt", SqlDbType.DateTime).Value =
MaskedTextBox1.Text
cmd.Parameters.Add("@clas", SqlDbType.VarChar).Value =
ComboBox1.Text
cmd.Parameters.Add("@sect", SqlDbType.VarChar).Value =
ComboBox2.Text
cmd.Parameters.Add("@examname", SqlDbType.VarChar).Value =
ComboBox3.Text
cmd.Parameters.Add("@stuid", SqlDbType.Int).Value =
Val(DataGridView2.Item(1, i).Value)
cmd.Parameters.Add("@studentname", SqlDbType.VarChar).Value =
DataGridView2.Item(2, i).Value
cmd.Parameters.Add("@tamil", SqlDbType.Int).Value =
cmd.Parameters.Add("@english", SqlDbType.Int).Value =
cmd.Parameters.Add("@maths", SqlDbType.Int).Value =
cmd.Parameters.Add("@science", SqlDbType.Int).Value =
cmd.Parameters.Add("@socialscience", SqlDbType.Int).Value =
cmd.Parameters.Add("@total", SqlDbType.Int).Value =
cmd.Parameters.Add("@result", SqlDbType.VarChar).Value =
cmd.Parameters.Add("@grade", SqlDbType.VarChar).Value =
cmd.Parameters.Add("@remark", SqlDbType.VarChar).Value =
cmd.ExecuteNonQuery()
cmd.Dispose()
Next
End If
Return 1
End Function
36
Private Sub ctladdressmaster_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
clear()
End Sub

Dim cod, min As Integer
clear()
TextBox1.Text = cod
If (cod = 0) Then
min = con.getmin("select min(sno) from " & table_str & "exammaster
If min = 0 Then
Exit Sub
Else
cod += 1
End If
Else
cod -= 1
End If
If (cod > 0) Then

TextBox1.Text = cod
modify()
Else
MsgBox("This is Beginning Record!", MsgBoxStyle.Information)
TextBox1.Text = cod + 1
modify()
End If
End Sub

37
Dim cod, max As Integer
clear()
TextBox1.Text = cod
cod += 1
max = con.getmax("select Max(sno) from " & table_str & "exammaster where
sno=" & Val(TextBox1.Text) & "")
If (max = 0) Then
Exit Sub
End If
If (cod <= max) Then
TextBox1.Text = cod
modify()
Else
MsgBox("End Of Record!", MsgBoxStyle.Information)
TextBox1.Text = cod - 2
modify()
End If
End Sub
Private Sub DateTimePicker1_KeyDown(ByVal sender As System.Object,

ByVal e As System.Windows.Forms.KeyEventArgs)
End Sub
Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e

As System.Windows.Forms.KeyEventArgs)
End Sub
As System.Windows.Forms.KeyEventArgs)
End Sub
Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As

38
End If
End Sub
Private Sub MaskedTextBox1_KeyDown(ByVal sender As System.Object,

ByVal e As System.Windows.Forms.KeyEventArgs) Handles
MaskedTextBox1.KeyDown
ComboBox1.Focus()
End If
End Sub
Private Sub ComboBox1_KeyDown_1(ByVal sender As System.Object, ByVal

e As System.Windows.Forms.KeyEventArgs)
ComboBox2.Focus()
End If
End Sub
Private Sub ComboBox2_KeyDown_1(ByVal sender As System.Object, ByVal

e As System.Windows.Forms.KeyEventArgs) Handles ComboBox2.KeyDown
ComboBox3.Focus()
End If
End Sub

As System.Windows.Forms.KeyEventArgs) Handles ComboBox3.KeyDown
DataGridView2.Focus()
End If
End Sub
Private Sub DataGridView2_KeyDown(ByVal sender As System.Object, ByVal

e As System.Windows.Forms.KeyEventArgs) Handles DataGridView2.KeyDown
Dim ri As Integer = DataGridView2.CurrentCell.RowIndex
Dim ci As Integer = DataGridView2.CurrentCell.ColumnIndex
DataGridView2.Item(5, ri).Value = Format(Val(DataGridView2.Item(5,
ri).Value))
If ci = 1 Then
39
Dim qry As String
'Dim con As New dbaction
qry = "select admissionno,studentname from " & table_str &
"applicationmaster"
Dim d As New search(ri, qry, DataGridView2, 22)
d.ShowDialog()
End If
If ci = 3 Then
DataGridView2.Item(8, ri).Value = Val(DataGridView2.Item(3,
ri).Value) + Val(DataGridView2.Item(4, ri).Value) + Val(DataGridView2.Item(5,
ri).Value)
End If
If ci = 4 Then
ri).Value)
End If
If ci = 5 Then
ri).Value)
End If
If ci = 6 Then
ri).Value)
End If
If ci = 7 Then
ri).Value)
End If
If ci = 8 Then
40
ri).Value)
If (Val(DataGridView2.Item(3, ri).Value) >= 35 And
Val(DataGridView2.Item(4, ri).Value) >= 35 And Val(DataGridView2.Item(5,
ri).Value) >= 35 And Val(DataGridView2.Item(6, ri).Value) >= 35 And
Val(DataGridView2.Item(7, ri).Value) >= 35) Then
DataGridView2.Item(9, ri).Value = "Pass"
Else
DataGridView2.Item(9, ri).Value = "Fail"
End If
End If
If ci = 10 Then
If (DataGridView2.Item(8, ri).Value / 5 >= 80) Then
DataGridView2.Item(10, ri).Value = "A+"
ElseIf (DataGridView2.Item(8, ri).Value / 5 <= 79 And
DataGridView2.Item(8, ri).Value / 5 >= 60) Then
DataGridView2.Item(10, ri).Value = "A"
Else
DataGridView2.Item(10, ri).Value = "B"
End If
End If
If ci = 11 Then
If (DataGridView2.Item(8, ri).Value >= 400) Then
DataGridView2.Item(11, ri).Value = "Very Good"
ElseIf (DataGridView2.Item(8, ri).Value <= 399 And
DataGridView2.Item(8, ri).Value >= 300) Then
DataGridView2.Item(11, ri).Value = "Good"
ElseIf (DataGridView2.Item(8, ri).Value <= 299 And
DataGridView2.Item(8, ri).Value >= 200) Then
DataGridView2.Item(11, ri).Value = "Study well"
Else
DataGridView2.Item(11, ri).Value = "Must Study"
End If
End If
Dim con As New gridmethod
con.FindCellNEXTdbook(DataGridView2, ri, ci)
'sumgrid()
End If
If e.KeyCode = Keys.End Then
41
DataGridView2.Rows.RemoveAt(CInt(DataGridView2.RowCount - 1))
SendKeys.Send("{Tab}")
End If
End Sub
Private Sub clear()
For Each txt As Control In Me.GroupBox1.Controls
If TypeOf txt Is TextBox Or TypeOf txt Is ComboBox Or TypeOf txt Is
DateTimePicker Or TypeOf txt Is MaskedTextBox Then
txt.Text = ""
End If
Next
DataGridView2.Rows.Clear()
Button2.Text = "&Save"
End Sub

Dim str As String
If (MsgBox("You Are Going To Delete the Record", MsgBoxStyle.YesNo) =
6) Then
con.delete(str)
End If
Button1.Focus()
End Sub
clear()
Dim qry As String
qry = "select
sno,invdt,clas,sect,examname,stuid,studentname,tamil,english,maths,science,social
science,total,result,grade,remark from " & table_str & "exammaster"
Dim con As New search(qry, TextBox1)
con.ShowDialog()
modify()
End Sub
Private Sub modify()
42
Dim qry As String
Dim rd As SqlDataReader
Dim i As Integer
qry = "select
invdt,clas,sect,examname,stuid,studentname,tamil,english,maths,science,socialscie
nce,total,result,grade,remark from " & table_str & "exammaster where sno=" &
Val(TextBox1.Text)
If (rd.Read) Then
MaskedTextBox1.Text = rd.Item(0)
End If
rd.Close()
qry = "select
invdt,clas,sect,examname,stuid,studentname,tamil,english,maths,science,socialscie
nce,total,result,grade,remark from " & table_str & "exammaster where sno=" &
Val(TextBox1.Text)
While (rd.Read)
DataGridView2.Rows.Add()
'DataGridView2.Item(0, i).Value = ri
DataGridView2.Item(1, i).Value = rd.Item(4)
End While
End Class
43
8.SAMPLE SCREEN
44
45
46
47
48
49
9.FUTURE ENHANCEMENT
The project is developed considering only management. It provides
efficiency in many ways. All the features that is required for the “TERRA
SCHOOL MANAGEMENT SYSTEM”.
Further requirements and improvements can easily be done since the coding
is mainly structured or modular in nature. Changing the existing modules or adding
new modules can append improvements.
50
10.CONCLUSION
The system has been developed with much care that it is free of errors and at
the same time it is efficient and less time consuming. The important thing is that
the system is robust. Avoid malfunction from outsiders .It goes through all phases
of software development cycle. So product is accurate. Also provision is provided
for future developments in the system.
51
11.BIBLOGRAPHY
1. ECMA International. C# language specification. Standard ECMA-334,

Geneva, December 2001.
2. Gunnerson E. A Programmer’s Introduction to C# (2nd edn). Apress:
Berkeley, CA, 2001.
3. Platt DS. Introducing Microsoft .NET (2nd edn). Microsoft Press:
Redmond, WA, 2002.
4. Lindholm T, Yellin F. The Java Virtual Machine Specification (2nd
edn). Addison-Wesley: Palo Alto, CA, 1999.
5. Bracha G, Odersky M, Stoutamire D, Wadler P. Making the future
safe for the past: Adding genericity to the Java programming language.
Proceedings of the Conference on Object- Oriented Programming, Systems,
Languages, and Application, Vancouver, October 1998. Association for
Computing Machinery: New York, 1998; 183–200.
6. Stutz D, Neward T, Shilling G. Shared Source CLI Essentials.
O’Reilly & Associates: Sebastopol, CA, 2003.
7. The Mono Project. http://www.go-mono.com [5 May 2004].
52

1 Abstract

Uploaded by

Copyright:

Available Formats

1 Abstract

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

1 Abstract

Uploaded by

Copyright:

Available Formats

1.

The Project titled “Attendance Management System” deal withthe

3.1 HARDWARE REQUIREMNTS

Processor Type : Pentium –IV

Mother Board : Intel

Speed : 2.6 GHZ

Ram : 512 MB RAM

3.2 SOFTWARE REQUIREMENTS

Operating System : Windows XP/Windows 7/Linux

Programming Language : .NET

Front End : VB.NET

Back End : Sql Server 2005

VB.Net is developed by Microsoft. It is Visual Basic for .Net Platform.

SQL Server 2005

Microsoft SQL Server 2005 includes many graphical and command

 Administer and configure SQL Server

4.1 EXISTING SYSTEM

Drawbacks are listed out as key points:

5.1 INPUT DESIGN

The data, which is input to a computer-based information system, must be

5.2 OUTPUT DESIGN

The database design is a detailed design, which helps to easily

Master Payroll Exam Fees SMS

6.1 TYPES OF TESTING

Private Sub ctlgroupmaster_KeyDown(ByVal sender As Object, ByVal e As

Private Sub Button1_Click(ByVal sender As Object, ByVal e As

Private Sub Button2_GotFocus(ByVal sender As Object, ByVal e As

Private Sub Button3_GotFocus(ByVal sender As Object, ByVal e As

Private Sub Button4_GotFocus(ByVal sender As Object, ByVal e As

Private Sub Button6_GotFocus(ByVal sender As Object, ByVal e As

Private Sub modify()

"SECT ,gender ,nationality ,state,religion ,caste,mothertonque,age,fathername,mot

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As

Private Sub ctladdressmaster_Load(ByVal sender As Object, ByVal e As

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

"SECT ,gender ,nationality ,state,religion ,caste,mothertonque,age,fathername,mot

Dim con As New search(qry, TextBox1, TextBox3)

Private Sub ComboBox1_KeyDown(ByVal sender As Object, ByVal e As

Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As

Private Sub DateTimePicker2_KeyDown(ByVal sender As Object, ByVal e As

Private Sub DateTimePicker2_ValueChanged(ByVal sender As System.Object,

Private Sub TextBox10_KeyDown(ByVal sender As Object, ByVal e As

Private Sub TextBox9_KeyDown(ByVal sender As Object, ByVal e As

Private Sub TextBox4_KeyDown(ByVal sender As Object, ByVal e As

Private Sub TextBox12_KeyDown(ByVal sender As Object, ByVal e As

Private Sub ComboBox4_KeyDown(ByVal sender As Object, ByVal e As

Private Sub DateTimePicker1_KeyDown(ByVal sender As Object, ByVal e As

Private Sub ComboBox3_KeyDown(ByVal sender As Object, ByVal e As

Private Sub ComboBox5_KeyDown(ByVal sender As Object, ByVal e As

Private Sub ComboBox7_KeyDown(ByVal sender As Object, ByVal e As

Private Sub ComboBox8_KeyDown(ByVal sender As Object, ByVal e As

Private Sub TextBox5_KeyDown(ByVal sender As Object, ByVal e As

Private Sub TextBox8_KeyDown(ByVal sender As Object, ByVal e As

Private Sub TextBox11_KeyDown(ByVal sender As Object, ByVal e As

Private Sub Button8_KeyDown(ByVal sender As Object, ByVal e As

Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As

Private Sub ctlgroupmaster_KeyDown(ByVal sender As Object, ByVal e As