Kali ini saya akan membagikan cara untuk menampilakan laporan berdasrkan kriteria tertentu seperti nomor nota yang menggunakan bahasa pemrograman Visual Basic 6. pada program ini menggunakan crystal report sebagai laporannya semoga bisa menambah wawasan bagi para pembaca semuanya.
source code :
Me.MousePointer = 11
With CrystalReport1
.Reset
.ReportFileName = App.Path & "\Jual.rpt"
.DataFiles(0) = App.Path & "\STOKIS.mdb"
.SelectionFormula = "{TB_Jual.noNota}='" & Text1.Text & "'"
.WindowMinButton = False
.WindowShowCancelBtn = True
.WindowShowCloseBtn = True
.WindowShowPrintBtn = True
.WindowShowPrintSetupBtn = True
.WindowParentHandle = MDIForm1.hWnd
.WindowState = crptMaximized
.Action = 1
End With
Me.MousePointer = 1
untuk memilih kriteria harap diperhatikan "{TB_Jual.noNota}='" & Text1.Text & "'" ---> gantilah agar sesuai dengan kriteria anda.
berikut screenshootnya :
Post a Comment
This blog needed you to understand the word spam - never spam on this blog, although i will not moderate all of it, but you will learn it yourself, educate yourself