' 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()
Public Class frmTransaksi Dim total As Double = 0 Dim dtDetail As New DataTable() Private Sub frmTransaksi_Load(sender As Object, e As EventArgs) Handles MyBase.Load ' Setup DataTable untuk detail dtDetail.Columns.Add("kode_barang") dtDetail.Columns.Add("nama_barang") dtDetail.Columns.Add("harga", GetType(Double)) dtDetail.Columns.Add("qty", GetType(Integer)) dtDetail.Columns.Add("subtotal", GetType(Double)) dgvDetail.DataSource = dtDetail contoh aplikasi program penjualan dengan vb.net 2008
Sub CetakNota(noFaktur As String) ' Ambil data dari database teksNota = "NOTA PENJUALAN" & vbCrLf & "No Faktur: " & noFaktur & vbCrLf & "==================" ' ... tambahkan detail barang ... PrintPreviewDialog1.Document = pd PrintPreviewDialog1.ShowDialog() End Sub ' Simpan detail For Each row As DataRow In dtDetail
Imports System.Data.OleDb Public Class frmBarang Private Sub frmBarang_Load(sender As Object, e As EventArgs) Handles MyBase.Load TampilkanData() End Sub subtotal) VALUES (@faktur
' Load customer ke ComboBox Koneksi() da = New OleDbDataAdapter("SELECT id_customer, nama FROM customer", conn) dt = New DataTable() da.Fill(dt) cmbCustomer.DataSource = dt cmbCustomer.DisplayMember = "nama" cmbCustomer.ValueMember = "id_customer" TutupKoneksi() End Sub
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()