Sunday , September 24 2017
Home / VB.Net / Membuat Form Jabatan Sistem Informasi Penggajian

Membuat Form Jabatan Sistem Informasi Penggajian

Membuat Form Jabatan Sistem Informasi Penggajian

lebakcyber.net – Oke setelah pada tutorial sebelumnya kita sudah membuat form untuk Kasir, kali ini kita akan membuat form jabatan sistem informasi penggajian. Dimana pada form ini akan kita gunakan untuk memasukan data jabatan dan juga gaji dari masing masing jabatan tersebut.

  • Tambahkan form baru pada project sistem penggajian yang sudah dibuat, lalu berinama form tersebut dengan Jabatan.
  • Tambahkan dua groupbox, tiga label, tiga textbox, tiga button dan sebuah DataGridView lalu atur tampilannya seperti pada gambar dibawah ini :

Membuat Form Jabatan Sistem Informasi Penggajian

Atur masing masing properties dari tool tersebut menjadi seperti pada tabel berikut ini :

Tool

Name

Text

TextBox1 kdJabatan
TextBox2 txtNamaJabatan
TextBox3 txtGaji
Button1 btnSimpan Simpan
Button2 btnUbah Ubah
Button3 btnHapus Hapus
DataGridView dgvJabatan

 

Menambahkan perintah untuk menghapus teks di TextBox

Perintah ini digunakan untuk menghapus semua teks yang ada didalam textbox, untuk membuatnya silahkan ketikan perintah berikut ini :

Sub bersihkan()
        txtGaji.Text = ""
        txtNamaJabatan.Text = ""
        kdJabatan.Text = ""
    End Sub

 

Menampilkan Data Jabatan Ke DataGridView

Perintah selanjutnya dari tutorial membuat form jabatan sistem informasi penggajian adalah menampilkan data jabatan ke datagridview, dimana perintah ini berguna untuk menampilkan daftar jabatan yang ada didalam tabel jabatan agar ditampiklan kedalam DataGridView atau dgvJabatan. Jadi silahkan buat subroutine baru dengan nama tampilJabatan lalu masukan perintahnya seperti berikut ini :

Sub tampilJabatan()
        Try
            Call koneksi()
            da = New MySqlDataAdapter("select * from tbl_jabatan order by kd_jabatan Asc", conn)
            ds = New DataSet
            da.Fill(ds, "tbl_jabatan")
            dgvJabatan.DataSource = ds.Tables("tbl_jabatan")
        Catch ex As Exception

        End Try
    End Sub

Menampilkan Data Dari dgvJabatan Ke TextBox

Selanjutnya adalah membuat perintah untuk menampilkan data jabatan yang ada didalam dgvJabatan agar ditampilkan ke textbox. Untuk membuatnya silahkan masukan perintah seperti berikut ini :

Private Sub dgvJabatan_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvJabatan.CellMouseClick
        Try
            kdJabatan.Text = dgvJabatan.Rows(e.RowIndex).Cells(0).Value
            txtNamaJabatan.Text = dgvJabatan.Rows(e.RowIndex).Cells(1).Value
            txtGaji.Text = dgvJabatan.Rows(e.RowIndex).Cells(2).Value

        Catch ex As Exception

        End Try
    End Sub

Membuat Perintah Simpan Jabatan

Perintah berikut ini digunakan untuk menyimpan data jabatan yang akan dimasukan kedalam database, jadi silahkan buat sebuah subroutine baru lalu berinama simpanJabatan. Selanjutnya ketikan perintah berikut ini :

Sub simpanJabatan()
        Try
            Call koneksi()
            Dim str As String
            str = "insert into tbl_jabatan (kd_jabatan, nama_jabatan, gaji) values ('" & kdJabatan.Text & "','" & txtNamaJabatan.Text & "','" & txtGaji.Text & "')"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Data Jabatan Berhasil Ditambahkan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Insert Data Jabatan Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)
        End Try
    End Sub

Selanjutnya klik dua kali tombol simpan lalu masukan perintah seperti berikut ini :

 Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        If MessageBox.Show("Yakin ingin menyimpan data jabatan", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call simpanJabatan()
            Call bersihkan()
            Call tampilJabatan()
        End If
    End Sub

Membuat Perintah Ubah Data Jabatan

Oke sekarang kita akan membuat perintah untuk melakukan perubahan data jabatan, jadi silahkan buat sebuah subroutine baru dengan nama ubahJabatan lalu masukan perintahnya seperti berikut ini :

Sub ubahJabatan()
        Try
            Call koneksi()
            Dim str As String
            str = "update tbl_jabatan set nama_jabatan = '" & txtNamaJabatan.Text & "', gaji = '" & txtGaji.Text & "' where kd_jabatan = '" & kdJabatan.Text & "'"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Data Jabatan Berhasil Diubah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Ubah Data Jabatan Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)
        End Try
    End Sub
 

