Process Flow

Admitting Student

1. The registrar will login.


2. The main window will show. Then the user will test the Database Connection.








3. Set the payments first.













4. Admit Students











5. Student will pay Fees.

6. Print Certificate of Registration












Other Feautures:
Enrollment Updates
Can view the number of enrollees per year.
















Class Schedule










CODES

Public Class LoginUser


Private Sub btnlogin_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Dim User As String = [Link]
Dim Password As String = [Link]

If User = "Registrar" And Password = "Registrar" Then
[Link]()
[Link]()
Else
MsgBox("Login Failed", [Link], "Login Failed!")
End If

End Sub


End Class

Public Class frmmain

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

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

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

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

Private Sub lblDatabase_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
frmStudentAdmission.DB_Connect1()
frmStudentAdmission.DB_Connect2()
frmStudentAdmission.DB_Connect3()
frmStudentAdmission.DB_Connect4()
frmClassSchedule.DB_Connect1()
frmClassSchedule.DB_Connect2Y()
frmClassSchedule.DB_Connect3y()
frmClassSchedule.DB_Connect4Y()
[Link] = "Database Connected"

End Sub
End Class

Imports [Link]
Imports [Link]

Public Class frmStudentAdmission

Private Sub rdofirstyear_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] Then
[Link] = True
Else
[Link] = False

End If
End Sub

Private Sub rdosecondyear_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] Then
[Link] = True
Else
[Link] = False

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

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

End If
End Sub

'First Year
Private Sub btn1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]



Try
strSQL = "INSERT INTO firstyear
(StudentID,LastName,FirstName,MI,Gender,Age,Birthdate,Address,Parent,Contact,SchoolYear,Y
randSection) VALUES
(@StudentID,@LastName,@FirstName,@MI,@Gender,@Age,@Birthdate,@Address,@Parent,@Contact,@S
choolYear,@YrandSection)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@StudentID", [Link])
sql_command.[Link]("@LastName", [Link])
sql_command.[Link]("@FirstName", [Link])
sql_command.[Link]("@MI", [Link])
sql_command.[Link]("@Gender", [Link])
sql_command.[Link]("@Age", [Link])
sql_command.[Link]("@Birthdate", [Link])
sql_command.[Link]("@Address", [Link])
sql_command.[Link]("@Parent", [Link])
sql_command.[Link]("@Contact", [Link])
sql_command.[Link]("@SchoolYear", [Link])
sql_command.[Link]("@YrandSection",
[Link])

sql_command.ExecuteNonQuery()

