PROGRAM SISTEM INFO PENGGAJIAN KARYAWAN

BELAJAR BAHASA PEMROGRAMAN

PROGRAM SISTEM INFORMASI PENGGAJIAN KARYAWAN

Program menggunakan M.accses memakai MENU STRIP, ada 3 program didalamnya diantaranya Form KARYAWAN,BAGIAN dan JABATAN…

 

Listing program MENU…

Public Class MENU

    Private Sub KARYAWANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KARYAWANToolStripMenuItem.Click

        KRYWN.MdiParent = Me

        KRYWN.Show()

    End Sub

    Private Sub KELUARToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUARToolStripMenuItem1.Click

        Me.Close()

    End Sub

    Private Sub BAGIANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BAGIANToolStripMenuItem.Click

        BGN.MdiParent = Me

        BGN.Show()

    End Sub

    Private Sub JABATANToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JABATANToolStripMenuItem.Click

        Jabatan.MdiParent = Me

        Jabatan.Show()

    End Sub

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

        Me.Close()

    End Sub

End Class 

FORM KARYAWAN

Listing Program KARYAWAN…

Imports System.Data.OleDb

Public Class KRYWN

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DR As OleDbDataReader

    Public DS As New DataSet

    Dim SQL As String

    Public Sub OPENDB()

        Dim LOKASI = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=C:\penjualan\karyawan.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub Recordkaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM karyawan", DB)

        DS = New DataSet

        ADP.Fill(DS, "karyawan")

        DataGridView1.DataSource = DS.Tables("karyawan")

    End Sub

    Sub butoonbaru()

        BR.Enabled = True

        SMPN.Enabled = False

        EDIT.Enabled = False

        HPS.Enabled = False

        BTL.Enabled = False

        KLR.Enabled = True

    End Sub

    Sub butoonedit()

        BR.Enabled = False

        SMPN.Enabled = False

        EDIT.Enabled = True

        HPS.Enabled = True

        BTL.Enabled = True

        KLR.Enabled = False

    End Sub

    Sub butoonsimpan()

        BR.Enabled = False

        SMPN.Enabled = True

        EDIT.Enabled = False

        HPS.Enabled = False

        BTL.Enabled = True

        KLR.Enabled = False

    End Sub

    Sub hapustext()

        NIK.Text = ""

        NM.Text = ""

        JBTN.Text = ""

        JK.Text = ""

        BGN.Text = ""

        Call butoonbaru()

    End Sub

    Sub tampilkodejabatan()

        kdjabatan.Items.Clear()

        SQL = "SELECT * FROM JBTN "

        CMD = New OleDbCommand(SQL, DB)

        DR = CMD.ExecuteReader

        While DR.Read

            kdjabatan.Items.Add(DR("kdjabatan"))

        End While

        DR.Close()

    End Sub

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

        Call OPENDB()

        Call hapustext()

        Call Recordkaryawan()

        Call tampilkodejabatan()

    End Sub

    Private Sub BR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BR.Click

        Call hapustext()

        NIK.Focus()

    End Sub

    Private Sub BTL_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTL.Click

        Call hapustext()

        NIK.Focus()

    End Sub

    Private Sub KLR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLR.Click

        Me.Close()

    End Sub

    Private Sub SMPN_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SMPN.Click

        SQL = "INSERT INTO karyawan (NIK, NAMA, JABATAN, JK, BAGIAN)" & _

                               "Values ('" & NIK.Text & "','" & _

                                               NM.Text & "','" & _

                                               kdjabatan.Text & "','" & _

                                               JK.Text & "','" & _

                                               BGN.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BR_Click(sender, e)

        Call Recordkaryawan()

    End Sub

    Private Sub EDIT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT.Click

        SQL = "UPDATE karyawan SET NAMA='" & NM.Text & "'," & _

                                        " JABATAN='" & kdjabatan.Text & "'," & _

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

                                        " BAGIAN='" & BGN.Text & "' " & _

                                        " Where NIK='" & NIK.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BR_Click(sender, e)

        Call Recordkaryawan()

    End Sub

    Private Sub HPS_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HPS.Click

        SQL = "DELETE FROM karyawan Where NIK='" & NIK.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BR_Click(sender, e)

        Call Recordkaryawan()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "SELECT * FROM karyawan Where NIK='" & NIK.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                NM.Text = DR.Item(1)

                xkode = DR.Item(2)

                JK.Text = DR.Item(3)

                BGN.Text = DR.Item(4)

                Call butoonedit()

                MsgBox("DATA DITEMUKAN!")

            Else

                xkode = NIK.Text

                Call hapustext()

                NIK.Text = xkode

                Call butoonsimpan()

            End If

            DR.Close()

            kdjabatan.Text = xkode

            NM.Focus()

        End If

    End Sub

    Private Sub kdjabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdjabatan.SelectedIndexChanged

        SQL = "SELECT * FROM Jabatan where kodejabatan='" & kdjabatan.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        DR = CMD.ExecuteReader

        If DR.HasRows Then

            DR.Read()

            kdjabatan.Text = DR("namajabatan")

        End If

    End Sub 

End Class