A

Micro project report On

“Student Record Management System”

SUBMITTED TO M.S.B.T.E., Mumbai

For the Award of
DIPLOMA IN COMPUTER ENGINEERING BY

Roll no Name of Student Enrollment no

17 Atharv Maruti Khadatare 2212140111
52 Sham Babasaheb Gawade 23212710184
18 Laxman Nagnath Khandekar 2212140131
35 Rushiraj Nathaji Kengar 2212140128

UNDER THE GUIDANCE OF

Mrs. Potrajwar B.R
DEPARTMENT OF COMPUTER ENGINEERING

SVP’s Swami Vivekanand Institute of Technology(Poly),Solapur

Khed Solapur-413255

2023-24
AFFILIATED TO

M.S.B.T.E.
Evolution sheet for Micro Project

Academic Year:- 2023-24 Name of Faculty:-Mrs. Potrajwar B.R.

Course:- Computer Engineering Course code:- CO4I
Subject:- GUI Application Development Subject Code:- 22034
Using VB.Net
Semester:- 4th Scheme:- I

Title of Project:- Student Record Management System

COs addressed by the Micro Project:

CO 1 To learn Different Types of features which are used in VB.Net.

CO 2 To study different applications and programs.

Comments/Suggestions about team work/leadership/inter-personal communication (if any)

Marks out of 4
Marks out of 6 Total
for
for mars
Roll No Name of students performance
performance in out
in oral/
group activity of 10
Presentation

17 Atharv Maruti Khadatare 2212140111

52 Sham Babasaheb Gawade 23212710184
18 Laxman Nagnath Khandekar 2212140131
35 Rushiraj Nathaji Kengar 2212140128

Name and
Signature of Mrs. Potrajwar B.R.
faculty
 SVP’s Swami Vivekanand Institute of Technology(Polytechnic),
Solapur
.

CERTIFICATE

This is to certify that the Project report entitled

“Student Record Management System”
Submitted by

Roll no Name of Student Enrollment no

17 Atharv Maruti Khadatare 2212140111
52 Sham Babasaheb Gawade 23212710184
18 Laxman Nagnath Khandekar 2212140131
35 Rushiraj Nathaji Kengar 2212140128

is a bonafide work carried out by above students, under the guidance of Mrs. Potrajwar B.R. and it
is submitted towards the fulfillment of requirement of MSBTE, Mumbai for the award of Diploma in
Computer Engineering at SVP’s COE (Polytechnic), Solapur during the academic year 2023-2024.

(Mrs. Potrajwar B.R.)

Guide
(Mrs.Waghmare P.S .) (Dr. Patil S. S.)
HOD Principal

Place: Solapur

Date: / /
 Acknowledgement

“Student Record Management System” has been developed successfully with a

great contribution of two students in a period of two months. We like to appreciate their
guidance, encouragement and willingness since without their support the project would
not have been a success. We would like to give our heartfelt gratitude to Principal Dr.
S.S.Patil, Guide & HOD Mrs. P.S. Waghmare who is the supervisor of our project for
helping and encouraging us in many ways to make our project a success. We would never
been able to finish our work without great support and enthusiasm from friends and
support from our family. We would like to thank the department of Computer Engineering,
for giving us permission to initiate this project and successfully finish it.
 INDEX

Sr. No. Title

1. Introduction

2. Resources Used

3. Description

4. System Design

5. Data Model

6. ER Model

7. Tables

8. Components of frmStudent Management System

9. Code for frmStudent Management System

10. Components of frmLogin

11. Program for frmLogin

12. Components of frmCourse

13. Program for frmCourse

14. Components of frmStudentDetails

15. Program for frmStudentDetails

16. Output

17. Conclusion

18. References
 Introduction:-
Student Record Management System deals with all the activities done by computer such as
registration and admission process. staff and class management etc all these processes are
handled by computer management system. The admission form designs and feed the
information that is required for admission and to maintain the college records. At the time of
registration, the administration should feel the information correctly if any wrong information
field in records. It will be edited by record list carefully.

 Resources Used :-

Sr. No. Specification Remark

