Cara Menyeting Tampilan di Crystal Report 8.5

Pagi \(´⌣`)/
Hari ini saya berkesempatan untuk memosting artikel tentang bagaimana menyeting tampilan di crystal report 8.5..

1.  Saya buka notepad yang berformat ttx.
Lalu saya ubah dengan nama kolom yang sesuai dengan database dan type data tanpa mengubah spacenya.

2. buka crystal report 8.5 

    

3. blank  

    

4. More Data Sources

    

5. Active Data

    

6. Active data (Field Definition Only)

    

7. Browse(Pilih File ttx)

    

8. Add

    9. Drag n Drop ajah field nya di kolom details

         

        

10. Kalau sudah seperti ini

      save .. 

Setelah di save untuk menyambungkan ke visual basic ..

Private Sub cmdprint_Click()

Form1.Hide

Form2.Show 'ini silahkan buat desain report di form 2

    Set rpt = rptapp.OpenReport(App.Path & "\CRPT\crpt1.rpt")  ' menghubungkan ke desain report

rpt.DiscardSavedData

strsql = "select * from terapi1  where id <>'' "

Set rs = cn.Execute(strsql) 'ambil data dari table  ke recordset

rpt.database.SetDataSource rs  ' masukan data dari recordset ke crystal report

With Form2.CRViewer1  'komponen preview

   .ReportSource = rpt  'ambil report

   .EnableGroupTree = False ' hiden tree

   .EnableExportButton = True  ' tampilkan tombol export

   .Zoom 100

   .ViewReport ' tampilkan

End With

End Sub

Buka project >> References >> (centang semua tentang crystal report)

Lalu jangan lupa buat variable global :

Dim cn As New ADODB.Connection

Dim strsql As String

Dim rpt As New CRAXDDRT.Report

Dim rptapp As New CRAXDDRT.Application

Semoga bermanfaat :)