Home » » Membuat data karyawan dengan menggunakan database Microsoft access

Membuat data karyawan dengan menggunakan database Microsoft access

Posted by Triani Arista Posted on 03.11 with 18 comments
Membuat data karyawan dengan menggunakan database Microsoft access

  1. Buat table pada accessnya seperti gambar dibawah ini  
                                              gambar 1.1
                                              gambar 1.2
                                          gambar 1.3

       2. Buka program visual studio 2008

      3.  Design from seperti gambar dibawah ini
Dan simpan dengan “Sistem Informasi Penggajian Karyawann cv.Smart Solution”
Dengan menggunakan menu strip seperti gambar dibawah ini
 

                          gambar 1.4


                   




     Cara membuat menu strip seperti gambar diatas adalah
    • Pada control command pilih menus and toolbars
    • Pilih menu strip
    • Maka akan muncul gambar seperti dibawah ini
    • Pada tupy here ketik “file” dan design seperti gambar 1.4
  1. tambah form baru dan beri nama masing - masing form tersebut dengan nama pegawai,bagian,jabatan 
                        
                                                   gambar 1.5

                                    gambar 1.6

                                gambar 1.7



  1. klik menu project pada menubar  lalu pilih add moduls
  2. pada form moduls ketik perintah seperti dibawah ini
                                                                                                                 
      Imports System.Data.OleDb

Module Module1
    Public DB As OleDbConnection
    Public cmd As OleDbCommand
    Public ADP As OleDbDataAdapter
    Public DR As OleDbDataReader
    Public DS As New DataSet
    Public SQL As String

    Public Sub OPENDB()
        Dim LOKASI = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=E:\VBDatabase\tria.mdb"
        DB = New OleDbConnection(LOKASI)
        If DB.State = ConnectionState.Closed Then
            DB.Open()
        End If
    End Sub

    Sub TAMPILGRID(ByVal obj As Object, ByVal ctable As String)
        SQL = "SELECT * FROM " & ctable
        ADP = New OleDbDataAdapter(SQL, DB)
        DS = New DataSet
        ADP.Fill(DS, ctable)
        obj.DataSource = DS.Tables(ctable)
    End Sub

    Sub IsikanCombo(ByVal cbo As Object, ByVal ctable As String, ByVal cfield As String)
        cbo.Items.Clear()
        SQL = "select " & cfield & " from " & ctable
        cmd = New OleDbCommand(SQL, DB)
        DR = cmd.ExecuteReader
        While DR.Read
            cbo.Items.Add(DR(cfield))
        End While
        DR.Close()
    End Sub

End Module

  1. pada form 1 ketik perintah seperti dibawah ini

Public Class Form1

    Private Sub DataBagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataBagianToolStripMenuItem.Click
        data_bagian.MdiParent = Me
        data_bagian.Show()
    End Sub

    Private Sub DataPegawaiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPegawaiToolStripMenuItem.Click
        data_pegawai.MdiParent = Me
        data_pegawai.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        jabatan.MdiParent = Me
        jabatan.Show()
    End Sub
End Class

  1. pada form pegawai ketik perintah dibawah ini


