Laporan Sederhana Crystal Report

Pada umumnya pembuatan laporan/report menggunakan Crystal Report menggunakan koneksi ODBC pada control pannel untuk MySQL Server, SQL Server dan lainnya. Khusus untuk Ms. Access 2000 terkoneksi langsung antara Crystal Report dan databasenya. Pada kali ini admin akan membahas Crystal Report menggunakan ttx Files dan perbedaan antara koneksi ODBC dan ttx Files sangatlah banyak, salah satunya untuk ttx Files.

Tidak perlu menggunakan SelectionFormula dalam menseleksi record yang akan ditampilkan ke report, record yang tampil langsung menyesuaikan dengan Query yang dibuat dan tidak perlu membuat koneksi database ke Report menggunakan ODBC.

Dibawah ini admin akan share script kecil crystal report menggunakan ttx Files tapi sebelumnya dalam pembuatan sourcode ini minimal PC agan sudah terinstal Crystal Report. Buka Microsoft Visual Basic 6.0 (VB6) - StandartEXE - Form, tambahkan juga Modul dan jangan lupa tambahkan komponen Crystal Report Control (Project - Component - Cari Crystal Report Control pada kotak dialog yang tampil). Untuk tampilan dari Form seperti gambar dibawah ini

Module 1 (Function Koneksi Ke Database)

Public CN As New ADODB.Connection
Public xRs As New ADODB.Recordset
Sub Koneksi()
CN.CursorLocation = adUseClient
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\ADO_Demo.mdb;Persist Security Info=False"
End Sub

Module 2 (Function Pembuatan TTX Files Secara Otomatis)

Declare Function CreateFieldDefFile Lib "p2smon.dll" (lpUnk As Object, _
ByVal filename As String, ByVal bOverWriteExistingFile As Long) _
As Long

Tombol Show Report

Set xRs = New ADODB.Recordset
xRs.Open "select * from TestScores", CN, 1, 3
CreateFieldDefFile xRs, App.Path & "\TestScores.ttx", 1
                With CrystalReport1
                        .DiscardSavedData = True
                        .ReportFileName = App.Path & "\Report1.rpt"
                        .Connect = App.Path & "\TestScores.ttx"
                        .SetTablePrivateData 0, 3, xRs
                        .RetrieveDataFiles
                        .WindowMinButton = True
                        .WindowShowCloseBtn = True
                        .WindowShowExportBtn = True
                        .WindowShowPrintSetupBtn = True
                        .WindowShowSearchBtn = True
                        .WindowBorderStyle = crptSizable
                        .WindowState = crptMaximized
                        .Action = True
                End With

Form_Load

Call Koneksi 

Setelah semuanya dibuat Simpan kemudian Run/F5 dan klik tombol Show Report. Untuk lebih jelasnya bisa langsung didownload Source Codenya LINK INI