SCHOOL MANAGEMENT

Dissertation submitted for the

Partial Fulfillment of Requirement
For the Degree
Bachelor of Computer Application
(2007-2010) Study Center

Krishna College of Professional

Studies
Guided By: Submitted By:
Mr. Hitesh Jain Mr. Vipin Sharma
Miss. Priyanka Garg

Submitted To

MaKhanlal Chaturvedi Rashtriya Patrakarita

Vishwavidyalaya, Bhopal
 Certificate
This is to certify that this project entitled “School Management” done
under Visual Basic 7.0 has been submitted by Mr. Vipin Sharma and Miss.
Priyanka Garg student of Krishna College of Professional Studies, Indore for
the partial fulfillment of the Bachelor of Computer Application course. The
system is here by approved for the grant of the BCA Degree conducted by the
Makhanlal Chaturvedi National University of Journalism, Bhopal.

(EXTERNAL)

(HOD)
(GUIDE)
 ACKNOWLEDGEMENT

I fail to find work is my vocabulary to express my deep sense of

gratitude to my respected teacher Mr. Mohit Yadav Executive Director, Krishna
College of Professional studies Indore (M.P.), whose untiring efforts,
enthusiasm and insistence for perfection, inspired me throughout this work right
form is inception. He has an exalted claim to my gratitude not only for
encouragement but also for the incessant co-operation.
We are sincerely gratefully to my guide Mr. Hitesh Jain faculty of Amit
Raghuvanshi whose valuable guidance and supervision let me to carry out his
work. I shall ever remain thankful to him for his endless support and help in
charring out this work.
In the end I express my since indictors to my mother and father and those who
helped me to achieve this, without their co-operation this would not have been
possible.

Mr. Vipin Sharma

Miss. Priyanka Garg
INDEX
 INDEX

1. INTRODUCTION
2. SYSTEM ANALYSIS AND DESIGN
3. H/W AND S/W DETAIL
4. SYSTEM TESTING
5. DATA FLOW DIAGRAM
6. ER MODEL
7. DATABASE TABLE
8. CODING
9. I/O SCREEN
10. FUTURE ENHANCEMENT
11. BIBLIOGRAPHY
INTRODUCTION
 INTRODUCTION

School Management –
School Management is the project with the help of which we
overcome the problems that are faced by the school administrator to manage the school
responsibilities. First we see the queries of the school administrator then we try to catch out
these queries. So that these project is designed to solve the queries of the school administrator
like to manage Class record, Fees record and the school assets.
School administrator generally faces the problems in the fee management. It is very
difficult to manage the schedule of the teacher or the salary of the teacher. So as to overcome
of these problem these project is designed.
Once upon the time all the records are maintained in the files as the modern age
comes they are converted in to the computer records. So at present when we required any
information any time we can get information within the seconds by access its database.
SYSTEM ANALYSIS
AND DESIGN
 SYSTEM ANALYSIS AND DESIGN

The system development life cycle will be learned with the help of the
Following five concepts:-

1. Recognition of need
2. Feasibility study
3. Analysis
4. Designing
5. Implementation

1. Recognition of need :-
One must know what the problem is before it can be solved.
The basis for a candidate system is recognition of a need for improving an information
system or a procedure. For example, a supervisor may want to investigate the system flow
in purchasing, or bank president has been getting complaints about the long lines in the
drive-in. This need leads to a preliminary survey or an initial investigation to determine
whether an alternative system can solve the problem.

If the problem is serious enough, management may want to have an analyst look at it.
Such an assignment implies a commitment, especially if the analysts hired from the
outside. In large environments, formal procedure are the norm, the analyst first task is to
prepare the statement specifying the scope and objective of the problem.

2. Feasibility study :-
Depending upon the initial investigation, the survey is expanded to
a more detailed feasibility study. Feasibility study is the test of a system proposal
according to its work ability, impact on the organization, ability to meet user needs, and
effective use of resources. It focuses on three major question:

1. What are the user’s demonstrable needs and how does a candidate system meet them?
2. What resources are available for given candidate systems?
3. What is the likely impact of the candidate system on the organization?

Each of these questions must be answer carefully. They revolve around investigation
and evaluation of the problem.
The objective of a feasibility study is not to solve the problem but to acquire a sense
of its scope. During the study, the problem definition is crystallized and aspects of the
problem to be included in the system are determined.
The result of the feasibility study is the formal proposal. This is simply a report- a
formal document detailing the nature and scope of the proposed solution. The proposal
summarizes what is known and what is going to be done. It consists of the statement of
the problem, summary of finding and recommendations.

3. Analysis :-
Analyst is the detailed study of the various operations performed by a
system and their relationships within the and outside of the system. A key question is:
What must be done to solve the problem? One aspect of analysis is defining the
boundaries of the system and determining weather or not a candidate system should
 consider other relating system. During analysis, data are collected on the available
files, decision files, and transactions handled by the present system. Training,
experience and common sense are required for collection of the information needed to
do the analyst.
Once analyst is completed, the analyst has a firm understanding of what is to be
done. The next step is to decide how the problem might be solved. Thus, in system
design, we move from logical to physical aspect of the design to the life cycle.

4. Designing :-
The most creating and the challenging phase of the system
development life cycle is the designing of the system. The term design describes the
final system and the process by which it is developed. It refers to the technical
specification that will be applied in implementing the candidate system. It also
includes the construction of program and program testing. The question is here: How
should the problem is solved? The first step is to determine how the output is to be
produced in what format. Sample of the output are also presented. Second input data
and master files have to be designed to meet the requirement of the proposed output.
The operational phases are handled through program construction and testing.
Including the list of the program needed to meet the system objective and complete
documentation.
Finally detail related to justification of the system and an estimate of the impact of
the candidate system on the user and the organization are documented and evaluated
by the management as a step toward implementation.
The final report prior to the implementation phase includes procedural flowcharts,
records layouts and a workable plan for implementing the candidate system.
Information on personnel, money, hardware facilities and their estimated cost must
also be available. At this point, project cost must be closed to the actual cost of
implementation.

6. Implementation :-
The implementation phase is less creative than system design.
It is primarily concerned with user training, site preparation, and file conversion.
When a candidate system is linked to terminate or remote sites, the
telecommunication network and tests of the network along with the system are also
included under implementation.
During the final testing, user acceptance is tested, followed by user training.
Depending on the nature of the system extensive. User training may be required.
Conversion usually takes place at about the same time the user is being trained or
later.
In the extreme, the programmer is falsely viewed as someone who ought to be
isolated from other aspects of the system development. Programming itself is the
designing work, however the initial parameters of the candidate system should be
modified as the result of the programming efforts. Programming system should be
modified as the result of programming effort. Programming provides a “reality test”
for the assumptions made by the analyst.
It is therefore a mistake to include programmer from the initial system design.
System testing checks the readiness and accuracy of the system to access, update and
retrieve data new files.
H/W AND S/W DETAIL
 H/W AND S/W DETAIL

Hardware Requirement for this Project

Hardware Type version

Computer System Pentium II or higher processor
Memory 32 MB RAM or Higher
CPU clock speed 133 MHz
HDD 10 GB
Output Devices Printer

Software Requirement for this Project

Software Type version
Operating System Windows environment
Software for this Project Visual Basic.net 2008
Supporting Database Microsoft Access
SYSTEM TESTING
 SYSTEM TESTING

Phases of software development:-

Software development is not a one shot activity. This encompasses a series of activities or
phases. Broadly most software projects comprise the following phases:

 Requirement gathering and analysis

 Project planning
 Design
 Development and coding
 Testing
 Implementation/deployment and maintenance

 Requirement gathering and analysis :-

Requirement gathering and analysis
phase is about understanding the user needs. During this phase the specific
requirement of the proposed software is gathered and documented. If the proposed
software is developed for a specific customer, the customer specifies the
requirements. If the project is related to the general purpose software then
requirement is collected from multiple techniques observations, taking interviews and
filling up questionnaires are used to collect requirements.

 Project planning :-
The planning phase is the time when the project team translates
the initial vision/scope, requirement into practical plans on how to achieve it. The
purpose of the planning phase is to define the solution in detail along with the
approved project plan and schedule. This work includes creating a functional
specification, developing the solution architecture and design, and preparing cost
estimates. Team members draw upon their expertise to create detailed individual
plans, such as the development plan, text plan and deployment plan, as well as
schedule for all aspects of the project. Program management combines these
individual plans schedules for all aspects of the project.

 Design :-
In the design phase the architecture is established. This phase starts with
the requirement document delivered by the requirement phase and maps the
requirements into architecture. The architecture defines the component, their interface
and behaviors. There are two types of design are prepared:-
1. High level design
2. Low level design
The purpose of the high level design document is to add the necessary detail to a
current project description to represent model for coding. The low level design will
contain detailed function logic of the model in psecode code database table with all
elements including their type and size all interface detail with complete API
references, all dependency issues error message listing input and output for a module.
The design may include the usage of existing components.
 Development and coding :-
In this phase the designs are translate into code.
Design documents act as a blueprint for the actual coding to proceed. In these phase,
the team builds the components either from scratch or by composition. Computer
programs are written using a conventional programming language or an application
generator. Programming tools like compiler, interpreter, and debuggers are used to
generate the codes. Different high level programming languages like C, C++, Pascal,
java etc are used for coding.

 Testing :-
In these phase the development system is tested. Normally programs are
written as a series of individual modules, and then integrated to make a whole
product. In these phase first each module is tested separately. The system is then
tested as a whole. The separate module are brought together and tested as a complete
system.

 Implementation/deployment and maintenance :-

Once the development
product is tested, it may be given to a customer for deployment at their site. Training
is given to the user for using the product. Now the software is deployed as a pilot run
at a client site. As a user starts using the product is real environment, some
discrepancies may be found in the behavior of the software.
 Types of Testing

We all know the computer system comprises the computer hardware and software. Our
objective is to design tests that systematically uncover different classes of errors and to do
so with the minimum amount of time and effort. Any product can be tested in of the two
ways:-
1. Knowing the specified function that a product has been designed to perform, tests
can be conducted that demonstrate each function is fully operational while at a
same time searching for a error in each function.
2. Knowing the internal workings of the product, tests can be conducted to ensure
that “all gears mesh”, that is internal operations are performed according to
specifications.
In case of software development the first test approach in which we have
to deal with the internal working or structural testing is called Black box testing
and the second in which we have to deal with the internal working or structural
testing is known as White box testing.

There are various types of testing will done on the project which are as follows:-

1. White box testing :-

White box testing is a verification technique that
software engineers can use to examine if their code works as expected. As per
the IEEE “White box testing is the testing that takes into account the
internal mechanism of the system or component”. White box testing is also
known as structural testing, clear box testing and the glass box testing. The
clear box testing and the glass box testing is the appropriately indicate that we
have full visibility of the internal working of the software product,
specifically, the logic and the structure of the code.
Primarily white box testing comprises of two sub streams of testing:-
a. Static testing
b. Dynamic testing

a. Static testing:-
Static testing is a form of software testing where the
actual program or application is not used and analysis of a program is
carried out without executing the program. It is primarily syntax checking
of a code or and manually reading if the code or document to find errors.
This is not a detailed test, it checks only for the sanity of the code,
document and algorithm. Their are three types of static testing which are
as follows:-
1. Desk checking
2. Code walkthrough
3. formal code inspection

b. Dynamic testing:-
Dynamic testing is the testing of the software by
executing and comparing the actual and expected results. It is the testing of
the dynamic behavior of code. In dynamic testing the software must
actually be compiled and run.
 Dynamic testing involves actual working with the software, giving
input values and checking if the output is as expected. This testing is
further divided into three types:-
1. Unit testing
2. Code coverage testing :-
Statement coverage
Path coverage
Condition coverage
Function coverage
3. Code complexity testing
DATA FLOW
DIAGRAM
 DATA FLOW DIAGRAM

Login
Form

Introduction Working with Help Project member

Project

Students Teachers School Report

Record Record Assets Card

ClassI

ClassII

ClassIII

ClassIV

ClassV

ClassVI

ClassVII

ClassVIII
ER MODEL
 ER MODEL

Cost
User Name

Help Password
Name Quantity

Login ID Total Ammount

Introduction Project
Member

School Assets
ID Name Fathersname

Worki
Address Teachers Record
ng
With
Projec
t Report card
Mobileno Salary Subject

Rollno Socialscience

Name Science

ClassI ClassVIII
Lastname Mathematics

ClassII Stude ClassVII

nt
Recor Fathersname Hindi
ClassIII d ClassVI

Mothersnam English
e
ClassVI ClassV

Class Rank

Rolln Fathersname
o
Address Contactno

Name Submitfees
DATABASE TABLE
 DATABASE TABLE
ClassI : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassII : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassIII : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassIV : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassV : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassVI : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassVII : -
Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
ClassVIII : -
 Field_Name Data_Type Length
Rollno Number 10
Name Text 25
Fathersname Text 25
Totalfees Number 5
AssetsRecord : -
Field_Name Data_Type Length
ID Number 10
Name Text 25
Cost Number 25
Quantity Number 5
TotalAmount Number 10
TeachersRecord : -
Field_Name Data_Type Length
ID Number 10
Name Text 25
Fathersname Text 25
Address Text 50
Mob Number 10
Salary Number 5
Subject Text 25
ReportCard: -
Field_Name Data_Type Length
RollNo Number 10
Name Text 25
LastName Text 25
Fathersname Text 25
MothersName Text 25
Class Text 5
ContactNo Number 10
Address Text 50
Rank Text 10
English Text 3
Hindi Text 3
Mathematics Text 3
Science Text 3
SocialScience Text 3
Total Number 3
CODING
 CODING

1. Form 1st - School Management Login Form

2. Form 2nd - Welcome to School Management
3. Form 3rd - Introduction
4. Form 4th - Help
5. Form 5th - Project Member
6. Form 6th - Work with Project
7. Form 7th - Student Record
8. Form 8th - Class I Record
9. Form 9th - Class II Record
10.Form 10th - Class III Record
11.Form 11th - Class IV Record
12.Form 12th - Class V Record
13.Form 13th - Class VI Record
14.Form 14th - Class VII Record
15.Form 15th - Class VIII Record
16.Form 16th - Teachers Record
17.Form 17th - Assets Record
18.Form 18th - Report Card
 1. Form 1st - School Management Login Form

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Me.Close()
End Sub

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

System.EventArgs) Handles Button2.Click
Dim a As String
Dim b As String
a = TextBox1.Text
b = TextBox2.Text
If a = "school" And b = "management" Then
Form2.Show()
MessageBox.Show("Thanks for login", "Welcome", MessageBoxButtons.OK,
MessageBoxIcon.Information)
Me.Hide()
Else
MessageBox.Show("you are invalid user--------------Sorry TRY AGAIN", "ERROR
BOX", MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Sub

End Class
 2. Form 2nd - Welcome to School Management

Public Class Form2

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

System.EventArgs) Handles Button4.Click
Form3.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button1.Click
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button6.Click
Form4.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button5.Click
Form5.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button3.Click
Form6.Show()
Me.Hide()
End Sub

End Class
 3. Form 3rd - Introduction

Public Class Form3

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

System.EventArgs) Handles Button2.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Close()
End Sub

End Class
 4. Form 4th - Help

Public Class Form4

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button2.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Close()
End Sub

End Class
 5. Form 5th - Project Member

Public Class Form5

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

System.EventArgs) Handles Button3.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button4.Click
Form2.Show()
Me.Close()
End Sub

End Class
 6. Form 6th - Work with Project

Public Class Form6

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

System.EventArgs) Handles Button2.Click
Form2.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button4.Click
Form7.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button3.Click
Form16.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button6.Click
Form17.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Button5.Click
Form18.Show()
Me.Hide()
End Sub

End Class
 7. Form 7th - Student Record

Public Class Form7

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

System.EventArgs) Handles Button3.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button1.Click
Form6.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button4.Click
Form1.Close()
Form2.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Label2.Click
Form8.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Label3.Click
Form9.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Label5.Click
Form10.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Label1.Click
Form11.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Label7.Click
Form12.Show()
 Me.Hide()
End Sub

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

System.EventArgs) Handles Label6.Click
Form13.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Label9.Click
Form14.Show()
Me.Hide()
End Sub

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

System.EventArgs) Handles Label8.Click
Form15.Show()
Me.Hide()
End Sub

End Class
 8. Form 8th - Class I Record

Imports System
Imports System.Data
Imports System.Data.OleDb

Public Class Form8

Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

