Personal Mag

Welcomed the death

In the morning that was calm, after praying subuh from the mosque loudspeaker canned be heard the announcement about died a resident was 55 years old, the atmosphere was so gripping after the voice from the mosque disappeared. Such was always in happened if a resident died, always it was announced so as to make the heart be trembling.

So close to the death so as almost each kind of time heard and saw the death incident. A process of the escort of a slave appeared before the creator.

Day by day, the month for the sake of the month, the month also changed the year, several last year we were born as the funny baby, we grew into pre-schoolers that annoyed, moved the adolescent finally we grew mature, married, because sunatullah, a stipulation from Allah, together with our time trip became old and afterwards died. We were returned appeared before Allah that created us.


Say: "The Angel of Death, put in charge of you, will (duly) take your souls: then shall ye be brought back to your Lord."
. (Al Quran :As-Sajdah:11)

Such was the picture of our life cycle, but in the living trip, sometimes there are those that could pass the life with the long age, but not there are those that rarely died in the young age even in the age of children, the death came around.

Spoke about the death, we discussed something that was certain that could not be refused, promoted or reversed a second also.
Then the consequences died as his parting effect the life with the body diringgi by the impact of upper responsibility cause and effect of all the action good deeds that were carried out lived in the world.
This responsibility a lot of the humankind that was not ready to welcome the death, in fact tried to run and dodge


"Wherever ye are, death will find you out, even if ye are in towers built up strong and high!" If some good befalls them, they say, "This is from Allah"; but if evil, they say, "This is from thee" (O Prophet). Say: "All things are from Allah." But what hath come to these people, that they fail to understand a single fact?
Al Quran : An-Nisa: 78.

already clear, that we could not avoid the death, but lest because all the ordeals lived this we tried to end the life, by every means. Like the suicide or prayed so that Allah speeds up our death.

Like that was taught by Rasulullah:
“ should not be that wanted died because of the difficulty that was suffered by him. If must carry him out would he was talking enough, “Ya Allah. Continue to bring me back to life while the life was good for me and death of me if the death was good for me “ (HR. Bukhari)

The death that came to arrive arrived without asking permission, without knocking on the door, did not choose the love, and without the command, did not know whichever place became the place the last time breathed.
When arriving during him this our second will be apart from this world, was apart from all that was loved liked or did not like, wanted or did not want goodbye the world. The angel of death was ready to carry out his task of being ready we welcomed the angel of death?
The process illness of the death could not be depicted, because of being sick this one was not attacked also that could treated,. like the Allahs decree in surah Al Qiyamah. 26 – 28

">

After the breath was taken by angel of death, remained at the body was alongside stiff was not powerful, was wept over by people who were loved, was delivered to the neighbouring cemetery and relatives came to pay a condolence call. All gave the prayer.

A place prepared, not the grand and comfortable room, only holes in the land. It was really unfortunate that this body, previously sturdy, previously strong, currently was lain alongside in the land.
Was waiting for responsibility of all the actions that were carried out while living in the world.

Was ready from at this time, because of the death to be ready to pick up at any time, anywhere.

Video Source : YouTube
Thanks to : enfaizul

Table hereunder can assist you to calculate how long you can finish to memorize Al Qur'an for 30 Juz.
On condition that you have to “istiqomah” (always remain to) your memorizing goals every day, Insyaallah you can finish memorizing according to time goals which you determine.




Table Source : Maqdis Bandung, Indonesia

This document was created with the intention of giving you (the future Hafiz Insha’Allah) tips on how to memorize the Holy Qur’an by using Memorize-Quran.com's method. We understand that everybody has their own preferred method of memorization, but Insha’Allah you will be able to benefit from this tutorial.

If you are not a child anymore and are in doubt that you will ever be able to memorize the Glorious Qur’an, do not fret! We will show you how you can take advantage of your memory so you can memorize the Holy Qur’an in no time Insha’Allah!

There are some basic laws of memory that we need to first recognize, they are as follows –

Law of Frequency:

We tend to remember things we experience the most often, rather than those we experience only once in a while. You are much more likely to remember your name or your phone number than the square root of 3.

Law of Recency:

We are more likely to remember things that happened recently than those that happened a long time ago. You can probably remember what you had for dinner yesterday, but not what you ate for dinner two weeks ago today.

Law of Vividness:

We tend to remember the most spectacular or striking impressions rather than those that are more ordinary. You can probably remember what you did on your last birthday, or perhaps the Space Shuttle Challenger explosion, but not what happened on the previous day of those occasions.
Now that we have come face to face with our memory, Insha’Allah it will be easier to bend the rules to achieve the final goal – Hifz-ul-Qur’an!

1) When it comes to the Law of Frequency – the best way to keep the ayahs of the Holy Qur’an inside your memory is to repeat them constantly, especially when you first start to learn a surah. Once you get used to these phases of repetition you will find that even when you are taking a stroll outside or doing other things you will be reciting the surahs to yourself Insha’Allah. We find that the easiest method of learning a surah is -

