tag:blogger.com,1999:blog-58670675311143170212024-03-06T10:52:18.147+07:00Learning Is Nicebetter world by learning and makes you smarter
"the more we share, the more we get, don't afraid to share"Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.comBlogger24125tag:blogger.com,1999:blog-5867067531114317021.post-92064315892918563342011-12-21T20:10:00.001+07:002011-12-21T20:31:42.835+07:00Cara Menggunakan XmartDataLink™ untuk koneksi ke SQL Server<link href="file:///C:%5CUsers%5CBUDIYA%7E1%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_filelist.xml" rel="File-List"></link> <link href="file:///C:%5CUsers%5CBUDIYA%7E1%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_editdata.mso" rel="Edit-Time-Data"></link> <link href="file:///C:%5CUsers%5CBUDIYA%7E1%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_themedata.thmx" rel="themeData"></link> <link href="file:///C:%5CUsers%5CBUDIYA%7E1%5CAppData%5CLocal%5CTemp%5Cmsohtmlclip1%5C01%5Cclip_colorschememapping.xml" rel="colorSchemeMapping"></link> <style>
<!-- /* Font Definitions */ @font-face {font-family:"Cambria Math"; panose-1:2 4 5 3 5 4 6 3 2 4; mso-font-charset:1; mso-generic-font-family:roman; mso-font-format:other; mso-font-pitch:variable; mso-font-signature:0 0 0 0 0 0;} @font-face {font-family:Calibri; panose-1:2 15 5 2 2 2 4 3 2 4; mso-font-charset:0; mso-generic-font-family:swiss; mso-font-pitch:variable; mso-font-signature:-520092929 1073786111 9 0 415 0;} /* Style Definitions */ p.MsoNormal, li.MsoNormal, div.MsoNormal {mso-style-unhide:no; mso-style-qformat:yes; mso-style-parent:""; margin:0cm; margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} p.MsoListParagraph, li.MsoListParagraph, div.MsoListParagraph {mso-style-priority:34; mso-style-unhide:no; mso-style-qformat:yes; margin-top:0cm; margin-right:0cm; margin-bottom:0cm; margin-left:36.0pt; margin-bottom:.0001pt; mso-add-space:auto; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} p.MsoListParagraphCxSpFirst, li.MsoListParagraphCxSpFirst, div.MsoListParagraphCxSpFirst {mso-style-priority:34; mso-style-unhide:no; mso-style-qformat:yes; mso-style-type:export-only; margin-top:0cm; margin-right:0cm; margin-bottom:0cm; margin-left:36.0pt; margin-bottom:.0001pt; mso-add-space:auto; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} p.MsoListParagraphCxSpMiddle, li.MsoListParagraphCxSpMiddle, div.MsoListParagraphCxSpMiddle {mso-style-priority:34; mso-style-unhide:no; mso-style-qformat:yes; mso-style-type:export-only; margin-top:0cm; margin-right:0cm; margin-bottom:0cm; margin-left:36.0pt; margin-bottom:.0001pt; mso-add-space:auto; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} p.MsoListParagraphCxSpLast, li.MsoListParagraphCxSpLast, div.MsoListParagraphCxSpLast {mso-style-priority:34; mso-style-unhide:no; mso-style-qformat:yes; mso-style-type:export-only; margin-top:0cm; margin-right:0cm; margin-bottom:0cm; margin-left:36.0pt; margin-bottom:.0001pt; mso-add-space:auto; mso-pagination:widow-orphan; font-size:11.0pt; font-family:"Calibri","sans-serif"; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} .MsoChpDefault {mso-style-type:export-only; mso-default-props:yes; mso-ascii-font-family:Calibri; mso-ascii-theme-font:minor-latin; mso-fareast-font-family:Calibri; mso-fareast-theme-font:minor-latin; mso-hansi-font-family:Calibri; mso-hansi-theme-font:minor-latin; mso-bidi-font-family:"Times New Roman"; mso-bidi-theme-font:minor-bidi;} @page Section1 {size:21.0cm 842.0pt; margin:72.0pt 72.0pt 72.0pt 72.0pt; mso-header-margin:36.0pt; mso-footer-margin:36.0pt; mso-paper-source:0;} div.Section1 {page:Section1;} /* List Definitions */ @list l0 {mso-list-id:879174074; mso-list-type:hybrid; mso-list-template-ids:-242708306 67698703 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;} @list l0:level1 {mso-level-tab-stop:none; mso-level-number-position:left; text-indent:-18.0pt;} @list l0:level2 {mso-level-number-format:alpha-lower; mso-level-tab-stop:none; mso-level-number-position:left; text-indent:-18.0pt;} @list l1 {mso-list-id:1918175089; mso-list-type:hybrid; mso-list-template-ids:-457698062 67698703 67698713 67698715 67698703 67698713 67698715 67698703 67698713 67698715;} @list l1:level1 {mso-level-tab-stop:none; mso-level-number-position:left; text-indent:-18.0pt;} ol {margin-bottom:0cm;} ul {margin-bottom:0cm;} -->
</style> <br />
<div class="MsoNormal" style="text-align: justify;">
<o:p></o:p>Membuat sebuah aplikasi yang mampu menyimpan data-data tidak terlepas dari <i style="mso-bidi-font-style: normal;">database</i>, terkadang kita membuat aplikasi dimana <i style="mso-bidi-font-style: normal;">database</i>-nya berada di-PC kita sendiri, bagaimana caranya jika aplikasi dan <i style="mso-bidi-font-style: normal;">database</i> yang kita buat ingin dipindahkan ke-PC lainnya? Apakah kita harus membongkar <i style="mso-bidi-font-style: normal;">coding</i> kemudian ubah koneksinya dan di-<i style="mso-bidi-font-style: normal;">compile</i> ulang? Jawabannya TIDAK PERLU, kita dapat membuat sebuah aplikasi kecil untuk melakukan penyimpan "Connection String" baik ke textfile (saya pernah contohkan pada post tahun 2010) ataupun lainnya. Pada kali ini metode yang saya gunakan adalah menyimpan ke "app.config" yang telah disediakan oleh Visual Studio.</div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
Pertanyaan berikutnya, apakah setiap membuat aplikasi baru saya harus membuat form untuk melakukan koneksi? Jawabannya TIDAK, saya telah membuat sebuah .dll (Library) yang bisa digunakan oleh siapapun dan tentunya FREE. </div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
Berikut langkah-langkah menambahkan library.</div>
<div class="MsoListParagraph" style="margin-left: 21.3pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -21.3pt;">
1.<span style="font: 7pt "Times New Roman";"> </span>Tambahkan "Xmart.DataLink.dll" ke project yang Anda buat. Klik kanan pada Project yang Anda buat > Add Reference </div>
<div class="MsoNormal" style="margin-left: 21.3pt; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6reLpJozrvuyGMHrUUHcUKnK4QrlBqh3106b_6GpDetvpcHY5-SaLRFcdPXJLUEAn_-Vt31BcB8chyphenhyphen-VdImcHeWx25KZM9lAaUosh2juknV7EQLp4_GAuzHSkC5Z-qlF1wqlhp0yLkso/s1600/clip_image002-751168.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5688568442036409122" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6reLpJozrvuyGMHrUUHcUKnK4QrlBqh3106b_6GpDetvpcHY5-SaLRFcdPXJLUEAn_-Vt31BcB8chyphenhyphen-VdImcHeWx25KZM9lAaUosh2juknV7EQLp4_GAuzHSkC5Z-qlF1wqlhp0yLkso/s320/clip_image002-751168.jpg" /></a></div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 21.3pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -21.3pt;">
2.<span style="font: 7pt "Times New Roman";"> </span>Pilih tab Browse > Cari lokasi tempat Anda menyimpan file "Xmart.DataLink.dll" > klik OK</div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7u5bKBjS3Mta8FTjcT1NqlI32DNU8qJGVQZcjf6VeCkySby3ATclpsPYeyoarsPl2hgubSSH63Gjy1L4sfUA5kYBCtSdh7K3pbE4Bc-tpQuAjuYmN3Rm_MgYq7ztAvnk5TlTgZ2ikIpQ/s1600/clip_image004-752540.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5688568445396212482" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7u5bKBjS3Mta8FTjcT1NqlI32DNU8qJGVQZcjf6VeCkySby3ATclpsPYeyoarsPl2hgubSSH63Gjy1L4sfUA5kYBCtSdh7K3pbE4Bc-tpQuAjuYmN3Rm_MgYq7ztAvnk5TlTgZ2ikIpQ/s320/clip_image004-752540.jpg" /></a></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; mso-add-space: auto; mso-list: l0 level1 lfo1; text-align: justify; text-indent: -21.3pt;">
3.<span style="font: 7pt "Times New Roman";"> </span>Jika Library berhasil ditambahkan, Anda dapat mengecek dengan klik tombol Show All Files (lihat gambar)</div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjHbdxXsQjO3-HCNlj6odSt3OVflvpF1-jMVylI48IB2cAHO2b6r70gWjGZSvH0ZPeqhPwDD8QYQbFkKAHz178EcjAMxDYvKvM3FSJ7vyGlYJepIRAyMG83fJOVCelOpEwpVZZsofkzDw/s1600/clip_image006-753115.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5688568448951156082" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjHbdxXsQjO3-HCNlj6odSt3OVflvpF1-jMVylI48IB2cAHO2b6r70gWjGZSvH0ZPeqhPwDD8QYQbFkKAHz178EcjAMxDYvKvM3FSJ7vyGlYJepIRAyMG83fJOVCelOpEwpVZZsofkzDw/s320/clip_image006-753115.jpg" /></a></div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
Sampai langkah-langkah diatas, Anda sudah berhasil menambahkan .dll yang saya buat.</div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
Berikut cara penggunaanya:</div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 21.3pt; mso-add-space: auto; mso-list: l1 level1 lfo2; text-align: justify; text-indent: -21.3pt;">
1.<span style="font: 7pt "Times New Roman";"> </span>Anda harus melakukan Import pada form yang menggunakan Library tersebut.</div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> Xmart.DataLink</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 21.3pt; mso-add-space: auto; mso-list: l1 level1 lfo2; text-align: justify; text-indent: -21.3pt;">
2.<span style="font: 7pt "Times New Roman";"> </span>Untuk menampilkan form konfigurasi cukup ketikan perintah berikut ditombol yang akan ada gunakan.</div>
<div class="MsoNormal" style="margin-left: 21.3pt; text-align: justify;">
<span style="font-family: "Courier New"; font-size: 10pt;">SQLDBConfig.SetUp()</span></div>
<div class="MsoListParagraphCxSpFirst" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
Maka akan muncul deh form seperti dibawah ini.</div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5Xg-HdYQnkUkZGI6MEzyXEYydVBizwjnh6R8n9pjDlc02XnP2sYGq7F4oP3P7ZmSm9y7jmJHKl54QL31UOdN-3j0BN4XNQ5bi1cj9fSlzKgOaLnjax0XEK0Tm4AelNQnMQ7ACkCzm7Lk/s1600/clip_image008-754251.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5688568454022370818" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg5Xg-HdYQnkUkZGI6MEzyXEYydVBizwjnh6R8n9pjDlc02XnP2sYGq7F4oP3P7ZmSm9y7jmJHKl54QL31UOdN-3j0BN4XNQ5bi1cj9fSlzKgOaLnjax0XEK0Tm4AelNQnMQ7ACkCzm7Lk/s320/clip_image008-754251.jpg" /></a></div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
Setelah ditekan tombol Save dan tidak ada muncul pesan Error, maka koneksi sudah berhasil dibuat. Kita tinggal menggunakannya saja, sebelumnya buatlah sebuah variabel yang bersifat Global sebaiknya diletakan di-<i style="mso-bidi-font-style: normal;">module</i>. Variabel yang saya buat dengan nama ConnString</div>
<div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; mso-add-space: auto; text-align: justify;">
<span style="font-family: "Courier New"; font-size: 10pt;">ConnString = SQLDBConfig.GetConnectionString</span></div>
<div class="MsoListParagraphCxSpLast" style="margin-left: 21.3pt; mso-add-space: auto; mso-list: l1 level1 lfo2; text-align: justify; text-indent: -21.3pt;">
3.<span style="font: 7pt "Times New Roman";"> </span>Untuk contoh lengkapnya, bisa download source yang saya berikan.</div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
Jika pada saat menjalankan aplikasi XmartDataLink terjadi <i style="mso-bidi-font-style: normal;">error</i> <i style="mso-bidi-font-style: normal;">missing library</i>, copy-kan 2 <i style="mso-bidi-font-style: normal;">library</i> ini kedalam lokasi library Xmart.DataLink.dll berada :</div>
<div class="MsoNormal" style="text-align: justify;">
<a href="http://db.tt/2umawsvL" target="_blank">Microsoft.SqlServer.BatchParser.dll</a> (Optional)</div>
<div class="MsoNormal" style="text-align: justify;">
<a href="http://db.tt/i0iE4wa0" target="_blank">Microsoft.SqlServer.Replication.dll</a> (Optional)</div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
Download Library : <a href="http://db.tt/7wVH9n8g" target="_blank">Xmart.DataLink.dll</a></div>
<div class="MsoNormal" style="text-align: justify;">
Download Demo : <a href="http://db.tt/0ZFruxfP" target="_blank">UsingXmartDataLink</a></div>
<div class="MsoNormal" style="text-align: justify;">
<br /></div>
<div class="MsoNormal" style="text-align: justify;">
</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-58952489631948911172011-04-30T09:09:00.000+07:002011-04-30T09:24:25.572+07:00Membuat AutoComplete pada Combobox<div class="Section1"><div class="MsoNormal">Berikut merupakan cara bagaimana sewaktu kita menekan huruf awalan dari setiap kata di-comboxbox akan memunculkan suggestion/autocomplete seperti ini<o:p></o:p></div><div class="MsoNormal"><img height="357" id="Picture_x0020_1" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihsqhRi6zn5aqKD50pJBEf3Wws0FVmh2-Fsuyvz7XtSP8Pti_l2vaoLC9Tlr2MDffzVHuTnxwcOWmpr8PRrcipKqvkljdG-C85waFlYtZINv3UgqVnhTJPbxUIuguou25CbFPACcr9l3c/s320/Clip1-756893.png" width="281" /><o:p></o:p></div><div class="MsoNormal">, saya menggunakan database sample dari Microsoft yaitu AdventureWorks, berikut SQL Query-nya (StoredProcedure):<o:p></o:p></div><div class="MsoNormal"><br />
</div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">CREATE</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">PROCEDURE</span> [dbo]<span style="color: grey;">.</span>[spGetEmployee]<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">AS<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">BEGIN<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">SELECT</span> A<span style="color: grey;">.</span>NationalIDNumber<span style="color: grey;">,</span> B<span style="color: grey;">.</span>FirstName <span style="color: blue;">AS</span> [Name] <o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">FROM</span> HumanResources<span style="color: grey;">.</span>Employee <span style="color: blue;">AS</span> A<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: grey;">INNER</span> <span style="color: grey;">JOIN</span> Person<span style="color: grey;">.</span>Contact <span style="color: blue;">AS</span> B<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ON</span> A<span style="color: grey;">.</span>ContactID <span style="color: grey;">=</span> B<span style="color: grey;">.</span>ContactID<o:p></o:p></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">END</span><span style="font-size: 10pt;"><o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-size: 10pt;">Jika ingin memunculkan Name dan NationalIDNumber sekaligus juga dapat menggunakan SQL-Query sbb:<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">CREATE</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">PROCEDURE</span> [dbo]<span style="color: grey;">.</span>[spGetEmployee]<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">AS<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">BEGIN<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">SELECT</span> A<span style="color: grey;">.</span>NationalIDNumber<span style="color: grey;">,</span> <span style="color: grey;">(</span>B<span style="color: grey;">.</span>FirstName <span style="color: grey;">+</span> <span style="color: red;">' ('</span> <span style="color: grey;">+</span> A<span style="color: grey;">.</span>NationalIDNumber <span style="color: grey;">+</span> <span style="color: red;">')'</span><span style="color: grey;">)</span> <span style="color: blue;">AS</span> [Name] <o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">FROM</span> HumanResources<span style="color: grey;">.</span>Employee <span style="color: blue;">AS</span> A<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: grey;">INNER</span> <span style="color: grey;">JOIN</span> Person<span style="color: grey;">.</span>Contact <span style="color: blue;">AS</span> B<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ON</span> A<span style="color: grey;">.</span>ContactID <span style="color: grey;">=</span> B<span style="color: grey;">.</span>ContactID<o:p></o:p></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">END</span><span style="font-size: 10pt;"><o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Berikut code pada Class yang digunakan untuk DataAccess:<o:p></o:p></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> <span style="color: blue;">Function</span> GetAllEmp() <span style="color: blue;">As</span> DataSet<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> ds <span style="color: blue;">As</span> <span style="color: blue;">New</span> DataSet<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Using</span> sqlConn <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlConnection(<span style="color: blue;">My</span>.Settings.AdventureWorksConnectionString)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Using</span> sqlDA <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlDataAdapter(<span style="color: maroon;">"dbo.spGetEmployee"</span>, sqlConn)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.SelectCommand.CommandType = CommandType.StoredProcedure<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.Fill(ds)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Using<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Using<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> ds<o:p></o:p></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span><span style="font-size: 10pt;"><o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Code pada Form:<o:p></o:p></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Form1_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<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> ds <span style="color: blue;">As</span> <span style="color: blue;">New</span> DataSet<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> ds = objSale.GetAllEmp<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.DataSource = ds.Tables(0)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.DisplayMember = <span style="color: maroon;">"Name"<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.ValueMember = <span style="color: maroon;">"NationalIDNumber"<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.AutoCompleteMode = AutoCompleteMode.SuggestAppend<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.AutoCompleteSource = AutoCompleteSource.ListItems<o:p></o:p></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span><span style="font-size: 10pt;"><o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Silahkan disesuaikan dengan kebutuhan, untuk Query yang menampilkan Name dan National ID akan muncul seperti ini:<o:p></o:p></div><div class="MsoNormal"><img height="314" id=":current_picnik_image" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbO9AYdAveieZx-Rk1WXRIi7tPmplUg_xZ6Cj3MgfRv15sekZvrs1APQer5BN8nrmEERIvj4tyGCPiHkPbSyDYJD-10wvwLC4n0qb2yyP1Vnsnx1U7zm1NRrBrlPX1Oa8ohYUFZZXK8BQ/s320/Clip2-757248.png" width="280" /><o:p></o:p></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Untuk menyimpan, gunakan Kode-nya dengan code:<o:p></o:p></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;">lblNationalIDNumber.Text = cboEmployee.SelectedValue<o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">ComboBox terdapat 2 property yang digunakan untuk memanipulasi data :<o:p></o:p></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.<b>DisplayMember</b> = <span style="color: maroon;">"Name"<o:p></o:p></span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboEmployee.<b>ValueMember</b> = <span style="color: maroon;">"NationalIDNumber</span></span><o:p></o:p></div><div class="MsoNormal"><br />
</div><div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; text-indent: -.25in;"><span style="font-size: 10pt;">-<span style="font: 7pt "Times New Roman";"> </span></span>DisplayMember merupakan text yang ditampilkan<span style="font-size: 10pt;"><o:p></o:p></span></div><div class="MsoListParagraph" style="mso-list: l0 level1 lfo1; text-indent: -.25in;"><span style="font-size: 10pt;">-<span style="font: 7pt "Times New Roman";"> </span></span>ValueMember merupakan text/code dari yang ditampilkan sehingga kita dapat menggunakan .SelectedValue untuk mengambil ID/Code-nya<span style="font-size: 10pt;"><o:p></o:p></span></div></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-29152141363978525752011-04-30T08:46:00.000+07:002011-04-30T08:46:08.641+07:00Membuat Laporan dengan Crystal Report for Visual Studio<div class="Section1"><div style="margin-bottom: 12.0pt;"><span style="font-family: "Calibri","sans-serif"; font-size: 11pt;">Laporan merupakan output dari sebuah sistem yang kita buat, maka oleh itu laporan sangat penting dari setiap sistem yang dibuat.<br />
Berikut langkah-langkah singkat untuk membuat sebuat laporan dengan menggunakan Crystal Report for Visual Studio (Crystal Report yang sudah build in didalam Visual Studio diatas versi Express), sebenarnya Anda juga dapat menggunkan Crystal Report dengan aplikasi terpisah.<br />
<br />
Pertama-tama, Anda harus membuat DataSet dengan menggunakan file .XSD, yang digunakan untuk menarik/ menempatkan field2 kedalam report designer nantinya:<br />
... (next update)<br />
<br />
Langkah-langkah berikutnya akan saya update nantinya beserta gambarnya...<br />
<br />
Berikut Code untuk memunculkan Report:<br />
- Buatlah sebuah Class sebagai DataAccess ke Database (misalnya: Class Sale)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.Data<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.Data.SqlClient<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Sales<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Get Sales Invoice value and return in DATASET<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> <span style="color: blue;">Function</span> GenerateInvoice( _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> SalesOrderID <span style="color: blue;">As</span> <span style="color: blue;">Integer</span>, _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> PrintedBy <span style="color: blue;">As</span> <span style="color: blue;">String</span>) <span style="color: blue;">As</span> DataSet<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> ds <span style="color: blue;">As</span> <span style="color: blue;">New</span> DataSet<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Using</span> sqlConn <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlConnection(<span style="color: blue;">My</span>.Settings.AdventureWorksConnectionString)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Using</span> sqlDA <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlDataAdapter(<span style="color: maroon;">"Sales.spGenerateInvoice"</span>, sqlConn)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.SelectCommand.CommandType = CommandType.StoredProcedure<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">With</span> sqlDA.SelectCommand.Parameters<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> .AddWithValue(<span style="color: maroon;">"@SalesOrderID"</span>, SalesOrderID)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> .AddWithValue(<span style="color: maroon;">"@PrintedBy"</span>, PrintedBy)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">With<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.Fill(ds)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Using<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Using<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> ds<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><br />
</div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Get Sales Invoice value without return the value but<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'passing the control ByRef on parameter to fill directly<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> <span style="color: blue;">Sub</span> GenerateInvoice(<span style="color: blue;">ByRef</span> dtReport <span style="color: blue;">As</span> DataTable, _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> SalesOrderID <span style="color: blue;">As</span> <span style="color: blue;">Integer</span>, _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> PrintedBy <span style="color: blue;">As</span> <span style="color: blue;">String</span>)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Using</span> sqlConn <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlConnection(<span style="color: blue;">My</span>.Settings.AdventureWorksConnectionString)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Using</span> sqlDA <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlDataAdapter(<span style="color: maroon;">"Sales.spGenerateInvoice"</span>, sqlConn)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.SelectCommand.CommandType = CommandType.StoredProcedure<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">With</span> sqlDA.SelectCommand.Parameters<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> .AddWithValue(<span style="color: maroon;">"@SalesOrderID"</span>, SalesOrderID)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> .AddWithValue(<span style="color: maroon;">"@PrintedBy"</span>, PrintedBy)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">With<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.Fill(dtReport)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Using<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Using<o:p></o:p></span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End Class<o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal">- Berikut Code dari Form yang digunakan untuk memanggil Crystal Report<o:p></o:p></div><div class="MsoNormal" style="text-autospace: none;"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form1<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> dsR <span style="color: blue;">As</span> <span style="color: blue;">New</span> DataSet<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> objDSReport <span style="color: blue;">As</span> <span style="color: blue;">New</span> dsReport<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> objSale <span style="color: blue;">As</span> <span style="color: blue;">New</span> Sales<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnDirectPrint_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> btnDirectPrint.Click<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><br />
</div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'----------- CARA 1 -------------<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Dim ds As New DataSet<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'ds = objSale.GenerateInvoice(txtSalesOrderID.Text, "Budiyanto")<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'For i As Integer = 0 To ds.Tables(0).Rows.Count - 1<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' objDSReport.Tables("dtSalesInvoice").Rows.Add()<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' With objDSReport.Tables("dtSalesInvoice").Rows(i)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(0) = ds.Tables(0).Rows(i).Item(0)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(1) = ds.Tables(0).Rows(i).Item(1)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(2) = ds.Tables(0).Rows(i).Item(2)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(3) = ds.Tables(0).Rows(i).Item(3)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(4) = ds.Tables(0).Rows(i).Item(4)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(5) = ds.Tables(0).Rows(i).Item(5)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(6) = ds.Tables(0).Rows(i).Item(6)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(7) = ds.Tables(0).Rows(i).Item(7)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(8) = ds.Tables(0).Rows(i).Item(8)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(9) = ds.Tables(0).Rows(i).Item(9)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' .Item(10) = ds.Tables(0).Rows(i).Item(10)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' End With<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Next<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Dim rSalesInvoice As New rptSalesInvoice<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'rSalesInvoice.SetDataSource(objDSReport.Tables("dtSalesInvoice"))<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'rSalesInvoice.PrintToPrinter(1, False, 1, 999)<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><br />
</div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'------------ CARA 2 --------------<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> objSale.GenerateInvoice(objDSReport.Tables(<span style="color: maroon;">"dtSalesInvoice"</span>), _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> txtSalesOrderID.Text, <span style="color: maroon;">"Budiyanto"</span>)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> rSalesInvoice <span style="color: blue;">As</span> <span style="color: blue;">New</span> rptSalesInvoice<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> rSalesInvoice.SetDataSource(objDSReport.Tables(<span style="color: maroon;">"dtSalesInvoice"</span>))<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> rSalesInvoice.PrintToPrinter(1, <span style="color: blue;">True</span>, 1, 999)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></div><div class="MsoNormal" style="text-autospace: none;"><br />
</div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnPreview_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnPreview.Click<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><br />
</div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> objSale.GenerateInvoice(objDSReport.Tables(<span style="color: maroon;">"dtSalesInvoice"</span>), _<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> txtSalesOrderID.Text, <span style="color: maroon;">"Budiyanto"</span>)<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> rSalesInvoice <span style="color: blue;">As</span> <span style="color: blue;">New</span> rptSalesInvoice<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> rSalesInvoice.SetDataSource(objDSReport.Tables(<span style="color: maroon;">"dtSalesInvoice"</span>))<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> crvSalesInvoice.ReportSource = rSalesInvoice<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><span style="font-family: "Courier New"; font-size: 10pt;"> crvSalesInvoice.Refresh()<o:p></o:p></span></div><div class="MsoNormal" style="text-autospace: none;"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub<o:p></o:p></span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End Class<o:p></o:p></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Calibri","sans-serif"; font-size: 11pt;">Silahkan dicoba, jika ada yang ingin membuat tutorial step by step, bisa email kesaya dalam bentuk document MS. Word, nanti saya postkan....</span></div><div class="MsoNormal"><span style="font-family: "Calibri","sans-serif"; font-size: 11pt;">(dari mahasiswa untuk mahasiswa) </span></div></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-19007461669423705062011-01-22T09:09:00.000+07:002011-01-22T09:30:34.864+07:00Jadwal UAS LabSelasa (25 January 2011)<br />
- Lab. Algoritma & Pemrograman I (1SIMA) - Pukul 19.45-21.25 WIB<br />
<br />
Rabu (26 January 2011)<br />
- Lab. Pemrograman Basis Data (5SIMC) - Pukul 19.45-21.25 WIB<br />
<br />
Kamis (27 January 2011)<br />
- Lab. Pemrograman Basis Data (5SIMB) - Pukul 17.15-18.55 WIB<br />
- Lab. Pemrograman Basis Data (5SIMA) - Pukul 19.45-21.25 WIB<br />
<br />
Jumat (28 January 2011)<br />
- Lab. Pemrograman Berorientasi Obyek (1SIMA) - Pukul 19.45-21.25 WIB<br />
<br />
NB: Ujian bertempat pada Lab yang biasa sewaktu kuliah (A214), kecuali terjadi perubahan pada saat hari H.Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-66287015699845132012010-12-11T10:01:00.000+07:002010-12-11T10:01:51.599+07:00Menggunakan DBMS Gratis dari Microsoft (SQL Server Express)<div class="separator" style="clear: both; text-align: center;"><a href="http://www.microsoft.com/express/s/img/logo_SQL2008R2.png" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="87" src="http://www.microsoft.com/express/s/img/logo_SQL2008R2.png" width="320" /></a></div><div style="text-align: justify;">Bagi teman-teman mahasiswa yang ingin belajar DBMS menggunakan SQL Server 2008 Express, dapat men-download langsung dari website Microsoft (GRATIS!)</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Note: untuk menjalankan SQL Server 2008 Express pastikan terlebih dahulu komputer Anda tidak pernah terinstall SQL Server Express 2005.</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Secara default jika Anda menginstall Visual Studio 2005 otomatis akan terinstall SQL Server 2005 Express, jika Anda menginstall Visual Studio 2008 & 2010 maka akan otomatis terinstall SQL Server 2008 Express. Oleh karena itu Anda cukup menginstall "SQL Server Management Studio"-nya saja</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Disini Anda dapat penjelasan singkat mengenai fitur yang terdapat pada SQL Server 2008 Express (<a href="http://www.microsoft.com/express/Database/Default.aspx">lihat</a>).</div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Berikut link untuk download SQL Server 2008 Express R2 with Management Studio (<a href="https://www.microsoft.com/betaexperience/pd/getkeynoppt.aspx?product=SQLEXPDBMT32&lcid=1033">32bit</a>) - (<a href="https://www.microsoft.com/betaexperience/pd/getkeynoppt.aspx?product=SQLEXPDBMT64&lcid=1033">64bit</a>)</div><div style="text-align: justify;">Untuk instalasi lebih detail secara terpisah Anda bisa lihat <a href="http://www.microsoft.com/express/Database/InstallOptions.aspx">disini</a></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">SQL Server 2008 Management Studio Express <a href="http://www.microsoft.com/downloads/en/details.aspx?FamilyID=08e52ac2-1d62-45f6-9a4a-4b76a8564a2b">download</a></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;">Jika Anda ingin mendownload SQL Server 2005 Express SP2 dapat melalui link berikut</div><div style="text-align: justify;">SQL Server 2005 Express SP2 <a href="http://www.microsoft.com/downloads/details.aspx?FamilyID=31711d5d-725c-4afa-9d65-e4465cdff1e7&DisplayLang=en">download</a></div><div style="text-align: justify;">SQL Server 2005 Management Studio Express <a href="http://www.microsoft.com/downloads/details.aspx?familyid=6053C6F8-82C8-479C-B25B-9ACA13141C9E&displaylang=en">download</a></div><div style="text-align: justify;"><br />
</div><div style="text-align: justify;"><br />
</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com2tag:blogger.com,1999:blog-5867067531114317021.post-3791150290572408172010-11-14T17:11:00.000+07:002010-11-14T17:11:41.765+07:00Pembahasan “UTS Lab. PBO”<div class="MsoNormal" style="text-align: justify;">Berikut pembahasan dari soal UTS Lab PBO (cont'd Algo), jadikan code berikut hanya sebagai refensi, silahkan dikembangkan jika perlu. Tidak mutlak code harus sama persis seperti di bawah ini.</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5539345479499421874" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJE6mf8Bx3R4k-iq_zGghAisKII3bNTrF5TiTQlQQJQUtnVqwMJ6wm43R8-c48syOSgsR4ZsAlOeaFVDjBnSz__HzkneS-gqHtCHHAmN1iILKu5Of-Qj0fZMItbT-xph9bcLnXaIKPfzk/s320/UTS_PBO1-772289.png" /></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Source Code :</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.IO</span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> arrJenisMobil() <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> arrHargaMobil() <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> cnt <span style="color: blue;">As</span> <span style="color: blue;">Integer</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Sub</span> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboJenisMobil.Text = <span style="color: maroon;">"(Silahkan Pilih)"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtHari.Text = 0</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Sub</span> fillComboBox()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboJenisMobil.Items.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">For</span> i <span style="color: blue;">As</span> <span style="color: blue;">Integer</span> = 0 <span style="color: blue;">To</span> arrJenisMobil.GetUpperBound(0)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboJenisMobil.Items.Add(arrJenisMobil(i).ToString)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Next</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Sub</span> getJenisMobil()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> sr <span style="color: blue;">As</span> StreamReader</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> strJenisMobil <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> dblHargaMobil <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(<span style="color: maroon;">"CarPrice.txt"</span>) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sr = File.OpenText(<span style="color: maroon;">"CarPrice.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Do</span> <span style="color: blue;">While</span> sr.Peek <> -1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> strJenisMobil = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> dblHargaMobil = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cnt += 1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Loop</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sr.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ReDim</span> arrJenisMobil(cnt - 1)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ReDim</span> arrHargaMobil(cnt - 1)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sr = File.OpenText(<span style="color: maroon;">"CarPrice.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cnt = 0</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Do</span> <span style="color: blue;">While</span> sr.Peek <> -1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> arrJenisMobil(cnt) = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> arrHargaMobil(cnt) = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cnt += 1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Loop</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Function</span> getHargaMobil(<span style="color: blue;">ByVal</span> carIndex <span style="color: blue;">As</span> <span style="color: blue;">Integer</span>) <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> arrHargaMobil(carIndex)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Function</span> ValidateInput() <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> txtNama.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan Nama"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtAlamat.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan Alamat"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtNoHP.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan No. HP"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> cboJenisMobil.SelectedIndex < 0 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan pilih mobil yang disewa"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboJenisMobil.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtHari.Text.Trim < 1 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Minimal sewa 1 hari"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtHari.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnHitung_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnHitung.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> fmtStr <span style="color: blue;">As</span> <span style="color: blue;">String</span> = <span style="color: maroon;">"{0,-20}{1,10}"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> totalHarga <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> ValidateInput() = <span style="color: blue;">False</span> <span style="color: blue;">Then</span> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> totalHarga = getHargaMobil(cboJenisMobil.SelectedIndex) * <span style="color: blue;">CInt</span>(txtHari.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lstHasil.Items.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">With</span> lstHasil.Items</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Customer : Mr./Ms. "</span> & txtNama.Text.Trim)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Alamat : "</span> & txtAlamat.Text.Trim)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"No NP : "</span> & txtNoHP.Text.Trim)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Jenis Mobil yang disewa : "</span> & cboJenisMobil.SelectedItem)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Jumlah Hari penyewaan : "</span> & txtHari.Text & <span style="color: maroon;">"hari Total Rp. "</span> & totalHarga)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">With</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Form1_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></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> getJenisMobil()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> fillComboBox()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> txtHari_KeyPress(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color: blue;">Handles</span> txtHari.KeyPress</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> ((e.KeyChar >= <span style="color: maroon;">"0"</span> <span style="color: blue;">And</span> e.KeyChar <= <span style="color: maroon;">"9"</span>) <span style="color: blue;">Or</span> e.KeyChar = vbBack) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> e.Handled = <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnSimpan_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> btnSimpan.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> lstHasil.Items.Count < 1 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> sw <span style="color: blue;">As</span> StreamWriter</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(<span style="color: maroon;">"History.txt"</span>) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> File.Delete(<span style="color: maroon;">"History.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sw = File.CreateText(<span style="color: maroon;">"History.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">With</span> sw</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"Nama : "</span> & txtNama.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"Alamat : "</span> & txtAlamat.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"No HP : "</span> & txtNoHP.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"Jenis Mobil : "</span> & cboJenisMobil.SelectedItem)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"Lama Sewa : "</span> & txtHari.Text & <span style="color: maroon;">" hari"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"Harga Sewa : "</span> & arrHargaMobil(cboJenisMobil.SelectedIndex))</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .WriteLine(<span style="color: maroon;">"Total : "</span> & <span style="color: blue;">CDbl</span>(arrHargaMobil(cboJenisMobil.SelectedIndex)) * <span style="color: blue;">CInt</span>(txtHari.Text))</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">With</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sw.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <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></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> sr <span style="color: blue;">As</span> StreamReader</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(<span style="color: maroon;">"History.txt"</span>) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sr = File.OpenText(<span style="color: maroon;">"History.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Form2.ListBox1.Items.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">While</span> sr.Peek <> -1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Form2.ListBox1.Items.Add(sr.ReadLine)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">While</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Me</span>.Hide()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Form2.Show()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Berikut form untuk menampilkan hasil:</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5539345485814210498" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgM0hJVnQrq9GqUqhnNpdyq-z49U0amE4nUWwySr-mpK-vpbXUy2HvNihIIQswBDgUr27rTks7D9m-HwsWEo-n6RIdJrzuNCtmAHuFvPuwUCxBB9AXkYBe1sQ3x4fCW5CUj3TmbElzLzo4/s320/UTS_PBO2-774120.png" /></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Source Code:</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form2</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnTutup_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> btnTutup.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Form1.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span></div><div class="MsoNormal"><br />
</div><div align="center" class="MsoNormal" style="text-align: center;">~ Semoga Bermanfaat ~</div><div class="MsoNormal"><br />
</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-34304232824138933322010-11-14T17:10:00.000+07:002010-11-14T17:10:48.628+07:00Pembahasan "UTS Lab. Algoritma & Pemrograman"<div class="mobile-photo"></div><div class="MsoNormal">Berikut pembahasan dari soal UTS Lab Algoritma dan Pemrograman, jadikan code berikut hanya sebagai refensi, silahkan dikembangkan jika perlu. Tidak mutlak code harus sama persis seperti di bawah ini.</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5539343454183303794" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9jH2HaZlZUCkE6BxCFTtoPTGxQkH9vHCJIKzKNjOurwKXhwzLrx418Rx7j4oYYU7Sq_d3B8YLu2-x4ImXpptb5aa-3AN3IBUpmlG2OvbKact2hgAtnmLAtUGK6Ah1KiNtIw7rrv9V75Y/s320/UTS_Algo-700618.png" /></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Source Code:</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Sub</span> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboJenisMobil.Text = <span style="color: maroon;">"(Silahkan Pilih)"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtHari.Text = 0</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Function</span> getHargaMobil(<span style="color: blue;">ByVal</span> JenisMobil <span style="color: blue;">As</span> <span style="color: blue;">String</span>) <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> hrgMobil <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Select</span> <span style="color: blue;">Case</span> JenisMobil</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Is</span> = <span style="color: maroon;">"Toyota Avanza"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 250000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Is</span> = <span style="color: maroon;">"Toyota Innova"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 350000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Is</span> = <span style="color: maroon;">"Toyota Corolla"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 200000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Is</span> = <span style="color: maroon;">"Honda Jazz"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 300000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Is</span> = <span style="color: maroon;">"Honda Accord"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 250000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Is</span> = <span style="color: maroon;">"Nissan Sunny"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 200000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> hrgMobil = 180000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Select</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> hrgMobil</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Function</span> ValidateInput() <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> txtNama.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan Nama"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtAlamat.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan Alamat"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtNoHP.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan No. HP"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> cboJenisMobil.SelectedIndex < 0 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan pilih mobil yang disewa"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> cboJenisMobil.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtHari.Text.Trim < 1 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Minimal sewa 1 hari"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtHari.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnHitung_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnHitung.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> fmtStr <span style="color: blue;">As</span> <span style="color: blue;">String</span> = <span style="color: maroon;">"{0,-20}{1,10}"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> totalHarga <span style="color: blue;">As</span> <span style="color: blue;">Double</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> ValidateInput() = <span style="color: blue;">False</span> <span style="color: blue;">Then</span> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> totalHarga = getHargaMobil(cboJenisMobil.SelectedItem) * <span style="color: blue;">CInt</span>(txtHari.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lstHasil.Items.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">With</span> lstHasil.Items</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Customer : Mr./Ms. "</span> & txtNama.Text.Trim)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Alamat : "</span> & txtAlamat.Text.Trim)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"No NP : "</span> & txtNoHP.Text.Trim)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Jenis Mobil yang disewa : "</span> & cboJenisMobil.SelectedItem)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> .Add(<span style="color: maroon;">"Jumlah Hari penyewaan : "</span> & txtHari.Text & <span style="color: maroon;">"hari Total Rp. "</span> & totalHarga)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">With</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Form1_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></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> txtHari_KeyPress(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyPressEventArgs) <span style="color: blue;">Handles</span> txtHari.KeyPress</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> ((e.KeyChar >= <span style="color: maroon;">"0"</span> <span style="color: blue;">And</span> e.KeyChar <= <span style="color: maroon;">"9"</span>) <span style="color: blue;">Or</span> e.KeyChar = vbBack) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> e.Handled = <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span></div><div class="MsoNormal"><br />
</div><div align="center" class="MsoNormal" style="text-align: center;">~ Semoga Bermanfaat ~</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-37891987046162582092010-11-12T21:32:00.000+07:002010-11-12T21:32:27.282+07:00Menghitung Umur (Tahun, Bulan, Hari)<div class="MsoNormal" style="text-align: justify;">Berikut merupakan function untuk mengembalikan Umur berdasarkan apa yang diinput oleh user, dengan asumsi bahwa tiap bulan mempunyai 30 hari.</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Function</span> getUmur(<span style="color: blue;">ByVal</span> tglLahir <span style="color: blue;">As</span> <span style="color: blue;">Date</span>) <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> y, m, d <span style="color: blue;">As</span> <span style="color: blue;">Integer</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> d = Now.Day - tglLahir.Day</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m = Now.Month - tglLahir.Month</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> y = Now.Year - tglLahir.Year</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika tanggal minus </span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'berarti tanggal hari ini </span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'lebih kecil dari tanggal lahir</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> Math.Sign(d) = -1 <span style="color: blue;">Then</span> <span style="color: green;">'untuk mengenali jika tanggal dalam bentuk minus</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> d = 30 - Math.Abs(d) <span style="color: green;">'membuat absolut |-2| = 2</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m -= 1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> Math.Sign(m) = -1 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m = 12 - Math.Abs(m)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> y -= 1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> y & <span style="color: maroon;">" tahun, "</span> & m & <span style="color: maroon;">" bulan, "</span> & d & <span style="color: maroon;">" hari."</span></span></div><div class="MsoNormal" style="text-align: justify;"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Function di atas hanya berupa contoh, dapat dimodifikasi sesuai dengan kebutuhan</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com2tag:blogger.com,1999:blog-5867067531114317021.post-6722528388026957892010-11-06T15:31:00.000+07:002010-11-06T15:31:53.469+07:00Menyimpan Data ke Database (Module, Function dan Procedure)<div class="mobile-photo"></div><div class="MsoNormal" style="text-align: justify;">Program berikut menggunakan Module untuk menampung VARIABLE, FUNCTION dan PROCEDURE yang sifatnya digunakan secara umum. </div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Adapun contoh aplikasi yang dibuat sebagai berikut</div><div class="MsoNormal" style="text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536351023093903634" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgfPr5sGC_nGDjhnBKHnC6sTjfAMXqsTMkhILPUZkbDWmLC8hI5ACkXdlYhggDHAeH6I8gbb1ap_RRJWwUoHL7Jlk0ItF5_QhHKUemliOEdCAL4-W-FA-lD7sjQ5WDpT3ZtLm9SG_3v-Fk/s320/DatabaseProgramming-772586.png" /></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Contoh Code pada module:</div><div class="MsoNormal" style="text-align: justify;">(Code pada module ini menggunakan Connection String ke database yang berasal dari file notepad <b>“ClientObject.ini”,</b> dan menggunakan form koneksi pada postingnya yang lalu)</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.IO</span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.Data</span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.Data.SqlClient</span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Module</span><span style="font-family: "Courier New"; font-size: 10pt;"> mdlRef4General</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> sqlConn <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlConnection</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> sqlCmd <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlCommand</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> sqlDA <span style="color: blue;">As</span> <span style="color: blue;">New</span> SqlDataAdapter</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> m_ConnString <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> m_SR <span style="color: blue;">As</span> StreamReader</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengambil PATH atau lokasi, </span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'dimana file EXE berada (akar program)</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> m_BasePath <span style="color: blue;">As</span> <span style="color: blue;">String</span> = _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AppDomain.CurrentDomain.BaseDirectory</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> openDbConnApp()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(m_BasePath & <span style="color: maroon;">"Database Connect.exe"</span>) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'membuka program untuk menyimpan Connection String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Shell(m_BasePath & <span style="color: maroon;">"Database Connect.exe"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AppWinStyle.NormalFocus)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Aplikasi untuk menyimpan Connection String "</span> & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> vbCrLf & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"TIDAK DITEMUKAN, silahkan letakan pada tempatnya"</span>, <span style="color: maroon;">"ERROR"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Error)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengambil connection string </span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'untuk melakukan koneksi ke SQL Server</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Function</span> getConnectionString() <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Dim strConnString As String = ""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengecek apakah file ClientObject.ini ada</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(m_BasePath & <span style="color: maroon;">"ClientObject.ini"</span>) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'membuka file ClientObject.ini jika filenya ada</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_SR = File.OpenText(m_BasePath & <span style="color: maroon;">"ClientObject.ini"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'membaca baris connection string dan menampung ke variabel</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = m_SR.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'menutup Stream Reader</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_SR.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> openDbConnApp()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika file ClientObject.ini tidak ada,</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'maka variabel akan dikosongkan</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> m_ConnString</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> <span style="color: blue;">Function</span> tryConnection() <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = getConnectionString()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'memasukan isi dari m_ConnString ke property Connection</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.ConnectionString = m_ConnString</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'membuka koneksi</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Open()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika berhasil maka akan mengembalikan nilai TRUE</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"ERROR"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Error)</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> openDbConnApp()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'koneksi gagal, maka akan mengembalikan nilai FALSE</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Finally</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika sqlConn(Connection) dalam keadaan BUKA, </span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'maka koneksi harus ditutup</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> sqlConn.State = ConnectionState.Open <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'function ini dapat digunakan untuk </span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'INSERT, UPDATE dan DELETE data</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> <span style="color: blue;">Function</span> InUpDeData(<span style="color: blue;">ByVal</span> strQuery <span style="color: blue;">As</span> <span style="color: blue;">String</span>) <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = getConnectionString()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> m_ConnString = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Exit</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.ConnectionString = m_ConnString</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlCmd.CommandText = strQuery</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlCmd.Connection = sqlConn</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Open()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlCmd.ExecuteNonQuery()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"ERROR"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Error)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Finally</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> sqlConn.State = ConnectionState.Open <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Public</span> <span style="color: blue;">Function</span> GetData(<span style="color: blue;">ByVal</span> strQuery <span style="color: blue;">As</span> <span style="color: blue;">String</span>) <span style="color: blue;">As</span> DataSet</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> dtsResult <span style="color: blue;">As</span> <span style="color: blue;">New</span> DataSet</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = <span style="color: blue;">My</span>.Settings.ConnString</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> </span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn = <span style="color: blue;">New</span> SqlConnection(m_ConnString)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.SelectCommand = <span style="color: blue;">New</span> SqlCommand(strQuery, sqlConn)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.SelectCommand.CommandText = strQuery</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlDA.Fill(dtsResult)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> </span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"ERROR"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Error)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Finally</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> sqlConn.State = ConnectionState.Open <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> dtsResult</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Module</span></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Contoh Code pada Form:</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> frmRegister</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> AddEdit <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> AllowInput(<span style="color: blue;">ByVal</span> tf <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.ReadOnly = <span style="color: blue;">Not</span> tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.ReadOnly = <span style="color: blue;">Not</span> tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.ReadOnly = <span style="color: blue;">Not</span> tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.ReadOnly = <span style="color: blue;">Not</span> tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> DataGridView1.Enabled = <span style="color: blue;">Not</span> tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> frmRegister_Load(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <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></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> tryConnection() = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Me</span>.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AllowInput(<span style="color: blue;">False</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> refreshDataGrid()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnSave_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnSave.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> AddEdit = <span style="color: maroon;">"add"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> InUpDeData(<span style="color: maroon;">"INSERT INTO tblStudent "</span> & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"(NPM, Nama, Alamat, NoHP, CreateDate) "</span> & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"VALUES ('"</span> & txtNPM.Text & <span style="color: maroon;">"','"</span> & txtNama.Text & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"','"</span> & txtAlamat.Text & <span style="color: maroon;">"','"</span> & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Text & <span style="color: maroon;">"','"</span> & Now & <span style="color: maroon;">"')"</span>) = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Data Berhasil disimpan"</span>, <span style="color: maroon;">"SUCCEED"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Information)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> AddEdit = <span style="color: maroon;">"edit"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> InUpDeData(<span style="color: maroon;">"UPDATE tblStudent "</span> & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"SET Nama='"</span> & txtNama.Text & <span style="color: maroon;">"', Alamat='"</span> & txtAlamat.Text & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"', NoHP='"</span> & txtNoHP.Text & <span style="color: maroon;">"', CreateDate='"</span> & Now & _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"' WHERE NPM='"</span> & txtNPM.Text & <span style="color: maroon;">"'"</span>) = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Data Berhasil diubah"</span>, <span style="color: maroon;">"SUCCEED"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Information)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> refreshDataGrid()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AllowInput(<span style="color: blue;">False</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"ERROR"</span>, MessageBoxButtons.OK, MessageBoxIcon.Error)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnAdd_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnAdd.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AddEdit = <span style="color: maroon;">"add"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AllowInput(<span style="color: blue;">True</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnEdit_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnEdit.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AddEdit = <span style="color: maroon;">"edit"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AllowInput(<span style="color: blue;">True</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.ReadOnly = <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> refreshDataGrid()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> dtsResult <span style="color: blue;">As</span> <span style="color: blue;">New</span> DataSet</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> dtsResult.Tables.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> dtsResult = GetData(<span style="color: maroon;">"SELECT * FROM tblStudent ORDER BY ID ASC"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> DataGridView1.DataSource = dtsResult.Tables(0)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"ERROR"</span>, MessageBoxButtons.OK, MessageBoxIcon.Error)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> DataGridView1_CurrentCellChanged(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> DataGridView1.CurrentCellChanged</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">On</span> <span style="color: blue;">Error</span> <span style="color: blue;">Resume</span> <span style="color: blue;">Next</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> intCRow <span style="color: blue;">As</span> <span style="color: blue;">Integer</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> intCRow = DataGridView1.CurrentRow.Index</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> intCRow < 0 <span style="color: blue;">Then</span> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.Text = DataGridView1(1, intCRow).Value</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Text = DataGridView1(2, intCRow).Value</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtAlamat.Text = DataGridView1(3, intCRow).Value</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNoHP.Text = DataGridView1(4, intCRow).Value</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnCancel_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnCancel.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> AllowInput(<span style="color: blue;">False</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> refreshDataGrid()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnDelete_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnDelete.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> MessageBox.Show(<span style="color: maroon;">"Apakah Anda yakin ingin menghapus data ini?"</span>, <span style="color: maroon;">"Cofirmation"</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> InUpDeData(<span style="color: maroon;">"DELETE FROM tblStudent WHERE NPM='"</span> & txtNPM.Text & <span style="color: maroon;">"'"</span>) = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Data berhasil dihapus"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> refreshDataGrid()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Download Source Lengkap : <a href="http://www.mediafire.com/?827lqnvxa814775" target="_blank">DOWNLOAD</a></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">NB: Bagi yang kurang mengerti silahkan comment pada post ini atau email</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Silahkan modifikasi sesuai dengan kebutuhan.</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-9559925035590043532010-11-06T14:50:00.000+07:002010-11-06T14:50:21.648+07:00Stream Writer dan Mencari Data dari Notepad<div class="MsoNormal">Jurusan akan otomatis terisi jika 2 karakter dari NPM mulai dari karakter ke 3 sesuai dengan kode jurusannya. </div><div class="MsoNormal">Search akan memunculkan inputbox dan mencari data dari file Notepad (.txt)</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrt4EflpXm6m1fw05I8GC_lUPElxTvtEBscRpn0n1zdUrZpEwXo-925ph1eMSLTHip98PMFRtvwCuv4HSEWxiocwv0G93A3l00ocbql-vMOg74SJKVFo3utUwRjTD4J2Li7_evNHmlUuw/s1600/Save&Search-787524.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536340350657569202" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhrt4EflpXm6m1fw05I8GC_lUPElxTvtEBscRpn0n1zdUrZpEwXo-925ph1eMSLTHip98PMFRtvwCuv4HSEWxiocwv0G93A3l00ocbql-vMOg74SJKVFo3utUwRjTD4J2Li7_evNHmlUuw/s320/Save&Search-787524.png" /></a></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Contoh Code:</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form1</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'procedure untuk mengosongkan textbox</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Sub</span> clearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtKelas.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtJurusan.Text = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'procedure untuk membuat textbox readonly true / false</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Sub</span> makeReadOnly(<span style="color: blue;">ByVal</span> tf <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.ReadOnly = tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.ReadOnly = tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtKelas.ReadOnly = tf</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Function</span> getJurusan(<span style="color: blue;">ByVal</span> NPM <span style="color: blue;">As</span> <span style="color: blue;">String</span>) <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> KodeJurusan, Jurusan <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> KodeJurusan = NPM.Substring(2, 2)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> KodeJurusan = Microsoft.VisualBasic.Mid(NPM, 3, 2)</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'0631097</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'th-kd-urt</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">""</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> KodeJurusan = <span style="color: maroon;">"11"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Teknik Sipil"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"21"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Teknik Elektro"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"31"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Sistem Informasi"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"41"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Manajemen"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"42"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Akuntasi"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"43"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Manajemen Perhotelan"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"44"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Magister Manajemen"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> KodeJurusan = <span style="color: maroon;">"51"</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Ilmu Hukum"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> Jurusan = <span style="color: maroon;">"Belum terdaftar"</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> Jurusan</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Form1_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></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> makeReadOnly(<span style="color: blue;">True</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> clearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnAdd_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> btnAdd.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> makeReadOnly(<span style="color: blue;">False</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> clearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> txtNPM_Leave(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> txtNPM.Leave</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> txtNPM.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtJurusan.Text = getJurusan(txtNPM.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnSearch_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> btnSearch.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> flag <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span> = <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> NPM <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> tNPM, tNama, tKelas, tJurusan <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> NPM = InputBox(<span style="color: maroon;">"Silahkan masukkan NPM"</span>, <span style="color: maroon;">"Input"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Do</span> <span style="color: blue;">While</span> NPM.Length <> 7 <span style="color: blue;">And</span> NPM.Length > 1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> NPM = InputBox(<span style="color: maroon;">"Silahkan masukkan NPM"</span>, <span style="color: maroon;">"Input"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Loop</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Do</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">' NPM = InputBox("Silahkan masukkan NPM", "Input")</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Loop Until NPM.Length = 7</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'If NPM.Length <> 7 Then Exit Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> sr <span style="color: blue;">As</span> IO.StreamReader = IO.File.OpenText(<span style="color: maroon;">"mahasiswa.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Do</span> <span style="color: blue;">While</span> sr.Peek <> -1</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> tNPM = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> tNama = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> tKelas = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> tJurusan = sr.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> tNPM = NPM <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> flag = <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNPM.Text = tNPM</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtNama.Text = tNama</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtKelas.Text = tKelas</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> txtJurusan.Text = tJurusan</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Loop</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> sr.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> flag = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Data tidak ditemukan"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span></div><div class="MsoNormal"><br />
</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-21066215371654292772010-11-06T14:49:00.000+07:002010-11-06T14:49:33.620+07:00Function dan Procedure serta passing nilai Antar Form<div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4oG6q05oGpkg3X5DOGyywWa-dMwOOHYHA3iwAkRUMEaIFEOYQvtXhFcc5bVjDLHFq2QZLElnnLjU8xIl4P0nv06BpklWfjSH_Y_aO24fM_v4_etgvJ0Hb6wIeX562Lzjb-Q5-XXKRX4M/s1600/rEsult-772215.png"></a></div><div class="MsoNormal" style="text-align: justify;"><b>Function</b> merupakan suatu fungsi yang dibuat untuk memproses atau melakukan suatu proses didalamnya yang akhirnya mengembalikan nilai dari proses tersebut.</div><div class="MsoNormal" style="text-align: justify;"><b>Procedure </b>merupakan suatu fungsi didalamnya yang tidak mengembalikan nilai.</div><div class="MsoNormal" style="text-align: justify;">Function dan Procedure digunakan untuk mengelompokan suatu proses sehingga dapat mempermudahkan programmer untuk melacak kesalahan coding dan juga untuk mempercepat pembuatan coding tanpa harus mengulang coding yang sama.</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Berikut contoh function dan procedure serta passing nilai antar form.</div><div class="MsoNormal" style="text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536337695936397746" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4-h0zSvxhWD3mVBhZ3gIidNPM-4WvsueWq3t7JXA_g3dvmxlkFaRi8Ud1P1nPSFdvwEX3aEJjujVUrCldEZ58gapBhthetaBJ2vPZE1kUN3GpvCWoiie-UmLaQo9VDt3NyxE7cM0kgW8/s320/Input-768681.png" /></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Setelah tombol Hitung diklik maka akan muncul form kedua yang berisi nilai yang dikirim dari form Utama ini.</div><div class="MsoNormal" style="text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536337711702630802" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4oG6q05oGpkg3X5DOGyywWa-dMwOOHYHA3iwAkRUMEaIFEOYQvtXhFcc5bVjDLHFq2QZLElnnLjU8xIl4P0nv06BpklWfjSH_Y_aO24fM_v4_etgvJ0Hb6wIeX562Lzjb-Q5-XXKRX4M/s320/rEsult-772215.png" /></div><div class="MsoNormal" style="text-align: justify;">Untuk grade sendiri dapat dikembangkan lagi.</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Contoh Code:</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">Public</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span> frmUtama</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Sub</span> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPM.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNama.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNTugas.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPartisipasi.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNUTS.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNUAS.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPM.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Function</span> ValidateInput() <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">If</span> txtNPM.Text.Trim.Length <> 7 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> MessageBox.Show(<span style="color: maroon;">"NPM tidak valid"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPM.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ElseIf</span> <span style="color: blue;">Not</span> IsNumeric(txtNPM.Text.Trim) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> MessageBox.Show(<span style="color: maroon;">"NPM harus angka"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPM.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ElseIf</span> txtNama.Text.Trim.Length < 3 <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> MessageBox.Show(<span style="color: maroon;">"Masukkan nama yang benar"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNama.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ElseIf</span> <span style="color: blue;">Not</span> IsNumeric(txtNTugas.Text) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNTugas.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ElseIf</span> <span style="color: blue;">Not</span> IsNumeric(txtNPartisipasi.Text) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPartisipasi.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ElseIf</span> <span style="color: blue;">Not</span> IsNumeric(txtNUTS.Text) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNUTS.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ElseIf</span> <span style="color: blue;">Not</span> IsNumeric(txtNUAS.Text) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNUAS.Focus()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Function</span> CalcNA(<span style="color: blue;">ByVal</span> NTugas <span style="color: blue;">As</span> <span style="color: blue;">Single</span>, <span style="color: blue;">ByVal</span> NPart <span style="color: blue;">As</span> <span style="color: blue;">Single</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> NUTS <span style="color: blue;">As</span> <span style="color: blue;">Single</span>, <span style="color: blue;">ByVal</span> NUAS <span style="color: blue;">As</span> <span style="color: blue;">Single</span>) _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">As</span> <span style="color: blue;">Single</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Dim</span> sngNTugas, sngNPart, sngNUTS, sngNUAS <span style="color: blue;">As</span> <span style="color: blue;">Single</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Dim</span> sngResult <span style="color: blue;">As</span> <span style="color: blue;">Single</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> sngNTugas = NTugas * 0.1</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> sngNPart = NPart * 0.05</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> sngNUTS = NUTS * 0.4</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> sngNUAS = NUAS * 0.45</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> sngResult = sngNTugas + sngNPart + sngNUTS + sngNUAS</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Return</span> sngResult</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> frmUtama_Load(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <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></div><div class="MsoNormal"><span style="font-family: "Courier New";"> ClearInput()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnHitungNA_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnHitungNA.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">If</span> ValidateInput() = <span style="color: blue;">False</span> <span style="color: blue;">Then</span> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">With</span> frmResult</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .lblNPM.Text = txtNPM.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .lblNama.Text = txtNama.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .lblNAkhir.Text = CalcNA(txtNTugas.Text, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPartisipasi.Text, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNUTS.Text, txtNUAS.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .Show()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">With</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Me</span>.Hide()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> txtNama_KeyPress(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyPressEventArgs) _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Handles</span> txtNama.KeyPress</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: green;">'textbox nama hanya bisa input huruf</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> ((e.KeyChar >= <span style="color: maroon;">"A"</span> <span style="color: blue;">And</span> e.KeyChar <= <span style="color: maroon;">"z"</span>) _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Or</span> e.KeyChar = vbBack) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> e.Handled = <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> HanyaInputAngkaDec(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyPressEventArgs) _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Handles</span> txtNTugas.KeyPress, txtNPartisipasi.KeyPress, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNUAS.KeyPress, txtNUTS.KeyPress</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Dim</span> decSeperator <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Dim</span> digitGrouping <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: green;">'untuk mengambil simbol pemisah desimal</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> decSeperator = System.Globalization.CultureInfo _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .CurrentCulture.NumberFormat _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .CurrencyDecimalSeparator</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: green;">'untuk mengambil simbol pemisah ribuan</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> digitGrouping = System.Globalization.CultureInfo _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .CurrentCulture.NumberFormat _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> .CurrencyGroupSeparator</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> ((e.KeyChar >= <span style="color: maroon;">"0"</span> <span style="color: blue;">And</span> e.KeyChar <= <span style="color: maroon;">"9"</span>) _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Or</span> e.KeyChar = vbBack <span style="color: blue;">Or</span> e.KeyChar = decSeperator) <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> e.Handled = <span style="color: blue;">True</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">End</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Code pada form Result:</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">Public</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span> frmResult</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnBack_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnBack.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> frmUtama.Show()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Me</span>.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> frmResult_FormClosed(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.FormClosedEventArgs) <span style="color: blue;">Handles</span> <span style="color: blue;">Me</span>.FormClosed</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> frmUtama.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">End</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span></span></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-64394164007335886452010-11-06T14:22:00.001+07:002010-11-06T14:22:51.215+07:00CheckBox<div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLBNnZkayLNExG1_qp5ToHVAShduWKxj-i24bLqc53lq09PjyPqaE888D1c7bntoVTlYRihK-KUyWdp6oVXKTm-75iDDpQSegr9p3Us6un0xgV7kbNSxjbS0oQhyjd3aSJtM1MmGtHYoM/s1600/Checkbox-759155.png"></a></div><div class="MsoNormal" style="text-align: justify;">Memberikan nilai pada saat Checkbox dicentang dan mengurangi nilai total pada saat Checkbox tidak dicentang.</div><div class="MsoNormal"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLBNnZkayLNExG1_qp5ToHVAShduWKxj-i24bLqc53lq09PjyPqaE888D1c7bntoVTlYRihK-KUyWdp6oVXKTm-75iDDpQSegr9p3Us6un0xgV7kbNSxjbS0oQhyjd3aSJtM1MmGtHYoM/s1600/Checkbox-759155.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536332928255075074" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLBNnZkayLNExG1_qp5ToHVAShduWKxj-i24bLqc53lq09PjyPqaE888D1c7bntoVTlYRihK-KUyWdp6oVXKTm-75iDDpQSegr9p3Us6un0xgV7kbNSxjbS0oQhyjd3aSJtM1MmGtHYoM/s320/Checkbox-759155.png" /></a></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Contoh Code:</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> frmSelectItem</span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> CheckBox1_CheckedChanged(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> CheckBox1.CheckedChanged</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> CheckBox1.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text += 1000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> CheckBox1.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text -= 1000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text = lblTotal.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> CheckBox2_CheckedChanged(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> CheckBox2.CheckedChanged</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> CheckBox2.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text += 2000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> CheckBox2.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text -= 2000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text = lblTotal.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> CheckBox3_CheckedChanged(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> CheckBox3.CheckedChanged</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> CheckBox3.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text += 3000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> CheckBox3.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text -= 3000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text = lblTotal.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> CheckBox4_CheckedChanged(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> CheckBox4.CheckedChanged</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> CheckBox4.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text += 4000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> CheckBox4.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text -= 4000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text = lblTotal.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> CheckBox5_CheckedChanged(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> CheckBox5.CheckedChanged</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> CheckBox5.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text += 5000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> CheckBox5.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text -= 5000</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> lblTotal.Text = lblTotal.Text</span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><br />
</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-52028014754808491352010-11-06T14:22:00.000+07:002010-11-06T14:22:07.313+07:00Membaca Data dari Notepad dan Melalukan Fungsi Perhitungan<div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5zhosApcFBBLac_99Hx4TDpEhp1i5hShhteudlXpmfd1cuMNedJAfDzBybFmfusPE7XKUmlQNmaT0FD17mbtJ5w0-pCnTNX-25STSqby_lRujl-ckxvu2IOEao95mPAU5zI4V0yg253M/s1600/Read+%26+Calc-705904.png"></a></div><div class="MsoNormal">Membaca data secara perbaris kemudian dari data tersebut kita melakukan perhitungan…</div><div class="MsoNormal"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536330554078588562" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj5zhosApcFBBLac_99Hx4TDpEhp1i5hShhteudlXpmfd1cuMNedJAfDzBybFmfusPE7XKUmlQNmaT0FD17mbtJ5w0-pCnTNX-25STSqby_lRujl-ckxvu2IOEao95mPAU5zI4V0yg253M/s320/Read+%26+Calc-705904.png" /></div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Contoh Code:</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">Imports</span><span style="font-family: "Courier New";"> System.IO</span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">Public</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span> frmFee</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnGetData_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnGetData.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Dim</span> SR <span style="color: blue;">As</span> StreamReader</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> SR = File.OpenText(<span style="color: maroon;">"MyData.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNPM.Text = SR.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtNama.Text = SR.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtJK.Text = SR.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> txtSKS.Text = SR.ReadLine</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> SR.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> lblTotal.Text = <span style="color: blue;">CInt</span>(txtSKS.Text) * <span style="color: blue;">CInt</span>(txtBiayaPerSKS.Text)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">End</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span></span></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-46283400524212228302010-11-06T14:21:00.000+07:002010-11-06T14:21:12.227+07:00Membaca Data dari Notepad hingga Akhir<div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjT1bJmMYCKL5awI0lNINIkDdg68Cxlx5x6hfacc-jgk_DjZPuwZhEsQ3n5Ctz3ibmjwaBbf1wHTKcZfiSkOImu6PFmE6GOaaU062IMgV8phXzi5qfvaeVAYmiDptsVqa3EQ0QiOY52yoQ/s1600/ReadData2End-743566.png"></a></div><div class="MsoNormal" style="text-align: justify;">Untuk membaca data dari suatu file Notepad (.txt) kita perlu untuk menggunakan Looping (pengulangan) dalam membaca tiap baris yang ada dalam file tersebut. Berikut contohnya:</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjT1bJmMYCKL5awI0lNINIkDdg68Cxlx5x6hfacc-jgk_DjZPuwZhEsQ3n5Ctz3ibmjwaBbf1wHTKcZfiSkOImu6PFmE6GOaaU062IMgV8phXzi5qfvaeVAYmiDptsVqa3EQ0QiOY52yoQ/s1600/ReadData2End-743566.png"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5536329859458500562" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjT1bJmMYCKL5awI0lNINIkDdg68Cxlx5x6hfacc-jgk_DjZPuwZhEsQ3n5Ctz3ibmjwaBbf1wHTKcZfiSkOImu6PFmE6GOaaU062IMgV8phXzi5qfvaeVAYmiDptsVqa3EQ0QiOY52yoQ/s320/ReadData2End-743566.png" /></a></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Berikut Code lengkapnya:</div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">Imports</span><span style="font-family: "Courier New";"> System.IO</span></div><div class="MsoNormal"><span style="color: blue; font-family: "Courier New";">Public</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span> frmReadData2End</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnReadData_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnReadData.Click</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Dim</span> sr <span style="color: blue;">As</span> StreamReader</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> sr = File.OpenText(<span style="color: maroon;">"MyData.txt"</span>)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> lstData.Items.Clear()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Do</span> <span style="color: blue;">While</span> sr.Peek <> -1</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> lstData.Items.Add(sr.ReadLine)</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">Loop</span></span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> sr.Close()</span></div><div class="MsoNormal"><span style="font-family: "Courier New";"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div><div class="MsoNormal" style="text-align: justify;"><span style="color: blue; font-family: "Courier New";">End</span><span style="font-family: "Courier New";"> <span style="color: blue;">Class</span></span></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-64080595072767857562010-10-30T23:25:00.000+07:002010-10-30T23:27:00.096+07:00Mengubah Authentication Mode SQL Server 2005 Express dari Windows Authentication ke Mixed Mode<div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg14AnoGtR-exLgsObjumxWdm8Kdk03lU_6m5BOENK-Y5kZfpdxYCJF6I5zpRuBszmOJq3SVMfs2tw7qyY5eayl6Lrz2okIBjmQXiK4BPWHC4BbxV9YPRsqeW-sQ4bytrRrUJD9ALd1hVA/s1600/ConnectToSQLExpress2005-721928.PNG"></a></div><div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgEA6ikoy0DIOUT2ebWKezNW8aXUeqIXryL2h4dyoVpDrL8IXV9PJB91LqosDQlUnF9j2nUDmznpNeFyeYSikjgnozJfdWnRqZpo5AU9y7m4KzJ5h-vNtfN6B7npKX8FmSQtooGd4NCT8/s1600/SQLServerSQLAuth-739683.PNG"></a></div><div class="MsoNormal" style="text-align: justify;">Jika sewaktu Anda menginstall Visual Studio 2005 secara default, maka SQL Server 2005 akan ikut terinstall juga. Authentication yang digunakan untuk login / connect ke database SQL Server adalah Windows Authentication (hanya username yang terdaftar ke komputer tersebut yang dapat melakukan koneksi ke database), sebaiknya Anda menggunakan Mixed Mode sehingga dapat melakukan authentication berdasarkan Windows Authentication ataupun SQL Server Authentication, berikut cara merubah metode otentikasi untuk melakukan koneksi ke SQL Server 2005 Express. Namun sebelumnya Anda sudah harus meng-install SQL Management Studio Express (SMSE), cara instalasi dan download file <span style="color: #0070c0;">disini</span> (dalam proses).</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoListParagraphCxSpFirst" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">1.<span style="font: 7pt "Times New Roman";"> </span>Setelah Anda selesai melakukan instalasi SMSE, buka aplikasi SMSE. Berikut tampilan awalnya</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873892892045074" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEf_G0kpM2wOKjOcvJIolim5h5J-0B3LKahuweEuPE_FHgTKMz7vwFn0rIp735KfX2WEaJolrmmTiEVmf9LKMOlj9d3qWLqMYRkVd9ElG5ef3Id3ux-qPDaFdyTvq4tk14oPg-VBKYS3Q/s320/TampilanAwalSMStudio-719595.PNG" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;">Cara membuka aplikasi SMSE:</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 42.55pt; text-align: justify; text-indent: -18pt;"><span style="font-family: Symbol;">·<span style="font: 7pt "Times New Roman";"> </span></span>klik <b>Start</b> > <b>All Programs</b> ><b> Microsoft SQL Server 2005</b> > klik <b>SQL Server Management Studio Express</b>, berikut tampilan awalnya.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><br />
</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">2.<span style="font: 7pt "Times New Roman";"> </span>Untuk melakukan login pertama kali silahkan menggunakan <b>Windows Authentication</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;">Server type: Database Engine</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 4cm; text-align: justify; text-indent: -92.1pt;">Server name: .\SQLExpress (titik (.) merupakan lokasi server dalam hal ini "titik" menandakan "local" atau komputer itu sendiri, sedangkan SQLExpress merupakan nama instance) Biarkan secara default jika Anda pertama kali install yang terpenting instancenya "SQLExpress"</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 4cm; text-align: justify; text-indent: -92.1pt;">Authentication: Windows Authentication</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 4cm; text-align: justify; text-indent: -92.1pt;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873901388821474" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg14AnoGtR-exLgsObjumxWdm8Kdk03lU_6m5BOENK-Y5kZfpdxYCJF6I5zpRuBszmOJq3SVMfs2tw7qyY5eayl6Lrz2okIBjmQXiK4BPWHC4BbxV9YPRsqeW-sQ4bytrRrUJD9ALd1hVA/s320/ConnectToSQLExpress2005-721928.PNG" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">3.<span style="font: 7pt "Times New Roman";"> </span>Klik kanan pada instance SQLExpress kemudian klik properties.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873904709985778" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgA3YaJ_nY2zDHOOzO7Iq7pEj5xP6I3rjOCzvmM0LCXMw0XjZ2j03VaTyv7NvNya6OkcozcTLj9xL4nMSIKHNionTDHCHWFcKcYUSHW5kXxJej_KmzSHOqIQuz5IDHUsQcd0b1VcN3Bq_I/s320/InstanceProperties-723603.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">4.<span style="font: 7pt "Times New Roman";"> </span>Pada pilihan <b>Select a page</b>, klik <b>Security</b>, kemudian pada sisi kanan <b>Server authentication</b> > silahkan pilih <b>SQL Server and Windows Authentication mode </b>kemudian klik tombol <b>OK</b> </div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><span id="goog_1610493614"><span id="goog_1610493617"></span></span><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873923850531138" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiyZTGGQfC_ogDPbD8rFb2Dl4JicbqYomlnWJOMiUx_7byvApHZBl0JFPVZZpNn9xgGZrb8CCBfHBLXjR3Vv3fblv9P5mYdJzvmtZzz4di6yT32rHVB44Q0yfrjqDOav3_q3mQ6QjZrjlw/s320/InstanceSecurity-726976.PNG" /><span id="goog_1610493618"></span><span id="goog_1610493615"></span></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;">Akan muncul pesan informasi, klik tombol <b>OK</b>.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873932950421906" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgqaAjLxxXCWUFySbryuZNG-dMlXwmggvoaWAq8nLCl4DhWjc1ZQQk5fFZDl2SoHTlNaV0ZqxkCBSIj3RgEtj0cek1oGf_6XJSEbYc-Wrt8oGN8-JmblhbJfHCVa7AgdzkSghr9RM9_2Ic/s320/ChangeAuthenticationInformation-729456.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">5.<span style="font: 7pt "Times New Roman";"> </span>Sekarang kita harus melakukan pengaturan untuk memberikan izin login default user "sa". Klik tanda + (tambah) pada node <b>Security</b> > <b>Login</b> > <b>sa</b> > klik kanan kemudian klik <b>Properties</b>.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873945066220914" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhu-uLZThUIISfSbbJMPOXoT1aTK7kbgcylIcfrXWocB6PgIvaxR-wHctoqO-l8P0-AOcXrm_-SnfMD2hLj_QVo-dQBmGVaQB1TJ39TqKpMT0ntj4Ri9q_8R1o5jEqYjlKdp2qiSG_eBLM/s320/LoginSA-Properties-732421.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">6.<span style="font: 7pt "Times New Roman";"> </span>Pada Select a page pilih Status, kemudian pada Login: pilih <b>Enabled</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873956830490146" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTkUi8GNvl1_SnC7zjDWW4xYFe7stvwC7XACSHPxvDahGlxzfwh93m8GPEL8XH9TerJeCFLryLIO7LdSt82PSKRen5tH2kltws3PNCxxLMRzn3bA2sG9o_joZeM2vnbAwr1mIirIELITI/s320/sa-LoginPermission-734960.PNG" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;">Kemudian lakukan perubahan password login untuk user "sa" agar nantinya bisa menggunakan login SQL Server Authentication. Pilih General, kemudian masukan password yang Anda inginkan untuk login.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873968660408146" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUp6P_lwpL3sVfkINRc4PLUnbNctftW069v99pVnwsiMi6p3aLGVgOTzJP3d_L8hyphenhyphen9ndwhfFD6LQ5nRNEmDoAc5G_ZTw2SRpJtwMIJVzgel9SEqhx0UxZZaVBbt_OxeR0VeU8zGtqy8jU/s320/ChangeSApassword-737861.PNG" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">7.<span style="font: 7pt "Times New Roman";"> </span>Tutup SMSE, kemudian buka kembali. Sekarang ganti <b>Authentication</b> menjadi <b>SQL Server Authentication</b>, masukan Login: <b>sa</b> dan Password: sesuai dengan yang Anda buat sebelumnya, klik tombol <b>Connect.</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533873979131483826" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgEA6ikoy0DIOUT2ebWKezNW8aXUeqIXryL2h4dyoVpDrL8IXV9PJB91LqosDQlUnF9j2nUDmznpNeFyeYSikjgnozJfdWnRqZpo5AU9y7m4KzJ5h-vNtfN6B7npKX8FmSQtooGd4NCT8/s320/SQLServerSQLAuth-739683.PNG" /></div><div class="MsoListParagraphCxSpLast" style="margin-left: 21.3pt; text-align: justify; text-indent: -17.45pt;">8.<span style="font: 7pt "Times New Roman";"> </span>Sekarang Anda sudah berhasil login menggunakan <b>SQL Server Authentication</b> </div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div align="center" class="MsoNormal" style="text-align: center;">~ Semoga Bermanfaat ~</div><div align="center" class="MsoNormal" style="text-align: center;"><br />
</div><div class="MsoNormal">Download File PDF : DOWNLOAD</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com2tag:blogger.com,1999:blog-5867067531114317021.post-71286007083402256922010-10-30T23:10:00.000+07:002010-10-30T23:28:13.728+07:00Mengganti SQL Server 2005 Express “Log On As…”<div class="mobile-photo"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhobG7oH9F1_bE4eXlj24nw-89hNAQ6xWMZOS2shKiAEDkHErxcFpMc4oxWbH5GAxqlVFlQuDh2KsQt9VRVo_P5EFtlkHP2TDH4umOAYLxljFCFL7LR-AfXZEcvHBD-9MQls-sRzhss7e0/s1600/SSCM-XP-SelectSQLExpress-788437.jpg"></a></div><div class="MsoNormal" style="text-align: justify;">Jika Anda menggunakan SQL Server 2005 Express untuk membuat atau memanipulasi database, secara default sewaktu pembuatan database, maka file database <b>.mdf</b> & <b>.ldf</b> akan tersimpan pada drive C: (sesuai dengan drive SQL Server 2005 Express terinstall). Secara default file database Anda akan berada pada lokasi "C:\Program Files\Microsoft SQL Server\MSSQL.<b>X</b>\MSSQL\Data" (<b>X</b> merupakan nomor urut instance yang ada create, secara default untuk SQL Server 2005 Express instancenya bernama "SQLExpress"). Agar database yang Anda buat tidak hilang / terhapus jika terjadi kerusakan pada Operating System (Windows XP, Vista, 7, dsb), maka Anda harus memindahkan file database (.mdf & .ldf) ke drive lainnya, misalnya drive D:. Namun alangkah kagetnya sewaktu Anda ingin melakukan <b>detach</b> ulang database, akan muncul error bahwa database tidak bisa di-detach kembali. Hal ini terjadi karena default Log On As SQL Server 2005 menggunakan <b>Network Service</b>, untuk itu Anda harus mengganti Log On As menjadi <b>Local System</b>. Berikut langkah-langkahnya:</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoListParagraphCxSpFirst" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">1.<span style="font: 7pt "Times New Roman";"> </span>Buka aplikasi <b>SQL Server Configuration Manager</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;">Jika OS Anda Windows XP, klik <b>Start</b> > <b>All Programs</b> > <b>Microsoft SQL Server 2005</b> > <b>Configuration Tools</b> > klik <b>SQL Server Configuration Manager</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiynVJcvKG7rJEKiFEvYqHgIUNbPGciHnL8D5azH_lvX-HFYWQr__6EJp-u8LVnAwjSCUSd8XezPgxxcPRhHQwW-r9IHu7EqVVKqHczy0lNwf3DxEPwn480q7mCA1gUoqyPcegYXv0DWLc/s1600/SSCM-XP-782075.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533868574900761810" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiynVJcvKG7rJEKiFEvYqHgIUNbPGciHnL8D5azH_lvX-HFYWQr__6EJp-u8LVnAwjSCUSd8XezPgxxcPRhHQwW-r9IHu7EqVVKqHczy0lNwf3DxEPwn480q7mCA1gUoqyPcegYXv0DWLc/s320/SSCM-XP-782075.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><span style="color: red;"><br />
</span></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"></div><div class="MsoListParagraph" style="margin-left: 21.3pt; text-align: justify;">Jika OS Anda Windows Vista / 7, klik logo <b>Windows (Start)</b> > <b>All Programs</b> > <b>Microsoft SQL Server 2005</b> > <b>Configuration Tools</b> > <b>SQL Server Configuration Manager </b>atau Anda dapat langsung mengetikan <b>SQL Server Configuration Manager</b> pada <b>Search programs and files</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">2.<span style="font: 7pt "Times New Roman";"> </span>Akan muncul jendela SQL Server Configuration Manager, pada kolom Log On As berisi <b>NT AUTHORITY\NetworkService</b> yang tampak seperti dibawah ini:</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJWuVa-MXC3VtRvFEJEHbLcxOgFhKN8OaByXiO4AmSyacKoOMohRJ7IVhWjDjzFC2TJ5g9ORKy_LQ5KeSuhp53v5AeaWt8jfyI4DlnTXlfO0F7CF9rGqmrF5m1y5bkXJEld0kOLuE2Uss/s1600/SQLExpressStillLogOnNetworkService-784226.PNG"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533868584222915746" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJWuVa-MXC3VtRvFEJEHbLcxOgFhKN8OaByXiO4AmSyacKoOMohRJ7IVhWjDjzFC2TJ5g9ORKy_LQ5KeSuhp53v5AeaWt8jfyI4DlnTXlfO0F7CF9rGqmrF5m1y5bkXJEld0kOLuE2Uss/s320/SQLExpressStillLogOnNetworkService-784226.PNG" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">3.<span style="font: 7pt "Times New Roman";"> </span>Klik kanan pada SQL Server (SQLEXPRESS) kemudian klik Properties, kemudian akan muncul jendela seperti di bawah ini. Pada tab Log On, pilih option <b>Built-in account: </b>kemudian ganti nilai di combo box menjadi <b>Local System</b>, kemudian klik tombol OK</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoygaavhWGnnHlKl9Sl7cyWHFbDLl5j68JgLnxadXUHtHfbXDTEkqyCaR19W_ZBBMv-mfrCyG9LoQlcqzc7Tj9Z9JWSwbkwRzy7WZl3Z05JP4eZQQKkpjtD8XeGuEbtmP8zhEj8PE-T0s/s1600/SQLServerProperties-785719.PNG"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533868590943931314" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgoygaavhWGnnHlKl9Sl7cyWHFbDLl5j68JgLnxadXUHtHfbXDTEkqyCaR19W_ZBBMv-mfrCyG9LoQlcqzc7Tj9Z9JWSwbkwRzy7WZl3Z05JP4eZQQKkpjtD8XeGuEbtmP8zhEj8PE-T0s/s320/SQLServerProperties-785719.PNG" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">4.<span style="font: 7pt "Times New Roman";"> </span>Akan muncul pesan konfirmasi untuk melakukan restart service, klik tombol <b><u>Y</u>es</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPV4uXHtQkg6M-_OAokFLQZjL0wyNNBAaFs0Bc5ZQ_mbpyX7jpcIv8Syh9g7Ycg_JTS1XqrMmrzhvUNcyhSA7n8xjTes-RasVvtA9J7SeckuPDVXf5blyVBT3XoHTvxOf-2Mahtr90EGQ/s1600/SSCM-XP-Confirmation-787000.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533868599195002114" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPV4uXHtQkg6M-_OAokFLQZjL0wyNNBAaFs0Bc5ZQ_mbpyX7jpcIv8Syh9g7Ycg_JTS1XqrMmrzhvUNcyhSA7n8xjTes-RasVvtA9J7SeckuPDVXf5blyVBT3XoHTvxOf-2Mahtr90EGQ/s320/SSCM-XP-Confirmation-787000.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">5.<span style="font: 7pt "Times New Roman";"> </span>Tunggu beberapa saat, kemudian Anda akan melihat perubahan pada kolom <b>Log On As</b> menjadi <b>LocalSystem</b>.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhobG7oH9F1_bE4eXlj24nw-89hNAQ6xWMZOS2shKiAEDkHErxcFpMc4oxWbH5GAxqlVFlQuDh2KsQt9VRVo_P5EFtlkHP2TDH4umOAYLxljFCFL7LR-AfXZEcvHBD-9MQls-sRzhss7e0/s1600/SSCM-XP-SelectSQLExpress-788437.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533868603096906498" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhobG7oH9F1_bE4eXlj24nw-89hNAQ6xWMZOS2shKiAEDkHErxcFpMc4oxWbH5GAxqlVFlQuDh2KsQt9VRVo_P5EFtlkHP2TDH4umOAYLxljFCFL7LR-AfXZEcvHBD-9MQls-sRzhss7e0/s320/SSCM-XP-SelectSQLExpress-788437.jpg" /></a></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div align="center" class="MsoNormal" style="text-align: center;">~ Semoga Bermanfaat ~</div><div class="MsoNormal"><br />
</div><div class="MsoNormal">Download File PDF : DOWNLOAD </div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-29423026662940934542010-10-29T19:11:00.000+07:002010-10-30T23:38:00.942+07:00Membuat Database menggunakan SQL Management Studio (SMS)<m:smallfrac m:val="off"> <m:dispdef> <m:lmargin m:val="0"> <m:rmargin m:val="0"> <m:defjc m:val="centerGroup"> <m:wrapindent m:val="1440"> <m:intlim m:val="subSup"> <m:narylim m:val="undOvr"> </m:narylim></m:intlim> </m:wrapindent> </m:defjc></m:rmargin></m:lmargin></m:dispdef></m:smallfrac><br />
<div class="MsoNormal"></div><div class="MsoNormal" style="text-align: justify;">Jika Anda ingin menggunakan SMSS, aplkasi ini harus diinstal terlebih dahulu karena secara default sewaktu install Visual Studio 2005, SMSS tidak diinstall. Berikut cara membuat database menggunakan SMSE.</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoListParagraphCxSpFirst" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">1.<span style="font: 7pt "Times New Roman";"> </span>Jalankan aplikasi SMSE, lakukan login.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;">Anda bisa melakukan login dengan menggunakan Windows Authentication</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img height="317" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzDlFhV7DKlAbee2KqSgoI0Klef-P9BvFNu_NA1n4G3qzFoY-phZegiDqLrVGufNEBQyat5WfYTdVW_aXDRIJh7H70J3ixQYHvTy47QAkx5r1jviQkaCUTnH2VqYKS52Sb4wU5k6An1AI/s800/ConnectToSQLExpress2005-789704.PNG" width="417" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;">Atau dengan menggunakan SQL Server Authentication</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img height="317" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgEA6ikoy0DIOUT2ebWKezNW8aXUeqIXryL2h4dyoVpDrL8IXV9PJB91LqosDQlUnF9j2nUDmznpNeFyeYSikjgnozJfdWnRqZpo5AU9y7m4KzJ5h-vNtfN6B7npKX8FmSQtooGd4NCT8/s800/SQLServerSQLAuth-739683.PNG" width="417" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">2.<span style="font: 7pt "Times New Roman";"> </span>Setelah Anda berhasil login ke SQL Server, maka Anda dapat membuat database dengan melakukan klik kanan pada <b>Databases</b> > kemudian klik <b>New Database…</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjz8jBKhYfEK29YVXqCJ7ndbt0XX_6E-fTowLM3HtNQzZUbAr9sLaeaRdzXMMbvMVc5MjYgawlgppW4MvbUI80pKW9FcGc7zi64aW-D8oRxNGnzMp6cpe-dkxV93VCeKehSPZJpcXMv3ko/s1600/CreateNewDatabase-780708.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811021231331826" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjz8jBKhYfEK29YVXqCJ7ndbt0XX_6E-fTowLM3HtNQzZUbAr9sLaeaRdzXMMbvMVc5MjYgawlgppW4MvbUI80pKW9FcGc7zi64aW-D8oRxNGnzMp6cpe-dkxV93VCeKehSPZJpcXMv3ko/s320/CreateNewDatabase-780708.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">3.<span style="font: 7pt "Times New Roman";"> </span>Masukkan nama database pada <b>Database name:</b>, kemudian klik tombol <b>OK</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811019515103538" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAnjbwFMz3CNsTtDD6R-5mqjxd45X7bzgfirVW130HP4_Za4PEn3VISwQPebQUSsgxkwAjy2bpYA7rEze0E2xOD25gZXoBy-yMqKDq9dz6ezzniTCfIYFGx_Qbzef4eYMkBF19qVdpdSI/s320/TypeDatabaseName-781603.PNG" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">4.<span style="font: 7pt "Times New Roman";"> </span>Jika database telah berhasil dibuat maka sekarang untuk membuat tabel klik <b>[nama database]</b> > klik kanan pada <b>Tables</b> > kemudian klik <b>New Table…</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811025415673938" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3wcWLgW5YFAx0sCYE5OoOaskYYYPhxk6wdwlJv-inNbdiWi1nM_jLy396FPBb2IWr0abhaWqJWFYgV90RTDWV8Qrd4QR4vxF6MYnm-9yaSp2q5dp42rsykiOvzpSv3E4FyZZUES4_Q60/s320/NewTable-782416.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">5.<span style="font: 7pt "Times New Roman";"> </span>Masukkan field yang diperlukan kemudian klik tombol <b>Save (Ctrl+S)</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811028116176610" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizkJExREQZy0bP74COT4sZtKQuAt_EqDObDQ1nQxRN5j-pze6UZ6bR7ieR-mu9KkH0T3iJO1I-8DmiVWsLwbNe8CWWAutjdPE43WefoNqhTS3LD_ILUBKvnLWoOOGGJUr7gYuo1kVVCHs/s320/NewTableField-783131.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">6.<span style="font: 7pt "Times New Roman";"> </span>Masukkan nama tabel yang dibuat kemudian klik tombol <b>OK</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811033993707186" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjuvoKhZDVX4c6J2o0oWEq7t_O1K8vbv3p-2tzYDiKAh54iC49NHNRWhtp3AWXYyavODBSIRV7EirmkSpiiBDvJ6nr4CgMg5o1Vw92x67Ttimi0jIovUDpYT4Rh3fbUBew8qBFjERa7FOY/s320/SaveTableName-784600.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;"><b>7.<span style="font: 7pt "Times New Roman";"> </span></b>Secara default file database yang dibuat akan berada pada Drive C:\Program Files\Microsoft SQL Server\MSSQL.<b>X</b>\MSSQL\Data (X merupakan nomor urutan instance, biasanya jika Anda tidak membuat instance lainnya maka X=1). Database yang Anda buat terdapat 2 file yaitu <b>.mdf</b> dan <b>.ldf. <span style="color: red;">NB:</span></b><span style="color: red;"> <b>Untuk menghindari database hilang jika terjadi kerusakan pada OS maka sebaiknya database dipindahkan ke drive lainnya misalnnya D:</b></span><b> </b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811037760453394" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhSsXTU9qsnoeKKSzbiX2mweCzd5WTwkXVkldM_qHCSwziK6lM1BLq4nCvb5ge74nBtctB3jyau1LyUWVD9LBaqqnK-rzFQGceCi3fTC1ksm0qi6sCqkO6IVO6P8yI1RGxf7bcTBroytwM/s320/DatabaseRoot-785240.PNG" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">8.<span style="font: 7pt "Times New Roman";"> </span>Sebelum Anda memindahkan database (.mdf & .ldf) Anda harus melakukan <b>detach</b> database (melepaskan database dari SMSE) terlebih dahulu. Klik kanan pada database yang Anda buat > kemudian pilih <b>Tasks</b> > klik <b>Detach…</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811042713838674" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFiJB17zeUJdbU1MTKdhl1HoV67krAZz42mbAlsBVF8daqVpyyWgRHcduBQf0lgut9lTvgokZb7wUIpeOl8tUMWIQxJqdWgGd7rJqBprN3YT9rbrtnVdg4ri5Ku_lYPIyndtWbHc_8vwU/s320/DetachDatabase-785929.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">9.<span style="font: 7pt "Times New Roman";"> </span>Jika detach berhasil, pindahkan file <b>.mdf</b> & <b>.ldf</b> pada langkah nomor 7 ke-drive yang Anda inginkan.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">10.<span style="font: 7pt "Times New Roman";"> </span>Sekarang <b>attach</b> kembali database yang telah Anda buat sebelumnya, klik kanan pada <b>Databases </b>> klik <b>Attach…</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNih6gbNxJyl8p7AzF5SVCA9CIUijMvJhG1OUVWDctOnUKIMngjMC3lEJOzSnx9YRmi7tKOdwXIvKXzhyphenhyphenpIStQe8jte0FuztiUtT6OzdpPRPkzpvWZrpuYBW2AQhOXmh1Yd_XQqq85rsQ/s1600/AttachDatabase-786559.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811039095153762" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNih6gbNxJyl8p7AzF5SVCA9CIUijMvJhG1OUVWDctOnUKIMngjMC3lEJOzSnx9YRmi7tKOdwXIvKXzhyphenhyphenpIStQe8jte0FuztiUtT6OzdpPRPkzpvWZrpuYBW2AQhOXmh1Yd_XQqq85rsQ/s320/AttachDatabase-786559.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">11.<span style="font: 7pt "Times New Roman";"> </span>Pilih lokasi dimana tempat Anda memindahkan file database, hanya file <b>.mdf </b>yang muncul, kemudian klik <b>OK.</b> </div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811047057816674" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWwxlu52W4JQXT8FOtp-haPRdj7RvB3Ggj2QdXG-kFDU4-2uRdAddmjwsKJWdOd7-ETEmpUYFh04yXahet1AHiWuUlHN640hogRExWpqbGeQqPZ5kyCbwxZdgTTZVTyklvQ-mOBi5Hx9s/s320/AttachDatabaseLocation-787346.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">12.<span style="font: 7pt "Times New Roman";"> </span>Setelah selesai memilih lokasi database, akan muncul jendela seperti di bawah, klik <b>OK</b>.<span style="color: red;"></span></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811050505159410" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKBZzcvVWfjMw_PKKK9muZIlQIZAHyPOp0V3YgBalfYQXMOCCPjgnT4-CBsazd2bivZJ5WhGm1S8cuLj5VPeP89VJllFOI_gi40XgbvTLPCnwBQ9VgouS905q4gFpoVS45l2VUnGKCL0M/s320/AttachDatabaseFinal-787981.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;">Jika terjadi error, hal ini terjadi karena secara default SQL Server Log On As adalah <b>Network Service</b>, lakukan penggantian Log On As menjadi <b>Local System</b>, <a href="http://learningisnice.blogspot.com/2010/10/mengganti-sql-server-2005-express-log_30.html" target="_blank">caranya disini</a>.<span style="color: #002060;"></span></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811053364732642" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh57BzhnMkPDYncVotkOY4RgHM8MW45cGpf-5xB1u6EMRC8StGVVK4SI4s_PqqEYlv-ANS-Pmw5uHXXQZ1qV5vlIY3USW5krrMtTNq89GevObHPiQugjXxOIhFLRuBRntCoPcZ9SWJgUBA/s320/AttachError1-788854.jpg" /></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">13.<span style="font: 7pt "Times New Roman";"> </span>Silahkan refresh database dengan klik kanan pada <b>Databases</b> > kemudian klik <b>Refresh</b>. Maka akan tampak database yang di-attach sebelumnya dalam keadaan <b>Read-Only</b>, lakukan detach database tersebut.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 20.25pt; text-align: justify;"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533811055620697522" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiDWSrWlBaFMsOtfdyrFPIF5CrgORdt8DbneQHOUxULVJqA-rMplpajHtljpO6GbWxNIu2TZYZm3yXVjtgvsPlUyyWSN3QH4fFsCJrhzc6Ab7lyO-55QvYfkZsNUFO9lbig4D4bTzd9YzQ/s320/AttachDatabaseReadOnly-789536.jpg" /></div><div class="MsoListParagraphCxSpLast" style="margin-left: 20.25pt; text-align: justify; text-indent: -18pt;">14.<span style="font: 7pt "Times New Roman";"> </span>Jika Anda sudah mengganti Log On As menjadi <b>Local System</b> dan database yang <b>Read-Only</b>, silahkan coba <b>attach</b> kembali database dari langkah nomor 10.</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div align="center" class="MsoNormal" style="text-align: center;">~ Semoga Bermanfaat ~</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Download File PDF : DOWNLOAD</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-17484770353930274612010-10-28T08:26:00.000+07:002010-10-30T22:32:11.938+07:00Cara Membuat Database dari Visual Studio 2005<div class="MsoNormal" style="text-align: justify;">Sebenarnya tanpa kita meng-install SQL Management Studio Express (SMSE), Visual Studio 2005 sudah menyediakan fasilitas atau tool untuk membuat database, berikut langkah membuat database tanpa menggunakan SMSE.</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoListParagraphCxSpFirst" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">1.<span style="font: 7pt "Times New Roman";"> </span>Buka aplikasi Visual Studio 2005, klik menu <b>View</b> > <b>Server Explorer (Ctrl+Alt+S)</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0YuOD0aXuuhrgxUr8oSNvlkpTARGesBK_BDJKheCXT9OGjfIQjnrci35jJCTNePHynLBpc7G658rY82x7GsjhtMWU02idL52Qe_re68iewC8qzX9T0cBYDRuQUVuqEPcmTvHI-5RWphs/s1600/ServerExplorer-727117.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533409206343573922" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj0YuOD0aXuuhrgxUr8oSNvlkpTARGesBK_BDJKheCXT9OGjfIQjnrci35jJCTNePHynLBpc7G658rY82x7GsjhtMWU02idL52Qe_re68iewC8qzX9T0cBYDRuQUVuqEPcmTvHI-5RWphs/s320/ServerExplorer-727117.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">2.<span style="font: 7pt "Times New Roman";"> </span>Akan muncul Server Explorer pada sisi pane sebelah kiri, untuk membuat database. Klik kanan pada <b>Database Connections</b> > <b>Create New SQL Server Database</b></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLnpXD66G42xFx91voYQP10MantdM3XC4FO3kPMJQ2462ok-ju5tyVTNRco-AlkmuHafUFAtj6v8Utar6G3q42OA0pMo11lZLNSzMv-4ychlBf_BX3RECDtmdtVq5cPlA2BYEIvWvhl5U/s1600/CreateNewDB-VS2005-728082.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533409210981410930" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLnpXD66G42xFx91voYQP10MantdM3XC4FO3kPMJQ2462ok-ju5tyVTNRco-AlkmuHafUFAtj6v8Utar6G3q42OA0pMo11lZLNSzMv-4ychlBf_BX3RECDtmdtVq5cPlA2BYEIvWvhl5U/s320/CreateNewDB-VS2005-728082.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">3.<span style="font: 7pt "Times New Roman";"> </span>Akan muncul jendela Create New SQL Server Database, masukkan Server name: <b>.\SQLExpress</b>, pada group box Log on to the server, Anda dapat menggunakan <b>Use Windows Authentication</b> atau <b>Use SQL Server Authentication</b> (jika Anda menggunakan metode ini maka Anda harus memasukkan <b>Username:</b> dan <b>Password:</b> ), kemudian masukkan nama database yang ingin Anda buat pada <b>New database name:</b>, kemudian klik tombol OK</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBPeL-eALOy86VFzIBhLCN6igbr5m3Q-bIUSC99H1O_xDnOuxRkFyr4XfwZ_4kEJa3ZJ9G9K8w22lGoKROOw_Ji8pdRa1dtFA3HnQepXoeAEVsenj1rJ_anPW8_s0y-r2xkUZ4A5_ofIY/s1600/CreateNewSQLDatabase-728693.PNG"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533409212280976530" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgBPeL-eALOy86VFzIBhLCN6igbr5m3Q-bIUSC99H1O_xDnOuxRkFyr4XfwZ_4kEJa3ZJ9G9K8w22lGoKROOw_Ji8pdRa1dtFA3HnQepXoeAEVsenj1rJ_anPW8_s0y-r2xkUZ4A5_ofIY/s320/CreateNewSQLDatabase-728693.PNG" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">4.<span style="font: 7pt "Times New Roman";"> </span>Setelah database berhasil dibuat, untuk membuat tabel klik Database Connections > [Nama Database] > klik kanan pada Tables kemudian klik Add New Table</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8Lb1Htbdv8M7v4oaAeyVqH_avyRdoe1n4EVLx-IA_KBgAdlGs91jE_ZbzQepwja6W46aQP6MeiYaXutx1Il2RLThUTw-bJSU3IDRStcPcHSPxhB9XtNuAXlUfaZqd4IF2ZxqtA2atgGU/s1600/AddNewTable-VS2005-729380.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533409217909564962" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi8Lb1Htbdv8M7v4oaAeyVqH_avyRdoe1n4EVLx-IA_KBgAdlGs91jE_ZbzQepwja6W46aQP6MeiYaXutx1Il2RLThUTw-bJSU3IDRStcPcHSPxhB9XtNuAXlUfaZqd4IF2ZxqtA2atgGU/s320/AddNewTable-VS2005-729380.jpg" /></a></div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">5.<span style="font: 7pt "Times New Roman";"> </span>Silahkan masukkan nama field yang diinginkan kemudian klik tombol Save (Ctrl+S) kemudian masukkan nama tabel yang diinginkan.</div><div class="MsoListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgl8zGRDI3baRxAedrRqimD-5qedIFv1PxbtkU9VP_SBzzytjzk-c2ffK3QMGnbjJwJf1nbg-bO17T6KWGCagBGpoFkKIgzQgHoLfdNp3GWpyYhgx8G4TvMhPDrhcHDHzbbTy-nEMrRRxc/s1600/Table-VS2005-729986.jpg"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5533409219777963842" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgl8zGRDI3baRxAedrRqimD-5qedIFv1PxbtkU9VP_SBzzytjzk-c2ffK3QMGnbjJwJf1nbg-bO17T6KWGCagBGpoFkKIgzQgHoLfdNp3GWpyYhgx8G4TvMhPDrhcHDHzbbTy-nEMrRRxc/s320/Table-VS2005-729986.jpg" /></a></div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div align="center" class="MsoNormal" style="text-align: center;">~ Semoga Bermanfaat ~</div><div class="MsoNormal" style="text-align: justify;"><br />
</div><div class="MsoNormal" style="text-align: justify;">Download File PDF : DOWNLOAD</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-65408864960893334562010-10-18T22:51:00.000+07:002010-10-21T19:07:13.127+07:00Membuat Form Koneksi ke SQL Server<div style="text-align: justify;">Berikut contoh senderhana membuat form untuk menyimpan connection string yang digunakan untuk melakukan koneksi ke SQL Server, silahkan melakukan pengembangan jika diperlu. </div><br />
<div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFInZZ7ZUFwOB7BY0bKGxCL86SJ-AriMi4eebZNKamzEjYFe4qTZkL97_EMmgUekyqVltMy3wqd9S3lLgSxJZs69hy4EDPgUN8SRe29MdOq12wXMeELYPhhNCq7EI-tOXccswapMgcf7w/s1600/frmConnection.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="290" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjFInZZ7ZUFwOB7BY0bKGxCL86SJ-AriMi4eebZNKamzEjYFe4qTZkL97_EMmgUekyqVltMy3wqd9S3lLgSxJZs69hy4EDPgUN8SRe29MdOq12wXMeELYPhhNCq7EI-tOXccswapMgcf7w/s320/frmConnection.jpg" width="320" /></a></div><br />
<br />
<br />
Jika koneksi ke SQL Server berhasil maka akan muncul pesan sebagai berikut:<br />
<br />
<div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL7cUMONJxxdLCX061nSv2OCmBPPIADAonJTNLhWKmeQzk9G1KlHBANNEhvp8a7tmbI4YLoqkQQkoiRgoAbByKFkoQpcXnl0tZQFYtAVPnZFskWi7ryqtLNKmG5qKXB0XDDiRmWjXReCg/s1600/connectionsuccess.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhL7cUMONJxxdLCX061nSv2OCmBPPIADAonJTNLhWKmeQzk9G1KlHBANNEhvp8a7tmbI4YLoqkQQkoiRgoAbByKFkoQpcXnl0tZQFYtAVPnZFskWi7ryqtLNKmG5qKXB0XDDiRmWjXReCg/s1600/connectionsuccess.jpg" /></a></div><br />
<br />
<br />
Cara kerja: <br />
<div style="text-align: justify;"><span style="font-family: Symbol;">·<span style="font: 7pt "Times New Roman";"> </span></span>Jika user meng-klik tombol <b>Test Connection</b>, maka program akan melakukan pengujian koneksi ke SQL Server </div><div style="text-align: justify;"><span style="font-family: Symbol;">·<span style="font: 7pt "Times New Roman";"> </span></span>Jika user meng-klik tombol <b>Save</b>, dan jika pengaturan koneksi sudah benar dan koneksi berjalan normal maka <i>connection string</i> akan disimpan. </div> <br />
Code : <br />
<br />
<span style="color: green; font-family: "Courier New"; font-size: 10pt;">'untuk STREAM WRITER</span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.IO</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="color: green; font-family: "Courier New"; font-size: 10pt;">'untuk SQL CONNECTION</span><br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.Data</span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.Data.SqlClient</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> frmDatabaseConnect</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'deklarasi variabel</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> SW <span style="color: blue;">As</span> StreamWriter</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> sqlConn <span style="color: blue;">As</span> SqlConnection</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> m_ConnString <span style="color: blue;">As</span> <span style="color: blue;">String</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'menentukan path dari file EXE, untuk meletakan file Connection String</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> myPath <span style="color: blue;">As</span> <span style="color: blue;">String</span> = AppDomain.CurrentDomain.BaseDirectory</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;">#<span style="color: blue;">Region</span> <span style="color: maroon;">"Message Box"</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> ValidationMessage(<span style="color: blue;">ByVal</span> strMessage <span style="color: blue;">As</span> <span style="color: blue;">String</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(strMessage, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"Database Connect - Validation"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Warning)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;">#<span style="color: blue;">End</span> <span style="color: blue;">Region</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> prepare4start()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtServer.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cbxUseWA.Checked = <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtUserID.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtPassword.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtDatabase.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtServer.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> initWindowsAuthentication()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtUserID.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtPassword.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> cbxUseWA.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtUserID.ReadOnly = <span style="color: blue;">True</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtPassword.ReadOnly = <span style="color: blue;">True</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtDatabase.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtUserID.ReadOnly = <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtPassword.ReadOnly = <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Function</span> validateInput() <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> txtServer.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> ValidationMessage(<span style="color: maroon;">"Please input SERVER NAME"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtServer.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtServer.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> cbxUseWA.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> txtUserID.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> ValidationMessage(<span style="color: maroon;">"Please input USER ID"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtUserID.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtUserID.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtPassword.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> ValidationMessage(<span style="color: maroon;">"Please input PASSWORD"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtPassword.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtPassword.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> txtDatabase.Text.Trim = <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> ValidationMessage(<span style="color: maroon;">"Please input DATABASE NAME"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtDatabase.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtDatabase.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Function</span> tryConnection() <span style="color: blue;">As</span> <span style="color: blue;">Boolean</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'cek validasi input dari user</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> validateInput() = <span style="color: blue;">False</span> <span style="color: blue;">Then</span> <span style="color: blue;">Exit</span> <span style="color: blue;">Function</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> cbxUseWA.Checked = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = <span style="color: maroon;">"Integrated Security=SSPI"</span> & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";Persist Security Info=False"</span> & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";Initial Catalog="</span> & txtDatabase.Text.Trim & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";Data Source="</span> & txtServer.Text.Trim</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> cbxUseWA.Checked = <span style="color: blue;">False</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = <span style="color: maroon;">"Password="</span> & txtPassword.Text.Trim & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";Persist Security Info=True"</span> & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";User ID="</span> & txtUserID.Text.Trim & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";Initial Catalog="</span> & txtDatabase.Text.Trim & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">";Data Source="</span> & txtServer.Text.Trim</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> m_ConnString = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn = <span style="color: blue;">New</span> SqlConnection(m_ConnString)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mencoba untuk membuka koneksi ke SQL Server</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Open()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika koneksi berhasil maka akan mengembalikan nilai TRUE</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">True</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"Database Connect - ERROR"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Error)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika koneksi gagal maka akan mengembalikan nilai FALSE</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Return</span> <span style="color: blue;">False</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Finally</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika koneksi dalam keadaan terbuka, maka koneksi akan ditutup</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> sqlConn.State = ConnectionState.Open <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sqlConn.Close()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Function</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> cbxUseWA_CheckedChanged(<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> cbxUseWA.CheckedChanged</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> initWindowsAuthentication()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> frmDatabaseConnect_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> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> prepare4start()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> initWindowsAuthentication()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnSave_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> btnSave.Click</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Try</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'ClientObject.ini merupakan file yang dibuat dengan NotePad</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'hanya extention file yang diganti dari .txt menjadi .ini</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(myPath & <span style="color: maroon;">"ClientObject.ini"</span>) <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> File.Delete(myPath & <span style="color: maroon;">"ClientObject.ini"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> tryConnection() = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'membuat file ClientObject.ini baru</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> SW = <span style="color: blue;">New</span> StreamWriter(myPath & <span style="color: maroon;">"ClientObject.ini"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'menulis connection string ke file text</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> SW.WriteLine(m_ConnString)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Save succeed"</span>, <span style="color: maroon;">"Database Connect - Information"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Information)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> prepare4start()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Catch</span> ex <span style="color: blue;">As</span> Exception</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(ex.Message, <span style="color: maroon;">"Database Connect - ERROR"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Error)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Finally</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> SW <span style="color: blue;">Is</span> <span style="color: blue;">Nothing</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> SW.Close()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Try</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnTest_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> btnTest.Click</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> tryConnection() = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Connection to database succeed"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"Database Connect - Information"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxButtons.OK, MessageBoxIcon.Information)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span> <br />
<br />
Download Source Lengkap : <a href="http://www.mediafire.com/?4reff9mmlv68c7f" target="_blank">DOWNLOAD</a>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com5tag:blogger.com,1999:blog-5867067531114317021.post-37278427270500975772010-10-18T22:32:00.000+07:002010-10-19T23:08:33.286+07:00Langkah-langkah menguji koneksi ke SQL Server<div class="MsoNormal" style="text-align: justify;"><b><span style="font-size: 13pt;">Langkah-langkah menguji koneksi ke SQL Server</span></b></div><div class="ListParagraphCxSpFirst" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">1.<span style="font: 7pt "Times New Roman";"> </span>Buat sebuah file text dengan menggunakan “NotePad”, kemudian buka file tersebut.</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">2.<span style="font: 7pt "Times New Roman";"> </span>Klik File > Save As…</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIuoWsFKB-9F7bmz2ukFB3QwXHK-ihw03kJUNLevKpj_dg1ZV-CXeIBxLeYlcj0226FDIBRplRfttQ2p-hwDxSVGgImtoSSjKIJ_iBG0LbuVtVwByuz1Kwq3i5y44xemI52fEDP9ci-r4/s1600/udl1.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgIuoWsFKB-9F7bmz2ukFB3QwXHK-ihw03kJUNLevKpj_dg1ZV-CXeIBxLeYlcj0226FDIBRplRfttQ2p-hwDxSVGgImtoSSjKIJ_iBG0LbuVtVwByuz1Kwq3i5y44xemI52fEDP9ci-r4/s1600/udl1.jpg" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">3.<span style="font: 7pt "Times New Roman";"> </span>Pada ComboBox <b>Save as type</b> diganti menjadi <b>All Files</b>, kemudian untuk <b>File name</b> masukan nama yang diinginkan dengan memberikan extensi (<i>extention</i>) <b>.udl</b>, lalu klik Save</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9duOwlQeZpoQ7Gr8tLPDKtQGlv2SUR0h3b-A4IADGymjBGEW77LYH2hk_ZgPDIaiAzESF1P_EG6FDHNsUvKkLRnFyubflB_FBQ-38rzUpWNvGAxXmh2fZ2Trx0UeFhJx0B6gPht4EQhs/s1600/udl2.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="125" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj9duOwlQeZpoQ7Gr8tLPDKtQGlv2SUR0h3b-A4IADGymjBGEW77LYH2hk_ZgPDIaiAzESF1P_EG6FDHNsUvKkLRnFyubflB_FBQ-38rzUpWNvGAxXmh2fZ2Trx0UeFhJx0B6gPht4EQhs/s400/udl2.jpg" width="400" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">4.<span style="font: 7pt "Times New Roman";"> </span>Buka file yang dibuat dengan extensi .udl tadi, kemudian pilih tab <b>Provider</b>, pilih <b>Microsoft OLE DB Provider for SQL Server</b>, klik Next >> atau pilih tab <b>Connection</b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4malWmmkrTI_qtSo8iyd6ryllZGbTJ1iv-XOLTvYwBSEpthCJqZxO-sDDM0xXx06D9uw96Eg7yYe_S_18kTUY7N0Dnh9WqK9fzPBhgDbhQ0TWYOLtawYk8isfkCVU_nS2G8cPeYTYDYo/s1600/udl3.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4malWmmkrTI_qtSo8iyd6ryllZGbTJ1iv-XOLTvYwBSEpthCJqZxO-sDDM0xXx06D9uw96Eg7yYe_S_18kTUY7N0Dnh9WqK9fzPBhgDbhQ0TWYOLtawYk8isfkCVU_nS2G8cPeYTYDYo/s400/udl3.jpg" width="317" /></a></div><b><br />
</b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-align: justify; text-indent: -18pt;">5.<span style="font: 7pt "Times New Roman";"> </span>Masukan nama server pada <b>Select or enter a server name</b>, pada urutan nomor 2 Enter the information to log on to the server, terdapat 2 pilihan:</div><div class="ListParagraphCxSpMiddle" style="margin-left: 42.55pt; text-align: justify; text-indent: -18pt;"><span style="font-family: Symbol;">·<span style="font: 7pt "Times New Roman";"> </span></span> <i>Use Windows NT Integreted security</i>, pilihan ini digunakan jika ingin login ke SQL Server dengan menggunakan login Windows. Masukan nama database pada <b>Select the database on the server</b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 42.55pt; text-align: justify;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYNi6FEWhI0Oosgj5D1GbBOm5wAPg9gIbC9fmCCAxJSjhhFp0oPpHRI_i1OEn5T2KkZhBsC9vSLIo3NpSiseHOCTR_xeP9YjHjgnqURkwi0tMdNkaXkaIdw-wMxolX_h0C50jsiGe1zRU/s1600/udl4.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYNi6FEWhI0Oosgj5D1GbBOm5wAPg9gIbC9fmCCAxJSjhhFp0oPpHRI_i1OEn5T2KkZhBsC9vSLIo3NpSiseHOCTR_xeP9YjHjgnqURkwi0tMdNkaXkaIdw-wMxolX_h0C50jsiGe1zRU/s400/udl4.jpg" width="316" /></a></div><b> </b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 42.55pt; text-align: justify; text-indent: -18pt;"><span style="font-family: Symbol;">·<span style="font: 7pt "Times New Roman";"> </span></span><i>Use a specific username and password</i>, pilihan ini digunakan jika ingin login ke SQL Server dengan menggunakan username & password yang telah dibuat pada SQL Server (biasanya digunakan pada sistem yang bersifat client server). Masukan <b>User name</b> dan <b>Password</b>, untuk login ke SQL Server (NB: bukan username & password untuk login ke Windows), centang/contreng <b>Allow saving password</b>. Masukan nama database pada <b>Select the database on the server</b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 42.55pt; text-align: justify;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHCf6iSIGBTVIcXvMaCRLfM9OWiLVbxzOB_A5b34nlu_rcaJQTFlJBCbU_KtopeYZWDtgzWK582NYszaKgqp4eXkGbWaXsEp8GEX-zKB_f7xqD6tU39c-7nEQ2bGHPk4laBb8L0UdDeBM/s1600/udl5.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHCf6iSIGBTVIcXvMaCRLfM9OWiLVbxzOB_A5b34nlu_rcaJQTFlJBCbU_KtopeYZWDtgzWK582NYszaKgqp4eXkGbWaXsEp8GEX-zKB_f7xqD6tU39c-7nEQ2bGHPk4laBb8L0UdDeBM/s400/udl5.jpg" width="316" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 42.55pt;"></div><div class="ListParagraphCxSpMiddle" style="margin-left: 24.55pt; text-align: justify;">Untuk melakukan pengujian apakah koneksi sudah benar atau SQL Server berjalan dengan lancar, klik Test Connection. Jika berhasil maka akan muncul pesan seperti di bawah ini</div><div class="ListParagraphCxSpMiddle" style="margin-left: 24.55pt; text-align: justify;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiIrwPjwHTD218zUO1gMGMvvAq6QThEFEPojcAxBaxruiK46qA1Rm3Hex6REjFysFAckPhaa_KXk9SvZHZ7tUUaCK2-_BfdskS6M5NpJuGJFhtveoXEyRwD43MVIcWvjEBBpHBsGTMBXk/s1600/udl6.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgiIrwPjwHTD218zUO1gMGMvvAq6QThEFEPojcAxBaxruiK46qA1Rm3Hex6REjFysFAckPhaa_KXk9SvZHZ7tUUaCK2-_BfdskS6M5NpJuGJFhtveoXEyRwD43MVIcWvjEBBpHBsGTMBXk/s1600/udl6.jpg" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 24.55pt; text-align: justify;">Jika memilih untuk login tidak dengan Windows Authentication / Integrated Security, dan mencentang pilihan Allow saving password, maka akan muncul pesan seperti di bawah ini, klik Yes.<br />
<div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFmmA1JV2Uke5b8d0hS4DgN2gjXtne46IUJs5gHpHxpshp1qB3UlG1HxKCC7QtwCwlrTIr-gCpGvzk_XmvV4SSSJ06iMiHxwm9mI8LxGlwZRFyzwdY4eT44-70h91UjWgv8PTsjoMe2a0/s1600/udl7.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="86" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFmmA1JV2Uke5b8d0hS4DgN2gjXtne46IUJs5gHpHxpshp1qB3UlG1HxKCC7QtwCwlrTIr-gCpGvzk_XmvV4SSSJ06iMiHxwm9mI8LxGlwZRFyzwdY4eT44-70h91UjWgv8PTsjoMe2a0/s400/udl7.jpg" width="400" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-indent: -18pt;">6.<span style="font: 7pt "Times New Roman";"> </span>Untuk mengambil / meng-copy <i>connection string</i>, klik kanan pada file .udl yang telah dibuat (tentunya setelah dilakukan pengaturan koneksi ke SQL Server), pilih <b>Open With</b> > <b>Notepad</b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdB5bCeYUU-4hDp76r9jRQgQjPtQxNArOrBCnVEjG9kFhN1YN8e5QRmWGDq6KkTW9DsMoX5EqCbBmDLsH1FHFYIGH3xYFkMkiDBKu4_bPMWO7AoG8mMhYuLozP07G6bXr1WjgZqwXstjU/s1600/udl8.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="174" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjdB5bCeYUU-4hDp76r9jRQgQjPtQxNArOrBCnVEjG9kFhN1YN8e5QRmWGDq6KkTW9DsMoX5EqCbBmDLsH1FHFYIGH3xYFkMkiDBKu4_bPMWO7AoG8mMhYuLozP07G6bXr1WjgZqwXstjU/s400/udl8.jpg" width="400" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt; text-indent: -18pt;">7.<span style="font: 7pt "Times New Roman";"> </span>Maka file tersebut akan berisi beberapa baris text, seperti gambar di bawah ini.</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><div class="separator" style="clear: both; text-align: left;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgq7vvXCdXHbDjjReIqQ63y7NbuvMWGerDzPFdCBysX7GtiYDBiYZgbFDTO8Uz21WZAMZRxYAzGxV5x-wGwunD8atUhjLppyPBAcKZnIBN4CcLsLhQxUBYDRGw4EGzCjYF647na7jmg6u8/s1600/udl9.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;"><img border="0" height="76" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgq7vvXCdXHbDjjReIqQ63y7NbuvMWGerDzPFdCBysX7GtiYDBiYZgbFDTO8Uz21WZAMZRxYAzGxV5x-wGwunD8atUhjLppyPBAcKZnIBN4CcLsLhQxUBYDRGw4EGzCjYF647na7jmg6u8/s400/udl9.jpg" width="400" /></a></div><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><br />
<br />
<br />
<br />
Silahkan copy <i>conection string</i> mulai dari setelah <b>Provider=SQLOLEDB.1;</b></div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;">Jika memilih <i>Use Windows NT Integreted security</i>, maka conection string sbb:</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><span style="color: #1f497d; font-family: "Courier New";">Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=master;Data Source=(local)</span></div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;">Jika memilih <i>Use a specific username and password</i>, maka connection string sbb:</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><span style="color: #1f497d; font-family: "Courier New";">Password=12345678;Persist Security Info=True;User ID=sa;Initial Catalog=master;Data Source=(local)</span></div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;"><br />
</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;">Keterangan:</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;">Initial Catalog (Nama DATABASE)</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;">Data Source (Nama SERVER)</div><div class="ListParagraphCxSpMiddle" style="margin-left: 21.3pt;">Password (Password user SQL Server)</div><div class="ListParagraphCxSpLast" style="margin-left: 21.3pt;">User ID (User ID SQL Server)</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-68180971694549192692010-10-16T22:23:00.000+07:002010-10-19T22:41:16.875+07:00Simple Calculator<div style="text-align: justify;">Dibuat menggunakan VB.Net 2005, dalam materi ini berisikan contoh beberapa control seperti : textbox, label, combobox, listbox dan button. Materi ini juga menggunakan Variabel, yang digunakan untuk menampung data secara sementara</div><br />
<div style="text-align: center;"><span style="font-size: small;"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgr0auY0K1cZQcQvLSXONuLfE1XS4fwZIPjrvJyg6_0e520wQHkIQ4cx9xUbJv5fIMBK1gqLFzP4bl8npWpJ87vUIRz3t-ZoKlo5LSvkgU75T6eBuuIYs6hNj2TWoiX3PuOmMnyNJkaJbk/s1600/SimpCalc.png" /></span></div><div style="font-family: inherit;"><span style="font-size: small;"> </span> </div><div style="font-family: inherit;"><span style="font-size: small;">Code:</span> </div><br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form1</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Form1_Load(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <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> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengisi nilai ComboBox Operator</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboOperator.Items.Add(<span style="color: maroon;">"+ ""Tambah"""</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboOperator.Items.Add(<span style="color: maroon;">"- ""Kurang"""</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboOperator.Items.Add(<span style="color: maroon;">"* ""Kali"""</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboOperator.Items.Add(<span style="color: maroon;">"/ ""Bagi"""</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnProcess_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnProcess.Click</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'variabel -> berfungsi untuk menampung data sementara</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> sng1stNumber, sng2ndNumber, sngResult <span style="color: blue;">As</span> <span style="color: blue;">Single</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'jika user mengisi TextBox txt1stNumber, txt2ndNumber</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'dengan karakter selain angka, maka tidak akan diproses</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> IsNumeric(txt1stNumber.Text) = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan angka pada TextBox 1stNumber"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"WARNING"</span>, MessageBoxButtons.OK, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxIcon.Warning)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'memberikan nilai textbox menjadi 0 (nol)</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txt1stNumber.Text = 0</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'membuat cursor berada pada textbox 1stNumber</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txt1stNumber.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'memberhentikan proses selanjutnya</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ElseIf</span> <span style="color: blue;">Not</span> IsNumeric(txt2ndNumber.Text) = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Silahkan masukkan angka pada TextBox 2ndNumber"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"WARNING"</span>, MessageBoxButtons.OK, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxIcon.Warning)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txt2ndNumber.Text = 0</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txt2ndNumber.Focus()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Exit</span> <span style="color: blue;">Sub</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengisi nilai variabel berdasarkan yang input oleh user</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sng1stNumber = <span style="color: blue;">CSng</span>(txt1stNumber.Text)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sng2ndNumber = <span style="color: blue;">CSng</span>(txt2ndNumber.Text)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sngResult = 0</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'memilih index atau urutan item yang dipilih oleh user</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'pada ComboBox cboOperator</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Select</span> <span style="color: blue;">Case</span> cboOperator.SelectedIndex</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> 0 <span style="color: green;">'tambah</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sngResult = sng1stNumber + sng2ndNumber</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> 1 <span style="color: green;">'kurang</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sngResult = sng1stNumber - sng2ndNumber</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> 2 <span style="color: green;">'kali</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sngResult = sng1stNumber * sng2ndNumber</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> 3 <span style="color: green;">'bagi</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sngResult = sng1stNumber / sng2ndNumber</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Case</span> <span style="color: blue;">Else</span> <span style="color: green;">'jika user mengisi ComboBox cboOperator </span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'dengan sembarangan maka akan menampilkan pesan</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"Operator tidak dikenal / Anda belum memilih"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"WARNING"</span>, MessageBoxButtons.OK, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBoxIcon.Warning)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Select</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtResult.Text = sngResult</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span> <br />
<br />
<br />
<span style="font-size: small;">Download Source Lengkap : <a href="http://www.blogger.com/a" target="_blank">DOWNLOAD</a> </span>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-63852292561572959402010-10-16T22:16:00.000+07:002010-10-19T22:38:36.114+07:00Stream Reader<span style="font-family: Calibri; font-size: 11pt;"></span><span style="font-family: Calibri; font-size: 11pt;"></span><span style="font-family: Calibri; font-size: small;">Stream reader digunakan untuk membaca file text, yang disimpan dalam “NotePad”, berikut contoh aplikasi sederhana untuk membaca isi dari notepad perbaris (3 baris).</span> <br />
<div style="font-family: inherit;"><span style="font-size: small;"><br />
</span></div><div style="font-family: inherit;"><div style="text-align: center;"><span style="font-size: small;"><img src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjugLYLp_CXsgrXwt8-KF1EiARZKGVtVYJBctC2ONHXKkSz9qnvJTHoygSp3nitA7XteIB010JbAYAhNrh94Bz1gBdcl6seOajCgFLU-uw9TuVFBZSqonutFclfPg4MhiARdmc7NY0yg8/s1600/StreamReader.png" /></span></div></div><div style="font-family: inherit;"><span style="font-size: small;"> </span> </div><div style="font-family: inherit;"><span style="font-size: small;">Code:</span> </div><br />
<span style="color: green; font-family: "Courier New"; font-size: 10pt;">'untuk menggunakan stream reader, harus melakukan IMPORTS component</span> <br />
<span style="color: green; font-family: "Courier New"; font-size: 10pt;">'yaitu System.IO</span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Imports</span><span style="font-family: "Courier New"; font-size: 10pt;"> System.IO</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">Public</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span> Form1</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> btnGetData_Click(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> System.Object, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.EventArgs) <span style="color: blue;">Handles</span> btnGetData.Click</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengambil lokasi file exe</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> myPath <span style="color: blue;">As</span> <span style="color: blue;">String</span> = AppDomain.CurrentDomain.BaseDirectory</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> SR <span style="color: blue;">As</span> StreamReader</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Dim</span> strBaris1, strBaris2, strBaris3 <span style="color: blue;">As</span> <span style="color: blue;">String</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengosongkan variabel</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris1 = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris2 = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris3 = <span style="color: maroon;">""</span></span> <br />
<span style="color: maroon; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengosongkan stream reader</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> sr = <span style="color: blue;">Nothing</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengecek apakah file myData.txt ada</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> File.Exists(myPath & <span style="color: maroon;">"myData.txt"</span>) <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'SR = New StreamReader(myPath & "myData.txt")</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Dim sr As StreamReader = File.OpenText(myPath & "myData.txt")</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> SR = File.OpenText(myPath & <span style="color: maroon;">"myData.txt"</span>)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris1 = SR.ReadLine</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris2 = SR.ReadLine</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris3 = SR.ReadLine</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Else</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> MessageBox.Show(<span style="color: maroon;">"File yang Anda maksud tidak ditemukan"</span>, _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: maroon;">"ERROR"</span>, MessageBoxButtons.OK, MessageBoxIcon.Error)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'SR.Close()</span></span> <br />
<span style="color: green; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Jika SR/StreamReader berisi atau tidak kosong,</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'maka SR harus ditutup</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> <span style="color: blue;">Not</span> SR <span style="color: blue;">Is</span> <span style="color: blue;">Nothing</span> = <span style="color: blue;">True</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> SR.Close()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'Jika semua variabel strBaris mempunyai isi</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">If</span> strBaris1 <> <span style="color: maroon;">""</span> <span style="color: blue;">And</span> strBaris2 <> <span style="color: maroon;">""</span> <span style="color: blue;">And</span> strBaris3 <> <span style="color: maroon;">""</span> <span style="color: blue;">Then</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'sebelum mengisi data pada TextBox, ComboBox, ListBox</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'kosongkan data terlebih dahulu</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtData.Text = <span style="color: maroon;">""</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboData.Items.Clear()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> lstData.Items.Clear()</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengisi txtData</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'vbCrLf berfungsi untuk memberikan ENTER / baris baru</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> txtData.Text = strBaris1 & vbCrLf & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris2 & vbCrLf & _</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> strBaris3</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'vbCrlF ==> visual basic Carriage return Line feed</span></span> <br />
<span style="color: green; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengisi cboData</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboData.Items.Add(strBaris1)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboData.Items.Add(strBaris2)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> cboData.Items.Add(strBaris3)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: green;">'mengisi lstData</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> lstData.Items.Add(strBaris1)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> lstData.Items.Add(strBaris2)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> lstData.Items.Add(strBaris3)</span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">If</span></span> <br />
<span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;"> </span> <br />
<span style="color: blue; font-family: "Courier New"; font-size: 10pt;">End</span><span style="font-family: "Courier New"; font-size: 10pt;"> <span style="color: blue;">Class</span></span> <br />
<br />
Download Source Lengkap : <a href="http://www.mediafire.com/?dyrrn1x6yu7voda" target="_blank">DOWNLOAD</a>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-30806092299920699882010-09-30T19:50:00.000+07:002010-10-07T06:35:44.976+07:00Algoritma dan Pemrograman I (Part 1)Pengenalan Visual Studio 2005/2008<br />
<br />
<div style="text-align: justify;">Visual studio merupakan suatu software yang terintegrasi yang digunakan untuk membangun aplikasi, visual studio berisi beberapa jenis bahasa pemrograman diantaranya VB, C#, C++, J#, ASP.NET dan sebagainya.<br />
<br />
Pada pertemuan pertama kita akan membahas mengapa kita harus menggunakan Visual Studio dengan bahasa pemrograman yang dipakai adalah Visual Basic. Visual Studio merupakan software IDE (Integrated Development Environtment) yang dibuat oleh perusahaan raksasa Microsoft. Pemrograman Visual Basic sangat populer dikarena kemudahan untuk membangun aplikasi yang cepat.<br />
<br />
<br />
Sejak komputer telah berubah dari halaman hitam (console) yang dulunya masih menggunakan DOS menjadi GUI's (Grafic User Interface) pemrograman yang berbasiskan GUI sangat populer salah satunya yaitu VB, keuntungan aplikasi berbasis GUI yaitu dapat menerima input secara acak, coba bayangkan jika Anda menggunakan aplikasi yang berbasis command prompt (perintah) data yang harus Anda input lebih dari 10 atau 20, jika Anda sekarang sudah menginput pada baris ke 20, teryata baris kedua salah, maka Anda tidak dapat langsung mengubah baris kedua.<br />
<br />
<br />
Contoh seperti dibawah:<br />
<br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><img border="0" height="132" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7SMg1H2Whv6x0E2sw798hq6xfDMUzpiQ3lRSCn8g599v2JHMs1htpJqpZvGtBHdQdIDDUco_PnPa1DUu02gBVNygjgteoNXpvtmcO21Rkgss1KjUAvI9h4qpKwTBJYL8csA5CswLuUIo/s320/console.jpg" style="margin-left: auto; margin-right: auto;" width="320" /></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Console Application</td></tr>
</tbody></table><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><img border="0" height="221" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgJrZLu6BpbZER1xCvJv1yEKwyXTU1b0xlNEfsDjSevvpUwh_yvsChq83Y0soXTI_HSqA4PwLFqLQ2uVa3JrwqmlouZLjXC8gn4WMsiPOVkzu1sbK6ABeAdmRmd1_h7KVEQ_-G93VhKdE/s320/gui.jpg" style="margin-left: auto; margin-right: auto;" width="320" /></td></tr>
<tr><td class="tr-caption" style="text-align: center;">GUI Application</td></tr>
</tbody></table><div class="separator" style="clear: both; text-align: center;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh7SMg1H2Whv6x0E2sw798hq6xfDMUzpiQ3lRSCn8g599v2JHMs1htpJqpZvGtBHdQdIDDUco_PnPa1DUu02gBVNygjgteoNXpvtmcO21Rkgss1KjUAvI9h4qpKwTBJYL8csA5CswLuUIo/s1600/console.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjgJrZLu6BpbZER1xCvJv1yEKwyXTU1b0xlNEfsDjSevvpUwh_yvsChq83Y0soXTI_HSqA4PwLFqLQ2uVa3JrwqmlouZLjXC8gn4WMsiPOVkzu1sbK6ABeAdmRmd1_h7KVEQ_-G93VhKdE/s1600/gui.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div>Ada terjadi salah penginputan pada baris alamat, yaitu BATAMA seharusnya BATAM, maka pada aplikasi yang berbasis console harus diinput dulu sampe program selesai tidak bisa langsung baris alamat akan tetapi jika berbasis GUI maka user dapat langsung merubah baris alamat dengan mengklik mouse pada kolum alamat.<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br />
</div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com0tag:blogger.com,1999:blog-5867067531114317021.post-53864812802555718472009-11-14T17:07:00.000+07:002010-10-06T19:34:57.587+07:00Membuat Form Koneksi Database dengan VB 2005<span style="font-size: small;"></span><br /><div style="text-align: justify;"><span style="font-family: inherit;">Untuk membuat suatu aplikasi agar bisa dijalankan pada sebuah jaringan diperlukan sebuah form koneksi agar </span><span style="font-style: italic;"><span style="font-family: inherit;">programmer</span></span><span style="font-family: inherit;"> tidak perlu lagi membuka </span><span style="font-style: italic;"><span style="font-family: inherit;">source code</span></span><span style="font-family: inherit;"> aplikasi untuk merubah </span><span style="font-style: italic;"><span style="font-family: inherit;">Connection String</span></span><span style="font-family: inherit;">-nya. Hal ini sangat berguna jika aplikasi dijalankan pada komputer yang berlainan dengan </span><span style="font-style: italic;"><span style="font-family: inherit;">database. </span></span><span style="font-family: inherit;">Berikut ini saya membuat </span><span style="font-style: italic;"><span style="font-family: inherit;">form</span></span><span style="font-family: inherit;"> untuk melakukan koneksi ke-</span><span style="font-style: italic;"><span style="font-family: inherit;">database</span></span><span style="font-family: inherit;"> SQL Server 2000 dengan menggunakan Visual Studio 2005 dan koneksi yang dibuat disimpan pada </span><span style="font-style: italic;"><span style="font-family: inherit;">file</span></span><span style="font-family: inherit;"> notepad dengan </span><span style="font-style: italic;"><span style="font-family: inherit;">extention</span></span><span style="font-family: inherit;"> ".ini". Dalam hal ini saya juga menggunakan </span><span style="font-style: italic;"><span style="font-family: inherit;">module </span></span><span style="font-family: inherit;">agar bisa diakses disemua form nantinya.</span><br /><span style="font-family: inherit;"><br /></span> <br /><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhp3pHbOEvccW1A6aFDQD84gvAAuV307h1a_JTGmHpkrJeKZ6-8vRD2k7wx5rsBoAyf1xKjBBdtQKH7G6-QY2ffsRMM-TaGb-4VNwDT6mSsbeYmDYohUZKJQqsJ9Xed6v3PFQApb5SBcUA2/s1600-h/frmConnection.png" onblur="try {parent.deselectBloggerImageGracefully();} catch(e) {}"><img alt="" border="0" id="BLOGGER_PHOTO_ID_5403902311908812834" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhp3pHbOEvccW1A6aFDQD84gvAAuV307h1a_JTGmHpkrJeKZ6-8vRD2k7wx5rsBoAyf1xKjBBdtQKH7G6-QY2ffsRMM-TaGb-4VNwDT6mSsbeYmDYohUZKJQqsJ9Xed6v3PFQApb5SBcUA2/s320/frmConnection.png" style="cursor: pointer; display: block; height: 252px; margin: 0px auto 10px; text-align: center; width: 300px;" /></a><br /><span style="font-family: inherit;"><br /></span> <br /><span style="font-family: inherit;"><a href="http://www.blogger.com/post-edit.g?blogID=6349893723043506757&postID=6252172147567558453" name="more"></a><br /></span> <br /><span style="font-family: inherit;">Berikut </span><span style="font-style: italic;"><span style="font-family: inherit;">source code</span></span><span style="font-family: inherit;">-nya : </span><span style="font-family: inherit;"><a href="http://www.blogger.com/post-edit.g?blogID=6349893723043506757&postID=5477889497878701624" name="more"></a></span><br /><span style="font-family: inherit;"><br /></span> <br /><span style="font-family: inherit;"> </span><br /><span style="font-weight: bold;"><span style="font-family: inherit;">Source pada module</span></span><br /><span style="font-family: inherit;"><br /></span> <br /><span style="color: #000066;"><span style="font-family: 'Courier New', Courier, monospace;">Imports System.Data</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;">Imports System.Data.SqlClient</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;">Imports System.IO</span><span style="font-family: 'Courier New', Courier, monospace;"><br /><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;">Module mdlConnection</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public sqlConn As New SqlConnection</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public sqlCmd As New SqlCommand</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public DA As New SqlDataAdapter</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public DS As New DataSet</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public SR As StreamReader</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public SW As StreamWriter</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Private dbServer, dbUserName, _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbPassword, dbDatabase As String</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public myPath As String = _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> AppDomain.CurrentDomain.BaseDirectory</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Private Sub winConnString()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.ConnectionString = _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> "Integrated Security=SSPI;" & _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> "Persist Security Info=False;" & _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> "Initial Catalog=" & dbDatabase & _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ";Data Source=" & dbServer</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Sub</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Private Sub ConnString()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.ConnectionString = _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> "Persist Security Info=False;User ID=" & _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbUserName & ";Pwd=" & dbPassword & _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ";Initial Catalog=" & dbDatabase & _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ";Data Source=" & dbServer</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Sub</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public Sub OpenConn()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.Close()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbServer = ""</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbUserName = ""</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbPassword = ""</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbDatabase = ""</span><span style="font-family: 'Courier New', Courier, monospace;"><br /><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Try</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> SR = File.OpenText(myPath & "Connection.ini")</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Do While SR.Peek <> -1</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbServer = SR.ReadLine.Trim</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbUserName = SR.ReadLine.Trim</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbPassword = SR.ReadLine.Trim</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbDatabase = SR.ReadLine.Trim</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Loop</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> SR.Close()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> If dbUserName = "" And dbPassword = "" Then</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> winConnString()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Else</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ConnString()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End If</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlCmd.CommandType = CommandType.Text</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlCmd.Connection = sqlConn</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.Open()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Catch ex As Exception</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> MessageBox.Show("Connection Failed", _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> "Connection Error", MessageBoxButtons.OK, _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> MessageBoxIcon.Error)</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> frmConnection.ShowDialog()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Try</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Sub</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public Function tryConnection(ByVal chxWin As CheckBox, _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ByVal dServer As String, ByVal dUserName As String, _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ByVal dPassword As String, ByVal dDatabase As String) _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> As Boolean</span><span style="font-family: 'Courier New', Courier, monospace;"><br /><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbServer = dServer</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbUserName = dUserName</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbPassword = dPassword</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> dbDatabase = dDatabase</span><span style="font-family: 'Courier New', Courier, monospace;"><br /><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> If chxWin.Checked = True Then</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> winConnString()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Else</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ConnString()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End If</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Try</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.Open()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.Close()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Return True</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Catch ex As Exception</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> sqlConn.Close()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Return False</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Try</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Function</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Public Function saveConn(ByVal dServer As String, _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ByVal dUserName As String, ByVal dPassword As String, _</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> ByVal dDatabase As String) As Boolean</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Try</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> File.Delete(myPath & "Connection.ini")</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> SW = File.AppendText(myPath & "Connection.ini")</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> With SW</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> .WriteLine(dServer)</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> .WriteLine(dUserName)</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> .WriteLine(dPassword)</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> .WriteLine(dDatabase)</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End With</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> SW.Close()</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Return True</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Catch ex As Exception</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> Return False</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Try</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;"> End Function</span><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><span style="font-family: 'Courier New', Courier, monospace;">End Module</span></span><br /><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><br /><span style="font-weight: bold;"><span style="font-family: 'Courier New', Courier, monospace;">Pada form koneksi </span></span><br /><span style="font-family: 'Courier New', Courier, monospace;"><br /></span> <span style="font-family: 'Courier New', Courier, monospace;"> </span><br /><div><span style="color: #000099;"><span style="font-family: 'Courier New', Courier, monospace;">Public Class frmConnection<br /><br />Private Sub btnCancel_Click(ByVal sender As System.Object, _<br />ByVal e As System.EventArgs) Handles btnCancel.Click<br />Me.Close()<br />End Sub<br /><br />Private Sub chxWindows_CheckedChanged(ByVal sender As System.Object, _<br />ByVal e As System.EventArgs) Handles chxWindows.CheckedChanged<br />txtUserName.Clear()<br />txtPassword.Clear()<br />If chxWindows.Checked = True Then<br />txtUserName.ReadOnly = True<br />txtPassword.ReadOnly = True<br />Else<br />txtUserName.ReadOnly = False<br />txtPassword.ReadOnly = False<br />End If<br /><br />End Sub<br /><br />Private Sub btnTest_Click(ByVal sender As System.Object, _<br />ByVal e As System.EventArgs) Handles btnTest.Click<br />If tryConnection(chxWindows, _<br />txtServer.Text.Trim, _<br />txtUserName.Text.Trim, _<br />txtPassword.Text.Trim, _<br />txtDatabase.Text.Trim) = True Then<br />MessageBox.Show("Connection Success", "Connection Success", _<br />MessageBoxButtons.OK, MessageBoxIcon.Information)<br />Else<br />MessageBox.Show("Connection Failed", "Connection Failed", _<br />MessageBoxButtons.OK, MessageBoxIcon.Error)<br />End If<br />End Sub<br /><br />Private Sub btnSave_Click(ByVal sender As System.Object, _<br />ByVal e As System.EventArgs) Handles btnSave.Click<br />If saveConn(txtServer.Text.Trim, txtUserName.Text.Trim, _<br />txtPassword.Text.Trim, txtDatabase.Text.Trim) = True Then<br />OpenConn()<br />MessageBox.Show("Connection Saved Successful", "Success", _<br />MessageBoxButtons.OK, MessageBoxIcon.Information)<br />Me.Close()<br />End If<br />End Sub<br />End Class</span> </span><br /></div><span style="font-family: inherit;"><br /></span> <br /><blockquote><span style="font-family: inherit;">Pembuatan form koneksi ini tidak menggunakan enkripsi untuk lebih aman dapat menggunakan enkripsi dan juga dapat disimpan pada registry.</span><br /></blockquote><span style="font-family: inherit;"><br /></span> <br /><span style="font-family: inherit;"><br /></span> <br /><span style="font-family: inherit;"><br /></span> <br /><span style="font-family: inherit;"><br /></span> <br /><span style="font-size: small;"><br /></span><br /></div>Budiyantohttp://www.blogger.com/profile/04386431076485563680noreply@blogger.com4