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
[Link] Staff handling the particular subject to responsible to makethe
attendance of all [Link] 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
 [Link] 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 : [Link]

Back End : Sql Server 2005

3
 3.3 SOFTWARE DESCRIPTION

[Link]

[Link] 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 [Link]

 After the development of .Net, VB was added with more set of controls
and components and thus evolved a new language [Link].
 [Link] 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
 [Link] 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 [Link] 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
 [Link] 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
 [Link] 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
 [Link] CODE

APPLICATION MASTER

Imports [Link]
Public Class Applicationmaster
Private dt As New DataTable("MASTER")
Private Sub Button4_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub

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

[Link]) Handles [Link]
If [Link] = [Link] Then
If TypeOf [Link] Is TextBox Then
[Link]([Link], True, True, True, False)
End If
End If
If ([Link] = [Link]) Then
If (MsgBox("Do you Like to Quit ", [Link]) =
[Link]) Then
[Link]()
End If
End If
End Sub

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

[Link]) Handles [Link]
clear()
[Link] = "&Save"
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link]()
End Sub
Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]

20
 buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub
Private Sub Button5_GotFocus(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

21
 Private Sub Button7_GotFocus(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub
Private Sub clear()
For Each txt As Control In [Link]
If TypeOf txt Is TextBox Or TypeOf txt Is ComboBox Or TypeOf txt Is
DateTimePicker Then
[Link] = ""
End If
Next
End Sub
Private Sub TextBox2_KeyDown(ByVal sender As Object, ByVal e As
[Link])
If ([Link] = [Link]) Then
[Link]()
End If
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
savedata()
[Link]("+{Tab}")
[Link]()
[Link]()
End Sub
Private Function savedata()
If (MsgBox("You Are Going To Save Record", [Link]) =
[Link]) Then
Return 1
Exit Function
End If
If ([Link] = "&Save") Then
Dim con As New dbaction
[Link] = [Link]("Select count(sno) from " & table_str &
"applicationmaster")
ElseIf ([Link] = "&Update") Then
Dim str As String
str = "Delete from " & table_str & "applicationmaster where sno=" &
Val([Link]) & ""

22
 Dim con As New dbaction
[Link](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, [Link])
[Link]("@sno", [Link]).Value = Val([Link])
[Link]("@admissionno", [Link]).Value =
[Link]
[Link]("@studentname", [Link]).Value =
[Link]
[Link]("@standard", [Link]).Value =
[Link]
[Link]("@SECT", [Link]).Value =
[Link]
[Link]("@doa", [Link]).Value =
CDate([Link])
[Link]("@gender", [Link]).Value =
[Link]
[Link]("@nationality", [Link]).Value =
[Link]
[Link]("@state", [Link]).Value =
[Link]
[Link]("@religion", [Link]).Value =
[Link]
[Link]("@caste", [Link]).Value =
[Link]
[Link]("@dob", [Link]).Value =
CDate([Link])

23
 [Link]("@mothertonque", [Link]).Value =
[Link]
[Link]("@age", [Link]).Value = [Link]
[Link]("@fathername", [Link]).Value =
[Link]
[Link]("@mothername", [Link]).Value =
[Link]
[Link]("@occupation", [Link]).Value =
[Link]
[Link]("@monthlyincome", [Link]).Value =
[Link]
[Link]("@address", [Link]).Value =
[Link]
[Link]("@city", [Link]).Value = [Link]
[Link]("@mobileno", [Link]).Value =
[Link]
[Link]("@phoneno", [Link]).Value =
[Link]
[Link]("@schoollaststudy", [Link]).Value =
[Link]
[Link]()
[Link]()
Return 1
[Link]()
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([Link])
Dim con As New dbaction
Dim rd As SqlDataReader
rd = [Link](qry)
If ([Link]) Then
[Link] = [Link](0)
[Link] = [Link](1)
[Link] = [Link](2)
[Link] = [Link](3)

24
 [Link] = [Link](4)
[Link] = [Link](5)
[Link] = [Link](6)
[Link] = [Link](7)
[Link] = [Link](8)
[Link] = [Link](9)
[Link] = [Link](10)
[Link] = [Link](11)
[Link] = [Link](12)
[Link] = [Link](13)
[Link] = [Link](14)
[Link] = [Link](15)
[Link] = [Link](16)
[Link] = [Link](17)
[Link] = [Link](18)
[Link] = [Link](19)
End If
[Link]()
End Sub

Private Sub Button7_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim str As String
str = "Delete from " & table_str & "applicationmaster where sno=" &
Val([Link]) & ""
Dim con As New dbaction
If (MsgBox("You Are Going To Delete the Record", [Link]) =
6) Then
[Link](str)
str = "Delete from " & table_str & "applicationmaster where sno=" &
Val([Link]) & ""
[Link](str)
Else
Exit Sub
End If
[Link]()
End Sub

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

[Link]) Handles [Link]
clear()

25
 End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim cod, min As Integer
cod = Val([Link])
clear()
[Link] = "&Update"
[Link] = cod
If (cod = 0) Then
Dim con As New dbaction
min = [Link]("select min(sno) from " & table_str & "applicationmaster
where sno=" & Val([Link]) & "")
If min = 0 Then
MsgBox("Table is Empty!", [Link])
Exit Sub
Else
cod += 1
End If

Else
cod -= 1
End If
If (cod > 0) Then
[Link] = cod
modify()
Else
MsgBox("This is Beginning Record!", [Link])
[Link] = cod + 1
modify()
End If
End Sub

Private Sub Button6_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim cod, max As Integer
cod = Val([Link])
clear()
[Link] = "&Update"
[Link] = cod
cod += 1

26
 Dim con As New dbaction
max = [Link]("select Max(sno) from " & table_str & "applicationmaster
where sno=" & Val([Link]) & "")
If (max = 0) Then
MsgBox("Table is Empty!", [Link])
Exit Sub
End If
If (cod <= max) Then
[Link] = cod
modify()
Else
MsgBox("End Of Record!", [Link])
[Link] = cod - 2
modify()
End If
End Sub

Private Sub Button3_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
clear()
[Link] = "&Update"
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)

[Link]()
[Link]()
modify()
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

27
 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
[Link], ByVal e As [Link]) Handles
[Link]
If ([Link] = "PREKG") Then
[Link] = False
Else
[Link] = True
End If
End Sub

Private Sub GroupBox1_Enter(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

Private Sub DateTimePicker2_ValueChanged(ByVal sender As [Link],

ByVal e As [Link]) Handles [Link]
Dim d1, d2 As Date
Dim days, months, years As Long
d1 = [Link]
d2 = [Link]
years = Year(d1)
months = Month(d1)
days = [Link]
years = Year(d2) - years
months = Month(d2) - months
days = [Link] - days
If [Link](days) = -1 Then
days = 30 - [Link](days)
months = months - 1
End If
If [Link](months) = -1 Then
months = 12 - [Link](months)
years = years - 1

28
 End If
[Link] = [Link]()
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
If ([Link] <> "") Then
[Link]()
End If
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
If ([Link] <> "") Then
[Link]()
End If
End If
End Sub
Private Sub TextBox6_KeyDown(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If ([Link] = [Link]) Then
If ([Link] <> "") Then
[Link]()
End If
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
If ([Link] <> "") Then
[Link]()
End If
End If
End Sub

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

[Link]) Handles [Link]

29
 If ([Link] = [Link]) Then

[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub
Private Sub ComboBox2_KeyDown(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

30
 Private Sub ComboBox6_KeyDown(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub
Private Sub TextBox7_KeyDown(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

31
 Private Sub MaskedTextBox1_KeyDown(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link])
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

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

[Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub
End Class

Mark Master:
Imports [Link]
Public Class Markmaster
Private dt As New DataTable("ledgermst")
Private supid As Integer
Private Sub Button4_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link]()
End Sub

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

[Link]) Handles [Link]

32
 If [Link] = [Link] Then
If TypeOf [Link] Is ComboBox Then
[Link]([Link], False, False, False, True)
End If
End If
If ([Link] = [Link]) Then
If (MsgBox("Do you Like to Quit ", [Link]) =
[Link]) Then
[Link]()
End If
End If
If ([Link] = [Link]) Then
[Link]("{Tab}")
End If
End Sub

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

[Link]) Handles [Link]
clear()
[Link] = Format(Now(), "dd/MM/yyyy")
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link]()
[Link]()
[Link](0).Cells(0).Value = 1
End Sub
Private Sub Button1_GotFocus(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]

End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]

33
 End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub

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

[Link]) Handles [Link]
buttoncolorrefresh(Button1, Button2, Button3, Button4, Button5, Button6,
Button7)
[Link] = [Link]
End Sub
Private Sub Button2_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
savedata()
[Link]("+{Tab}")
[Link]()