a) Choose the Surah you would like to memorize.

b) Sit down and listen to the audio recitation 3 times.

c) Follow along with the recitation for 10-20 minutes and repeat along.

d) Repeat steps a through c everyday for seven days.

However, we also find that the best way to memorize an ayah is –

a) Choose the ayah you would like to memorize.

b) Sit down and listen to the recitation 3 times.

c) Follow along with the recitation for 10-15 minutes while repeating.

d) Repeat the ayah whenever you have spare time during the day – Insha’Allah this will ensure that the ayah gets ingrained into your memory.

2) When it comes to the Law of Recency – it is imperative to recite the ayahs (or surahs) that you have recently learned in a constant manner… as we all know, human beings forget quite easily! Allahu Alim, if we continue to recite our ayahs and surahs, Insha’Allah we will not forget.

3) When it comes to the last rule of memorization (Law of Vividness) – Alhamdulillah! This is the least of our troubles, because the Holy Qur’an is the most spectacular, striking and glorious book – what else could be more spectacular than the Word of Allah?

Some people find it difficult to follow along with the Arabic scripture in the Holy Qur’an, for our users who fall into this category, we recommend following along with the transliteration of the Holy Qur’an which can be located here Insha’Allah –

This artikel I take from :
http://www.memorize-quran.com

Pray of Tahajjud were pray sunah that really in recommended, these pray were carried out tonight after getting up from sleeping in solitude, his perpetrators was avoided from praise from the other person, only was sincere from the heart that most in an eye because of searching was willing Allah. Tahajjud needed the sacrifice to get up in the middle of the night, left his comfort slept, left the sweet dream, warm him the blanket, warm him the sweetheart's embrace, then the person who carried out prayers tahajjud by leaving all the enjoyment, showed the height of faith to Allah SWT and the sincerity for performed religious duties. It was so big that the sacrifice of a slave to perform religious duties to the creator so as Allah agreed to appoint his slave to the place that was praised. As the Allahs decree



And pray in the small watches of the morning: (it would be) an additional prayer (or spiritual profit) for thee: soon will thy Lord raise thee to a Station of Praise and Glory!

(Al Quran, Surah Al Israa 79)

Tahajjud was means to be able to contemplation and mused about the creation and Allah's authority, so as to be able to increase the feeling of faith to Allah, to cultivate the love to Allah and to aim at to the road that was straight heading world goodness and the hereafter. If we wanted to get world luck and the hereafter, established Tahajjud pray fully the sincerity.

Allah called His slave to turn on the night by using night time with the valuable good deeds religious duties that is Tahajjud, Allah did not like His Slave that spent time at night by being in vain without the value of religious duties, very sad when a Muslim passed at night with the immoral activity and was full of the sin.

Let's pay attention to would hadist Rasulullah SAW along with: “Our Rabb descended to world sky each night when the night remained at a third of the end, then he ber exciting: anyone who prayed to me then will be granted by me, anyone that ask for then will be given by me. And anyone who requested the pardon then would forgiveness” (HR. Bukhari)

Eminence of Shalat Tahajjud

Much eminence from praying tahajjud, including being explained in one long of Hadist from Umar bin Al Khttab: from Rasulullah SAW said, “ Who carried out prayers in night time and devout undertook him, then Allah honored with nine cases, five in the world and four in akhirat”.

As for five in this world was:
1.Allah was on duty at him from disaster-accident
2.See second-hand obeyed on the face nya
3.Will be liked by slaves that shalih in fact by all humankind.
4.His Word contained hikmah
5.Allah gave him fortune to understanding towards the religion.

As for four in akhirat was
1. Aroused from the grave with the white face and lighting
2. Be easy would for him hisab
3. Be the road above shirat (bridge in akhirat) like lightning snatched
4. Give his book of the good deed note through the right hands on the doomsday day.

Was like this the short analysis concerning Tahajjud prayers, we Hope Allah pardoned all of our sins, gave his blessing for us, Amin.
Wallahualam bissawab.

Reference:
Al Quran
The Power of Tahajjud, Dr. Ahmad Sudirman Abbas
Amalan dan Doa Shalat Malam, Tim MISYKAT

One day the angel Izrail, is called The Angel of Pull out of soul, reported the Prophet Daud A.S., that the Fulan remained six days are still pulled out by his life.
The hour changed the hour, day after day. Through deadline that was sent by Izrail about the Fulan, but in fact the Fulan still continue to the life continued.

Then, asked the Daud Prophet to Izrail concerning this incident. “Why the Fulan is still living continued, in fact you said several previous days his age remained six days more, ya.. Izrail ? Now six days have passed by since you said him to me, what is going on ?
Izrail gave the explanation to the Prophet Daud. “In Fact, I would have pull out his life exact in the day that was said by me to you that. But, afterwards Allah ordered me in order to postpone first that”.
“why was like this, ya Izrail? “