1 Intel Core i3/ i5, RAM 4GB As per requirement
2 Operating System – Windows 10 As per requirement
3 Application – Microsoft Word 2016 As per requirement

 Description:-
 The list of Modules and Forms used in the program as follows.

(A) frmStudentManagement System

Caption: STUDENT RECORD MANAGEMENT SYSTEM
(B) frmLogin
Caption: LOGIN

(C) frmCourse
Caption: COURSE DETAILS

(D) frmStudentDetails
Caption: STUDENT DETAILS

(E) Module1.Bas

System Design:-

 First, wewill design the System Model and simple high-level diagram of each module
will be enough. There are many kind of the diagram to model a system especially when
you are using Object-Oriented design. These models are specified in Unified Modelling
Language (UML) which not scope of this post.
 STUDENT RECORD MANAGEMENT

LOGIN

student must log in to access the System

 The Administrator has to log in to the system with username and password provided
during registration process. No one is allowed to log in without a proper User ID and
Password.

LOGIN

User ID Password

Administrators must provide valid Username and Password

 Once the Administrators logged in they can see form for Student Details where they can
Insert, Delete, Update and Clear the Student Records. They also have the option to go to First
Record, Last Record, Next Record and Previous Record.
 STUDENT DTAILS

ADD DISPLAY RECORDS

RECORD
DELETE
RECORD COURSE DETAILS

UPDATE
RECORD

CLEAR

Maintain Student Record using Student Details Form

 Next, there is an option to maintain the Course Details, when you click a Specific
button. We will discuss that later

COURSE DETAILS

ADD RECORD DEL;ETE RECORD UPDATE RECORD CLEAR

DISPLAY STUDENT FOR COURSE ID

 Data Model:-
 ER Model:-

ER Diagram for Student Management

 Tables:-
First steps after creating the data model are to make sure that you create an MS Access
Database called StudentDB.mdb. If you have MS Access 2007 or higher version, save your
database with the file extension (.mdb).

Create the following table with correct data types as shown in the following figures

Course Table in Design View

Login Table in Design View

 Components of frmStudent Management System:-

Labels:

Name: lblStudentManagement
Caption: Student Management System
Font: MS Sans Serif
Font-Size: 24 PX
Font-Weight: Bold

Buttons:

Name: btnLogin
Caption: Log in
Font: MS-Sans-Serif
Font-weight: Bold
Font-Size: 10px

 Code for frmStudent Management System:-

Private Sub Login_Click()

frmLogin.Show

End Sub
 Components of frmLogin:-

Labels:

Name: lblUserID
Caption: User Name:

Name: lblPassword

Caption: Password

Text-Boxes:

Name: txtUserID

Text: 'leave blank'

Name: txtPassword

Text: 'leave blank'

Buttons:
Name: cmdOK

Caption: Log in

Name: cmdCancel

Caption: Cancel

 Program for frmLogin:-

Option Explicit
Dim rs As New ADODB.Recordset
Dim con As New ADODB.Connection
Dim constr As String
Public LoginSucceeded As Boolean
Private Sub cmdCancel_Click()
'set the global var to false '
'to denote a failed login '
LoginSucceeded = False
Me.Hide
End Sub
Private Sub cmdOK_Click()
Dim userfound As Boolean
With rs .Open "SELECT * FROM LOGIN",
con, adOpenDynamic, adLockOptimistic
'check the username '
.MoveFirst While Not .EOF If txtUserName = !RollNo And
txtPassword = !Password Then
frmSTUDREC.Show
LoginSucceeded = True
Exit Sub
Me.Hide
ElseIf
txtUserName <> !RollNo Then
.MoveNext
Else
MsgBox "Invalid Password, try again!", ,
"Login" txtPassword.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
End If
Wend
.Close
End With
End Sub
Private Sub Form_Load()
Call loadcon
MsgBox ("connected")
End Sub
 Components of frmCourse :-

Labels:

Name: lblCID
Caption: Course ID

Name: lblCname

Caption: Course Name

Name: lblDuration

Caption: Duration(Semester):

