Tuesday , March 19 2019
Home / VB.Net / Membuat Form Kasir Sistem Penggajian
Membuat Form Kasir

Membuat Form Kasir Sistem Penggajian

Membuat Form Kasir Sistem Penggajian

Setelah pada tutorial sebelumnya kita sudah membuat form utama untuk sistem informasi penggajian, pada tutorial kali ini kita akan membuat form kasir sistem penggajian yang nantinya akan digunakan untuk menampilkan daftar kasir, melakukan proses penginputan, update dan juga penghapusan data kasir.

  • Tambahkan form baru pada project sistem penggajian yang sudah dibuat, lalu berinama form tersebut dengan form kasir.
  • Tambahkan dua group box, 3 label, 3 textbox, 3 button dan sebuah DataGridView lalu silahkan atur tampilannya seperti pada gambar dibawah ini :

Membuat Form Kasir

Atur properties dari masing masing toolbox tersebut seperti berikut ini :

Tool

Name

Text

TextBox1 txtKdKasir
TextBox2 txtNamaKasir
TextBox3 txtPassword
Button1 btnSimpan Simpan
Button2 btnUbah Ubah
Button3 btnHapus Hapus
DataGridView dgvKasir

Selanjutnya kita tinggal melakukan koding untuk form kasir tersebut.

Menambahkan Reference MySQL kedalam Project

Langkah pertama kita harus menambahkan reference MySQL kedalam project sistem penggajian yang sedang dibuat dengan cara klik menu Project – sistem_penggajian properties – References – Add – pilih tab .NET lalu pilih MySQL.Data seperti pada gambar dibawah ini :

Membuat Form Kasir

Setelah itu klik tombol ok untuk menambahkan reference mysql kedalam project yang sedang kita buat.

 

Menambahkan Perintah Untuk Menghapus Text di Textbox

Perintah ini akan digunakan untuk menghapus semua teks yang ada didalam textbox, untuk membuatnya silahkan buat subroutine dengan nama bersih dan masukan perintah seperti dibawah ini :

Sub bersih()

txtKdKasir.Text = ""

txtNamaKasir.Text = ""

txtPassword.Text = ""

End Sub

 

Menambahkan Perintah Menampilkan Data tbl_kasir Ke DataGridView

Perintah berikut ini digunakan untuk menampilkan data yang ada didalam tabel tbl_kasir kedalam dgvKasir. Untuk membuatnya silahkan buat subroutine baru dengan nama tampilData dan masukan perintah berikut ini :

Sub tampilData()

Try

Call koneksi()

da = New MySqlDataAdapter("select * from tbl_kasir order by kd_kasir Asc", conn)

ds = New DataSet

da.Fill(ds, "tbl_kasir")

dgvKasir.DataSource = ds.Tables("tbl_kasir")

Catch ex As Exception

End Try

End Sub

 

Selanjutnya subroutine tampilData tersebut pada saat sistem diload dengan perintah seperti berikut ini :

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

Call tampilData()

End Sub

Menampilkan Data Dari dgvKasir Ke TextBox

Perintah menampilkan data dari dgvKasir Ke TextBox akan kita gunakan jika kita ingin melakukan proses update data kasir ataupun melakukan proses penghapusan data kasir. Untuk menampilkan data dari dgvKasir ke textbox silahkan masukan perintah berikut ini :

Private Sub dgvKasir_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvKasir.CellMouseClick

Try

txtKdKasir.Text = dgvKasir.Rows(e.RowIndex).Cells(0).Value
txtNamaKasir.Text = dgvKasir.Rows(e.RowIndex).Cells(1).Value
txtPassword.Text = dgvKasir.Rows(e.RowIndex).Cells(2).Value

Catch ex As Exception

End Try

End Sub

Membuat Perintah Insert Data Kasir Ke Tabel tbl_kasir

Langkah selanjutnya setelah reference mysql ditambahkan, kita kembali ke form kasir lalu pada bagian code tambahkan subroutine baru dengan nama simpan. Selanjutnya masukan perintah seperti dibawah ini :

Sub simpan()

Try

Call koneksi()

Dim str As String

str = "insert into tbl_kasir (kd_kasir, nama_kasir, password) values ('" & txtKdKasir.Text & "','" & txtNamaKasir.Text & "','" & txtPassword.Text & "')"

cmd = New MySqlCommand(str, conn)

cmd.ExecuteNonQuery()

