Imports MySql.Data.MySqlClient
Public Class Form1
    Dim connectionString As String = "server=localhost;userid=root;password=;database=HrDB"

    Private Sub cmdSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSave.Click
        Dim con As New MySqlConnection(connectionString)
        con.Open()
        Dim query As String = "Insert into employee (EmpID,EmpName,DOB,Salary)values(@EmpID,@EmpName,@DOB,@Salary)"
        Dim cmd As New MySqlCommand(query, con)
        cmd.Parameters.AddWithValue("@EmpID", txtID.Text)
        cmd.Parameters.AddWithValue("@EmpName", txtName.Text)
        cmd.Parameters.AddWithValue("@DOB", Convert.ToDateTime(txtDOB.Text))
        cmd.Parameters.AddWithValue("@Salary", Convert.ToDouble(txtSalary.Text))
        cmd.ExecuteNonQuery()
        con.Close()
        MessageBox.Show("Record successfully saved", "Success", MessageBoxButtons.OKCancel, MessageBoxIcon.Information)


    End Sub

    Private Sub cmdDel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdDel.Click
        If txtID.Text = "" Then
            MessageBox.Show("Please enter ID of employee to delete", "Warning", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        Dim confirm As String = MessageBox.Show("Confirm delete?", "Caution", MessageBoxButtons.YesNo, MessageBoxIcon.Warning)
        If confirm = Windows.Forms.DialogResult.No Then
            Exit Sub
        End If
        Dim con2 As New MySqlConnection(connectionString)
        con2.Open()
        Dim delquery As String = "Delete from employee where EmpID=@EmpID"
        Dim delcmd As New MySqlCommand(delquery, con2)
        delcmd.Parameters.AddWithValue("@EmpID", txtID.Text)
        Dim rowsAffected As Integer = delcmd.ExecuteNonQuery
        con2.Close()
        If rowsAffected > 0 Then
            MessageBox.Show("Record deleted successfully", "Delete", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Else
            MessageBox.Show("No matching record was found", "Delete Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If

    End Sub
End Class