Senin, 7 Januari 2013

Pagi ini saya mulai mengcoding lagi form laporan yang terdiri dari :
- Form Laporan Kendaraan Masuk
- Form Laporan Kendaraan Keluar
- Form Laporan Detail Pemabayaran
- Form Laporan Rekap Pembayaran
Dan alhamdulilah setelah saya kerjakan sampai sore dengan bantuan teman saya Bangkit, akhirnya tugas saya selesai juga ..
Berikut ini adalah scrip laporan kendaraan masuk :


Dim RptApp As New CRAXDDRT.Application
Dim Rpt As New CRAXDDRT.Report
Dim con As New ADODB.Connection
Dim StrSql As String
Dim tanggal As String, waktu As String, waktu2 As String, tanggal2 As String

Private Sub koneksi()
If Koneksidb(serverdb, nama_db, "", "", con) = True Then
Exit Sub
Else
MsgBox "Gagal Masuk Aplikasi ! Silahkan setting database dulu !!", vbCritical, "K e s a l a h a n  L o g i n s ! ! !"
End
End If
End Sub

Private Sub DTPicker1_Change()
tanggal = Format(DTPicker1, "yyyy-mm-dd")
End Sub


Private Sub DTPicker2_Change()
tanggal2 = Format(DTPicker2, "yyyy-mm-dd")
End Sub

Private Sub Form_Load()
koneksi
End Sub

Private Sub MaskEdBox1_Change()
waktu = Format(MaskEdBox1, "hh:mm:ss")
End Sub

Private Sub MaskEdBox2_Change()
waktu2 = Format(MaskEdBox2, "hh:mm:ss")
End Sub

Private Sub XPButton1_Click()
Laporan_Masuk.Visible = False
Form1.Visible = True
wkt2 = waktu2
tgl2 = tanggal2
wkt = waktu
tgl = tanggal

jumlah2 = tgl2 & " " & wkt2
jumlah = tgl & " " & wkt

'MsgBox jumlah
'MsgBox jumlah2
     Set Rpt = RptApp.OpenReport(App.Path & "\ReportMasuk.rpt")  ' menghubungkan ke desain report
Rpt.DiscardSavedData
'StrSql = "select * from keluar where Tanggal_Keluar between '2012-12-10 08:00:00' and '2013-01-07 16:00:00'"

StrSql = "select * from masuk where Waktu_Masuk between '" & jumlah & "' and '" & jumlah2 & "'"

Set rs = con.Execute(StrSql) 'ambil data dari table  ke recordset
Rpt.Database.SetDataSource rs  ' masukan data dari recordset ke crystal report

With Form1.CRViewer1    'komponen preview

   .ReportSource = Rpt  ' ambil report
   .EnableGroupTree = False ' hiden tree
   .EnableExportButton = True  ' tampilkan tombol export
   .Zoom 100
   .ViewReport ' tampilkan
End With
End Sub

Private Sub XPButton3_Click()
Unload Me
Menu.TombolStats(0).Visible = True
Menu.TombolStats(1).Visible = True

End Sub

Jumat, 4 Januari 2013

Hari ini saya mengisi data di dalam database untuk memanggil di codingan laporan nanti ..
Sorenya saya melanjutkan coding form laporan. Terimakasih :)

Kamis, 3 Januari 2013

Dan hari ini saya masih tetap menyelesaikan form laporan kendaraan masuk yang telah lama belom terselesaikan :(

Rabu, 2 Januari 2013

Hari ini awal masuk kerja di tahun baru 2013, Paginya saya browsing" di internet tentang coding DTPicker untuk menampilkan di crystall report, saya sudah menemukan codingannya .. Tetapi selalu error pada format harinya, Siangnya terus saya coba mengerjakan form laporan kendaraan masuk dan hasilnya masih nihil belum bisa menampilkan, :(
Akan saya lanjutkan besok .. Terimakasih u,u ..

Rabu, 26 Desember 2012

Hari ini masih melanjutkan mengerjakan Form Laporan Masuk pada crystall report, tetapi saya masih belom bisa menemukan kesalahan yang error pada format tanggal .. akan saya lanjutkan dirumah selama holiday .. Terima kasih :)

Senin, 24 Desember 2012

Senin ini saya membenahi form identitas yang sudah saya kerjakan, dengan menambahkan :
- Footer 4
- alt + T untuk setting.
- alt + S untuk simpan.
- alt + B untuk batal.
- alt + E untuk keluar.
- Esc untuk kembali ke form awal.
Tetapi esc saya masih belom bisa, mungkin rabu akan saya lanjutkan karena besok libur natal. Terima kasih :)

Jumat, 21 Desember 2012

Dan lagi, hari ini form laporan masuk bisa di tampilkan tetapi datanya tidak tampil dalam crystal report u,u ..