“Since that was said by me to you, the Fulan appeared hard-working put the friendship rope through to your peer him that has been cut off. Therefore, Allah gave the addition during 20 year to him”

This story I take from my friend email

Beberapa hari lagi kita memasuki bulan Ramadhan, bulan yang di muliakan oleh Allah SWT, dan bulan yang ditunggu tunggu oleh umat Islam diseluruh dunia untuk melakukan ibadah puasa.
Puasa bulan Ramadhan termasuk salah satu dari lima rukun islam. Dalam bahasa Arab puasa disebut shiyam atau shaum yang artinya menahan.
Shiyam secara peraturan syara’ berarti menahan makan dan minum dan bersetubuh suami istri dari waktu fajar sampai waktu maghrib, karena menjunung tinggi perintah Allah. Maka setelah nenek moyang kita memeluk Agama Islam kita pakailah kata PUASA menjadi arti shiyam.

Perintah berpuasa telah Allah sabdakan dalam Al Quran Surat Al Baqarah 183-184



Hai orang-orang yang beriman, diwajibkan atas kamu berpuasa sebagaimana diwajibkan atas orang-orang sebelum kamu agar kamu bertakwa,



(yaitu) dalam beberapa hari yang tertentu. Maka barang siapa di antara kamu ada yang sakit atau dalam perjalanan (lalu ia berbuka), maka (wajiblah baginya berpuasa) sebanyak hari yang ditinggalkan itu pada hari-hari yang lain. Dan wajib bagi orang-orang yang berat menjalankannya (jika mereka tidak berpuasa) membayar fidyah, (yaitu): memberi makan seorang miskin. Barang siapa yang dengan kerelaan hati mengerjakan kebajikan, maka itulah yang lebih baik baginya. Dan berpuasa lebih baik bagimu jika kamu mengetahui.


Menurut sahabat Rasulullah yang juga ahli tafsir terkenal Abdullah bin Mas’ud mengatakan, apabila sesuatu ayat telah dimulai dengan panggilan kepada orang yang percaya, sebelum sampai keakhir kita sudah tahu bahwa ayat ini akan mengandung suatu perihal yang penting ataupun suatu larangan yang berat. Sebab Allah Yang Maha Tahu telah memperhitungkan terlebih dahulu bahwa yang bersedia untuk memikul perintah Ilahi itu hanya orang-orang yang beriman. Maka perintah puasa adalah salah satu perintah yang meminta pengorbanan kesenangan diri dan kebiasan tiap hari. Kalau perintah tidak dijatuhkan kepada orang yang beriman tidaklah akan berjalan. Orang yang merasa didalam dirinya ada iman bersedia menunggu, apapun perintah yang akan dipikul itu. Dan bersedia merubah kebiasaannya, menahan nafsunya dan besedia pula bangun diwaktu sahur dan makan diwaktu itu, karena Allah yang memerintahkan. Orang yang beriman tersebut bersedia menahan nafsunya membatasi diri didalam melakukan suatu latihan yang agak berat.

Untuk menyambut Ramadhan, persiapkan diri dan mental dengan baik, perbanyak Isitigfar memohon ampunan Allah, jalin kembali silaturahmi, mohon maaf kepada kedua orang tua, keluarga, kerabat dan seluruh tentangga, sehingga sampai dibulan Ramadhan nanti kita sudah suci dan siap menyambut bulan yang suci ini.

Untuk membalas Ibadah hambaNya, pada bulan Ramadhan Allah melipatkan gandakan pahala, Ada banyak pahala dan Rahmat yang Allah berikan di bulan Ramadhan ini.
Sambutlah bulan ini dengan penuh gembira, beribadahlah dengan ikhlas hanya demi Allah semata dan hanya mengharap Ridha dari Allah semata, perbanyak membaca Al Quran, Shalat malam dan ibadah-ibadah lainnya.

Rasulullah Bersabda dalam sebuah Hadis yang diriwayatkan Abu Hurairah, “Barang siapa yang puasa Ramadhan karena iman dan mengharapkan balasan dari Allah SWT, maka Dia akan mengampuni dosanya yang telah lalu. Dan barang siapa yang bangun malam hari pada bulan Ramadhan untuk melakukan shalat malam, maka Allah akan mengampuni dosanya yang telah lalu dan dosanya yang akan datang”.

Saya dan keluarga melalui Blog saya ini mengucapkan Selamat melaksanakan Ibadah puasa, mohon maaf lahir dan bathin, semoga Allah menerima ibadah puasa kita, dan memberi rahmat kepada kita semua, Amiin ya Allah.

Sebagian materi diambil dari :
-Al Quran
-Tafsir Al Azhar Prof. DR. HAMKA
-Fikih Al-Ashiyam, Yusuf Al Qardhawi

Komisi Perlindungan Anak Indoenesia (KPAI) agar Majelis Ulama Indonesia (MUI) mengeluarkan fatwa diharamkan rokok, MUI menanggapi positif dan akan membahasnya pada pertemuan komisi fatwa MUI dari seluruh provinsi, di Indonesia.

