A Project Report On School Management System

A
PROJECT REPORT
ON
“SCHOOL MANAGEMENT SYSTEM”
Session (2018-2021)
SUBMITTED BY:-
Name- Paras Chaudhary

Roll No :- 180624106030
Class- BCA 6th SEM
SUBMITTED TO:
Project Guide:- H.O.D:-

Mr. Mohit Kumar Tyagi Mr. Mohit Kumar Tyagi
Director Coordinator
Dr. Nitin Singh Ms. Ritu Singh
NEELKANTH VIDYAPEETH PAWLI KHAS,

MODIPURAM, MEERUT
A
PROJECT REPORT
ON
“SCHOOL MANAGEMENT SYSTEM”
Session (2018-2021)
SUBMITTED BY:-
Name- Paras Chaudhary

Roll No :- 180624106030
Class- BCA 6th SEM
SUBMITTED TO:
Project Guide:- H.O.D:-

Mr. Mohit Kumar Tyagi Mr. Mohit Kumar Tyagi
Director Coordinator
Dr. Nitin Singh Ms. Ritu Singh
NEELKANTH VIDYAPEETH PAWLI KHAS,

MODIPURAM, MEERUT
ACKNOWLEDGEMENT
The satisfaction that accompanies successful completion of any work would be
incomplete without the mention of the people who made it possible.
Primarily, I would like to thank my faculty members for giving me the opportunity
to fulfill my aspiration. With deep sense and regards, I am obliged to Mr. Mohit
Kumar Tyagi , Project Guide and project coordinator, as he had a direct
influence, some way, in my motivation and gratefulness for being part of the
responsible project guide of the institute. I am very thankful to him for his
valuable guidance and remarkable patience in guiding my work to its fulfillment.
I wish to thank my parents for their constant encouragement which is like snow, so
after when it falls and longer when it falls and longer when it dwells upon, the
deeper it sinks in mind.
I will be failing in my mission if I do not thank other people who directly or
indirectly helped me in the successful completion of this project.
So, my heart full thanks to all friends maiSnly who supported and encouraged me
in preparing this project report as best as possible.
PARAS CHAUDHARY
BCA VI SEM
ROLL NO. (180624106030)
DECLARATION
This is to be certify that this Project Report entitled “SCHOOL
MANAGEMENT SYSTEM” which is submitted by PARAS
CHAUDHARY (180624106030), in the partial fulfillment, for the
award of degree of Bachelor of Computer Application in
Department of Computer Application, of NEELKANTH
VIDYAPEETH PAWLIKHAS MODIPURAM, Meerut,
affiliated to CHAUDHARY CHARAN SINGH UNIVERSITY,
MEERUT (U.P.); is carried out by him/her under my supervision.
The matter embodied in this Project Work has not been submitted
earlier for award of any degree or diploma in any
university/institution to the best of our knowledge and belief.
(Mr. Mohit Kumar Tyagi) (Mr. Mohit Kumar Tyagi (Mr. Nitin Singh)
Project Guide Head of the Department Director
Date: __/__/____
ABSTRACT
This project work is extended to those who are interested in Visual

Basic. This project work includes the information about School
Management System as well as reports. You may be able to proced
more quickly programers related to school management.
Although the concept about the new system are discussed in

various chapters but knowledge of computer is required to follow
the comments of this project work. I faced some difficulties in
selecting the meterial for this work. My Study Center given me
some ideas, how prepare this project. I also faced some problem
during compilation of programs. I used Visual Basic to complete
all the programs, besides these I fully could not utilizes the many
features of Visual Basic and hence I might be provide a bit
facilities in this software.
I update the project is feature and welcome your comments and

suggestions.
TABLE OF CONTENTS
 DECLARATION 2
 CERTIFICATE 3
 ACKNOWLEDGEMENT 4
 ABSTRACT 5
 INTRODUCTION AND OBJECTIVES 7
 FEASIBILITY STUDY/REQUIREMENT ANALYSIS 8
 SYSTEM REQUIREMENTS 9
 SDLC 11
 DFD 13
 E-R DIAGRAM 15
 INPUT & OUTPUT FORMS 16
 DATABASE 29
 CODING 35
 TESTING 81
 ADVANTAGES 90
 FUTURE SCOPE 91
 CONCLUSION 92
 REFRENCES 93
Introduction to School
Management
School is one of the basic necessities of Human beings.
School is like heaven and the teacher is god for the student.
School management is a very wide field and this work

needs a lot of personnel to run this management as any
other organization. We all are aware of vast expenses of this
field.
School is a place where student can read and acquire

knowledge.
Campus of the School: - A school is a huge building

containing many compartments. There are many rooms.
Few rooms are awarded to staff in a well-managed school
where there is a different room for each faculty.
This package is developed for handling school management

in a simple way. The package uses a variety of tool to
handle school management system.
This package has been developed in visual basic 6.0. So
that user can interact with the package in s simpler and easy
way.
FEASIBILITY STUDY
Feasibility study is made to see if the project on completion

will serve the purpose of the organization for the amount of
work, effort and the time that spend on it. Feasibility study
lets the developer foresee the future of the project and the
usefulness.

The document provide the feasibility of the project that
is being designed and lists various areas that were
considered very carefully during the feasibility study of this
project such as Technical, Economic and behavioral
feasibility.
REQUIREMENT FROM NEW
SYSTEM
The advent of computer in commercial application has

brought about in the industrial environment. Computerization has
made its presence felt in every area Of commercial application and
exception and requirement from Computerized system 1ist
increasing due to growing complexity and requirement .The new
proposed computerized School Management system needs to fulfill
following requirements: -
 Providing information as per statuary requirements whenever

necessary.
 Saving in storage space required for keeping voluminous data.
 Saving in cost in terms of manpower.
 Automatic recognition of menus and preparation of final
reports.
 Elimination of substantial manual efforts involved in posting
entries in various menus.
 Availability of any information on hands regarding school
management system.
System configuration
SCHOOL MANAGEMENT SYSTEM
HARDWARE REQUIREMENT
PROCESSOR PENTIOUM 100 MHz
OPRATING SYSTEM WINDOWS 95/98
RAM 32 MB
HARD DISK 1.2 GB

SDLC
SYSTEM ANALYSIS:
Analysis is detailed study of the various operations
performed by a system and their relationship within and outside of
the system .It is considered one of the most important phases of the
development life cycle. System analysis is done order to
understand the problem, which the system should save.
Requirement Analysis: -
Requirement analysis is the first technical step in the

software engineering process. It is at this point that general
statement of software is refined into concrete specification
that becomes the foundation for all software engineering
activities that follow. Requirement analysis enables to
specify software function, performance and establish
constraints that software must meet .It provides the
software designer with a representation of information and
function that be translated into data, architecture and
procedural design. Software requirement analysis may be
divided into five areas if effort: -
* System study
* Problem recognition
* Evaluation and synthesis
* Specification
* Review
System Design
For designing this package a good skill of knowledge is
required for making good control on its management.
Commercial knowledge is also essential for developing this
type of project.
This system is designed in Visual Basic 6 using form

connected with each other by event driven programming.
This package has a good option that it may use to other
school management system.
Various types of controls are used to make it effectively.

This is used only by its authorized users and after confirming
the password so that an unauthorized user may not lose any
data.
The different steps involves in system design are:
 Identification of module of the system

 Design of database
 Data flow diagram
 Design of input screens and reports
After the final design, development is done module wise.

The module was design facilitates the development of the
system in a structured way by developing the similar type of
sub-module together.
DATA FLOW DIAGRAMS
DFD for Login Module
Verifying User Name Enter Administrator/User

Ok
Password and Password
Administrator
User
User
Rejected Password
Login File
DFD for Student process
File
User Item Item Code

Details School process
Updating process
Item
Quotation Details
Student process Stock File
Information
Student File
Information File
Faculty Details DFD.
Item code
Information Faculty Process Updating process

User
Details
Quotation
Stock File
ENTITY RELATIONSHIP DIAGRAMS
STUDENT
Name Address
Surname Cast
Student ID Religion
Date of Birth Study
Class
Faculty
Name
Faculty Id
Surname
Subject
Address
Qualification
Date of Joining
INPUT & OUTPUT
SAMPLE
Description: -
This form takes password from the user and validates
us to enter if it is correct.
Description: -
This is the main entry form of this project where
different command button regarding school
management is given.
Description: -
This form describes all the information related to
admission query with particulars
Description: -
student information with full particulars.
Description: -
information regarding appointment of teacher with
full particulars.
Description: -
searching the information regarding teachers with full
particulars.
Description: -
various account including receipt, payment, exp.
According to date wise.
Description: -
daily expenses including full particulars with current
date.
Description: -
This is Receipt form, which describes all the
information regarding receipt from student includes
student id, name, class, fee, date, month etc. related
to particular student.
Description: -
This is voucher entry form, which describes all the
information regarding payment of staff related to
particular teacher.
Description: -
This is Transfer Certificate form, which describes all
the information regarding Transfer Certificate include
TC Number, student id, class date & year of
particular student.
Description: -
This form describes the list of student which fees is
due according to according to class & month.
Database Design
A database is certainly control, integrated collection of
logically organized data. Before we use a DBMS to actually
build the tables, forms and other objects that will make up
our Database, it is important to take time to design our
database. A good database design is keystone to creating a
database that dose what you want it to do effectively,
accurately and efficient.
Steps in Designing Database
 Determine the purpose of database.

 Determine the tables you need in the database.
 Determine the fields you need in the database.
 Identify fields with unique values.
 Determine the relations between tables.
 Add data and create other data base object.
TABLE STRUCTURE
New Student Information Table
Description: this table describes the all the information related to

admission query of the student.
Field name Data Type Descriptions

Field1 Auto number Student_id
Field2 Text Name
Field3 Text Father name
Field4 Text Relations
Field5 Text Mother name
Field6 Date Dob
Field7 Text Occupation
Field8 Text Address
Field9 Date Ad_date
Field10 Text C_status
Field11 Text Past
Field12 Text Class
Field13 Text Cast
Field14 Text Other
Field15 Text Fee
Field16 Text Medium
Accounts Table
expenses, payment, and receipt account.

Cdate Date Current date
Expenses Number Exp. Detail
Payment Number Payment detail
Receipt Number Receipt detail
Expenses Table

description of total expenses with particular.

Particular Text Particular Detail
Amount Number Amount detail
Description Text Description detail
Receipt Table
description of total Receipt with particular.

Receipt_no Number Receipt Detail
Student_id Number Student Identification
Name Text Name of student
Class Text Class of student
Amount Number Amount of fee
Month Text Month of fee
Staff Information Table

description of total staff with particular.

Teacher_id Number Teacher_id no
Qualification Text Qualification of
Student
Doj Date Date of joining
Salary Number Total salary
Address Text Full address
M_status Text Marital status
Age Number Age
Sex Text Sex
Status Text Working/past
Student Information Table
description of student with particular.

Student_id Number Teacher_id no
Father_name Text Father name of
Student
Relation Text Relation with student
Mother_name Text Mother name of
student
Dob Date Date of birth
Occupation Text Occupation
Address Text Full address
Ad_date Text Admission date
C_Status Text Working/past
Past Text Previous class
Class Text Current class
Cast Text Student cast
Other Text Other info.
Fees Text Fee PM
Medium Text Medium of study
Transfer Certificate Table

description of transfer certificate with particular.

C_date Date Current date
Tc_no Number TC no. Of student
Student_id Number ID no. Of Student
Class Text Class of student
Year Number Current Year
Voucher Entry Table

description of voucher entry with particular.

C_date Date Current date
Voucher_no Number Current Voucher no.
Teacher_id Number ID no. Of teacher
Name Text Name of teacher
Amount Number Total amount
Month Text Current month
CODING
Developing this project here are design the
various form for coding. These forms are as
following:
 Account.frm
 Expenses.frm
 Fees.frm
 Find.frm
 Find_t.frm
 Frmlogin.frm
 Logo.frm
 Receipt.frm
 Schoolform.frm
 Staff.frm
 Student.frm
 Tc.frm
 Voucher.frm
Modules:
 School.bas
Form name: Account.frm
Coding:
Option Explicit
Private Sub Command1_Click()

Unload Me
End Sub

Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
'Text5 = ""
Text1.SetFocus
End Sub
Dim va As Integer, te As Long, cds As Variant
Text1 = Format(Text1, "dd/mm/yyyy")
va = Val(Right(Text1, 4))
If va > Year(Date) Then
MsgBox "Invalid Year"
Text1.SelStart = 6
Text1.SelLength = 4
Text1.SetFocus
Exit Sub
End If
If Mid(Text1, 4, 2) > 12 Then
MsgBox "Invalid Month"
Text1.SelStart = 3
Text1.SelLength = 2
Text1.SetFocus
Exit Sub
End If
If Not IsDate(Text1) Then
MsgBox "Invalid Date"
Text1.SelStart = 7
Text1.SelLength = 10
Text1.SetFocus
Exit Sub
End If
cds = "#" + Trim(Text1) + "#"
'cd = CDate(Text1)
With rd_account
'.RecordSource = "select distinct
sum(expenses),sum(payment),sum(receipt) from [account] where
cdate <='" & cd & "'"
.RecordSource = "select distinct * from [account] where cdate = "
+ cds + ""
.Refresh
If .Recordset.RecordCount = 0 Then
MsgBox "Record not found"
Exit Sub
End If
Dim str, ste, stp As Long
If Not IsNull(.Recordset.Fields(2)) Then
ste = Val(.Recordset.Fields(2))
Else
ste = 0
End If
stp = Val(.Recordset.Fields(0))
Else
stp = 0
End If
str = Val(.Recordset.Fields(1))
Else
str = 0
End If
'Text5 = ste - (stp + str)

End With
rd_account.RecordSource = "select * from [account] where
cdate=" & cds & ""
rd_account.Refresh
If rd_account.Recordset.RecordCount <> 0 Then
Text2 = rd_account.Recordset("receipt")
Text3 = rd_account.Recordset("payment")
Text4 = rd_account.Recordset("expenses")
rd_account.Recordset.Close
Else
Text2 = 0
Text3 = 0
Text4 = 0
End If
End Sub
Private Sub Text1_Change()

If Len(Text1) >= 2 Then
If Len(Text1) = 2 Then
Text1 = Text1 & "/"
Text1.SelStart = 4
ElseIf Len(Text1) = 5 Then
Text1 = Text1 & "/"
Text1.SelStart = 7
End If
If Val(Left(Text1, 2)) > 31 Or Val(Left(Text1, 2)) < 1 Then
MsgBox "Enter the Right Date"
Text1.SelStart = 0
Text1.SelLength = 2
Text1.SetFocus
End If
End If
Text2 = ""
Text3 = ""
Text4 = ""
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Command3_Click
End Sub
Form name: Expenses.frm
Coding:
Option Explicit

Unload Me
End Sub
Private Sub Form_Activate()

cashin_hand
End Sub
Private Sub Form_Load()

Text1 = Format(Date, "dd/mm/yyyy")
End Sub

Text1 = Text1 & "/"
Text1.SelStart = 4
Text1 = Text1 & "/"
Text1.SelStart = 7
End If
End Sub
Dim ta As Long, cd As String
If Not IsDate(Text1) Then
MsgBox "Please Fill the Date"
Text1.SetFocus
ElseIf Trim(Text2) = "" Then
MsgBox "Please Fill the Particular Entry"
Text2.SetFocus
ElseIf Not IsNumeric(Text3) Then
MsgBox "Invalid Amount Entry"
Text3.SetFocus
Else
With rd_expenses
.RecordsetType = 0
.RecordSource = "expenses"
.Refresh
.Recordset.AddNew
With rd_expenses.Recordset
.Fields("cdate") = Text1
.Fields("Particular") = Text2
.Fields("amount") = Text3
.Fields("Description") = Text4
.Update
.Close
End With
.RecordsetType = 1
cd = "#" & Text1 & "#"
.RecordSource = "select expenses from [account] where cdate="
& cd & ""
.Refresh
If .Recordset.RecordCount <> 0 Then
ta = Val(.Recordset.Fields("expenses")) + Val(Text3)
rd_expenses.Database.Execute "update [account] set expenses=
+ " & ta & " where cdate=" & "#" & Text1 & "#" & ""
Else
.RecordsetType = 0
.RecordSource = "account"
.Refresh
.Recordset.AddNew
.Recordset.Fields("cdate") = Text1
.Recordset.Fields("expenses") = Val(Text3)
.Recordset.Fields("payment") = 0
.Recordset.Fields("receipt") = 0
.Recordset.Update
.Recordset.Close
End If
If MsgBox("Record Has Been Saved,Do you want to add more",
vbYesNo) = vbYes Then
Text2 = ""
Text3 = ""
Text4 = ""
Text2.SetFocus
cashin_hand
Else
Unload Me
End If
End With
End If
End Sub
Private Sub Text2_LostFocus()

Text2 = Trim(StrConv(Text2, 3))
End Sub
Text4 = Trim(StrConv(Text4, 3))
End Sub
Private Sub cashin_hand()

Dim cd As String
cd = "#" & Trim(Text1) & "#"
With rd_expenses
.RecordsetType = 1
.RecordSource = "select distinct
sum(expenses),sum(payment),sum(receipt) from [account] where
cdate <=" + cd + ""
.Refresh
Dim str, ste, stp As Long
ste = Val(.Recordset.Fields(2))
Else
ste = 0
End If
stp = Val(.Recordset.Fields(0))
Else
stp = 0
End If
str = Val(.Recordset.Fields(1))
Else
str = 0
End If
'Label6.Caption = (ste - (stp + str))
End With
End Sub
Form name: fees.frm
Coding:
Option Explicit
Private Sub add_combo()

With Combo1
.Clear
.AddItem "NURSERY"
.AddItem "L.K.G."
.AddItem "U.K.G."
.AddItem "1st"
.AddItem "2nd"
.AddItem "3rd"
.AddItem "4th"
.AddItem "5th"
.AddItem "6th"
.AddItem "7th"
.AddItem "8th"
.AddItem "9th"
.AddItem "10th"
.AddItem "11th"
.AddItem "12th"
.ListIndex = 0
End With
With Combo2
.Clear
.AddItem "January"
.AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
.ListIndex = Month(Date) - 1
End With
End Sub
Dim I, J, Tr, Id(100) As Integer, Nam(100), Fnam(100) As String,
Sql As String
J=0
SHOWGRID
Sql = "SELECT DISTINCT * FROM [STUDENT] WHERE
CLASS='" & Combo1.Text & "'AND C_STATUS='True'"
With Rd_Fees
.RecordSource = Sql
.Refresh
Tr = .Recordset.RecordCount
For I = 1 To Tr
Id(I) = .Recordset.Fields("Student_Id")
Nam(I) = .Recordset.Fields("name")
Fnam(I) = .Recordset.Fields("father_name")
.Recordset.MoveNext
Next
.Recordset.Close
For I = 1 To Tr
Sql = "SELECT DISTINCT * FROM [RECEIPT] WHERE
STUDENT_ID=" & Id(I) & " AND MONTH ='" & Combo2.Text
& "'"
.RecordSource = Sql
.Refresh
J=J+1
MSFlexGrid1.Row = J
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = Nam(I)
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = Fnam(I)
End If
.Recordset.Close
Next
End With
End Sub

Unload Me
End Sub

add_combo
End Sub
Private Sub SHOWGRID()

With MSFlexGrid1
.Clear
.Row = 0
.Col = 0
.Text = "Student Name"
.Col = 1
.Text = "Father's Name"
.ColWidth(0) = 1500
.ColWidth(1) = 1500
End With
End Sub
Form name: find.frm
Coding:
Option Explicit
Private Sub Combo1_Click()
ShowGridData
End Sub

ShowGridData
End Sub

Dim Sql As String
MSFlexGrid1.Col = 0
If MSFlexGrid1.Text = "" Then
MsgBox "Invalid Selection"
Exit Sub
End If
Sql = "SELECT distinct * FROM [STUDENT] WHERE
student_id=" & MSFlexGrid1.Text & " "
Data1.RecordSource = Sql
Data1.Refresh
If OpenFor = "student" Then
Load student
With student
.Text1 = Data1.Recordset.Fields("student_id")
.Text2 = Data1.Recordset.Fields("ad_date")
.Text3 = Data1.Recordset.Fields("name")
.Text4 = Data1.Recordset.Fields("father_name")
.Text5 = Data1.Recordset.Fields("mother_name")
.Text6 = Data1.Recordset.Fields("relation") & ""
.Text8 = Data1.Recordset.Fields("cast")
.Text9 = Data1.Recordset.Fields("other") & ""
.Text10 = Data1.Recordset.Fields("dob") & ""
.Text11 = Data1.Recordset.Fields("occupation")
.Text12 = Data1.Recordset.Fields("address")
.Text13 = Data1.Recordset.Fields("fees") & ""
.Text14 = Data1.Recordset.Fields("past") & ""
.Combo1 = Data1.Recordset.Fields("medium")
.Combo2 = Data1.Recordset.Fields("c_status")
.Combo3 = Data1.Recordset.Fields("class")
.Text1.Enabled = False
.Combo1.Enabled = False
If Combo2.ListIndex = 1 Then
.Command3.Enabled = False
.Command3.Visible = False
Else
.Command3.Visible = True
.Command3.Enabled = True
End If
.Command1.Enabled = False
.Label1.Caption = "Student Information"
Unload Me
.Show
End With
ElseIf OpenFor = "tcc" Then
With TC
If Combo2.Text = "Past" Then .Command3.Enabled = False
.Text3 = Data1.Recordset.Fields("student_id")
.Text4 = Data1.Recordset.Fields("name")
.Text5 = Data1.Recordset.Fields("class")
.Text6 = Year(Data1.Recordset.Fields("ad_date"))
'Unload Me
.Show 1
End With
ElseIf OpenFor = "ReceiptEntry" Then
Load Receipt
Receipt.Text2 = Data1.Recordset.Fields("student_id")
Receipt.Text3 = Data1.Recordset.Fields("name")
Receipt.Text4 = Data1.Recordset.Fields("class")
'Unload Me
Receipt.Show 1
End If
End Sub

Unload Me
End Sub
Private Sub Form_Initialize()
add_combo
End Sub

add_combo
End Sub
Private Sub MSFlexGrid1_dblClick()

Command1_Click
End Sub
Private Sub MSFlexGrid1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then Command1_Click
End Sub

ShowGridData
End Sub
Public Sub add_combo()

With Combo1
.Clear
.AddItem "ALL"
.AddItem "NURSERY"
.AddItem "L.K.G."
.AddItem "U.K.G."
.AddItem "1st"
.AddItem "2nd"
.AddItem "3rd"
.AddItem "4th"
.AddItem "5th"
.AddItem "6th"
.AddItem "7th"
.AddItem "8th"
.AddItem "9th"
.AddItem "10th"
.AddItem "11th"
.AddItem "12th"
.ListIndex = 0
End With
Combo2.Clear
Combo2.AddItem "Present"
Combo2.AddItem "Past"
Combo2.ListIndex = 0
End Sub
Private Sub ShowGridData()

Dim Sql, ab As String, st As String
ab = StrConv(Trim(Text1), 3) & "*"
If Combo1.Text = "ALL" Then
If Combo2.Text = "Present" Then
st = True
Sql = "SELECT distinct * FROM [STUDENT] WHERE NAME
LIKE '" & ab & "' And c_status='" & st & "'"
Else
st = False
LIKE '" & ab & "' And c_status='" & st & "'"
End If
Else
If Combo2.Text = "Present" Then
LIKE '" & ab & "' and class='" & Combo1 & "' And
c_status='True'"
Else
LIKE '" & ab & "' and class='" & Combo1 & "' And
c_status='False'"
End If
End If
Data1.Refresh
Dim I As Integer
Dim s As String
With MSFlexGrid1
.Clear
.Row = 0
.Col = 0
.Text = "Student ID"
.Col = 1
.Text = "Student Name"
.Col = 2
.Text = "Father's Name"
.Col = 3
.Text = "Class"
.ColWidth(0) = 1000
.ColAlignment(3) = 1
.ColWidth(1) = 2000
.ColWidth(2) = 2000
.ColWidth(3) = 1300
For I = 1 To Data1.Recordset.RecordCount
.Row = I
.Col = 0
.Text = Data1.Recordset.Fields("Student_ID")
.CellAlignment = 3
.Col = 1
.Text = Data1.Recordset.Fields("name")
.Col = 2
.Text = Data1.Recordset.Fields("Father_name")
.Col = 3
.Text = Data1.Recordset.Fields("Class")
Data1.Recordset.MoveNext
Next
End With
End Sub
Form name: find_t.frm
Coding:
Option Explicit

addgrid
End Sub

Dim Sql As String
MSFlexGrid1.Col = 1
Sql = "SELECT distinct * FROM [STAFF] WHERE
Teacher_id=" & MSFlexGrid1.Text & " "
If MSFlexGrid1.Text <> "" Then
Data1.Refresh
If OpenFor = "Editing" Then
Load staff
With staff
.Text1 = Data1.Recordset.Fields("Teacher_id")
.Text2 = Data1.Recordset.Fields("Name")
.Text3 = Data1.Recordset.Fields("Age")
.Text4 = Data1.Recordset.Fields("DOJ")
.Text5 = Data1.Recordset.Fields("Qualification")
.Text6 = Data1.Recordset.Fields("Address") & " "
.Text8 = Data1.Recordset.Fields("Salary")
.Combo1 = Data1.Recordset.Fields("Sex")
.Combo2 = Data1.Recordset.Fields("m_status")
.Combo3 = Data1.Recordset.Fields("status")
If Combo1.ListIndex = 1 Then
.Label12.Caption = "Left Date =>" &
Data1.Recordset.Fields("left_date")
Else
.Command7.Visible = True
End If
.Show 1
End With
ElseIf OpenFor = "VoucherEntry" Then
Load voucher
voucher.Text3 = Data1.Recordset.Fields("Teacher_id")
voucher.Text4 = Data1.Recordset.Fields("Name")
voucher.Show 1
End If
End If
End Sub

Unload Me
End Sub

addgrid
End Sub

Combo1.AddItem "Working"
Combo1.AddItem "Left"
End Sub
Private Sub MSFlexGrid1_dblClick()

Command1_Click
End Sub

addgrid
End Sub
Private Sub addgrid()

Dim Sql, ab As String
ab = StrConv(Trim(Text2), 3) & "*"
Sql = "SELECT distinct * FROM [staff] WHERE NAME LIKE '"
& ab & "' and status='" & Combo1.Text & "'"
Data1.Refresh
Dim I As Integer
Dim s As String
With MSFlexGrid1
.Clear
.Row = 0
.Col = 1
.Text = "Teacher ID"
.Col = 2
.Text = "Teacher Name"
.Col = 3
.Text = "Address"
.ColWidth(0) = 500
.ColWidth(1) = 1000
.ColWidth(2) = 2000
.ColWidth(3) = 2100
For I = 1 To Data1.Recordset.RecordCount
.Row = I
.Col = 1
.Text = Data1.Recordset.Fields("Teacher_ID")
.CellAlignment = 3
.Col = 2
.Text = Data1.Recordset.Fields("name")
.Col = 3
.Text = Data1.Recordset.Fields("Address")
Data1.Recordset.MoveNext
.SelectionMode = flexSelectionByRow
Next
End With
End Sub
Form name: frmlogin.frm
Coding:
Option Explicit
Private Sub cmdCancel_Click()

Unload Me
End Sub
Private Sub cmdOK_Click()

If txtPassword = "password" Then
Load logo
logo.Show
Unload Me
Else
MsgBox "Invalid Password, try again!"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
End Sub
Form name: logo.frm
Coding:
Option Explicit

Load student
student.create_ids
student.Show
End Sub

Load fees
fees.Show 1
End Sub

Load find
OpenFor = "tcc"
find.Label1.Caption = "Select A Student From List"
find.Show 1
End Sub

Load staff
staff.Show 1
End Sub

Load account
account.Show 1
End Sub

Load find
OpenFor = "ReceiptEntry"
find.Show 1
End Sub

Load FIND_T
OpenFor = "VoucherEntry"
FIND_T.Label1.Caption = "Select A Teacher From List"
FIND_T.Show 1
End Sub

Load find
OpenFor = "student"
find.Show 1
End Sub

Load FIND_T
OpenFor = "Editing"
FIND_T.Show 1
End Sub

If MsgBox(" Do You Want To Exit", vbYesNo, "Exit
Confirmation.....") = vbYes Then
Unload school
Unload TC
Unload Receipt
Unload staff
Unload voucher
Unload find
Unload FIND_T
End If
End Sub

Load Expenses
Expenses.Show 1
End Sub
Private Sub Timer1_Timer()

Dim da As String
With Rd_logo
.RecordsetType = 1
.RecordSource = "SELECT distinct * FROM [STUDENT]
WHERE C_STATUS='True'"
.Refresh
Label5.Caption = .Recordset.RecordCount
.RecordSource = "SELECT distinct * FROM [Staff] WHERE
STATUS='Working'"
.Refresh
da = "#" & Format(Date, "DD/MM/YYYY") & "#"
.RecordSource = "SELECT distinct * FROM [ACCOUNT]
WHERE cdate=" & da & ""
.Refresh
.Recordset.Close
.RecordsetType = 0
.Refresh
.Recordset.AddNew
.Recordset.Fields("cdate") = Format(Date, "DD/MM/YYYY")
.Recordset.Fields("expenses") = 0
.Recordset.Update
End If
End With
End Sub
Form name: logo.frm
Coding:
Option Explicit

Load student
student.create_ids
student.Show
End Sub

Load fees
fees.Show 1
End Sub

Load find
OpenFor = "tcc"
find.Show 1
End Sub

Load staff
staff.Show 1
End Sub

Load account
account.Show 1
End Sub

Load find
OpenFor = "ReceiptEntry"
find.Show 1
End Sub

Load FIND_T
OpenFor = "VoucherEntry"
FIND_T.Show 1
End Sub

Load find
OpenFor = "student"
find.Show 1
End Sub

Load FIND_T
OpenFor = "Editing"
FIND_T.Show 1
End Sub

If MsgBox(" Do You Want To Exit", vbYesNo, "Exit
Confirmation.....") = vbYes Then
Unload school
Unload TC
Unload Receipt
Unload staff
Unload voucher
Unload find
Unload FIND_T
End If
End Sub

Load Expenses
Expenses.Show 1
End Sub
Private Sub Timer1_Timer()

Dim da As String
With Rd_logo
.RecordsetType = 1
.RecordSource = "SELECT distinct * FROM [STUDENT]
WHERE C_STATUS='True'"
.Refresh
.RecordSource = "SELECT distinct * FROM [Staff] WHERE
STATUS='Working'"
.Refresh
da = "#" & Format(Date, "DD/MM/YYYY") & "#"
.RecordSource = "SELECT distinct * FROM [ACCOUNT]
WHERE cdate=" & da & ""
.Refresh
.Recordset.Close
.RecordsetType = 0
.Refresh
.Recordset.AddNew
.Recordset.Fields("cdate") = Format(Date, "DD/MM/YYYY")
.Recordset.Update
End If
End With
End Sub
Form name: receipt.frm
Coding:
Option Explicit
Dim amt As Long

Dim Tr As Long, cd As String
If Trim(Text1) = "" Then
MsgBox "Please Fill the Receipt No."
Text1.SetFocus
ElseIf Not IsDate(Text7) Then
Text7.SetFocus
MsgBox "Please Fill the Student ID"
Text2.SetFocus
MsgBox "Please Fill the Student Name"
Text3.SetFocus
MsgBox "Please Fill the Amount"
Text5.SetFocus
MsgBox "Please Fill the Student Class"
Text4.SetFocus
Else
rd_receipt.RecordsetType = 0
rd_receipt.RecordSource = "receipt"
rd_receipt.Refresh
rd_receipt.Recordset.AddNew
With rd_receipt.Recordset
.Fields("receipt_no") = Text1.Text
.Fields("Student_id") = Text2
.Fields("name") = Text3
.Fields("class") = Text4
.Fields("amount") = Text5
.Fields("month") = Combo1.Text
.Update
.Close
End With
With rd_receipt
.RecordsetType = 1
cd = "#" & Text7 & "#"
.RecordSource = "select receipt from [account] where cdate=" &
cd & ""
.Refresh
If .Recordset.RecordCount <> 0 Then
Tr = Val(.Recordset.Fields("receipt")) + Val(Text5)
.Database.Execute "update [account] set receipt= + " & Tr & "
where cdate=" & cd & ""
Else
.RecordsetType = 0
.Refresh
.Recordset.AddNew
.Recordset.Fields("cdate") = Text7
.Recordset.Fields("receipt") = Val(Text5)
.Recordset.Update
.Recordset.Close
End If
MsgBox "Record Has Been Saved"
Unload Me
End With
End If
End Sub

Text7 = ""
Text5 = ""
Text7.Enabled = True
Combo1.Enabled = True
Command1.Enabled = True
add_combo
Text7 = Date
Text5.SetFocus
create_Rn
End Sub
With Combo1
.Clear
.AddItem "January"
.AddItem "February"
.AddItem "March"
.AddItem "April"
.AddItem "May"
.AddItem "June"
.AddItem "July"
.AddItem "August"
.AddItem "September"
.AddItem "October"
.AddItem "November"
.AddItem "December"
.ListIndex = Month(Date) - 1
End With
End Sub
Unload Me
End Sub

create_Rn
Dim Sql As String, I As Integer
amt = 0
Sql = "select distinct * from [receipt] where student_id=" & Text2
& ""
rd_receipt.RecordSource = Sql
rd_receipt.Refresh
With MSFlexGrid1
.Clear
.Row = 0
.Col = 0
.Text = "Month"
.Col = 1
.Text = "Amount"
.ColWidth(0) = 1000
.ColWidth(1) = 800
.ColAlignment(1) = 3
For I = 1 To rd_receipt.Recordset.RecordCount
.Row = I
.Col = 0
.Text = rd_receipt.Recordset.Fields("month")
.Col = 1
.Text = rd_receipt.Recordset.Fields("amount")
amt = amt + rd_receipt.Recordset.Fields("amount")
.Col = 2
.Text = rd_receipt.Recordset.Fields("Receipt_no")
rd_receipt.Recordset.MoveNext
Next
End With
Text6 = amt
End Sub

add_combo
Text7 = Format(Date, "dd/mm/yyyy")
End Sub
Private Sub MSFlexGrid1_Click()

Dim Sql As String
MSFlexGrid1.Col = 2
If MSFlexGrid1.Text <> "" Then
Sql = "select distinct * from [Receipt] where Receipt_no=" &
MSFlexGrid1.Text & ""
rd_receipt.RecordSource = Sql
rd_receipt.Refresh
With rd_receipt.Recordset
Text1 = .Fields("Receipt_no")
Text7 = .Fields("cdate")
Text2 = .Fields("Student_id")
Text3 = .Fields("Name")
Text4 = .Fields("Class")
Text5 = .Fields("Amount")
Text6 = amt
Combo1.Text = .Fields("Month")
Text7.Enabled = False
Text5.Enabled = False
Combo1.Enabled = False
Command1.Enabled = False
End With
End If
End Sub
Text7 = Text7 & "/"
Text7.SelStart = 4
Text7 = Text7 & "/"
Text7.SelStart = 7
End If
End Sub
Private Sub create_Rn()

If rd_receipt.Recordset.RecordCount = 0 Then
Text1 = 1
Else
rd_receipt.Recordset.MoveLast
Text1 = Val(rd_receipt.Recordset.Fields("receipt_no")) + 1
End If
Combo1.SetFocus
End Sub
Form name: staff.frm
Coding:
Option Explicit
Public Yes As Boolean

MsgBox "Please Fill the TEacher Name"
Text2.SetFocus
ElseIf Not IsNumeric(Trim(Text3)) Then
MsgBox "Please Fill The Right Age"
Text3.SelStart = 0
Text3.SelLength = 4
Text3.SetFocus
MsgBox "Please Fill the Date of Joining"
Text4.SetFocus
MsgBox "Please Fill the Qualification"
Text5.SetFocus
MsgBox "Please Fill the Address"
Text6.SetFocus
MsgBox "Please Fill the Right Salary"
Text8.SelStart = 0
Text8.SelLength = 7
Text8.SetFocus
Else
DataSave
Command6_Click
create_id
End If
End Sub

Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text8 = ""
add_combo
Text4 = Date
End Sub

Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo1.AddItem "Male"
Combo1.AddItem "Female"
Combo2.AddItem "Married"
Combo2.AddItem "Unmarried"
Combo3.AddItem "Working"
Combo3.AddItem "Left"
End Sub

'Text1.Enabled = True
Command5.Caption = "&Update"
End Sub

Unload Me
Set staff = Nothing
End Sub

create_id
End Sub

Text4.Text = Format(Date, "dd/mm/yyyy")
add_combo
End Sub

Text2 = StrConv(Text2, 3)
End Sub

Text4 = Text4 & "/"
Text4.SelStart = 4
Text4 = Text4 & "/"
Text4.SelStart = 7
End If
End Sub
Private Sub create_id()
On Error GoTo err
If rd_staff.Recordset.RecordCount = 0 Then
Text1 = 1
Text2.SetFocus
Exit Sub
End If
rd_staff.Recordset.MoveLast
Text1 = Val(rd_staff.Recordset.Fields("teacher_id")) + 1
Text2.SetFocus
err:
End Sub
End Sub
End Sub
Private Sub DataSave()

Dim savesql As String
If Command5.Caption = "&Save" Then

rd_staff.Recordset.AddNew
With rd_staff.Recordset
.Fields("teacher_id") = Text1.Text
.Fields("Name") = Text2
.Fields("Age") = Text3
.Fields("doj") = Text4
.Fields("Qualification") = Text5
.Fields("address") = Text6
.Fields("salary") = Text8
.Fields("sex") = Combo1.Text
.Fields("m_status") = Combo2.Text
.Fields("status") = Combo3.Text
.Update
End With
Else
savesql = "UPDATE [STAFF] SET NAME='" & Text2 &
"',Qualification='" & Text5 & "',doj= '" & Text4 & "' " & _
",salary=" & Text8 & ",address='" & Text6 & "',m_status='" &
Combo2.Text & "',age=" & Text3 & " " & _
",sex='" & Combo1.Text & "' ,status='" & Combo3.Text & "'
where teacher_id=" & Text1 & ""
rd_staff.RecordSource = savesql
rd_staff.Database.Execute savesql
If Combo3.ListIndex = 1 Then rd_staff.Database.Execute
"UPDATE [STAFF] SET left_date ='" & Date & "',status='" &
Combo3.Text & "' where teacher_id=" & Text1 & ""
MsgBox "Record Has Been Updated"
Command5.Caption = "&Save"
Command6.Visible = True
Command7.Visible = False
End If
End Sub
Form name: student.frm
Coding:
Option Explicit

Dim va As Integer
va = Val(Right(Text10, 4))
If va >= Year(Date) - 2 Then
MsgBox "Invalid Year"
Text10.SelStart = 6
Text10.SetFocus
Exit Sub
End If
If Mid(Text10, 4, 2) > 12 Then
MsgBox "Invalid Month"
Text10.SelStart = 3
Text10.SetFocus
Exit Sub
End If
Text3.SetFocus
MsgBox "Please Fill the Date of Birth"
Text10.SetFocus
MsgBox "Please Fill the Father/Guardien Name"
Text4.SetFocus
MsgBox "Please Fill the Mother's Name"
Text5.SetFocus
MsgBox "Please Fill the Cast"
Text8.SetFocus
MsgBox "Please Fill the Father/Guardian Occupation"
Text11.SetFocus
MsgBox "Please Fill the Father/Guardian's Address"
Text12.SetFocus
MsgBox "Please Fill the Fees"
Text13.SelStart = 0
Text13.SetFocus
Else
Updatedata
Command2_Click
create_ids
End If
End Sub
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
Text13 = ""
Text14 = ""
add_combo
Text2 = Date
End Sub
Private Sub Updatedata()
Dim usql As String
If Command1.Caption = "&Save" Then
Rd_Student.Recordset.AddNew
With Rd_Student.Recordset
.Fields("student_id") = Val(Text1.Text)
.Fields("AD_date") = StrConv(Text2, 3)
.Fields("name") = Trim(StrConv(Text3, 3))
.Fields("father_name") = Trim(StrConv(Text4, 3))
.Fields("mother_name") = Trim(StrConv(Text5, 3))
.Fields("relation") = Trim(StrConv(Text6, 3))
.Fields("cast") = Trim(StrConv(Text8, 3))
.Fields("other") = Trim(StrConv(Text9, 3))
.Fields("dob") = Trim(Text10)
.Fields("occupation") = Trim(StrConv(Text11, 3))
.Fields("address") = Trim(StrConv(Text12, 3))
.Fields("fees") = Text13
.Fields("past") = Trim(StrConv(Text14, 3))
.Fields("medium") = Trim(Combo1.Text)
.Fields("c_status") = Trim(Combo2.Text)
.Fields("class") = Trim(Combo3.Text)
.Update
End With
Else
usql = "update [student] set name='" & Text3 & "',father_name='"
& Text4 & "' " & _
" ,relation='" & Text6 & "',mother_name='" & Text5 & "',dob='" &
Text10 & "',occupation='" & Text11 & "' " & _
",address='" & Text12 & "',ad_date='" & Text2 & "',c_status='" &
Combo2.Text & "',past='" & Text14 & "',class='" & Combo3.Text
& "' " & _
",cast='" & Text8 & "',other='" & Text9 & "',fees=" & Text13 &
",medium='" & Combo1.Text & "'where student_id=" & Text1 &
""
Rd_Student.Database.Execute usql
MsgBox StrConv("record has been updated", 3)
Command1.Caption = "&Save"
Command2.Visible = True
Command3.Visible = False
Label1.Caption = "Registration Form"
End If
End Sub

Command1.Caption = "&Update"
Command1.Enabled = True
End Sub
Unload Me
End Sub
create_ids
End Sub

Text2.Text = Format(Date, "dd/mm/yyyy")
add_combo
End Sub
Combo1.Clear
Combo2.Clear
Combo3.Clear
Combo1.AddItem "Hindi"
Combo1.AddItem "English"
Combo2.AddItem "True"
Combo2.AddItem "False"
With Combo3
.AddItem "NURSERY"
.AddItem "L.K.G."
.AddItem "U.K.G."
.AddItem "1st"
.AddItem "2nd"
.AddItem "3rd"
.AddItem "4th"
.AddItem "5th"
.AddItem "6th"
.AddItem "7th"
.AddItem "8th"
.AddItem "9th"
.AddItem "10th"
.AddItem "11th"
.AddItem "12th"
End With
End Sub

If Val(Text10) > 31 Or Val(Text10) < 1 Then
MsgBox "Enter the Right Date"
Text10.SelStart = 0
Text10.SetFocus
Else
Text10 = Text10 & "/"
Text10.SelStart = 4
End If
Text10 = Text10 & "/"
Text10.SelStart = 7
End If
End Sub
Text10 = Format(Text10, "dd/mm/yyyy")
End Sub
Text11 = StrConv(Text11.Text, vbProperCase)
End Sub
Text12 = Trim(StrConv(Text12.Text, vbProperCase))
End Sub
End Sub
Text2 = Text2 & "/"
Text2.SelStart = 4
Text2 = Text2 & "/"
Text2.SelStart = 7
End If
End Sub
Public Sub create_ids()
If Rd_Student.Recordset.RecordCount = 0 Then
Text1 = 1
Exit Sub
End If
Rd_Student.Recordset.MoveLast
Text1 = Val(Rd_Student.Recordset.Fields("student_id")) + 1
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
End Sub
Form name: tcform.frm
Coding:
Option Explicit

MsgBox "Please Fill the TC No."
Text1.SetFocus
Text2.SetFocus
MsgBox "Please Fill the Student ID"
Text3.SetFocus
Text4.SetFocus
MsgBox "Please Fill the Class"
Text5.SetFocus
MsgBox "Please Fill the Year"
Text6.SetFocus
Else
If MsgBox("U Issue Transfer Certificate", vbYesNo, "Confirm...")
= vbYes Then
rd_tc.Recordset.AddNew
With rd_tc.Recordset
.Fields("tc_no") = Val(Text1)
.Fields("student_id") = Text3
.Fields("name") = Text4
.Fields("class") = Text5
.Fields("year") = Text6
.Update
rd_tc.Database.Execute "update [student] set c_status='False'
where student_id=" & Text3 & ""
MsgBox "Transfer Certificate Issued"
Unload Me
End With
End If
End If
End Sub

Unload Me
End Sub
If rd_tc.Recordset.RecordCount = 0 Then
Text1 = 1
Else
Text1 = rd_tc.Recordset.RecordCount + 1
End If
End Sub
Text2 = Date
End Sub
Text2 = Text2 & "/"
Text2.SelStart = 4
Text2 = Text2 & "/"
Text2.SelStart = 7
End If
End Sub
System Testing
System testing is a very crucial phase in system

development life cycle. The purpose of system testing is
considering all the likely variation to which it will be subjected
and then push the system to its limit. It is the tedious but
necessary step in step development. No system is ever
perfect. Communication problem constraint creates errors
that must be eliminated before the system is installed for the
user acceptance. Testing is vital to the success of the
system.
Testing of school management system consisted of the

following:
Unit Testing: -
Unit testing focuses verification effort on the smallest
unit of software design the module. Using the procedural
design specification as guide, important control paths are
tested to uncover errors within the boundary of each module.
Integration Testing: -
Integration testing is a systematic technique for

constructing the program structure while conducting tests to
uncover errors associated with interfacing. The objective is
to take tested module and build large program structure that
has been dictated by design.

Validation Testing: -
Validation testing succeeds when software function in a

manner that can be reasonably expected by the customer,
reasonable expectation are defined in the software
requirements specification-that describe all user visible
attribute of the software.
To summaries inadequate testing or non-testing leads

to errors that may be costly when they appear month later.
Effective testing translate into cost saving from reduce
errors.
Advantages
To develop a project first of all developer needs its plan.
Here he needs knowledge about its theme from a School.
The system will be user friendly and gives attention on sharp
point. Developer requires knowledge about its managing
views, keep storing data and making operations on that data.
 It is fast, efficient and reliable
 Avoids data redundancy and inconsistency
 Very user-friendly
 Easy accessibility of data
 Number of personnel required is considerably less
 Provides more security and integrity to data

Future Scope
The proposed system is Hospital Management System. We
can enhance this system by including more facilities like billing
system, inpatient room allotment for the admitted patients and the
stock details of medicines in the pharmacy.
Providing such features enable the users to include more comments
into the system.

Conclusions
A developer of project tries his better to make a powerful

and effective package, sometimes he get full success on his
aim but mostly there is a possibility to left some limitation in
the package.
This package is developed for managing a school

management system and it has successfully runs on
including points but few points are not covered by this
package due to the less time of working and such points are
out of knowledge of its developer, but the every included
parts of this project is enough efficient to use it on a school
management system.
Mainly commercial expressions are mostly used in this

package to calculate necessary outputs as needing.
Nevertheless, the user should benefit enormously from

the automating management processes of school
management. Also, the probability of error shuld reduces
significantly. The time thus saved and instant access to key
management information shuld help the user allocates
resources better and exercise better management of school.
The project makes a small beginning with a small foray

into the field of accounting. It shall be our endeavor to
pursue the project further and develop newer application
from it, offering an enhanced product.
Reference
 CORNELL, VISUAL BASIC 6, From the Ground UP,

TATA McGraw-HILL PUBLISHING CO. LTD, NEW
DELHI-110008
 JERKE, VISUAL BASIC 6, The complete reference,

TATA McGraw_HILL PUBLISHING CO.LTD, NEW
DELHI-110008
 JUNG & KENT, VISUAL BASIC, Annotated Archives

TATA Mcgraw_HILL PUBLISHING CO. LTD, NEW
DELHI-110008
 RAHMEL, VISUAL BASIC 6, second edition, TATA

McGraw-Hill PUBLISHING CO.LTD, NEW DELHI-
110008
 BRIAN SILVER AND JEFFS SPOTTS, USING VISUAL

BASIC 6, special edition, prentice Hall India
Bibliography
How to Visual Basic 6.0

(Eric Brierley, Anthony Prince & David Rinaldi)
Using VB 6.0
(Bob Reselman, Richard Peasley, Wayne Prvchniak)
Database Programming with VB 6.0 in 21 days

(Curtis smith & Michael Amundsen)
Programming with visual basic

(P.K.Mcbride)
Norten Peter and Groh Michael “guide to visual basic 6.0,

Macmillan computer publishing USA 1998 edition.
Mc. Bride PK, “Programming in Visual Basic”, BPB

Publication, New Delhi, 1995 edition.
Schneeder dewed, “Introduction to programming using

visual basic 6.0, PHI
Azam Mohammed, “Programming with visual basic 6.0”

Vikas publications.

A Project Report On School Management System

Uploaded by

Copyright:

Available Formats

A Project Report On School Management System

Uploaded by

Document Information

Original Title

Copyright

Available Formats

Share this document

Share or Embed Document

Sharing Options

Did you find this document useful?

Is this content inappropriate?

Copyright:

Available Formats

A Project Report On School Management System

Uploaded by

Copyright:

Available Formats

A

Name- Paras Chaudhary

Project Guide:- H.O.D:-

NEELKANTH VIDYAPEETH PAWLI KHAS,

Name- Paras Chaudhary

Project Guide:- H.O.D:-

NEELKANTH VIDYAPEETH PAWLI KHAS,

incomplete without the mention of the people who made it possible.

Kumar Tyagi , Project Guide and project coordinator, as he had a direct

valuable guidance and remarkable patience in guiding my work to its fulfillment.

deeper it sinks in mind.

I will be failing in my mission if I do not thank other people who directly or

indirectly helped me in the successful completion of this project.

in preparing this project report as best as possible.

MANAGEMENT SYSTEM” which is submitted by PARAS

CHAUDHARY (180624106030), in the partial fulfillment, for the

award of degree of Bachelor of Computer Application in

Department of Computer Application, of NEELKANTH

VIDYAPEETH PAWLIKHAS MODIPURAM, Meerut,

affiliated to CHAUDHARY CHARAN SINGH UNIVERSITY,

MEERUT (U.P.); is carried out by him/her under my supervision.

earlier for award of any degree or diploma in any

university/institution to the best of our knowledge and belief.

This project work is extended to those who are interested in Visual

Although the concept about the new system are discussed in

I update the project is feature and welcome your comments and

 INTRODUCTION AND OBJECTIVES 7

 FEASIBILITY STUDY/REQUIREMENT ANALYSIS 8

 INPUT & OUTPUT FORMS 16

School management is a very wide field and this work

School is a place where student can read and acquire

Campus of the School: - A school is a huge building

This package is developed for handling school management

Feasibility study is made to see if the project on completion

The advent of computer in commercial application has

 Providing information as per statuary requirements whenever

PROCESSOR PENTIOUM 100 MHz

OPRATING SYSTEM WINDOWS 95/98

HARD DISK 1.2 GB

Requirement analysis is the first technical step in the

This system is designed in Visual Basic 6 using form

Various types of controls are used to make it effectively.

The different steps involves in system design are:

 Identification of module of the system

After the final design, development is done module wise.

Verifying User Name Enter Administrator/User

User Item Item Code

Student process Stock File

Information Faculty Process Updating process

Date of Birth Study

Steps in Designing Database

 Determine the purpose of database.

Description: this table describes the all the information related to

Field name Data Type Descriptions

Field name Data Type Descriptions

Description: this table describes the all the information related to

Field name Data Type Descriptions

Field name Data Type Descriptions

Staff Information Table