Aplikasi Penjualan VB.net dan MariaDB Contoh Program VB.net

Aplikasi Penjualan dengan VB.net dan MariaDB V1: Membuat Form Data Pelanggan Part 2

Selamat datang di matericoding.com. Pada kesempatan kali ini akan melanjutkan tutorial pembuatan aplikasi penjualan sederhana dengan menggunakan VB.net dan database MariaDB atau mysql. Pada tutorial sebelumnya telah dijelaskan cara membuat form data pelanggan, dan kali ini kita lanjukan dengan menambahkan linsting programnya.

Untuk langkah penulisan sourcodenya sebagai berikut:

1. Import Data ODBC

Tekan F7 untuk masuk ke layar coding, kita import dulu ODBC nya karena untuk koneksi kita menggunakan Connector ODBC. Tuliskan Source Code dibawah ini di bagian paling atas.

Imports System.Data.Odbc

2. Sub Bersihkan

Berfungsi untuk membersihkan bagian Textbox

    Sub bersihkan()
        TxtKodePelanggan.Focus()
        TxtKodePelanggan.Clear()
        TxtNamaPelanggan.Clear()
        TxtAlamat.Clear()
        TxtNoHp.Clear()
    End Sub

3.Sub Tampilkan Data

Untuk menampilkan data dari database ke DataGridView.

   Sub tampilkan_data()
        Koneksi()
        DA = New OdbcDataAdapter("SELECT * FROM pelanggan", Conn)
        DS = New DataSet
        DA.Fill(DS, 0)
        DGVPelanggan.DataSource = DS.Tables(0)
        Conn.Close()
    End Sub

4. Sub Auto Complete

Untuk membuat sugesti pada txtkodepelanggan

    Sub Autocomplete()
        Koneksi()
        CMD = New OdbcCommand("SELECT kode_pelanggan FROM pelanggan", Conn)
        RD = CMD.ExecuteReader
        While RD.Read
            With TxtKodePelanggan
                .AutoCompleteCustomSource.Add(RD(0).ToString)
                .AutoCompleteMode = AutoCompleteMode.Suggest
                .AutoCompleteSource = AutoCompleteSource.CustomSource
            End With
        End While
        Conn.Close()
    End Sub

5. Sub call all

Sub Procedure ini digunakan saat program dijalankan akan memanggil procedure bersihkan(), tampilkan_data(), dan Autocomplete().

    Sub call_all()
        bersihkan()
        tampilkan_data()
        Autocomplete()
    End Sub

6. Event Form load

Event ini akan berjalan saat form pertama kali dijalankan. Cara buatnya, Klik 2x pada bagian form pelanggan kemudian ketikkan coding berikut:

    Private Sub FormPelanggan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        call_all()
    End Sub

7. Event KeyPress pada TxtNoHp

Membuat Text NoHp hanya dapat diinput dengan Angka. Event yang digunakan adalah KeyPress

    Private Sub TxtNoHp_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtNoHp.KeyPress
        'agar cuma angka yang bisa diinputkan
        If Not IsNumeric(e.KeyChar) And e.KeyChar <> Chr(13) And e.KeyChar <> vbBack Then e.Handled = True
    End Sub

8. Event KeyDown Pada txtkodepelanggan

Bertujuan untuk mengisi data yang ada pada tabel pelanggan ke TextBox-TextBox yang lainnya setelah txtkodepelanggan diisi lalu ditekan Enter. Event ini dibuat di txtkodepelanggan pada event KeyDown. Klik pada bagian (General) pilih txtkodepelanggan, kemudian pada bagian (Declaration) pilih KeyDown. Ketikkan coding berikut.

    Private Sub TxtKodePelanggan_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtKodePelanggan.KeyDown
        If e.KeyCode = Keys.Enter Then
            Koneksi()
            CMD = New OdbcCommand("SELECT * FROM pelanggan WHERE kode_pelanggan = '" + TxtKodePelanggan.Text + "'", Conn)
            RD = CMD.ExecuteReader
            If RD.Read Then
                TxtKodePelanggan.Text = RD(0).ToString
                TxtNamaPelanggan.Text = RD(1).ToString
                TxtAlamat.Text = RD(2).ToString
                TxtNoHp.Text = RD(3).ToString
            End If
            Conn.Close()
            TxtNamaPelanggan.Focus()
        End If
    End Sub