Pada http://news.okezone.com Kak Seto Ketua Komnas Perlindungan Anak itu pun mengimbau hal serupa.

"Kami melarang industri rokok untuk menggunakan keterlibatan anak dan remaja pada iklan rokok," imbaunya.

Menurutnya, perilaku merokok disebabkan karena dibentuk oleh industri rokok yang tidak mendidik melalui iklan-iklan. Selain itu, peraturan daerah (Perda) merokok di Jakarta tidak efektif karena tidak menyentuh aspek emosi.

"Diperlukannya penciptaan syair dan lagu untuk anak tentang bahaya merokok. Anak-anak terlantar menjadi korban terbanyak merokok karena untuk mengalihkan segala penderitaan mereka," tandasnya

Bagaimana menurut anda ?


Sumber : news.okezone.com/index.php/ReadStory/2008/08/12/1/136061">news.okezone.com


Berita senada bisa anda dapatkan dari link :

www.detiknews.com

news.okezone.com

Masjid Raya Habiburrahman

Tema :

SAMBUT RAMADHAN DENGAN MENINGKATKAN INTERAKSI DENGAN AL-QUR’AN

Waktu : 16-17 Agustus 2008
Sabtu 07.00 – Ahad 06.00

Acara :
- Tasmi’ Al-Qur’an 21 Juz
Bersama Ust. Abdul Aziz Abdul Rauf

- Taujih Qur’ani (Ba’da Isya)

- Qiyamul Lail 3 Juz

- Taujih Ba’da Subuh


Tempat : Masjid Raya Habiburrahman
PT. Dirgantara Indonesia
Jl. Pajajaran 154 Bandung

Untuk Santri Tahfid Quran, diharapkan hadir karana acara ini juga merupakan acara khataman al quran menjelang Ramadhan untuk Santri Tahfid Quran.
Di bulan Ramadhan Santri Tahfid Quran beserta masyarakat umum akan memulai shalat Qiyamul Lail dari Juz 1 sampai 30 Juz di akhir Ramadhan.

Berikut beberapa kumpulan doa yang diambil dari Hadist Rasulullah SAW, saya dapat dari seorang teman di Masjid Habiburrahman, saya scan dan semoga bermanfaat buat netter semua, silahkan download dari link ini:
Doa dari hadist

Sumber Gambar : Blog Nurjeehan

PESTA BUKU BANDUNG 2008 berlangsung 30 Juli - 5 Agustus 2008

Pameran buku yang diadakan di Landmark Building dijalan Braga Bandung, dibanjiri oleh "kutu buku" sebutan untuk orang orang yang gemar membaca buku.
Semua stand dibanjiri pengunjung, disela sela hinggar bingar suasana pameran terdengar suara murattal Al Quran diberapa stand yang menjual CD-CD murattal.



Sekilas terlihat bahwa Buku buku bertema islami banyak tersebar di hampir setiap stand, buku buku pelajaran SD,SMP, SMU juga rame dikerumuni oleh pengunjung.

Hari minggu tanggal 4 Agustus 2008 saya mengajak dua putra saya Pascal dan Delphi mengunjungi pameran buku kali ini, niat kami dari rumah mencari buku pelajaran buat Pascal dan Delphi yang sudah memasuki ajaran baru.
Kami berangkat dari rumah jam 10:30 sampai di landmark suasana sudah rame, kami langsung menuju stand Tiga Serangkai dan Erlangga, anakku dengan antusias mencari buku-buku yang mereka butuhkan diantara sesaknya pengunjung, kami tidak menemukan buku yang mereka perlukan disana, kami putuskan hanya berkeliling antar stand, anak anakku betah di stand Elexmedia dan Stand Mizan Publishing, banyak komik dan buku anak-anak disana. Saya tinggalkan meraka antara keramaian untuk shalat ditempat yang disediakan oleh panitia.

Selesai Shalat kami terus keliling akhirnya kami sampai distand yang menjual Al-quran ukuran saku per Juz terbitan timur tengah. Di stand ini juga saya membeli sebuah CD Murratal yang dlantunkan oleh Syaikh Mahir bin Hammad Al-Mu'ayaali.

Kami mampir sebentar Stand Syaamil. Stand ini menurut saya unik selain disain stand yang menarik pemilik stand menyediakan foto gratis bagi pengunjung. Aku sempat isi kuisener dari stand sebagai hadiahnya kami di beri VCD Tahsin untuk anak, Tahsin merupakan metode pembagusan pembacaan Al Quran, Pascal Delphi jadi senang, Sayang kami bertiga tidak berfoto disana.

