Menampilkan Photo dalam Laporan

Pada kondisi tertentu menyajikan Laporan dengan Image atau photo sangat dibutuhkan untuk detail pada laporan. Pada tutorial sebelumnya sudah dijelaskan tentang "

Membuat Program Simpan Update Hapus Foto", dan pada tutorial ini anda tinggal menambahkan satu form lagi untuk cetakan (sebagai tampilan Viewer laporan). format laporannya adalah .rpt, mengapa rpt coz yang dipakai adalah Crytal Report ver 8.5. Crystal Report 8.5 amat sangat ampuh untuk membuat laporan yang komplek. Pada tutorial ini database yang digunakan  ms. access dengan bahasa pemrograman VB. 6.0.

Listing Code pada Form1:


Private Sub CMDBERSIH_Click()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text1.SetFocusEnd SubPrivate Sub CMDCARI_Click()CommonDialog1.ShowOpenText4 = CommonDialog1.FileNameEnd SubPrivate Sub CMDEDIT_Click()Dim SQLEdit As StringCall simpanSQLEdit = "Update t_data Set nama= '" & Text2 & "'," & " ALAMAT='" & Text3 & "' where nrp='" & Text1 & "'"conn.Execute SQLEditMsgBox " DATA BERHASIL DI-UPDATE"Form_ActivateEnd SubPrivate Sub CMDHAPUS_Click()Dim X As StringX = MsgBox(("Anda yakin data ini mau dihapus?"), vbYesNo + vbCritical)If X = vbYes Then'Hapus Record    Adodc1.Recordset.Delete    Adodc1.Recordset.MoveFirst    DataGrid1.ReBind    DataGrid1.Refresh    Kill (App.Path & "\foto\NRP_" & Text1.Text & ".jpg")    MsgBox "foto telah dihapus!", vbInformation + vbOKOnly = vbIgnore    Form_ActivateEnd IfEnd SubPrivate Sub CMDKELUAR_Click()Unload MeEnd SubPrivate Sub CMDPRINT_Click()'Form2.WindowState = 2Form2.Show'Unload MeEnd SubPrivate Sub CMDSIMPAN_Click()Dim SQLTambah As StringCall simpanSQLTambah = "Insert Into t_data (nrp,nama,ALAMAT) values ('" & Text1 & "','" & Text2 & "','" & Text3 & "')"conn.Execute SQLTambahForm_ActivateEnd SubPrivate Sub DataGrid1_Click()If Adodc1.Recordset.RecordCount <= 0 Then Exit Sub    If Not Adodc1.Recordset.BOF And Not Adodc1.Recordset.EOF Then        Text1.Text = Adodc1.Recordset.Fields("NRP")        Text2.Text = Adodc1.Recordset.Fields("Nama")        Text3.Text = Adodc1.Recordset.Fields("ALAMAT")        Text4.Text = App.Path & "\foto\NRP_" & Text1.Text & ".jpg"        Image1.Picture = LoadPicture(App.Path & "\foto\NRP_" & Text1.Text & ".jpg")    End IfEnd SubPrivate Sub Form_Activate()' perintah untuk koneksi database saat form aktifCMDSIMPAN.Enabled = FalseCMDEDIT.Enabled = FalseCMDHAPUS.Enabled = FalseCMDBERSIH.Enabled = FalseCMDKELUAR.Enabled = TrueAdodc1.Visible = FalseText1.SetFocusCall kosongCall koneksiAdodc1.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\DBKOLEKSI.mdb"Adodc1.RecordSource = "T_data"Adodc1.RefreshSet DataGrid1.DataSource = Adodc1DataGrid1.RefreshEnd SubPrivate Sub Form_Load()'Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""Text4.Enabled = FalseEnd SubPrivate Sub TampilkanData()Text2 = RSdata!namaText3 = RSdata!ALAMATText4 = App.Path & "\foto\NRP_" & Text1.Text & ".jpg"Set DataGrid1.DataSource = RSdata.DataSourceDataGrid1.RefreshEnd SubFunction CariData()Call koneksiRSdata.Open "Select * From T_data where nrp='" & Text1 & "'", connEnd FunctionPrivate Sub kosong()Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""End SubPrivate Sub simpan()SavePicture Image1.Picture, App.Path & "\foto\NRP_" & Text1.Text & ".jpg"End SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then    Call CariData    If Not RSdata.EOF Then        TampilkanData        MsgBox "Data Ditemukan"        CMDEDIT.Enabled = True        CMDHAPUS.Enabled = True    Else        Text2.SetFocus        Text2.Text = ""        Text3.Text = ""        Text4.Text = ""        CMDSIMPAN.Enabled = True    End If    End IfEnd SubPrivate Sub Text4_Change()Image1.Picture = LoadPicture(Text4)End Sub

Interfacing Form1:

Listing Code Form2:

Dim db As CRAXDDRT.Database
Dim rpt As CRAXDRT.Report
Dim appl As CRAXDRT.Application
Dim WithEvents sect As CRAXDRT.Section

Private Sub Form_Load()
Dim rs As New ADODB.Recordset

    Screen.MousePointer = vbHourglass
    
    Set appl = New CRAXDRT.Application
    Set rpt = appl.OpenReport(App.Path & "\Report1.rpt")
    Set db = rpt.Database
    Set sect = rpt.Sections("Section5")
    rs.Open "SELECT * FROM T_DATA", conn, 1, 1
    rpt.Database.SetDataSource rs, 3, 1
    CRViewer1.ReportSource = rpt
    CRViewer1.ViewReport
    CRViewer1.Zoom 1
    Screen.MousePointer = vbDefault
End Sub

Private Sub Form_Resize()
    CRViewer1.Top = 0
    CRViewer1.Left = 0
    CRViewer1.Height = ScaleHeight
    CRViewer1.Width = ScaleWidth
End Sub

Private Sub Form_Unload(Cancel As Integer)
    conn.Close
End Sub

Private Sub sect_Format(ByVal pFormattingInfo As Object)
Dim bmp As StdPicture

    With sect.ReportObjects
        'Check picture file exist or not using
        'FileSystemObject.FileExists
        Set bmp = LoadPicture((App.Path & "\FOTO\NRP_" & .Item("field1").Value) & ".jpg")
        Set .Item("Picture1").FormattedPicture = bmp
    End With
End Sub

Interfacing Form2:

Listing Code Modules:

Public conn As New ADODB.Connection

Public RSdata As New ADODB.Recordset

Sub koneksi()

Set conn = New ADODB.Connection

Set RSdata = New ADODB.Recordset

conn.Open "Provider=microsoft.jet.oledb.4.0;data source = " & App.Path & "\DBKOLEKSI.mdb"

conn.CursorLocation = adUseClient

End Sub

Dan Berikut ini merupan hasil Running Program apabila Tombol Print/Cetak diklik

Ok sudah semua, dan semoga bermanfaat, amin....