Sekilas Tentang Seagate Crystal Report 8.5 

Seagate Crystal Report merupakan program yang dapat digunakan untuk membuat, menganalisis dan menerjemahkan informasi yang terkandung dalam database atau program ke dalam berbagai jenis laporan yang sangat fleksibel. Beberapa kelebihan dari Seagate Crystal Report adalah :

1. Pembuatan laporannya tidak terlalu rumit sehingga memungkinkan pemrogram pemula sekalipun untuk membuat laporan tanpa harus melibatkan banyak kode pemrograman.
2. Terintegrasi dengan berbagai bahasa pemrograman lain sehingga memungkinkan pemrogram memanfaatkannya dengan keahliannya.
3. Fasilitas impor hasil laporan yang mendukung format yang populer seperti Microsoft Word, Excel, Access, Adobe Portable Document Format (PDF), HTML dan sebagainya.

Elemen layar Seagate Crystal Report tidak jauh dengan elemen layar Data Report (salah satu fasilitas default yang disediaakan Microsoft Visual Basic untuk membuat laporan). Hanya saja Seagate Crystal Report dilengkapi dengan fasilitas yang lebih banyak untuk mengembangkan berbagai jenis laporan.

Pada Visual Basic 6.0, pada dasarnya Crystal report dapat diinstall secara terpisah dari folder \Misc yang merupakan versi 5.0. Menjalankan Crystal Report
1. Dari Start, pilih Programs, pilih Seagate Crystal Report.
2. Akan muncul suatu Dialog box Welcome

3. Anda dapat memilih Using Report Expert untuk pembuatan report secara step by step.
4. Step 1
5. Kemudian akan muncul dialog Choose an Expert, dan pilihlah Standard.
6. Kemudian akan muncul Standard Report Expert, yang memiliki 8 step, yaitu : Data, Fields, Group, Total, TopN, Chart, Select, Style.
7. Klik pada Database, dan akan muncul dialog Database Explorer. Klik pada Database Files, dan Double Klik pada Find Database File.
8. Pilih Pentacom.mdb, dan masukkan password yang sesuai, sehingga menjadi :

 

9. Klik pada tabel Barang, dan klik Add untuk memasukan tabel ke report.
10. Step 2
11. Klik pada Fields, dan masukkan field-field yang diinginkan. Anda dapat juga mengubah judul untuk masing-masing kolom dengan mengatur Column Heading.
12. Step 8
13. Klik pada Style, dan pada Title ketik Laporan Data Pemasok, dan pilihlah Style yang sesuai dengan keinginan anda.
14. Klik pada Preview Report untuk melihat hasil.

Download Aplikasi  Seagate Crystal Report 8.5

( Size : 171.301 kb )

Private Sub BlnAtas_Click(Index As Integer)     If (CmbBulan.ListIndex = 11) Then         CmbBulan.ListIndex = 0     Else     CmbBulan.ListIndex = CmbBulan.ListIndex + 1     End If End Sub

Private Sub BlnBawah_Click(Index As Integer)     If (CmbBulan.ListIndex = 0) Then         CmbBulan.ListIndex = 11     Else     CmbBulan.ListIndex = CmbBulan.ListIndex - 1     End If End Sub

Private Sub keluar_Click()     End End Sub

Private Sub SysTrayBtn_Click()     Me.Hide     Dim nid As NOTIFYICONDATA     With nid     .cbSize = Len(nid)     .hWnd = FormMain.hWnd     .uID = 0     .uFlags = NIF_MESSAGE Or NIF_ICON Or NIF_TIP     .uCallbackMessage = 1400     .hIcon = FormMain.Icon     .szTip = TextTanggalSekarang & vbNullChar     End With     Shell_NotifyIconA NIM_ADD, nid     oldproc = SetWindowLongA(Me.hWnd, -4, AddressOf proc)     Me.Hide End Sub

