FORM TAMBAH ADMIN KARYAWAN

Rumus :

Public Class FormTambahAdmin
    Dim a, b, c As String

    Private Sub BtnDaftar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDaftar.Click
        a = TxtUsernameBaru.Text
        b = TxtPasswordBaru.Text
        c = TxtUlangiPassword.Text

        If b = c Then
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            Kelasku.perintahSQL.CommandText = "Insert into tbuser values ('" & a & "', '" & b & "')"
            Kelasku.perintahSQL.ExecuteNonQuery()
            Kelasku.tutupDATABASE()

            MsgBox("Data Admin Baru sudah tersimpan!" & Chr(13) & "Silahkan mencoba Login dengan data yang dimasukan.", MsgBoxStyle.Information, "SUKSES")

            TxtUsernameBaru.Text = ""
            TxtPasswordBaru.Text = ""
            TxtUlangiPassword.Text = ""
            TxtUsernameBaru.Focus()

        Else
            MsgBox("Password dan Ulangi Password tidak cocok!" & Chr(13) & "Silahkan ulangi input data admin yang benar.", MsgBoxStyle.Information, "GAGAL")
        End If
    End Sub

    Private Sub BtnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRefresh.Click
        Refresh()
    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
End Class

FORM LIHAT DATA KARYAWAN

Rumus :::::>>>><<<<<<


Public Class FormLihatDataKaryawan

    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 CmbParameter_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmbParameter.SelectedIndexChanged

    End Sub

    Private Sub FormLihatDataKaryawan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CmbParameter.Items.Clear()
        CmbParameter.Items.Add("NIP")
        CmbParameter.Items.Add("Nama")
        CmbParameter.Items.Add("Alamat")
        CmbParameter.Items.Add("Telepon")
        CmbParameter.Items.Add("jabatan")

        FormInputDataKaryawan.tampilkanDataKaryawan()
    End Sub

    Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click
        If CmbParameter.SelectedIndex = -1 Or TxtNilaiParameter.Text = "" Then

            MsgBox("Maaf untuk parameter pencarian harus dipilih dan nilai parameter harus diisi!", MsgBoxStyle.Exclamation, "ERROR")
            Exit Sub
        Else
            Kelasku.ds.Clear()
            Kelasku.bukaDATABASE()
            Kelasku.perintahSQL.CommandType = CommandType.Text
            If CmbParameter.SelectedIndex = 0 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where NIP like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 1 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where nama like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 2 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where alamat like '%" & TxtNilaiParameter.Text & "%'"
            ElseIf CmbParameter.SelectedIndex = 3 Then
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where telepon like '%" & TxtNilaiParameter.Text & "%'"
            Else
                Kelasku.perintahSQL.CommandText = "select * from tbKaryawan where jabatan like '%" & TxtNilaiParameter.Text & "%'"
            End If
            Kelasku.da.SelectCommand = Kelasku.perintahSQL
            Kelasku.da.Fill(Kelasku.ds, "tbKaryawan")

            DGVdataKaryawan.DataSource = Kelasku.ds
            DGVdataKaryawan.DataMember = "tbKaryawan"
            DGVdataKaryawan.ReadOnly = True
            Kelasku.tutupDATABASE()
        End If
    End Sub
End Class

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