icon program vb penjualan dengan menyebut

Private Sub kosongkan() tNoFaktur.Text = ' tKodeBarang.Text = ' tNamaBarang.Text = ' tHargaSatuan.Text = ' tQty.Text = ' tTotal.Text = ' tNoFaktur.Focus() End Sub Private Sub tQty_KeyUp(ByVal sender As Object, ByVal e As ) Handles tQty.KeyUp tTotal.Text = Val(tQty.Text) * Val(tHargaSatuan.Text) End Sub If dt.Rows.Count > 0 Then tNamaBarang.Text = dt.Rows(0).Item('namaBarang').ToString tHargaSatuan.Text = dt.Rows(0).Item('hargaBarang').ToString End If Catch ex As Exception Sub ambilDataBarang() Try Dim dt As New DataTable Dim query = 'select * from tb_barang where kodeBarang=' & tKodeBarang.Text & '' reader = New OleDbDataAdapter(query, koneksi) reader.Fill(dt) Private Sub tKodeBarang_KeyPress(ByVal sender As Object, ByVal e As ) Handles tKodeBarang.KeyPress If Asc(e.Ke圜har) = 13 Then Call ambilDataBarang() End If End Sub If dt.Rows.Count = 0 Then command = New OleDbCommand('INSERT INTO tb_penjualan(noFaktur,kodeBarang,QTY,total)values(' & tNoFaktur.Text & ',' & tKodeBarang.Text & ',' & tQty.Text & ',' & tTotal.Text & ')', koneksi) Dim hasil As Integer = command.ExecuteNonQuery If hasil > 0 Then MessageBox.Show('Transaksi berhasil diproses', 'Transaksi Faktur', MessageBoxButtons.OK, MessageBoxIcon.Information) kosongkan() refreshCombo() End If Else MessageBox.Show('Transaksi gagal diproses, no faktur sudah terdaftar', 'Transaksi Faktur', MessageBoxButtons.OK, MessageBoxIcon.Error) End If Catch ex As Exception Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Connect() If (Val(tTotal.Text) > 0) Then Try Dim dt As New DataTable Dim query = 'select * from tb_penjualan where noFaktur=' & tNoFaktur.Text & '' reader = New OleDbDataAdapter(query, koneksi) reader.Fill(dt)

Icon program vb penjualan dengan menyebut