Trik Merubah Nama Bulan English menjadi Versi Idonesia pada Cristal Report 8.5

1. Buka File Laporan

2. Klik Menu Insert >> Field Object

3. Klik Kanan Formula Field >> New

4. Ketik Nama Formula (Misalnya TempatBln)

5. Klik Ok

6. Ketiklah Rumus Di Bawah Ini

7. Klik Ikon Check

8. Jika Tidak Ada Yang Salah Klik Ok

9. Klik Ikon Save And Close

10. Drag Rumus Bulan Ke Dalam Laporan

 Hasilnya adalah :

Code Cristal Report:

================================================================

'++++++++++++++     TEMPAT & TAANGGAL SURAT ++++++++++++++++++++

================================================================

"Banjarmasin, " +  ToText(CurrentDate, "dd")  +

If Month (CurrentDate)=1 Then

" Januari " +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=2 Then

" Februari " +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=3 Then

" Maret " +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=4 Then

" April " +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=5 Then

" Mei " +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=6 Then

" Juni "  +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=7 Then

" Juli "  +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=8 Then

" Agustus "  +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=9 Then

" September "  +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=10 Then

" Oktober "  +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=11 Then

" November "  +  ToText(CurrentDate, "yyyy") 

Else

If Month (Currentdate)=12 Then

" Desember "  +  ToText(CurrentDate, "yyyy")

Hasilnya Ex : Banjarmasin, 22 Mei 2012

Download Articlle : Conversi Mount Name to Indonesia Versition in Crisal Report.pdf 

Select Formula Cristal Report

untuk Field berisi huruf (contoh : kode Produk, Nama Barang) :

    CRt1.SelectionFormula = "{nama_tabel.nama_field}='" + text1.text + "'"

2. untuk Field berisi angka (contoh : NIK, harga) :

    CRt1.SelectionFormula = "{nama_tabel.nama_field}=" + text1.text  + ""

3. untuk Field berisi tanggal (contoh : tanggalfaktur) :

 CRt1.SelectionFormula = "{nama_tabel.nama_field}=#" + format(DTPicker1.value,"yyyy-mm-dd")  + "#"

Apabila filter lebih dari satu tinggal menambahkan AND atau OR, contoh :

    CRt1.SelectionFormula = "{nama_tabel.nama_field}=" + text1.text  + " AND {nama_tabel.nama_field}=" + text2.text  + ""

---

tiga filter

"{Nama_Tabel.Nama_Field}= '" & Combo1.Text & "' And {Nama_Tabel.Nama_field}>=# " & TDatePicker1.Value & "# And {Nama_Tabel.Nama_field}<= #" & TDatePicker2.Value & "#"

---

‘Cara menampilkan Cristak Report Melalui Visual Basic  tanpa password

With CrystalReport1

.ReportFileName = App.Path & "\report\Laporan_Harian.rpt"

.WindowState = crptMaximized

.RetrieveDataFiles

.SelectionFormula = "{Nama_Tabel.Nama_Field}>=# " & DatePicker1.Value & "# And {Nama_Tabel.Nama_Field}<= #" & DatePicker2.Value & "#"

.Destination = crptToPrinter

.Action

End With

---

‘Cara menampilkan Cristak Report Melalui Visual Basic databse berpassword

Dim strFormula As String

   strFormula = "{TABEL1.FIELD}= '" & Combo1.Text & "'"

    With CrystalReport1

        .Destination = crptToWindow

        .SelectionFormula = IIf(Combo1.Text = "NONE", "", strFormula)

        .ReportFileName = App.Path & "\Laporan.rpt" 'assign report file

        .Password = Chr(10) & "password" 'membuka password database

        .WindowState = crptMaximized 'maximized - minimized or normal

        .DataFiles(0) = App.Path & "\Database1.mdb" 'get db current path

        .Action = 1 'show report

    End With

Ctt : Jika pada Combo1 = yang di pilih adlah NONE maka  yang di tampilkan semuanya

---

Cara Membuat Tanggal Awal & Akhir pada Laporan Dengan Cristal Report

Plih menu Inset – Grand total 

Pilih Field Tanggal  

Pada Insert a Field which calcolate the  pilih