Di stand ini juga ada Alquran dengan terjemah per kata, Menurut A Nizar Hamid dan Rino, teman saya di masjid Habiburrahman PT. Dirgantara Indonesia Al Quran ini bagus untuk membantu memahami bahasa Al Quran dan membantu menghafal Al-Quran.
Saya ingin membeli, tapi Pascal bilang, “Pak kita beli buku Abang sama Delphi aja dulu”, dia menyebut dirinya Abang, karena dia anak pertama kami, panggilan Abang untuk adik adiknya.
Akhirnya aku putuskan membeli Al-Quran terjemah perkata besok saja.

Al Hasil, dipameran kami tidak menemukan buku pelajaran buat Pascal dan Delphi, kami putuskan untuk ke Gramedia Merdeka saja, tidak terlalu jauh kok dari Landmark Building. Kami tinggalkan suasana yang rame dan sesak di Landmark.

Wah … Delphi udah kehausan, “Pak beli minuman dulu yuk”, “Nanti di Gramedia aja ya, disana ada tempat jual makan dan minuman” jawabku.

Alhamdulilah di Gramedia kami menemukan buku pelajaran buat anakku, mereka juga beli buku Jarimatika, buku praktis berhitung dengan jari.
Mereka tidak lupa beli komik Spongebob dan Ben 10, komik tokoh kartun sekukaan mereka.

Hari ini hampir sampai Ashar kami menjelajahi, dua tempat sarang buku. Capek… pulang yuuk…,

Dalam hati aku berkata akan kembali lagi besok ke Landmark Building untuk membeli Syaamil Al-Quran terjemah perkata type Hijaz.

“Ya Allah semoga Engkau permudah jalanku untuk mengamalkan dan menghafalkan Al Quran dan menjadi sahabat Al Quran, Amiiin”

Tanggal 4 Agustus 2008, aku kembali ke tempat para “kutu buku” berkerumun, kali ini aku tdak keliling lagi langsung ke Stand Syaamil yang unik dan beli Syaamil Al-Quran terjemah perkata type Hijaz, ketika dikasir aku tidak lupa isi anket buat panitia, tiba dibelakangku ada suara, “pak di foto dulu dengan Al-Qurannya, gratis kok…”
“Oke”, jawab ku. Hanya menunggu beberapa menit fotonya langsung jadi.
Nah ini dia fotonya..



Di Stand lain aku membeli buku dari DR. Sa’d Riyadh “Agar anak mencinta dan hafal A-Quran Bagaimana mendidiknya ?”, penerbit ibs

“Ya Allah jadikan anak-anak dan keterunan ku penghafal Al Quran, Lembutkan hatinnya dengan Al Quran, tinggikan ilmunya dengan Al Quran, Bahagiakan hidupnya bersama Al-Quran dan selamatkan mereka dengan Al Quran dan Islam, Amiin”

Aku pulang kerumah, sampai magrib, aku udah ditunggu, karena istriku tahu Aku beli Al quran baru lagi, menambah koleksi ku yang sudah ada.

“Pak mana Al- Qurannya”, Delphi langsung menyambutku, “Sebentar” jawabku sambil mengeluarkan Al Quran dari tas ku dan tak lupa fotonya.
Mendadak suasana jadi rame ketika mereka melihat fotoku “wah.. bapak jadi difoto gratis rupanya, besok kesana lagi yuuk..,” Pascal tiba-tiba teriak.
“Ayuukk rame-rame kesana kan besok hari terakhir.. “ kata istriku meramekan suasana.
“Ipup” Intan anakku yang kecil pun mau ikut sambil memegang Novel Spongebob Delphi yang dibeli kemarin, he..he.. Intan belum bagus bicaranya, umurnya baru 2 tahun.

Ehh.. tunggu dulu, ini mau foto foto atau mau beli buku… , jawabku sambil berlalu dari mereka, Bapak Shalat Magrib dulu ya…

Program Input, Edit, Hapus (Manipulasi data) merupakan program standar yang selalu ada pada saat seorang programmer membuat aplikasi.

Kebisaan membuat program dari zaman Basic, Pascal, clipper, foxpro sampai ke Visual Basic 5 dan Visual Basic 6 yang selalu mengandalkan kode program dalam membangun program, bagi saya masih terbawa bawa ke era Visual yang telah didukung dengan Wizard.

Pada artikel kali ini saya coba memaparkan cara membuat program Input, Edit, Hapus dengan mengambil contoh pengolahan data supplier, hampir 100% saya pakai code program.
Contoh yang dibahas sifatnya sangat dasar sekali, jadi untuk rekan rekan yang sudah sangat berpengalaman dalam pemrograman dimohon saran dan info yang membangun demi kebaikan kemampuan programming dimasa datang.
Untuk rekan pemula mudahan mudahan artikel ini bisa membantu dalam memperdalam pengetahuan programming

Mari kita mulai saja...



Siapkan sebuah database di SQL Server 2005, pada komputer saya servernya saya beri nama ISLAM, dengan nama database GUDANG
Untuk server pembaca silahkan sesuaikan sendiri sesuai keinginan.

