Membuat Aplikasi Penjualan VB .NET dgn Database MySQL – #Part 9

Ini adalah tutorial kesembilan atau 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 .
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 :

Demikian Cara Membuat Aplikasi Penjualan VB .NET Database MySQL – #Part 9 semoga bermanfaat