9. Fasilitas Pencarian

Fasilitas pencarian ini mungkin diperlukan, terlebih lagi jika data mencapai ribuan. Sangat tidak efektif jika mencari data satu persatu. Pencarian ini diletakkan pada txtcari yang letaknya dibawah button, jika mengetikan Kode pelanggan atau nama pelanggan maka data langsung tersortir pada bagian DataGridView. Evetnnya adalah TextChanged. Double klik saja pada bagian txtcari lalu ketikkan coding berikut.

    Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
        Try
            Koneksi()
            DA = New OdbcDataAdapter("SELECT * FROM pelanggan WHERE kode_pelanggan LIKE '%" + txtcari.Text + "%' or nama_pelanggan LIKE '%" + txtcari.Text + "%'", Conn)
            DS = New DataSet
            DA.Fill(DS, 0)
            DGVPelanggan.DataSource = DS.Tables(0)
            Conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

10. Event CellClick pada DataGridView

Saat data yang diklik pada DataGridView, maka akan otomatis tampil pada tiap-tiap TextBox. Event yang digunakan adalah CellClick. Pada bagian (General) pilih DGVpelanggan (DataGridView), kemudian pada bagian (Declaration) pilih CellClick. Setelah itu ketikkan coding berikut ini.

    Private Sub DGVPelanggan_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGVPelanggan.CellClick
        Try
            Dim i = e.RowIndex
            Koneksi()
            CMD = New OdbcCommand("SELECT * FROM pelanggan WHERE kode_pelanggan = '" + DGVPelanggan.Item(0, i).Value + "'", Conn)
            RD = CMD.ExecuteReader
            If RD.HasRows Then
                TxtKodePelanggan.Text = RD(0).ToString
                TxtNamaPelanggan.Text = RD(1).ToString
                TxtAlamat.Text = RD(2).ToString
                TxtNoHp.Text = RD(3).ToString
            End If
            Conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

11. Event Click pada tombol Simpan

Double Click tombol simpan kemudian ketikkan coding dibawah ini:

    Private Sub btsimpan_Click(sender As Object, e As EventArgs) Handles btsimpan.Click
        Try
            'validasi jika data masih kosong
            If TxtKodePelanggan.Text = "" Then
                MsgBox("Isi terlebih dahulu Kode Pelanggan")
            ElseIf TxtNamaPelanggan.Text = "" Then
                MsgBox("Isi terlebih dahulu Nama Pelanggan")
            ElseIf TxtAlamat.Text = "" Then
                MsgBox("Isi terlebih dahulu Alamat Pelanggan")
            ElseIf TxtNoHp.Text = "" Then
                MsgBox("Isi terlebih dahulu No HP Pelanggan")
            Else
                Koneksi()
                CMD = New OdbcCommand("SELECT kode_pelanggan FROM pelanggan WHERE kode_pelanggan = '" + TxtKodePelanggan.Text + "'", Conn)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    Koneksi()
                    'program untuk simpan data
                    CMD = New OdbcCommand("INSERT INTO pelanggan VALUES (?,?,?,?)", Conn)
                    With CMD
                        .Parameters.AddWithValue("?", TxtKodePelanggan.Text)
                        .Parameters.AddWithValue("?", TxtNamaPelanggan.Text)
                        .Parameters.AddWithValue("?", TxtAlamat.Text)
                        .Parameters.AddWithValue("?", TxtNoHp.Text)
                        .ExecuteNonQuery()
                    End With
                    Conn.Close()
                Else
                    Koneksi()
                    'program untuk hapus data
                    CMD = New OdbcCommand("UPDATE pelanggan set nama_pelanggan=?, alamat=?, no_hp=? WHERE kode_pelanggan=?", Conn)
                    With CMD
                        .Parameters.AddWithValue("?", TxtKodePelanggan.Text)
                        .Parameters.AddWithValue("?", TxtNamaPelanggan.Text)
                        .Parameters.AddWithValue("?", TxtAlamat.Text)
                        .Parameters.AddWithValue("?", TxtNoHp.Text)
                        .ExecuteNonQuery()
                    End With
                    Conn.Close()
                End If
                Conn.Close()
                call_all()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

12. Event Click pada tombol Hapus

