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