Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 9

Ini adalah tutorial kesembilan atau saya sebut Part 9 dalam membuat Aplikasi Penjualan Menggunakan Visual Basic .NET Database MySQL. Pada Part 9 ini kita akan melanjutkan dalam membuat Form Transaksi Penjualan. Karena proses pembuatan Form Trans Jual ini memang banyak koding sehingga perlu beberapa part dalam membuat Form Trans Jual sampai selesai

Bagi temen2 yang baru gabung, pastikan anda sudah mengikuti tutorial sebelumnya ya :
Membuat Aplikasi Penjualan Part 1
Membuat Aplikasi Penjualan Part 2
Membuat Aplikasi Penjualan Part 3
Membuat Aplikasi Penjualan Part 4
Membuat Aplikasi Penjualan Part 5
Membuat Aplikasi Penjualan Part 6
Membuat Aplikasi Penjualan Part 7
Membuat Aplikasi Penjualan Part 8

Mari kita lanjut :
Pastikan anda sudah membuka project aplikasi anda

Kemudian koding di part 9 adalah sebagai berikut :

Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            Cmd = New OdbcCommand("Select * From tbl_barang where kodebarang='" & TextBox2.Text & "'", Conn)
            Rd = Cmd.ExecuteReader
            Rd.Read()
            If Not Rd.HasRows Then
                MsgBox("Kode barang tidak Ada")
            Else
                TextBox2.Text = Rd.Item("Kodebarang")
                LBLNamaBarang.Text = Rd.Item("Namabarang")
                LBLHargaBarang.Text = Rd.Item("hargabarang")
                'TextBox4.Text = Rd.Item("jumlahbarang")
                'ComboBox1.Text = Rd.Item("satuanbarang")
                TextBox3.Enabled = True
            End If
        End If
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If LBLNamaBarang.Text = "" Or TextBox3.Text = "" Then
            MsgBox("Silahkan masukan Kode Barang dan Tekan ENTER!")
        Else
            DataGridView1.Rows.Add(New String() {TextBox2.Text, LBLNamaBarang.Text, LBLHargaBarang.Text, TextBox3.Text, Val(LBLHargaBarang.Text) * Val(TextBox3.Text)})
            Call RumusSubtotal()
            TextBox2.Text = ""
            LBLNamaBarang.Text = ""
            LBLHargaBarang.Text = ""
            TextBox3.Text = ""
            TextBox3.Enabled = False
        End If
        
    End Sub
    Sub RumusSubtotal()
        Dim hitung As Integer = 0
        For i As Integer = 0 To DataGridView1.Rows.Count - 1
            hitung = hitung + DataGridView1.Rows(i).Cells(4).Value
            Label9.Text = hitung
        Next
    End Sub

Koding diatas maksudnya adalah
Masukan koding di TextBox, kemudian di ENTER
Setelah di ENTER maka akan muncul datanya, kemudian jika di klik Insert maka akan muncul data yang akan di jual kedalam DataGridView

Untuk Video Tutorialnya bisa anda ikuti di :

https://www.youtube.com/watch?v=z8kU3-RpFGA

Demikian Cara Membuat Aplikasi Penjualan VB .NET Database MySQL - #Part 9 semoga bermanfaat, ikuti terus tutorial dari kami selanjutnya
Jika ada kendala atau error silahkan anda bisa berkomentar dibawah atau anda bisa WhatsApp ke saya, No WA sudah saya cantumkan di footer Web JNM ini
Terima kasih

Tweet