Imports System.Data.OleDb
Public Class data_pegawai

    Sub RubahButton(ByVal L0 As Boolean, ByVal L1 As Boolean, ByVal L2 As Boolean, ByVal L3 As Boolean, ByVal L4 As Boolean, ByVal L5 As Boolean)
        btnbaru.Enabled = L0
        btnsimpan.Enabled = L1
        btnedit.Enabled = L2
        btnhapus.Enabled = L3
        btnbatal.Enabled = L4
        btnkeluar.Enabled = L5
    End Sub

    Sub hapus()
        nik.Text = ""
        nama.Text = ""
        bagian.Text = ""
        jabatan.Text = ""
        gajipokok.Text = ""
        tlahir.Text = ""
        tgllahir.Text = ""
        tglmasuk.Text = ""
        Call RubahButton(True, False, False, False, False, True)
    End Sub

    Sub prosesDB(ByVal aksi As Byte)
        Select Case aksi
            Case 0
                SQL = "insert into karyawan(nik,nama,jabatan,gajipokok,tlahir,tgllahir,tglmasuk)" & _
                                        "values('" & nik.Text & "','" & _
                                                    nama.Text & "','" & _
                                                    bagian.Text & "','" & _
                                                    jabatan.Text & "','" & _
                                                    gajipokok.Text & "','" & _
                                                    tlahir.Text & "','" & _
                                                    tgllahir.Text & "','" & _
                                                    tglmasuk.Text & "')"
            Case 1
                SQL = "update karyawan set nama='" & nama.Text & "', " & _
                            "bagian = '" & bagian.Text & "', " & _
                            "jabatan = '" & jabatan.Text & "', " & _
                            "gajipokok = '" & gajipokok.Text & "', " & _
                            "tlahir = '" & tlahir.Text & "', " & _
                            "tgllahir = '" & tgllahir.Text & "', " & _
                            "tglmasuk= '" & tglmasuk.Text & "' " & _
                            " where kode = '" * nik.Text & "','"
            Case 2
                SQL = "delete from karyawan where nik='" & nik.Text & "'"
        End Select
        cmd = New OleDbCommand(SQL, DB)
        cmd.ExecuteNonQuery()
        Call hapus()
        Call TAMPILGRID(GRID, "karyawan")
        Call IsikanCombo(nik, "karyawan", "nik")
        GRID.Focus()
    End Sub

    Private Sub data_pegawai_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OPENDB()
        Call hapus()
        Call TAMPILGRID(GRID, "karyawan")
        Call IsikanCombo(nik, "karyawan", "nik")
        Cari.Items.Add("nik")
        Cari.Items.Add("nama")
        Cari.Items.Add("jabatan")
        Cari.Items.Add("gajipokok")
        Cari.Items.Add("tlahir")
        Cari.Items.Add("tgllahir")
        Cari.Items.Add("tglmasuk")

    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Call prosesDB(2)
    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 hapus()
        GRID.Focus()
    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 xkaryawan 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("nama")
                bagian.Text = DR("bagian")
                jabatan.Text = DR("jabatan")
                gajipokok.Text = DR("gajipokok")
                tlahir.Text = DR("tempatlahir")
                tgllahir.Text = DR("tgllahir")
                tglmasuk.Text = DR("tglmasuk")
                Call RubahButton(False, False, True, True, True, False)
            Else
                xkaryawan = nik.Text
                Call hapus()
                nik.Text = xkaryawan
                Call RubahButton(False, True, False, False, True, False)
            End If
            DR.Close()
            nama.Focus()
        End If
    End Sub

    Private Sub nik_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nik.SelectedIndexChanged

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call hapus()
        nik.Focus()
    End Sub

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

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        Call prosesDB(0)
    End Sub
End Class
  1. Pada form bagian ketik perintah dibawah ini
Imports System.Data.OleDb

Public Class data_bagian

    Sub RubahButton(ByVal L0 As Boolean, ByVal L1 As Boolean, ByVal L2 As Boolean, ByVal L3 As Boolean, ByVal L4 As Boolean, ByVal L5 As Boolean)
        btnbaru.Enabled = L0
        btnsimpan.Enabled = L1
        btnedit.Enabled = L2
        btnhapus.Enabled = L3
        btnbatal.Enabled = L4
        btnkeluar.Enabled = L5
    End Sub

    Sub hapus()
        kdbagian.Text = ""
        nmbagian.Text = ""
        pimpinan.Text = ""
        tlpn.Text = ""
        Call RubahButton(True, False, False, False, False, True)
    End Sub

    Sub prosesDB(ByVal aksi As Byte)
        Select Case aksi
            Case 0
                SQL = "insert into bagian(kdbagian,nmbagian,pimpinan,telp)" & _
                                        "values('" & kdbagian.Text & "','" & _
                                                    nmbagian.Text & "','" & _
                                                    pimpinan.Text & "','" & _
                                                    tlpn.Text & "')"
            Case 1
                SQL = "update bagaian set nmbagian='" & nmbagian.Text & "', " & _
                            "pimpinan = '" & pimpinan.Text & "', " & _
                            "telp= '" & tlpn.Text & "' " & _
                            " where kdbagian = '" * kdbagian.Text & "','"
            Case 2
                SQL = "delete from bagian where kdbagian='" & kdbagian.Text & "'"
        End Select
        cmd = New OleDbCommand(SQL, DB)
        cmd.ExecuteNonQuery()
        Call hapus()
        Call TAMPILGRID(GRID, "Bagian")
        Call IsikanCombo(kdbagian, "Bagian", "kdbagian")
        GRID.Focus()
    End Sub
    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Call prosesDB(2)
    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 data_bagian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call OPENDB()
        Call hapus()
        Call TAMPILGRID(GRID, "Bagian")
        Call IsikanCombo(kdbagian, "Bagian", "kdbagian")
        Cari.Items.Add("kdBagian")
        Cari.Items.Add("nmBagian")
        Cari.Items.Add("pimpinan")
        Cari.Items.Add("telp")
    End Sub

    Private Sub btnbaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbaru.Click
        Call hapus()
        GRID.Focus()
    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 xbagian 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
                pimpinan.Text = DR("pimpinan")
                nmbagian.Text = DR("nmbagian")
                tlpn.Text = DR("telp")
                Call RubahButton(False, False, True, True, True, False)
            Else
                xbagian = kdbagian.Text
                Call hapus()
                kdbagian.Text = xbagian
                Call RubahButton(False, True, False, False, True, False)
            End If
            DR.Close()
            nmbagian.Focus()
        End If
    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call hapus()
        kdbagian.Focus()
    End Sub

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

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

    Private Sub Search_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Search.TextChanged
        Sql = "SELECT * FROM bagian where " & Cari.Text & " like '%" & Search.Text & "%'"
        ADP = New OleDbDataAdapter(Sql, DB)
        DS = New DataSet
        ADP.Fill(DS, "bagian")
        GRID.DataSource = DS.Tables("bagian")
    End Sub

    Private Sub kdbagian_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kdbagian.SelectedIndexChanged

    End Sub
