Dalam konsep bisnis penjualan ataupun pembelian maka dari itu catatan transaksi penjualan dan pembelian sangatlah diperlukan sehingga lebih mudah dimonitoring semua informasi data mengenai transaksi.
Dengan adanya laporan pejualan ataupun pembelian, akan semakin memudahkan dalam mengatur manajemen bisnis penjualan ataupun pembelian serta mengambil keputusan dalam pemasaran baik harga beli ataupun harga jual dalam penjualan.
Mengingat pentingnya laporan penjualan, maka diperlukan aplikasi yang credible untuk mengelolanya. baik laporan pertanggal, perbulan ataupun pertahun. sehingga terlihat hasil output menurun atau meningkatnya penjualan ataupun pembelian.
Pertanggal:
coretan koding laporan pertanggal, perbulan, pertahun.
Private Sub Form_Load()
'On Error Resume Next
Call opendb
'cari data tanggal di
tabel pembelian
rspembelian.Open
"select distinct Tanggal from TB_PENJUALAN order By 1", conn
rspembelian.Requery
Do Until
rspembelian.EOF
'tampilkan dalam combo1
Combo1.AddItem Format(rspembelian!Tanggal,
"DD-MMMM-YYYY")
rspembelian.MoveNext
Loop
Dim rsbulan As New
ADODB.Recordset
'cari bulan dalam tabel
pembelian
rsbulan.Open
"select distinct Month(Tanggal) as Bulan from TB_PENJUALAN", conn
Do While Not rsbulan.EOF
'tampilkan dalam combo2
Combo2.AddItem rsbulan!Bulan & Space(5)
& MonthName(rsbulan!Bulan)
rsbulan.MoveNext
Loop
Dim rstahun As New
ADODB.Recordset
'cari tahun di tabel
pembelian
rstahun.Open
"select distinct year(Tanggal) as
Tahun from TB_PENJUALAN", conn
Do While Not
rstahun.EOF
'tampilkan dalam combo3
Combo3.AddItem rstahun!Tahun
rstahun.MoveNext
Loop
Dim rstahun2 As New
ADODB.Recordset
'cari PERtahun di tabel
pembelian
rstahun2.Open
"select distinct year(Tanggal) as
Tahun from TB_PENJUALAN", conn
rstahun2.Requery
Do While Not
rstahun2.EOF
'tampilkan dalam combo4
Combo4.AddItem rstahun2!Tahun
rstahun2.MoveNext
Loop
conn.Close
'______________________________________'
Dim Atas As Long
Dim Kiri As Long
Atas = (Screen.Height -
Me.Height) / 2
Kiri = (Screen.Width -
Me.Width) / 2
Me.Move Kiri, Atas
End Sub
Private Sub
COMBO1_CLICK()
With CrystalReport1
.SelectionFormula =
"Totext({TB_PENJUALAN.Tanggal})='" & CDate(Combo1) &
"'"
.ReportFileName = App.Path &
"\rpt1.rpt"
.WindowState = crptMaximized
.RetrieveDataFiles
.Action = 1
End With
End Sub
Private Sub
Command1_Click()
Call opendb
rspembelian.Open "select * from
TB_PENJUALAN where month(Tanggal)='" & Val(Left(Combo2, 2)) &
"' and year(Tanggal)='" & (Combo3) & "'", conn
If rspembelian.EOF Then
MsgBox "Data tidak ditemukan"
Exit Sub
Combo3.SetFocus
End If
With CrystalReport1
.SelectionFormula =
"Month({TB_PENJUALAN.Tanggal})=" & Val(Left(Combo2, 2)) &
" and Year({TB_PENJUALAN.Tanggal})=" & Val(Combo3.Text)
.ReportFileName = App.Path &
"\RPTBELI.rpt"
.WindowState = crptMaximized
.RetrieveDataFiles
.Action = 1
End With
End Sub
Private Sub
COMBO4_CLICK()
With CrystalReport1
.SelectionFormula =
"Year({TB_PENJUALAN.Tanggal})=" & Val(Combo4) & ""
.ReportFileName = App.Path &
"\rpttahun.rpt"
.WindowState = crptMaximized
.RetrieveDataFiles
.Action = 1
End With
End Sub
if Month
({tbpembelian.tgl_faktur})=1 Then
"JANUARI"
ELSE
if Month
({tbpembelian.tgl_faktur})=2 Then
"FEBRUARI"
ELSE
if Month
({tbpembelian.tgl_faktur})=3 Then
"MARET"
ELSE
if Month
({tbpembelian.tgl_faktur})=4 Then
"APRIL"
ELSE
if Month
({tbpembelian.tgl_faktur})=5 Then
"MEI"
ELSE
if Month
({tbpembelian.tgl_faktur})=6 Then
"JUNI"
ELSE
if Month
({tbpembelian.tgl_faktur})=7 Then
"JULI"
ELSE
if Month
({tbpembelian.tgl_faktur})=8 Then
"AGUSTUS"
ELSE
if Month
({tbpembelian.tgl_faktur})=9 Then
"SEPTEMBER"
ELSE
if Month
({tbpembelian.tgl_faktur})=10 Then
"OKTOBER"
ELSE
if Month
({tbpembelian.tgl_faktur})=11 Then
"NOVEMBER"
ELSE
if Month
({tbpembelian.tgl_faktur})=12 Then
"DESEMEBR"
