FORM EDIT KARYAWAN

RUMUS :

Public Class FormEditDataKaryawan
    'Procedure untuk menonaktifkan seluruh toolbox saat loading pertama kali
    Public Sub nonAktif()
        TxtNIP.Enabled = False
        TxtNama.Enabled = False
        TxtJenisKelamin.Enabled = False
        TxtAlamat.Enabled = False
        TxtTelepon.Enabled = False
        TxtTempatLahir.Enabled = False
        TxtTanggalLahir.Enabled = False
        TxtStatus.Enabled = False
        TxtJabatan.Enabled = False
        TxtTanggalBergabung.Enabled = False
    End Sub

    'Procedure untuk merefresh form ke posisi nill/ awal
    Public Sub kosong()
        TxtNIP.Text = ""
        TxtNama.Text = ""
        TxtJenisKelamin.Text = ""
        TxtAlamat.Text = ""
        TxtTelepon.Text = ""
        TxtTempatLahir.Text = ""
        TxtTanggalLahir.Text = ""
        TxtStatus.Text = ""
        TxtJabatan.Text = ""
        TxtTanggalBergabung.Text = ""
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        'pilih tombol CARI
        'Masukan dahulu NIP karyawan pada input box
        Dim cari As String
        cari = InputBox("Masukan NIP Karyawan = ", "CARI DATA KARYAWAN")

        'Cek apakah yang diinput kosong
        If Len(Trim(cari)) = 0 Then Exit Sub

        'Ada input
        'Tampilkan data sesuai dengan input NIP karyawan nya (status masi disabled)
        Kelasku.bukaDATABASE()
        Kelasku.perintahSQL.CommandType = CommandType.Text
        Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where NIP = '" & cari & "'"
        Kelasku.ketemu = Kelasku.perintahSQL.ExecuteReader

        If Kelasku.ketemu.Read Then
            TxtNIP.Text = Kelasku.ketemu("NIP")
            TxtNama.Text = Kelasku.ketemu("nama")
            TxtJenisKelamin.Text = Kelasku.ketemu("jenisKelamin")
            TxtAlamat.Text = Kelasku.ketemu("alamat")
            TxtTelepon.Text = Kelasku.ketemu("telepon")
            TxtTempatLahir.Text = Kelasku.ketemu("tempatLahir")
            TxtTanggalLahir.Text = Kelasku.ketemu("tanggalLahir")
            TxtStatus.Text = Kelasku.ketemu("StatusKaryawan")
            TxtJabatan.Text = Kelasku.ketemu("jabatan")
            TxtTanggalBergabung.Text = Kelasku.ketemu("tanggalBergabung")
        Else
            MsgBox("Data TIDAK ditemukan, silahkan ulangi input NIP karyawan", MsgBoxStyle.Exclamation, "GAGAL")
            BtnCari.Focus()
        End If

        Kelasku.tutupDATABASE()
    End Sub

    Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbah.Click
        TxtNIP.Enabled = False
        TxtNama.Enabled = True
        TxtJenisKelamin.Enabled = True
        TxtAlamat.Enabled = True
        TxtTelepon.Enabled = True
        TxtTempatLahir.Enabled = True
        TxtTanggalLahir.Enabled = True
        TxtStatus.Enabled = True
        TxtJabatan.Enabled = True
        TxtTanggalBergabung.Enabled = True
    End Sub

    Private Sub BtnBackMenu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBackMenu.Click
        FormMenuUtama.Enabled = True
        Me.Close()
    End Sub

    Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click
        If Trim(TxtNama.Text.Length) = 0 Or Trim(TxtJenisKelamin.Text.Length) = 0 Or Trim(TxtAlamat.Text.Length) = 0 Or Trim(TxtTelepon.Text.Length) = 0 Or Trim(TxtTempatLahir.Text.Length) = 0 Or Trim(TxtTanggalLahir.Text.Length) = 0 Or Trim(TxtStatus.Text.Length) = 0 Or Trim(TxtJabatan.Text.Length) = 0 Or Trim(TxtTanggalBergabung.Text.Length) = 0 Then
            MsgBox("Data Belum Lengkap, ada data yang kosong!" & Chr(13) & "Silahkan dicek kembali.", MsgBoxStyle.Information, "GAGAL")
        Else
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "UPDATE tbKaryawan set nama = '" & TxtNama.Text & "', jenisKelamin = '" & TxtJenisKelamin.Text & "', alamat = '" & TxtAlamat.Text & "', telepon = '" & TxtTelepon.Text & "', tempatLahir = '" & TxtTempatLahir.Text & "', tanggalLahir = '" & TxtTanggalLahir.Text & "', jabatan = '" & TxtJabatan.Text & "', tanggalBergabung = '" & TxtTanggalBergabung.Text & "' where NIP = '" & TxtNIP.Text & "'"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Telah SUKSES Diperbaiki!", MsgBoxStyle.Information, "INFORMASI")
            FormInputDataKaryawan.tampilkanDataKaryawan()

            kosong()

        End If
    End Sub

    Private Sub FormEditDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        nonAktif()
        kosong()
    End Sub

    Private Sub BtnHapusData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapusData.Click
        If MsgBox("Apakah anda yakin ingin menhapus data karyawan ini ?", MsgBoxStyle.YesNo, "Konfirmasi") = MsgBoxResult.Yes Then
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "DELETE tbKaryawan where NIP = '" & TxtNIP.Text & "'"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Telah SUKSES dihapus!!!", MsgBoxStyle.Information, "INFORMASI")
            FormInputDataKaryawan.tampilkanDataKaryawan()

            kosong()
            nonAktif()
        End If
    End Sub
End Class