End Class

10. Pada form jabatan ketik perintah seperti dibawah ini

Imports System.Data.OleDb
Public Class jabatan
    Sub RubahButton(ByVal L0 As Boolean, ByVal L1 As Boolean, ByVal L2 As Boolean, ByVal L3 As Boolean, ByVal L4 As Boolean, ByVal L5 As Boolean)
        btnbaru.Enabled = L0
        btnsimpan.Enabled = L1
        btnedit.Enabled = L2
        btnhapus.Enabled = L3
        btnbatal.Enabled = L4
        btnkeluar.Enabled = L5
    End Sub

    Sub hapus()
        kdjabatan.Text = ""
        nmjabatan.Text = ""
        TUNJANGAN.Text = ""
        Call RubahButton(True, False, False, False, False, True)
    End Sub

    Sub prosesDB(ByVal aksi As Byte)
        Select Case aksi
            Case 0
                SQL = "insert into jabatan(kdjabatan,jabatan,tunjangan)" & _
                                        "values('" & kdjabatan.Text & "','" & _
                                                    nmjabatan.Text & "','" & _
                                                    TUNJANGAN.Text & "')"
            Case 1
                SQL = "update jabatan set jabatan='" & nmjabatan.Text & "', " & _
                            "tunjangan= '" & TUNJANGAN.Text & "' " & _
                            " where kdjabatan = '" * kdjabatan.Text & "','"
            Case 2
                SQL = "delete from jabatan where kdjabatan='" & kdjabatan.Text & "'"
        End Select
        cmd = New OleDbCommand(SQL, DB)
        cmd.ExecuteNonQuery()
        Call hapus()
        Call TAMPILGRID(GRID, "jabatan")
        Call IsikanCombo(kdjabatan, "jabatan", "kdjabatan")
        GRID.Focus()
    End Sub

    Private Sub jabatan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Cari.Items.Add("nik")
        Cari.Items.Add("nama")
        Cari.Items.Add("jabatan")
        Cari.Items.Add("gajipokok")
        Cari.Items.Add("tlahir")
        Cari.Items.Add("tgllahir")
        Cari.Items.Add("tglmasuk")
        Call OPENDB()
        Call TAMPILGRID(GRID, "jabatan")
        Call IsikanCombo(kdjabatan, "jabatan", "kdjabatan")
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Call prosesDB(2)
    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 hapus()
        GRID.Focus()
    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 xjabatan 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("nmjabatan")
                TUNJANGAN.Text = DR("tunjangan")
                Call RubahButton(False, False, True, True, True, False)
            Else
                xjabatan = kdjabatan.Text
                Call hapus()
                kdjabatan.Text = xjabatan
                Call RubahButton(False, True, False, False, True, False)
            End If
            DR.Close()
            nmjabatan.Focus()
        End If
    End Sub

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

    End Sub

    Private Sub btnbatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbatal.Click
        Call hapus()
        kdjabatan.Focus()
    End Sub

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

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

    Private Sub nmjabatan_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nmjabatan.TextChanged

    End Sub
