Contoh Aplikasi Program Penjualan Dengan Vb.net 2008 [2021] 〈Latest – 2024〉

Private Sub BarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BarangToolStripMenuItem.Click Dim frm As New frmBarang() frm.ShowDialog() End Sub

End Class

Integrasi dengan printer thermal untuk bukti pembayaran pelanggan.

Pada contoh ini, kita akan menggunakan dengan database Microsoft Access (.mdb) dan DataGridView untuk menampilkan data. contoh aplikasi program penjualan dengan vb.net 2008

' 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()

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 Module

Public Class frmBarang Private Sub frmBarang_Load(sender As Object, e As EventArgs) Handles MyBase.Load TampilkanData() End Sub

End Sub

Membatasi akses aplikasi hanya untuk personel yang berwenang. dtDetail

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

Perhitungan selisih harga jual dan harga beli dikurangi biaya operasional.