<?xml version="1.0" encoding="UTF-8"?>
<rss version="2.0"
	xmlns:content="http://purl.org/rss/1.0/modules/content/"
	xmlns:wfw="http://wellformedweb.org/CommentAPI/"
	xmlns:dc="http://purl.org/dc/elements/1.1/"
	xmlns:atom="http://www.w3.org/2005/Atom"
	xmlns:sy="http://purl.org/rss/1.0/modules/syndication/"
	xmlns:slash="http://purl.org/rss/1.0/modules/slash/"
	xmlns:georss="http://www.georss.org/georss" xmlns:geo="http://www.w3.org/2003/01/geo/wgs84_pos#" xmlns:media="http://search.yahoo.com/mrss/"
	>

<channel>
	<title>Birunya Rinduku web's</title>
	<atom:link href="http://aprijunaidi.wordpress.com/feed/" rel="self" type="application/rss+xml" />
	<link>http://aprijunaidi.wordpress.com</link>
	<description>Ketika cahaya Al-Quran membelaiku</description>
	<lastBuildDate>Wed, 15 Oct 2008 02:44:15 +0000</lastBuildDate>
	<language>id</language>
	<sy:updatePeriod>hourly</sy:updatePeriod>
	<sy:updateFrequency>1</sy:updateFrequency>
	<generator>http://wordpress.com/</generator>