Double Click tombol hapus kemudian ketikkan coding dibawah ini:

    Private Sub bthapus_Click(sender As Object, e As EventArgs) Handles bthapus.Click
        If TxtKodePelanggan.Text = "" Then
            MsgBox("Isi terlebih dahulu kode pelanggan")
        ElseIf MsgBox("Apakah Anda yakin ingin menghapus data ini?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Try
                Koneksi()
                'program untuk hapus data
                CMD = New OdbcCommand("DELETE FROM pelanggan WHERE kode_pelanggan ='" + TxtKodePelanggan.Text + "'", Conn)
                CMD.ExecuteNonQuery()
                Conn.Close()
                call_all()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            bersihkan()
        End If
    End Sub

13. Event Click pada Tombol Batal

Double Click pada tombol batal kemudian ketikkan coding dibawah ini:

    Private Sub btbatal_Click(sender As Object, e As EventArgs) Handles btbatal.Click
        call_all()
    End Sub

14. Event Click pada Tombol Keluar

Double click pada tombol keluar kemudian ketikkan coding dibawah ini:

    Private Sub btkeluar_Click(sender As Object, e As EventArgs) Handles btkeluar.Click
        Close()
    End Sub

Full Source Code Form Data Pelanggan

Imports System.Data.Odbc
'-------------------------
Public Class FormPelanggan
    Sub bersihkan()
        TxtKodePelanggan.Focus()
        TxtKodePelanggan.Clear()
        TxtNamaPelanggan.Clear()
        TxtAlamat.Clear()
        TxtNoHp.Clear()
    End Sub
'----------------------
    Sub tampilkan_data()
        Koneksi()
        DA = New OdbcDataAdapter("SELECT * FROM pelanggan", Conn)
        DS = New DataSet
        DA.Fill(DS, 0)
        DGVPelanggan.DataSource = DS.Tables(0)
        Conn.Close()
    End Sub
'----------------------
    Sub Autocomplete()
        Koneksi()
        CMD = New OdbcCommand("SELECT kode_pelanggan FROM pelanggan", Conn)
        RD = CMD.ExecuteReader
        While RD.Read
            With TxtKodePelanggan
                .AutoCompleteCustomSource.Add(RD(0).ToString)
                .AutoCompleteMode = AutoCompleteMode.Suggest
                .AutoCompleteSource = AutoCompleteSource.CustomSource
            End With
        End While
        Conn.Close()
    End Sub
'----------------------
    Sub call_all()
        bersihkan()
        tampilkan_data()
        Autocomplete()
    End Sub
'----------------------
    Private Sub FormPelanggan_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        call_all()
    End Sub
'----------------------
    Private Sub TxtNoHp_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TxtNoHp.KeyPress
        'agar cuma angka yang bisa diinputkan
        If Not IsNumeric(e.KeyChar) And e.KeyChar <> Chr(13) And e.KeyChar <> vbBack Then e.Handled = True
    End Sub
'----------------------
    Private Sub TxtKodePelanggan_KeyDown(sender As Object, e As KeyEventArgs) Handles TxtKodePelanggan.KeyDown
        If e.KeyCode = Keys.Enter Then
            Koneksi()
            CMD = New OdbcCommand("SELECT * FROM pelanggan WHERE kode_pelanggan = '" + TxtKodePelanggan.Text + "'", Conn)
            RD = CMD.ExecuteReader
            If RD.Read Then
                TxtKodePelanggan.Text = RD(0).ToString
                TxtNamaPelanggan.Text = RD(1).ToString
                TxtAlamat.Text = RD(2).ToString
                TxtNoHp.Text = RD(3).ToString
            End If
            Conn.Close()
            TxtNamaPelanggan.Focus()
        End If
    End Sub
'----------------------
    Private Sub txtcari_TextChanged(sender As Object, e As EventArgs) Handles txtcari.TextChanged
        Try
            Koneksi()
            DA = New OdbcDataAdapter("SELECT * FROM pelanggan WHERE kode_pelanggan LIKE '%" + txtcari.Text + "%' or nama_pelanggan LIKE '%" + txtcari.Text + "%'", Conn)
            DS = New DataSet
            DA.Fill(DS, 0)
            DGVPelanggan.DataSource = DS.Tables(0)
            Conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
'----------------------
    Private Sub DGVPelanggan_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles DGVPelanggan.CellClick
        Try
            Dim i = e.RowIndex
            Koneksi()
            CMD = New OdbcCommand("SELECT * FROM pelanggan WHERE kode_pelanggan = '" + DGVPelanggan.Item(0, i).Value + "'", Conn)
            RD = CMD.ExecuteReader
            If RD.HasRows Then
                TxtKodePelanggan.Text = RD(0).ToString
                TxtNamaPelanggan.Text = RD(1).ToString
                TxtAlamat.Text = RD(2).ToString
                TxtNoHp.Text = RD(3).ToString
            End If
            Conn.Close()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
'----------------------
    Private Sub btsimpan_Click(sender As Object, e As EventArgs) Handles btsimpan.Click
        Try
            'validasi jika data masih kosong
            If TxtKodePelanggan.Text = "" Then
                MsgBox("Isi terlebih dahulu Kode Pelanggan")
            ElseIf TxtNamaPelanggan.Text = "" Then
                MsgBox("Isi terlebih dahulu Nama Pelanggan")
            ElseIf TxtAlamat.Text = "" Then
                MsgBox("Isi terlebih dahulu Alamat Pelanggan")
            ElseIf TxtNoHp.Text = "" Then
                MsgBox("Isi terlebih dahulu No HP Pelanggan")
            Else
                Koneksi()
                CMD = New OdbcCommand("SELECT kode_pelanggan FROM pelanggan WHERE kode_pelanggan = '" + TxtKodePelanggan.Text + "'", Conn)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    Koneksi()
                    'program untuk simpan data
                    CMD = New OdbcCommand("INSERT INTO pelanggan VALUES (?,?,?,?)", Conn)
                    With CMD
                        .Parameters.AddWithValue("?", TxtKodePelanggan.Text)
                        .Parameters.AddWithValue("?", TxtNamaPelanggan.Text)
                        .Parameters.AddWithValue("?", TxtAlamat.Text)
                        .Parameters.AddWithValue("?", TxtNoHp.Text)
                        .ExecuteNonQuery()
                    End With
                    Conn.Close()
                Else
                    Koneksi()
                    'program untuk hapus data
                    CMD = New OdbcCommand("UPDATE pelanggan set nama_pelanggan=?, alamat=?, no_hp=? WHERE kode_pelanggan=?", Conn)
                    With CMD
                        .Parameters.AddWithValue("?", TxtKodePelanggan.Text)
                        .Parameters.AddWithValue("?", TxtNamaPelanggan.Text)
                        .Parameters.AddWithValue("?", TxtAlamat.Text)
                        .Parameters.AddWithValue("?", TxtNoHp.Text)
                        .ExecuteNonQuery()
                    End With
                    Conn.Close()
                End If
                Conn.Close()
                call_all()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
'----------------------
    Private Sub bthapus_Click(sender As Object, e As EventArgs) Handles bthapus.Click
        If TxtKodePelanggan.Text = "" Then
            MsgBox("Isi terlebih dahulu kode pelanggan")
        ElseIf MsgBox("Apakah Anda yakin ingin menghapus data ini?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
            Try
                Koneksi()
                'program untuk hapus data
                CMD = New OdbcCommand("DELETE FROM pelanggan WHERE kode_pelanggan ='" + TxtKodePelanggan.Text + "'", Conn)
                CMD.ExecuteNonQuery()
                Conn.Close()
                call_all()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            bersihkan()
        End If
    End Sub
'----------------------
    Private Sub btkeluar_Click(sender As Object, e As EventArgs) Handles btkeluar.Click
        Close()
    End Sub
'----------------------
    Private Sub btbatal_Click(sender As Object, e As EventArgs) Handles btbatal.Click
        call_all()
    End Sub
End Class

Jika dijalankan, tampilan akhir form Pengolahan Data Pelangganya seperti berikut:

hasil run form data pelanggan

Sampai disini pembahasan tentang Pengolahan Data Pelanggan. Anda tidak harus terpaku pada Coding di atas. Anda dapat menambahkan sendiri kreasi coding Anda jika coding di atas dirasa masih kurang menurut Anda karena coding diatas memang masih sederhana. Jika ada pertanyaan terkait pembuatan Form Pengolahan Data Pelanggan bisa ditanyakan lewat kolom komentar. Jika sudah berhasil dalam pembuatan Form Pengolahan Data Pelanggan, bisa lanjut ke pembuatan Form lainnya.

Sekian dan Terimakasih

Wassalamu’alaikum Wr Wb

Salam MateriCoding

(sumber)

Leave a Comment