Buat Alert Message (Messagebox.show())

gara-gara mencoba menjawab pertanyaan rekan akhirnya sudah saya buat tulisan ini yah walau sederhana semoga bermanfaat bagi yang memerlukannya dan masih tidak jauh dari web

pembahasan kali ini mengenai Alert box biasa digunakan untuk memberi keterangan atas suatu inputan. Jika inputan yang dimasukkan tidak sesuuai dengan yang disyaratkan, maka akan muncul window kecil yang menampilkan peringatan tertentu atau bahasa gampangnya adalah menampilkan pesan

Dan cara menampilkan alert box (messagebox.show kalau pada vb net) secara sederhana dapat kita gunakan javascript. Javascript tinggal dimasukkan dalam kombinasi tag php atau html maka alert box bisa dijalankan.

Beberapa contoh pengunaan alert box:

Menampilkan Pesan dari Button



<input name="btnPesan" onclick="alert('Coba Pesan lewat tombol ini')" type="button" value="proses" />

Pada baris kode ini akan menampilkan pesan setelah onclick="alert('pesan')"

Membuat Alert box berupa hyperlink

sebenarnya secara konsep hampir sama dengan hyperlink biasa yang membedakan adalah penambahan onclick untuk mengetahui proses yang sedang dilakukan, sehingga jika menuju halaman yang dikehendaki maka akan memunculkan pesan proses tersebut

waldy web

<a href="http://waldypermana.blogspot.com onclick="alert('selamat datang pada web waldy')">waldy web</a>

dan yang dieksekusi adalah javascript pada onclick maka proses pesan akan ditampilkan

Alert box optional (if else)

ketika dihadapkan dengan pilihan untuk mengeksekusi lebih dari 1 opsi sedikit berbeda caranya dari yang ada diatas, dan rada tidak mudah menemukannya ternyata walau if else saja dan bedanya jika diatas menggunakan alert maka disini menggunakan confirm




<script type="text/javascript"> function tambahteman() { var nambah=confirm('tambah saya sebagai teman ?') if (nambah) { alert("Selamat datang di akun waldy") window.location = "http://www.facebook.com/waldypermana.agastya"; } else { alert("Anda masih di waldypermana.blogspot.com") } } </script><br /> <input type="button" value="add fb waldy" onclick="tambahteman()" />

selamat mencoba karena dengan mencoba maka anda semakin menguasai dan mengetahui mana yang seharusnya bisa lebih baik lagi

share is care

WAL

Crystal Report : Filter Menggunakan Dataset dan DateTimePicker

Pada pembahasan mengenai Crystal report kali ini adalah filterisasi dengan menggunakan fungsi between dari dateTimePicker dan menggunakan konsep koneksi Disconnected Environment yaitu Dataset dan ini sesuai dengan usulan dari teman saya johan regar

Duh ini apa lagi seh ? kok banyak review nya ?

baik ini rasanya capek ya kok banyak bener review mengenai Crystal Report, yah namanya juga share jadinya kan banyak versi sehingga menjadikan kita semakin berkreasi lebih dan lebih lagi untuk membuat pelaporan yang bervariasi, sebelumnya baca dahulu review crystal report saya sebelumnya

Mulai dengan membuat file Crystal Report baru





Caranya seperti review saya sebelumnya yang membedakan adalah pada saat koding


Disini saya memakai 2 buah DateTimePicker sebagai filter dan button sebagai penampil isi report, penggunaan Dataset yang mana memungkinkan anda untuk melakukan selection formula secara coding query langsung ke dalam table pada database dengan mem-binding Dataset yang merupakan representasi dari table dan crystal reportnya, serta saya menggunakan database SQL Server 2005


Koding Time


ok langsung saja


Imports System.CrystalReports.Shared
imports System.Data.SqlClient


Public Class1


Dim xKoneksi As new SqlConnection
Dim xcom As new SqlCommand
Dim ds As new Dataset
Dim da As SqlDataAdapter
Dim ReportPembelian as new CReportBeli


Private Sub Form1_Load(Byval sender As System.Object, Byval e As System.EvenArgs) Handles me.Load
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DB;Integrated Security=true"
xKoneksi.open()
End Sub


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Try

xcom.CommandText = "SELECT PEMBELIAN.no_nota," & _
"PEMBELIAN.nama_supplier, "PEMBELIAN.tanggal_nota, detil_pembelian.kode_barang," & _ "detil_pembelian.nama_barang,detil_pembelian.jumlah_beli, detil_pembelian.harga, " & _ "detil_pembelian.total, PEMBELIAN.total_pembelian, PEMBELIAN.Keterangan " & _