End Class




mesran.net
trianiarista.blogspot.com
 




Written by : Your Name - Describe about you

Lorem ipsum dolor sit amet, consectetur adipiscing elit. Etiam id libero non erat fermentum varius eget at elit. Suspendisse vel mattis diam. Ut sed dui in lectus hendrerit interdum nec ac neque. Praesent a metus eget augue lacinia accumsan ullamcorper sit amet tellus.

Join Me On: Facebook | Twitter | Google Plus :: Thank you for visiting ! ::

18 komentar:

  1. Unknown3 Maret 2016 pukul 07.57

    BOLEH MINTA APLIKASINYA YANG SUDAH JADI KE BANG. KALAU BISA SIVH.

    BalasHapus
  2. Unknown3 Maret 2016 pukul 07.57

    INI ALAMAT EMAIL SAYA kkrsulaiman@gmail.com

    BalasHapus
  3. Unknown13 Oktober 2016 pukul 09.51

    Invaluable commentary ! For what it's worth if others need to fill out a Fillable irs form 981 , We used a fillable version here https://goo.gl/koTkVX.

    BalasHapus
  4. Unknown16 Januari 2017 pukul 14.48

    tolong dong share aplikasi jadi mzlahnya aku udah nggak punya waktu untuk buat aplikasi krna hari ini udah mau presentasi tolong yaaaa.... gue butuh banget kirim aja ke email aku Putriani@gmailm.com

    BalasHapus
  5. Unknown27 Februari 2017 pukul 19.42

    Om boleh minta aplikasi nya yang sdh jadi belum...mksih om sblumnya....ini alamat email saya...ade.rukmana09@gmail.com

    BalasHapus
  6. Unknown24 Maret 2017 pukul 23.08

    Siang bang....
    bantu untuk kirim aplikasi yg sdah jadinya bang...ke alamat email moirsya.nabila@gmail.com
    Terima kasih bang

    BalasHapus
  7. Unknown8 Februari 2018 pukul 16.15

    bagi dong .....please, kizlaurn@gmail.com

    BalasHapus
  8. Unknown7 Mei 2018 pukul 00.42

    BANG BOLEH DONG BAGI APLIKASINYA....INI EMAIL SAYA.....paejohn@ymail.com

    BalasHapus
  9. Unknown17 Juni 2018 pukul 22.51

    bang bagi applikasinya,....trims juliansyahsoelaiman@gmail.com

    BalasHapus
  10. Unknown18 Juli 2018 pukul 19.33

    aku juga mau dong aplikasinya febriana_2113@yahoo.com makasih

    BalasHapus
  11. Unknown6 Agustus 2018 pukul 18.06

    klo boleh bisa bang bagi apknya bakarsapi@gmail.com

    BalasHapus
  12. Unknown27 Agustus 2018 pukul 01.25

    bagi donk bang, please, muliadish2@gmail.com,
    makasih bang yha

    BalasHapus
  13. Unknown2 Oktober 2018 pukul 02.41

    Assalamualaikum
    selamat sore

    boleh dong bang di release aplikasinya ke saya.
    septoade.dimas@gmail.com

    thanx bang biar berkah dan berguna

    BalasHapus
  14. Linda6 November 2018 pukul 19.32

    Izin mintak aplikasinya donk kk?
    Tolong

    BalasHapus
  15. Linda6 November 2018 pukul 19.33

    lindawulandari004@gmail.com

    BalasHapus
  16. SDN 091 CIBEUREUM14 November 2018 pukul 17.34

    Boleh minta aplikasinya ini alamat emailnya sdn091cibeureum@gmail.com

    BalasHapus
  17. Unknown10 Maret 2019 pukul 11.47

    bang tolongin aku bang....boleh minta aplikasix yg jadi.. ini email aq wilsonstefanus28@gmail.com. makasih sebelumnya abang...

    BalasHapus
  18. Unknown9 Juli 2019 pukul 19.02

    aplikasi mantap gan.. bisa tolong kirim ke e-mail aguspelitabangsa@gmail.com.. terimakasih

    BalasHapus