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

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

Imports System.Data.OleDb Public Class frmBarang Private Sub frmBarang_Load(sender As Object, e As EventArgs) Handles MyBase.Load TampilkanData() End Sub 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

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