SISTEM INFORMASI DATA KARYAWAN KELAPA SAWIT

Public Class MENU

    Private Sub DATAPEGAWAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAPEGAWAIToolStripMenuItem.Click

        Form1.Show()

    End Sub

    Private Sub LAPPEGAWAIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPPEGAWAIToolStripMenuItem.Click

        Dim laporan As New data

        LAPPEGAWAI.crv.ReportSource = laporan

        LAPPEGAWAI.Show()

Private Sub DATABAGIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATABAGIANToolStripMenuItem.Click

        Form2.Show()

    End Sub

    Private Sub LAPBAGIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPBAGIANToolStripMenuItem.Click

        Dim LAPORAN As New Bagian

        LAPBAGIAN.CRV.ReportSource = LAPORAN

        LAPBAGIAN.Show()

    End Sub

Private Sub DATAJABATANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAJABATANToolStripMenuItem.Click

        Form3.Show()

    End Sub

    Private Sub LAPORANJABATANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPORANJABATANToolStripMenuItem.Click

        Dim LAPORAN As New JABATAN

        LAPJABATAN.CRV.ReportSource = LAPORAN

        LAPJABATAN.Show()

    End Sub

Private Sub DATAABSENSIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATAABSENSIToolStripMenuItem.Click

        Form4.Show()

    End Sub

    Private Sub KELUARToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem.Click

        Me.Close()

    End Sub

   

    Private Sub LAPABSENSIToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LAPABSENSIToolStripMenuItem.Click

        Dim LAPORAN As New ABSENSI

        LAPABSENSI.CRV.ReportSource = LAPORAN

        LAPABSENSI.Show()

    End Sub

End Class

 

Imports MySql.Data.MySqlClient