Maximun : Untuk mencari nilai tertinggi (Tanggal terbaru/ tanggal awal)

Minimum : Untuk mencari nilai terendah (Tanggal lama / Tanggal Akhir)

OK

Membuat Mencari Tanggal Maksimal dan Minimal Cara 2

Pilh menu Insert Field Object

Plih Formula Field – Click Kana NEW

Pada Formula Name Isikan nama Formul (Ex: MinTGL) – OK

Pilh Funcitions – Summary – Minimum(Fld)

Pilh Field yang ingin di cari niali minimumnya

Atau ketikan kode berikut

Minimum ({Nama_Tabel.Nama_Field})

 

Fungsi tool Furmula Editor

 

Membuat group

Pilh menu Inset Grup

Pada Inser Group Dialog pilih Field Primarykey-nya - OK

 

Ctt :Jika anda ingin membuat grup Tanggal pilih Field tanggal

 

Untuk membuat sub total anda tinggal pilih menu Inser –SubTotal

 

Hasilya

Download juga :Cara membuat Database Acces Berpassword dengan MD Office 2010
Donload Articel Nya di Sini : VB6.0 & CR 8.5 dengan DB Acces Berpassword

Halamab Berhubunga dengan : Cara Menjalankan Cristal Repot di VB6.0

Cara Membuat Laporan Cristal Report dengan Database Acces Berpassword

Aktifkan Cristal Report yang sudah anda install

Pilih Using the Report Expet

Pilih Standar - OK

 

pilih Databse

Pada Data Explorerpilih Databse file -> Find Database File – ADD

Pilih database nya – Open

> Akan muncul InputBox isikan password database nya

> Pilih table nya kemudian Click ADD>Akan muncul lagi - InputBox isikan password database nya

Setelah selesai memilih tabelnya untuk di buat laporan dengan Crstal repot Click Close

Akan Muncul dialog standar Expert Click
-Next

Pilih Filed yang ingin di tampilkan di Laporan
Dengan mengclick  Add-> atau Add ALL ->>

Pilih menu Next – Next – Next – Next

Pada title isikan nama laporan (Ex : Laporan Harian) – click Finish

Buat rancangan sesuai keinginan anda

Ex :

Fungsi tool berikut

Untuk mebuat Grand total Pilih menu Insert – Grand Total

Pilih kolom table yang ingin di total

Pada which calcolate then = Sum (Ctt :Hanya bisa untuk typer data Corrency)

Merubah Format Field Total 

Click Kana pada Field total – Pilh Format Field

Akan Muncul Jendela Format Editor

Pilih Coustumize

Pada Custum Style – Tab Number
Decimal Sparator ganti dengan koma (,)

Pada Syimbol Ganti dengan titik (.)

Pada Negativer  pilih format :  -123Pada Decimals  plih  : 1.00

Pada Tab Corrency Simbol

Ganti Corency Simbol “$” menjadi “Rp”
Beri Conteng pada Fixed

Kemudia – Ok - OK

Hasilnya

Donload Actikel Lengkaap Nya : Cristal Report 8.5 Db Acces Berpassword
Halaman Selanjutnya Cristar Report Database Acces Berpassword
Halaman Berhubungan : Vb 6.0 Cr 8.5 DB Acces Berpassword

Cara Koneksi VB 6.0 dan Cristal Report Dengan Database Acces Berpassword

Artiker berikut ini  merupakan  lanjutan dari artikel sebelunya tentang Cara membuat Database MS Acces berpassword dengan MS Office 2010 dan Cristal Report dengan DB Acces Berpassword Berikut ini saya membuatkan Contoh project untuk memudahkan anda semua dalm memperlajarinya Langkan pertama buat rancangan form sebagi berikut

Copykan kode berikut pada Form yang sudah anda rancang

Codenya :

Option Explicit

Dim rsPerson As New ADODB.Recordset

Dim Db As Connection

'-------------------

Public conn As New ADODB.Connection

Dim Database As Connection

Dim WithEvents rs As Recordset

Sub konek()

---

Set Database = Nothing

Set Database = New Connection

Database.CursorLocation = adUseClient

Database.Open "PROVIDER=MSDataShape;Data PROVIDER= microsoft.jet.oledb.4.0;Data Source=" _