Private Sub Form8_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classI (Rollno,Name,Fathersname,Totalfees) Values ('"
+ TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text +
"')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button1.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button4.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button7.Click
 Dim sql As String = "select *from classI"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classI set Name='" + TextBox2.Text + "',Fathersname='" +
TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classI where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from classI where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
 Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

End Class
 9. Form 9th - Class II Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form9
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)

Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classII (Rollno,Name,Fathersname,Totalfees) Values ('"
+ TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text +
"')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub
 Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button6.Click
Dim sql As String = "update classII set Name='" + TextBox2.Text + "',Fathersname='" +
TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classII"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from classII where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub
 Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classII where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button3.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button1.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button4.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub
End Class
 10.Form 10th - Class III Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form10
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form1.Close()
Form2.Close()
Form7.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classIII where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
 DataGridView1.Show()

End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classIII (Rollno,Name,Fathersname,Totalfees) Values
('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text
+ "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classIII set Name='" + TextBox2.Text + "',Fathersname='"
+ TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text +
"'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classIII"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub
 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from classIII where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button11.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub
End Class
 11.Form 11th - Class IV Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form11
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classIV where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
 DataGridView1.Show()

End Sub

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

System.EventArgs) Handles Button11.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classIV set Name='" + TextBox2.Text + "',Fathersname='"
+ TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text +
"'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classIV"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub
 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from classIV where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classIV (Rollno,Name,Fathersname,Totalfees) Values
('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text
+ "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub

End Class
 12.Form 12th - Class V Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form12
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classV where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
 DataGridView1.Show()

End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classV (Rollno,Name,Fathersname,Totalfees) Values ('"
+ TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text +
"')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classV set Name='" + TextBox2.Text + "',Fathersname='" +
TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classV"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button8.Click
 Dim sql As String = "delete *from classV where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button11.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

End Class
 13.Form 13th - Class VI Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form13
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classVI where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
 DataGridView1.Show()
End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classVI (Rollno,Name,Fathersname,Totalfees) Values
('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text
+ "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classVI set Name='" + TextBox2.Text + "',Fathersname='"
+ TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text +
"'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classVI"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button8.Click
 Dim sql As String = "delete *from classVI where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button11.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

End Class
 14.Form 14th - Class VII Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form14
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classVII where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
 DataGridView1.Show()

End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classVII (Rollno,Name,Fathersname,Totalfees) Values
('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text
+ "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classVII set Name='" + TextBox2.Text + "',Fathersname='"
+ TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" + TextBox1.Text +
"'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classVII"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub
 Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from classVII where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button11.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

End Class
 15.Form 15th - Class VIII Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form15
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from classVIII where Rollno='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
Label8.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
 DataGridView1.Show()
End Sub

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

System.EventArgs) Handles Button2.Click
TextBox5.Text = Val(Label8.Text) + Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into classVIII (Rollno,Name,Fathersname,Totalfees) Values
('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox5.Text
+ "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update classVIII set Name='" + TextBox2.Text +
"',Fathersname='" + TextBox3.Text + "',Totalfees='" + TextBox5.Text + "'where Rollno='" +
TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from classVIII"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button8.Click
 Dim sql As String = "delete *from classVIII where Rollno='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
Label8.Text = ""
End Sub

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

System.EventArgs) Handles Button11.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form7.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

End Class
 16.Form 16th - Teachers Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form16
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from TeachersRecord where ID='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
TextBox4.Text = dr(3)
TextBox5.Text = dr(4)
TextBox6.Text = dr(5)
TextBox7.Text = dr(6)
End While
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into TeachersRecord
(ID,Name,Fathersname,Address,Mob,Salary,Subject) Values ('" + TextBox1.Text + "','" +
TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text + "','"
+ TextBox6.Text + "','" + TextBox7.Text + "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
 TextBox7.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update TeachersRecord set Name='" + TextBox2.Text +
"',Fathersname='" + TextBox3.Text + "',Address='" + TextBox4.Text + "',Mob='" +
TextBox5.Text + "',Salary='" + TextBox6.Text + "',Subject='" + TextBox7.Text + "'where
ID='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from TeachersRecord"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
TextBox6.Clear()
TextBox7.Clear()
End Sub

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

System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from TeachersRecord where ID='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
 TextBox5.Clear()
TextBox2.Clear()
TextBox1.Clear()
TextBox6.Clear()
TextBox7.Clear()
End Sub

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

System.EventArgs) Handles Button11.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form6.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form6.Show()
Me.Close()
End Sub

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

System.EventArgs)
Form7.Close()
Form2.Close()
Form1.Close()
Me.Close()
End Sub

End Class
 17.Form 17th - Assets Record

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form17
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs) Handles Button2.Click
TextBox7.Text = Val(TextBox3.Text) * Val(TextBox4.Text)
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from AssetsRecord where ID='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
TextBox4.Text = dr(3)
End While

Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)

ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()

End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into AssetsRecord(ID,Name,Cost,Quantity,TotalAmount)
Values ('" + TextBox1.Text + "','" + TextBox2.Text + "','" + TextBox3.Text + "','" +
TextBox4.Text + "','" + TextBox7.Text + "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
 TextBox4.Text = ""
TextBox7.Text = ""
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update AssetsRecord set Name='" + TextBox2.Text + "',Cost='" +
TextBox3.Text + "',Quantity='" + TextBox4.Text + "',TotalAmount='" + TextBox7.Text +
"'where ID='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button7.Click
Dim sql As String = "select *from AssetsRecord"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
TextBox4.Clear()
TextBox3.Clear()
TextBox7.Clear()
TextBox2.Clear()
TextBox1.Clear()
End Sub

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

System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from AssetsRecord where ID='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox7.Text = ""
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox4.Clear()
TextBox3.Clear()
TextBox7.Clear()
TextBox2.Clear()
TextBox1.Clear()
End Sub
 Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button11.Click
Form6.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form6.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form1.Show()
Form2.Show()
Me.Close()
End Sub
End Class
 18.Form 18th - Report Card

Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form18
Dim dbpath As String = "C:\School Management.mdb"
Dim ocn As OleDbConnection = New
OleDbConnection("Provider=Microsoft.Jet.OleDb.4.0;Data Source=" & dbpath)

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

System.EventArgs) Handles MyBase.Load
ocn.Open()
End Sub

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

System.EventArgs) Handles Button11.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button13.Click
Form2.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button12.Click
Form6.Show()
Me.Close()
End Sub

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

