Private Sub btnTambahItem_Click(sender As Object, e As EventArgs) Handles btnTambahItem.Click Dim harga As Double = Val(txtHarga.Text) Dim qty As Integer = Val(txtQty.Text) Dim subtotal As Double = harga * qty
dtDetail.Rows.Add(txtKodeBarang.Text, txtNamaBarang.Text, harga, qty, subtotal) total += subtotal lblTotal.Text = Format(total, "C2") txtKodeBarang.Clear() txtNamaBarang.Clear() txtHarga.Clear() txtQty.Clear() End Sub contoh aplikasi program penjualan dengan vb.net 2008
Public Sub Koneksi() conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\db_penjualan.mdb") If conn.State = ConnectionState.Closed Then conn.Open() End If End Sub Private Sub btnTambahItem_Click(sender As Object
Private Sub btnSimpanTransaksi_Click(sender As Object, e As EventArgs) Handles btnSimpanTransaksi.Click Koneksi() Dim trans As OleDbTransaction = conn.BeginTransaction() Try ' Simpan ke header penjualan cmd = New OleDbCommand("INSERT INTO penjualan (no_faktur, tgl, id_customer, total_bayar) VALUES (@faktur, @tgl, @idcust, @total)", conn, trans) cmd.Parameters.AddWithValue("@faktur", txtNoFaktur.Text) cmd.Parameters.AddWithValue("@tgl", dtpTanggal.Value) cmd.Parameters.AddWithValue("@idcust", cmbCustomer.SelectedValue) cmd.Parameters.AddWithValue("@total", total) cmd.ExecuteNonQuery() total_bayar) VALUES (@faktur
' Simpan detail For Each row As DataRow In dtDetail.Rows cmd = New OleDbCommand("INSERT INTO detail_penjualan (no_faktur, kode_barang, qty, subtotal) VALUES (@faktur, @kode, @qty, @sub)", conn, trans) cmd.Parameters.AddWithValue("@faktur", txtNoFaktur.Text) cmd.Parameters.AddWithValue("@kode", row("kode_barang")) cmd.Parameters.AddWithValue("@qty", row("qty")) cmd.Parameters.AddWithValue("@sub", row("subtotal")) cmd.ExecuteNonQuery()