34
 End Sub
Private Function savedata()
Dim lrow As Integer
lrow = [Link] - 1
If (MsgBox("You Are Going To Save Record", [Link]) =
[Link]) Then
Return 1
Exit Function
End If
If ([Link] = "&Save") Then
Dim con As New dbaction
[Link] = [Link]("Select max(sno) from " & table_str &
"exammaster")
ElseIf ([Link] = "&Update") Then
Dim str As String
str = "Delete from " & table_str & "exammaster where sno=" &
Val([Link]) & ""
Dim con As New dbaction
[Link](str)
str = "Delete from " & table_str & "exammaster where sno=" &
Val([Link]) & ""
[Link](str)
End If
If ([Link] > 0) Then
If ([Link](2, lrow).Value = "") Then
MsgBox("Please Delete the Empty Row")
[Link]()
[Link] = [Link](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 [Link] - 1
cmd = New SqlCommand(qry, [Link])
[Link]("@sno", [Link]).Value =
Val([Link])
[Link]("@invdt", [Link]).Value =
[Link]
[Link]("@clas", [Link]).Value =
[Link]
[Link]("@sect", [Link]).Value =
[Link]
[Link]("@examname", [Link]).Value =
[Link]
[Link]("@stuid", [Link]).Value =
Val([Link](1, i).Value)
[Link]("@studentname", [Link]).Value =
[Link](2, i).Value
[Link]("@tamil", [Link]).Value =
Val([Link](3, i).Value)
[Link]("@english", [Link]).Value =
Val([Link](4, i).Value)
[Link]("@maths", [Link]).Value =
Val([Link](5, i).Value)
[Link]("@science", [Link]).Value =
Val([Link](6, i).Value)
[Link]("@socialscience", [Link]).Value =
Val([Link](7, i).Value)
[Link]("@total", [Link]).Value =
Val([Link](8, i).Value)
[Link]("@result", [Link]).Value =
[Link](9, i).Value
[Link]("@grade", [Link]).Value =
[Link](10, i).Value
[Link]("@remark", [Link]).Value =
[Link](11, i).Value
[Link]()
[Link]()
Next
End If
Return 1
End Function

36
 Private Sub ctladdressmaster_Load(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]

clear()
End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim cod, min As Integer
cod = Val([Link])
clear()
[Link] = "&Update"
[Link] = cod
If (cod = 0) Then
Dim con As New dbaction
min = [Link]("select min(sno) from " & table_str & "exammaster
where sno=" & Val([Link]) & "")
If min = 0 Then
MsgBox("Table is Empty!", [Link])
Exit Sub
Else
cod += 1
End If

Else
cod -= 1
End If

If (cod > 0) Then

[Link] = cod
modify()
Else
MsgBox("This is Beginning Record!", [Link])
[Link] = cod + 1
modify()
End If
End Sub

Private Sub Button6_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]

37
 Dim cod, max As Integer
cod = Val([Link])
clear()
[Link] = "&Update"
[Link] = cod
cod += 1
Dim con As New dbaction
max = [Link]("select Max(sno) from " & table_str & "exammaster where
sno=" & Val([Link]) & "")
If (max = 0) Then
MsgBox("Table is Empty!", [Link])
Exit Sub
End If
If (cod <= max) Then
[Link] = cod
modify()
Else
MsgBox("End Of Record!", [Link])
[Link] = cod - 2
modify()
End If
End Sub

Private Sub DateTimePicker1_KeyDown(ByVal sender As [Link],

ByVal e As [Link])

End Sub

Private Sub ComboBox1_KeyDown(ByVal sender As [Link], ByVal e

As [Link])

End Sub
Private Sub ComboBox2_KeyDown(ByVal sender As [Link], ByVal e
As [Link])

End Sub

Private Sub TextBox1_KeyDown(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
If ([Link] = [Link]) Then

38
 [Link]()
End If
End Sub

Private Sub MaskedTextBox1_KeyDown(ByVal sender As [Link],

ByVal e As [Link]) Handles
[Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

Private Sub ComboBox1_KeyDown_1(ByVal sender As [Link], ByVal

e As [Link])
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

Private Sub ComboBox2_KeyDown_1(ByVal sender As [Link], ByVal

e As [Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

Private Sub ComboBox3_KeyDown(ByVal sender As [Link], ByVal e

As [Link]) Handles [Link]
If ([Link] = [Link]) Then
[Link]()
End If
End Sub

Private Sub DataGridView2_KeyDown(ByVal sender As [Link], ByVal

e As [Link]) Handles [Link]
If ([Link] = [Link]) Then
Dim ri As Integer = [Link]
Dim ci As Integer = [Link]
[Link](5, ri).Value = Format(Val([Link](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)
[Link]()
End If
If ci = 3 Then
[Link](8, ri).Value = Val([Link](3,
ri).Value) + Val([Link](4, ri).Value) + Val([Link](5,
ri).Value) + Val([Link](6, ri).Value) + Val([Link](7,
ri).Value)
End If
If ci = 4 Then
[Link](8, ri).Value = Val([Link](3,
ri).Value) + Val([Link](4, ri).Value) + Val([Link](5,
ri).Value) + Val([Link](6, ri).Value) + Val([Link](7,
ri).Value)
End If
If ci = 5 Then
[Link](8, ri).Value = Val([Link](3,
ri).Value) + Val([Link](4, ri).Value) + Val([Link](5,
ri).Value) + Val([Link](6, ri).Value) + Val([Link](7,
ri).Value)
End If
If ci = 6 Then
[Link](8, ri).Value = Val([Link](3,
ri).Value) + Val([Link](4, ri).Value) + Val([Link](5,
ri).Value) + Val([Link](6, ri).Value) + Val([Link](7,
ri).Value)
End If
If ci = 7 Then
[Link](8, ri).Value = Val([Link](3,
ri).Value) + Val([Link](4, ri).Value) + Val([Link](5,
ri).Value) + Val([Link](6, ri).Value) + Val([Link](7,
ri).Value)
End If
If ci = 8 Then
[Link](8, ri).Value = Val([Link](3,
ri).Value) + Val([Link](4, ri).Value) + Val([Link](5,

40
ri).Value) + Val([Link](6, ri).Value) + Val([Link](7,
ri).Value)
If (Val([Link](3, ri).Value) >= 35 And
Val([Link](4, ri).Value) >= 35 And Val([Link](5,
ri).Value) >= 35 And Val([Link](6, ri).Value) >= 35 And
Val([Link](7, ri).Value) >= 35) Then
[Link](9, ri).Value = "Pass"
Else
[Link](9, ri).Value = "Fail"
End If
End If
If ci = 10 Then
If ([Link](8, ri).Value / 5 >= 80) Then
[Link](10, ri).Value = "A+"
ElseIf ([Link](8, ri).Value / 5 <= 79 And
[Link](8, ri).Value / 5 >= 60) Then
[Link](10, ri).Value = "A"
Else
[Link](10, ri).Value = "B"

End If

End If
If ci = 11 Then
If ([Link](8, ri).Value >= 400) Then
[Link](11, ri).Value = "Very Good"
ElseIf ([Link](8, ri).Value <= 399 And
[Link](8, ri).Value >= 300) Then
[Link](11, ri).Value = "Good"
ElseIf ([Link](8, ri).Value <= 299 And
[Link](8, ri).Value >= 200) Then
[Link](11, ri).Value = "Study well"
Else
[Link](11, ri).Value = "Must Study"
End If
End If
Dim con As New gridmethod
[Link](DataGridView2, ri, ci)
'sumgrid()
End If
If [Link] = [Link] Then

41
 [Link](CInt([Link] - 1))
[Link]("{Tab}")
End If
End Sub
Private Sub clear()
For Each txt As Control In [Link]
If TypeOf txt Is TextBox Or TypeOf txt Is ComboBox Or TypeOf txt Is
DateTimePicker Or TypeOf txt Is MaskedTextBox Then
[Link] = ""
End If
Next
[Link]()
[Link] = "&Save"

End Sub

Private Sub Button7_Click(ByVal sender As [Link], ByVal e As

[Link]) Handles [Link]
Dim str As String
str = "Delete from " & table_str & "exammaster where sno=" &
Val([Link]) & ""
Dim con As New dbaction
If (MsgBox("You Are Going To Delete the Record", [Link]) =
6) Then
[Link](str)
End If
[Link]()
End Sub
Private Sub Button3_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
clear()
[Link] = "&Update"
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)
[Link]()
modify()
End Sub
Private Sub modify()

42
 Dim qry As String
Dim con As New dbaction
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([Link])
rd = [Link](qry)
If ([Link]) Then
[Link] = [Link](0)
[Link] = [Link](1)
[Link] = [Link](2)
[Link] = [Link](3)
End If
[Link]()
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([Link])
rd = [Link](qry)
While ([Link])
[Link]()
'[Link](0, i).Value = ri
[Link](1, i).Value = [Link](4)
[Link](2, i).Value = [Link](5)
[Link](3, i).Value = [Link](6)
[Link](4, i).Value = [Link](7)
[Link](5, i).Value = [Link](8)
[Link](6, i).Value = [Link](9)
[Link](7, i).Value = [Link](10)
[Link](8, i).Value = [Link](11)
[Link](9, i).Value = [Link](12)
[Link](10, i).Value = [Link](13)
[Link](11, i).Value = [Link](14)
End While
End Class

43
[Link] SCREEN

44
45
46
47
48
49
 [Link] 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
 [Link]

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
 [Link]

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. [Link] [5 May 2004].

52