System.EventArgs) Handles Button10.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
TextBox4.Clear()
TextBox5.Clear()
TextBox6.Clear()
TextBox7.Clear()
TextBox8.Clear()
TextBox9.Clear()
TextBox10.Clear()
TextBox11.Clear()
TextBox12.Clear()
TextBox13.Clear()
TextBox14.Clear()
Label26.Text = ""
 End Sub

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

System.EventArgs) Handles Button5.Click
Dim sql As String = "insert into
ReportCard(RollNo,Name,LastName,FathersName,MothersName,Class,ContactNo,Address,
Rank,English,Hindi,Mathematics,Science,SocialScience,Total) Values ('" + TextBox1.Text +
"','" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "','" + TextBox5.Text
+ "','" + TextBox6.Text + "','" + TextBox7.Text + "','" + TextBox8.Text + "','" +
TextBox9.Text + "','" + TextBox10.Text + "','" + TextBox11.Text + "','" + TextBox12.Text +
"','" + TextBox13.Text + "','" + TextBox14.Text + "','" + Label26.Text + "')"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "record inserted")
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
Label26.Text = " "
End Sub

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

System.EventArgs) Handles Button6.Click
Dim sql As String = "update ReportCard set Name='" + TextBox2.Text +
"',LastName='" + TextBox3.Text + "',FathersName='" + TextBox4.Text + "',MothersName='"
+ TextBox5.Text + "',Class='" + TextBox6.Text + "',ContactNo='" + TextBox7.Text +
"',Address='" + TextBox8.Text + "',Rank='" + TextBox9.Text + "',English='" +
TextBox10.Text + "',Hindi='" + TextBox11.Text + "',Mathematics='" + TextBox12.Text +
"',Science='" + TextBox13.Text + "',SocialScience='" + TextBox14.Text + "',Total='" +
Label26.Text + "'where RollNo='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
MsgBox(res & "updated")
End Sub

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

System.EventArgs) Handles Button8.Click
Dim sql As String = "delete *from ReportCard where RollNo='" + TextBox1.Text + "'"
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim res As Integer = cmd.ExecuteNonQuery()
 MsgBox(res & "deleted")
TextBox1.Text = ""
TextBox4.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""
TextBox12.Text = ""
TextBox13.Text = ""
TextBox14.Text = ""
Label26.Text = ""
End Sub

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

System.EventArgs) Handles Label24.Click
Label26.Text = Val(TextBox10.Text) + Val(TextBox11.Text) + Val(TextBox12.Text) +
Val(TextBox13.Text) + Val(TextBox14.Text)
End Sub

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

