Gelandang Internet yang mencoba melewati lorong sempit tanpa batas ruang dan waktu
Joint Venture Adsense

Program Cetak Faktur Di Visual Basic

· · 4 comments
Assalamu'alaikum, wr.wb

Cara Membuat Program Cetak Fatur Di VB -  Selamat datang rekan-rekan. Dalam sebuah yang dibuat dari VB (visual basic) biasanya juga dilengkapi dengan fitur cetak faktur. Aplikasi cetak faktur ini biasanya terdapat pada program penjualan barang.

Aplikasi cetak faktur terdapat dua bentuk, yang pertama mencetak dari data yang telah tersimpan pada database, yang kedua mencetak langsung dari data ketika input data transaksi dilakukan. Kali ini kita akan membuat program cetak faktur dengan model kedua yaitu membuat sebuah command button pada form penjualan barang kemudian menghubungkannya ke crystal report.

Disini saya akan mengambil data faktur dari tabel penampung sementara. Tabel penampung sementara ini digunakan untuk membantu perhitungan total belanja sekaligus kita gunakan untuk data cetak faktur kita. Setiap satu transaksi selesai dilakukan maka tabel penampung data sementara ini akan dikosongkan otomatis setelah proses cetak faktur dilakukan. 

Pada contoh kali ini kita masih menggunakan database acces 2007 dengan koneksi AdoDc.

Baca juga --> Cara koneksi acces 2007 di Visual Basic 6.0

Untuk mencetak faktur kita menggunakan crystal report. Secara default kita tentu tidak bisa membuat laporan dengan acces 2007 (*accdb). Karena cristal report 8.0 dan 8.5 didesain untuk acces versi lawas 2003 (*mdb), tapi acces 2007 juga terbilang lawas ya bro, Duh !.

Baca juga --> Cara buat laporan crystal report menggunakan acces 2007

Mungkin tampilan form penjualan rekan-rekan berbeda dengan contoh dibawah ini, yang penting konsepnya sama dengan membuat tabel sementara sebagai data untuk mencetak fakturnya.

contoh aplikasi cetak faktur di VB

Buat terlebih dahulu laporan crystal report dengan menggunakan tabel sementara tersebut sebagai source datanya. Pada command cetak faktur, masukan mantera dibawah ini :

Private Sub Command7_Click()
With cr1
   .Connect = "provider=microsoft.ace.oledb.12.0;data source=" & App.Path & "\databarang.accdb"
   .ReportFileName = App.Path & "/faktur.rpt"
   .SelectionFormula = ""
   .RetrieveDataFiles
   .WindowState = crptMaximized
   .Action = 1
End With
End Sub

Keterangan :
databarang.accdb : Nama database
faktur.rpt : Nama file laporan crystal reportnya.

Maka ketika command Cetak faktur di klik akan tampim laporan cetak faktur seperti gambar dibawah ini.

cara cetak faktur di VB
Untuk mengosogkan data pada tabel sementara sekaligus mengosongkan data fakturnya kita bisa menggunakan formula dibawah ini kemudian memasukannya pada command tambah data dan command keluar.

Baca juga --> Cara hapus isi tabel secara total di VB

Private Sub Command6_Click()
Dim hapus As Integer
For hapus = 1 To Adodc3.Recordset.RecordCount
Adodc3.Recordset.MoveFirst
Adodc3.Recordset.Delete
Adodc3.Recordset.Update
Adodc3.Recordset.MoveNext
Next hapus
End Sub

Sehingga faktunya kembali kosong seperti gambar dibawah ini. 

membuat form untuk cetak kwitansi ke crystal report
Moga bermanfaat. Begitulah, kayaknya. 

4 comments:

- Komentar yang mengandung hujatan, negatif akan dianggap spam
- Komentar link akan dilaporkan ke posyandu terdekat & tidak akan ditampilkan