Penjualan Dengan Vb.net 2008: Contoh Aplikasi Program

' Kurangi stok cmd = New OleDbCommand("UPDATE barang SET stok = stok - @qty WHERE kode_barang = @kode", conn, trans) cmd.Parameters.AddWithValue("@qty", row("qty")) cmd.Parameters.AddWithValue("@kode", row("kode_barang")) cmd.ExecuteNonQuery() Next trans.Commit() MsgBox("Transaksi berhasil disimpan") dtDetail.Clear() total = 0 lblTotal.Text = "0" Catch ex As Exception trans.Rollback() MsgBox("Error: " & ex.Message) End Try TutupKoneksi() End Sub End Class Gunakan PrintDocument dan PrintPreviewDialog . Contoh sederhana untuk mencetak teks nota:

Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click If txtKode.Text = "" Then MsgBox("Kode barang harus diisi!") Return End If Koneksi() cmd = New OleDbCommand("INSERT INTO barang (kode_barang, nama_barang, harga, stok) VALUES (@kode, @nama, @harga, @stok)", conn) cmd.Parameters.AddWithValue("@kode", txtKode.Text) cmd.Parameters.AddWithValue("@nama", txtNama.Text) cmd.Parameters.AddWithValue("@harga", Val(txtHarga.Text)) cmd.Parameters.AddWithValue("@stok", Val(txtStok.Text)) cmd.ExecuteNonQuery() TutupKoneksi() TampilkanData() MsgBox("Data barang tersimpan") End Sub contoh aplikasi program penjualan dengan vb.net 2008

Sub TampilkanData() Koneksi() da = New OleDbDataAdapter("SELECT * FROM barang", conn) dt = New DataTable() da.Fill(dt) dgvBarang.DataSource = dt TutupKoneksi() End Sub ' Kurangi stok cmd = New OleDbCommand("UPDATE barang