College Management System Code

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

Leave a Comment

Your email address will not be published. Required fields are marked *

Shopping Cart