Private Sub ThnAtas_Click(Index As Integer)     If (CmbTahun.ListIndex = MaxTahun - MinTahun) Then         CmbTahun.ListIndex = 0     Else     CmbTahun.ListIndex = CmbTahun.ListIndex + 1     End If End Sub

Private Sub ThnBawah_Click(Index As Integer)     If (CmbTahun.ListIndex = 0) Then         CmbTahun.ListIndex = MaxTahun - MinTahun     Else     CmbTahun.ListIndex = CmbTahun.ListIndex - 1     End If End Sub

Private Sub Form_Unload(Cancel As Integer)   Dim nid As NOTIFYICONDATA   With nid     .hWnd = Me.hWnd     .cbSize = Len(nid)     .uID = 0   End With   Shell_NotifyIconA NIM_DELETE, nid   SetWindowLongA Me.hWnd, -4, oldproc End Sub

Private Sub KeluarTray_Click()   Unload FormMain End Sub

Private Sub Form_Paint()   formloaded = True End Sub

Private Sub KalenderTray_Click()     Dim nid As NOTIFYICONDATA     With nid     .hWnd = Me.hWnd     .cbSize = Len(nid)     .uID = 0     End With     Shell_NotifyIconA NIM_DELETE, nid     SetWindowLongA Me.hWnd, -4, oldproc     Me.Show     Form_Load End Sub

Private Sub AboutTray_Click()   FormAbout.Show End Sub

Private Sub Timer1_Timer() Label9.ForeColor = QBColor(Int(Rnd * 15)) shari = ahari(Abs(Weekday(Date) - 1)) Label5(1).Caption = "" & shari & ", " & Format(Date, "dd mmmm yyyy") Label4(1).Caption = Format(Time, "hh:mm:ss") End Sub

Download Tutorial Membuat Kalender Jawa

Class dan Object

Seperti sudah dijelaskan sebelumnya pada Subbab 4.3, Visual Basic 2005 sangat mendukung object-oriented programming (OOP). Dalam konsep OOP, segala sesuatu direpresentasikan dalam bentuk Object. Data dan fungsi digabungkan ke dalam sebuah unit yang disebut Object Object biasanya merupakan representasi dari “dunia nyata”. Object merupakan hasil cetakan dari sesuatu, yaitu Class.

 
Class (kelas) bisa memiliki Field, Property (properti), Method (metode), dan Event. Setiap Object (objek) hasil instantiasi (cetakan) dari sebuah Class juga akan memiliki Field, properti, metode, dan Event dari Class tersebut. Namun, nilai setiap Field atau Property dari masing-masing objek dapat saja berbeda-beda, walaupun mereka berasal dari Class yang sama.

Dalam Visual Basic 2005, kita dapat membuat Class sendiri. Class dibuat di dalam sebuah Modul khusus yang disebut Modul Class (Class Module). Untuk menambahkan sebuah Modul Class ke dalam Project, lakukanlah langkah berikut :
1. Klik menu Project > Add Class.. dalam Menu Bar.
2. Kemudian ketika muncul jendela Add New Item seperti di bawah ini, ketiklah nama Class yang ingin Anda buat dalam kotak isian Name. Lalu klik tombol Add. Nama dari Modul Class tersebut berarti juga nama bagi Class baru yang kita buat.

 

3. Secara otomatis Class baru tersebut ditambahkan dalam Project yang kita buat (lihat dalam bagian Solution Explorer). Contoh:

4. Untuk membuat kode program dalam Class, klik ganda terlebih dahulu nama Class tersebut pada bagian Solution Explorer.

Sebuah Class umumnya diawali oleh kata Public Class yang diikuti nama Class-nya serta diakhiri kata End Class. Kode program buatan kita untuk Class itu dituliskan di antara kata-kata tersebut. Berikut ini contoh sebuah Class bernama Manusia, di dalamnya terdapat berbagai kode program yang menunjukkan Field, Property, Metode, atau Event yang dimiliki oleh Class tersebut:

Download Tutorial Programming dalam Visual Basic 2005

Sumber : ebookhost