Kita lanjutkan
Buat table supplier dengan susunan field seperti gambar berikut :



Sekarang aktifkan Visual Basic.NET 2005 dan buat sebuah project baru namanya juga terserah anda. (saya sendiri memberi nama project ini GUDANG)

Siapkan sebuah Module baru yang berfungsi untuk membuat koneksi kedatabase atau tempat menyimpan fungsi atau prosedur yang kita butuhkan dalam pembuatan program.
Langkah pembuatan module : klik kanan nama project yang ada di Window Solution Explorer, lalu pilih Add --> Module. Secara default VB akan memberi nama Module1.


berikut ini gambar Solution Explorer :



Pada jendela Code program Module1 masukkan kode berikut :

Imports System.Data.SqlClient
Module Module1
Public Function Koneksi() As SqlConnection

Dim Conn As New SqlConnection
Conn = New SqlConnection("server=islam; database=gudang; user=sa;password=intan;")
Conn.Open()
Return Conn
End Function
End Module


Sekali lagi untuk nama server, database, user dan password sesuaikan dengan komputer yang anda pakai.


Tahap selanjutnya siapkan form baru dengan contoh disain seperti gambar berikut.



Komponen yang ada pada form terdiri dari 6 Label (text label sesuaikan dengan gambar),

6 Buah Textbox Masing masing diberi nama :

TextKode
TextNama
TextAlamat
TextTelepon
TextKontakPerson
TextEmail

6 Buah Button, masing diberi nama :

ButtonTambah
ButtonSimpan
ButtonHapus
ButtonUpdate
ButtunKeluar
Buttun1 (Loading data)

1 Buah DatagridView dengan nama GridSupplier.



Saatnya Coding…...,


Setelah semua komponen tersusun dalam Form saat kita melakukan coding program.

Pada Menu Bar, pilih menu View  Code

Pada bagian atas ketikan kode berikut untuk meng-import Class Data SQL sehingga kita bisa melakukan koneksi ke database.


Imports System.Data.SqlClient

Selanjutnya pelajari code program berikut baris perbaris sambil memperhatikan komentar kode program yang saya sisipkan pada setiap prosedur.
Kode komentar selalu diawali dengan tanda kutip satu (‘)



Public Class Supplier

‘ Siapkan variabel keneksi
Dim koneksi = Module1.Koneksi


‘Prosedur load form (aktifkan denfan double klik pada form)
Private Sub Supplier_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

‘ panggil prosedur PanggilData
PanggilData()
ButtonSimpan.Enabled = False
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False
End Sub


‘Prosedur membuat datagridview memiliki warna Alternate
Sub GridBerwarna()
With Me.GridSupplier
.RowsDefaultCellStyle.BackColor = Color.BlanchedAlmond
.AlternatingRowsDefaultCellStyle.BackColor = Color.Azure
End With
End Sub


‘ Prosedur panggildata
Sub PanggilData()
Dim Adapter As New SqlDataAdapter("select * from supplier", Module1.Koneksi)
Dim dt As New DataTable("Supplier")
Adapter.Fill(dt)
GridSupplier.DataSource = dt
Call GridBerwarna()
End Sub

‘Prosedur Form kosong (berfungsi untuk mengosongkan TetxBox dangan pengaturan focus)

Sub FormKosong()
TextKode.Text = ""
TextNama.Text = ""
TextAlamat.Text = ""
TextTelepon.Text = ""
TextKontakPerson.Text = ""
TextEmail.Text = ""
TextKode.Focus()
End Sub

‘Prosedur mengaktifkan TextBox
Sub FormHidup()
TextKode.Enabled = True
TextNama.Enabled = True
TextAlamat.Enabled = True
TextTelepon.Enabled = True
TextKontakPerson.Enabled = True
TextEmail.Enabled = True
End Sub


‘Prosedure Mengatur Button dan Textbox
Sub FormNormal()
Call FormKosong()
ButtonTambah.Enabled = True
ButtonHapus.Enabled = False
ButtonSimpan.Enabled = False
ButtonKeluar.Text = "&Keluar"
End Sub


‘Prosedur untuk tambah data
Private Sub ButtonTambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonTambah.Click
Call FormHidup()
Call FormKosong()
Call PanggilData()
ButtonSimpan.Enabled = True
ButtonTambah.Enabled = False
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False
ButtonKeluar.Text = "&Normal"
TextKode.Focus()
End Sub

‘Prosedur untuk simpan data
Private Sub ButtonSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonSimpan.Click

Dim Sql As String = String.Empty

'Cek Kode
‘Uji data apakah textKode tidak kosong

If TextKode.Text <> "" Then
'Jika tidak kosong tambahkan data

Sql = "INSERT INTO Supplier(KodeSupplier,NamaSupplier,AlamatSupplier,Telepon,KontakPerson,email)" _
& " VALUES ('" & TextKode.Text & "','" & TextNama.Text & "', '" & TextAlamat.Text & "', '" _
& TextTelepon.Text & "', '" & TextKontakPerson.Text & "', '" & TextEmail.Text & "')"