Kalau subroutine ubahJabatan sudah dibuat, sekarang tinggal kita panggil subroutinenya dengan cara klik dua kali tombol ubah lalu masukan perintah seperti berikut ini :

Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click
        If MessageBox.Show("Yakin ingin mengubah data jabatan", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call ubahJabatan()
            Call bersihkan()
            Call tampilJabatan()
        End If
    End Sub

Membuat Perintah Hapus Jabatan

Sekarang kita akan membuat perintah untuk menghapus data jabatan. Jadi nanti data jabatan yang ada bisa dihapus lewat sistem yang sedang kita buat. Untuk membuatnya silahkan buat sebuah subroutine baru dengan nama hapus lalu masukan perintah berikut ini :

 Sub hapus()
        Try
            Call koneksi()
            Dim str As String
            str = "delete from tbl_jabatan where kd_jabatan='" & kdJabatan.Text & "'"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Data Jabatan Berhasil Dihapus", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Data Jabatan Gagal Dihapus" + ex.Message, "Informasi", MessageBoxButtons.OK)
        End Try
    End Sub

Oke subroutine hapus sudah berhasil kita buat, sekarang kita tinggal panggil subroutinenya dengan cara klik dua kali tombol hapus lalu masukan perintah berikut ini :

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        If MessageBox.Show("Yakin Ingin Menghapus Data Jabatan?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call hapus()
            Call bersihkan()
            Call tampilJabatan()
        End If
    End Sub

Oke semua perintah yang dibutuhkan sudah dibuat, sekarang tinggal memanggil subroutine tampilJabatan di perintah load agar data jabatan yang ada didalam database langsung ditampilkan pada saat form jabatan dibuka. Perintahnya seperti berikut ini :

Private Sub Jabatan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilJabatan()
    End Sub

Itulah bagaimana langkah langkah membuat form jabatan sistem informasi penggajian yang sedang kita buat. Dibawah ini adalah perintah lengkapnya dari form jabatan yang sudah dibuat :

Full Code Membuat Form Jabatan Sistem Informasi Penggajian

Imports MySql.Data.MySqlClient
Public Class Jabatan

    Private Sub Jabatan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call tampilJabatan()
    End Sub

    Sub bersihkan()
        txtGaji.Text = ""
        txtNamaJabatan.Text = ""
        kdJabatan.Text = ""
    End Sub

    Sub tampilJabatan()
        Try
            Call koneksi()
            da = New MySqlDataAdapter("select * from tbl_jabatan order by kd_jabatan Asc", conn)
            ds = New DataSet
            da.Fill(ds, "tbl_jabatan")
            dgvJabatan.DataSource = ds.Tables("tbl_jabatan")
        Catch ex As Exception

        End Try
    End Sub

    Sub simpanJabatan()
        Try
            Call koneksi()
            Dim str As String
            str = "insert into tbl_jabatan (kd_jabatan, nama_jabatan, gaji) values ('" & kdJabatan.Text & "','" & txtNamaJabatan.Text & "','" & txtGaji.Text & "')"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Data Jabatan Berhasil Ditambahkan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Insert Data Jabatan Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)
        End Try
    End Sub

    Sub ubahJabatan()
        Try
            Call koneksi()
            Dim str As String
            str = "update tbl_jabatan set nama_jabatan = '" & txtNamaJabatan.Text & "', gaji = '" & txtGaji.Text & "' where kd_jabatan = '" & kdJabatan.Text & "'"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Data Jabatan Berhasil Diubah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Ubah Data Jabatan Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)
        End Try
    End Sub

    Sub hapus()
        Try
            Call koneksi()
            Dim str As String
            str = "delete from tbl_jabatan where kd_jabatan='" & kdJabatan.Text & "'"
            cmd = New MySqlCommand(str, conn)
            cmd.ExecuteNonQuery()

            MessageBox.Show("Data Jabatan Berhasil Dihapus", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("Data Jabatan Gagal Dihapus" + ex.Message, "Informasi", MessageBoxButtons.OK)
        End Try
    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click
        If MessageBox.Show("Yakin ingin menyimpan data jabatan", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call simpanJabatan()
            Call bersihkan()
            Call tampilJabatan()
        End If
    End Sub

    Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click
        If MessageBox.Show("Yakin ingin mengubah data jabatan", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call ubahJabatan()
            Call bersihkan()
            Call tampilJabatan()
        End If
    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click
        If MessageBox.Show("Yakin Ingin Menghapus Data Jabatan?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
            Call hapus()
            Call bersihkan()
            Call tampilJabatan()
        End If
    End Sub

    Private Sub dgvJabatan_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvJabatan.CellMouseClick
        Try
            kdJabatan.Text = dgvJabatan.Rows(e.RowIndex).Cells(0).Value
            txtNamaJabatan.Text = dgvJabatan.Rows(e.RowIndex).Cells(1).Value
            txtGaji.Text = dgvJabatan.Rows(e.RowIndex).Cells(2).Value

        Catch ex As Exception

        End Try
    End Sub

End Class

About Firdan Ardiansyah

Admin di lebakcyber.net Untuk berhubungan dengan saya, silahkan kirim email ke : firdan@lebakcyber.net

Leave a Reply

Your email address will not be published. Required fields are marked *