SISTEM INFO PENGGAJIAN KARYAWAN (FORM BAGIAN)

PROGRAM SISTEM INFORMASI PENGGAJIAN KARYAWAN

BELAJAR BAHASA PEMROGRAMAN

FORM BAGIAN

Listing pogram BAGIAN…

Imports System.Data.OleDb

Public Class BGN

    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:\BAGIAN\BGN.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub TampilRecordBagian()

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

        DS = New DataSet

        ADP.Fill(DS, "BGN")

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

    End Sub

    Sub ButtonBaru()

        BR.Enabled = True

        SMPN.Enabled = False

        edit.Enabled = False

        HPS.Enabled = False

        BTL.Enabled = False

        KLR.Enabled = True

    End Sub

    Sub ButtonEdit()

        BR.Enabled = False

        SMPN.Enabled = False

        edit.Enabled = True

        HPS.Enabled = True

        BTL.Enabled = True

        KLR.Enabled = False

    End Sub

    Sub ButtonSimpan()

        BR.Enabled = False

        SMPN.Enabled = True

        edit.Enabled = False

        HPS.Enabled = False

        BTL.Enabled = True

        KLR.Enabled = False

    End Sub

    Sub HapusText()

        kdbgn.Text = ""

        NM.Text = ""

        Call ButtonBaru()

    End Sub

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

        Call OpenDB()

        Call HapusText()

        Call TampilRecordBagian()

    End Sub

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

        Call HapusText()

        kdbgn.Focus()

    End Sub

    Private Sub hps_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps.Click

        SQL = "DELETE FROM BGN Where KDBAGIAN='" & kdbgn.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BR_Click(sender, e)

        Call TampilRecordBagian()

    End Sub

    Private Sub btl_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btl.Click

        Call HapusText()

        kdbgn.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 BGN(KDBAGIAN, NMBAGIAN) " & _

                        " values('" & kdbgn.Text & "','" & _

                                      NM.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BR_Click(sender, e)

        Call TampilRecordBagian()

    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click

        SQL = "UPDATE BGN SET NMBAGIAN='" & NM.Text & "' " & _

                    " Where KDBAGIAN='" & kdbgn.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call BR_Click(sender, e)

        Call TampilRecordBagian()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from BGN Where KDBAGIAN='" & kdbgn.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                NM.Text = DR.Item(1)

                Call ButtonEdit()

                MsgBox("DATA DITEMUKAN !")

            Else

                xkode = kdbgn.Text

                Call HapusText()

                kdbgn.Text = xkode

                Call ButtonSimpan()

            End If

            NM.Focus()

        End If

    End Sub

End Class

SISTEM INFO PENGGAJIAN (FORM JABATAN)

PROGRAM SISTEM INFORMASI PENGGAJIAN KARYAWAN

Belajar Bahasa Pemrograman

FORM JABATAN

Listing Program 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:\JABATAN\JBTN.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub TampilRecordjabatan()

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

        DS = New DataSet

        ADP.Fill(DS, "JBTN")

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

    End Sub

    Sub ButtonBaru()

        baru.Enabled = True

        simpan.Enabled = False

        edit.Enabled = False

        hapus.Enabled = False

        batal.Enabled = False

        keluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        baru.Enabled = False

        simpan.Enabled = False

        edit.Enabled = True

        hapus.Enabled = True

        batal.Enabled = True

        keluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        baru.Enabled = False

        simpan.Enabled = True

        edit.Enabled = False

        hapus.Enabled = False

        batal.Enabled = True

        keluar.Enabled = False

    End Sub

    Sub HapusText()

        KD.Text = ""

        NMJBTN.Text = ""

        Call ButtonBaru()

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

        Call HapusText()

        KD.Focus()

    End Sub

    Private Sub batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles batal.Click

        Call HapusText()

        KD.Focus()

    End Sub

    Private Sub keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles keluar.Click

        Me.Close()

    End Sub

    Private Sub simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan.Click

        SQL = "INSERT INTO JBTN(kodejabatan, namajabatan) " & _

                        " values('" & KD.Text & "','" & _

                                      NMJBTN.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call baru_Click(sender, e)

        Call TampilRecordjabatan()

    End Sub

    Private Sub edit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit.Click

        SQL = "UPDATE JBTN SET namajabatan='" & NMJBTN.Text & "' " & _

                    " Where kodejabatan='" & KD.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call baru_Click(sender, e)

        Call TampilRecordjabatan()

    End Sub

    Private Sub hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus.Click

        SQL = "DELETE FROM JBTN Where kodejabatan='" & KD.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call baru_Click(sender, e)

        Call TampilRecordjabatan()

    End Sub

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

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from JBTN Where kodejabatan='" & KD.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                NMJBTN.Text = DR.Item(1)

                Call ButtonEdit()

                MsgBox("DATA DITEMUKAN !")

            Else

                xkode = KD.Text

                Call HapusText()

                KD.Text = xkode

                Call ButtonSimpan()

            End If

            NMJBTN.Focus()

        End If

    End Sub

End Class

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