www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
APLIKASI PEMBELIAN, PENJUALAN, CASH-KREDIT PLUS JURNAL - VB.NET PEMINAT SILAKAN HUBUNGI : EMAIL :
[email protected] FACEBOOK :
[email protected] (UUS RUSMAWAN) Phone : 0812 8438 1118 Dalam bab ini akan dijelaskan tentang aplikasi pembelian dan penjualan secara tunai dan kredit disertai dengan jurnal akuntansinya. Aplikasi ini dapat diunduh pada tautan berikut ini. Adapun langkah-langkah pembuatannya adalah sebagai berikut:
3.1 Membuat Project Baru Langkah pertama yang harus dilakukan dalam pembuatan aplikasi ini adalah membuat project baru. Caranya adalah sebagai berikut : 1.
Buka Microsoft Visual Studio 2008 (silakan gunakan versi yang anda miliki)
2.
Pilih Create Project
Gambar 3.1 Membuat project baru
3.2 Memberi Nama Project Setelah membuat project baru, langkah selanjutnya adalah memberi nama project. 1.
Ketik nama project, contoh "Aplikasi Jual Beli"
1
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 2.
Klik OK
Gambar 3.2 Memberi nama project
3.
Selanjutnya klik menu file
4.
Pilih Save All
Gambar 3.3 Menetukan folder project
5.
Tentukan direktori project
6.
Klik Browse
7.
Klik save
3.3 Membuat Database Dan Tabel
2
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Setelah direktori project terbentuk, langkah berikutnya adalah membuat database disimpan di folder debug. Lakukanlah langkah-langkah berikut ini: 1.
Buka Microsoft Office 2003
2.
Pilih Microsoft Access 2003
3.
Klik Create New File
4.
Pilih Blank Database
5.
tulis nama database misal "dbjualbeli". Pastikan posisi foldernya debug.
Gambar 3.4 Memberi nama database
6.
Klik Create
7.
Klik dua kali Create Table In design View
8.
Kemudian buatlah tabel-tabel seperti gambar berikut ini.
3
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.5 Tabel-tabel dalam aplikasi
Catatan : Tabel-tabel ini sudah tersedia dalam aplikasi dan dapat anda unduh pada tautan yang akan kami jelaskan di halaman berikutnya. Dalam tabel-tabel master sudah tersedia contoh data yang dapat anda edit sesuai kebutuhan.
3.4 Membuat Module Koneksi Setelah membuat tabel-tabel yang diperlukan, langkah berikutnya adalah membuat module koneksi ke database, caranya adalah sebagai berikut : 1. Klik Menu Project 2. Pilih Add Module 3. Klik Add
4
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.6 Membuat module
4. Kemudian ketik koding berikut ini Imports System.Data.OleDb Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Module Module1 Public Public Public Public Public
Conn As OleDbConnection DA As OleDbDataAdapter DS As DataSet CMD As OleDbCommand DR As OleDbDataReader
Public Public Public Public Public
cryRpt As New ReportDocument crtableLogoninfos As New TableLogOnInfos crtableLogoninfo As New TableLogOnInfo crConnectionInfo As New ConnectionInfo CrTables As Tables
Public Sub seting_laporan() With crConnectionInfo .ServerName = (Application.StartupPath.ToString & "\DBJualBeli.mdb") .DatabaseName = (Application.StartupPath.ToString & "\DBJualBeli.mdb") .UserID = "" .Password = "" End With CrTables = cryRpt.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next End Sub
5
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Public Sub Koneksi() Try Conn = New OleDbConnection("provider=microsoft.jet.oledb.4.0;data source=DBJualBeli.mdb") Conn.Open() Catch ex As Exception MsgBox(ex.Message) End End Try End Sub End Module
Catatan : Jika anda menggunakan database access 2007 atau 2010, maka string koneksi diubah menjadi sebagai berikut: Conn = New OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=DBJualBeli.accdb")
Jika program mengalami error karena OS anda 64 bit, maka ubahlah setingnya sebagai berikut : 1. Klik Menu Project > Aplikasi Jual Beli properties... 2. Compile > Advance Compile Option 3. Ubah taget CPU menjadi x86 (32 bit) seperti gambar di bawah ini.
Gambar 3.7 Mengubah target CPU menjadi 32 bit
3.5 Form Login Setelah membuat module koneksi ke database, langkah berikutnya adalah membuat form login dengan bentuk seperti gambar di bawah ini.
6
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.8 Form login
3.6 Form Menu Utama Setelah membuat form login berikut codingnya, selanjutnya adalah membuat menu utama dengan bentuk tampilan sebagai berikut.
7
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.9 Menu utama aplikasi
8
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Menu utama ini dibuat menggunakan TabControl, adapaun cara pembuatannya dapat anda lihat video tutorialnya di website www.konsultasivb.com.
3.7 Form User Form user digunakan untuk mengentri data user atau pamakai aplikasi, bentuk form user dapat dilihat pada gambar di bawah ini.
Gambar 3.10 Form user
3.8 Form Barang Setelah membuat form user, langkah berikutnya adalah membuat form barang berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
9
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.11 Form barang
3.9 Form Perkiraan Setelah membuat form barang, langkah berikutnya adalah membuat form perkiraan berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
10
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.12 Form perkiraan
3.10 Form Supplier Setelah membuat form perkiraan, langkah berikutnya adalah membuat form supplier berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
11
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.14 Form supplier
3.11 From Customer Setelah membuat form supplier, langkah berikutnya adalah membuat form customer berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
12
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.15 Form Customer
3.12 Form Profil Perusahaan Setelah membuat form customer, langkah berikutnya adalah membuat form profile perusahaan berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
Gambar 3.16 Form profil perusahaan
13
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 3.13 Transaksi Pembelian Setelah membuat form profile perusahaan, langkah berikutnya adalah membuat form pembelian berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
Gambar 3.17 Form transaksi pembelian
Proses dalam transaksi pembelian adalah sebagai berikut : 1. Mengisi nomor nota pembelian 2. Memilih supplier 3. Memilih barang yang dibeli dari grid sebelah kanan 4. Mengisi jumlah barang yang dibeli 5. Mengisi jumlah pembayaran, jika jumlah pembayaran lebih kecil dari total harga maka akan dinyatakan pembelian kredit, jika jumlah bayar lebih besar dari total harga maka akan dinyatakan pembelian tunai 6. Jika pembelian secara kredit maka isilah jumlah hari jatuh temponya 7. Klik simpan
3.14 Retur Pembelian Setelah membuat form pembelian, langkah berikutnya adalah membuat form retur pembelian berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
14
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.18 Form retur pembelian
proses dalam form retur pembelian adalah sebagai berikut. 1. Pilih nomor faktur yang akan diretur 2. Isi jumlah barang yang diretur 3. Jumlah barang tidak boleh melebihi jumlah yang pernah dibeli sebelumnya 4. Klik simpan
3.15 Transaksi Penjualan Transaksi penjualan hampir mirip dengan transaksi pembelian, perbedaannya adalah transaksi pembelian akan menambah jumlah barang sedangkan transaksi penjualan akan mengurangi jumlah barang. Bentuk form penjualan berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
15
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.19 Form transaksi penjualan
Proses dalam transaksi penjualan adalah sebagai berikut. 1. Pilih customer dalam combo 2. Pilih barang yang dijual dalam grid sebelah kanan 3. Jumlah jual dapat diedit sesuai kondisi 4. Isilah jumlah bayar 5. Jika jumlah bayar lebih kecil dari total harga, maka penjualannya dianggap secara kredit, kemudian isilah jumlah hari jatuh temponya 6. Jika pembayaran lebih besar sama dengan total harga, maka penjualan dianggap tunai 7. Setelah itu klik simpan Adapun faktur transaksi penjualan terlihat pada gambar di bawah ini.
16
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.20 Faktur Penjualan
3.16 Retur Penjualan Setelah membuat form penjualan, langkah berikutnya adalah membuat form retur penjualan berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
Gambar 3.21 Form retur penjualan
17
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Proses dalam transaksi retur penjualan adalah sebagai berikut: 1. Pilih nomor faktur dalam combo 2. Isilah jumlah barang yang diretur (tidak lebih besar dari jumlah jual sebelumnya) 3. Isilah alasan retur barang tersebut 4. Klik simpan
3.17 Bayar Utang Setelah membuat form retur penjualan berikut codingnya, langkah berikutnya adalah membuat form pembayaran utang akibat pembelian secara kredit berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
Gambar 3.22 Form transaksi bayar utang
Proses dalam transaksi pembayaran utang adalah sebagai berikut: 1. Pilih nomor pembelian di bagian atas kanan dalam listbox 2. Isi jumlah pembayaran di bagian bawah sebelah kanan
18
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 3. Jika pembayaran langsung menekan enter berarti pembayaran akan langsung dilunasi dan nomor faktur yang bersangkutan akan hilang dari list setelah disimpan 4. Jika pembayaran lebih kecil dari sisa utang maka utang akan tersisa dan nomor faktur beli masih tampil dalam listbox 5. Klik simpan
3.18 Terima Piutang Langkah berikutnya adalah membuat form penerimaan piutang akibat penjualan secara kredit kepada customer berikut codingnya yang dapat anda lihat pada bagian dibawah ini.
Gambar 3.23 Form transaksi terima piutang
Proses penerimaan piutang ini hampir sama dengan pembayaran utang, yaitu : 1. Piliha nomor faktur di dalam listbox sebelah kanan kanan atas 2. Kemudian isi jumlah penerimaannya 3. Jika jumlah penerimaan lebih kecil dari tagihan maka piutang akan menyisakan data dan nomor faktur masih tampil dalam listbox
19
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 4. Jika jumlah penerimaan lebih besar sama dengan tagihan maka piutang dinyatakan lunas dan nomor faktur akan hilang dari listbox 5. Klik simpan
3.19 Laporan Master Setelah selesai proses transaksi, selanjutnya adalah membuat laporan-laporan master. Laporan ini akan ditarik dari sebuah form dengan bentuk seperti gambar di bawah ini.
Gambar 3.24 Form laporan master
Laporan ini terdiri dari laporan data user, barang, perkiraan, supplier dan customer.
3.19.1 Laporan Data User Laporan master user sebagai pemakai aplikasi terlihat pada gambar berikut ini.
Gambar 3.25 Laporan data user
20
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Perhatikan bagian header, data ini diambil dari tabel profil perusahaan. jika isi tabel ini diubah maka seluruh laporan akan memiliki header yang sama. Listing programnya terlihat di bagian bawah berikut ini. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNUser.Click cryRpt.Load("master User.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.19.2 Laporan Data Barang Laporan data barang yang dijadikan sumber transaksi jual beli dapat dilihat pada gambar di bawah ini.
Gambar 3.26 Laporan master barang
listing programnya terlihat di bagian bawah berikut ini. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBarang.Click cryRpt.Load("master Barang.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.19.3 Laporan Data Perkiraan Laporan data perkiraan yang menjadi sumber dalam jurnal dapat dilihat pada gambar di bawah ini.
21
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.27 Laporan kode perkiraan
listing programnya terlihat di bagian bawah berikut ini. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPerkiraan.Click cryRpt.Load("master perkiraan.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.20 Laporan Pembelian Laporan transaksi pembelian dibagi menjadi beberapa kriteria, diantaranya laporan harian, mingguan, bulanan, laporan per faktur, laporan per status dan sejenisnya. Adapun gambar-gambarnya dapat dilihat pada tampilan dibawah ini.
22
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Gmbar 3.28 Menu laporan pembelian
3.20.1 Laporan Harian Bentuk laporan harian transaksi pembelian barang dapat dilihat pada gambar di bawah ini.
Gambar 3.29 Laporan Pembelian Harian
Listing programnya terlihat di bagian bawah berikut ini. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHarian.Click CRV.SelectionFormula = "totext({tblpembelian.tgl_beli}) ='" & DTPHarian.Text & "'" cryRpt.Load("pembelian umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
Coding diatas menjelaskan bahwa daam form laporan pembelian ini terdapat dua objek besar yaitu datagrid dan crystalreportviewer yang diatur kondisinya antara true dan false agar tampilan menjadi lebih proporsional.
3.20.2 Laporan Periodik laporan periodik yang biasa disebut dengan laporan mingguan dapat dilihat bentunya pada gambar dibawah ini.
Gambar 3.30 Laporan pembelian mingguan
23
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi listing programnya terlihat di bagian bawah berikut ini. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPeriodik.Click CRV.SelectionFormula = "totext({tblpembelian.tgl_beli}) >='" & DTPAwal.Text & "' and totext({tblpembelian.tgl_beli}) <='" & DTPAkhir.Text & "'" cryRpt.Load("pembelian umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.20.3 Laporan Bulanan Laporan bulanan dalam transaksi pembelian barang juga dapat dilihat pada bentuk gambar berikut ini.
Gambar 3.31 Laporan pembelian bulanan
listing programnya terlihat di bagian bawah berikut ini. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBulanan.Click CRV.SelectionFormula = "month({tblpembelian.tgl_beli}) = (" & Month(DTPBulanan.Value) & ") and year({tblpembelian.tgl_beli}) = (" & Year(DTPBulanan.Value) & ")" cryRpt.Load("pembelian umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
Catatan : Bentuk laporan harian, periodik dan bulanan hampir mirip karena transaksi dilakukan pada hari yang sama.
3.20.4 Laporan Per Nomor Faktur Bentuk laporan pembelian per nomor faktur tampak berbeda dengan laporan harian, mingguan dan bulanan. Gambarnya dapat di lihat dibawah ini.
24
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.32 Laporan pembelian per nomor faktur
listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged CRV.SelectionFormula = "{tblpembelian.faktur_beli} = '" & ListBox1.Text & "'" cryRpt.Load("pembelian per faktur.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.20.5 Laporan Per Supplier laporan pembelian barang per nama supplier terlihat pada tampilan berikut ini.
25
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Gambar 3.33 Laporan pembelian per supplier
listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged CRV.SelectionFormula = "{tblsupplier.nama_supplier} = '" & ListBox2.Text & "'" cryRpt.Load("pembelian per supplier.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.20.6 Laporan Per Cara Pembelian Laporan pembelian berdasarkan cara beli (tunai atau kredit) dapat dilihat pada gambar di bawah ini.
Gambar 3.34 Laporan pembelian per cara beli (tunai atau kredit)
Listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged CRV.SelectionFormula = "{tblpembelian.cara_beli} = '" & ListBox3.Text & "'" cryRpt.Load("pembelian umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.20.7 Laporan Per Status Pembelian laporan pembelian per status (lunas atau belum lunas) terlihat pada gambar berikut ini.
26
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.35 Laporan penjualan per status (lunas atau belum lunas)
Listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox4.SelectedIndexChanged CRV.SelectionFormula = "{tblpembelian.status_beli} = '" & ListBox4.Text & "'" cryRpt.Load("pembelian umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.20.8 Export Data Pembelian Ke Excel Transaksi pembelian ini dapat diexport ke bentuk excel, codingnya dapat dilihat di bagian bawah. Imports Imports Imports Imports
System.Data.OleDb Excel = Microsoft.Office.Interop.Excel System.IO.Directory Microsoft.Office.Interop
Public Class LaporanPembelian Dim NamaFileAccess As String = "tblpembelian" Dim NamaFileExcel As String Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTExport.KeyPress If e.KeyChar = Chr(13) Then Try CMD = New OleDbCommand("SELECT * INTO [Excel 8.0;DATABASE=" & TXTExport.Text & ".xls;].[" & TXTExport.Text & "] from [" & NamaFileAccess & "]", Conn) CMD.ExecuteNonQuery() NamaFileExcel = Application.StartupPath + "\" + TXTExport.Text + ".xls" If MessageBox.Show("Konversi ke excel sukses, Buka file hasil konversi", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then System.Windows.Forms.Help.ShowHelp(Me, NamaFileExcel) End If Catch ex As Exception MsgBox("Nama file tersebut sudah Dim pesan = InputBox("tulis nama CMD = New OleDbCommand("SELECT * & NamaFileAccess & "] from [" & NamaFileAccess & CMD.ExecuteNonQuery()
ada") file alternatif") INTO [Excel 8.0;DATABASE=" & pesan & ".xls;].[" "]", Conn)
27
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi If MessageBox.Show("Konversi ke excel sukses, Buka file hasil konversi", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then NamaFileExcel = Application.StartupPath + "\" + pesan + ".xls" System.Windows.Forms.Help.ShowHelp(Me, NamaFileExcel) End If End Try End If End Sub
3.21 Laporan Retur Pembelian Laporan transaksi retur pembelian dikelompokan menjadi beberapa kriteria seperti laporan pembelian antara lain : 1. Laporan harian 2. Laporan periodik 3. Laporan bulanan 4. Laporan per nomor faktur 5. Laporan per supplier 6. Dan laporan berupa data excel hasil export Semua laporan yang disebutkan diatas dapat dilihat dalam aplikasi.
3.22 Laporan Penjualan Laporan transaksi penjualan ditampilkan melalui menu yang dapat dilihat pada gambar di bawah ini.
Gambar 3.36 Menu laporan penjualan
Laporan penjualan terdiri dari beberapa kriteria antara lain, laporan harian, mingguan, bulanan, per nomor faktur, per customer dan lain-lain.
28
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 3.22.1 Laporan Penjualan Harian Laporan transaksi penjualan harian dapat dilihat pada gambar di bawah ini.
Gambar 3.37 Laporan penjualan harian
Listing programnya terlihat di bagian bawah berikut ini. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNHarian.Click CRV.SelectionFormula = "totext({tblPenjualan.tgl_Jual}) ='" & DTPHarian.Text & "'" cryRpt.Load("Penjualan umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.2 Laporan Penjualan Periodik Laporan transaksi penjualan periodik dapat dilihat pada gambar di bawah ini.
Gambar 3.38 Laporan Penjualan periodik
listing programnya terlihat di bagian bawah berikut ini. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNPeriodik.Click CRV.ReportSource = Nothing CRV.SelectionFormula = "totext({tblPenjualan.tgl_Jual}) >='" & DTPAwal.Text & "' and totext({tblPenjualan.tgl_Jual}) <='" & DTPAkhir .Text & "'" cryRpt.Load("Penjualan umum.rpt")
29
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.3 Laporan Penjualan Bulanan Laporan transaksi penjualan bulanan dilihat pada gambar di bawah ini.
Gambar 3.39 Laporan penjualan bulanan
listing programnya terlihat di bagian bawah berikut ini. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTNBulanan.Click CRV.SelectionFormula = "month({tblPenjualan.tgl_Jual}) = (" & Month(DTPBulanan.Text) & ") and year({tblPenjualan.tgl_Jual}) = (" & Year(DTPBulanan.Text) & ")" cryRpt.Load("Penjualan umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.4 Laporan Penjualan Per Nomor Faktur Laporan transaksi penjualan per nomor faktur dapat dilihat pada gambar di bawah ini.
30
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.40 Laporan penjualan per faktur
listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged CRV.SelectionFormula = "{tblPenjualan.faktur_Jual} = '" & ListBox1.Text & "'" cryRpt.Load("Penjualan per faktur.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.5 Laporan Penjualan Per Customer Laporan transaksi penjualan per customer dapat dilihat pada gambar di bawah ini.
Gambar 3.41 Laporan penjualan per customer
31
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi Listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged CRV.SelectionFormula = "{tblCustomer.nama_Customer} = '" & ListBox2.Text & "'" cryRpt.Load("Penjualan per Customer.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.6 Laporan Per Cara Penjualan Laporan transaksi penjualan berdasarkan cara penjualan dapat dilihat pada gambar di bawah ini.
Gambar 3.42 Laporan per cara penjualan (cash - kredit)
listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged CRV.SelectionFormula = "{tblPenjualan.cara_Jual} = '" & ListBox3.Text & "'" cryRpt.Load("Penjualan umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.7 Laporan Penjualan Per Status Laporan transaksi penjualan berdasarkan status dapat dilihat pada gambar di bawah ini.
32
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.43 Laporan per status penjualan (Lunas - belun lunas)
Listing programnya terlihat di bagian bawah berikut ini. Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox4.SelectedIndexChanged CRV.SelectionFormula = "{tblPenjualan.status_Jual} = '" & ListBox4.Text & "'" cryRpt.Load("Penjualan umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.22.8 Export Data Ke Excel Pembuatan laporan berbentuk excel hasil konversi diawali dengan menambah beberapa namespace berikut ini. Imports Excel = Microsoft.Office.Interop.Excel Imports System.IO.Directory Imports Microsoft.Office.Interop Public Class LaporanPenjualan Dim NamaFileAccess As String = "tblpenjualan" Dim NamaFileExcel As String ..................................
Kemudian buatlah coding dibawah ini. Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TXTExport.KeyPress If e.KeyChar = Chr(13) Then Try CMD = New OleDbCommand("SELECT * INTO [Excel 8.0;DATABASE=" & TXTExport.Text & ".xls;].[" & TXTExport.Text & "] from [" & NamaFileAccess & "]", Conn) CMD.ExecuteNonQuery() NamaFileExcel = Application.StartupPath + "\" + TXTExport.Text + ".xls" If MessageBox.Show("Konversi ke excel sukses, Buka file hasil konversi", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then System.Windows.Forms.Help.ShowHelp(Me, NamaFileExcel) End If Catch ex As Exception
33
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi MsgBox("Nama file tersebut sudah ada") Dim pesan = InputBox("tulis nama file alternatif") CMD = New OleDbCommand("SELECT * INTO [Excel 8.0;DATABASE=" & pesan & ".xls;].[" & NamaFileAccess & "] from [" & NamaFileAccess & "]", Conn) CMD.ExecuteNonQuery() If MessageBox.Show("Konversi ke excel sukses, Buka file hasil konversi", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then NamaFileExcel = Application.StartupPath + "\" + pesan + ".xls" System.Windows.Forms.Help.ShowHelp(Me, NamaFileExcel) End If End Try End If End Sub
3.23 Laporan Retur Penjualan Laporan transaksi retur penjualan dikelompokan menjadi beberapa kriteria seperti laporan retur pembelian antara lain : 1. Laporan harian 2. Laporan periodik 3. Laporan bulanan 4. Laporan per nomor faktur 5. Laporan per customer 6. Dan laporan berupa data excel hasil export Semua laporan yang disebutkan diatas dapat dilihat dalam aplikasi.
3.24 Laporan Keuangan Laporan keuangan dari hasil transaksi pembelian, retur pembelian, penjualan, retur penjualan, pembayaran utang dan penerimaan piutang ditampilkan dari menu di bawah ini.
Gambar 3.44 Menu laporan keuangan
34
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi 3.24.1 Laporan Jurnal Harian Laporan transaksi harian dapat anda lihat pada gambar di bawah ini.
Gambar 3.45 Laporan jurnal harian
Listing programnya dapat anda lihat di bagian bawah ini. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CRV.SelectionFormula = "totext({tbljurnal.tgl_Transaksi}) ='" & DTPHarian.Text & "'" cryRpt.Load("jurnal umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.24.2 Laporan Jurnal Bulanan Laporan transaksi bulanan berupa jurnal terlihat pada gambar berikut.
35
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.46 Laporan jurnal bulanan
Listing programnya dapat anda lihat di bagian bawah ini. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click CRV.SelectionFormula = "month({tbljurnal.tgl_transaksi}) = (" & Month(DTPBulanan.Text) & ") and year({tbljurnal.tgl_transaksi}) = (" & Year(DTPBulanan.Text) & ")" cryRpt.Load("jurnal umum.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.24.3 Laporan Buku Besar Bentuk laporan buku besar terlohat pada gambar di bawah ini.
36
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.47 laporan buku besar
Listing programnya dapat anda lihat di bagian bawah ini. Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged CRV.SelectionFormula = "{TBLPERKIRAAN.NAMA_PERKIRAAN} = '" & ListBox1.Text & "'" cryRpt.Load("BUKU BESAR.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
3.24.4 Laporan Neraca Saldo Laporan neraca saldo dari semua transaksi dapat dilihat pada gambar di bawah ini.
37
www.konsultasivb.com Pusat Kursus VB 6.0 - VB.Net - Bimbingan Tugas Akhir & Skripsi
Gambar 3.48 Laporan necara saldo
Listing programnya dapat anda lihat di bagian bawah ini. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click CRV.SelectionFormula = "month({tbljurnal.tgl_transaksi}) = (" & Month(DTPBulanan.Text) & ") and year({tbljurnal.tgl_transaksi}) = (" & Year(DTPBulanan.Text) & ")" cryRpt.Load("NECARA SALDO.rpt") Call seting_laporan() CRV.ReportSource = cryRpt CRV.RefreshReport() End Sub
38