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 pd_PrintPage(sender As Object, e As PrintPageEventArgs) Handles pd.PrintPage e.Graphics.DrawString(teksNota, New Font("Arial", 12), Brushes.Black, 100, 100) End Sub End Class Cara termudah tanpa Crystal Reports: Buat form frmLaporan.vb dengan DateTimePicker dari tanggal sampai tanggal, lalu tampilkan di DataGridView:

' 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 contoh aplikasi program penjualan dengan vb.net 2008

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

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 ' Kurangi stok cmd = New OleDbCommand("UPDATE barang

Imports System.Drawing.Printing Public Class frmNota Private WithEvents pd As New PrintDocument() Private teksNota As String

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 nama FROM customer"

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