"FROM PEMBELIAN, detil_pembelian WHERE" & _
"PEMBELIAN.no_nota = detil_pembelian.no_nota_pembelian and " & _
"PEMBELIAN.tanggal_nota BETWEEN '" & datetimepicker1.value & "'" & "and" & _
"'" & datetimepicker2.value & "'"
da = New SqlDataAdapter(xcom.CommandText, xKoneksi)
da.Fill(ds, "tblAlias")

ReportPembelian.SetDataSource(ds.Tables("tblAlias"))


CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.ReportSource = ReportPembelian


Catch (Ex As Excepyion)


End Try


End Sub


End Class


Silahkan mencoba versi yang baru ini menggunakan fungsi Between dari datetimepicker dan ditampilkan saat anda meng-klik button. thx to johan regar


by


WAL

Crystal Report : Source Code Filter dengan Bulan dan Tahun (2)

Pada bagian Crystal report kali ini adalah versi lain dari filter berdasarkan bulan dan tahun dan ini adalah masukan dari teman saya tegar thx for masukannya bro

Apa yang dibutuhkan

Tetap saja sama seperti posting saya sebelumnya Filter Bulan dan Tahun baca dulu, tidak ada yang berubah dan yang membedakan dengan postingan sebelumnya ada pada saat koding jadi kita langsung menuju koding.


Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,1) to datetime(” & cbTahun.Text & “,” & cbBulan.SelectedIndex + 1 & “,” & Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ini apaan lagi, kok beda terus bedanya apa ma yang kemarin ?

ha4 oke2 untuk yang kali ini sesuai dengan saran dari teman saya tegar saya akan coba tidak menggunakan select case akan tetapi menggunakan fungsi dari event combobox yaitu selectedindex, yang mana (” & cbTahun.Text & “,” & xBulan.ToString() & “,1) menjadi (” & cbTahun.Text & “,” & cboBulan.selectedIndex + 1 & “,1) dikarenakan xBulan merupakan bagian dari select case maka di ganti seperti di atas

ini adalah versi yang lain dari pemanipulasian Crystal Report silahkan di coba dan terima kasih buat akang tegar buat masukannya

by

WAL

Crystal Report : Langkah Membuat Drill Down Report

Pada artikel sebelumnya mengenai filterisasi crystal report dengan menggunakan inputan user kali ini saya ingin sharing mengenai crystal report juga tetapi hanya langkah awal memulai membuat report secara drill down

tidak perlu lama-lama langsung saja kita mulai, topik yang kali ini kita bahas meliputi :
- Laporan Drill Down yang interaktif
- Grafik data
- Kondisional format data

Dalam sharing sederhana ini saya akan mencoba mendemokan caranya, untuk report saya menggunakan report wizard.

1. Tambahkan Crystal Report file ke dalam project anda, maka akan muncul Crystal Report Gallery Window, dalam menu pop up ini pilihlah "Using the Report Expert"
lalu centang opsi "Drill Down"



2.Set Data Source Koneksi ke dalam database nya menggunakan apa (sesuai dengan database yang anda gunakan)



3. Setelah keluar databasenya dan keluar tablenya maka pilih SALES, STORE & TITLE sebagai contoh untuk ditampilkan dalam Crystal Report



4. Grup Tab, grup tab di sini memiliki fungsi untuk mengkategorikan data



5. Total Tab, tab ini mempunyai fungsi untuk melakukan berbagai macam summary type seperti halnya sum, avg, dll seperti pada excel



6. Drill Tab, mempunyai fungsi dimana secara spesifik anda dapat menyembunyikan sementara dan dapat di lihat ketika di klik



7. Chart Tab, dalam fungsi ini anda dapat memilih tipe chart yang anda kehendaki, chart akan ditambahkan pada Data Source yang diminta dan bersifat dinamis sesuai dengan konsep drill down



8. Data Tab, dalam fungsi ini anda akan dihadapkan pada pilihan yang akan anda tampilkan pada chart yang mana merefleksikan keseluruhan laporan



semoga tambahan ini bisa membantu anda dalam memanipulasi Crystal Reports dan selamat mencoba

by

Wal

Crystal Report : Source Code Filter Inputan User

Nah kali ini saya mau share lagi bagi2 nah ini masih soal Filtering di Crystal Report nah kali ini maunya filter berdasarkan nama kolom dan tetap memakai combobox seperti pada ulasan saya sebelumnya di Filter Bulan dan Tahun

Lama langsung aja lah

baik lama ya? he3 oke ini yang anda butuhkan untuk percobaan kali ini
1. Combobox (1 buah) sebagai trigger pilihan nama kolom nya
2. CrystalReportViewer untuk menampilkan/menempelkan crystalreport pada form

Ok komponen udah jelas ini lalu ?

Ok kali ini yang mau saya buat case study nya adalah menampilkan id_Penjualan di Combobox lalu dari Value yang ada dari Combobox di klik maka akan langsung terjadi perubahan dan sedangkan Button untuk menampilkan semua data

Paham ? Koding Time

Imports System.Data.SqlClient
Public Class FormCR

Dim ds As New DataSet
Dim da As SqlDataAdapter
Dim xKoneksi as SqlConnection
Dim NewCR as new ReportPenjualan

Private Sub FormCR_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
Try
If xKoneksi.State=Connection.Open()
xKoneksi.Close()
End If
xKoneksi.ConnectionString="Data Source=NAMA_SERVER;Initial Catalog=NAMA_DATABASE;Integrated Security=True"
xKoneksi.Open()

Dim query As String
query="Select id_penjualan from Transaksi_Penjualan"
da=New SqlDataAdapter(query,xKoneksi)
da.Fill(ds,"TblAlias")

For i As Int32 = 0 To ds.Tables("TblAlias").Rows.Count - 1
Combobox1.Items.Add(ds.Tables("TblAlias").rows(i).Item(0).ToString
End For
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub

End Sub

Private Sub Combobox1_SelectedIndexChanged(Byval sender As System.Object, Byval e As System.EventArgs)Handles Combobox1.SelectedIndexChanged
Try
CrystalReportViewer1.ReportSource = NewCR
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = "{Transaksi_Penjualan.id_penjualan}='" & Combobox1.Text & "'"
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Sudah ? bagaimana pusing ?

Itu berarti anda sudah pada jalur yang tepat dan silahkan mencoba

by

WAL

Crystal Report : Source Code Filter dengan Bulan dan Tahun

sudah lama ngga ngeblog nih kangen juga mau ngeblog lagi ni, kali ini saya akan mencoba membagi tips lagi yaitu untuk memfilter Crystal Reports sesuai dengan yang kita mau dalam hal ini filterisasi di gunakan pada bulan dan tahun untuk menampilkan suatu transaksinya.

Apa yang dibutuhkan ?

ok untuk kali ini saya membutuhkan filter pada form CrystalReportViewer ditambahkan :
1. Combobox (2 buah) untuk Bulan dan Tahun yang masing-masing saya namakan CbBulan dan CbTahun
2. Button (1 buah) untuk memproses filterisasi dari combobox yang tadi anda pilih dan saya namakan btnProses
3. CrystalReportV1ewer untuk menampilkan/menempel CrystalReport ke dalam form

Yang mau difilter apa ? dan pada saat apa ? 

kali ini yang akan menjadi studi kasus adalah Transaksi Penjualan yang mana pada laporannya dibutuhkan bentuk laporan secara berkala (bulan dan tahun)

Setelah itu apa ?

setelah itu kita mulai koding, siap2 ok mulai, pertama anda klik double pada form dimana saja anda isi pada combobox bulan (cbBulan) dengan event btnProses_Click dan sebelumnya main aman dulu yaitu anda isi koding dibawahnya Try Catch

Koding Time

Public Form ClassTransaksi

Dim xReports as new ReportPenjualan
Dim xBulan as Integer

Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
Try

ReportPenjualan.Load()

Select Case CbBulan.Text
Case "Januari"
xBulan = 1
Case "Februari"
xBulan = 2
Case "Maret"
xBulan = 3
Case "April"
xBulan = 4
Case "Mei"
xBulan = 5
Case "Juni"
xBulan = 6
Case "Juli"
xBulan = 7
Case "Agustus"
xBulan = 8
Case "September"
xBulan = 9
Case "Oktober"
xBulan = 10
Case "November"
xBulan = 11
Case "Desember"
xBulan = 12
End Select

CrystalReportViewer1.ReportSource = xReport
CrystalReportViewer1.Zoom(1)
CrystalReportViewer1.SelectionFormula = “{Transaksi.TglTransaksi} in datetime(” & cbTahun.Text & “,” & xBulan.ToString() & “,1) to datetime(” & cbTahun.Text & “,” & xBulan.ToString() & “,” &  Now.Day.ToString() & “)”
CrystalReportViewer1.Refresh()
Catch(ex As Exception)
MsgBox(ex.Message() & ex.StackTrace() & ex.Source())
End Try
End Sub
End Class

Ahh Ribet, maksudnya selectionFormula gimana tuh ?

Jadi begini dalam CrystalReport disediakan suatu formula yang mana dapat kita manipulasi lewat SelectionFormula jadi segala macam rumus dapat kita tambahkan sesuai yang kita butuhkan dalam hal ini saya mengambil untuk memfilter bulan dan tahun dan kalau masih bingung yang mana sih SelectionFormulanya ? yang ini “{Transaksi.TglTransaksi} in datetime(2009,8,1) to datetime(2008,1,1)”

 Kan di Comboboxnya tampilannya berupa huruf ?

He3x memang dalam combobox isinya berupa Januari dst sampai Desember tapi kok munculnya angka 1 hingga 12 ? itu karena tadi saya select case karena semua format dalam SelectionFormula berupa angka bukan huruf (YYYY/MM/DD) sehingga harus saya konversi dahulu

Sampai disini dulu pembelajaran kali ini mengenai Crystal Report moga bermanfaat dan mohon masukan kritik dan saran...

Aplikasi tersebut dibuat dengan Visual Studio 2005. Bahasa pemrograman VB.NET, dan menggunakan SQL Server 2005 database dan Crystal Report bawaan Visual Studio 2005

by :

Wal

Simpan Gambar Menggunakan SQL Server dan VB NET 2005

kali ini saya coba mengulas pertanyaan rekan-rekan mengenai penyimpanan gambar ke dalam database SQL Server 2005 menggunakan VB NET 2005.

pada pembahasan kali ini skenarionya adalah bagaimana membuat program untuk menyimpan gambar ke dalam database dan ditampilkan lagi ke dalam picturebox, sebelumnya maaf saya belum mengupload contoh programnya tapi syntaxnya akan saya share dulu

cara memulainya bagaimana?
yang pertama kali di lakukan adalah membuat table pada database SQL Server 2005 anda dan diasumsikan bahwa telah ada table yang menampung gambar dengan type sebagai berikut :
nama table adalah tblSavePic dengan isian kolom id, dan pic

setelah membuat table lalu apa?
setalah kita membuat table melakukan coding dengan syntax sebagai berikut untuk memilih gambar :
drag dan drop komponen OpenFileDialog dan renanme menjadi OFD

OFD.Filter = "Image Files (*.jpg, *.bmp, *.gif, *.png)*.jpg; *.bmp; *.gif; *.png"
OFD.ShowDialog()
txtFileName.Text = OFD.FileName
txtFileName.SelectionStart = txtFileName.Text.Length
If Trim(txtFileName.Text) <> "" Then
PicBox.Image = Image.FromFile(txtFileName.Text)
End If

koneksinya perlu di inisialisasi?
tentu perlu dengan syntax seperti berikut :

Imports Systems.Data.SqlClient

Dim xkoneksi as new SqlConnection
Dim xcomm as new SqlCommand

xkoneksi.ConnectionString="Data Source=[Nama Server];Initial Catalog=[Nama Database];Integrated Security=true"

xkoneksi.open

lalu setelah memilih gambar setelah itu apa?
ok sabar lalu yang dilakukan berikutnya adalah menyimpan gambar yang kita pilih ke dalam table yang ada pada database ikuti syntax seperti berikut :

Try
Dim ms As New System.IO.MemoryStream()
PicBox.Image.Save(ms, PicBox.Image.RawFormat)
Dim CPic() As Byte = ms.GetBuffer
ms.Close()

Dim query as String
query="Insert into tblSavePic values (" & _
"'" & txtID.Text & "'" & _
",'" & CPic & "')"

xcomm.CommandText = query
xcomm.Connection = xkoneksi
xcomm.ExecuteNonQuery()
Catch ex As Exception
MsgBox(ex.Message & ex.StrackTrace & ex.Source)
Finally
xkoneksi.close()
End Try

lalu bagaimana menampilkan kembali?
ok untuk menampilkan kembali adalah dengan syntax sebagai berikut :
Try
Dim arr() As Byte
Dim xread as SqlDataReader

Dim query As String
query = "Select pic from tblSavePic where ID ='" & txtCari.Text & "%'" (Asumsi menggunakan txtCari sebagai pencarian)
xcomm.CommandText = query
xcomm.Connection = xkoneksi
xread = xcomm.ExecuteReader()
xread.Read()
arr = xread.Item("pic")
PicBox.Image = Image.FromStream(New IO.MemoryStream(arr))
Catch ex As Exception
MsgBox(ex.Message & ex.StrackTrace & ex.Source)
Finally
xkoneksi.close()
End Try

semoga artikel ini bermanfaat dan jika ada salah penulisan syntax mohon di koreksi dan selamat mencoba