Membuat Form Barang Aplikasi Kasir

Cara Membuat Form Barang Aplikasi Kasir Dengan VB NET 2013. Ini adalah tahap ke-11 dalam membuat Aplikasi Kasir dengan Visual Basic 2013. Untuk bisa mengikuti tahapan ini mohon untuk dipastikan anda sudah mengikuti tahapan sebelumnya agar anda tidak tersesat :)

Tahapan sebelumnya : Membuat Form Kategori Barang Aplikasi Kasir

Jika tahapan sebelumnya adalah membuat Form Kategori Barang, maka dalam membuat Form Barang ini kita akan mengkoneksikan Kategori Barang kedalam Form Barang. Jadi sebelum submit Barang baru nantinya kita akan memilih kategori barang terlebih dahulu.

Sebelum membuat Form Barang, anda harus membuat tabel barang terlebih dahulu.
Buat tabel dengan nama TBL_BARANG dengan design tabel seperti dibawah ini :

Berikut langkah membuat Form Barang :
Buka Project aplikasi kasir sebelumnya
Klik Project - Add windows form

Kemudian isikan seperti gambar dibawah  ini :

Buatlah Design FormMasterBarang seperti gambar dibawah :

Kemudian masukan koding dibawah ini :

Imports System.Data.OleDb
Public Class FormMasterBarang
    Sub TampilStatus()
        Call Koneksi()
        CMD = New OleDbCommand("select distinct Satuan_BARANG From TBL_BARANG", CONN)
        RD = CMD.ExecuteReader
        ComboBox1.Items.Clear()
        Do While RD.Read
            ComboBox1.Items.Add(RD.Item("Satuan_BARANG"))
        Loop
    End Sub
    Sub Kosongkan()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        ComboBox1.Text = ""
    End Sub
    Sub TidakSiapIsi()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        ComboBox1.Enabled = False
    End Sub
    Sub SiapIsi()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        ComboBox1.Enabled = True
        Call TampilStatus()
    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_BARANG as [Kode],Nama_BARANG as [Nama],Harga_Beli as [Harga Beli],Harga_Jual as [Harga Jual],Jumlah_BARANG as [Stok],Satuan_BARANG as [Satuan] From TBL_BARANG", CONN)
        DS = New DataSet
        DA.Fill(DS, "TBL_BARANG")
        DGV.DataSource = DS.Tables("TBL_BARANG")
        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 = "" Or TextBox3.Text = "" Or ComboBox1.Text = "" Then
                MsgBox("Data belum lengkap, Pastikan Kode _BARANG 6 Digit dan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                CMD = New OleDbCommand("Select * From TBL_BARANG where kode_BARANG='" & TextBox1.Text & "'", CONN)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    Dim simpan As String = "insert into _BARANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','0','" & ComboBox1.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 _BARANG 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_BARANG_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call Koneksi()
        Call TampilGrid()
        Call KondisiAwal()
        Call Kosongkan()
        Call TampilStatus()
    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_BARANG where kode_BARANG='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode _BARANG Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("nama_BARANG")
                TextBox3.Text = RD.Item("Harga_BARANG")
                ComboBox1.Text = RD.Item("Satuan_BARANG")
                TextBox2.Focus()
                If Button2.Enabled = False Then
                    If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        If TextBox1.Text = "BRG001" Then
                            MsgBox("BRG001 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 TextBox3.Focus()
    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
        TextBox3.MaxLength = 50
        If e.KeyChar = Chr(13) Then ComboBox1.Focus()
    End Sub
    Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
        ComboBox1.MaxLength = 20
        If e.KeyChar = Chr(13) Then Button1.Focus()
    End Sub
    Sub KodeOtomatis()
        Call Koneksi()
        CMD = New OleDbCommand("Select * From TBL_BARANG where KODE_BARANG in (select max(KODE_BARANG) From TBL_BARANG)", CONN)
        Dim urutan As String
        Dim hitung As Long
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            urutan = "BRG" + "001"
        Else
            hitung = Microsoft.VisualBasic.Right(RD.GetString(0), 3) + 1
            urutan = "BRG" + Microsoft.VisualBasic.Right("000" & hitung, 3)
        End If
        TextBox1.Text = urutan
    End Sub

   End Class

Silahkan Start atau Jalankan Project Aplikasi Kasir anda, Silahkan ikuti langkah berikutnya yaa...
KLIK DISINI Untuk melihat hasil project latihan diatas