Hadis-Hadis tentang Kebersihan
Ada beberapa hadis Rasulullah saw. yang menekankan untuk menjaga kebersihan bagi umat Islam. Hadis-hadis tersebut antara lain:
Selain dapat membaca dengan baik dan benar hadis-hadis tentang kebersihan, kalian juga harus mengetahui artinya. Perhatikanlah arti kata per kata dalam hadis-hadis berikut ini!
HADIS 1
عَنْ أَبِي مَالِكٍ الْأَشْعَرِيِّ رَضِي اللَّهُ عَنْهُ قَالَ قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهم عَلَيْهِ وَسَلَّمَ الطُّهُورُ شَطْرُ الإِيمَانِ وَالْحَمْدُ لِلَّهِ تَمْلأُ الْمِيزَانَ وَسُبْحَانَ اللَّهِ وَالْحَمْدُ لِلَّهِ تَمْلآَنِ أَوْ تَمْلأُ مَا بَيْنَ السَّمَاوَاتِ وَالأَرْضِ وَالصَّلاةُ نُورٌ وَالصَّدَقَةُ بُرْهَانٌ وَالصَّبْرُ ضِيَاءٌ وَالْقُرْآنُ حُجَّةٌ لَكَ أَوْ عَلَيْكَ كُلُّ النَّاسِ يَغْدُو فَبَايِعٌ نَفْسَهُ فَمُعْتِقُهَا أَوْ مُوبِقُهَا )رواه مسليم:328)
Dari Abu Malik al-as'ari berkata, Rasulullah saw. Bersabda, “Bersuci itu sebagian dari iman, membaca alhamdulillah adalah memenuhi timbangan amal, membaca subhanallah wal hamdulillah adalah memenuhi seisi langit dan bumi, salat sunah adalah cahaya, sedekah adalah petunjuk, sabar adalah sinar yang memancar, dan Al-Qur'an adalah hujjah (argumen) dalam pembicaraanmu. Setiap manusia pada waktu pagi hari, hakekatnya harus memperjual belikan dirinya. Ada kalanya ia laba (selamat dari maksiat) dan ada kalanya rugi (terseret maksiat) (H.R. Muslim: 328).
HADIS 2
إِنَّ اللَّهَ تَعَالى طَيِّبٌ يُحِبُّ الطَّيِّبَ نَظِيفٌ يُحِبُّ النَّظَافَةَ كَرِيمٌ يُحِبُّ الْكَرَمَ جَوَادٌ يُحِبُّ الْجُودَ فَنَظِّفُوا أَفْنِيَتَكُمْ (رواه التيرمدى: 2723)
HADIS 3
Artinya:
Sesungguhnya Allah swt. Itu baik, Dia menyukai kebaikan. Allah itu bersih, Dia menyukai kebersihan. Allah itu mulia, Dia menyukai kemuliaan. Allah itu dermawan ia menyukai kedermawanan maka bersihkanlah olehmu tempat-tempatmu. (H.R. at –Tirmizi: 2723)
HADIS 4
عَنْ أَبِي سَعِيدٍ قَالَ قَالَ رَسُولُ اللَّهِ صَلَّى اللَّهم عَلَيْهِ وَسَلَّمَ مِفْتَاحُ الصَّلاةِ الطُّهُورُ (رواه التيرمدى: 221)
Artinya:
Dari Abu Sa'id berkata, Rasulullah saw. Bersabda, “Kunci dari salat adalah bersuci.” (H.R. at-Tirmizi: 221).
HADIS 5
اَلْاِسْلَامُ نَطِـيْفٌ فَتَـنَطَفُوْا فَاِنَـهُ لايَدْخُلُ الْجَنَـةَ اِلانَطِيْفٌ (رواه البيهقى)
Artinya:
Islam itu adalah bersih, maka jadilah kalian orang yang bersih. Sesungguhnya tidak masuk surga kecuali orang-orang yang bersih (H.R. Baihaqi)
Sumber Klik Disini
Iman kepada Hari Akhir
Artinya : “Sesungguhnya hari kiamat itu pastilah datang, tidak ada keraguan padanya dan bahwasanya Allah membangkitkan semua orang di dalam kubur” (QS Al-Hajj: 7)
Kejadian mengenai hari kiamat digambarkan oleh Allah SWT begitu dahsyat, sebagaimana tertuang dalam surah Al Qariah dan surat Az Zalzalah berikut.
Artinya : “Pada hari itu manusia seperti anai-anai yang bertebaran dan gunung-gunung seperti bulu yang dihambur-hamburkan.”
Artinya : “Apabila bumi digoncangkan dengan goncangannya (yang dahsyat), dan bumi telah mengeluarkan beban-beban berat (yang dikandung) nya,”
Nama-nama lain hari kiamat.
1. Alam Barzah (Yaumul Barzah)
Alam barzah yang dikenal dengan alam kubur yang merupakan permulaan pintu gerbang menuju akhirat atau batas antara alam dunia dengan alam akhirat.
2. Yaumul Ba’as
Yaumul ba’as adalah hari dibangkitkannya manusia dari alam kubur menuju ke padang mahsyar setelah ditiupkan sangkakala yang kedua oleh malaikat Israfil.
3. Yaumul Mahsyar
Yaumul Mahsyar adalah saat dikumpulkannya seluruh manusia yang dibangkitan tadi di sebuah padang yang sangat luas bernama padang Mahsyar.
4. Yaumul Mizan / Hisab
Arti kata mizan adalah timbangan, sedangkan hisab artinya perhitungan. Dua istilah ini sangat mirip maknanya sehingga antara yaumul mizan dan yaumul hisab sama maknanya.
Fungsi Iman Kepada Hari Kiamat
1. Menjadikan manusia rajin beribadah
2. Mendorong manusia selalu meminta ampun kepada Allah SWT
3. Mendorong manusia untuk berperilaku baik
4. Berusaha menghindari perbuatan dan perilaku yang tidak baik.Sumber Klik Link
Membuat Laporan Bulanan Dengan Crystal Report
Buatlah laporan dengan bentuk seperti gambar di bawah ini dan simpan dengan Lap Jual Bulanan
Buatlah form seperti gambar di bawah ini (jangan lupa menambahkan objek Crystal Report dan ganti nama objeknya dengan CR)
Coding:
Dim Conn As New ADODB.Connection
Dim RSPenjualan As New ADODB.Recordset
Sub Koneksi()
Set Conn = New ADODB.Connection
Set RSPenjualan = New ADODB.Recordset
Conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path
& "\dbjual.mdb"
End Sub
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 2 –
Private Sub Form_Load()
Call Koneksi
RSPenjualan.Open "select distinct tanggal from penjualan order by 1",
Conn
Combo1.Clear
Combo2.Clear
Call Koneksi
RSPenjualan.Open "SELECT DISTINCT MONTH(TANGGAL) AS BULAN FROM
PENJUALAN", Conn
Combo1.Clear
Do While Not RSPenjualan.EOF
Combo1.AddItem RSPenjualan!BULAN
RSPenjualan.MoveNext
Loop
Conn.Close
Call Koneksi
RSPenjualan.Open "SELECT DISTINCT YEAR(TANGGAL) AS TAHUN FROM
PENJUALAN", Conn
Combo2.Clear
Do While Not RSPenjualan.EOF
Combo2.AddItem RSPenjualan!TAHUN
RSPenjualan.MoveNext
Loop
End Sub
Private Sub Combo2_Click()
CR.SelectionFormula = "Month({PENJUALAN.TANGGAL})=" & Val(Combo1) & "
and Year({PENJUALAN.TANGGAL})=" & Val(Combo2)
CR.ReportFileName = App.Path & "\lap jual bulanan.rpt"
CR.RetrieveDataFiles
CR.WindowState = crptMaximized
CR.Action = 1
End SubHasil Laporan :
Catatan :
Cara mengambil data bulan dan tahun… silakan lihat pada pembahasan tentang Pembuatan Laporan Dengan Crystal Report Sebaiknya ketiga laporan ini disatukan saja dalam sebuah form agar kodingnya tidak terpisah-pisah
Contoh form :
Coding :
Private Sub Form_Load()
Call BukaDB
RSPenjualan.Open "Select Distinct Tanggal From Penjualan order By 1",
Conn
RSPenjualan.Requery
Do Until RSPenjualan.EOF
Combo1.AddItem Format(RSPenjualan!Tanggal, "DD-MMM-YYYY")
Combo2.AddItem Format(RSPenjualan!Tanggal, "YYYY ,MM, DD")
Combo3.AddItem Format(RSPenjualan!Tanggal, "YYYY ,MM, DD")
RSPenjualan.MoveNext
Loop
Conn.Close
Call BukaDB
Dim RSTGL As New ADODB.Recordset
RSTGL.Open "select distinct month(Tanggal) as Bulan from Penjualan",
Conn
Do While Not RSTGL.EOF
Combo4.AddItem RSTGL!Bulan & Space(5) & MonthName(RSTGL!Bulan)
RSTGL.MoveNext
Loop
Conn.Close
Call BukaDB
Dim RSTHN As New ADODB.Recordset
RSTHN.Open "select distinct year(Tanggal) as Tahun from Penjualan",
Conn
Do While Not RSTHN.EOF
Combo5.AddItem RSTHN!Tahun
RSTHN.MoveNext
Loop
Conn.Close
End Sub
'Lap Harian
Private Sub combo1_click()
CR.SelectionFormula = "Totext({Penjualan.Tanggal})='" &
CDate(Combo1) & "'"
CR.ReportFileName = App.Path & "\Lap Jual Harian.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
'Lap Mingguan (Tgl Antara)
Private Sub Combo3_Click()
If Combo2 = "" Then
MsgBox "Tanggal awal kosong", , "Informasi"
Combo2.SetFocus
Exit Sub
Else
If Combo3 < Combo2 Or Combo2 > Combo3 Then
MsgBox "Tanggal terbalik"
Combo3.SetFocus
Exit Sub
ElseIf Combo3 = Combo2 Then
MsgBox "pilih tanggal yang berbeda"
Combo3.SetFocus
Exit Sub
End If
End If
CR.SelectionFormula = "{Penjualan.Tanggal} in date (" & Combo2 & ")
to date (" & Combo3 & ")"
CR.ReportFileName = App.Path & "\Lap Jual Mingguan.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
'Lap Bulanan
Private Sub Combo5_Click()
Call BukaDB
RSPenjualan.Open "select * from Penjualan where month(tanggal)='" &
Val(Left(Combo4, 2)) & "' and year(tanggal)='" & (Combo5) & "'", Conn
If RSPenjualan.EOF Then
MsgBox "Data tidak ditemukan"
Exit Sub
Combo4.SetFocus
End If
CR.SelectionFormula = "Month({Penjualan.Tanggal})=" &
Val(Left(Combo4, 2)) & " and Year({Penjualan.Tanggal})=" &
Val(Combo5.Text)
CR.ReportFileName = App.Path & "\Lap Jual Bulanan.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
Sumber :www.konsultasivb.com. Semoga bermanfaat.
Buatlah laporan dengan bentuk seperti gambar di bawah ini dan simpan dengan Lap Jual Bulanan
Buatlah form seperti gambar di bawah ini (jangan lupa menambahkan objek Crystal Report dan ganti nama objeknya dengan CR)
Coding:
Dim Conn As New ADODB.Connection
Dim RSPenjualan As New ADODB.Recordset
Sub Koneksi()
Set Conn = New ADODB.Connection
Set RSPenjualan = New ADODB.Recordset
Conn.Open "provider=microsoft.jet.oledb.4.0;data source = " & App.Path
& "\dbjual.mdb"
End Sub
www.konsultasivb.com
Oleh : Uus Rusmawan Hal - 2 –
Private Sub Form_Load()
Call Koneksi
RSPenjualan.Open "select distinct tanggal from penjualan order by 1",
Conn
Combo1.Clear
Combo2.Clear
Call Koneksi
RSPenjualan.Open "SELECT DISTINCT MONTH(TANGGAL) AS BULAN FROM
PENJUALAN", Conn
Combo1.Clear
Do While Not RSPenjualan.EOF
Combo1.AddItem RSPenjualan!BULAN
RSPenjualan.MoveNext
Loop
Conn.Close
Call Koneksi
RSPenjualan.Open "SELECT DISTINCT YEAR(TANGGAL) AS TAHUN FROM
PENJUALAN", Conn
Combo2.Clear
Do While Not RSPenjualan.EOF
Combo2.AddItem RSPenjualan!TAHUN
RSPenjualan.MoveNext
Loop
End Sub
Private Sub Combo2_Click()
CR.SelectionFormula = "Month({PENJUALAN.TANGGAL})=" & Val(Combo1) & "
and Year({PENJUALAN.TANGGAL})=" & Val(Combo2)
CR.ReportFileName = App.Path & "\lap jual bulanan.rpt"
CR.RetrieveDataFiles
CR.WindowState = crptMaximized
CR.Action = 1
End SubHasil Laporan :
Catatan :
Cara mengambil data bulan dan tahun… silakan lihat pada pembahasan tentang Pembuatan Laporan Dengan Crystal Report Sebaiknya ketiga laporan ini disatukan saja dalam sebuah form agar kodingnya tidak terpisah-pisah
Contoh form :
Coding :
Private Sub Form_Load()
Call BukaDB
RSPenjualan.Open "Select Distinct Tanggal From Penjualan order By 1",
Conn
RSPenjualan.Requery
Do Until RSPenjualan.EOF
Combo1.AddItem Format(RSPenjualan!Tanggal, "DD-MMM-YYYY")
Combo2.AddItem Format(RSPenjualan!Tanggal, "YYYY ,MM, DD")
Combo3.AddItem Format(RSPenjualan!Tanggal, "YYYY ,MM, DD")
RSPenjualan.MoveNext
Loop
Conn.Close
Call BukaDB
Dim RSTGL As New ADODB.Recordset
RSTGL.Open "select distinct month(Tanggal) as Bulan from Penjualan",
Conn
Do While Not RSTGL.EOF
Combo4.AddItem RSTGL!Bulan & Space(5) & MonthName(RSTGL!Bulan)
RSTGL.MoveNext
Loop
Conn.Close
Call BukaDB
Dim RSTHN As New ADODB.Recordset
RSTHN.Open "select distinct year(Tanggal) as Tahun from Penjualan",
Conn
Do While Not RSTHN.EOF
Combo5.AddItem RSTHN!Tahun
RSTHN.MoveNext
Loop
Conn.Close
End Sub
'Lap Harian
Private Sub combo1_click()
CR.SelectionFormula = "Totext({Penjualan.Tanggal})='" &
CDate(Combo1) & "'"
CR.ReportFileName = App.Path & "\Lap Jual Harian.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
'Lap Mingguan (Tgl Antara)
Private Sub Combo3_Click()
If Combo2 = "" Then
MsgBox "Tanggal awal kosong", , "Informasi"
Combo2.SetFocus
Exit Sub
Else
If Combo3 < Combo2 Or Combo2 > Combo3 Then
MsgBox "Tanggal terbalik"
Combo3.SetFocus
Exit Sub
ElseIf Combo3 = Combo2 Then
MsgBox "pilih tanggal yang berbeda"
Combo3.SetFocus
Exit Sub
End If
End If
CR.SelectionFormula = "{Penjualan.Tanggal} in date (" & Combo2 & ")
to date (" & Combo3 & ")"
CR.ReportFileName = App.Path & "\Lap Jual Mingguan.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
'Lap Bulanan
Private Sub Combo5_Click()
Call BukaDB
RSPenjualan.Open "select * from Penjualan where month(tanggal)='" &
Val(Left(Combo4, 2)) & "' and year(tanggal)='" & (Combo5) & "'", Conn
If RSPenjualan.EOF Then
MsgBox "Data tidak ditemukan"
Exit Sub
Combo4.SetFocus
End If
CR.SelectionFormula = "Month({Penjualan.Tanggal})=" &
Val(Left(Combo4, 2)) & " and Year({Penjualan.Tanggal})=" &
Val(Combo5.Text)
CR.ReportFileName = App.Path & "\Lap Jual Bulanan.rpt"
CR.WindowState = crptMaximized
CR.RetrieveDataFiles
CR.Action = 1
End Sub
Sumber :www.konsultasivb.com. Semoga bermanfaat.
Membuat Email di Yahoo
Apa hubungannya membuat email dengan membuat sebuah Blog? Tentu saja ada, karena persyaratan seseorang jika ingin mempunyai Blog, ia harus sudah mempunyai email. Pada kesempatan kali ini, yang kita pakai untuk membuat email adalah Yahoo.com. Di dalam Yahoo.com bukan hanya disediakan layanan email saja, melainkan Yahoo juga merupakan Search Engine yang cukup tersohor.
Berikut ini langkah-langkah untuk membuat email pada Yahoo.com:
1. Buka browser Anda dan kunjungi situs www.yahoo.com.
2. Di sebelah kanan atas, ada tulisan Sign In dan di bawahnya ada Buat Account, pilih Buat Account.
3. Isi Form dengan data yang benar, mulai dari nama, jenis kelamin, tanggal lahir, dan tempat tinggal.
4. Untuk ID Yahoo dan Email, tunggu sampai beberapa ID disarankan, pilih salah satu. Misalnya, tekno_kita@yahoo.com.
5. Untuk kata sandi, Anda harus memakai minimal 8 karakter. Saya menyarankan, kata sandi Anda terdiri atas kombinasi huruf, simbol, atau angka.
6. Untuk dua pertanyaan rahasia, pilihlah pertanyaan yang orang lain tidak mengetahuinya agar akun Anda tidak mudah dibobol orang lain.
7. Isilah huruf Captcha tersebut dengan benar.
8. Pilih Buat Account Saya.
9. Setelah itu, akun Anda memang sudah jadi. Namun, kita perlu mengonfirmasinya terlebih dahulu dengan memilih Lanjutkan.
10. Pilih Mail (di sebelah kiri halaman).
11. Pilih Kotak Masuk, pilih pesan yang bertuliskan selamat datang dari Yahoo.com.
12. Selamat!!!! Account Email yang Anda buat sudah bisa digunakan.
13. Untuk keluar, pilih Sign Out di sebelah kanan atas halaman.
Apa hubungannya membuat email dengan membuat sebuah Blog? Tentu saja ada, karena persyaratan seseorang jika ingin mempunyai Blog, ia harus sudah mempunyai email. Pada kesempatan kali ini, yang kita pakai untuk membuat email adalah Yahoo.com. Di dalam Yahoo.com bukan hanya disediakan layanan email saja, melainkan Yahoo juga merupakan Search Engine yang cukup tersohor.
Berikut ini langkah-langkah untuk membuat email pada Yahoo.com:
1. Buka browser Anda dan kunjungi situs www.yahoo.com.
2. Di sebelah kanan atas, ada tulisan Sign In dan di bawahnya ada Buat Account, pilih Buat Account.
Gambar 1 - Tampilan Sign In pada Yahoo.com.
3. Isi Form dengan data yang benar, mulai dari nama, jenis kelamin, tanggal lahir, dan tempat tinggal.
4. Untuk ID Yahoo dan Email, tunggu sampai beberapa ID disarankan, pilih salah satu. Misalnya, tekno_kita@yahoo.com.
5. Untuk kata sandi, Anda harus memakai minimal 8 karakter. Saya menyarankan, kata sandi Anda terdiri atas kombinasi huruf, simbol, atau angka.
Gambar 2 - Tampilan Form Pendaftaran pada Yahoo.com.
6. Untuk dua pertanyaan rahasia, pilihlah pertanyaan yang orang lain tidak mengetahuinya agar akun Anda tidak mudah dibobol orang lain.
7. Isilah huruf Captcha tersebut dengan benar.
8. Pilih Buat Account Saya.
9. Setelah itu, akun Anda memang sudah jadi. Namun, kita perlu mengonfirmasinya terlebih dahulu dengan memilih Lanjutkan.
10. Pilih Mail (di sebelah kiri halaman).
Gambar 3 - Tampilan pada Yahoo.com.
11. Pilih Kotak Masuk, pilih pesan yang bertuliskan selamat datang dari Yahoo.com.
12. Selamat!!!! Account Email yang Anda buat sudah bisa digunakan.
13. Untuk keluar, pilih Sign Out di sebelah kanan atas halaman.
Gambar 4 - Tampilan Account pada Yahoo.com.
Silahkan coba dan semoga bermanfaat.
