Institute Management System Final Year Project mainly works with Student Admission details, Admission Registration Number, Attendance Information, Enquiry management system, Examination Schedule, Fee paid Schedule system, Interview Information, Leave management, Placement System, Login details for users and admin, Post enquiry, Telephone enquiry and many more. Database of this project info stored in MS Access.

Student Admission Database table includes below details:

  • Serial Number,
  • Roll Number,
  • Fee Code,
  • Fee Type,
  • Total Fee,
  • Dp Date,
  • Installment Amount,
  • Installment Number,
  • Installment Date,
  • Library Deposit,
  • Library Date,
  • Scheme,
  • Accepted By,
  • Counselor,
  • Approved By,
  • Center,
  • Enquiry Number.

 Enquiry Form Source Code in VB for Institute Management System Below:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
edfname = InputBox("Enter the Student's First Name ", "First Name")
edsurname = InputBox("Enter the Student's Last Name ", "Last Name")
rsenq.Close
rsenq.Open "select * from enquiry where fname='" & UCase(edfname) & "'and surname='" & UCase(edsurname) & "'", cn, adOpenDynamic, adLockOptimistic
If rsenq.BOF = True And rsenq.EOF = True Then
MsgBox "No such person enquired."
msg = MsgBox("Are you sure you want to delete the Record of " + vbCrLf + " '" & txtfname.Text & " " & txtmname.Text & " " & txtsurname.Text & "'", vbYesNo + vbQuestion, "Delete")
rsenq.Open "select * from enquiry", cn, adOpenDynamic, adLockOptimistic
MsgBox "Your Record has been deleted."

edfname = InputBox("Enter the Student's First Name ", "First Name")

edsurname = InputBox("Enter the Student's Last Name ", "Last Name")
rsenq.Close
rsenq.Open "select * from enquiry where fname='" & UCase(edfname) & "'and surname='" & UCase(edsurname) & "'", cn, adOpenDynamic, adLockOptimistic
If rsenq.BOF = True And rsenq.EOF = True Then
MsgBox "No such person has ever enquired."
rsenq.Close
rsenq.Open "select * from enquiry", cn, adOpenDynamic, adLockOptimistic
If txtedu.Visible = True Or txtjet.Visible = True Then

If txtedu.Text = "" And txtjet.Text = "" Then
msg = MsgBox("You forgot to enter one of the required fields.", vbCritical, "Input Error")

msg = MsgBox("Please select only one option" + vbCrLf + "from the Source options", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option from the" + vbCrLf + "Interest Area options", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option from the" + vbCrLf + "Profession options", vbCritical, "Selection Error")

msg = MsgBox("Please select the course from the Education" + vbCrLf + "option which was done currently (or) which is continued", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option from the" + vbCrLf + "given options of Monthly Income", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option from the" + vbCrLf + "given options of Monthly Income", vbCritical, "Selection Error")

msg = MsgBox("Please select the course from the Education" + vbCrLf + "option which was done currently (or) which is continued", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option from the" + vbCrLf + "Profession options", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option from the" + vbCrLf + "Interest Area options", vbCritical, "Selection Error")

msg = MsgBox("Please select only one option" + vbCrLf + "from the Source options", vbCritical, "Selection Error")

rsenq.Open "select * from enquiry", cn, adOpenDynamic, adLockOptimistic

cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\institute\cms1.mdb;Persist Security Info=False"

Download Institute / college/ University/ School Management System Visual Basic Project Abstract, report, documentation with Source Code.