]

Imports MySql.Data.MySqlClient

Public Class FrmPegawai
Dim conn As New AccessData.KoneksiDB


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
Try
Dim StrSQL As String = "INSERT INTO pegawai (idpegawai,nama,alamat,jabatan) VALUES (@B_idpegawai,@B_nama,@B_alamat,@B_jabatan);"
Dim myCommand As MySqlCommand = New MySqlCommand(StrSQL, conn.open)

Dim parameterB_idpegawai As MySqlParameter = New MySqlParameter("@B_idpegawai", MySqlDbType.VarChar, 45)
parameterB_idpegawai.Value = TxtNip.Text
Dim parameterB_nama As MySqlParameter = New MySqlParameter("@B_nama", MySqlDbType.VarChar, 45)
parameterB_nama.Value = TxtNama.Text
Dim parameterB_alamat As MySqlParameter = New MySqlParameter("@B_alamat", MySqlDbType.VarChar, 45)
parameterB_alamat.Value = TxtAlamat.Text
Dim parameterB_jabatan As MySqlParameter = New MySqlParameter("@B_jabatan", MySqlDbType.VarChar, 45)
parameterB_jabatan.Value = TxtJabatan.Text

With myCommand.Parameters
.Add(parameterB_idpegawai)
.Add(parameterB_nama)
.Add(parameterB_alamat)
.Add(parameterB_jabatan)
End With

Dim result As MySqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

MsgBox("Data Pegawai Sudah Disimpan !", vbYes, "Pegawai")
DataGridView1.Refresh()
Catch SqlEx As MySqlException
Throw New Exception(SqlEx.Message.ToString())
End Try
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
Try
Dim StrSQL As String = "Delete from pegawai where idpegawai=@idpegawai"

Dim myCommand As MySqlCommand = New MySqlCommand(StrSQL, conn.open)
myCommand.CommandType = CommandType.Text

Dim parameteridpegawai As MySqlParameter = New MySqlParameter("@idpegawai", MySqlDbType.VarChar, 45)
parameteridpegawai.Value = TxtNip.Text

myCommand.Parameters.Add(parameteridpegawai)

Dim result As MySqlDataReader = myCommand.ExecuteReader(CommandBehavior.CloseConnection)

MsgBox("Data Pegawai Sudah Dihapus !", vbYes, "Pegawai")

BtnBatal_Click(sender, e)

Catch SqlEx As MySqlException
Throw New Exception(SqlEx.Message.ToString())
End Try
End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click
FrmUtama.Enabled = True
Me.Close()
End Sub

Private Sub FrmPegawai_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
FrmUtama.Enabled = True
End Sub

Private Sub FrmPegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'GembiralokaDataSet.pegawai' table. You can move, or remove it, as needed.
Me.PegawaiTableAdapter.Fill(Me.GembiralokaDataSet.pegawai)

End Sub

Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
Try
Dim StrSQL As String = "SELECT * FROM pegawai where idpegawai=@B_idpegawai"
Dim myCommand As New MySqlCommand(StrSQL, conn.open)
myCommand.Parameters.Add("@B_idpegawai", MySqlDbType.VarChar).Value = TxtNip.Text
Dim rdr As MySqlDataReader = myCommand.ExecuteReader

If rdr.Read = False Then
MsgBox("Data Tidak Ditemukan !", vbYes, "Pegawai")
TxtNip.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
TxtJabatan.Text = ""
TxtNip.Focus()
Else
TxtNama.Text = rdr("nama").ToString()
TxtAlamat.Text = rdr("alamat").ToString()
TxtJabatan.Text = rdr("jabatan").ToString()
TxtNama.SelectAll()
End If
rdr.Close()
Catch sqlex As MySqlException
Throw New Exception(sqlex.Message.ToString())

End Try
End Sub

Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click
TxtNip.Text = ""
TxtNama.Text = ""
TxtAlamat.Text = ""
TxtJabatan.Text = ""
End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

End Sub

Private Sub DataGridView1_CellDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellDoubleClick
Try
TxtNip.Text = DataGridView1.SelectedCells(0).Value
TxtNama.Text = DataGridView1.SelectedCells(1).Value
TxtAlamat.Text = DataGridView1.SelectedCells(2).Value
TxtJabatan.Text = DataGridView1.SelectedCells(3).Value
Catch ex As Exception

End Try
End Sub
End Class