<cloud domain='aprijunaidi.wordpress.com' port='80' path='/?rsscloud=notify' registerProcedure='' protocol='http-post' />
<image>
		<url>http://s2.wp.com/i/buttonw-com.png</url>
		<title>Birunya Rinduku web's</title>
		<link>http://aprijunaidi.wordpress.com</link>
	</image>
	<atom:link rel="search" type="application/opensearchdescription+xml" href="http://aprijunaidi.wordpress.com/osd.xml" title="Birunya Rinduku web&#039;s" />
	<atom:link rel='hub' href='http://aprijunaidi.wordpress.com/?pushpress=hub'/>
		<item>
		<title>Resep Membuat Rendang (Sumatera Barat,Indonesia)</title>
		<link>http://aprijunaidi.wordpress.com/2008/09/09/resep-membuat-rendang-sumatera-baratindonesia/</link>
		<comments>http://aprijunaidi.wordpress.com/2008/09/09/resep-membuat-rendang-sumatera-baratindonesia/#comments</comments>
		<pubDate>Tue, 09 Sep 2008 03:11:58 +0000</pubDate>
		<dc:creator>aprijunaidi</dc:creator>
				<category><![CDATA[Masakan]]></category>
		<category><![CDATA[Masakan Padang]]></category>

		<guid isPermaLink="false">http://aprijunaidi.wordpress.com/?p=58</guid>
		<description><![CDATA[Sebentar lagi lebaran, disuasana ini setiap keluarga berbenah dan bergembira menyambut hari berbahagia tersebut. Diantaranya dengan menyiapkan aneka macam masakan untuk keluarga dan kerabat. untuk melengkapi keceriaan dalam keluarga, lewat blog ini saya hadirkan resep membuat masakan Padang yaitu Rendang. selamat mempelajari. Bahan : 1 kg Daging sapi (potong kecil-kecil) Kelapa 2 butir Bawang secukupnya [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=58&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p><a href="http://aprijunaidi.files.wordpress.com/2008/09/rendang.jpg"><img class="alignleft size-full wp-image-59" title="rendang" src="http://aprijunaidi.files.wordpress.com/2008/09/rendang.jpg?w=136&#038;h=102" alt="" width="136" height="102" /></a>Sebentar lagi lebaran, disuasana ini setiap keluarga berbenah dan bergembira menyambut hari berbahagia tersebut.<br />
Diantaranya dengan menyiapkan aneka macam masakan untuk keluarga dan kerabat.<br />
untuk melengkapi keceriaan dalam keluarga, lewat blog ini saya hadirkan resep membuat masakan Padang yaitu Rendang.<br />
selamat mempelajari.</p>
<p><!--[if gte mso 9]&gt;  Normal 0        MicrosoftInternetExplorer4  &lt;![endif]--><!--[if !mso]&gt;--><span class="mceItemObject"></span>  <!--[endif]--> <!--[if gte mso 10]&gt;-->  <!--[endif]--></p>
<p class="MsoNormal"><strong>Bahan :</strong></p>
<ol style="margin-top:0;" type="1">
<li class="MsoNormal">1 kg      Daging sapi (potong kecil-kecil)</li>
<li class="MsoNormal">Kelapa      2 butir</li>
<li class="MsoNormal">Bawang      secukupnya</li>
<li class="MsoNormal">Pala</li>
<li class="MsoNormal">Dasun      Tongga (kerdamunggu)</li>
<li class="MsoNormal">Daun      Kunyit 3 lembar</li>
<li class="MsoNormal">Serai      10 centimeter, memarkan</li>
<li class="MsoNormal">Daun      salam 4 lembar</li>
<li class="MsoNormal">Cabe 1      ons (atau secukupnya)</li>
</ol>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;"><strong>Membuat Bumbu :</strong></p>
<ol>
<li>Parut      kelapa.</li>
<li>Kelapa      yang diparut pisahkan satu genggam atau beberapa gram untuk di Oseng.</li>
<li>Oseng      kelapa sampai kekuning kuningan dan berbau harum.</li>
<li>Kelapa      yang di oseng dihaluskan sampai keluar minyak dan encer(digiling pada batu gilingan jangan      diblender untuk mendapatkan cita rasa yang khas Sumatera Barat). Setelah      halus pisahkan dalam mangkok.</li>
<li>Sisa      kelapa yang lain di peras, pisahkan antara santan kental dan encer.</li>
<li>Giling      cabe, kira-kira cabe hampir halus giling juga bawang, pala, dasun tongga      sampai halus. Setelah halus pisahkan dulu dalam mangkok.</li>
</ol>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;"><strong>Mulai memasak :</strong></p>
<p class="MsoNormal" style="margin-left:0.25in;">Siapkan semua bumbu didalam kuali, masukkan daging, Aduk sampai rata.</p>
<p class="MsoNormal" style="margin-left:0.25in;">Setelah daging dan bumbu<span> </span>bersatu, tambahkan santan kental,dan masak pada api yang sedang.</p>
<p class="MsoNormal" style="margin-left:0.25in;">Aduk terus kuah jangan sampai pecah. Setelah mendidih tambahkan santan encer sisanya.</p>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">Aduk terus sampai berminyak, sampai tahap ini rendang sudah siap untuk disajikan layaknya gulai pada masakan padang yang lain.</p>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">Pada rendang ada cirikhasnya yaitu dengan warna yang coklat kehitam-hitaman, ini akan didapat jika rendang sudah dipanaskan beberapa kali.</p>
<p class="MsoNormal" style="margin-left:0.25in;"><span> </span></p>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">Estimasi lama memasak : 2 jam.</p>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">Selamat mencoba dan,</p>
<p class="MsoNormal" style="margin-left:0.25in;">Jangan lupa ngajak-ngajak makannya kalau udah matang</p>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">Resep masakan ini bisa juga dilihat<span> </span>di Blog Apri yang lain :</p>
<p class="MsoNormal" style="margin-left:0.25in;"><a href="../"></a></p>
<p class="MsoNormal" style="margin-left:0.25in;"><a href="http://cooking-enjoy.blogspot.com/">http://cooking-enjoy.blogspot.com</a></p>
<p class="MsoNormal" style="margin-left:0.25in;">Silahkan kunjungi</p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/aprijunaidi.wordpress.com/58/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/aprijunaidi.wordpress.com/58/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/aprijunaidi.wordpress.com/58/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/aprijunaidi.wordpress.com/58/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/aprijunaidi.wordpress.com/58/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/aprijunaidi.wordpress.com/58/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/aprijunaidi.wordpress.com/58/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/aprijunaidi.wordpress.com/58/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/aprijunaidi.wordpress.com/58/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/aprijunaidi.wordpress.com/58/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=58&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://aprijunaidi.wordpress.com/2008/09/09/resep-membuat-rendang-sumatera-baratindonesia/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/86b93093d2bb8b62597cb486efddbf27?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">aprijunaidi</media:title>
		</media:content>

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/09/rendang.jpg" medium="image">
			<media:title type="html">rendang</media:title>
		</media:content>
	</item>
		<item>
		<title>Shalat Tahajjud</title>
		<link>http://aprijunaidi.wordpress.com/2008/09/08/shalat-tahajjud/</link>
		<comments>http://aprijunaidi.wordpress.com/2008/09/08/shalat-tahajjud/#comments</comments>
		<pubDate>Mon, 08 Sep 2008 02:27:43 +0000</pubDate>
		<dc:creator>aprijunaidi</dc:creator>
				<category><![CDATA[Ibadah]]></category>

		<guid isPermaLink="false">http://aprijunaidi.wordpress.com/?p=53</guid>
		<description><![CDATA[Shalat Tahajud merupakan shalat sunah yang sangat di anjurkan, shalat ini dilakukan dimalam hari setelah bangung dari tidur dalam kesendirian, pelakunya terhindar dari pujian dari orang lain, hanya ada ikhlas dari hati yang paling dalam semata karena mencari ridha Allah SWT. Shalat Tahajjud memerlukan pengorbanan untuk bangun ditengah malam, meninggalkan nikmatnya tidur, meninggalkan mimpi yang [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=53&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p class="MsoNormal"><!--[if gte mso 9]&gt;  Normal 0        MicrosoftInternetExplorer4  &lt;![endif]--> <a href="http://aprijunaidi.files.wordpress.com/2008/09/sujud.jpg"><img class="alignnone size-full wp-image-56" title="sujud" src="http://aprijunaidi.files.wordpress.com/2008/09/sujud.jpg?w=114&#038;h=100" alt="" width="114" height="100" /></a><span style="font-size:9pt;font-family:Verdana;">Shalat Tahajud merupakan shalat sunah yang sangat di anjurkan, shalat ini <span> </span>dilakukan dimalam hari setelah bangung dari tidur dalam kesendirian, pelakunya terhindar dari pujian dari orang lain, hanya ada ikhlas dari hati yang paling dalam semata karena mencari ridha Allah SWT. </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Shalat Tahajjud memerlukan pengorbanan untuk bangun ditengah malam, meninggalkan nikmatnya tidur, meninggalkan mimpi yang indah, hangatnya selimut, hangatnya pelukan kekasih, maka orang yang melakukan shalat tahajjud dengan meninggalkan segala kenikmatan, menunjukkan ketinggian keimanan kepada Allan SWT dan ketulusan hati untuik beribadah.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Begitu besar pengorbanan seorang hamba untuk beribadah kepada sang pencipta sehingga Allah berkenan mengangkat hambanya ketempat yang terpuji. Sebagaimana firman Allah</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal" style="text-align:center;" align="center"><!--[if !mso]&gt;-->  <!--[endif]--><!--[if gte mso 9]&gt;  Normal 0        MicrosoftInternetExplorer4  &lt;![endif]--><!--[if !mso]&gt;--><span class="mceItemObject"></span>  <!--[endif]--> <span style="font-size:9pt;font-family:Verdana;color:black;"><br />
</span><a href="http://aprijunaidi.files.wordpress.com/2008/09/al-israa-791.jpg"><img class="alignnone size-medium wp-image-55" title="al-israa-791" src="http://aprijunaidi.files.wordpress.com/2008/09/al-israa-791.jpg?w=466&#038;h=87" alt="" width="466" height="87" /></a><br />
<span style="font-size:9pt;font-family:Verdana;color:black;"><!--[if !supportLineBreakNewLine]--><br />
<!--[endif]--></span></p>
<p class="MsoNormal" style="text-align:center;" align="center"><span style="font-family:&quot;">Dan pada sebahagian malam hari bershalat tahajudlah kamu sebagai suatu ibadah tambahan bagimu: mudah-mudahan Tuhan-mu mengangkat kamu ke tempat yang terpuji.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;color:black;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;color:black;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;color:black;"><span> </span><span> </span>(Al Quran, Surah Al Israa 79)</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;color:black;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Shalat Tahajjud merupakan sarana untuk bisa bertafakur dan merenung tentang ciptaan dan kekuasaan Allah, sehingga dapat menambah rasa keimanan kepada Allah, menumbuh kan kecintaan kepada Allah dan mengarahkan kejalan yang lurus menuju kebaikan dunia dan akhirat. Apabila kita ingin mendapatkan keberuntungan dunia dan akhirat, dirikanlah shalat Thajjud dengan penuh keikhlasan.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Allah SWT menyeru hamba-Nya untuk menghidupkan malam dengan menggunakan waktu malam dengan amalan yang bernilai ibadah yaitu Tahajud, Allah tidak menyukai Hamba-NYa yang menghabiskan waktu malamnya dengan sia-sia tanpa nilai ibadah, menyedihkan sekali bila seorang muslim mengisi malamnya dengan kegiatan maksiat dan penuh dosa.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Mari kita renungkan hadist Rasulullah SAW berikut :</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">“Sesungguhnya Rabb kami turun kelangit dunia setiap malam ketika malam tinggal sepertiga akhir, lalu Ia ber seru : Barangsiapa yang berdoa kepada Ku maka akan ku kabulkan, barangsiapa yang meminta maka akan ku beri. Dan barang siapa yang memohon ampun maka akan kuampuni” (HR. Bukhari)</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Kita ingin doa kita dikabulkan oleh Allah, Dosa kita diampuni, diangkat ketempat yang terpuji ? Sungguh rugi bila kita tidak mengambil kesempatan untuk mendapatkan ampunan,doa yang terkabul,tempat yang terpuji seperti yang telah diuraikan diatas. Lakukanlah Shalat tahajjud dengan ikhlas secara rutin.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Jadikanlah shalat tahajjud sebagai waktu yang spesial untuk mendekatkan diri kepada Allah, memohon dan mengharap, jadikanlah waktu tahajjud mengadukan segala kesulitan hidup dan jadikanlah Shalat tempat bersyukur segala nikmat hidup yang telah Allah berikan, karena pada waktu siang kita sibuk dengan segala urusan dunia sehingga hampir lupa kita untuk menghadapkan wajah kepada Allah. </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:9pt;font-family:Verdana;">Keutamaan Shalat tahjjud</span></strong></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Banyak keutamaan dari Salat tahajjud, diantaranya dijelaskan dalam sebuah hadist panjang dari Umar bin Al Khttab : dari Rasulullah SAW berkata, “ Bagi yang melakukan shalat di waktu malam dan khusuk menjalankannya, maka Allah memuliakan dengan sembilan perkara, </span><span style="font-size:9pt;font-family:Verdana;">lima</span><span style="font-size:9pt;font-family:Verdana;"> di dunia dan empat di akhirat”.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Adapun </span><span style="font-size:9pt;font-family:Verdana;">lima</span><span style="font-size:9pt;font-family:Verdana;"> di dunia tersebut adalah :</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>1.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Allah menjaganya dari bencana-bencana</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>2.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Tampak bekas taat diwajahnya</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>3.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Ia akan disenangi oleh hamba-hamba yang shalih bahkan oleh semua manusia.</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>4.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Kata-katanya mengandung hikmah</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>5.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Allah memberinya rezeki kepahaman terhadap agama.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Adapun empat diakhirat adalah</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>1.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Dibangkitkan dari kubur dengan wajah yang putih dan cemerlang</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>2.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Dimudahkan baginya hisab</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>3.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Berjalan diatas shirat (jembatan diakhirat) laksana kilat (bagai petir menyambar)</span></p>
<p class="MsoNormal" style="margin-left:0.5in;text-indent:-0.25in;"><!--[if !supportLists]--><span style="font-size:9pt;font-family:Verdana;"><span>4.<span style="font-style:normal;font-variant:normal;font-weight:normal;font-size:7pt;line-height:normal;font-family:&quot;"> </span></span></span><!--[endif]--><span style="font-size:9pt;font-family:Verdana;">Diberikan kitab catatan amalnya melalui tangan kanan pada hari kiamat.</span></p>
<p class="MsoNormal" style="margin-left:0.25in;"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal" style="margin-left:0.25in;"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Demikian uraian singkat mengenai Shalat Tahajjud, Semoga Allah SWT mengampuni semua dosa kita, memberi rahmatnya untuk kita, Amin.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Wallahualam bissawab.</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;"> </span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Reference:</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Al Quran</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">The Power of Tahajjud, Dr. Ahmad Sudirman Abbas</span></p>
<p class="MsoNormal"><span style="font-size:9pt;font-family:Verdana;">Amalan dan Doa Shalat Malam, Tim MISYKAT</span></p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/aprijunaidi.wordpress.com/53/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/aprijunaidi.wordpress.com/53/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/aprijunaidi.wordpress.com/53/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/aprijunaidi.wordpress.com/53/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/aprijunaidi.wordpress.com/53/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/aprijunaidi.wordpress.com/53/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/aprijunaidi.wordpress.com/53/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/aprijunaidi.wordpress.com/53/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/aprijunaidi.wordpress.com/53/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/aprijunaidi.wordpress.com/53/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=53&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://aprijunaidi.wordpress.com/2008/09/08/shalat-tahajjud/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/86b93093d2bb8b62597cb486efddbf27?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">aprijunaidi</media:title>
		</media:content>

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/09/sujud.jpg" medium="image">
			<media:title type="html">sujud</media:title>
		</media:content>

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/09/al-israa-791.jpg?w=300" medium="image">
			<media:title type="html">al-israa-791</media:title>
		</media:content>
	</item>
		<item>
		<title>Membuat Program input dan edit data dengan VB.NET 2005 dan SQL Server 2005 (hampir 100% murni coding)</title>
		<link>http://aprijunaidi.wordpress.com/2008/07/24/membuat-program-input-dan-edit-data-dengan-vbnet-2005-dan-sql-server-2005-hampir-100-murni-coding/</link>
		<comments>http://aprijunaidi.wordpress.com/2008/07/24/membuat-program-input-dan-edit-data-dengan-vbnet-2005-dan-sql-server-2005-hampir-100-murni-coding/#comments</comments>
		<pubDate>Thu, 24 Jul 2008 05:05:28 +0000</pubDate>
		<dc:creator>aprijunaidi</dc:creator>
				<category><![CDATA[Programming]]></category>
		<category><![CDATA[ADO]]></category>
		<category><![CDATA[ADO.NET]]></category>
		<category><![CDATA[VB.NET]]></category>

		<guid isPermaLink="false">http://aprijunaidi.wordpress.com/?p=45</guid>
		<description><![CDATA[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 [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=45&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Program Input, Edit, Hapus (Manipulasi data) merupakan program standar yang selalu ada pada saat seorang programmer membuat aplikasi.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Kebisaan membuat program dari zaman Basic, Pascal, clipper, foxpro sampai ke<span> </span>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.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">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.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">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. </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Untuk rekan pemula mudahan mudahan artikel ini bisa membantu dalam memperdalam pengetahuan programming</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Mari kita mulai saja.</span><span id="more-45"></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Siapkan sebuah database di SQL Server 2005, pada komputer saya servernya saya beri nama ISLAM, dengan nama database GUDANG</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Untuk server pembaca silahkan sesuaikan sendiri sesuai keinginan.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Kita lanjutkan</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Buat table supplier dengan susunan field seperti gambar berikut :</span></p>
<p class="MsoNormal"><a href="http://aprijunaidi.files.wordpress.com/2008/07/desaintablesupplier.png"><img class="alignnone size-medium wp-image-49" src="http://aprijunaidi.files.wordpress.com/2008/07/desaintablesupplier.png?w=300&#038;h=178" alt="" width="300" height="178" /></a></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><!--[if gte vml 1]&gt;                    &lt;![endif]--><!--[if !vml]--><!--[endif]--></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Sekarang aktifkan Visual Basic.NET 2005 dan buat sebuah project baru namanya juga terserah anda. (saya sendiri memberi nama project ini GUDANG)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Siapkan sebuah Module baru yang berfungsi untuk membuat koneksi kedatabase atau tempat menyimpan fungsi atau prosedur yang kita butuhkan dalam pembuatan program.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Langkah pembuatan module : klik kanan nama project yang ada di Window Solution Explorer, lalu pilih <strong>Add &#8211;&gt; Module. </strong><span> </span>Secara default VB akan memberi nama Module1.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">berikut ini gambar Solution Explorer :</span></p>
<p class="MsoNormal"><a href="http://aprijunaidi.files.wordpress.com/2008/07/solution-explorer1.png"><img class="alignnone size-medium wp-image-51" src="http://aprijunaidi.files.wordpress.com/2008/07/solution-explorer1.png?w=141&#038;h=300" alt="" width="141" height="300" /></a></p>
<p class="MsoNormal">
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><!--[if gte vml 1]&gt;  &lt;![endif]--><!--[if !vml]--><!--[endif]--></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Pada jendela Code program Module1 masukkan kode berikut :</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Imports</span><span style="font-size:10pt;font-family:&quot;"> System.Data.SqlClient</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Module</span><span style="font-size:10pt;font-family:&quot;"> Module1</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Public</span> <span style="color:blue;">Function</span> Koneksi() <span style="color:blue;">As</span> SqlConnection</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> </span><span style="font-size:10pt;font-family:&quot;">Conn</span><span style="font-size:10pt;font-family:&quot;"> <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlConnection</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span><span style="font-size:10pt;font-family:&quot;">Conn</span><span style="font-size:10pt;font-family:&quot;"> = <span style="color:blue;">New</span> SqlConnection(<span style="color:maroon;">&#8220;server=islam; database=gudang; user=sa;password=intan;&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Conn.Open()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span><span style="color:blue;"><span style="font-size:10pt;font-family:&quot;">Return</span></span><span style="font-size:10pt;font-family:&quot;"> </span><span style="font-size:10pt;font-family:&quot;">Conn</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Function</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">End</span><span style="font-size:10pt;font-family:&quot;"> <span style="color:blue;">Module</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Sekali lagi untuk nama server, database,<span> </span>user dan password sesuaikan dengan komputer yang anda pakai.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Tahap selanjutnya siapkan form baru dengan contoh disain seperti gambar berikut.</span></p>
<p class="MsoNormal"><a href="http://aprijunaidi.files.wordpress.com/2008/07/supplier.png"><img class="alignnone size-medium wp-image-50" src="http://aprijunaidi.files.wordpress.com/2008/07/supplier.png?w=300&#038;h=222" alt="" width="300" height="222" /></a></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><!--[if gte vml 1]&gt;  &lt;![endif]--><!--[if !vml]--><!--[endif]--></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Komponen yang ada pada form terdiri dari 6 Label (text label sesuaikan dengan gambar), </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">6 Buah Textbox Masing masing diberi nama :</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">TextKode</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">TextNama</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">TextAlamat</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">TextTelepon</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">TextKontakPerson</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">TextEmail</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">6 Buah Button, masing diberi nama :</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">ButtonTambah</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">ButtonSimpan</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">ButtonHapus </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">ButtonUpdate</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">ButtunKeluar</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Buttun1 (Loading data)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">1 Buah DatagridView dengan nama <strong>GridSupplier</strong>.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-family:&quot;">Saatnya Coding</span></strong><span style="font-size:10pt;font-family:&quot;">…&#8230;,</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Setelah semua komponen tersusun dalam Form saat kita melakukan coding program.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Pada Menu Bar, pilih menu View </span><span style="font-size:10pt;font-family:Wingdings;"><span>à</span></span><span style="font-size:10pt;font-family:&quot;"> Code</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Pada bagian atas ketikan kode berikut untuk meng-import Class Data SQL sehingga kita bisa melakukan koneksi ke database.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Imports</span><span style="font-size:10pt;font-family:&quot;"> System.Data.SqlClient</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Selanjutnya pelajari code program berikut baris perbaris sambil memperhatikan komentar kode program yang saya sisipkan pada setiap prosedur.</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Kode komentar selalu diawali dengan tanda kutip satu (‘)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Public</span><span style="font-size:10pt;font-family:&quot;"> <span style="color:blue;">Class</span> Supplier</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ Siapkan variabel keneksi</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Dim</span><span style="font-size:10pt;font-family:&quot;"> koneksi = Module1.Koneksi</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘Prosedur load form (aktifkan denfan double klik pada form)</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Private</span><span style="font-size:10pt;font-family:&quot;"> <span style="color:blue;">Sub</span> Supplier_Load(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> <span style="color:blue;">MyBase</span>.Load</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>‘ panggil prosedur PanggilData</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonSimpan.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonHapus.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonUpdate.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"> </span></strong></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"><span> </span>‘Prosedur membuat datagridview<span> </span>memiliki warna Alternate </span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Sub</span> GridBerwarna()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">With</span> <span style="color:blue;">Me</span>.GridSupplier</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>.RowsDefaultCellStyle.BackColor = Color.BlanchedAlmond</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>.AlternatingRowsDefaultCellStyle.BackColor = Color.Azure</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">With</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"><span> </span>‘ Prosedur panggildata</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Sub</span> PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> Adapter <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlDataAdapter(<span style="color:maroon;">&#8220;select * from supplier&#8221;</span>, Module1.Koneksi)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> dt <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable(<span style="color:maroon;">&#8220;Supplier&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Adapter.Fill(dt)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>GridSupplier.DataSource = dt</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> GridBerwarna()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"><span> </span>‘Prosedur Form kosong (berfungsi untuk mengosongkan TetxBox dangan pengaturan focus</span></strong><span style="font-size:10pt;font-family:&quot;">)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Sub</span> FormKosong()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Text = <span style="color:maroon;">&#8220;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextNama.Text = <span style="color:maroon;">&#8220;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextAlamat.Text = <span style="color:maroon;">&#8220;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextTelepon.Text = <span style="color:maroon;">&#8220;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKontakPerson.Text = <span style="color:maroon;">&#8220;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextEmail.Text = <span style="color:maroon;">&#8220;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Focus()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"><span> </span>‘Prosedur mengaktifkan TextBox </span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Sub</span> FormHidup()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextNama.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextAlamat.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextTelepon.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKontakPerson.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextEmail.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong>‘Prosedure Mengatur Button dan Textbox</strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Sub</span> FormNormal()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormKosong()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonTambah.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonHapus.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonSimpan.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonKeluar.Text = <span style="color:maroon;">&#8220;&amp;Keluar&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong>‘Prosedur untuk tambah data</strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> ButtonTambah_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> ButtonTambah.Click</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormHidup()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormKosong()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonSimpan.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonTambah.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonHapus.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonUpdate.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonKeluar.Text = <span style="color:maroon;">&#8220;&amp;Normal&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Focus()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘Prosedur untuk simpan data</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> ButtonSimpan_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> ButtonSimpan.Click</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> Sql <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">String</span>.Empty</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong><span style="color:green;">&#8216;Cek Kode</span></strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong>‘Uji data apakah textKode tidak kosong</strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>If</span><span style="font-size:10pt;font-family:&quot;"> TextKode.Text &lt;&gt; <span style="color:maroon;">&#8220;&#8221;</span> <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"><span> </span>&#8216;Jika tidak kosong tambahkan data</span></strong></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;"> </span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span> </span>Sql = <span style="color:maroon;">&#8220;INSERT INTO Supplier(KodeSupplier,NamaSupplier,AlamatSupplier,Telepon,KontakPerson,email)&#8221;</span> _</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>&amp; <span style="color:maroon;">&#8221; VALUES (&#8216;&#8221;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8220;&#8216;,&#8217;&#8221;</span> &amp; TextNama.Text &amp; <span style="color:maroon;">&#8220;&#8216;, &#8216;&#8221;</span> &amp; TextAlamat.Text &amp; <span style="color:maroon;">&#8220;&#8216;, &#8216;&#8221;</span> _</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>&amp; TextTelepon.Text &amp; <span style="color:maroon;">&#8220;&#8216;, &#8216;&#8221;</span> &amp; TextKontakPerson.Text &amp; <span style="color:maroon;">&#8220;&#8216;, &#8216;&#8221;</span> &amp; TextEmail.Text &amp; <span style="color:maroon;">&#8220;&#8216;)&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ Periksa hati-hati tanda kutip untuk setiap variabel, salah ketik mengakibatkan query anda tidak akan terbaca.</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ Persiapan execusi Query Insert</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Dim</span><span style="font-size:10pt;font-family:&quot;"> command <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlCommand(Sql, Module1.Koneksi)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">command.ExecuteNonQuery()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Module1.Koneksi.Close()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ sampaikan pesan bahwa data telah tersimpan.</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>MessageBox.Show(<span style="color:maroon;">&#8220;Data dengan kode &#8220;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8221; Sudah disimpan&#8221;</span>, <span style="color:maroon;">&#8220;Simpan data Sukses&#8221;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ sampaikan juga pesan jika penyimpanan gagal.</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Else</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>MessageBox.Show(<span style="color:maroon;">&#8220;Isikan dulu data&#8221;</span>, <span style="color:maroon;">&#8220;Simpan Gagal&#8221;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Focus()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ Panggil prosedur FormKosong dan prosedur panggil data.</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormKosong()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ 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.</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> TextKode_KeyPress(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color:blue;">Handles</span> TextKode.KeyPress</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> e.KeyChar = Chr(Keys.Enter) <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong><span style="color:green;">&#8216;mengirim key tab</span></strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>SendKeys.Send(<span style="color:maroon;">&#8220;{tab}&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong><span style="color:green;">&#8216;buat koneksi untuk pencarian data yang sudah ada</span></strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> Adapter <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlDataAdapter(<span style="color:maroon;">&#8220;SELECT * from Supplier where KodeSupplier =<span> </span>&#8216;&#8221;</span> _</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>&amp; TextKode.Text &amp; <span style="color:maroon;">&#8220;&#8216;&#8221;</span>, Module1.Koneksi)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> dt <span style="color:blue;">As</span> <span style="color:blue;">New</span> DataTable(<span style="color:maroon;">&#8220;Supplier&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Adapter.Fill(dt)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><strong><span style="color:green;">&#8216;Jika data yang dicari ada</span></strong></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> dt.Rows.Count &lt;&gt; 0 <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>MessageBox.Show(<span style="color:maroon;">&#8220;Data dengan kode &#8220;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8221; Sudah ada, inputkan data lain&#8221;</span>, <span style="color:maroon;">&#8220;Ditemukan data yang sama&#8221;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Text = <span style="color:maroon;">&#8221; &#8220;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>GridSupplier.DataSource = dt</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ ini prosedur untuk mengganti tab jadi enter</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> TextNama_KeyPress(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color:blue;">Handles</span> TextNama.KeyPress</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;tab to enter</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> e.KeyChar = Chr(Keys.Enter) <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;mengirim key tab</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>SendKeys.Send(<span style="color:maroon;">&#8220;{tab}&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ ini prosedur untuk mengganti tab jadi enter</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> TextAlamat_KeyPress(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color:blue;">Handles</span> TextAlamat.KeyPress</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;tab to enter</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> e.KeyChar = Chr(Keys.Enter) <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;mengirim key tab</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>SendKeys.Send(<span style="color:maroon;">&#8220;{tab}&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ ini prosedur untuk mengganti tab jadi enter</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> TextTelepon_KeyPress(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color:blue;">Handles</span> TextTelepon.KeyPress</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;tab to enter</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> e.KeyChar = Chr(Keys.Enter) <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;mengirim key tab</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>SendKeys.Send(<span style="color:maroon;">&#8220;{tab}&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ ini prosedur untuk mengganti tab jadi enter</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> TextKontakPerson_KeyPress(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color:blue;">Handles</span> TextKontakPerson.KeyPress</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;tab to enter</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> e.KeyChar = Chr(Keys.Enter) <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;mengirim key tab</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>SendKeys.Send(<span style="color:maroon;">&#8220;{tab}&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ ini prosedur untuk mengganti tab jadi enter</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> TextEmail_KeyPress(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color:blue;">Handles</span> TextEmail.KeyPress</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;tab to enter</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> e.KeyChar = Chr(Keys.Enter) <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;mengirim key tab</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>SendKeys.Send(<span style="color:maroon;">&#8220;{tab}&#8221;</span>)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘prosedur untuk menghapus data</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> ButtonHapus_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> ButtonHapus.Click</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> GridSupplier.CurrentRow.Index &gt; -1 <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> Sql <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">String</span>.Empty</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Sql = <span style="color:maroon;">&#8220;Delete from Supplier where KodeSupplier =<span> </span>&#8216;&#8221;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8220;&#8216;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> command <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlCommand(Sql, Module1.Koneksi)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>command.ExecuteNonQuery()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Module1.Koneksi.Close()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>MessageBox.Show(<span style="color:maroon;">&#8220;Data dengan kode &#8220;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8221; Sudah dihapus&#8221;</span>, <span style="color:maroon;">&#8220;Penghapusan Sukses&#8221;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormKosong()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonHapus.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonUpdate.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Else</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>MessageBox.Show(<span style="color:maroon;">&#8220;Pilih dulu data yang akan dihapus&#8221;</span>, <span style="color:maroon;">&#8220;Tidak ada data yang akan dihapus&#8221;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘prosedur untuk Update data</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> ButtonUpdate_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> ButtonUpdate.Click</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> Sql <span style="color:blue;">As</span> <span style="color:blue;">String</span> = <span style="color:blue;">String</span>.Empty</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;Cek Kode</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:green;">&#8216;Update</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Sql = <span style="color:maroon;">&#8220;UPDATE Supplier SET KodeSupplier= &#8216;&#8221;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8220;&#8216;,&#8221;</span> _</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>&amp; <span style="color:maroon;">&#8220;NamaSupplier=&#8217;&#8221;</span> &amp; TextNama.Text &amp; <span style="color:maroon;">&#8220;&#8216;,AlamatSupplier = &#8216;&#8221;</span> &amp; TextAlamat.Text &amp; <span style="color:maroon;">&#8220;&#8216;,&#8221;</span> _</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>&amp; <span style="color:maroon;">&#8220;Telepon=&#8217;&#8221;</span> &amp; TextTelepon.Text &amp; <span style="color:maroon;">&#8220;&#8216;,KontakPerson = &#8216;&#8221;</span> &amp; TextKontakPerson.Text &amp; <span style="color:maroon;">&#8220;&#8216;,&#8221;</span> _</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>&amp; <span style="color:maroon;">&#8220;email = &#8216;&#8221;</span> &amp; TextEmail.Text &amp; <span style="color:maroon;">&#8220;&#8216; WHERE kodeSupplier = &#8216;&#8221;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8220;&#8216;&#8221;</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Dim</span> command <span style="color:blue;">As</span> <span style="color:blue;">New</span> SqlCommand(Sql, Module1.Koneksi)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>command.ExecuteNonQuery()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>Module1.Koneksi.Close()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span> </span>MessageBox.Show(<span style="color:maroon;">&#8220;Data dengan kode &#8220;</span> &amp; TextKode.Text &amp; <span style="color:maroon;">&#8221; Sudah diupdate&#8221;</span>, <span style="color:maroon;">&#8220;Update data Sukses&#8221;</span>, MessageBoxButtons.OK, MessageBoxIcon.Information)</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormKosong()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonHapus.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonUpdate.Enabled = <span style="color:blue;">False</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> ButtonKeluar_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> ButtonKeluar.Click</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">If</span> ButtonKeluar.Text = <span style="color:maroon;">&#8220;&amp;Keluar&#8221;</span> <span style="color:blue;">Then</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Me</span>.Close()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Else</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> FormNormal()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">If</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘prosedur untuk loading data ke dataqridview (refresh data, setelah dilakukan query </span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Private</span> <span style="color:blue;">Sub</span> Button1_Click(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> System.Object, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.EventArgs) <span style="color:blue;">Handles</span> Button1.Click</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">Call</span> PanggilData()</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">‘ini prosedur yang sangat berperan,karena prosedure ini akan membuat setiap baris yang cel yang kita klik pada data grid view, maka isi dari setiap field akan dikirim kedalam textbox, sehingga kita dapat melakukan manipulasi data.</span></strong></p>
<p class="MsoNormal"><strong><span style="font-size:10pt;font-family:&quot;">Prosedure ini mirip dengan Binding manager, Insyallah akan kita bahas pada artikel berikutnya.</span></strong></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Private</span><span style="font-size:10pt;font-family:&quot;"> <span style="color:blue;">Sub</span> GridSupplier_CellClick(<span style="color:blue;">ByVal</span> sender <span style="color:blue;">As</span> <span style="color:blue;">Object</span>, <span style="color:blue;">ByVal</span> e <span style="color:blue;">As</span> System.Windows.Forms.DataGridViewCellEventArgs) <span style="color:blue;">Handles</span> GridSupplier.CellClick</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span> </span><span style="color:blue;">Dim</span> i <span style="color:blue;">As</span> <span style="color:blue;">Integer</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>i = GridSupplier.CurrentRow.Index</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKode.Text = GridSupplier.Item(0, i).Value</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextNama.Text = GridSupplier.Item(1, i).Value</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextAlamat.Text = GridSupplier.Item(2, i).Value</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextTelepon.Text = GridSupplier.Item(3, i).Value</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextKontakPerson.Text = GridSupplier.Item(4, i).Value</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>TextEmail.Text = GridSupplier.Item(5, i).Value</span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonHapus.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span>ButtonUpdate.Enabled = <span style="color:blue;">True</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"><span> </span><span style="color:blue;">End</span> <span style="color:blue;">Sub</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">End</span><span style="font-size:10pt;font-family:&quot;"> <span style="color:blue;">Class</span></span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:10pt;font-family:&quot;">Sampai disini dulu artikel tentang </span><span style="font-size:11pt;font-family:&quot;">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</span></p>
<p class="MsoNormal"><span style="font-size:11pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:11pt;font-family:&quot;">@pri</span></p>
<p class="MsoNormal"><span style="font-size:11pt;font-family:&quot;"> </span></p>
<p class="MsoNormal"><span style="font-size:11pt;font-family:&quot;">Penghujung Juli 2008, Sarijadi, </span><span style="font-size:11pt;font-family:&quot;">Bandung</span></p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/aprijunaidi.wordpress.com/45/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/aprijunaidi.wordpress.com/45/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/aprijunaidi.wordpress.com/45/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/aprijunaidi.wordpress.com/45/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/aprijunaidi.wordpress.com/45/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/aprijunaidi.wordpress.com/45/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/aprijunaidi.wordpress.com/45/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/aprijunaidi.wordpress.com/45/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/aprijunaidi.wordpress.com/45/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/aprijunaidi.wordpress.com/45/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=45&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://aprijunaidi.wordpress.com/2008/07/24/membuat-program-input-dan-edit-data-dengan-vbnet-2005-dan-sql-server-2005-hampir-100-murni-coding/feed/</wfw:commentRss>
		<slash:comments>10</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/86b93093d2bb8b62597cb486efddbf27?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">aprijunaidi</media:title>
		</media:content>

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/07/desaintablesupplier.png?w=300" medium="image" />

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/07/solution-explorer1.png?w=141" medium="image" />

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/07/supplier.png?w=300" medium="image" />
	</item>
		<item>
		<title>UNDANGAN MABIT (TERBUKA UNTUK UMUM)</title>
		<link>http://aprijunaidi.wordpress.com/2008/07/18/undangan-mabit-terbuka-untuk-umum/</link>
		<comments>http://aprijunaidi.wordpress.com/2008/07/18/undangan-mabit-terbuka-untuk-umum/#comments</comments>
		<pubDate>Fri, 18 Jul 2008 01:37:08 +0000</pubDate>
		<dc:creator>aprijunaidi</dc:creator>
				<category><![CDATA[Kegiatan Tahfizd]]></category>
		<category><![CDATA[Kajian Al qur'an]]></category>
		<category><![CDATA[MABIT]]></category>

		<guid isPermaLink="false">http://aprijunaidi.wordpress.com/?p=18</guid>
		<description><![CDATA[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 [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=18&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p><!--[if gte mso 9]&gt;  Normal 0       MicrosoftInternetExplorer4  &lt;![endif]--><!--[if !mso]&gt;--></p>
<p class="MsoNormal"><a href="http://aprijunaidi.files.wordpress.com/2008/07/habiburahman.png"><img class="alignleft size-thumbnail wp-image-37" src="http://aprijunaidi.files.wordpress.com/2008/07/habiburahman.png?w=104&#038;h=96" alt="" width="104" height="96" /></a>MASJID RAYA HABIBURRAHMAN PT. DIRGANTARA INDONESIA, BANDUNG</p>
<p class="MsoNormal">
<p class="MsoNormal">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.</p>
<p class="MsoNormal">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 <span> </span>juga setiap malam minggu<span> </span>diadakan Qiyamu Lail 1 juz /malam bersama Santri Tahfizd Qur’an<span> </span>MASJID RAYA HABIBURRAHMAN.</p>
<p class="MsoNormal">
<p class="MsoNormal"><!--[if gte mso 9]&gt;  Normal 0       MicrosoftInternetExplorer4  &lt;![endif]--></p>
<p class="MsoNormal">MABIT Bulan ini mengangkat tema :</p>
<p class="MsoNormal"><span id="more-18"></span></p>
<p class="MsoNormal"><strong><span style="font-size:16pt;">Antara Da’wah, Ma’isyah dan A’isyah….</span></strong></p>
<p class="MsoNormal"><strong><span style="font-size:16pt;">Bagaimana Al Quran memandangnya ..??</span></strong></p>
<p class="MsoNormal">
<p class="MsoNormal">Ikuti kajiannya bersama :</p>
<p class="MsoNormal">
<p class="MsoNormal"><strong>Ust. Thoriq Hidayat, Lc</strong></p>
<p class="MsoNormal"><strong>KH. Abdul Aziz Abdul Rauf, Lc., Al-Hafidz.</strong></p>
<p class="MsoNormal">
<p class="MsoNormal"><strong>Sabtu 19 Juli 2008 – Ahad 20 Juli 2008</strong></p>
<p class="MsoNormal">
<p class="MsoNormal">Agenda :</p>
<ol style="margin-top:0;" type="1">
<li class="MsoNormal">Kajian      Tafsir</li>
<li class="MsoNormal">Taujih      Qur’ani</li>
<li class="MsoNormal">Qiyamu      Lail (3 Juz/Malam)</li>
<li class="MsoNormal">Taujih      Ba’dah Shubuh</li>
</ol>
<p class="MsoNormal">
<p class="MsoNormal">
<p class="MsoNormal">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.</p>
<p class="MsoNormal">
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/aprijunaidi.wordpress.com/18/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/aprijunaidi.wordpress.com/18/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/aprijunaidi.wordpress.com/18/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/aprijunaidi.wordpress.com/18/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/aprijunaidi.wordpress.com/18/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/aprijunaidi.wordpress.com/18/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/aprijunaidi.wordpress.com/18/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/aprijunaidi.wordpress.com/18/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/aprijunaidi.wordpress.com/18/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/aprijunaidi.wordpress.com/18/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=18&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://aprijunaidi.wordpress.com/2008/07/18/undangan-mabit-terbuka-untuk-umum/feed/</wfw:commentRss>
		<slash:comments>4</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/86b93093d2bb8b62597cb486efddbf27?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">aprijunaidi</media:title>
		</media:content>

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/07/habiburahman.png?w=104" medium="image" />
	</item>
		<item>
		<title>Membersihkan kuku</title>
		<link>http://aprijunaidi.wordpress.com/2008/07/17/membersihkan-kuku/</link>
		<comments>http://aprijunaidi.wordpress.com/2008/07/17/membersihkan-kuku/#comments</comments>
		<pubDate>Thu, 17 Jul 2008 06:09:08 +0000</pubDate>
		<dc:creator>aprijunaidi</dc:creator>
				<category><![CDATA[Kebersihan rumah tangga]]></category>
		<category><![CDATA[kuku]]></category>
		<category><![CDATA[rumah tangga]]></category>

		<guid isPermaLink="false">http://aprijunaidi.wordpress.com/?p=5</guid>
		<description><![CDATA[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 [...]<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=5&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p class="MsoNormal"><a href="http://aprijunaidi.files.wordpress.com/2008/07/kuku1.jpg"><img class="alignnone size-medium wp-image-41" src="http://aprijunaidi.files.wordpress.com/2008/07/kuku1.jpg?w=100&#038;h=106" alt="" width="100" height="106" /></a>Kuku, boleh dibilang “asesoris” yang indah<span> </span>di anugerahkan oleh Allah untuk makhluk khususya manusia. Disain kuku yang indah dan sempurna membuat penampilan semakin menarik.</p>
<p class="MsoNormal">Untuk mendapatkan kuku yang indah dan bersih diperlukan perawatan khusus, bahkan saat ini sudah ada tempat khusus untuk perawatan kuku.</p>
<p class="MsoNormal">
<p class="MsoNormal">Namun dalam tulisan ini saya tidak mengulas dimana tempat perawatan kuku yang bagus, cukup dengan <a href="http://aprijunaidi.files.wordpress.com/2008/07/kuku1.jpg"><span id="more-5"></span></a>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.</p>
<p class="MsoNormal">
<p class="MsoNormal">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 Almarhumah ibunda Nur’ain.</p>
<p class="MsoNormal">
<p class="MsoNormal">Semenjak membaca artikel itu saya selalu mempraktekkan tips yang ada pada artikel majalah tersebut.</p>
<p class="MsoNormal"><span> </span></p>
<p class="MsoNormal">Berikut langkah langkah pembersihan kuku.</p>
<p class="MsoNormal">
<p class="MsoNormal">Bahan dan Alat:</p>
<p class="MsoNormal">
<ol style="margin-top:0;" type="1">
<li class="MsoNormal">Pemotong      kuku</li>
<li class="MsoNormal">Baskom      kecil</li>
<li class="MsoNormal">Jeruk      nipis 3 buah</li>
<li class="MsoNormal">Sikat      gigi bekas</li>
<li class="MsoNormal">Pisau      dapur</li>
</ol>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal">Pmbersihan</p>
<p class="MsoNormal">
<ol style="margin-top:0;" type="1">
<li class="MsoNormal">Potong      dulu kuku yang akan dibersihkan</li>
<li class="MsoNormal">Siapkan      air secukupnya lalu panaskan sampai suam-suam kuku. (jangan sampai      mendidih.. lho…. <span style="font-family:Wingdings;"><span>J</span></span> )</li>
<li class="MsoNormal">Masukkan      air yang sudah dipanaskan kedalam baskom</li>
<li class="MsoNormal">Iris      iris jerusk nipis lalu peras dalam baskom yang berisi air hangat.</li>
</ol>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">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.</p>
<p class="MsoNormal" style="margin-left:0.25in;">Pada saat kaki anda dalam baskom anda bisa memanjakan kaki anda dengan memijit dengan lembut telapak dan seluruh bagian kaki anda sebagai relaksasi.</p>
<p class="MsoNormal" style="margin-left:0.25in;">Setelah selesai, anda bisa perhatikan kuku anda atau kuku orang-orang kesayangan anda tampak bersih… sekarang saat pemberishan badan total.. Mandi dong …</p>
<p class="MsoNormal" style="margin-left:0.25in;">
<p class="MsoNormal" style="margin-left:0.25in;">Selamat mencoba.</p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/aprijunaidi.wordpress.com/5/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/aprijunaidi.wordpress.com/5/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/aprijunaidi.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/aprijunaidi.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/aprijunaidi.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/aprijunaidi.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/aprijunaidi.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/aprijunaidi.wordpress.com/5/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/aprijunaidi.wordpress.com/5/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/aprijunaidi.wordpress.com/5/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=5&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://aprijunaidi.wordpress.com/2008/07/17/membersihkan-kuku/feed/</wfw:commentRss>
		<slash:comments>0</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/86b93093d2bb8b62597cb486efddbf27?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">aprijunaidi</media:title>
		</media:content>

		<media:content url="http://aprijunaidi.files.wordpress.com/2008/07/kuku1.jpg?w=100" medium="image" />
	</item>
		<item>
		<title>Hello world!</title>
		<link>http://aprijunaidi.wordpress.com/2008/07/16/hello-world/</link>
		<comments>http://aprijunaidi.wordpress.com/2008/07/16/hello-world/#comments</comments>
		<pubDate>Wed, 16 Jul 2008 05:02:15 +0000</pubDate>
		<dc:creator>aprijunaidi</dc:creator>
				<category><![CDATA[Uncategorized]]></category>

		<guid isPermaLink="false"></guid>
		<description><![CDATA[Welcome to WordPress.com. This is your first post. Edit or delete it and start blogging!<img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=1&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></description>
			<content:encoded><![CDATA[<p>Welcome to <a href="http://wordpress.com/">WordPress.com</a>. This is your first post. Edit or delete it and start blogging!</p>
<br /><img alt="" border="0" src="http://feeds.wordpress.com/1.0/categories/aprijunaidi.wordpress.com/1/" /> <img alt="" border="0" src="http://feeds.wordpress.com/1.0/tags/aprijunaidi.wordpress.com/1/" /> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gocomments/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/comments/aprijunaidi.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godelicious/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/delicious/aprijunaidi.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gofacebook/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/facebook/aprijunaidi.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gotwitter/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/twitter/aprijunaidi.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/gostumble/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/stumble/aprijunaidi.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/godigg/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/digg/aprijunaidi.wordpress.com/1/" /></a> <a rel="nofollow" href="http://feeds.wordpress.com/1.0/goreddit/aprijunaidi.wordpress.com/1/"><img alt="" border="0" src="http://feeds.wordpress.com/1.0/reddit/aprijunaidi.wordpress.com/1/" /></a> <img alt="" border="0" src="http://stats.wordpress.com/b.gif?host=aprijunaidi.wordpress.com&amp;blog=4238246&amp;post=1&amp;subd=aprijunaidi&amp;ref=&amp;feed=1" width="1" height="1" />]]></content:encoded>
			<wfw:commentRss>http://aprijunaidi.wordpress.com/2008/07/16/hello-world/feed/</wfw:commentRss>
		<slash:comments>1</slash:comments>
	
		<media:content url="http://0.gravatar.com/avatar/86b93093d2bb8b62597cb486efddbf27?s=96&#38;d=identicon&#38;r=G" medium="image">
			<media:title type="html">aprijunaidi</media:title>
		</media:content>
	</item>
	</channel>
</rss>