System.EventArgs) Handles Button9.Click
Dim sql As String = "select *from ReportCard where RollNo='" + TextBox1.Text + "'"
Dim ds As DataSet = New DataSet()
Dim cmd As OleDbCommand = New OleDbCommand(sql, ocn)
Dim dr As OleDbDataReader = cmd.ExecuteReader()
While dr.Read()
TextBox2.Text = dr(1)
TextBox3.Text = dr(2)
TextBox4.Text = dr(3)
TextBox5.Text = dr(4)
TextBox6.Text = dr(5)
TextBox7.Text = dr(6)
TextBox8.Text = dr(7)
TextBox9.Text = dr(8)
TextBox10.Text = dr(9)
TextBox11.Text = dr(10)
TextBox12.Text = dr(11)
TextBox13.Text = dr(12)
TextBox14.Text = dr(13)
Label26.Text = dr(14)
End While

End Sub
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button2.Click
Dim sql As String = "select *from ReportCard"
Dim ds As DataSet = New DataSet()
Dim ad As OleDbDataAdapter = New OleDbDataAdapter(sql, ocn)
ad.Fill(ds, "sfdsfs")
DataGridView1.DataSource = ds.Tables("sfdsfs")
DataGridView1.Show()
End Sub

End Class
I/O SCREEN
 I/O SCREEN

 Input Screen
 Output Screen
 Input Screen

1. Form 1st - School Management Login Form

2. Form 2nd - Welcome to School Management
3. Form 3rd - Introduction
4. Form 4th - Help
5. Form 5th - Project Member
6. Form 6th - Work with Project
7. Form 7th - Student Record
8. Form 8th - Class I Record
9. Form 9th - Class II Record
10. Form 10th - Class III Record
11. Form 11th - Class IV Record
12. Form 12th - Class V Record
13. Form 13th - Class VI Record
14. Form 14th - Class VII Record
15. Form 15th - Class VIII Record
16. Form 16th - Teachers Record
17. Form 17th - Assets Record
18. Form 18th - Report Card
Form 1st - School Management Login Form
Form 2nd - Welcome to School Management
Form 3rd - Introduction
Form 4th - Help
Form 5th - Project Member
Form 6th - Work with Project
Form 7th - Student Record
Form 8th - Class I Record
Form 9th - Class II Record
Form 10th - Class III Record
Form 11th - Class IV Record
Form 12th - Class V Record
Form 13th - Class VI Record
Form 14th - Class VII Record
Form 15th - Class VIII Record
Form 16th - Teachers Record
Form 17th - Assets Record
Form 18th - Report Card
 Output Screen

1. Form 1st - School Management Login Form

2. Form 2nd - Welcome to School Management
3. Form 3rd - Introduction
4. Form 4th - Help
5. Form 5th - Project Member
6. Form 6th - Work with Project
7. Form 7th - Student Record
8. Form 8th - Class I Record
9. Form 9th - Class II Record
10. Form 10th - Class III Record
11. Form 11th - Class IV Record
12. Form 12th - Class V Record
13. Form 13th - Class VI Record
14. Form 14th - Class VII Record
15. Form 15th - Class VIII Record
16. Form 16th - Teachers Record
17. Form 17th - Assets Record
18. Form 18th - Report Card
Form 1st - School Management Login Form
Form 2nd - Welcome to School Management
Form 3rd - Introduction
Form 4th - Help
Form 5th - Project Member
Form 6th - Work with Project
Form 7th - Student Record
Form 8th - Class I Record
Form 9th - Class II Record
Form 10th - Class III Record
Form 11th - Class IV Record
Form 12th - Class V Record
Form 13th - Class VI Record
Form 14th - Class VII Record
Form 15th - Class VIII Record
Form 16th - Teachers Record
Form 17th - Assets Record
Form 18th - Report Card
 FUTURE
ENHANCEMENT
 FUTURE ENHANCEMENT

Student can see their own detail without any hesitation. The fee will be
pay online their is no need to go to school and pay fee. Parents can see the
details of the school online. So that parents can sure about its kids future.
Students and teachers meeting are also done online. So that time will save and
everyone is responsible for that.
BIBLIOGRAPHY
 BIBLIOGRAPHY

Mastering Visual Basic - Peter Evanbulours

Visual Basic 7.0 - Black Books

Software Engineering - Tenen Baum

Oracle/SQL - Evan Bayros