SISTEM INFORMASI PENGGAJIAN KARYAWAN (Menustrip, Form Karyawan, Jabatan, Bagian)

1.TAMPILAN MENU (Menustrip)

Public Class Form1

    Private Sub KeluarProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarProgramToolStripMenuItem.Click

        End

    End Sub

    Private Sub KaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem.Click

        karyawan.MdiParent = Me

        karyawan.Show()

    End Sub

    Private Sub BagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BagianToolStripMenuItem.Click

        bagian.MdiParent = Me

        bagian.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

End Class

Tampilannya seperti berikut:

 

 

2. KARYAWAN

Imports System.Data.OleDb

Public Class karyawan

    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:\VB2\karyawan.mdb"

        DB = New OleDbConnection(lokasi)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampilrecordkaryawan()

        ADP = New OleDbDataAdapter("select * from karyawan", DB)

        DS = New DataSet

        ADP.Fill(DS, "karyawan")

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

    End Sub

    Sub buttonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = False

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = False

        btnsimpan.Enabled = False

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = False

        btnsimpan.Enabled = True

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub hapustext()

        nik.Text = ""

        nama.Text = ""

        jabatan.Text = ""

        jeniskelamin.Text = ""

        bagian.Text = ""

        Call buttonbaru()

    End Sub

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

        SQL = "delete from karyawan where NIK='" & nik.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkaryawan()

    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 btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call hapustext()

        nik.Focus()

    End Sub

    Sub TampilKodeJabatan()

        KdJabatan.Items.Clear()

        SQL = "select *from jabatan"

        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 tampilrecordkaryawan()

        Call tampilKodeJabatan()

        jeniskelamin.Items.Add("Laki-laki")

        jeniskelamin.Items.Add("Perempuan")

    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

        Dim xkd 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

                nama.Text = DR.Item(1)

                xkd = DR.Item(2)

                jeniskelamin.Text = DR.Item(3)

                bagian.Text = DR.Item(4)

                Call buttonedit()

                MsgBox("Data Ditemukan !!")

            Else

                xkode = nik.Text

                Call hapustext()

                nik.Text = xkode

                Call buttonsimpan()

            End If

            DR.Close()

            KdJabatan.Text = xkd

            nama.Focus()

        End If

    End Sub

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

        Call hapustext()

        nik.Focus()

    End Sub

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

        SQL = "update karyawan set Nama='" & nama.Text & "'," & _

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

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

                                 "bagian='" & bagian.Text & "' " & _

                                 " where NIK='" & nik.Text & "' "

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkaryawan()

    End Sub

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

        SQL = "insert into karyawan(NIK, nama, KdJabatan, jeniskelamin, bagian) " & " values('" & nik.Text & "','" & nama.Text & "','" & jabatan.Text & "','" & jeniskelamin.Text & "','" & bagian.Text & "' )"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordkaryawan()

    End Sub

    Private Sub KdJabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KdJabatan.SelectedIndexChanged

        SQL = "select *from jabatan"

        CMD = New OleDbCommand(SQL, DB)

        DR = CMD.ExecuteReader

        If DR.HasRows Then

            DR.Read()

            jabatan.Text = DR("NmJabatan")

        End If

    End Sub

End Class

Saat kita menjalankan form KARYAWAN ini, maka tampilannya akan menjadi seperti berikut:

 

Dan saat kita memasukkan kode (misalkan : K001), maka akan muncul tampilan seperti dibawah ini:

Setelah muncul, kita bisa meng-edit data yg ada dan menimpannya kembali menjadi data yg baru.

3. Bagian

Imports System.Data.OleDb

Public Class bagian

    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:\VB2\karyawan.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampilrecordbagian()

        ADP = New OleDbDataAdapter("SELECT * from bagian", DB)

        DS = New DataSet

        ADP.Fill(DS, "bagian")

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

    End Sub

    Sub buttonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = False

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = False

        btnsimpan.Enabled = False

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = False

        btnsimpan.Enabled = True

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub hapustext()

        kdbagian.Text = ""

        nmbagian.Text = ""

        Call buttonbaru()

    End Sub

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

        SQL = "delete from bagian where kdbagian='" & kdbagian.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordbagian()

    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 btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call hapustext()

        kdbagian.Focus()

    End Sub

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

        Call openDB()

        Call hapustext()

        Call tampilrecordbagian()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select *from bagian where kdbagian='" & kdbagian.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nmbagian.Text = DR.Item(1)

                Call buttonedit()

                MsgBox("data ditemukan !!")

            Else

                xkode = kdbagian.Text

                Call hapustext()

                kdbagian.Text = xkode

                Call buttonsimpan()

            End If

            nmbagian.Focus()

        End If

    End Sub

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

        Call hapustext()

        kdbagian.Focus()

    End Sub

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

        SQL = "update bagian set nmbagian='" & nmbagian.Text & "' " & _

                                 " where kdbagian='" & kdbagian.Text & "' "

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordbagian()

    End Sub

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

        SQL = "insert into bagian(kdbagian, nmbagian) " & " values('" & kdbagian.Text & "','" & nmbagian.Text & "' )"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordbagian()

    End Sub

End Class

Tampilannya sebagai berikut:

 

Saat kita masukkan kode yang sudah ada (Misal: B001): 

Kita bisa memasukkan data yg baru (Misal: B006), isikan nama dan data selanjutnya, lalu simpan dengan menggunakan button SIMPAN

 

4. Jabatan

Imports System.Data.OleDb

Public Class jabatan

    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:\VB2\karyawan.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub tampilrecordjabatan()

        ADP = New OleDbDataAdapter("SELECT * from jabatan", DB)

        DS = New DataSet

        ADP.Fill(DS, "jabatan")

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

    End Sub

    Sub buttonbaru()

        btnbaru.Enabled = True

        btnsimpan.Enabled = False

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub buttonedit()

        btnbaru.Enabled = False

        btnsimpan.Enabled = False

        btnedit.Enabled = True

        btnhapus.Enabled = True

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub buttonsimpan()

        btnbaru.Enabled = False

        btnsimpan.Enabled = True

        btnedit.Enabled = False

        btnhapus.Enabled = False

        btnbatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub hapustext()

        kdjabatan.Text = ""

        nmjabatan.Text = ""

        Call buttonbaru()

    End Sub

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

        SQL = "delete from jabatan where kdjabatan='" & kdjabatan.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordjabatan()

    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 btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click

        Call hapustext()

        kdjabatan.Focus()

    End Sub

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

        Call openDB()

        Call hapustext()

        Call tampilrecordjabatan()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select *from jabatan where kdjabatan='" & kdjabatan.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nmjabatan.Text = DR.Item(1)

                Call buttonedit()

                MsgBox("data ditemukan !!")

            Else

                xkode = kdjabatan.Text

                Call hapustext()

                kdjabatan.Text = xkode

                Call buttonsimpan()

            End If

            nmjabatan.Focus()

        End If

    End Sub

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

        Call hapustext()

        kdjabatan.Focus()

    End Sub

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

        SQL = "update jabatan set nmjabatan='" & nmjabatan.Text & "' " & _

                                 " where kdjabatan='" & kdjabatan.Text & "' "

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordjabatan()

    End Sub

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

        SQL = "insert into jabatan(kdjabatan, nmjabatan) " & " values('" & kdjabatan.Text & "','" & nmjabatan.Text & "' )"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnbaru_Click(sender, e)

        Call tampilrecordjabatan()

    End Sub

End Class

Sama seperti form KARYAWAN dan, BAGIAN kita bisa melakukan hal yang sama pada  JABATAN..