Text-Boxes:
Name: txtCID

Text: 'leave blank'

Name: txtCnameText: 'leave blank'

Name: txtDuration

Text: 'leave blank'

Buttons:

Name: cmdAdd
Caption: &ADD NEW COURSE
Name: cmdDel

Caption: &DELETE COURSE

Name: cmdDisplay

Caption: &DISPLAY ENROLLED STUDENTS

Name: cmdExit

Caption: &EXIT
Name: cmdFirst

Caption: First Record

Name: cmdLast

Caption: Last Record

Name: cmdNext

Caption: Next Record

Name: cmdPrev

Caption: Previous Record

 Program for frmCourse :-

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
Private Sub cmdAddCourse_Click()
con.Execute "INSERT INTO
Course(CourseID, CourseName, Duration)
VALUES ('" + txtCID.Text + "','" +
txtCNAME.Text + "','" + txtDURATION.Text + "')"
txtCID.Text = "" txtCNAME.Text = "" txtDURATION.Text = ""
con.Close
End Sub
Private Sub cmdDelCourse_Click()
con.Execute "DELETE * FROM COURSE
WHERE CourseID = " &
txtCID & ""
End Sub
Private Sub cmdDisplay_Click()
Dim rsGrid As New ADODB.Recordset
con.CursorLocation = adUseClient rsGrid.CursorLocation
= adUseClient rsGrid.CursorType = adOpenStatic
rsGrid.Open "SELECT * FROM Student_Records
WHERE CourseID = " & txtCID & "",
con, adOpenForwardOnly, adLockPessimistic
Set DataGrid1.DataSource = rsGrid
End Sub
Private Sub cmdFirst_Click()
With rs .Open "SELECT * FROM Course",
con, adOpenDynamic, adLockOptimistic
While Not .EOF
txtCID.Text = rs!CourseID
txtCNAME.Text = rs!CourseName
txtDURATION.Text = rs!Duration
.MoveFirst
Wend
End With
End Sub
Private Sub cmdLast_Click()
With rs .Open "SELECT * FROM Course",
con, adOpenDynamic, adLockOptimistic
While Not .EOF
txtCID.Text = rs!CourseID
txtCNAME.Text = rs!CourseName
txtDURATION.Text = rs!Duration
.MoveLast Wend
End With
End Sub
Private Sub cmdNext_Click()
With rs .Open "SELECT * FROM Course",
con, adOpenDynamic, adLockOptimistic
While Not .EOF
txtCID.Text = rs!CourseID
txtCNAME.Text = rs!CourseName
txtDURATION.Text = rs!Duration
.MoveNext
Wend
End With
End Sub
Private Sub cmdPrev_Click()
With rs .Open "SELECT * FROM Course",
con, adOpenDynamic, adLockOptimistic
While Not .EOF
txtCID.Text = rs!CourseID
txtCNAME.Text = rs!CourseName
txtDURATION.Text = rs!Duration
.MovePrevious
Wend End With
End Sub
Private Sub Form_Load()
Call loadcon
MsgBox ("Connected")
End Sub

 Components of frmStudentDetails:-

Labels:

Name: lblStudentID

Caption: STUDENT ID
Name: lblFirstName

Caption: FIRST NAME:Name: lblLastName

Caption: LAST NAME:

Name: lblCourseID

Caption: COURSE ID
Name: lblGrade

Caption: GRADE
Text-Boxes:

Name: txtStudentID

Text: 'leave blank'

Name: txtFirstName
Text: 'leave blank'

Name: txtLastName

Text: 'leave blank'

Name: txtCourseID
Text: 'leave blank'

Name: txtGrade

Text: 'leave blank'

Buttons:

Name: cmdAdd
Caption: &ADD

Name: cmdDel

Caption: &DELETE

Name: cmdUpdatevCaption: &UPDATE

Name: cmdClear

Caption: &CLEAR

Name: cmdExit

Caption: &EXIT

Name: cmdDisplay
Caption: &DISPLAY
Name: cmdStudentCourses

Caption: Student Courses

Name: cmdNext

Caption: &Next Record

Name: cmdPrev

Caption: &Previous Record

Name: cmdFirst

Caption: &First Record

Name: cmdLast

Caption: &Last Record

Data Grid Control

Name: DataGrid1

 Program for frmStudentDetails :-

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim constr As String
Private Sub btnCourse_Click()
Unload Me
frmCourse.Show
End Sub
Private Sub cmdData_Click()
Dim rsGrid As New ADODB.Recordset
con.CursorLocation = adUseClient
rsGrid.CursorLocation = adUseClient
rsGrid.CursorType = adOpenStatic
rsGrid.Open "SELECT * FROM Student_Records",
con, adOpenForwardOnly, adLockPessimistic
Set DataGrid1.DataSource = rsGrid
End Sub
Private Sub cmdDel_Click()
con.Execute "DELETE * FROM
STUDENT_RECORDS WHERE RollNo = " &
(Text1.Text) & ""
MsgBox ("Record Deleted Successfully")
End SubPrivate Sub cmdExit_Click()
Unload Me
End Sub
Private Sub cmdFirst_Click()
With rs
.Open "SELECT * FROM STUDENT_RECORDS",
con, adOpenDynamic, adLockOptimistic
Text1.Text = rs!RollNo
Text2.Text = rs!FirstName
Text3.Text = rs!LastName
Text4.Text = rs!CourseID
Text5.Text = rs!Grade
.MoveFirst
.Close
End With
End Sub
Private Sub cmdLast_Click()
With rs
.Open "SELECT * FROM STUDENT_RECORDS",
con, adOpenDynamic, adLockOptimistic
Text1.Text = rs!RollNo
Text2.Text = rs!FirstName
Text3.Text = rs!LastName Text4.Text = rs!CourseID
Text5.Text = rs!Grade
.MoveLast
End With
End Sub
Private Sub cmdNext_Click()
With rs
.Open "SELECT * FROM STUDENT_RECORDS",
con, adOpenDynamic, adLockOptimistic
While Not .EOF
Text1.Text = rs!RollNo
Text2.Text = rs!FirstName
Text3.Text = rs!LastName
Text4.Text = rs!CourseID
Text5.Text = rs!Grade
.MoveNext
Wend
.Close
End With
End Sub
Private Sub cmdPrev_Click()
With rs
.Open "SELECT * FROM STUDENT_RECORDS", con, adOpenDynamic, adLockOptimistic
While Not .EOF
Text1.Text = rs!RollNo
Text2.Text = rs!FirstName
Text3.Text = rs!LastName
Text4.Text = rs!CourseID
Text5.Text = rs!Grade
.MovePrevious
Wend
End With
End Sub
Private Sub cmdSave_Click()
con.Execute "UPDATE STUDENT_RECORDS
SET FirstName = '" & Text2 & "',
LastName = '" & Text3 & "',
CourseID =" & Text4 & ",
Grade = '" & Text5 & "'
WHERE RollNo = " & Text1 & ""
MsgBox ("Record Updated")
End Sub
Private Sub Form_Load()
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:UsersGirishDocumentsStudentDB.mdb; Persist Security Info=False"
con.Open constr
End Sub
Private Sub cmdAdd_Click()
con.Execute "INSERT INTO
STUDENT_RECORDS(RollNo,FirstName,LastName,CourseID,Grade)
VALUES ('" + Text1.Text + "','" +
Text2.Text + "','" +
Text3.Text + "','" +
Text4.Text + "','" +
Text5.Text + "')"
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
con.Close
End Sub
 Output:-
 Student Management system:

 Course Details:

 Student Record Details:

 Conclusion :-

In this project of GUI Application Development Using VB.NET, we learn about

Different features and how to develop a good application with the concept of object oriented
in VB.NET. By this project we learn how to work in team, how to make co-ordination between
a team. By this project our team work skill is developed. Our project skill is developed.

 References :-

1. https://sourceforge.net/directory/?q=student%20management%20system%20in%20vb.net

2. https://www.kashipara.com/project/vb/2925/student-database-management-system

3. https://www.tutorialspoint.com/vb.net/index.htm