Membuat Form Kategori Barang Aplikasi Kasir

Cara Membuat Form Kategori Barang Aplikasi Kasir VB NET 2013. Ini adalah Tahap ke-10 dalam membuat Aplikasi Kasir dengan Visual Basic 2013. Untuk mengikuti Tahapan ini pastikan anda sudah mengikuti tahapan sebelumnya ya... karena jika tidak mengikuti tahapan sebelumnya saya pastikan anda akan tersesat :)

Tahapan sebelumnya : Membuat Form Gudang Aplikasi Kasir

Apa sih Form Kategori Barang? Sebelum anda membuat Form Barang, kita akan membuat Form Kategori terlebih dahulu. Fungsinya adalah untuk mengelompokan Barang, Contoh : Jika ada beberapa barang seperti merk : Sprite, Coca-cola, Fanta maka kita akan kelompokan pada kategori SOFTDRINK dan lain sebagainya

Sebelum membuat Form Kategori Barang, buatlah TBL_KATEGORI pada DBKSR terlebih dahulu
Berikut design dari TBL_KATEGORI

Berikut ini tahapan dalam membuat Form Kategori
Buka Project Aplikasi Kasir anda sebelumnya
Klik Project - Add windows form

Kemudian isikan seperti gambar dibawah  ini :

Design Form Kategori seperti gambar dibawah ini :

Kemudian Masukan Koding dibawah ini :

Imports System.Data.OleDb
Public Class FormMasterKategori
    Sub Kosongkan()
        TextBox1.Clear()
        TextBox2.Clear()
    End Sub
    Sub TidakSiapIsi()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
    End Sub
    Sub SiapIsi()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
    End Sub
    Sub KondisiAwal()
        Button1.Text = "Input"
        Button2.Text = "Edit"
        Button3.Text = "Hapus"
        Button4.Text = "Tutup"
        Button1.Enabled = True
        Button2.Enabled = True
        Button3.Enabled = True
        Button4.Enabled = True
        Call TidakSiapIsi()
        Call Kosongkan()
        Call TampilGrid()
    End Sub
    Sub TampilGrid()
        DA = New OleDbDataAdapter("select Kode_KATEGORI as [Kode],Nama_KATEGORI as [Nama] from TBL_KATEGORI", CONN)
        DS = New DataSet
        DA.Fill(DS, "TBL_KATEGORI")
        DGV.DataSource = DS.Tables("TBL_KATEGORI")
        DGV.ReadOnly = True
    End Sub
    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If Button1.Text = "Input" Then
            Call KodeOtomatis()
            Call SiapIsi()
            Button1.Text = "Simpan"
            Button2.Enabled = False
            Button3.Enabled = False
            Button4.Text = "Batal"
            TextBox1.Enabled = False
            TextBox2.Focus()
        Else
            If TextBox1.Text.Length < 6 Or TextBox1.Text = "" Or TextBox2.Text = "" Then
                MsgBox("Data belum lengkap, Pastikan Kode _KATEGORI 6 Digit dan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                CMD = New OleDbCommand("Select * from TBL_KATEGORI where kode_KATEGORI='" & TextBox1.Text & "'", CONN)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    Dim simpan As String = "insert into TBL_KATEGORI values ('" & TextBox1.Text & "','" & TextBox2.Text & "')"
                    CMD = New OleDbCommand(simpan, CONN)
                    CMD.ExecuteNonQuery()
                Else

                End If
                Call KondisiAwal()
                Call TampilGrid()
                Call Kosongkan()
            End If
        End If
    End Sub
    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        If Button2.Text = "Edit" Then
            Call SiapIsi()
            Button2.Text = "Simpan"
            Button1.Enabled = False
            Button3.Enabled = False
            Button4.Text = "Batal"
            TextBox1.Focus()
        Else
            If TextBox1.Text = "" Then
                MsgBox("kode _KATEGORI masih kosong, silakan diisi dulu")
                TextBox1.Focus()
                Exit Sub
            Else
               End If
        End If
    End Sub

    Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If Button3.Text = "Hapus" Then
            Call SiapIsi()
            Button1.Enabled = False
            Button2.Enabled = False
            Button4.Text = "Batal"
            TextBox1.Focus()
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Button4.Text = "Tutup" Then
            Me.Close()
        Else
            Call KondisiAwal()
        End If
    End Sub

    Private Sub Form_KATEGORI_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilGrid()
        Call KondisiAwal()
        Call Kosongkan()
    End Sub

    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            CMD = New OleDbCommand("Select * from TBL_KATEGORI where kode_KATEGORI='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode _KATEGORI Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("nama_KATEGORI")
                TextBox2.Focus()
                If Button2.Enabled = False Then
                    If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        If TextBox1.Text = "GDG001" Then
                            MsgBox("GDG001 Tidak Boleh di Hapus")
                            Call KondisiAwal()
                        Else
                        End If
                    End If
                End If
            End If
        End If
    End Sub

    Private Sub TextBox2_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        TextBox2.MaxLength = 30
        If e.KeyChar = Chr(13) Then Button1.Focus()
    End Sub
    Sub KodeOtomatis()
        Call Koneksi()
        CMD = New OleDbCommand("Select * from TBL_KATEGORI where KODE_KATEGORI in (select max(KODE_KATEGORI) from TBL_KATEGORI)", CONN)
        Dim urutan As String
        Dim hitung As Long
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            urutan = "KTG" + "001"
        Else
            hitung = Microsoft.VisualBasic.Right(RD.GetString(0), 3) + 1
            urutan = "KTG" + Microsoft.VisualBasic.Right("000" & hitung, 3)
        End If
        TextBox1.Text = urutan
    End Sub

  End Class

Silahkan Klik Start atau jalankan Aplikasi anda, ikuti terus Tahapan membuat Aplikasi Kasir yaaa..
Berikut hasil dari Tahapan diatas :

 

KLIK DISINI Untuk melihat atau mendownload hasil pembelajaran diatas