MessageBox.Show("Kasir Berhasil Ditambahkan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)


Catch ex As Exception

MessageBox.Show("Insert Data Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)

End Try

End Sub

lalu Klik dua kali tombol simpan, selanjutnya silahkan ketikan perintah dibawah ini untuk memanggil subroutine simpan yang akan melakukan proses simpan data kasir kedalam tabel tbl_kasir yang ada didalam database MySQL :

Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

If MessageBox.Show("Yakin ingin menyimpan data kasir?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

Call simpan()

Call bersih()

Call tampilData()

End If

End Sub

 

Membuat Perintah Ubah Data Kasir Ke Tabel tbl_kasir

Langkah selanjutnya setelah membuat perintah untuk insert data kasir kedalam tabel mysql, sekarang kita akan membuat perintah untuk melakukan proses ubah data kasir. kita kembali ke form kasir lalu pada bagian code, tambahkan subroutine baru dengan nama ubah. Selanjutnya masukan perintah seperti dibawah ini :

Sub ubah()

Try

Call koneksi()

Dim str As String

str = "update tbl_kasir set nama_kasir = '" & txtNamaKasir.Text & "', password = '" & txtPassword.Text & "' where kd_kasir = '" & txtKdKasir.Text & "'"

cmd = New MySqlCommand(str, conn)

cmd.ExecuteNonQuery()

MessageBox.Show("Kasir Berhasil Diubah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show("Ubah Data Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)

End Try

End Sub

 

selanjutnya Klik dua kali tombol ubah, silahkan ketikan perintah dibawah ini untuk memanggil subroutine ubah yang akan melakukan proses ubah data kasir yang ada didalam tabel tbl_kasir yang ada didalam database MySQL :

Private Sub btnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnUbah.Click

If MessageBox.Show("Yakin ingin mengubah data kasir?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

Call ubah()

Call bersih()

Call tampilData()

End If

End Sub

 

Membuat Perintah Hapus Data Kasir Di Tabel tbl_kasir

Langkah selanjutnya setelah membuat perintah untuk menghapus data kasir yang ada didalam tabel mysql, sekarang kita akan membuat perintah untuk melakukan proses hapus data kasir. kita kembali ke form kasir lalu pada bagian code, tambahkan subroutine baru dengan nama hapus. Selanjutnya masukan perintah seperti dibawah ini :

Sub hapus()

Try

Call koneksi()

Dim str As String

str = "delete tbl_kasir where kd_kasir = '" & txtKdKasir.Text & "'"

cmd = New MySqlCommand(str, conn)

cmd.ExecuteNonQuery()

MessageBox.Show("Kasir Berhasil Dihapus", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

Catch ex As Exception

MessageBox.Show("Proses Hapus Data Kasir Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)

End Try

End Sub

 

selanjutnya Klik dua kali tombol hapus, silahkan ketikan perintah dibawah ini untuk memanggil subroutine hapus yang akan melakukan proses penghapusan data kasir yang ada didalam tabel tbl_kasir yang ada didalam database MySQL :

Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

If MessageBox.Show("Yakin ingin menghapus data kasir?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then

Call hapus()
Call bersih()
Call tampilData()

End If

End Sub

Terakhir adalah memunculkan form kasir pada saat tombol Daftar Kasir di tekan, jadi silahkan kembali ke form utama lalu klik dua kali tombol Daftar kasir lalu masukan perintah seperti berikut ini :

Private Sub btnKasir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKasir.Click</pre>
Form_Kasir.Show()

End Sub

Berikut ini adalah video untuk contoh pada saat program dijalankan

Source Code Lengkap Pembuatan Form Kasir

Berikut ini adalah form lengkap dari perintah perintah yang telah kita buat diatas :

Imports mysql.data.mysqlclient
Public Class Form_Kasir

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

Sub bersih()
txtKdKasir.Text = ""
txtNamaKasir.Text = ""
txtPassword.Text = ""
End Sub

Sub tampilData()
Try

Call koneksi()
da = New MySqlDataAdapter("select * from tbl_kasir order by kd_kasir Asc", conn)
ds = New DataSet
da.Fill(ds, "tbl_kasir")
dgvKasir.DataSource = ds.Tables("tbl_kasir")

Catch ex As Exception

End Try
End Sub

Sub simpan()
Try
Call koneksi()
Dim str As String
str = "insert into tbl_kasir (kd_kasir, nama_kasir, password) values ('" & txtKdKasir.Text & "','" & txtNamaKasir.Text & "','" & txtPassword.Text & "')"
cmd = New MySqlCommand(str, conn)
cmd.ExecuteNonQuery()
MessageBox.Show("Kasir Berhasil Ditambahkan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)

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

Sub ubah()
Try
Call koneksi()
Dim str As String
str = "update tbl_kasir set nama_kasir = '" & txtNamaKasir.Text & "', password = '" & txtPassword.Text & "' where kd_kasir = '" & txtKdKasir.Text & "'"
cmd = New MySqlCommand(str, conn)
cmd.ExecuteNonQuery()
MessageBox.Show("Kasir Berhasil Diubah", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Ubah Data Gagal Dilakukan" + ex.Message, "Informasi", MessageBoxButtons.OK)
End Try
End Sub

Sub hapus()
Try
Call koneksi()
Dim str As String
str = "delete from tbl_kasir where kd_kasir = '" & txtKdKasir.Text & "'"
cmd = New MySqlCommand(str, conn)
cmd.ExecuteNonQuery()
MessageBox.Show("Data Kasir Berhasil Dihapus", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("Proses Hapus Data Kasir Gagal Dilakukan" + 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 kasir?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Call simpan()
Call bersih()
Call tampilData()
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 kasir?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Call ubah()
Call bersih()
Call tampilData()
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 kasir?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
Call hapus()
Call bersih()
Call tampilData()
End If
End Sub

Private Sub dgvKasir_CellMouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles dgvKasir.CellMouseClick
Try

txtKdKasir.Text = dgvKasir.Rows(e.RowIndex).Cells(0).Value
txtNamaKasir.Text = dgvKasir.Rows(e.RowIndex).Cells(1).Value
txtPassword.Text = dgvKasir.Rows(e.RowIndex).Cells(2).Value

Catch ex As Exception

End Try
End Sub
End Class

Oke sampai disini kita sudah berhasil melakukan proses pembuatan form kasir. Pada tutorial selanjutnya kita akan coba untuk membuat form jabatan pada sistem informasi penggajian. Jadi jangan lupa untuk selalu berkunjung ke lebakcyber.net ya.

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 *