& App.Path & "\Database1.mdb;Jet OLEDB:Database Password=rahman; "

End Sub

---

Private Sub CmdCetakByTgl_Click()

If DTPicker2.Value < DTPicker1.Value Or DTPicker1.Value > DTPicker2.Value Then

MsgBox "Tanggal terbalik", vbInformation

DTPicker1.SetFocus

Exit Sub

ElseIf DTPicker2.Value = DTPicker1.Value Then

MsgBox "pilih Tanggal yang berbeda", vbInformation

DTPicker2.SetFocus

Exit Sub

End If

    With CrystalReport1

         .ReportFileName = App.Path & "\Laporan_Harian.rpt" 'assign report file

        .Destination = crptToWindow

        .SelectionFormula = "{ENTRY_NOTA.TANGGAL}>=# " & DTPicker1.Value & "# And {ENTRY_NOTA.TANGGAL}<= #" & DTPicker2.Value & "#"

        .Password = Chr(10) & "rahman" 'membuka password database

        .WindowState = crptMaximized 'maximized - minimized or normal

        .DataFiles(0) = App.Path & "\Database1.mdb" 'get db current path

       .Action = 1 'show report

    End With

End Sub

---

Private Sub Command_Click()

 Dim strFormula As String

   strFormula = "{TOTAL_NOTA.NO_NOTA}= '" & Combo.Text & "'"

    With CrystalReport1

        .Destination = crptToWindow

        .SelectionFormula = IIf(Combo.Text = "[none]", "", strFormula)

        .ReportFileName = App.Path & "\Laporan_Harian.rpt" 'assign report file

        .Password = Chr(10) & "rahman" 'password

        .WindowState = crptMaximized 'maximized - minimized or normal

        .DataFiles(0) = App.Path & "\Database1.mdb" 'get db current path

        .Action = 1 'show report

    End With

End Sub

Private Sub Command2_Click()

Dim strFormula As String

    strFormula = "{JENIS_PENGELUARAN.KODE}= '" & CboKode.Text & "'"

    With CrystalReport1

        .Destination = crptToWindow

        .SelectionFormula = IIf(CboKode.Text = "[none]", "", strFormula)

        .ReportFileName = App.Path & "\Laporan_Mingguna_Perjenis.rpt" 'assign report file

        .Password = Chr(10) & "rahman" 'password

        .WindowState = crptMaximized 'maximized - minimized or normal

        .DataFiles(0) = App.Path & "\Database1.mdb" 'get db current path

        .Action = 1 'show report

    End With

End Sub

---

Private Sub Form_Load()

konek

Adodc1.ConnectionString = Database.ConnectionString

Adodc1.RecordSource = "ENTRY_NOTA"

Set DataGrid1.DataSource = Adodc1

Adodc1.Caption = "Count : " & Adodc1.Recordset.RecordCount

Adodc2.ConnectionString = Database.ConnectionString

Adodc2.RecordSource = "TOTAL_NOTA"

Set DataGrid2.DataSource = Adodc2

Adodc2.Caption = "Count : " & Adodc2.Recordset.RecordCount

Adodc3.ConnectionString = Database.ConnectionString

Adodc3.RecordSource = "JENIS_PENGELUARAN"

Set DataGrid3.DataSource = Adodc3

Adodc3.Caption = "Count : " & Adodc3.Recordset.RecordCount

'----------------------------------------------------------------

   Combo.AddItem "[none]"

    Do While Not Adodc2.Recordset.EOF

        Combo.AddItem Adodc2.Recordset!NO_NOTA

       Adodc2.Recordset.MoveNext

    Loop

'--------------------------------------------------------------

    CboKode.AddItem "[none]"

    Do While Not Adodc3.Recordset.EOF

        CboKode.AddItem Adodc3.Recordset!KODE

        Adodc3.Recordset.MoveNext

    Loop

End Sub

---

 Download tutrlanya : Coneksi Databae Microsf Acces Berpassword Dengan VB 6.0 Dan Cristal Repot 

Download Surce Code Nya : Coneksi ADo Db password.rar

Halaman Terkaint : Besic Koneksi DB Acces Berpasswod with VB6.0 7 Cristal Report 8.5