About presentation

Me : Mbah bisa minta petunjuk nggak?
Mbah : Petunjuk apa? Nomer buntut? Wis ra ono, udah nggak ada. Togel sudah dilarang.
Me : Lah, siapa juga mau pasang togel.
Mbah : Lha terus mau tanya apa?
Me : Mau presentasi mbah. Gimana nih enaknya mbah?
Mbah : Ya gampang to. Tinggal maju, ngomong ndak perlu bingung lagi.

Me : Yah.., kalo cuma itu doang ya udah tau. Tapi tips-tipsnya apa dong mbah? Powerpointnya dulu deh.
Mbah : Yo wis. Powerpoint wajib jangan terlalu meriah. Kasih warna, ganti font oke lah. Tapi jangan overdone. Tulisannya malah nggak keliatan malah. Ga perlu terlalu banyak animasi. Pilih satu atau dua yang kayanya cukup sesuai selera.
Me : Boleh dikasih gambar nggak mbah?
Mbah : Nah sedikit saran, kasi gambar di awal sama akhir yang cocok sama tema. Bisa buat lebih hidup. Kalo mau kasi latar boleh, tapi sekali lagi jangan berlebihan.
Me : Trus kalo soal penampilan mbah?
Mbah : Yah mengingat muka yang ngepas ...
Me : Yah, simbah, ngejek mulu!
Mbah : Mengingat muka yang ngepas, pakaian yang rapi cukup. Artinya berkerah dan pake sepatu. kecuali kamu cewek pake rok.
Me : Pan saya cowok mbah!
Mbah : Ya udah. Tapi yang paling penting ya yang kamu ucapkan. Cari cara supaya menarik.
Me : Menarik gimana mbah? Kudu ngejelasin program yang nggak jelas gitu ..
Mbah : Yang dateng programmer semua?
Me : Nggak ...
Mbah : Berarti jangan terlalu banyak bahas teknis program. Cukup bagaimana cara pakai program, kegunaannya sama kelebihannya. Terus jangan terlalu lama. Presentasi sama demo program cukup 15 menitan. Maksimum 20 menit. Jangan semua dibahas. Selama kegunaan utama dari program sudah terlihat, sudah cukup. Tapi kalau memang ada tambahan yang menarik, boleh ditampilkan. Soal waktu biar bisa yakin, bisa coba buat di-rehearse. Tau rehearse kan? Nggak tau nggak boleh tanya lagi.
Me : Tau lah mbah. Hari gini gitu loh! Latihan kan? Ya udah deh mbah. Thank you lah. Latihan dulu ya ...

Ganti Koneksi

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim cr As New CrystalReport1()

'ganti setdatabaselogon
Dim connectionInfo As CrystalDecisions.Shared.ConnectionInfo = New CrystalDecisions.Shared.ConnectionInfo()
connectionInfo.DatabaseName = "ValuSalesS3Fake"
connectionInfo.UserID = "sa"
connectionInfo.Password = "12345"
connectionInfo.ServerName = "APC\SQL2K5"

For Each table As CrystalDecisions.CrystalReports.Engine.Table In cr.Database.Tables
Dim tableLogonInfo As CrystalDecisions.Shared.TableLogOnInfo = table.LogOnInfo
tableLogonInfo.ConnectionInfo = connectionInfo
table.ApplyLogOnInfo(tableLogonInfo)
Next

'isi parameter di sini

Me.CrystalReportViewer1.ReportSource = cr
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub