Filter Crystal Report melalui Visual Basic (VB) 6.0

Diposting oleh Tutorial Club on 20 Januari 2012
Kategori 0 komentar
Ketika membuat laporan melalui Crystal Report maka secara normal akan muncul 2 object
yaitu :
1. Report
2. Form

Bukalah Form tersebut, disitu kita akan lihat bahwa sebenarnya pada Form yang tercipta telah tertempel komponen CRViewer seperti yang tampak pada gambar berikut ini :

Berikutnya masuklah ke dalam tampilan code, anda cari event Form_Load(), disitu akan anda jumpai code yang secara otomatis tercipta ketika membuat Crystal Reprort tadi.

Nah sisipkan perintah Filter di tengah baris code tersebut.
Berikut adalah contoh perintah Filter-nya :

Private Sub Form_Load()
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
 Report.RecordSelectionFormula = "{DEPercobaan_RepHardware.kdhard}='OPR-01'"
CRViewer1.ViewReport
Screen.MousePointer = vbDefault
End Sub

Selamat mencoba ...

Cetak Laporan VB ke Word

Diposting oleh Tutorial Club on 16 Januari 2012
Kategori 0 komentar
Dim MyWord As New Word.Application
MyWord.Documents.Add

MyWord.ActiveDocument.Tables.Add Range:=MyWord.Selection.Range, NumRows:=1, NumColumns:= _
RsGrid.Fields.Count, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed

For i = 0 To RsGrid.Fields.Count - 1
MyWord.Selection.TypeText Text:=RsGrid.Fields(i).Name
MyWord.Selection.MoveRight Unit:=wdCell
Next i
RsGrid.MoveFirst
While Not RsGrid.EOF
For i = 0 To RsGrid.Fields.Count - 1
MyWord.Selection.TypeText Text:=RsGrid.Fields(i)
MyWord.Selection.MoveRight Unit:=wdCell
Next i
RsGrid.MoveNext
Wend
Me.CommonDialog1.DialogTitle = "Penyimpanan Laporan Word"
Me.CommonDialog1.Filter = "File Word|*.docx"
Me.CommonDialog1.ShowSave
ActiveDocument.SaveAs Me.CommonDialog1.FileName
ActiveDocument.Close
MyWord.Quit
Set MyWord = Nothing

Mengganti Gambar Menu Ketika Disorot dengan JavaScript

Diposting oleh Tutorial Club on 08 Februari 2011
Kategori 0 komentar
Pernahkan anda mendesain sebuah web sendiri ??? (tanpa bantuan CMS)

Nah pasti disitu ada menu-nya kan ?
Bagaimana jika menu yang anda buat itu bukan berupa tulisan, melainkan dari sebuah gambar/image. Dan anda ingin ketika disorot menu itu berubah menjadi warna merah atau warna lainnya.

Tidak perlu sambil minum kopi ataupun makan snack, karena tidak membutuhkan waktu yang lama kok. Konsepnya sangat sederhana, sebenarnya gambar menu itu tidak pernah berganti warna, melainkan dengan menggunakan 2 gambar. Perhatikan contoh di gambar atas, arahkan pandangan anda ke menu WEBSTAT, ketika menu belum disorot (default tampilan) saya menggunakan gambar "stat.jpg", tetapi ketika menu WEBSTAT disorot maka saya mengganti gambarnya dengan sebuah gambar lain yang bernama "stat_link.jpg", dan pasti saya pake "JavaScript".

Jadi untuk contoh di atas saya memerlukan 6 file gambar, berikut adalah daftar filenya dan bisa didownload dengan gratis :
1. muka.jpg
2. muka_link.jpg
3. stat.jpg
4. stat_link.jpg
5. kat.jpg
6. kat_link.jpg

NB : Jangan lupa letakkan file-file gambar tersebut ke dalam 1 folder yang bernama images

Berikut tag html-nya :
<html>
<head>
<title>Mengganti Gambar Menu Ketika Disorot</title>
</head>

<body bgcolor="#000000" text="#FFFF00">
<table width="35%" border="0">
  <tr>
    <td><a href="#">
    <img src="images/muka.jpg" onMouseOver="this.src='images/muka_link.jpg';" onMouseOut="this.src='images/muka.jpg';">
    </a></td>
    <td>&nbsp;</td>
    <td><a href="#">
    <img src="images/stat.jpg" onMouseOver="this.src='images/stat_link.jpg';" onMouseOut="this.src='images/stat.jpg';">
    </a></td>
    <td>&nbsp;</td>
    <td><a href="#">
    <img src="images/kat.jpg" onMouseOver="this.src='images/kat_link.jpg';" onMouseOut="this.src='images/kat.jpg';">
    </a></td>
  </tr>
</table>
</body>
</html>


Download file lengkapnya di sini