Splash Page Code
Public Class Form1
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
ProgressBar1.Increment(1)
If ProgressBar1.Value = 100 Then
Me.Hide()
Dim log = New Login
log.Show()
Timer1.Enabled = False
End If
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
End Class
Login Page Code
Public Class Login
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub
Private Sub btnLogin_Click(sender As Object, e As EventArgs) Handles btnLogin.Click
If txtUsername.Text = "" Or txtPassword.Text = "" Then
MsgBox("Please Enter Username & Password")
ElseIf txtUsername.Text = "Admin" And txtPassword.Text = "Password" Then
Dim Obj = New Dashboard
Obj.Show()
Me.Hide()
Else
MsgBox("Wrong Username & Password")
txtUsername.Text = ""
txtPassword.Text = ""
End If
End Sub
End Class
Students Page Code
Imports System.Data.SqlClient
Public Class Students
Dim Con = New SqlConnection(“Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Shree Balaji\documents\visual studio 2015\Projects\College Management System\College Management System\CMSDatabase.mdf;Integrated Security=True”)
Private Sub Students_Load(sender As Object, e As EventArgs) Handles MyBase.Load
FillDepartment()
DisplayStudents()
End Sub
Private Sub BunifuImageButton1_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub
Private Sub FillDepartment()
Con.Open()
Dim query = "select * from DepartmentsTbl"
Dim cmd As New SqlCommand(query, Con)
Dim adapter As New SqlDataAdapter(cmd)
Dim Tbl As New DataTable()
adapter.Fill(Tbl)
StDepartmentCb.DataSource = Tbl
StDepartmentCb.DisplayMember = "DeptName"
StDepartmentCb.ValueMember = "DeptName"
Con.Close()
End Sub
Private Sub DisplayStudents()
Con.Open()
Dim query = "select * from StudentsTbl"
Dim adapter As SqlDataAdapter
Dim cmd = New SqlCommand(query, Con)
adapter = New SqlDataAdapter(cmd)
Dim builder = New SqlCommandBuilder(adapter)
Dim ds As DataSet
ds = New DataSet
adapter.Fill(ds)
StudentsDGV.DataSource = ds.Tables(0)
Con.Close()
End Sub
Private Sub NoDueList()
Con.Open()
Dim query = "select * from StudentsTbl where StFees < 100000"
Dim adapter As SqlDataAdapter
Dim cmd = New SqlCommand(query, Con)
adapter = New SqlDataAdapter(cmd)
Dim builder = New SqlCommandBuilder(adapter)
Dim ds As DataSet
ds = New DataSet
adapter.Fill(ds)
StudentsDGV.DataSource = ds.Tables(0)
Con.Close()
End Sub
Private Sub Reset()
StNameTb.Text = ""
StFeesTb.Text = ""
StMobileNoTb.Text = ""
StGenderCb.SelectedIndex = 0
StDepartmentCb.SelectedIndex = 0
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If StNameTb.Text = "" Or StFeesTb.Text = "" Or StMobileNoTb.Text = "" Or StGenderCb.SelectedIndex = -1 Or StDepartmentCb.SelectedIndex = -1 Then
MsgBox("Missing Information .... !")
Else
Try
Con.Open()
Dim query = "insert into StudentsTbl values('" & StNameTb.Text & "','" & StGenderCb.SelectedItem.ToString() & "','" & StDOB.Value.Date & "','" & StMobileNoTb.Text & "','" & StDepartmentCb.SelectedValue.ToString() & "'," & StFeesTb.Text & ")"
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Student saved Successfully")
Con.Close()
DisplayStudents()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Dim Key = 0
Private Sub StudentsDGV_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles StudentsDGV.CellContentClick
Dim row As DataGridViewRow = StudentsDGV.Rows(e.RowIndex)
StNameTb.Text = row.Cells(1).Value.ToString
StGenderCb.SelectedItem = row.Cells(2).Value.ToString
StDOB.Text = row.Cells(3).Value.ToString
StMobileNoTb.Text = row.Cells(4).Value.ToString
StDepartmentCb.SelectedValue = row.Cells(5).Value.ToString
StFeesTb.Text = row.Cells(6).Value.ToString
If StNameTb.Text = "" Then
Key = 0
Else
Key = Convert.ToInt32(row.Cells(0).Value.ToString)
End If
End Sub
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
If StNameTb.Text = "" Or StFeesTb.Text = "" Or StMobileNoTb.Text = "" Or StGenderCb.SelectedIndex = -1 Or StDepartmentCb.SelectedIndex = -1 Then
MsgBox("Missing Information .... !")
Else
Try
Con.Open()
Dim query = "update StudentsTbl set StName='" & StNameTb.Text & "',StGender='" & StGenderCb.SelectedItem.ToString() & "',StDOB='" & StDOB.Text & "',StPhone='" & StMobileNoTb.Text & "',StDept='" & StDepartmentCb.SelectedValue.ToString() & "',StFees=" & StFeesTb.Text & " where StId=" & Key & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Student updated Successfully")
Con.Close()
DisplayStudents()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If Key = 0 Then
MsgBox("Please Select the Student to Delete")
Else
Try
Con.Open()
Dim query = "delete from StudentsTbl where StId=" & Key & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Student Deleted Successfully")
Con.Close()
DisplayStudents()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
Reset()
End Sub
Private Sub btnReload_Click(sender As Object, e As EventArgs) Handles btnReload.Click
DisplayStudents()
End Sub
Private Sub btnNoDueList_Click(sender As Object, e As EventArgs) Handles btnNoDueList.Click
NoDueList()
End Sub
Private Sub StDepartmentCb_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles StDepartmentCb.SelectionChangeCommitted
End Sub
Private Sub btnTeachers_Click(sender As Object, e As EventArgs) Handles btnTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblTeachers_Click(sender As Object, e As EventArgs) Handles lblTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnFeesDeposit_Click(sender As Object, e As EventArgs) Handles btnFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblFeesDeposit_Click(sender As Object, e As EventArgs) Handles lblFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDepartments_Click(sender As Object, e As EventArgs) Handles btnDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDepartments_Click(sender As Object, e As EventArgs) Handles lblDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDashboard_Click(sender As Object, e As EventArgs) Handles btnDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDashboard_Click(sender As Object, e As EventArgs) Handles lblDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblLogout_Click(sender As Object, e As EventArgs) Handles lblLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
End Class
Teachers Page Code
Imports System.Data.SqlClient
Public Class Teachers
Dim Con = New SqlConnection(“Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Shree Balaji\documents\visual studio 2015\Projects\College Management System\College Management System\CMSDatabase.mdf;Integrated Security=True”)
Private Sub FillDepartment()
Con.Open()
Dim query = “select * from DepartmentsTbl”
Dim cmd As New SqlCommand(query, Con)
Dim adapter As New SqlDataAdapter(cmd)
Dim Tbl As New DataTable()
adapter.Fill(Tbl)
TDepartmentsCb.DataSource = Tbl
TDepartmentsCb.DisplayMember = “DeptName”
TDepartmentsCb.ValueMember = “DeptName”
Con.Close()
End Sub
Private Sub DisplayTeachers()
Con.Open()
Dim query = “select * from TeachersTbl”
Dim adapter As SqlDataAdapter
Dim cmd = New SqlCommand(query, Con)
adapter = New SqlDataAdapter(cmd)
Dim builder = New SqlCommandBuilder(adapter)
Dim ds As DataSet
ds = New DataSet
adapter.Fill(ds)
TeachersDGV.DataSource = ds.Tables(0)
Con.Close()
End Sub
Private Sub Reset()
TNameTb.Text = “”
TGenderCb.SelectedIndex = 0
TMobileNoTb.Text = “”
TDepartmentsCb.SelectedIndex = 0
TAddressTb.Text = “”
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If TNameTb.Text = "" Or TAddressTb.Text = "" Or TMobileNoTb.Text = "" Or TGenderCb.SelectedIndex = -1 Or TDepartmentsCb.SelectedIndex = -1 Then
MsgBox("Missing Information .... !")
Else
Try
Con.Open()
Dim query = "insert into TeachersTbl values('" & TNameTb.Text & "','" & TGenderCb.SelectedItem.ToString() & "','" & TDOB.Value.Date & "','" & TMobileNoTb.Text & "','" & TDepartmentsCb.SelectedValue.ToString() & "','" & TAddressTb.Text & "')"
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Teacher saved Successfully")
Con.Close()
DisplayTeachers()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub
Private Sub Teachers_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DisplayTeachers()
FillDepartment()
End Sub
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
If TNameTb.Text = "" Or TAddressTb.Text = "" Or TMobileNoTb.Text = "" Or TGenderCb.SelectedIndex = -1 Or TDepartmentsCb.SelectedIndex = -1 Then
MsgBox("Missing Information .... !")
Else
Try
Con.Open()
Dim query = "update TeachersTbl set TName='" & TNameTb.Text & "',TGender='" & TGenderCb.SelectedItem.ToString() & "',TDOB='" & TDOB.Text & "',TPhone='" & TMobileNoTb.Text & "',TDept='" & TDepartmentsCb.SelectedValue.ToString() & "',TAdd='" & TAddressTb.Text & "' where TId=" & Key & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Teacher updated Successfully")
Con.Close()
DisplayTeachers()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If Key = 0 Then
MsgBox("Please Select the Teacher to Delete")
Else
Try
Con.Open()
Dim query = "delete from TeachersTbl where TId=" & Key & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Teacher Deleted Successfully")
Con.Close()
DisplayTeachers()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
Reset()
End Sub
Dim Key = 0
Private Sub TeachersDGV_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles TeachersDGV.CellContentClick
Dim row As DataGridViewRow = TeachersDGV.Rows(e.RowIndex)
TNameTb.Text = row.Cells(1).Value.ToString
TGenderCb.SelectedItem = row.Cells(2).Value.ToString
TDOB.Text = row.Cells(3).Value.ToString
TMobileNoTb.Text = row.Cells(4).Value.ToString
TDepartmentsCb.SelectedValue = row.Cells(5).Value.ToString
TAddressTb.Text = row.Cells(6).Value.ToString
If TNameTb.Text = "" Then
Key = 0
Else
Key = Convert.ToInt32(row.Cells(0).Value.ToString)
End If
End Sub
Private Sub btnStudents_Click(sender As Object, e As EventArgs) Handles btnStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblStudents_Click(sender As Object, e As EventArgs) Handles lblStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnFeesDeposit_Click(sender As Object, e As EventArgs) Handles btnFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblFeesDeposit_Click(sender As Object, e As EventArgs) Handles lblFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDepartments_Click(sender As Object, e As EventArgs) Handles btnDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDepartments_Click(sender As Object, e As EventArgs) Handles lblDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDashboard_Click(sender As Object, e As EventArgs) Handles btnDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDashboard_Click(sender As Object, e As EventArgs) Handles lblDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblLogout_Click(sender As Object, e As EventArgs) Handles lblLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
End Class
Fee Deposit Page Code
Imports System.Data.SqlClient
Public Class Fees_Deposit
Dim Con = New SqlConnection(“Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Shree Balaji\documents\visual studio 2015\Projects\College Management System\College Management System\CMSDatabase.mdf;Integrated Security=True”)
Private Sub Fees_Deposit_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DisplayPayments()
FillStudents()
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub
Private Sub FillStudents()
Con.Open()
Dim query = "select * from StudentsTbl"
Dim cmd As New SqlCommand(query, Con)
Dim adapter As New SqlDataAdapter(cmd)
Dim Tbl As New DataTable()
adapter.Fill(Tbl)
StIdCb.DataSource = Tbl
StIdCb.DisplayMember = "StId"
StIdCb.ValueMember = "StId"
Con.Close()
End Sub
Private Sub DisplayPayments()
Con.Open()
Dim query = "select * from FeesTbl"
Dim adapter As SqlDataAdapter
Dim cmd = New SqlCommand(query, Con)
adapter = New SqlDataAdapter(cmd)
Dim builder = New SqlCommandBuilder(adapter)
Dim ds As DataSet
ds = New DataSet
adapter.Fill(ds)
FeesDGV.DataSource = ds.Tables(0)
Con.Close()
End Sub
Private Sub Reset()
AmountTb.Text = ""
StNameTb.Text = ""
StIdCb.SelectedIndex = -1
End Sub
Private Sub UpdateStudents()
Try
Con.Open()
Dim query = "update StudentsTbl set StFees=" & AmountTb.Text & " where StId=" & StIdCb.SelectedValue.ToString() & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Fees updated Successfully")
Con.Close()
DisplayPayments()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub GetStName()
Con.Open()
Dim query = "select * from StudentsTbl where StId=" & StIdCb.SelectedValue.ToString() & ""
Dim cmd As New SqlCommand(query, Con)
Dim dt As New DataTable
Dim reader As SqlDataReader
reader = cmd.ExecuteReader()
While reader.Read
StNameTb.Text = reader(1).ToString()
End While
Con.Close()
End Sub
Private Sub btnPay_Click(sender As Object, e As EventArgs) Handles btnPay.Click
If StNameTb.Text = "" Or AmountTb.Text = "" Then
MsgBox("Missing Information .... !")
ElseIf Convert.ToInt32(AmountTb.Text) > 100000 Or Convert.ToInt32(AmountTb.Text) < 1 Then
MsgBox("Wrong Amount")
Else
Try
Con.Open()
Dim query = "insert into FeesTbl values(" & StIdCb.SelectedValue.ToString() & ",'" & StNameTb.Text & "','" & Period.Value.Date & "'," & AmountTb.Text & ")"
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Fees Paid Successfully")
Con.Close()
DisplayPayments()
UpdateStudents()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub StIdCb_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles StIdCb.SelectionChangeCommitted
GetStName()
End Sub
Private Sub btnTeachers_Click(sender As Object, e As EventArgs) Handles btnTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblTeachers_Click(sender As Object, e As EventArgs) Handles lblTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnStudents_Click(sender As Object, e As EventArgs) Handles btnStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblStudents_Click(sender As Object, e As EventArgs) Handles lblStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDepartments_Click(sender As Object, e As EventArgs) Handles btnDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDepartments_Click(sender As Object, e As EventArgs) Handles lblDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDashboard_Click(sender As Object, e As EventArgs) Handles btnDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDashboard_Click(sender As Object, e As EventArgs) Handles lblDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblLogout_Click(sender As Object, e As EventArgs) Handles lblLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
End Class
Deepartments Page Code
Imports System.Data.SqlClient
Public Class Departments
Dim Con = New SqlConnection(“Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Shree Balaji\documents\visual studio 2015\Projects\College Management System\College Management System\CMSDatabase.mdf;Integrated Security=True”)
Private Sub Departments_Load(sender As Object, e As EventArgs) Handles MyBase.Load
DisplayDepartments()
End Sub
Private Sub DisplayDepartments()
Con.Open()
Dim query = “select * from DepartmentsTbl”
Dim adapter As SqlDataAdapter
Dim cmd = New SqlCommand(query, Con)
adapter = New SqlDataAdapter(cmd)
Dim builder = New SqlCommandBuilder(adapter)
Dim ds As DataSet
ds = New DataSet
adapter.Fill(ds)
DepartmentsDGV.DataSource = ds.Tables(0)
Con.Close()
End Sub
Private Sub Reset()
DeptNameTb.Text = “”
DeptDescTb.Text = “”
DeptDurationTb.Text = “”
End Sub
Private Sub BunifuImageButton1_Click(sender As Object, e As EventArgs) Handles BunifuImageButton1.Click
Application.Exit()
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If DeptNameTb.Text = "" Or DeptDescTb.Text = "" Or DeptDurationTb.Text = "" Then
MsgBox("Missing Information .... !")
Else
Try
Con.Open()
Dim query = "insert into DepartmentsTbl values('" & DeptNameTb.Text & "','" & DeptDescTb.Text & "'," & DeptDurationTb.Text & ")"
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Deparment saved Successfully")
Con.Close()
DisplayDepartments()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
If DeptNameTb.Text = "" Or DeptDescTb.Text = "" Or DeptDurationTb.Text = "" Then
MsgBox("Missing Information .... !")
Else
Try
Con.Open()
Dim query = "update DepartmentsTbl set DeptName='" & DeptNameTb.Text & "',DeptDesc='" & DeptDescTb.Text & "',DeptDur=" & DeptDurationTb.Text & " where DeptId=" & Key & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Deparment updated Successfully")
Con.Close()
DisplayDepartments()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Dim Key = 0
Private Sub DepartmentsDGV_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DepartmentsDGV.CellContentClick
Dim row As DataGridViewRow = DepartmentsDGV.Rows(e.RowIndex)
DeptNameTb.Text = row.Cells(1).Value.ToString
DeptDescTb.Text = row.Cells(2).Value.ToString
DeptDurationTb.Text = row.Cells(3).Value.ToString
If DeptNameTb.Text = "" Then
Key = 0
Else
Key = Convert.ToInt32(row.Cells(0).Value.ToString)
End If
End Sub
Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
If Key = 0 Then
MsgBox("Please Select the Department to Delete")
Else
Try
Con.Open()
Dim query = "delete from DepartmentsTbl where DeptId=" & Key & ""
Dim cmd As SqlCommand
cmd = New SqlCommand(query, Con)
cmd.ExecuteNonQuery()
MsgBox("Deparment Deleted Successfully")
Con.Close()
DisplayDepartments()
Reset()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End If
End Sub
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
Reset()
End Sub
Private Sub btnTeachers_Click(sender As Object, e As EventArgs) Handles btnTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblTeachers_Click(sender As Object, e As EventArgs) Handles lblTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnStudents_Click(sender As Object, e As EventArgs) Handles btnStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblStudents_Click(sender As Object, e As EventArgs) Handles lblStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnFeesDeposit_Click(sender As Object, e As EventArgs) Handles btnFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblFeesDeposit_Click(sender As Object, e As EventArgs) Handles lblFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDashboard_Click(sender As Object, e As EventArgs) Handles btnDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDashboard_Click(sender As Object, e As EventArgs) Handles lblDashboard.Click
Dim Obj = New Dashboard()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblLogout_Click(sender As Object, e As EventArgs) Handles lblLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
End Class
Dashboard Page Code
Imports System.Data.SqlClient
Public Class Dashboard
Dim Con = New SqlConnection(“Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Shree Balaji\documents\visual studio 2015\Projects\College Management System\College Management System\CMSDatabase.mdf;Integrated Security=True”)
Private Sub CountStudents()
Dim StNum As Integer
Con.Open()
Dim sql = “select COUNT() from StudentsTbl” Dim cmd As SqlCommand cmd = New SqlCommand(sql, Con) StNum = cmd.ExecuteScalar LblNOS.Text = StNum Con.Close() End Sub Private Sub CountTeachers() Dim TNum As Integer Con.Open() Dim sql = “select COUNT() from TeachersTbl”
Dim cmd As SqlCommand
cmd = New SqlCommand(sql, Con)
TNum = cmd.ExecuteScalar
LblNOT.Text = TNum
Con.Close()
End Sub
Private Sub CountDepartments()
Dim DeptNum As Integer
Con.Open()
Dim sql = “select COUNT(*) from DepartmentsTbl”
Dim cmd As SqlCommand
cmd = New SqlCommand(sql, Con)
DeptNum = cmd.ExecuteScalar
LblNOD.Text = DeptNum
Con.Close()
End Sub
Private Sub SumFees()
Dim FeesAmount As Integer
Con.Open()
Dim sql = “select Sum(Amount) from FeesTbl”
Dim cmd As SqlCommand
cmd = New SqlCommand(sql, Con)
FeesAmount = cmd.ExecuteScalar
LblNOP.Text = FeesAmount
Con.Close()
End Sub
Private Sub Dashboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
CountStudents()
CountTeachers()
CountDepartments()
SumFees()
End Sub
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Application.Exit()
End Sub
Private Sub btnTeachers_Click(sender As Object, e As EventArgs) Handles btnTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblTeachers_Click(sender As Object, e As EventArgs) Handles lblTeachers.Click
Dim Obj = New Teachers()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnStudents_Click(sender As Object, e As EventArgs) Handles btnStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblStudents_Click(sender As Object, e As EventArgs) Handles lblStudents.Click
Dim Obj = New Students()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnFeesDeposit_Click(sender As Object, e As EventArgs) Handles btnFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblFeesDeposit_Click(sender As Object, e As EventArgs) Handles lblFeesDeposit.Click
Dim Obj = New Fees_Deposit()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnDepartments_Click(sender As Object, e As EventArgs) Handles btnDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblDepartments_Click(sender As Object, e As EventArgs) Handles lblDepartments.Click
Dim Obj = New Departments()
Obj.Show()
Me.Hide()
End Sub
Private Sub btnLogout_Click(sender As Object, e As EventArgs) Handles btnLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
Private Sub lblLogout_Click(sender As Object, e As EventArgs) Handles lblLogout.Click
Dim Obj = New Login()
Obj.Show()
Me.Hide()
End Sub
End Class