Membuat Form Gudang Aplikasi Kasir

Cara Membuat Form Gudang Aplikasi Kasir dengan VB NET 2013. Ini adalah Tahap ke-9 Dalam membuat Aplikasi Kasir dengan Visual Basic .Net 2013. Dan kami informasikan kepada anda bahwa dalam membuat Aplikasi Kasir ini anda wajib mengikuti dari awal sehingga anda bisa mengikuti Tutorial kali ini dan pastinya anda tidak akan tersesat :)

Tahapan Sebelumnya : Membuat Form Kasir

Form Gudang ini tujuannya adalah untuk penerimaan barang. Dimana nantinya ketika kita menggunakan aplikasi ini, barang yang baru diinput jumlahnya akan 0 (nol) sehingga sebelum barang dijual pastikan Stok Barang ada dan jika dalam kondisi kosong maka harus minta terlebih dahulu ke Pusat.

Sebelum membuat Form Gudang, buatlah TBL_GUDANG pada DBKSR. berikut design tabelnya :

Berikut ini adalah tahapan dalam membuat Form Gudang Aplikasi Kasir
Buka Project Aplikasi Kasir anda sebelumnya.
Klik Project - Add Windows Form..

Beri nama seperti gambar dibawah ini :

Klik Add
Design Form Gudang seperti gambar dibawah ini :

Kemudian masukan Koding dibawah ini :

Imports System.Data.OleDb
Public Class FormMasterGudang
    Sub Kosongkan()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
    End Sub
    Sub TidakSiapIsi()
        TextBox1.Enabled = False
        TextBox2.Enabled = False
        TextBox3.Enabled = False
        TextBox4.Enabled = False
    End Sub
    Sub SiapIsi()
        TextBox1.Enabled = True
        TextBox2.Enabled = True
        TextBox3.Enabled = True
        TextBox4.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_GUDANG as [Kode],Nama_GUDANG as [Nama],Alamat_GUDANG as [Alamat],Telp_GUDANG as [Telepon] from TBL_GUDANG", CONN)
        DS = New DataSet
        DA.Fill(DS, "TBL_GUDANG")
        DGV.DataSource = DS.Tables("TBL_GUDANG")
        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 TextBox4.Text = "" Then
                MsgBox("Data belum lengkap, Pastikan Kode _GUDANG 6 Digit dan Semua form terisi")
                Exit Sub
            Else
                Call Koneksi()
                CMD = New OleDbCommand("Select * from TBL_GUDANG where kode_GUDANG='" & TextBox1.Text & "'", CONN)
                RD = CMD.ExecuteReader
                RD.Read()
                If Not RD.HasRows Then
                    Dim simpan As String = "insert into TBL_GUDANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.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 _GUDANG masih kosong, silakan diisi dulu")
                TextBox1.Focus()
                Exit Sub
            Else
                Dim edit As String = "update TBL_GUDANG set nama_GUDANG='" & TextBox2.Text & "',Alamat_GUDANG='" & TextBox3.Text & "',Telp_GUDANG='" & TextBox4.Text & "' where kode_GUDANG='" & TextBox1.Text & "'"
                CMD = New OleDbCommand(edit, CONN)
                CMD.ExecuteNonQuery()
                Call KondisiAwal()
            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_GUDANG_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_GUDANG where kode_GUDANG='" & TextBox1.Text & "'", CONN)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode _GUDANG Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("nama_GUDANG")
                TextBox3.Text = RD.Item("Alamat_GUDANG")
                TextBox4.Text = RD.Item("Telp_GUDANG")
                TextBox2.Focus()
                If Button2.Enabled = False Then
                    If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                        If TextBox1.Text = "ADM001" Then
                            MsgBox("ADM001 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 TextBox4.Focus()
    End Sub
    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
        TextBox4.MaxLength = 20
        If e.KeyChar = Chr(13) Then Button1.Focus()
    End Sub
    Sub KodeOtomatis()
        Call Koneksi()
        CMD = New OleDbCommand("Select * from TBL_GUDANG where KODE_GUDANG in (select max(KODE_GUDANG) from TBL_GUDANG)", CONN)
        Dim urutan As String
        Dim hitung As Long
        RD = CMD.ExecuteReader
        RD.Read()
        If Not RD.HasRows Then
            urutan = "GDG" + "001"
        Else
            hitung = Microsoft.VisualBasic.Right(RD.GetString(0), 3) + 1
            urutan = "GDG" + Microsoft.VisualBasic.Right("000" & hitung, 3)
        End If
        TextBox1.Text = urutan
    End Sub
End Class

Silahkan Klik Start atau jalankan Project aplikasi anda, dan ikuti terus Tahapan berikutnya.....
Berikut hasil dalam tahapan diatas :

 

KLIK DISINI Untuk melihat atau mendownload hasil pembelajaran diatas