‘ Periksa hati-hati tanda kutip untuk setiap variabel, salah ketik mengakibatkan query anda tidak akan terbaca.


‘ Persiapan execusi Query Insert

Dim command As New SqlCommand(Sql, Module1.Koneksi)
command.ExecuteNonQuery()
Module1.Koneksi.Close()

‘ sampaikan pesan bahwa data telah tersimpan.

MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah disimpan", "Simpan data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

‘ sampaikan juga pesan jika penyimpanan gagal.

Else
MessageBox.Show("Isikan dulu data", "Simpan Gagal", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextKode.Focus()
End If

‘ Panggil prosedur FormKosong dan prosedur panggil data.


Call FormKosong()
Call PanggilData()
End Sub



‘ ini prosedur untuk mengganti tab jadi enter dan prosedur untuk mencari apakah data pada text kode sudah pernah ada atau belum untuk menghindari redudansi data.

Private Sub TextKode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextKode.KeyPress
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If

'buat koneksi untuk pencarian data yang sudah ada

Dim Adapter As New SqlDataAdapter("SELECT * from Supplier where KodeSupplier = '" _
& TextKode.Text & "'", Module1.Koneksi)
Dim dt As New DataTable("Supplier")
Adapter.Fill(dt)

'Jika data yang dicari ada
If dt.Rows.Count <> 0 Then

MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah ada, inputkan data lain", "Ditemukan data yang sama", MessageBoxButtons.OK, MessageBoxIcon.Information)
TextKode.Text = " "

End If
GridSupplier.DataSource = dt
End Sub

‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextNama_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextNama.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextAlamat_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextAlamat.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub

‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextTelepon_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextTelepon.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextKontakPerson_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextKontakPerson.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘ ini prosedur untuk mengganti tab jadi enter
Private Sub TextEmail_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextEmail.KeyPress
'tab to enter
If e.KeyChar = Chr(Keys.Enter) Then
'mengirim key tab
SendKeys.Send("{tab}")
End If
End Sub


‘prosedur untuk menghapus data
Private Sub ButtonHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonHapus.Click

If GridSupplier.CurrentRow.Index > -1 Then

Dim Sql As String = String.Empty

Sql = "Delete from Supplier where KodeSupplier = '" & TextKode.Text & "'"

Dim command As New SqlCommand(Sql, Module1.Koneksi)
command.ExecuteNonQuery()
Module1.Koneksi.Close()

MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah dihapus", "Penghapusan Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call FormKosong()

Call PanggilData()
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False
Else
MessageBox.Show("Pilih dulu data yang akan dihapus", "Tidak ada data yang akan dihapus", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
End Sub


‘prosedur untuk Update data

Private Sub ButtonUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonUpdate.Click

Dim Sql As String = String.Empty
'Cek Kode

'Update
Sql = "UPDATE Supplier SET KodeSupplier= '" & TextKode.Text & "'," _
& "NamaSupplier='" & TextNama.Text & "',AlamatSupplier = '" & TextAlamat.Text & "'," _
& "Telepon='" & TextTelepon.Text & "',KontakPerson = '" & TextKontakPerson.Text & "'," _
& "email = '" & TextEmail.Text & "' WHERE kodeSupplier = '" & TextKode.Text & "'"


Dim command As New SqlCommand(Sql, Module1.Koneksi)

command.ExecuteNonQuery()
Module1.Koneksi.Close()
MessageBox.Show("Data dengan kode " & TextKode.Text & " Sudah diupdate", "Update data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)


Call FormKosong()
Call PanggilData()
ButtonHapus.Enabled = False
ButtonUpdate.Enabled = False

End Sub

'Prosedur untuk buttonkeluar(keluar program)
Private Sub ButtonKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ButtonKeluar.Click
If ButtonKeluar.Text = "&Keluar" Then
Me.Close()
Else
Call FormNormal()
End If
End Sub


‘prosedur untuk loading data ke dataqridview (refresh data, setelah dilakukan query

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


‘ini prosedur yang sangat berperan,karena prosedure ini akan membuat setiap cel yang kita klik pada DatagridView, maka isi dari setiap field akan dikirim kedalam textbox, sehingga kita dapat melakukan manipulasi data.
Prosedure ini mirip dengan Binding manager, Insyallah akan kita bahas pada artikel berikutnya.

Private Sub GridSupplier_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles GridSupplier.CellClick

Dim i As Integer
i = GridSupplier.CurrentRow.Index
TextKode.Text = GridSupplier.Item(0, i).Value
TextNama.Text = GridSupplier.Item(1, i).Value
TextAlamat.Text = GridSupplier.Item(2, i).Value
TextTelepon.Text = GridSupplier.Item(3, i).Value
TextKontakPerson.Text = GridSupplier.Item(4, i).Value
TextEmail.Text = GridSupplier.Item(5, i).Value
ButtonHapus.Enabled = True
ButtonUpdate.Enabled = True

End Sub

End Class




Sampai disini dulu artikel tentang Program input dan edit data dengan VB.NET 2005 dan SQL Server 2005, semoga menjadi ilmu yang bermanfaat. Saya sangat mengharapkan saran komentar anda, sehingga membuat ilmu pengetahuan berkembang, Salam programming

@pri

Penghujung Juli 2008, Sarijadi, Bandung

MASJID RAYA HABIBURRAHMAN PT. DIRGANTARA INDONESIA, BANDUNG


MASJID RAYA HABIBURRAHMAN salah satu masjid di Bandung yang rutin mengadakan MABIT pada minggu ke III setiap bulan, tema yang diusung beragam dan dalam ruang lingkup kajian Al Qur’an.
Ini merupakan cirikhas dari MASJID RAYA HABIBURRAHMAN selalu mengusung tema Al Qur’an karena masjid ini juga merupakan tempat berkumpulnya Santri Tahfidz Qur’an (STQ) dalam rangka menyelesaikan hafalan Al Qur’an dan menimba ilmu seputar islam dan Al Qur’an, di Masjid ini juga setiap malam minggu diadakan Qiyamu Lail 1 juz /malam bersama Santri Tahfizd Qur’an MASJID RAYA HABIBURRAHMAN.

MABIT Bulan ini mengangkat tema :


Antara Da’wah, Ma’isyah dan A’isyah….
Bagaimana Al Quran memandangnya ..??

Ikuti kajiannya bersama :

Ust. Thoriq Hidayat, Lc
KH. Abdul Aziz Abdul Rauf, Lc., Al-Hafidz.

Sabtu 19 Juli 2008 – Ahad 20 Juli 2008

Agenda :
1. Kajian Tafsir
2. Taujih Qur’ani
3. Qiyamu Lail (3 Juz/Malam)
4. Taujih Ba’dah Shubuh


Khusus untuk santri STQ MASJID RAYA HABIBURRAHMAN, kehadiran Antum sekalian sangat di tunggu sebagai tuan rumah. Malam ini juga dimulai pelajaran baru diawal semester untuk semua santri.

Kuku, boleh dibilang “asesoris” yang indah di anugerahkan oleh Allah untuk makhluk khususya manusia. Disain kuku yang indah dan sempurna membuat penampilan semakin menarik.
Untuk mendapatkan kuku yang indah dan bersih diperlukan perawatan khusus, bahkan saat ini sudah ada tempat khusus untuk perawatan kuku.

Namun dalam tulisan ini saya tidak mengulas dimana tempat perawatan kuku yang bagus, cukup dengan bebarapa tips berikut anda bisa melakukan perawatan kuku sendiri dirumah. Terutama bagi ibu-ibu atau remaja putri yang ingin memiliki kuku kaki dan tangan yang bersih dan sehat.

Awal saya ingin melakukan perawatan kuku ini ketika saya pulang kerja saya lihat anak laki-laki saya Muhammad Pascal Prima dan Muhammad Arsy Prima, pulang bermain dengan kawan-kawannya diluar rumah. Saya perhatikan kaki mereka sangat kotor terutama kuku, saya ingat saya pernah membaca artikel tentang kebesihan kuku disebuah majalah wanita, saya lupa nama majalahnya… karena majalah itu saya baca sekitar tahun 1986, majalah itu milik Armahumah ibunda Nur’ain.

Semenjak membaca artikel itu saya selalu mempraktekkan tips yang ada pada artikel majalah tersebut.

Berikut langkah langkah pembersihan kuku.

Bahan dan Alat:

1. Pemotong kuku
2. Baskom kecil
3. Jeruk nipis 3 buah
4. Sikat gigi bekas
5. Pisau dapur


Pmbersihan

1. Potong dulu kuku yang akan dibersihkan
2. Siapkan air secukupnya lalu panaskan sampai suam-suam kuku. (jangan sampai mendidih.. lho….  )
3. Masukkan air yang sudah dipanaskan kedalam baskom
4. Iris iris jerusk nipis lalu peras dalam baskom yang berisi air hangat.

Setelah langkah diatas, rendam kaki anda sekitar 3 sampai 5 menit dalam air hangat yang sudah campur dengan air jeruk nipis, sambil kaki anda direndam usahakan untuk membersihkan kuku anda dengan sikat gigi bekas yang sudah disiapkan, sekali sikat juga dengan kulit jeruk nipis yang ada dalam baskom.
Pada saat kaki anda dalam baskom anda bisa memanjakan kaki anda dengan memijit dengan lembut telapak dan seluruh bagian kaki anda sebagai relaksasi.
Setelah selesai, anda bisa perhatikan kuku anda atau kuku orang-orang kesayangan anda tampak bersih… sekarang saat pemberishan badan total.. Mandi dong …

Selamat mencoba.

sumber gambar : www.kapanlagi.com