Public Class Form1

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=karyawan"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kodepegawai.Text = ""

        namapegawai.Text = ""

        alamat.Text = ""

        tmptlahir.Text = ""

        tgllahir.Text = ""

        jeniskelamin.Text = ""

        agama.Text = ""

        pendidikan.Text = ""

        jabatan.Text = ""

        rubahtombol(True, False, False, False, True)

        kodepegawai.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        btnhapus.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnhapus.Enabled = btn3

        btnbatal.Enabled = btn4

        btnkeluar.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode_pegawai", 80, HorizontalAlignment.Center)

        lv.Columns.Add("nama_pegawai", 100, HorizontalAlignment.Left)

        lv.Columns.Add("alamat", 80, HorizontalAlignment.Left)

        lv.Columns.Add("tmpt_lahir", 100, HorizontalAlignment.Left)

        lv.Columns.Add("tgl_lahir", 100, HorizontalAlignment.Left)

        lv.Columns.Add("jenis_kelamin", 80, HorizontalAlignment.Left)

        lv.Columns.Add("agama", 100, HorizontalAlignment.Left)

        lv.Columns.Add("pendidikan", 80, HorizontalAlignment.Left)

        lv.Columns.Add("jabatan", 100, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from pegawai"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kodepegawai")

                lst.SubItems.Add(rs("namapegawai"))

                lst.SubItems.Add(rs("alamat"))

                lst.SubItems.Add(rs("tmptlahir"))

                lst.SubItems.Add(rs("tgllahir"))

                lst.SubItems.Add(rs("jeniskelamin"))

                lst.SubItems.Add(rs("agama"))

                lst.SubItems.Add(rs("pendidikan"))

                lst.SubItems.Add(rs("jabatan"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into pegawai(kodepegawai,namapegawai,alamat,tmptlahir,tgllahir,jeniskelamin,agama,pendidikan,jabatan)" & _

                    "values('" & kodepegawai.Text & _

                    "','" & namapegawai.Text & _

                    "','" & alamat.Text & _

                    "','" & tmptlahir.Text & _

                    "','" & tgllahir.Text & _

                    "','" & jeniskelamin.Text & _

                    "','" & agama.Text & _

                    "','" & pendidikan.Text & _

                    "','" & jabatan.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update pegawai set namapegawai='" & namapegawai.Text & "', " & _

                    "alamat='" & alamat.Text & "'," & _

                    "tmptlahir='" & tmptlahir.Text & "'," & _

                    "tgllahir='" & tgllahir.Text & "' " & _

                     "jeniskelamin='" & jeniskelamin.Text & "'," & _

                    "agama='" & agama.Text & "'," & _

                    "pendidikan='" & pendidikan.Text & "' " & _

                "jabatan='" & jabatan.Text & "' " & _

                    "where kodepegawai='" & kodepegawai.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from pegawai where kodepegawai='" & kodepegawai.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kodepegawai.Text = rs("kodepegawai")

        namapegawai.Text = rs("namapegawai")

        alamat.Text = rs("alamat")

        tmptlahir.Text = rs("tmptlahir")

        tgllahir.Text = rs("tgllahir")

        jeniskelamin.Text = rs("jeniskelamin")

        agama.Text = rs("agama")

        pendidikan.Text = rs("pendidikan")

        jabatan.Text = rs("jabatan")

        rubahtombol(False, True, True, True, True)

        btnsimpan.Text = "Edit"

        kodepegawai.Enabled = False

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

   

    Private Sub KD_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodepegawai.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kodepegawai.Text = "" Then

                MsgBox("isi NPM terlebih dahulu")

            Else

                sql = "select * from pegawai where kodepegawai='" & kodepegawai.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kodepegawai.Text

                    bersih()

                    kodepegawai.Text = x

                    rubahtombol(False, True, False, True, False)

                    btnsimpan.Text = "Simpan"

                End Try

                namapegawai.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call bersih()

        kodepegawai.Focus()

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call bersih()

        kodepegawai.Focus()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        If btnsimpan.Text = "Simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class

 

Imports MySql.Data.MySqlClient

Public Class Form1

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=karyawan"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kodebagian.Text = ""

        namabagian.Text = ""

        rubahtombol(True, False, False, False, True)

        kodebagian.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        baru.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnhapus.Enabled = btn3

        btnbatal.Enabled = btn4

        btnkeluar.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kodebagian", 80, HorizontalAlignment.Center)

        lv.Columns.Add("namabagian", 180, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from bagian"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kodebagian")

                lst.SubItems.Add(rs("namabagian"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into bagian(kodebagian,namabagian)" & _

                    "values('" & kodebagian.Text & _

                    "','" & namabagian.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update bagian set namabagian='" & namabagian.Text & "', " & _

                    "where kodebagian='" & kodebagian.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from bagian where kodebagian='" & kodebagian.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kodebagian.Text = rs("kodebagian")

        namabagian.Text = rs("namabagian")

        rubahtombol(False, True, True, True, True)

        btnsimpan.Text = "Edit"

        kodebagian.Enabled = False

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

  

       Private Sub KD_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodebagian.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kodebagian.Text = "" Then

                MsgBox("isi NPM terlebih dahulu")

            Else

                sql = "select * from bagian where kodebagian='" & kodebagian.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kodebagian.Text

                    bersih()

                    kodebagian.Text = x

                    rubahtombol(False, True, False, True, False)

                    btnsimpan.Text = "Simpan"

                End Try

                namabagian.Focus()

                rs.Close()

            End If

        End If

    End Sub

  

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        If btnsimpan.Text = "Simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call bersih()

        kodebagian.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

  

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        Call bersih()

        kodebagian.Focus()

    End Sub

    Private Sub btnedit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit.Click

    End Sub

End Class

 

Imports MySql.Data.MySqlClient

Public Class Form1

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=karyawan"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kodejabatan.Text = ""

        namajabatan.Text = ""

        rubahtombol(True, False, False, False, True)

        kodejabatan.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        baru.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnhapus.Enabled = btn3

        btnbatal.Enabled = btn4

        btnkeluar.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kodejabatan", 80, HorizontalAlignment.Center)

        lv.Columns.Add("namajabatan", 180, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from jabatan"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kodejabatan")

                lst.SubItems.Add(rs("namajabatan"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into jabatan(kodejabatan,namajabatan)" & _

                    "values('" & kodejabatan.Text & _

                    "','" & namajabatan.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update jabatan set namajabatan='" & namajabatan.Text & "', " & _

                    "where kodejabatan='" & kodejabatan.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from jabatan where kodejabatan='" & kodejabatan.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kodejabatan.Text = rs("kodejabatan")

        namajabatan.Text = rs("namajabatan")

        rubahtombol(False, True, True, True, True)

        btnsimpan.Text = "Edit"

        kodejabatan.Enabled = False

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

    Private Sub KD_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kodejabatan.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kodejabatan.Text = "" Then

                MsgBox("isi NPM terlebih dahulu")

            Else

                sql = "select * from jabatan where kodejabatan='" & kodejabatan.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kodejabatan.Text

                    bersih()

                    kodejabatan.Text = x

                    rubahtombol(False, True, False, True, False)

                    btnsimpan.Text = "Simpan"

                End Try

                namajabatan.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        If btnsimpan.Text = "Simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call bersih()

        kodejabatan.Focus()

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub baru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles baru.Click

        Call bersih()

        kodejabatan.Focus()

    End Sub

   

End Class

 

Imports MySql.Data.MySqlClient

Public Class Form1

    Public db As New MySql.Data.MySqlClient.MySqlConnection

    Public sql As String

    Public cmd As MySqlCommand

    Public rs As MySqlDataReader

    Sub opendb()

        sql = "server=localhost;uid=root;pwd;database=karyawanbd"

        Try

            db.ConnectionString = sql

            db.Open()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub bersih()

        kode_pegawai.Text = ""

        nama_pegawai.Text = ""

        tempat_lahir.Text = ""

        jabatan.Text = ""

        jam_masuk.Text = ""

        status_absensi.Text = ""

        rubahtombol(True, False, False, False, True)

        kode_pegawai.Enabled = True

    End Sub

    Sub rubahtombol(ByRef btn1 As Boolean, ByVal btn2 As Boolean, ByVal btn3 As Boolean, ByVal btn4 As Boolean, ByVal btn5 As Boolean)

        btnbaru.Enabled = btn1

        btnsimpan.Enabled = btn2

        btnhapus.Enabled = btn3

        btnbatal.Enabled = btn4

        btnkeluar.Enabled = btn5

    End Sub

    Sub buattabel()

        lv.Columns.Add("kode_pegawai", 100, HorizontalAlignment.Center)

        lv.Columns.Add("nama_pegawai", 100, HorizontalAlignment.Left)

        lv.Columns.Add("tempat_lahir", 100, HorizontalAlignment.Left)

        lv.Columns.Add("jabatan", 100, HorizontalAlignment.Left)

        lv.Columns.Add("jam_masuk", 100, HorizontalAlignment.Left)

        lv.Columns.Add("status_absensi", 100, HorizontalAlignment.Left)

        LV.GridLines = True

        LV.FullRowSelect = True

        LV.View = View.Details

    End Sub

    Sub isitabel()

        LV.Items.Clear()

        sql = "select*from absensi"

        cmd = New MySqlCommand(sql, db)

        rs = cmd.ExecuteReader

        Try

            While rs.Read

                Dim lst As New ListViewItem

                lst.Text = rs("kode_pegawai")

                lst.SubItems.Add(rs("nama_pegawai"))

                lst.SubItems.Add(rs("tempat_lahir"))

                lst.SubItems.Add(rs("jabatan"))

                lst.SubItems.Add(rs("jam_masuk"))

                lst.SubItems.Add(rs("status_absensi"))

                LV.Items.Add(lst)

            End While

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

        rs.Close()

    End Sub

    Sub prosesdb(ByVal log As Integer)

        Dim pesan As String = ""

        Select Case log

            Case 0

                sql = "insert into absensi(kode_pegawai,nama_pegawai,tempat_lahir,jabatan,jam_masuk,status_absensi)" & _

                    "values('" & kode_pegawai.Text & _

                    "','" & nama_pegawai.Text & _

                    "','" & tempat_lahir.Text & _

                    "','" & jabatan.Text & _

                    "','" & jam_masuk.Text & _

                    "','" & status_absensi.Text & "')"

                pesan = "data telah tersimpan"

            Case 1

                sql = "update absensi set nama_pegawai='" & nama_pegawai.Text & "', " & _

                    "tempat_lahir='" & tempat_lahir.Text & "'," & _

                    "jabatan='" & jabatan.Text & "'," & _

                    "jam_masuk='" & jam_masuk.Text & "' " & _

                    "status_absensi='" & status_absensi.Text & "' " & _

                    "where kode_pegawai='" & kode_pegawai.Text & "'"

                pesan = "data telah terupdate"

            Case 2

                sql = "delete from absensi where kode_pegawai='" & kode_pegawai.Text & "'"

                pesan = "data telah dihapus"

        End Select

        Try

            cmd = New MySqlCommand(sql, db)

            cmd.ExecuteNonQuery()

            MsgBox(pesan, MsgBoxStyle.Information + MsgBoxStyle.OkOnly, "konfirmasi")

            Call bersih()

            Call isitabel()

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

    Sub showdb()

        rs.Read()

        kode_pegawai.Text = rs("kode_pegawai")

        nama_pegawai.Text = rs("nama_pegawai")

        tempat_lahir.Text = rs("tempat_lahir")

        jabatan.Text = rs("jabatan")

        jam_masuk.Text = rs("jam_masuk")

        status_absensi.Text = rs("status_absensi")

        rubahtombol(False, True, True, True, True)

        btnsimpan.Text = "Edit"

        kode_pegawai.Enabled = False

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Call opendb()

        Call bersih()

        Call buattabel()

        Call isitabel()

    End Sub

  

  

    Private Sub KD_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode_pegawai.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        If tombol = 13 Then

            Dim x As String

            If kode_pegawai.Text = "" Then

                MsgBox("isi NPM terlebih dahulu")

            Else

                sql = "select * from absensi where kode_pegawai='" & kode_pegawai.Text & "'"

                cmd = New MySqlCommand(sql, db)

                rs = cmd.ExecuteReader

                Try

                    Call showdb()

                Catch ex As Exception

                    x = kode_pegawai.Text

                    bersih()

                    kode_pegawai.Text = x

                    rubahtombol(False, True, False, True, False)

                    btnsimpan.Text = "Simpan"

                End Try

                nama_pegawai.Focus()

                rs.Close()

            End If

        End If

    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call bersih()

        kode_pegawai.Focus()

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click

        Call bersih()

        kode_pegawai.Focus()

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click

        Dim x As String

        x = MsgBox("anda yakin akan dihapus", MsgBoxStyle.Information + MsgBoxStyle.YesNo, "hapus")

        If x = vbYes Then

            Call prosesdb(2)

        End If

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click

        If btnsimpan.Text = "Simpan" Then prosesdb(0) Else prosesdb(1)

    End Sub

  

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click

        Me.Close()

    End Sub

End Class