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.
Buat terlebih dahulu laporan crystal report dengan menggunakan tabel sementara tersebut sebagai source datanya. Pada command cetak faktur, masukan mantera dibawah ini :
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.
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
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.
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
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.
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
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.
Moga bermanfaat. Begitulah, kayaknya.
Baca juga --> Membuat menu hapus tabel database acces
keren bnget , ijin download ya
ReplyDeletesilahkan om.
Deletelinknya mana ?
ReplyDeletelink apa mas ?
Delete