MsgBox("The Information has been added!", [Link], "Okay na!
:D")
sql_reader.Close()
sql_command.Dispose()

Catch ex As Exception
MsgBox([Link])
End Try
DB_Refresh1()


[Link]()
[Link]()
End Sub
Sub DB_Refresh1()
Try
strSQL = "SELECT * FROM firstyear"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader

Do While sql_reader.Read()
a = (sql_reader.Item("StudentID").ToString())
b = (sql_reader.Item("LastName").ToString())
c = (sql_reader.Item("FirstName").ToString())
d = (sql_reader.Item("LastName").ToString)
f = (sql_reader.Item("MI").ToString)
g = (sql_reader.Item("Gender").ToString)
h = (sql_reader.Item("Age").ToString)
i = (sql_reader.Item("Birthdate").ToString)
j = (sql_reader.Item("Address").ToString)
k = (sql_reader.Item("Parent").ToString)
l = (sql_reader.Item("Contact").ToString)
m = (sql_reader.Item("SchoolYear").ToString)
n = (sql_reader.Item("YrandSection").ToString)

Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub


Sub DB_Connect1()
Try
strSQL = "SELECT * FROM firstyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.



Catch ex As Exception
MsgBox([Link])
End Try
End Sub

'Second Year



Private Sub btn2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Try
strSQL = "INSERT INTO secondyear
(StudentID,LastName,FirstName,MI,Gender,Age,Birthdate,Address,Parent,Contact,SchoolYear,Y
randSection) VALUES
(@StudentID,@LastName,@FirstName,@MI,@Gender,@Age,@Birthdate,@Address,@Parent,@Contact,@S
choolYear,@YrandSection)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@StudentID", [Link])
sql_command.[Link]("@LastName", [Link])
sql_command.[Link]("@FirstName", [Link])
sql_command.[Link]("@MI", [Link])
sql_command.[Link]("@Gender", [Link])
sql_command.[Link]("@Age", [Link])
sql_command.[Link]("@Birthdate", [Link])
sql_command.[Link]("@Address", [Link])
sql_command.[Link]("@Parent", [Link])
sql_command.[Link]("@Contact", [Link])
sql_command.[Link]("@SchoolYear", [Link])
sql_command.[Link]("@YrandSection",
[Link])

sql_command.ExecuteNonQuery()

MsgBox("The Information has been added!", [Link], "Okay na!
:D")
sql_reader.Close()
sql_command.Dispose()

Catch ex As Exception
MsgBox([Link])
End Try
DB_Refresh2()


[Link]()
[Link]()
End Sub
Sub DB_Refresh2()
Try
strSQL = "SELECT * FROM secondyear"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader

Do While sql_reader.Read()
o = (sql_reader.Item("StudentID").ToString())
p = (sql_reader.Item("LastName").ToString())
q = (sql_reader.Item("FirstName").ToString())
r = (sql_reader.Item("LastName").ToString)
s = (sql_reader.Item("MI").ToString)
t = (sql_reader.Item("Gender").ToString)
u = (sql_reader.Item("Age").ToString)
v = (sql_reader.Item("Birthdate").ToString)
w = (sql_reader.Item("Address").ToString)
x = (sql_reader.Item("Parent").ToString)
y = (sql_reader.Item("Contact").ToString)
z = (sql_reader.Item("SchoolYear").ToString)
ab = (sql_reader.Item("YrandSection").ToString)

Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub



Sub DB_Connect2()
Try
strSQL = "SELECT * FROM secondyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.



Catch ex As Exception
MsgBox([Link])
End Try
End Sub


'Third Year
Private Sub btn3_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Try
strSQL = "INSERT INTO thirdyear
(StudentID,LastName,FirstName,MI,Gender,Age,Birthdate,Address,Parent,Contact,SchoolYear,Y
randSection) VALUES
(@StudentID,@LastName,@FirstName,@MI,@Gender,@Age,@Birthdate,@Address,@Parent,@Contact,@S
choolYear,@YrandSection)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@StudentID", [Link])
sql_command.[Link]("@LastName", [Link])
sql_command.[Link]("@FirstName", [Link])
sql_command.[Link]("@MI", [Link])
sql_command.[Link]("@Gender", [Link])
sql_command.[Link]("@Age", [Link])
sql_command.[Link]("@Birthdate", [Link])
sql_command.[Link]("@Address", [Link])
sql_command.[Link]("@Parent", [Link])
sql_command.[Link]("@Contact", [Link])
sql_command.[Link]("@SchoolYear", [Link])
sql_command.[Link]("@YrandSection",
[Link])

sql_command.ExecuteNonQuery()

MsgBox("The Information has been added!", [Link], "Okay na!
:D")
sql_reader.Close()
sql_command.Dispose()

Catch ex As Exception
MsgBox([Link])
End Try
DB_Refresh3()


[Link]()
[Link]()
End Sub
Sub DB_Refresh3()
Try
strSQL = "SELECT * FROM thirdyear"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader

Do While sql_reader.Read()
cd = (sql_reader.Item("StudentID").ToString())
ef = (sql_reader.Item("LastName").ToString())
gh = (sql_reader.Item("FirstName").ToString())
ij = (sql_reader.Item("LastName").ToString)
kl = (sql_reader.Item("MI").ToString)
mn = (sql_reader.Item("Gender").ToString)
op = (sql_reader.Item("Age").ToString)
qr = (sql_reader.Item("Birthdate").ToString)
st = (sql_reader.Item("Address").ToString)
uv = (sql_reader.Item("Parent").ToString)
wx = (sql_reader.Item("Contact").ToString)
yz = (sql_reader.Item("SchoolYear").ToString)
abc = (sql_reader.Item("YrandSection").ToString)

Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub


Sub DB_Connect3()
Try
strSQL = "SELECT * FROM thirdyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.



Catch ex As Exception
MsgBox([Link])
End Try
End Sub

'Fourth Year

Private Sub btn4_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Try
strSQL = "INSERT INTO thirdyear
(StudentID,LastName,FirstName,MI,Gender,Age,Birthdate,Address,Parent,Contact,SchoolYear,Y
randSection) VALUES
(@StudentID,@LastName,@FirstName,@MI,@Gender,@Age,@Birthdate,@Address,@Parent,@Contact,@S
choolYear,@YrandSection)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@StudentID", [Link])
sql_command.[Link]("@LastName", [Link])
sql_command.[Link]("@FirstName", [Link])
sql_command.[Link]("@MI", [Link])
sql_command.[Link]("@Gender", [Link])
sql_command.[Link]("@Age", [Link])
sql_command.[Link]("@Birthdate", [Link])
sql_command.[Link]("@Address", [Link])
sql_command.[Link]("@Parent", [Link])
sql_command.[Link]("@Contact", [Link])
sql_command.[Link]("@SchoolYear", [Link])
sql_command.[Link]("@YrandSection",
[Link])

sql_command.ExecuteNonQuery()

MsgBox("The Information has been added!", [Link], "Okay na!
:D")
sql_reader.Close()
sql_command.Dispose()

Catch ex As Exception
MsgBox([Link])
End Try
DB_Refresh4()


[Link]()
[Link]()
End Sub
Sub DB_Refresh4()
Try
strSQL = "SELECT * FROM fourthyear"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader

Do While sql_reader.Read()
def = (sql_reader.Item("StudentID").ToString())
ghi = (sql_reader.Item("LastName").ToString())
jkl = (sql_reader.Item("FirstName").ToString())
mno = (sql_reader.Item("LastName").ToString)
pqr = (sql_reader.Item("MI").ToString)
stu = (sql_reader.Item("Gender").ToString)
vwx = (sql_reader.Item("Age").ToString)
yza = (sql_reader.Item("Birthdate").ToString)
bcde = (sql_reader.Item("Address").ToString)
fghi = (sql_reader.Item("Parent").ToString)
jklm = (sql_reader.Item("Contact").ToString)
nopq = (sql_reader.Item("SchoolYear").ToString)
rstu = (sql_reader.Item("YrandSection").ToString)

Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub


Sub DB_Connect4()
Try
strSQL = "SELECT * FROM fourthyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.



Catch ex As Exception
MsgBox([Link])
End Try
End Sub


End Class


Public Class frmpayment


Private Sub frmpayment_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]


End Sub


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

[Link]()
[Link]()

End Sub


End Class

Imports [Link]

Public Class frmenrolled

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

Try
strSQL = "SELECT * FROM firstyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
p = (sql_reader.Item("Code").ToString())
q = (sql_reader.Item("Subject").ToString())
r = (sql_reader.Item("Teacher").ToString())
s = (sql_reader.Item("Day").ToString)
t = (sql_reader.Item("Time").ToString)
u = (sql_reader.Item("Room").ToString)

With [Link](p)
.[Link](q)
.[Link](r)
.[Link](s)
.[Link](t)
.[Link](u)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End If




If [Link] Then
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
Try
strSQL = "SELECT * FROM secondyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
p = (sql_reader.Item("Code").ToString())
q = (sql_reader.Item("Subject").ToString())
r = (sql_reader.Item("Teacher").ToString())
s = (sql_reader.Item("Day").ToString)
t = (sql_reader.Item("Time").ToString)
u = (sql_reader.Item("Room").ToString)

With [Link](p)
.[Link](q)
.[Link](r)
.[Link](s)
.[Link](t)
.[Link](u)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try




End If

If [Link] Then
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]


Try
strSQL = "SELECT * FROM thirdyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
p = (sql_reader.Item("Code").ToString())
q = (sql_reader.Item("Subject").ToString())
r = (sql_reader.Item("Teacher").ToString())
s = (sql_reader.Item("Day").ToString)
t = (sql_reader.Item("Time").ToString)
u = (sql_reader.Item("Room").ToString)

With [Link](p)
.[Link](q)
.[Link](r)
.[Link](s)
.[Link](t)
.[Link](u)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End If

If [Link] Then
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
[Link] = [Link]
Try
strSQL = "SELECT * FROM fourthyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
p = (sql_reader.Item("Code").ToString())
q = (sql_reader.Item("Subject").ToString())
r = (sql_reader.Item("Teacher").ToString())
s = (sql_reader.Item("Day").ToString)
t = (sql_reader.Item("Time").ToString)
u = (sql_reader.Item("Room").ToString)

With [Link](p)
.[Link](q)
.[Link](r)
.[Link](s)
.[Link](t)
.[Link](u)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try


End If


End Sub

Private Sub PictureBox1_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = 1
[Link]()

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

End Sub
End Class

Imports [Link]
Imports [Link]


Public Class frmClassSchedule

Private Property lblDatabase As Object

Private Sub frmclassschedule_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] Then
Try
strSQL = "SELECT * FROM firstyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
e1 = (sql_reader.Item("Code").ToString())
e2 = (sql_reader.Item("Subject").ToString())
e3 = (sql_reader.Item("Teacher").ToString())
e4 = (sql_reader.Item("Day").ToString)
e5 = (sql_reader.Item("Time").ToString)
e6 = (sql_reader.Item("Room").ToString)

With [Link](e1)
.[Link](e2)
.[Link](e3)
.[Link](e4)
.[Link](e5)
.[Link](e6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End If

If [Link] Then

Try
strSQL = "SELECT * FROM secondyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
d1 = (sql_reader.Item("Code").ToString())
d2 = (sql_reader.Item("Subject").ToString())
d3 = (sql_reader.Item("Teacher").ToString())
d4 = (sql_reader.Item("Day").ToString)
d5 = (sql_reader.Item("Time").ToString)
d6 = (sql_reader.Item("Room").ToString)

With [Link](d1)
.[Link](d2)
.[Link](d3)
.[Link](d4)
.[Link](d5)
.[Link](d6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End If

If [Link] Then
Try
strSQL = "SELECT * FROM thirdyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
f1 = (sql_reader.Item("Code").ToString())
f2 = (sql_reader.Item("Subject").ToString())
f3 = (sql_reader.Item("Teacher").ToString())
f4 = (sql_reader.Item("Day").ToString)
f5 = (sql_reader.Item("Time").ToString)
f6 = (sql_reader.Item("Room").ToString)

With [Link](f1)
.[Link](f2)
.[Link](f3)
.[Link](f4)
.[Link](f5)
.[Link](f6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End If
If [Link] Then
Try
strSQL = "SELECT * FROM fourthyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
g1 = (sql_reader.Item("Code").ToString())
g2 = (sql_reader.Item("Subject").ToString())
g3 = (sql_reader.Item("Teacher").ToString())
g4 = (sql_reader.Item("Day").ToString)
g5 = (sql_reader.Item("Time").ToString)
g6 = (sql_reader.Item("Room").ToString)

With [Link](g1)
.[Link](g2)
.[Link](g3)
.[Link](g4)
.[Link](g5)
.[Link](g6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End If
End Sub


Private Sub btnadd_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
If [Link] Then
Try
strSQL = "INSERT INTO firstyearschedule
(Code,Subject,Teacher,Day,Time,Room) VALUES(@Code,@Subject,@Teacher,@Day,@Time,@Room)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The Information has been added!", [Link], "Okay
na! :D")
sql_reader.Close()
sql_command.Dispose()
TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
DB_Update1()
DB_Refresh1()
End If

If [Link] Then
Try
strSQL = "INSERT INTO secondyearschedule
(Code,Subject,Teacher,Day,Time,Room) VALUES(@Code,@Subject,@Teacher,@Day,@Time,@Room)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The Information has been added!", [Link], "Okay
na! :D")
sql_reader.Close()
sql_command.Dispose()
TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
DB_Update2Y()
DB_Refresh2Y()
End If

If [Link] Then
Try
strSQL = "INSERT INTO thirdyearschedule
(Code,Subject,Teacher,Day,Time,Room) VALUES(@Code,@Subject,@Teacher,@Day,@Time,@Room)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The Information has been added!", [Link], "Okay
na! :D")
sql_reader.Close()
sql_command.Dispose()
TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
DB_Update3Y()
DB_Refresh3Y()
End If

If [Link] Then
Try
strSQL = "INSERT INTO fourthyearschedule
(Code,Subject,Teacher,Day,Time,Room) VALUES(@Code,@Subject,@Teacher,@Day,@Time,@Room)"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The Information has been added!", [Link], "Okay
na! :D")
sql_reader.Close()
sql_command.Dispose()
TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
DB_Update4Y()
DB_Refresh4Y()
End If


End Sub
Private Sub btnEditclass_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] Then
DB_Update1()
DB_Refresh1()
End If
If [Link] Then
DB_Update2Y()
DB_Refresh2Y()

End If
If [Link] Then
DB_Update3Y()
DB_Refresh3Y()
End If
If [Link] Then
DB_Update4Y()
DB_Refresh4Y()
End If

End Sub
Private Sub btnDeleteclass_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] Then
DB_Delete1()
DB_Refresh1()
End If
If [Link] Then
DB_Delete2Y()
DB_Refresh2Y()
End If
If [Link] Then
DB_Delete3Y()
DB_Refresh3Y()
End If
If [Link] Then
DB_Delete4y()
DB_Refresh4Y()
End If
End Sub
Private Sub btnClearclass_Click(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
TextFields_Clear1()

End Sub
Private Sub lvclassschedule_Click(ByVal sender As Object, ByVal e As
[Link]) Handles [Link]
If [Link] Then
DB_Select1()
End If
If [Link] Then
DB_Select2Y()
End If
If [Link] Then
DB_Select3Y()
End If
If [Link] Then
DB_Select4Y()
End If

End Sub
Sub DB_Connect1()
Try
strSQL = "SELECT * FROM firstyearschedule"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Update1()
Try
strSQL = "UPDATE firstyearschedule SET
Code=@Code,Subject=@Subject,Teacher=@Teacher,Day=@Day,Time=Time,Room=@Room WHERE Code ='"
& [Link] & "'"
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The information has been updated!", [Link],
"Information!")
sql_reader.Close()
sql_command.Dispose()
DB_Refresh1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Refresh1()
Try
strSQL = "SELECT * FROM firstyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
e1 = (sql_reader.Item("Code").ToString())
e2 = (sql_reader.Item("Subject").ToString())
e3 = (sql_reader.Item("Teacher").ToString())
e4 = (sql_reader.Item("Day").ToString)
e5 = (sql_reader.Item("Time").ToString)
e6 = (sql_reader.Item("Room").ToString)

With [Link](e1)
.[Link](e2)
.[Link](e3)
.[Link](e4)
.[Link](e5)
.[Link](e6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Select1()
Try
strSQL = "SELECT * FROM firstyearschedule WHERE Code Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
sql_reader.Read()
[Link] = sql_reader.Item("Code")
[Link] = sql_reader.Item("Subject")
[Link] = sql_reader.Item("Teacher")
[Link] = sql_reader.Item("Day")
[Link] = sql_reader.Item("Time")
[Link] = sql_reader.Item("Room")


sql_reader.Close()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Delete1()
Try
Dim res As Boolean = MsgBox("Are you sure you want to delete the
information?", [Link] + [Link], "Delete Information")
If res = True Then
strSQL = "DELETE FROM firstyearschedule WHERE Code Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.ExecuteNonQuery()
Else
End If
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Connect2Y()
Try
strSQL = "SELECT * FROM secondyearschedule"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Update2Y()
Try
strSQL = "UPDATE secondyearschedule SET
Code=@Code,Subject=@Subject,Teacher=@Teacher,Day=@Day,Time=Time,Room=@Room WHERE Code ='"
& [Link] & "'"
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The information has been updated!", [Link],
"Information!")
sql_reader.Close()
sql_command.Dispose()
DB_Refresh1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Refresh2Y()
Try
strSQL = "SELECT * FROM secondyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
d1 = (sql_reader.Item("Code").ToString())
d2 = (sql_reader.Item("Subject").ToString())
d3 = (sql_reader.Item("Teacher").ToString())
d4 = (sql_reader.Item("Day").ToString)
d5 = (sql_reader.Item("Time").ToString)
d6 = (sql_reader.Item("Room").ToString)

With [Link](d1)
.[Link](d2)
.[Link](d3)
.[Link](d4)
.[Link](d5)
.[Link](d6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Select2Y()
Try
strSQL = "SELECT * FROM secondyearschedule WHERE Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
sql_reader.Read()
[Link] = sql_reader.Item("Code")
[Link] = sql_reader.Item("Subject")
[Link] = sql_reader.Item("Teacher")
[Link] = sql_reader.Item("Day")
[Link] = sql_reader.Item("Time")
[Link] = sql_reader.Item("Room")


sql_reader.Close()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Delete2Y()
Try
Dim res As Boolean = MsgBox("Are you sure you want to delete the
information?", [Link] + [Link], "Delete Information")
If res = True Then
strSQL = "DELETE FROM secondyearschedule WHERE Code Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.ExecuteNonQuery()
Else
End If
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Connect3y()
Try
strSQL = "SELECT * FROM thirdyearschedule"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Update3Y()
Try
strSQL = "UPDATE thirdyearschedule SET
Code=@Code,Subject=@Subject,Teacher=@Teacher,Day=@Day,Time=Time,Room=@Room WHERE Code ='"
& [Link] & "'"
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The information has been updated!", [Link],
"Information!")
sql_reader.Close()
sql_command.Dispose()
DB_Refresh1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Refresh3Y()
Try
strSQL = "SELECT * FROM thirdyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
f1 = (sql_reader.Item("Code").ToString())
f2 = (sql_reader.Item("Subject").ToString())
f3 = (sql_reader.Item("Teacher").ToString())
f4 = (sql_reader.Item("Day").ToString)
f5 = (sql_reader.Item("Time").ToString)
f6 = (sql_reader.Item("Room").ToString)

With [Link](f1)
.[Link](f2)
.[Link](f3)
.[Link](f4)
.[Link](f5)
.[Link](f6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Select3Y()
Try
strSQL = "SELECT * FROM thirdyearschedule WHERE Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
sql_reader.Read()
[Link] = sql_reader.Item("Code")
[Link] = sql_reader.Item("Subject")
[Link] = sql_reader.Item("Teacher")
[Link] = sql_reader.Item("Day")
[Link] = sql_reader.Item("Time")
[Link] = sql_reader.Item("Room")


sql_reader.Close()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Delete3Y()
Try
Dim res As Boolean = MsgBox("Are you sure you want to delete the
information?", [Link] + [Link], "Delete Information")
If res = True Then
strSQL = "DELETE FROM thirdyearschedule WHERE Code Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.ExecuteNonQuery()
Else
End If
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Connect4Y()
Try
strSQL = "SELECT * FROM fourthyearschedule"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


TextFields1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Update4Y()
Try
strSQL = "UPDATE fourthyearschedule SET
Code=@Code,Subject=@Subject,Teacher=@Teacher,Day=@Day,Time=Time,Room=@Room WHERE Code ='"
& [Link] & "'"
sql_command.[Link]("@Code", [Link])
sql_command.[Link]("@Subject", [Link])
sql_command.[Link]("@Teacher", [Link])
sql_command.[Link]("@Day", [Link])
sql_command.[Link]("@Time", [Link])
sql_command.[Link]("@Room", [Link])

sql_command.ExecuteNonQuery()
MsgBox("The information has been updated!", [Link],
"Information!")
sql_reader.Close()
sql_command.Dispose()
DB_Refresh1()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Refresh4Y()
Try
strSQL = "SELECT * FROM fourthyearschedule"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
g1 = (sql_reader.Item("Code").ToString())
g2 = (sql_reader.Item("Subject").ToString())
g3 = (sql_reader.Item("Teacher").ToString())
g4 = (sql_reader.Item("Day").ToString)
g5 = (sql_reader.Item("Time").ToString)
g6 = (sql_reader.Item("Room").ToString)

With [Link](g1)
.[Link](g2)
.[Link](g3)
.[Link](g4)
.[Link](g5)
.[Link](g6)


End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Select4Y()
Try
strSQL = "SELECT * FROM fourthyearschedule WHERE Code Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
sql_reader.Read()
[Link] = sql_reader.Item("Code")
[Link] = sql_reader.Item("Subject")
[Link] = sql_reader.Item("Teacher")
[Link] = sql_reader.Item("Day")
[Link] = sql_reader.Item("Time")
[Link] = sql_reader.Item("Room")


sql_reader.Close()
Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Delete4y()
Try
Dim res As Boolean = MsgBox("Are you sure you want to delete the
information?", [Link] + [Link], "Delete Information")
If res = True Then
strSQL = "DELETE FROM fourthyearschedule WHERE Code Code ='" &
[Link](0).SubItems(0).Text & "'"
sql_command = New [Link](strSQL, sqlcon)
sql_command.[Link]("@Code", [Link])
sql_command.ExecuteNonQuery()
Else
End If
Catch ex As Exception
MsgBox([Link])
End Try
End Sub


Sub TextFields_Clear1()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()
[Link]()


End Sub

Sub TextFields1()
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True


End Sub

Sub TextFields_G()
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
[Link] = True
End Sub

End Class



Public Class paymentsettings

Private Sub btnok_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]


MsgBox("Payment Settings has been updated!", [Link],
"Information!")
[Link]()


End Sub
End Class



Imports [Link]
Imports [Link]

Public Class frmupdate
'First Year
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]

Dim Cnt1 As Integer = 0
Try
strSQL = "SELECT * FROM firstyear WHERE studentid like '%1%'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read
a = (sql_reader.Item("StudentID").ToString())
b = (sql_reader.Item("LastName").ToString())
c = (sql_reader.Item("FirstName").ToString())
f = (sql_reader.Item("MI").ToString)
g = (sql_reader.Item("Gender").ToString)
h = (sql_reader.Item("Age").ToString)
i = (sql_reader.Item("Birthdate").ToString)
j = (sql_reader.Item("Address").ToString)
k = (sql_reader.Item("Parent").ToString)
l = (sql_reader.Item("Contact").ToString)
m = (sql_reader.Item("SchoolYear").ToString)
n = (sql_reader.Item("YrandSection").ToString)
Cnt1 = Cnt1 + 1

With [Link](a)
.[Link](b)
.[Link](c)

.[Link](f)
.[Link](g)
.[Link](h)
.[Link](i)
.[Link](j)
.[Link](k)
.[Link](l)
.[Link](m)
.[Link](n)




End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
[Link] = "" & Cnt1 & ""
End Sub

'second year

Private Sub Button2_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim Cnt2 As Integer = 0
Try
strSQL = "SELECT * FROM secondyear WHERE studentid like '%1%'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
o = (sql_reader.Item("StudentID").ToString())
p = (sql_reader.Item("LastName").ToString())
q = (sql_reader.Item("FirstName").ToString)
s = (sql_reader.Item("MI").ToString)
t = (sql_reader.Item("Gender").ToString)
u = (sql_reader.Item("Age").ToString)
v = (sql_reader.Item("Birthdate").ToString)
w = (sql_reader.Item("Address").ToString)
x = (sql_reader.Item("Parent").ToString)
y = (sql_reader.Item("Contact").ToString)
z = (sql_reader.Item("SchoolYear").ToString)
ab = (sql_reader.Item("YrandSection").ToString)

Cnt2 = Cnt2 + 1

With [Link](o)
.[Link](p)
.[Link](q)
.[Link](s)
.[Link](t)
.[Link](u)
.[Link](v)
.[Link](w)
.[Link](x)
.[Link](y)
.[Link](z)
.[Link](ab)





End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
[Link] = "" & Cnt2 & ""
End Sub

'third year


Private Sub Button3_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim Cnt3 As Integer = 0
Try
strSQL = "SELECT * FROM thirdyear WHERE studentid like '%1%'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
cd = (sql_reader.Item("StudentID").ToString())
ef = (sql_reader.Item("LastName").ToString())
gh = (sql_reader.Item("FirstName").ToString)
kl = (sql_reader.Item("MI").ToString)
mn = (sql_reader.Item("Gender").ToString)
op = (sql_reader.Item("Age").ToString)
qr = (sql_reader.Item("Birthdate").ToString)
st = (sql_reader.Item("Address").ToString)
uv = (sql_reader.Item("Parent").ToString)
wx = (sql_reader.Item("Contact").ToString)
yz = (sql_reader.Item("SchoolYear").ToString)
abc = (sql_reader.Item("YrandSection").ToString)

Cnt3 = Cnt3 + 1

With [Link](cd)
.[Link](ef)
.[Link](gh)
.[Link](kl)
.[Link](mn)
.[Link](op)
.[Link](qr)
.[Link](st)
.[Link](uv)
.[Link](wx)
.[Link](yz)
.[Link](abc)

End With

Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
[Link] = "" & Cnt3 & ""
End Sub


Private Sub Button4_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim Cnt4 As Integer = 0
Try
strSQL = "SELECT * FROM fourthyear WHERE studentid like '%1%'"
sql_command = New [Link](strSQL, sqlcon)
sql_reader = sql_command.ExecuteReader
[Link]()
Do While sql_reader.Read()
def = (sql_reader.Item("StudentID").ToString())
ghi = (sql_reader.Item("LastName").ToString())
jkl = (sql_reader.Item("FirstName").ToString())
pqr = (sql_reader.Item("MI").ToString)
stu = (sql_reader.Item("Gender").ToString)
vwx = (sql_reader.Item("Age").ToString)
yza = (sql_reader.Item("Birthdate").ToString)
bcde = (sql_reader.Item("Address").ToString)
fghi = (sql_reader.Item("Parent").ToString)
jklm = (sql_reader.Item("Contact").ToString)
nopq = (sql_reader.Item("SchoolYear").ToString)
rstu = (sql_reader.Item("YrandSection").ToString)

Cnt4 = Cnt4 + 1
With [Link](def)
.[Link](ghi)
.[Link](jkl)
.[Link](pqr)
.[Link](stu)
.[Link](vwx)
.[Link](yza)
.[Link](bcde)
.[Link](fghi)
.[Link](jklm)
.[Link](nopq)
.[Link](rstu)




End With
Loop
sql_reader.Close()
sql_command.Dispose()
Catch ex As Exception
MsgBox([Link])
End Try
[Link] = "" & Cnt4 & ""
End Sub


Sub DB_Connect1()
Try
strSQL = "SELECT * FROM firstyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Connect2()
Try
strSQL = "SELECT * FROM secondyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


Catch ex As Exception
MsgBox([Link])
End Try
End Sub
Sub DB_Connect3()
Try
strSQL = "SELECT * FROM thirdyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Sub DB_Connect4()
Try
strSQL = "SELECT * FROM fourthyear"
sqlcon = New MySqlConnection("Database = localhost; database = high school
enrollment system; uid=root; pwd=") 'Initializes a new instance of the SqlConnection
class.
[Link]() 'Opens a database connection with the property settings
specified by the ConnectionString.


Catch ex As Exception
MsgBox([Link])
End Try
End Sub

Private Sub Button5_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
[Link] = True
[Link] = True
[Link] = True
[Link] = True


DB_Connect1()
DB_Connect2()
DB_Connect3()
DB_Connect4()

End Sub

Private Sub frmupdate_Load(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
[Link] = False
[Link] = False
[Link] = False
[Link] = False

End Sub
End Class

Imports [Link]
Imports [Link]
Module SQLConnect
Public sqlcon As MySqlConnection
Public sql_command As [Link]
Public sql_reader As [Link]
Public strSQL As String
Public dt As New DataTable
Public da As New MySqlDataAdapter
Public a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z,
ab, cd, ef, gh, ij, kl, mn, op, qr, st, uv, wx, yz, abc, def, ghi, jkl, mno, pqr, stu,
vwx, yza, bcde, fghi, jklm, nopq, rstu, vwxy, a1, b2, c3, d1, d2, d3, d4, d5, d6, e1, e2,
e3, e4, e5, e6, f1, f2, f3, f4, f5, f6, g1, g2, g3, g4, g5, g6 As String
End Module