tag:blogger.com,1999:blog-83466233798522944362024-03-10T12:13:23.770-07:00KERJA IT - COMPUTERCATATAN PENGALAMAN KERJA SAYA SEBAGAI IT - COMPUTERjlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.comBlogger83125tag:blogger.com,1999:blog-8346623379852294436.post-59296263365401310662022-09-22T09:36:00.002-07:002022-09-22T09:49:17.710-07:00INSTALL SOFTWARE TIDAK BISA<div style="text-align: justify;">Apabila Anda MengInstall atau MengUninstall File di Computer
Biasanya Muncul :</div><div style="text-align: justify;"> "the system administrator hes set Police to Prevent this Instalation" </div><div style="text-align: justify;">Apabila terjadi seperti itu maka lakukan : </div><div style="text-align: justify;">1. Jalankan Regedit lewat Run : </div><div style="text-align: justify;"> </div><div class="separator" style="clear: both; text-align: justify;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-057EdN0y4E0cD1wd_f4kbrHpBER22npat8GWoPNnnDaj8SiTdSqecNyDd57VX3Rx_K9kVQctOgePNleuYwoFq1DfQtnaiewh5hS7oXwjdysopU0WDiIEAOtv_o_IaSTVP98vpKtbYi4NLT_RIoPiY1sKBpd9e6XffrC_95C3QKLZmIJszejfZFyC/s413/redit1.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="212" data-original-width="413" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-057EdN0y4E0cD1wd_f4kbrHpBER22npat8GWoPNnnDaj8SiTdSqecNyDd57VX3Rx_K9kVQctOgePNleuYwoFq1DfQtnaiewh5hS7oXwjdysopU0WDiIEAOtv_o_IaSTVP98vpKtbYi4NLT_RIoPiY1sKBpd9e6XffrC_95C3QKLZmIJszejfZFyC/s320/redit1.png" width="320" /></a></div><div style="text-align: justify;"><br /></div><p>
<br />
<br />
<br />
Klik OK :
</p><p></p><p></p><p></p><p></p><p></p><p></p><p><br /><br /></p><div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgL3q7A-245N4xHKv5gDvnfP46pSODwrZQIFCl9lZ-Dj7lB_J6oaR8cz2MR_EylFQYwVK78lS-KoR1-9PMd9rub8W8MCjWkGw4qLKMJarLe8goYGclJdLRoLQ1mb4ytLfT3avdwI7PZECRp_i3Dn-tn-m2asBi9XcZLeP9u_T8Yo7TjTWI4pg-clRg5/s471/redit1.0.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="250" data-original-width="471" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgL3q7A-245N4xHKv5gDvnfP46pSODwrZQIFCl9lZ-Dj7lB_J6oaR8cz2MR_EylFQYwVK78lS-KoR1-9PMd9rub8W8MCjWkGw4qLKMJarLe8goYGclJdLRoLQ1mb4ytLfT3avdwI7PZECRp_i3Dn-tn-m2asBi9XcZLeP9u_T8Yo7TjTWI4pg-clRg5/s320/redit1.0.png" width="320" /></a></div>
Klik Yes :
<div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRFociX6oVuSl2ni9LLqgYdWmvSuKlj1Wo0sIdKwWMTvuhS0CLLiStnwLilZC8rlb9Gb2DGZS8ZH_2Yo_E2wCLcfpHZxg8JpgPvu5QQdYaQ27Jub1L-HsDeaprFciiujpQhh_rBoY42iv_CeEFVsu1QQg_4U0iYXugan_p9dGJOpi1sQG4FskaDMTp/s640/reg_edit.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="360" data-original-width="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRFociX6oVuSl2ni9LLqgYdWmvSuKlj1Wo0sIdKwWMTvuhS0CLLiStnwLilZC8rlb9Gb2DGZS8ZH_2Yo_E2wCLcfpHZxg8JpgPvu5QQdYaQ27Jub1L-HsDeaprFciiujpQhh_rBoY42iv_CeEFVsu1QQg_4U0iYXugan_p9dGJOpi1sQG4FskaDMTp/s320/reg_edit.png" width="320" /></a></div>
Klik Hkey_Local_Machine - Police - Microsoft - Windows - Installer :
<div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQtAoKt9gsJlMSey2DwsD3VlAoSPmngTSr7nJI7HlbtjyM5pJMHnTV85BYkteRYOfWXkUUgX8xlPG1nqrukUIFtAIwZs4tn56E1oNlg5G_GFC6YExtWG-qqmf-wdc3R-e125xKtcIpJdbl4rYVRWPqscyD0LL0Gm8MW5znrXz4W6YXHxHfSMcbkstV/s640/reg_edit2.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="337" data-original-width="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjQtAoKt9gsJlMSey2DwsD3VlAoSPmngTSr7nJI7HlbtjyM5pJMHnTV85BYkteRYOfWXkUUgX8xlPG1nqrukUIFtAIwZs4tn56E1oNlg5G_GFC6YExtWG-qqmf-wdc3R-e125xKtcIpJdbl4rYVRWPqscyD0LL0Gm8MW5znrXz4W6YXHxHfSMcbkstV/s320/reg_edit2.png" width="320" /></a></div>
<div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiMchKwb1p31AMGOhaKeYs_BMUBPQsu_mkHOxXm9ni_vfqwH1irVAXedihhBJQz7bAYwztWcqnH1i6rS02vULLin_SHY5dPTR30dv6xz3HhPSuRXgTMHw0OQezTAOElE4sunwLZOeDYjJLmR-UnNhm3SS3RqD7hCgvz1elBHydg3pNStMpJa-X-zm9_/s640/reg_edit3.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="334" data-original-width="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiMchKwb1p31AMGOhaKeYs_BMUBPQsu_mkHOxXm9ni_vfqwH1irVAXedihhBJQz7bAYwztWcqnH1i6rS02vULLin_SHY5dPTR30dv6xz3HhPSuRXgTMHw0OQezTAOElE4sunwLZOeDYjJLmR-UnNhm3SS3RqD7hCgvz1elBHydg3pNStMpJa-X-zm9_/s320/reg_edit3.png" width="320" /></a></div>
<div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-b2_UL3OQ_hfmVJpqhdhGJVAUV-To1JGY0CzM3jOH27hSFO-1UNDZ98L4zzlmpJnwkvpWFwAJN_qg0i3Y0GYAXgDhOf-8XRsHe_BJjBmbHfhlDkpjkKRPtI0EiW8F5J5N8gLJ9wgOLcPx7PVwGhrm-oU_n6B8EoTcZ40a5vYDy5R0x-_P0QECWm_O/s640/reg_edit4.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="336" data-original-width="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-b2_UL3OQ_hfmVJpqhdhGJVAUV-To1JGY0CzM3jOH27hSFO-1UNDZ98L4zzlmpJnwkvpWFwAJN_qg0i3Y0GYAXgDhOf-8XRsHe_BJjBmbHfhlDkpjkKRPtI0EiW8F5J5N8gLJ9wgOLcPx7PVwGhrm-oU_n6B8EoTcZ40a5vYDy5R0x-_P0QECWm_O/s320/reg_edit4.png" width="320" /></a></div>
Klik kanan pilih Modifiy : value di isi = 1
<div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTRQl6QDeHXi2fb79xNUKE4IRB12Mb1RbGRWIQthkJJwOiYvAMeTieS8L_RIj0L0Xmnb-3c0SJgbuKFkJqZjwL6LfYhhvBMpvvldSwNLr_I00GZ2SwVwqL6bCDXahQx-cdQYbUwGvImczS3tiQCZPnLuI5eZhVezze2c2ETPM5vsf3tFtord5kSDLk/s640/reg_edit5.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="337" data-original-width="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTRQl6QDeHXi2fb79xNUKE4IRB12Mb1RbGRWIQthkJJwOiYvAMeTieS8L_RIj0L0Xmnb-3c0SJgbuKFkJqZjwL6LfYhhvBMpvvldSwNLr_I00GZ2SwVwqL6bCDXahQx-cdQYbUwGvImczS3tiQCZPnLuI5eZhVezze2c2ETPM5vsf3tFtord5kSDLk/s320/reg_edit5.png" width="320" /></a></div>
Hasilnya :
<div class="separator" style="clear: both;"><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguUXPREPRbHGgJsm0bEiXc7kxFdcKKXr53NlIRCQcPMtYvEVPIwXZkhoP6Grv7EEVghdX5N60PsPoPxat1-AIpPHnf6A1i2CLu8HqBQ6m5hzeKj2XbGTHcRm3pKmx3My7BxJOjVyIt5vmVEgOfJ-4JopL62Ybti8Wfl0rFdej9czHnpexHDJam8KUj/s640/reg_edit6.png" style="clear: left; display: block; float: left; padding: 1em 0px; text-align: center;"><img alt="" border="0" data-original-height="337" data-original-width="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEguUXPREPRbHGgJsm0bEiXc7kxFdcKKXr53NlIRCQcPMtYvEVPIwXZkhoP6Grv7EEVghdX5N60PsPoPxat1-AIpPHnf6A1i2CLu8HqBQ6m5hzeKj2XbGTHcRm3pKmx3My7BxJOjVyIt5vmVEgOfJ-4JopL62Ybti8Wfl0rFdej9czHnpexHDJam8KUj/s320/reg_edit6.png" width="320" /></a></div>
Selanjutnya lakukan Install atau Uninstall
Insya Allah Lancar Jaya
Selamat Mencoba
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-38092385385526697842014-08-25T02:34:00.003-07:002014-08-25T02:37:31.679-07:00VB.NET KONEKSI DENGAN MYSQL HOSTING<div dir="ltr" style="text-align: left;" trbidi="on">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_THXAQW5qJugXlUaK0cpvpqaW3Agz8_RahjdN1b7fNEyd1VReF3poKdOYo5axXsxs8BFWNWjVeK7uGiQM2hqfWNau_pBgnHpo6DyPYYy84mv7G60G87zhNT49aiDSBF6_oU3miHj-XIE/s1600/tes.png" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_THXAQW5qJugXlUaK0cpvpqaW3Agz8_RahjdN1b7fNEyd1VReF3poKdOYo5axXsxs8BFWNWjVeK7uGiQM2hqfWNau_pBgnHpo6DyPYYy84mv7G60G87zhNT49aiDSBF6_oU3miHj-XIE/s320/tes.png" height="336" width="640" /> </a><br />
<br />
Kebetulan di salah satu Komunitas Programer VB di FB menawarkan DataBase Gratis tapi hanya untuk Pembelajaran<br />
FB nya : <a href="https://www.facebook.com/groups/programmervbindonesia/10152697907984271/?notif_t=group_comment_reply">klik sini</a><br />
<br />
atau kunjungi <a href="http://dikoding.cloudapp.net/chat/share-database-mysql-online#.U_nllEmxQpI.facebook">Komunitas ini :</a><br />
<br />
<br />
<br />
Untuk koneksi Data Base nya saya buat Module :<br />
<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
Module modulku<br />
Dim ConString = "server=dikoding.cloudapp.net;Port=24555; User ID=user_kami; password=123; database=jomblo"<br />
Public db As New MySqlConnection(ConString)<br />
Public Sub konek()<br />
Try<br />
tutupDB()<br />
db.Open()<br />
MsgBox("Koneksi DataBase berhasil dilakukan")<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
End Try<br />
End Sub<br />
Public Sub tutupDB()<br />
If db.State = ConnectionState.Open Then<br />
db.Close()<br />
End If<br />
End Sub<br />
<br />
End Module<br />
<br />
<br />
<br />
<br />
Coding berikutnya :<br />
Imports MySql.Data.MySqlClient<br />
Public Class Form1<br />
Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing<br />
tutupDB()<br />
End Sub<br />
<br />
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />
konek()<br />
DisplayData()<br />
End Sub<br />
Private Sub DisplayData()<br />
Dim da As New MySqlDataAdapter("SELECT * FROM daftar_jomblo", db)<br />
Dim dt As New DataTable<br />
da.Fill(dt)<br />
dgv.DataSource = dt<br />
'percantik Grid<br />
dgv.GridColor = Color.Cyan<br />
dgv.DefaultCellStyle.ForeColor = Color.Black<br />
dgv.RowsDefaultCellStyle.BackColor = Color.PaleGreen<br />
dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.PapayaWhip<br />
dgv.GridColor = Color.Silver<br />
'merubah ukuran dari kolom<br />
dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells<br />
<br />
<br />
End Sub<br />
Private Sub btnrefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnrefresh.Click<br />
<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
Try<br />
konek()<br />
<br />
Dim cmd As New MySqlCommand("insert into daftar_jomblo(Idjomblo, Nama_jomblo, No_hp) values('" & txtid.Text & "','" & txtnama.Text & "','" & txthp.Text & "')", db)<br />
cmd.ExecuteNonQuery()<br />
DisplayData()<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
<br />
End Sub<br />
End Class<br />
<br />
<br />
Hasilnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2jEunWMSYAFldpUTqLi1WxmoEHzpr9a8qT8dT31AtQJhHan8dfiZBQO3uw92_VAJK1ButZTyZ-1n9bWsbiSd0PJYboCIlvmcYA7yKELUFAAFdwm1NRElXQ2LKhS0v8Xzjvy8u2Hb0HVc/s1600/testing.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi2jEunWMSYAFldpUTqLi1WxmoEHzpr9a8qT8dT31AtQJhHan8dfiZBQO3uw92_VAJK1ButZTyZ-1n9bWsbiSd0PJYboCIlvmcYA7yKELUFAAFdwm1NRElXQ2LKhS0v8Xzjvy8u2Hb0HVc/s1600/testing.png" height="330" width="640" /></a></div>
<br />
Selamat Otak Atik<br />
<br />
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com2tag:blogger.com,1999:blog-8346623379852294436.post-82745430985655146042014-07-21T22:45:00.000-07:002014-07-21T22:45:24.172-07:00LEBAR COLOUMN DATAGRIDVIEW - PERCANTIK DAN FUNCTION KEYS<div dir="ltr" style="text-align: left;" trbidi="on">
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>IN</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<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:mathPr></w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-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:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;}
</style>
<![endif]--><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">DatagridView
adalah komponen Toolbar pada Visual Basic .2010 yang biasa digunakan untuk
menampilkan Query pada Tabel didalam database. </span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghRQ33Gh7Vcn45DFClMkrIAb9wcI-1Z15KyoiLHzRZcqoItC2YxEiGUC31uarWCGfUI3OUDIbyyrrzqfqKxlhHZNVieRMXr_f92nVwNaMnZ7Ene_OPw3G2PNxgjkL9zejhwvD9Y3gPwg4/s1600/lebar1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEghRQ33Gh7Vcn45DFClMkrIAb9wcI-1Z15KyoiLHzRZcqoItC2YxEiGUC31uarWCGfUI3OUDIbyyrrzqfqKxlhHZNVieRMXr_f92nVwNaMnZ7Ene_OPw3G2PNxgjkL9zejhwvD9Y3gPwg4/s1600/lebar1.png" height="380" width="640" /></a></div>
<br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">Jika anda lihat gambar diatas,
pada datagrid view kami menampilkan Sales Order Confirmation, namun secara Dedfault lebar
dari Kolom DatagridView semuanya sama rata. Nah pada Tutorial kali ini akan
dibahas cara mengatur lebar DatagridView agar enak dipandang :)<br />
</span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"></span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"> </span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">Setelah di rubah dengan perhatikan koding di bawah ini :</span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"></span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"> Private Sub Tampilsdeler()<br /> Try<br /> tutupDB()<br /> db.Open()<br /> Dim da As New MySqlDataAdapter("SELECT noitem,pol,kdrang,namrang,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih,kwarna,warna FROM sdeler WHERE noinv ='" & txtnofaktur.Text & "' Order by noinv,noitem", db)<br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgvoc.DataSource = dt<br /> dgvoc.Refresh()<br /><br /> '<b> Melebarkan Coloumn datagridview</b><br /><br /> dgvoc.Columns(0).Width = 70<br /> dgvoc.Columns(1).Width = 60<br /> dgvoc.Columns(2).Width = 80<br /> dgvoc.Columns(3).Width = 150<br /> dgvoc.Columns(4).Width = 80<br /> dgvoc.Columns(5).Width = 80<br /> dgvoc.Columns(6).Width = 80<br /> dgvoc.Columns(7).Width = 60<br /> dgvoc.Columns(8).Width = 80<br /> dgvoc.Columns(9).Width = 90</span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br /> <b> 'Percantik Coloumn </b><br /> dgvoc.GridColor = Color.Blue<br /> dgvoc.DefaultCellStyle.ForeColor = Color.Black<br /> dgvoc.RowsDefaultCellStyle.BackColor = Color.Red<br /> dgvoc.AlternatingRowsDefaultCellStyle.BackColor = Color.Yellow<br /> dgvoc.GridColor = Color.Silver<br /><br /><br /> db.Close()<br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> End Sub</span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"></span><br />
<br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;">Hasilnya : </span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"></span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-caAWgZAS8NADAEEMQzSBt2MdDDqkEka6lkTEhiEZ57T9XqKzg9acbd3wXhyphenhyphen-ke9Xljbntwq5uHhiRCsVRIuUXfbaH4NVAAfpEU0W4MBtq1kQNwcLWXO_34PqJUKuqW8ZbBEsceChjck/s1600/lebar2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-caAWgZAS8NADAEEMQzSBt2MdDDqkEka6lkTEhiEZ57T9XqKzg9acbd3wXhyphenhyphen-ke9Xljbntwq5uHhiRCsVRIuUXfbaH4NVAAfpEU0W4MBtq1kQNwcLWXO_34PqJUKuqW8ZbBEsceChjck/s1600/lebar2.png" height="380" width="640" /></a></div>
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br style="mso-special-character: line-break;" />
Selamat Otak Atik </span><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br style="mso-special-character: line-break;" />
</span><br />
<b><span style="font-size: large;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; line-height: 115%;">FUNCTION KEYS DI VB-2010</span></span></b><br />
<br />
<b><span style="font-size: large;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; line-height: 115%;"><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:TrackMoves/>
<w:TrackFormatting/>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:DoNotPromoteQF/>
<w:LidThemeOther>IN</w:LidThemeOther>
<w:LidThemeAsian>X-NONE</w:LidThemeAsian>
<w:LidThemeComplexScript>X-NONE</w:LidThemeComplexScript>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
<w:SplitPgBreakAndParaMark/>
<w:DontVertAlignCellWithSp/>
<w:DontBreakConstrainedForcedTables/>
<w:DontVertAlignInTxbx/>
<w:Word11KerningPairs/>
<w:CachedColBalance/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
<m:mathPr>
<m:mathFont m:val="Cambria Math"/>
<m:brkBin m:val="before"/>
<m:brkBinSub m:val="--"/>
<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:mathPr></w:WordDocument>
</xml><![endif]--></span></span></b><br />
<b><span style="font-size: large;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; line-height: 115%;"><!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" DefUnhideWhenUsed="true"
DefSemiHidden="true" DefQFormat="false" DefPriority="99"
LatentStyleCount="267">
<w:LsdException Locked="false" Priority="0" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Normal"/>
<w:LsdException Locked="false" Priority="9" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="heading 1"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 2"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 3"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 4"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 5"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 6"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 7"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 8"/>
<w:LsdException Locked="false" Priority="9" QFormat="true" Name="heading 9"/>
<w:LsdException Locked="false" Priority="39" Name="toc 1"/>
<w:LsdException Locked="false" Priority="39" Name="toc 2"/>
<w:LsdException Locked="false" Priority="39" Name="toc 3"/>
<w:LsdException Locked="false" Priority="39" Name="toc 4"/>
<w:LsdException Locked="false" Priority="39" Name="toc 5"/>
<w:LsdException Locked="false" Priority="39" Name="toc 6"/>
<w:LsdException Locked="false" Priority="39" Name="toc 7"/>
<w:LsdException Locked="false" Priority="39" Name="toc 8"/>
<w:LsdException Locked="false" Priority="39" Name="toc 9"/>
<w:LsdException Locked="false" Priority="35" QFormat="true" Name="caption"/>
<w:LsdException Locked="false" Priority="10" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Title"/>
<w:LsdException Locked="false" Priority="1" Name="Default Paragraph Font"/>
<w:LsdException Locked="false" Priority="11" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtitle"/>
<w:LsdException Locked="false" Priority="22" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Strong"/>
<w:LsdException Locked="false" Priority="20" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Emphasis"/>
<w:LsdException Locked="false" Priority="59" SemiHidden="false"
UnhideWhenUsed="false" Name="Table Grid"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Placeholder Text"/>
<w:LsdException Locked="false" Priority="1" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="No Spacing"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 1"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 1"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 1"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 1"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 1"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 1"/>
<w:LsdException Locked="false" UnhideWhenUsed="false" Name="Revision"/>
<w:LsdException Locked="false" Priority="34" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="List Paragraph"/>
<w:LsdException Locked="false" Priority="29" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Quote"/>
<w:LsdException Locked="false" Priority="30" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Quote"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 1"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 1"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 1"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 1"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 1"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 1"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 1"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 1"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 2"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 2"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 2"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 2"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 2"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 2"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 2"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 2"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 2"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 2"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 2"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 2"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 2"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 2"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 3"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 3"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 3"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 3"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 3"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 3"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 3"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 3"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 3"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 3"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 3"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 3"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 3"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 3"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 4"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 4"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 4"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 4"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 4"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 4"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 4"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 4"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 4"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 4"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 4"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 4"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 4"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 4"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 5"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 5"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 5"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 5"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 5"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 5"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 5"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 5"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 5"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 5"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 5"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 5"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 5"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 5"/>
<w:LsdException Locked="false" Priority="60" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Shading Accent 6"/>
<w:LsdException Locked="false" Priority="61" SemiHidden="false"
UnhideWhenUsed="false" Name="Light List Accent 6"/>
<w:LsdException Locked="false" Priority="62" SemiHidden="false"
UnhideWhenUsed="false" Name="Light Grid Accent 6"/>
<w:LsdException Locked="false" Priority="63" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 1 Accent 6"/>
<w:LsdException Locked="false" Priority="64" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Shading 2 Accent 6"/>
<w:LsdException Locked="false" Priority="65" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 1 Accent 6"/>
<w:LsdException Locked="false" Priority="66" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium List 2 Accent 6"/>
<w:LsdException Locked="false" Priority="67" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 1 Accent 6"/>
<w:LsdException Locked="false" Priority="68" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 2 Accent 6"/>
<w:LsdException Locked="false" Priority="69" SemiHidden="false"
UnhideWhenUsed="false" Name="Medium Grid 3 Accent 6"/>
<w:LsdException Locked="false" Priority="70" SemiHidden="false"
UnhideWhenUsed="false" Name="Dark List Accent 6"/>
<w:LsdException Locked="false" Priority="71" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Shading Accent 6"/>
<w:LsdException Locked="false" Priority="72" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful List Accent 6"/>
<w:LsdException Locked="false" Priority="73" SemiHidden="false"
UnhideWhenUsed="false" Name="Colorful Grid Accent 6"/>
<w:LsdException Locked="false" Priority="19" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Emphasis"/>
<w:LsdException Locked="false" Priority="21" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Emphasis"/>
<w:LsdException Locked="false" Priority="31" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Subtle Reference"/>
<w:LsdException Locked="false" Priority="32" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Intense Reference"/>
<w:LsdException Locked="false" Priority="33" SemiHidden="false"
UnhideWhenUsed="false" QFormat="true" Name="Book Title"/>
<w:LsdException Locked="false" Priority="37" Name="Bibliography"/>
<w:LsdException Locked="false" Priority="39" QFormat="true" Name="TOC Heading"/>
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-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:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;}
</style>
<![endif]-->
</span></span></b><br />
<div class="MsoNormal" style="line-height: normal; margin-bottom: 12.0pt;">
<b><span style="font-size: large;"><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";">Letakan property ini di event
form_load<br style="mso-special-character: line-break;" />
<br style="mso-special-character: line-break;" />
</span></span></b></div>
<b><span style="font-size: large;">
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">Private</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <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><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Me</span>.KeyPreview = <span style="color: blue;">True</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">End</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 12.0pt;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"><br />
kemudian simpan semua sintak new, save, cancel, close anda di event
form_keydown</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">Private</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span> Form1_KeyDown(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyEventArgs) <span style="color: blue;">Handles</span> <span style="color: blue;">Me</span>.KeyDown</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Select</span> <span style="color: blue;">Case</span> e.KeyCode</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> Keys.F2 <span style="color: green;">'new</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span>
Keys.F5 <span style="color: green;">'save</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> Keys.F6 <span style="color: green;">'cancel</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> Keys.F7 <span style="color: green;">'close</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Select</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">End</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 12.0pt;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"> <br />
atau anda bisa menulisnya seperti ini :<br style="mso-special-character: line-break;" />
<br style="mso-special-character: line-break;" />
</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">Private</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span> Form1_KeyDown(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyEventArgs) <span style="color: blue;">Handles</span> <span style="color: blue;">Me</span>.KeyDown</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Select</span> <span style="color: blue;">Case</span>
e.KeyValue</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> 113 <span style="color: green;">'new</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> 116 <span style="color: green;">'save</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> 117 <span style="color: green;">'cancel</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Case</span> 118 <span style="color: green;">'close</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: green;">'...sintak anda</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Select</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">End</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: 12.0pt;">
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"><br />
Berikut ini daftar keyvalue dari F1 sampai F12 :<br />
112 = F1<br />
113 = F2<br />
114 = F3<br />
115 = F4<br />
116 = F5<br />
117 = F6<br />
118 = F7<br />
119 = F8<br />
120 = F9<br />
121 = F10<br />
122 = F11<br />
123 = F12<br />
<br />
Jika anda ingin menggabungkan KEY seperti CTRL+S atau ALT+A atau ALT+SHIFT+D
atau terserah anda, maka cukup tulis codenya seperti ini (contoh
CTRL+SHIFT+ALT+Z) :<br style="mso-special-character: line-break;" />
<br style="mso-special-character: line-break;" />
</span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">Private</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span> Form1_KeyDown(<span style="color: blue;">ByVal</span> sender <span style="color: blue;">As</span> <span style="color: blue;">Object</span>, <span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span> System.Windows.Forms.KeyEventArgs) <span style="color: blue;">Handles</span> <span style="color: blue;">Me</span>.KeyDown</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">If</span> e.Alt <span style="color: blue;">And</span> e.Shift <span style="color: blue;">And</span> e.Control <span style="color: blue;">And</span>
e.KeyCode = Keys.Z <span style="color: blue;">Then</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;">
</span>MessageBox.Show(<span style="color: #a31515;">"OK !!!"</span>)</span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm; mso-layout-grid-align: none; text-autospace: none;">
<span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">If</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
<div class="MsoNormal" style="line-height: normal; margin-bottom: .0001pt; margin-bottom: 0cm;">
<span lang="EN-US" style="color: blue; font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;">End</span><span lang="EN-US" style="font-family: "Courier New"; font-size: 10.0pt; mso-fareast-font-family: "Times New Roman"; mso-no-proof: yes;"> <span style="color: blue;">Sub</span></span><span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; mso-fareast-font-family: "Times New Roman";"></span></div>
</span></b><br />
<span lang="EN-US" style="font-family: "Times New Roman","serif"; font-size: 12.0pt; line-height: 115%; mso-ansi-language: EN-US; mso-bidi-language: AR-SA; mso-fareast-font-family: "Times New Roman"; mso-fareast-language: EN-US;"><br style="mso-special-character: line-break;" />
</span></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-91525570116522141732014-07-15T01:20:00.002-07:002014-07-15T01:24:43.721-07:00Rekam DataGridView dari Import ke MYSQL - VB2010<div dir="ltr" style="text-align: left;" trbidi="on">
Lihat sebelumnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGN_ILVb3uuF-O7FD_yw5ZEmNvJmcEnjj2P0XvqNGKi9GtHRYZ7bG7-axrYPQfPmVDcKVqnWa1E9BptnTbJSJ0S8v-14JgE8VB3ML2IVuKWUoTr6JPNnY0ImmCICy6LSF-XOa6wF-8X7U/s1600/kut1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhGN_ILVb3uuF-O7FD_yw5ZEmNvJmcEnjj2P0XvqNGKi9GtHRYZ7bG7-axrYPQfPmVDcKVqnWa1E9BptnTbJSJ0S8v-14JgE8VB3ML2IVuKWUoTr6JPNnY0ImmCICy6LSF-XOa6wF-8X7U/s1600/kut1.png" height="358" width="640" /></a></div>
<br />
Tabel Rincian Data SubDealer ( Sdeler )<br />
Lihat No.Faktur : SO-C-140715-0001<br />
<br />
Headernya : Hsdeler<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxfetWmAHpE4IJK8GDHyfrNbQZkjzMgvexzxJDIlWsIW2ZbLViEXYpTgyEa2IArRI22R6NOrgrPbEIPkon3DWRd9m0Au37J9XydfHvo4o63qgz9bIQkeBIEVDuR7q6qwD-PwD0wyULaqo/s1600/kut2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgxfetWmAHpE4IJK8GDHyfrNbQZkjzMgvexzxJDIlWsIW2ZbLViEXYpTgyEa2IArRI22R6NOrgrPbEIPkon3DWRd9m0Au37J9XydfHvo4o63qgz9bIQkeBIEVDuR7q6qwD-PwD0wyULaqo/s1600/kut2.png" height="358" width="640" /></a></div>
<br />
<br />
Selanjutnya lakukan Export :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiq6hiwDIn53is31PNIM2209wFidc2g0woTFdbTNnBmOLMpII83BEhOrDaFTzgC89FelYr38pteDiM_o7uuFJIakiNvE2DIAMDooicoLkkJaIcxMHsZBi1JSl7fDxIAxCGzelrDqLtQBW0/s1600/kut3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiq6hiwDIn53is31PNIM2209wFidc2g0woTFdbTNnBmOLMpII83BEhOrDaFTzgC89FelYr38pteDiM_o7uuFJIakiNvE2DIAMDooicoLkkJaIcxMHsZBi1JSl7fDxIAxCGzelrDqLtQBW0/s1600/kut3.png" height="358" width="640" /></a></div>
Setelah disimpan pilih format 97-2003<br />
<br />
Kemudian lakukan Import Data Exel ke DataGridView<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-iV8MFU9vHe9Gy9LghyQpAZw5m8nTtWBDY8KNNOaTCfGO7V5wW-sBL3twuiONcHKEv66398MbEuH3LfuliaYRSrQTZzDDODwSPi1Bavyl9QjIus19ztouZhE9NMmLQaDvNLEvJ9VohTg/s1600/kut4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-iV8MFU9vHe9Gy9LghyQpAZw5m8nTtWBDY8KNNOaTCfGO7V5wW-sBL3twuiONcHKEv66398MbEuH3LfuliaYRSrQTZzDDODwSPi1Bavyl9QjIus19ztouZhE9NMmLQaDvNLEvJ9VohTg/s1600/kut4.png" height="382" width="640" /></a></div>
<br />
Kemudian Klik Tombol Rekam DataGridView ke MySQL :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjulM5R_opCFXD8xEXi3iWyKmjr4zKvOgZi33Gta-bmyLz1MXxHzX1UYadfQu2eHldkxW8C0DjtGEviOSCY7wRW74kVROxESK26tU-ul3vuYWiiZM5MoA8v30cN8Nlbw3JPvu8C-Q8fmKM/s1600/kut5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjulM5R_opCFXD8xEXi3iWyKmjr4zKvOgZi33Gta-bmyLz1MXxHzX1UYadfQu2eHldkxW8C0DjtGEviOSCY7wRW74kVROxESK26tU-ul3vuYWiiZM5MoA8v30cN8Nlbw3JPvu8C-Q8fmKM/s1600/kut5.png" height="364" width="640" /></a></div>
<br />
Selanjutnya kita Cek data di MySQL nya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi88saP9eRK0XpnE1c8NnFZXy2ymQ29Ms9QeGaCxhxB8hpiUCQFxvMlko-bhNm18IqcI1xTCBIvggcQr48UhuLfiOzJlJZI_X6t94t67XOgZiPTFU6YyTjIOMFZDO-YiG4woxnUL8hjMPo/s1600/kut6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi88saP9eRK0XpnE1c8NnFZXy2ymQ29Ms9QeGaCxhxB8hpiUCQFxvMlko-bhNm18IqcI1xTCBIvggcQr48UhuLfiOzJlJZI_X6t94t67XOgZiPTFU6YyTjIOMFZDO-YiG4woxnUL8hjMPo/s1600/kut6.png" height="358" width="640" /></a></div>
Kita Lihat No.Faktur : SO-C-140715-0002 dengan data yg sama dari import tadi<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWKPjW3btT5vJ8nK2iwjfFJDf1PZdQTgZH1scO0NC27AiSt1xLpN4CbQsXSuNunosgZXnICymOFMSkQmjelYlaFAS5B38Fi_rc6diq97ZjbNsUo1ouWY0i-PJY3T1GLwjc-0fRRMswqgI/s1600/kut7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjWKPjW3btT5vJ8nK2iwjfFJDf1PZdQTgZH1scO0NC27AiSt1xLpN4CbQsXSuNunosgZXnICymOFMSkQmjelYlaFAS5B38Fi_rc6diq97ZjbNsUo1ouWY0i-PJY3T1GLwjc-0fRRMswqgI/s1600/kut7.png" height="358" width="640" /></a></div>
<br />
Data GridView hasil Import kita Rekam ke MYSQL karena di kawatirkan lampu mati mendadak<br />
yg bisa menghilangkan data grid view tadi. Karena itu kita Rekam saja.<br />
<br />
Karena Data ini bisa di panggil sewaktu - waktu karena sifatnya masih OC = Order Confirmation<br />
<br />
Dan kalau OC sudah disetujui bisa di Posting dan menjadi Invoice = Tagihan kpd Customer.<br />
<br />
Koding Data Grid View di Rekam ke MYSQL :<br />
<br />
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click<br />
' Rekam ke header ( Hsdeler )<br />
CokHsdeler()<br />
' Rekam ke Rincian / Sdeler <br />
konek()<br />
Dim cmd As New MySqlCommand("insert into Sdeler(kunci,noinv,torder,customercode,noitem,pol,kdrang,namrang,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih) values(@kunciv,@nofakturv,@hdatav,@kdcustv,@nomorv,@nopolibagv,@kdrangv,@namrangv,@qtyv,@hsatv,@kotorv,@pdiskontv,@diskontv,@subtotalv,@pidiskv,@idiskv,@netv)", db)<br />
<br />
Try<br />
<br />
<br />
For i As Integer = 0 To (dgvoc.Rows.Count - 2)<br />
<br />
vnomor = dgvoc.Rows(i).Cells(0).Value<br />
vnopolibag = dgvoc.Rows(i).Cells(1).Value<br />
vkdrang = dgvoc.Rows(i).Cells(2).Value<br />
vnamrang = dgvoc.Rows(i).Cells(3).Value<br />
vqty = dgvoc.Rows(i).Cells(4).Value<br />
vhsat = dgvoc.Rows(i).Cells(5).Value<br />
vkotor = dgvoc.Rows(i).Cells(6).Value<br />
vpdiskont = dgvoc.Rows(i).Cells(7).Value<br />
vdiskont = dgvoc.Rows(i).Cells(8).Value<br />
vsubtotal = dgvoc.Rows(i).Cells(9).Value<br />
vpidisk = dgvoc.Rows(i).Cells(10).Value<br />
vidisk = dgvoc.Rows(i).Cells(11).Value<br />
vnet = dgvoc.Rows(i).Cells(12).Value<br />
mnom = vnomor<br />
mkunci = RTrim(txtnofaktur.Text) & Str(mnom)<br />
<br />
cmd.Parameters.AddWithValue("@kunciv", mkunci)<br />
cmd.Parameters.AddWithValue("@nofakturv", txtnofaktur.Text)<br />
cmd.Parameters.AddWithValue("@hdatav", hdata)<br />
'cmd.Parameters.AddWithValue("@dtpjualv", Format(dtpjual, "yyyy-MM-dd"))<br />
cmd.Parameters.AddWithValue("@kdcustv", txtkdcust.Text)<br />
cmd.Parameters.AddWithValue("@nomorv", vnomor)<br />
cmd.Parameters.AddWithValue("@nopolibagv", vnopolibag)<br />
cmd.Parameters.AddWithValue("@kdrangv", vkdrang)<br />
cmd.Parameters.AddWithValue("@namrangv", vnamrang)<br />
cmd.Parameters.AddWithValue("@qtyv", vqty)<br />
cmd.Parameters.AddWithValue("@hsatv", vhsat)<br />
cmd.Parameters.AddWithValue("@kotorv", vkotor)<br />
cmd.Parameters.AddWithValue("@pdiskontv", vpdiskont)<br />
cmd.Parameters.AddWithValue("@diskontv", vdiskont)<br />
cmd.Parameters.AddWithValue("@subtotalv", vsubtotal)<br />
cmd.Parameters.AddWithValue("@pidiskv", vpidisk)<br />
cmd.Parameters.AddWithValue("@idiskv", vidisk)<br />
cmd.Parameters.AddWithValue("@netv", vnet)<br />
<br />
cmd.ExecuteNonQuery()<br />
cmd.Parameters.Clear()<br />
Next<br />
konek()<br />
Dim cmdx As New MySqlCommand(("update Sdeler set tglorder = '" & Format(dtpjual.Value, "yyyy-MM-dd HH:mm:ss") & "' WHERE noinv ='" & txtnofaktur.Text & "'"), db)<br />
cmdx.ExecuteNonQuery()<br />
Catch ex As Exception<br />
Beep()<br />
MsgBox(ex.Message, MsgBoxStyle.Information, "Informasi")<br />
cmd.Dispose()<br />
End Try<br />
<br />
End Sub<br />
<br />
****<br />
<br />
Private Sub CokHsdeler()<br />
txtnofaktur.Text = Trim(txtnofaktur.Text)<br />
Try<br />
tutupDB()<br />
db.Open()<br />
<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
Exit Sub<br />
End Try<br />
Try<br />
strSql = "SELECT * FROM Hsdeler WHERE noinv ='" & txtnofaktur.Text & "'"<br />
<br />
cmd.CommandText = strSql<br />
cmd.Connection = db<br />
dadapter.SelectCommand = cmd<br />
<br />
datardr = cmd.ExecuteReader<br />
If datardr.HasRows Then<br />
datardr.Read()<br />
txtkdcust.Text = datardr("customercode")<br />
CekCust()<br />
MsgBox("Data dari Table HSdeler Ditemukan....!", MsgBoxStyle.Exclamation, "Perhatian")<br />
Tampilsdeler()<br />
Exit Sub<br />
Else<br />
MsgBox("Data di Table HSdeler Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br />
Try<br />
tutupDB()<br />
db.Open()<br />
<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
Exit Sub<br />
End Try<br />
Dim mnoautob, mfaktur As Integer<br />
mnoautob = 1<br />
mfaktur = Val(hdata)<br />
Dim cmd As New MySqlCommand("insert into HSdeler(torder,noinv,tglorder,customercode,torderb) values('" & hdata & "','" & txtnofaktur.Text & "','" & Format(dtpjual.Value, "yyyy-MM-dd HH:mm:ss") & "','" & txtkdcust.Text & "', " & mfaktur & ")", db)<br />
cmd.ExecuteNonQuery()<br />
MsgBox("Data di Table HSdeler Berhasil di Rekam....!", MsgBoxStyle.Exclamation, "Informasi")<br />
Exit Sub<br />
End If<br />
' db.Close()<br />
Catch ex As Exception<br />
<br />
End Try<br />
<br />
<br />
End Sub<br />
<br />
Untuk Modulnya :<br />
Module modulku<br />
Public vkunci, vnofaktur, vkdcust, vkdrang, vnamrang As String<br />
Public vhdata, vnomor, vnopolibag, vqty, vhsat, vkotor, vpdiskont, vdiskont, vtot As Integer<br />
Public vsubtotal, vpidisk, vidisk, vnet As Integer<br />
<br />
Public cmd, cmdx As New MySqlCommand<br />
Public dadapter, dadapterx As New MySqlDataAdapter<br />
Public datardr, datardrx As MySqlDataReader<br />
Public strSql, strSqlx, mnoinv As String<br />
Dim serv As String = "Server=192.168.1.8;"<br />
Dim dbase As String = "Database=toko;"<br />
Dim uid As String = "uid=root;"<br />
Dim pwd As String = "pwd=root;"<br />
Dim ConString = serv & dbase & uid & pwd<br />
Public db As New MySqlConnection(ConString)<br />
Public Sub konek()<br />
Try<br />
tutupDB()<br />
db.Open()<br />
MsgBox("Koneksi DataBase berhasil dilakukan")<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
End Try<br />
End Sub<br />
Public Sub tutupDB()<br />
If db.State = ConnectionState.Open Then<br />
db.Close()<br />
End If<br />
End Sub<br />
<br />
End Module<br />
***<br />
declare variabel mnom bisa di letakkan di module<br />
<br />
Public Class lyr_oc<br /> Public mkunci, jum_record, hdata As String<br /> Public mthauto, nofak, mnom As Integer<br />
'<br />
'<br />
'<br />
'<br />
'<br />
End Class<br />
<br />
Selamat Otak Atik</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-6008873538575176762014-07-14T06:02:00.001-07:002014-07-14T06:02:59.205-07:00IMPORT EXEL KE DATAGRIDVIEW - VB2010<div dir="ltr" style="text-align: left;" trbidi="on">
Lihat sebelum di Import<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpWSpBrAbm2kx6SoKNRQBM2Vhe6VDu3Djqr1LtlSSd2GiTrIms_U9g_CSOOwvfKoaemVQrwKQ2mYFtmE63pX9GlLrekCutjdXEzX_ciffopkfBPWNG90lXTzfE5N4sCgqumjsgHnonh8E/s1600/imp01.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpWSpBrAbm2kx6SoKNRQBM2Vhe6VDu3Djqr1LtlSSd2GiTrIms_U9g_CSOOwvfKoaemVQrwKQ2mYFtmE63pX9GlLrekCutjdXEzX_ciffopkfBPWNG90lXTzfE5N4sCgqumjsgHnonh8E/s1600/imp01.png" height="374" width="640" /></a></div>
<br />
Data Exel nya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirIc8UVG8EKOY4Bl5L3XMvlPwlHtITOLuoXCgas8egvF9gmv-AxEiSVcrJGzrWUQoagsSzvceeyWFCW1Fh9wJ5nPbcWLChuIX3HN0FzL3sG2tih7WWAUT8aly7F3o0WlpWsznOZuEGXNI/s1600/imp02.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEirIc8UVG8EKOY4Bl5L3XMvlPwlHtITOLuoXCgas8egvF9gmv-AxEiSVcrJGzrWUQoagsSzvceeyWFCW1Fh9wJ5nPbcWLChuIX3HN0FzL3sG2tih7WWAUT8aly7F3o0WlpWsznOZuEGXNI/s1600/imp02.png" height="358" width="640" /></a></div>
<br />
<br />
Klik Import :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnlvIBo1Vn05FU36Q4DGovT29pXlr76cxJWTUvneCs-vCsK_clX_iEBjb9CYKdxlpOZ83PKBHNXRcBUaCZQqEjGqIsBA9WAnLQbgDtrfCB7J0ufrQn17R_g_M5mwKoe0D_5OE2B0TpGew/s1600/imp03.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgnlvIBo1Vn05FU36Q4DGovT29pXlr76cxJWTUvneCs-vCsK_clX_iEBjb9CYKdxlpOZ83PKBHNXRcBUaCZQqEjGqIsBA9WAnLQbgDtrfCB7J0ufrQn17R_g_M5mwKoe0D_5OE2B0TpGew/s1600/imp03.png" height="378" width="640" /></a></div>
<br />
<br />
<br />
Pilih dan Klik Open , Ini Hasilnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqTmK1pRvivYvZYnkBhO8VV82RvZ-1ugrxMCPaCQDAZiOE8rY1w7ppKvmSAyFMWkhq8hyphenhyphenB4zXQWiWBcEwYfOMgD-w4y7K3Zi_wJkW3bIqmEWlsdBic50DcJocCYJoRKwLrRgJeXwl5brU/s1600/imp04.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqTmK1pRvivYvZYnkBhO8VV82RvZ-1ugrxMCPaCQDAZiOE8rY1w7ppKvmSAyFMWkhq8hyphenhyphenB4zXQWiWBcEwYfOMgD-w4y7K3Zi_wJkW3bIqmEWlsdBic50DcJocCYJoRKwLrRgJeXwl5brU/s1600/imp04.png" height="378" width="640" /></a></div>
<br />
Koding yang saya gunakan : <br />
<br />
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click<br /> Try<br /> Dim fBrowse As New OpenFileDialog<br /> With fBrowse<br /> .Filter = "Excel files(*.xls)|*.xls|All files (*.*)|*.*"<br /> .FilterIndex = 1<br /> .Title = "Import data from Excel file"<br /> End With<br /> If fBrowse.ShowDialog() = Windows.Forms.DialogResult.OK Then<br /> Dim fname As String<br /> fname = fBrowse.FileName<br /> Dim ConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br /> "Data Source= " & fname & ";" & " Extended Properties= ""Excel 8.0;"""<br /> Dim MyConnection As New System.Data.OleDb.OleDbConnection(ConnectionString)<br /> ' Connection.Open()<br /><br /> ' Dim MyConnection As System.Data.OleDb.OleDbConnection<br /> Dim DtSet As System.Data.DataSet<br /> Dim MyCommand As System.Data.OleDb.OleDbDataAdapter<br /> ' MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='d:\xel\test123.xls';Extended Properties=Excel 8.0;")<br /> MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)<br /> MyCommand.TableMappings.Add("Table", "Net-informations.com")<br /> DtSet = New System.Data.DataSet<br /> MyCommand.Fill(DtSet)<br /> dgvoc.DataSource = DtSet.Tables(0)<br /> MyConnection.Close()<br /> End If<br /> Catch ex As Exception<br /> MsgBox(ex.Message)<br /> End Try<br /> End Sub<br />
<br />
atau :<br />
<br />
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click<br /><br /> <br /> Dim MyConnection As System.Data.OleDb.OleDbConnection<br /> Dim DtSet As System.Data.DataSet<br /> Dim MyCommand As System.Data.OleDb.OleDbDataAdapter<br /> MyConnection = New System.Data.OleDb.OleDbConnection("provider=Microsoft.Jet.OLEDB.4.0;Data Source='d:\xel\test123.xls';Extended Properties=Excel 8.0;")<br /> MyCommand = New System.Data.OleDb.OleDbDataAdapter("select * from [Sheet1$]", MyConnection)<br /> MyCommand.TableMappings.Add("Table", "Net-informations.com")<br /> DtSet = New System.Data.DataSet<br /> MyCommand.Fill(DtSet)<br /> dgvoc.DataSource = DtSet.Tables(0)<br /> MyConnection.Close()<br /><br /> End Sub<br />
<br />
Selamat Ber Otak - Atik<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com1tag:blogger.com,1999:blog-8346623379852294436.post-91252153679837290202014-07-06T01:45:00.001-07:002014-07-06T01:45:46.735-07:00INPUT DATA DAN FOTO LEWAT GRID - VB-2010<div dir="ltr" style="text-align: left;" trbidi="on">
Input Data Grid di simpan di DataBase MYSQL<br />
<br />
Kita siapkan Tabelnya Misal : temporary_beli<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUx2ISPBk9yL_oTRRKBdUXFqnUWi47bNJ9erRJLBm9zXb2owJ23Gii9dYeFxw_IBVe89xLGotfPKoYWGK8izD9kZHjFGt8jRAg9W1KEpDxVFDau_8zhHAMbGcckFIvxYVQLBnbursjh_4/s1600/grd1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhUx2ISPBk9yL_oTRRKBdUXFqnUWi47bNJ9erRJLBm9zXb2owJ23Gii9dYeFxw_IBVe89xLGotfPKoYWGK8izD9kZHjFGt8jRAg9W1KEpDxVFDau_8zhHAMbGcckFIvxYVQLBnbursjh_4/s1600/grd1.png" height="234" width="640" /></a></div>
<br />
<br />
Buat New Project di VB-2010<br />
Siapkan ToolBox nya :<br />
1. Button namenya = Button2 dan Text nya = SIMPAN<br />
2. Data Grid View = namenya <b>dgv</b><br />
3. OpenFileDialog = name ofdfoto<br />
<br />
di dgv cari di Properties ; Coloumn - ( Collection ) Click<br />
Ini untuk membuat Coloumn - coloumn Grid nya<br />
<br />
Tentukan nama (name grid coloumn) dan Text nya ( text header nya )<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
Beri nama Coloumn Gridnya<br />
Misal :<br />
<br />
KODE BARANG = mkdbrg<br />
NAMA BARANG = mnabar<br />
SATUAN = msatuan <br />
JUMLAH = mjumlah<br />
HARGA = mharga <br />
SUBTOTAL = mtot<br />
FOTO = mgbr<br />
<br />
Ambil Foto = btnfoto<br />
LOKASI = mlokasi<br />
<br />
<br />
Dan perhatikan Coloumn Type nya : lihat gambar<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhd8JDWQMlVZwZUo8x01hXOystyYaAD32e3YXxoYRhebHGQVSwyglhygBUFzVFUcYPdBMuBASQxdMeV_GqcmPyC5T52MFroO3u3fv5e3h5zARcuHBReGew_uyZZCeggpWIE1KOlhVAMVwI/s1600/grd5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhd8JDWQMlVZwZUo8x01hXOystyYaAD32e3YXxoYRhebHGQVSwyglhygBUFzVFUcYPdBMuBASQxdMeV_GqcmPyC5T52MFroO3u3fv5e3h5zARcuHBReGew_uyZZCeggpWIE1KOlhVAMVwI/s1600/grd5.png" height="406" width="640" /></a></div>
<br />
Kita siapkan variabel dan Koneksinya ke MYSQL<br />
yaitu Add Module dan Add Referent nya :<br />
ini codingnya :<br />
<br />
Imports MySql.Data.MySqlClient<br />Imports System.Data<br /><br />Module Module1<br /> Public vgbr() As Byte<br /> Public path As String = ""<br /> Public vkdbrg, vnabar, vsat, vlokasi As String<br /> Public vjumlah As Integer<br /> Public vharga As Integer<br /> Public vtot As Integer<br /> Public cmd As New MySqlCommand<br /><br /> Dim serv As String = "Server=localhost;"<br /> Dim dbase As String = "Database=toko;"<br /> Dim uid As String = "uid=root;"<br /> Dim pwd As String = "pwd=;"<br /> Dim ConString = serv & dbase & uid & pwd<br /> Public db As New MySqlConnection(ConString)<br /> Public Sub konek()<br /> Try<br /> tutupDB()<br /> db.Open()<br /> MsgBox("Koneksi DataBase berhasil dilakukan")<br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> End Try<br /> End Sub<br /> Public Sub tutupDB()<br /> If db.State = ConnectionState.Open Then<br /> db.Close()<br /> End If<br /> End Sub<br /><br />End Module<br />
<br />
Selanjutnya Coding untuk Aplikasinya Tombol Simpan dll<br />
<br />
Imports MySql.Data.MySqlClient<br />Imports System.Data<br />Public Class Form1<br /> <br /> Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit<br /> If e.ColumnIndex = 3 Then<br /> dgv.Rows(e.RowIndex).Cells(5).Value = dgv.Rows(e.RowIndex).Cells(3).Value * dgv.Rows(e.RowIndex).Cells(4).Value<br /> ElseIf e.ColumnIndex = 4 Then<br /> dgv.Rows(e.RowIndex).Cells(5).Value = dgv.Rows(e.RowIndex).Cells(3).Value * dgv.Rows(e.RowIndex).Cells(4).Value<br /> End If<br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> konek()<br /> Dim cmd As New MySqlCommand("INSERT INTO temporary_beli(kdbrg,nabar,satuan,jumlah,harga,subtotal,foto,lokasi) VALUES (@mkdbrg,@mnabar,@msatuan,@mjumlah,@mharga,@mtot,@mgbr,@mlokasi)", db)<br /> Try<br /><br /><br /> For i As Integer = 0 To (dgv.Rows.Count - 2)<br /><br /> vkdbrg = dgv.Rows(i).Cells(0).Value<br /> vnabar = dgv.Rows(i).Cells(1).Value<br /> vsat = dgv.Rows(i).Cells(2).Value<br /> vjumlah = dgv.Rows(i).Cells(3).Value<br /> vharga = dgv.Rows(i).Cells(4).Value<br /> vtot = dgv.Rows(i).Cells(5).Value<br /> vlokasi = dgv.Rows(i).Cells(8).Value<br /> ' vgbr =<br /> cmd.Parameters.AddWithValue("@mkdbrg", vkdbrg)<br /> cmd.Parameters.AddWithValue("@mnabar", vnabar)<br /> cmd.Parameters.AddWithValue("@msatuan", vsat)<br /> cmd.Parameters.AddWithValue("@mjumlah", vjumlah)<br /> cmd.Parameters.AddWithValue("@mharga", vharga)<br /> cmd.Parameters.AddWithValue("@mtot", vtot)<br /> cmd.Parameters.AddWithValue("@mgbr", IO.File.ReadAllBytes(vlokasi))<br /> cmd.Parameters.AddWithValue("@mlokasi", vlokasi)<br /><br /> cmd.ExecuteNonQuery()<br /> cmd.Parameters.Clear()<br /> Next<br /> Catch ex As Exception<br /> Beep()<br /> MsgBox(ex.Message, MsgBoxStyle.Information, "Informasi")<br /> cmd.Dispose()<br /> End Try<br /> End Sub<br /><br /> Private Sub dgv_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellContentClick<br /> Try<br /> With ofdfoto<br /> .Title = "Browse Gambar"<br /> .FileName = "Pilih Gambar"<br /> .Filter = "Type(*.jpg, *.jpeg, *.bmp, *.gif, *.png)|*.jpg; *.jpeg; *.bmp; *gif; *.png"<br /> .ShowDialog()<br /> path = .FileName<br /> picphoto.Image = Image.FromFile(path)<br /> mgbr.Image = Image.FromFile(path)<br /> picphoto.SizeMode = PictureBoxSizeMode.StretchImage<br /> dgv.Rows(e.RowIndex).Cells(8).Value = path<br /> dgv.Rows(e.RowIndex).Cells(6).Value = Image.FromFile(path)<br /> 'biar tampilan image pas dengan kotak image yang di sediakan<br /> End With<br /> Catch ex As Exception<br /> MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")<br /> End Try<br /><br /> End Sub<br />End Class<br />
<br />
Setelah itu SAVE ALL<br />
<br />
Kita Cek sebelum di jalankan Tabel nya Kosong isinya :<br />
<br />
Kemudian Jalankan / Run Programnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPIyQbRlB5XgVckJRUT0RzndqNFURdeYTCJUxFfnUZZau1lElZHgugx240Q8u5Rsmvuxd3MUtWatv7TqvfAScMwDIhFXb1876mzqdsguE1MuVxg38x3TkmJ6z8zejieGjKdErquhhLgTE/s1600/grd2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiPIyQbRlB5XgVckJRUT0RzndqNFURdeYTCJUxFfnUZZau1lElZHgugx240Q8u5Rsmvuxd3MUtWatv7TqvfAScMwDIhFXb1876mzqdsguE1MuVxg38x3TkmJ6z8zejieGjKdErquhhLgTE/s1600/grd2.png" height="376" width="640" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaqA6vjlyquq319UhgG6PvcdrRcuqGsQsm5jThzFqTQ-FApIE6V3cT5EZzU6LvSaI_dBlwDqkcBS_-PEmuzbdYSa0k-DV49sLXi66CiCuH6vhIRlrGes-RP3-Y0EfeZoXgNbrn721lxZU/s1600/grd3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaqA6vjlyquq319UhgG6PvcdrRcuqGsQsm5jThzFqTQ-FApIE6V3cT5EZzU6LvSaI_dBlwDqkcBS_-PEmuzbdYSa0k-DV49sLXi66CiCuH6vhIRlrGes-RP3-Y0EfeZoXgNbrn721lxZU/s1600/grd3.png" height="147" width="640" /> </a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijuOBAlx-GF3x_FOYg-dtzP3pWcXsliaBdnmwy2U_EbWlGYNFIfVvAa2fijQZV2OKMVO6TORjnUiqc6dbaJz5yKGFQ3K0o7nZJW21_6pBgxLDi6wfEfuUtCQ9Rf7SCjwC33grQIgr4_g4/s1600/grd4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijuOBAlx-GF3x_FOYg-dtzP3pWcXsliaBdnmwy2U_EbWlGYNFIfVvAa2fijQZV2OKMVO6TORjnUiqc6dbaJz5yKGFQ3K0o7nZJW21_6pBgxLDi6wfEfuUtCQ9Rf7SCjwC33grQIgr4_g4/s1600/grd4.png" height="548" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
Selamat Ber Otak Atik</div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-61252814895439307912014-07-05T21:42:00.006-07:002014-07-05T23:19:46.840-07:00INPUT DATA LEWAT GRID - VB-2010<div dir="ltr" style="text-align: left;" trbidi="on">
Input Data Grid di simpan di DataBase MYSQL<br />
<br />
Kita siapkan Tabelnya Misal : temporary_beli<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjX9EcVXxFDmGhwoqnwT9PkVFuyuc1JXDOvVy1svkZsYcYhyphenhyphenHtjWW1kamkCviVqSXdf9AMv6QRs565jFlb4xoyOlsdCXCV4VR-5y_yYFIvpH8MMbeZ0KEe6AR1L6Nde7fpu1S3NcEE6C-w/s1600/GRID12.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjX9EcVXxFDmGhwoqnwT9PkVFuyuc1JXDOvVy1svkZsYcYhyphenhyphenHtjWW1kamkCviVqSXdf9AMv6QRs565jFlb4xoyOlsdCXCV4VR-5y_yYFIvpH8MMbeZ0KEe6AR1L6Nde7fpu1S3NcEE6C-w/s1600/GRID12.png" height="200" width="640" /></a></div>
<br />
Buat New Project di VB-2010<br />
Siapkan ToolBox nya :<br />
1. Button namenya = Button2 dan Text nya = SIMPAN<br />
2. Data Grid View = namenya <b>dgv</b><br />
<br />
di dgv cari di Properties ; Coloumn - ( Collection ) Click<br />
Ini untuk membuat Coloumn - coloumn Grid nya<br />
<br />
Tentukan nama (name grid coloumn) dan Text nya ( text header nya )<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
Beri nama Coloumn Gridnya<br />
Misal :<br />
<br />
KODE BARANG = mkdbrg<br />
NAMA BARANG = mnabar<br />
SATUAN = msatuan <br />
JUMLAH = mjumlah<br />
HARGA = mharga <br />
SUBTOTAL = mtot<br />
<br />
Dan perhatikan Coloumn Type nya : lihat gambar<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp9LLnG0PnYOUmaXMyOmthwdTmyOYkORoDxNjrKdVsMKFTVqqye0zExXO039XPs17vXDqo9ZdqT6hgONrtxY179mO68YHXGUqdPf9pj9_1uRBiUsWOM6rdy-GaVi9qLgAMNl5KewfHfzo/s1600/GRID10.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgp9LLnG0PnYOUmaXMyOmthwdTmyOYkORoDxNjrKdVsMKFTVqqye0zExXO039XPs17vXDqo9ZdqT6hgONrtxY179mO68YHXGUqdPf9pj9_1uRBiUsWOM6rdy-GaVi9qLgAMNl5KewfHfzo/s1600/GRID10.png" height="418" width="640" /></a></div>
<br />
BERIKUTNYA :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiF51WBUSFiewBrQPWwrhAKiIVZAWGPCj-Nzvo8Fyt_j3bNnp7LVKM1cqPtNPWXK8vFA__NFw41kzRXpuWRZEfateZiKtE2Sa07Z6wAPt201e9oK0LJfnYbAi7bTEqzO8uUTFwRaFoS4qM/s1600/GRID11.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiF51WBUSFiewBrQPWwrhAKiIVZAWGPCj-Nzvo8Fyt_j3bNnp7LVKM1cqPtNPWXK8vFA__NFw41kzRXpuWRZEfateZiKtE2Sa07Z6wAPt201e9oK0LJfnYbAi7bTEqzO8uUTFwRaFoS4qM/s1600/GRID11.png" height="442" width="640" /></a></div>
<br />
Kita siapkan variabel dan Koneksinya ke MYSQL<br />
yaitu Add Module dan Add Referent nya :<br />
ini codingnya :<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
<br />
Module Module1<br />
Public vkdbrg, vnabar, vsat As String<br />
Public vjumlah As Integer<br />
Public vharga As Integer<br />
Public vtot As Integer<br />
Public cmd As New MySqlCommand<br />
Dim serv As String = "Server=localhost;"<br />
Dim dbase As String = "Database=toko;"<br />
Dim uid As String = "uid=root;"<br />
Dim pwd As String = "pwd=;"<br />
Dim ConString = serv & dbase & uid & pwd<br />
Public db As New MySqlConnection(ConString)<br />
Public Sub konek()<br />
Try<br />
tutupDB()<br />
db.Open()<br />
MsgBox("Koneksi DataBase berhasil dilakukan")<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
End Try<br />
End Sub<br />
Public Sub tutupDB()<br />
If db.State = ConnectionState.Open Then<br />
db.Close()<br />
End If<br />
End Sub<br />
<br />
End Module<br />
*****************<br />
<br />
Setelah itu Coding Simpan nya :<br />
<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
Public Class Form1<br />
<br />
<br />
Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit<br />
If e.ColumnIndex = 3 Then<br />
dgv.Rows(e.RowIndex).Cells(5).Value = dgv.Rows(e.RowIndex).Cells(3).Value * dgv.Rows(e.RowIndex).Cells(4).Value<br />
ElseIf e.ColumnIndex = 4 Then<br />
dgv.Rows(e.RowIndex).Cells(5).Value = dgv.Rows(e.RowIndex).Cells(3).Value * dgv.Rows(e.RowIndex).Cells(4).Value<br />
End If<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
konek()<br />
Dim cmd As New MySqlCommand("INSERT INTO temporary_beli(kdbrg,nabar,satuan,jumlah,harga,subtotal) VALUES (@mkdbrg,@mnabar,@msatuan,@mjumlah,@mharga,@mtot)", db)<br />
Try<br />
<br />
<br />
For i As Integer = 0 To (dgv.Rows.Count - 2)<br />
<br />
vkdbrg = dgv.Rows(i).Cells(0).Value<br />
vnabar = dgv.Rows(i).Cells(1).Value<br />
vsat = dgv.Rows(i).Cells(2).Value<br />
vjumlah = dgv.Rows(i).Cells(3).Value<br />
vharga = dgv.Rows(i).Cells(4).Value<br />
vtot = dgv.Rows(i).Cells(5).Value<br />
<br />
cmd.Parameters.AddWithValue("@mkdbrg", vkdbrg)<br />
cmd.Parameters.AddWithValue("@mnabar", vnabar)<br />
cmd.Parameters.AddWithValue("@msatuan", vsat)<br />
cmd.Parameters.AddWithValue("@mjumlah", vjumlah)<br />
cmd.Parameters.AddWithValue("@mharga", vharga)<br />
cmd.Parameters.AddWithValue("@mtot", vtot)<br />
cmd.ExecuteNonQuery()<br />
cmd.Parameters.Clear()<br />
Next<br />
Catch ex As Exception<br />
Beep()<br />
MsgBox(ex.Message, MsgBoxStyle.Information, "Informasi")<br />
cmd.Dispose()<br />
End Try<br />
End Sub<br />
<br />
End Class<br />
*************<br />
<br />
Setelah itu Save all<br />
<br />
<br />
<br />
Kita Cek sebelum di jalankan DataBase nya Kosong isinya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPLlH8-xQCdwquawGhxJ9aZUggm-xf4Oy2ljJY74fVeMAmAkBeTjCjvbhuhBr4JZCJH0vkmoi14vrhQrD70MM3UeC5dKeUf5R0Nd6kd4HK1zw1ZyNkv0CBPEEdIVOSa_orexPdxqNkjR0/s1600/GRID2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPLlH8-xQCdwquawGhxJ9aZUggm-xf4Oy2ljJY74fVeMAmAkBeTjCjvbhuhBr4JZCJH0vkmoi14vrhQrD70MM3UeC5dKeUf5R0Nd6kd4HK1zw1ZyNkv0CBPEEdIVOSa_orexPdxqNkjR0/s1600/GRID2.png" height="156" width="640" /></a></div>
<span id="goog_741260886"></span><span id="goog_741260887"></span><br />
Kemudian Jalankan / Run Programnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg64l8yOAFgChyphenhyphenyDfr26FyptPH-Nty6jx54j1kYCJOqTbsDIbs90iwzp39eEPklRtX1cMpBX0Ox4JD8RecLOCp59ouirzPJ4wj6Vicb14kaskGcqd63N3Y_-Gq-uSodIsvD4Ikp9Soq1Kg/s1600/GRID8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg64l8yOAFgChyphenhyphenyDfr26FyptPH-Nty6jx54j1kYCJOqTbsDIbs90iwzp39eEPklRtX1cMpBX0Ox4JD8RecLOCp59ouirzPJ4wj6Vicb14kaskGcqd63N3Y_-Gq-uSodIsvD4Ikp9Soq1Kg/s1600/GRID8.png" height="370" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
Setelah di Input Data nya kemudian tekan Tombol Simpan :<br />
<br />
Kita Cek Tabel nya sudah ter Rekam / tidak Data tersebut :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNN8lgN9eWvfryUfgqQ1FKjOHS9U-_zqhQfjlowGf0VkT59uMHrx3WpBDBQyzsaDUWswZpLs_n4zs5R5oM532dKMBpftHE4zkunfSg3NZd6LheVXxl4aZ0p7N0hC1BMZVHWxV-w9lrokU/s1600/GRID9.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNN8lgN9eWvfryUfgqQ1FKjOHS9U-_zqhQfjlowGf0VkT59uMHrx3WpBDBQyzsaDUWswZpLs_n4zs5R5oM532dKMBpftHE4zkunfSg3NZd6LheVXxl4aZ0p7N0hC1BMZVHWxV-w9lrokU/s1600/GRID9.png" height="244" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
Selamat Ber Otak Atik<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-84631625077251846472014-07-05T21:42:00.005-07:002014-07-05T21:43:31.061-07:00INPUT DATA LEWAT GRID - VB-2010<div dir="ltr" style="text-align: left;" trbidi="on">
Input Data Grid di simpan di DataBase MYSQL<br />
<br />
Kita siapkan Tabelnya Misal : temporary_beli<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3vvmiaQaRbk5elFohA5POnt6xq8WcN9qxU0CXGWaY6H-a-O8k6JaxluxdCnuJfN-24qdPDyXadAkBclmI0mXSsQ66-0CiVkp798MbQMQ1MLJOtjedjmN85jMrUrqaYHnUB12zRa-vnLk/s1600/GRID.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3vvmiaQaRbk5elFohA5POnt6xq8WcN9qxU0CXGWaY6H-a-O8k6JaxluxdCnuJfN-24qdPDyXadAkBclmI0mXSsQ66-0CiVkp798MbQMQ1MLJOtjedjmN85jMrUrqaYHnUB12zRa-vnLk/s1600/GRID.png" height="178" width="640" /></a></div>
<br />
Buat New Project di VB-2010<br />
Siapkan ToolBox nya :<br />
1. Button namenya = Button2 dan Text nya = SIMPAN<br />
2. Data Grid View = namenya <b>dgv</b><br />
<br />
di dgv cari di Properties ; Coloumn - ( Collection ) Click<br />
Ini untuk membuat Coloumn - coloumn Grid nya<br />
<br />
Tentukan nama (name grid coloumn) dan Text nya ( text header nya )<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRYdq8-6DwVXut7YmdIyECVae9rre6FoOclGzgsVVf2Upc1ThH8TimkTCX4Pshuz3lb0yMvfX7X-cGNmbfeNwupBuW_f5ureTs1YRJV4Ty1wWEfy7O_Pwz1DhFt5oMZgiEgBou5mFBVGo/s1600/GRID5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRYdq8-6DwVXut7YmdIyECVae9rre6FoOclGzgsVVf2Upc1ThH8TimkTCX4Pshuz3lb0yMvfX7X-cGNmbfeNwupBuW_f5ureTs1YRJV4Ty1wWEfy7O_Pwz1DhFt5oMZgiEgBou5mFBVGo/s1600/GRID5.png" height="358" width="640" /></a></div>
<br />
<br />
Kita siapkan variabel dan Koneksinya ke MYSQL<br />
yaitu Add Module dan Add Referent nya :<br />
ini codingnya :<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
<br />
Module Module1<br />
Public vkdbrg, vnabar As String<br />
Public vjumlah As Integer<br />
Public vharga As Integer<br />
Public vdiskont As Integer<br />
Public cmd As New MySqlCommand<br />
<br />
Dim serv As String = "Server=localhost;"<br />
Dim dbase As String = "Database=toko;"<br />
Dim uid As String = "uid=root;"<br />
Dim pwd As String = "pwd=;"<br />
Dim ConString = serv & dbase & uid & pwd<br />
Public db As New MySqlConnection(ConString)<br />
Public Sub konek()<br />
Try<br />
tutupDB()<br />
db.Open()<br />
MsgBox("Koneksi DataBase berhasil dilakukan")<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
End Try<br />
End Sub<br />
Public Sub tutupDB()<br />
If db.State = ConnectionState.Open Then<br />
db.Close()<br />
End If<br />
End Sub<br />
<br />
End Module<br />
*****************<br />
<br />
Setelah itu Coding Simpan nya :<br />
<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
Public Class Form1<br />
<br />
Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit<br />
If e.ColumnIndex = 2 Then<br />
dgv.Rows(e.RowIndex).Cells(4).Value = dgv.Rows(e.RowIndex).Cells(2).Value * dgv.Rows(e.RowIndex).Cells(3).Value<br />
ElseIf e.ColumnIndex = 3 Then<br />
dgv.Rows(e.RowIndex).Cells(4).Value = dgv.Rows(e.RowIndex).Cells(2).Value * dgv.Rows(e.RowIndex).Cells(3).Value<br />
End If<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
konek()<br />
Dim cmd As New MySqlCommand("INSERT INTO temporary_beli(kdbrg,nabar,jumlah,harga,diskont) VALUES (@mkdbrg,@mnabar,@mjumlah,@mharga,@mdiskont)", db)<br />
Try<br />
<br />
<br />
For i As Integer = 0 To (dgv.Rows.Count - 2)<br />
<br />
vkdbrg = dgv.Rows(i).Cells(0).Value<br />
vnabar = dgv.Rows(i).Cells(1).Value<br />
vjumlah = dgv.Rows(i).Cells(2).Value<br />
vharga = dgv.Rows(i).Cells(3).Value<br />
vdiskont = dgv.Rows(i).Cells(4).Value<br />
<br />
cmd.Parameters.AddWithValue("@mkdbrg", vkdbrg)<br />
cmd.Parameters.AddWithValue("@mnabar", vnabar)<br />
cmd.Parameters.AddWithValue("@mjumlah", vjumlah)<br />
cmd.Parameters.AddWithValue("@mharga", vharga)<br />
cmd.Parameters.AddWithValue("@mdiskont", vdiskont)<br />
cmd.ExecuteNonQuery()<br />
cmd.Parameters.Clear()<br />
Next<br />
Catch ex As Exception<br />
Beep()<br />
MsgBox(ex.Message, MsgBoxStyle.Information, "Informasi")<br />
cmd.Dispose()<br />
End Try<br />
End Sub<br />
<br />
End Class<br />
*************<br />
<br />
Setelah itu Save all<br />
<br />
<br />
<br />
Kita Cek sebelum di jalankan DataBase nya Kosong isinya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPLlH8-xQCdwquawGhxJ9aZUggm-xf4Oy2ljJY74fVeMAmAkBeTjCjvbhuhBr4JZCJH0vkmoi14vrhQrD70MM3UeC5dKeUf5R0Nd6kd4HK1zw1ZyNkv0CBPEEdIVOSa_orexPdxqNkjR0/s1600/GRID2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPLlH8-xQCdwquawGhxJ9aZUggm-xf4Oy2ljJY74fVeMAmAkBeTjCjvbhuhBr4JZCJH0vkmoi14vrhQrD70MM3UeC5dKeUf5R0Nd6kd4HK1zw1ZyNkv0CBPEEdIVOSa_orexPdxqNkjR0/s1600/GRID2.png" height="156" width="640" /></a></div>
<span id="goog_741260886"></span><span id="goog_741260887"></span><br />
Kemudian Jalankan / Run Programnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTpvhDRvtKdFqXP89zjLxAPjI2tsI1lzaD6FzZOEGk3US3o7CH7HrIl_-9iLyFSqAMcolmLeYJZjQCuwXzC733WPeicZvtsiQiljGU2rHMFsUtqgvYImj4dqu5KVyKl8Xrrri6-ffLPuc/s1600/GRID6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTpvhDRvtKdFqXP89zjLxAPjI2tsI1lzaD6FzZOEGk3US3o7CH7HrIl_-9iLyFSqAMcolmLeYJZjQCuwXzC733WPeicZvtsiQiljGU2rHMFsUtqgvYImj4dqu5KVyKl8Xrrri6-ffLPuc/s1600/GRID6.png" height="382" width="640" /></a></div>
<br />
Setelah di Input Data nya kemudian tekan Tombol Simpan :<br />
<br />
Kita Cek Tabel nya sudah ter Rekam / tidak Data tersebut :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-fRXOOxlsVxAm840gZDM93udU6lrDphKUhTv1WcU9No8M8rllK4mCawo5BKzYpYmF0__DWpq5Fk4i_uh-nM_X4eC4z3KR1-ouB4xkqyT0IVIptygrwaqsheCnApd3-GdySLuMwvo9t3A/s1600/GRID7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-fRXOOxlsVxAm840gZDM93udU6lrDphKUhTv1WcU9No8M8rllK4mCawo5BKzYpYmF0__DWpq5Fk4i_uh-nM_X4eC4z3KR1-ouB4xkqyT0IVIptygrwaqsheCnApd3-GdySLuMwvo9t3A/s1600/GRID7.png" height="266" width="640" /></a></div>
<br />
Selamat Ber Otak Atik<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-69231995087866374222014-07-05T21:42:00.003-07:002014-07-05T21:42:45.000-07:00INPUT DATA LEWAT GRID - VB-2010<div dir="ltr" style="text-align: left;" trbidi="on">
Input Data Grid di simpan di DataBase MYSQL<br />
<br />
Kita siapkan Tabelnya Misal : temporary_beli<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3vvmiaQaRbk5elFohA5POnt6xq8WcN9qxU0CXGWaY6H-a-O8k6JaxluxdCnuJfN-24qdPDyXadAkBclmI0mXSsQ66-0CiVkp798MbQMQ1MLJOtjedjmN85jMrUrqaYHnUB12zRa-vnLk/s1600/GRID.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3vvmiaQaRbk5elFohA5POnt6xq8WcN9qxU0CXGWaY6H-a-O8k6JaxluxdCnuJfN-24qdPDyXadAkBclmI0mXSsQ66-0CiVkp798MbQMQ1MLJOtjedjmN85jMrUrqaYHnUB12zRa-vnLk/s1600/GRID.png" height="178" width="640" /></a></div>
<br />
Buat New Project di VB-2010<br />
Siapkan ToolBox nya :<br />
1. Button namenya = Button2 dan Text nya = SIMPAN<br />
2. Data Grid View = namenya <b>dgv</b><br />
<br />
di dgv cari di Properties ; Coloumn - ( Collection ) Click<br />
Ini untuk membuat Coloumn - coloumn Grid nya<br />
<br />
Tentukan nama (name grid coloumn) dan Text nya ( text header nya )<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRYdq8-6DwVXut7YmdIyECVae9rre6FoOclGzgsVVf2Upc1ThH8TimkTCX4Pshuz3lb0yMvfX7X-cGNmbfeNwupBuW_f5ureTs1YRJV4Ty1wWEfy7O_Pwz1DhFt5oMZgiEgBou5mFBVGo/s1600/GRID5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRYdq8-6DwVXut7YmdIyECVae9rre6FoOclGzgsVVf2Upc1ThH8TimkTCX4Pshuz3lb0yMvfX7X-cGNmbfeNwupBuW_f5ureTs1YRJV4Ty1wWEfy7O_Pwz1DhFt5oMZgiEgBou5mFBVGo/s1600/GRID5.png" height="358" width="640" /></a></div>
<br />
<br />
Kita siapkan variabel dan Koneksinya ke MYSQL<br />
yaitu Add Module dan Add Referent nya :<br />
ini codingnya :<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
<br />
Module Module1<br />
Public vkdbrg, vnabar As String<br />
Public vjumlah As Integer<br />
Public vharga As Integer<br />
Public vdiskont As Integer<br />
Public cmd As New MySqlCommand<br />
<br />
Dim serv As String = "Server=localhost;"<br />
Dim dbase As String = "Database=toko;"<br />
Dim uid As String = "uid=root;"<br />
Dim pwd As String = "pwd=;"<br />
Dim ConString = serv & dbase & uid & pwd<br />
Public db As New MySqlConnection(ConString)<br />
Public Sub konek()<br />
Try<br />
tutupDB()<br />
db.Open()<br />
MsgBox("Koneksi DataBase berhasil dilakukan")<br />
Catch ex As MySqlException<br />
MsgBox(ex.Message)<br />
MsgBox("Koneksi tidak berhasil dilakukan")<br />
End Try<br />
End Sub<br />
Public Sub tutupDB()<br />
If db.State = ConnectionState.Open Then<br />
db.Close()<br />
End If<br />
End Sub<br />
<br />
End Module<br />
*****************<br />
<br />
Setelah itu Coding Simpan nya :<br />
<br />
Imports MySql.Data.MySqlClient<br />
Imports System.Data<br />
Public Class Form1<br />
<br />
Private Sub dgv_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellEndEdit<br />
If e.ColumnIndex = 2 Then<br />
dgv.Rows(e.RowIndex).Cells(4).Value = dgv.Rows(e.RowIndex).Cells(2).Value * dgv.Rows(e.RowIndex).Cells(3).Value<br />
ElseIf e.ColumnIndex = 3 Then<br />
dgv.Rows(e.RowIndex).Cells(4).Value = dgv.Rows(e.RowIndex).Cells(2).Value * dgv.Rows(e.RowIndex).Cells(3).Value<br />
End If<br />
End Sub<br />
<br />
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br />
konek()<br />
Dim cmd As New MySqlCommand("INSERT INTO temporary_beli(kdbrg,nabar,jumlah,harga,diskont) VALUES (@mkdbrg,@mnabar,@mjumlah,@mharga,@mdiskont)", db)<br />
Try<br />
<br />
<br />
For i As Integer = 0 To (dgv.Rows.Count - 2)<br />
<br />
vkdbrg = dgv.Rows(i).Cells(0).Value<br />
vnabar = dgv.Rows(i).Cells(1).Value<br />
vjumlah = dgv.Rows(i).Cells(2).Value<br />
vharga = dgv.Rows(i).Cells(3).Value<br />
vdiskont = dgv.Rows(i).Cells(4).Value<br />
<br />
cmd.Parameters.AddWithValue("@mkdbrg", vkdbrg)<br />
cmd.Parameters.AddWithValue("@mnabar", vnabar)<br />
cmd.Parameters.AddWithValue("@mjumlah", vjumlah)<br />
cmd.Parameters.AddWithValue("@mharga", vharga)<br />
cmd.Parameters.AddWithValue("@mdiskont", vdiskont)<br />
cmd.ExecuteNonQuery()<br />
cmd.Parameters.Clear()<br />
Next<br />
Catch ex As Exception<br />
Beep()<br />
MsgBox(ex.Message, MsgBoxStyle.Information, "Informasi")<br />
cmd.Dispose()<br />
End Try<br />
End Sub<br />
<br />
End Class<br />
*************<br />
<br />
Setelah itu Save all<br />
<br />
<br />
<br />
Kita Cek sebelum di jalankan DataBase nya Kosong isinya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPLlH8-xQCdwquawGhxJ9aZUggm-xf4Oy2ljJY74fVeMAmAkBeTjCjvbhuhBr4JZCJH0vkmoi14vrhQrD70MM3UeC5dKeUf5R0Nd6kd4HK1zw1ZyNkv0CBPEEdIVOSa_orexPdxqNkjR0/s1600/GRID2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjPLlH8-xQCdwquawGhxJ9aZUggm-xf4Oy2ljJY74fVeMAmAkBeTjCjvbhuhBr4JZCJH0vkmoi14vrhQrD70MM3UeC5dKeUf5R0Nd6kd4HK1zw1ZyNkv0CBPEEdIVOSa_orexPdxqNkjR0/s1600/GRID2.png" height="156" width="640" /></a></div>
<span id="goog_741260886"></span><span id="goog_741260887"></span><br />
Kemudian Jalankan / Run Programnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTpvhDRvtKdFqXP89zjLxAPjI2tsI1lzaD6FzZOEGk3US3o7CH7HrIl_-9iLyFSqAMcolmLeYJZjQCuwXzC733WPeicZvtsiQiljGU2rHMFsUtqgvYImj4dqu5KVyKl8Xrrri6-ffLPuc/s1600/GRID6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTpvhDRvtKdFqXP89zjLxAPjI2tsI1lzaD6FzZOEGk3US3o7CH7HrIl_-9iLyFSqAMcolmLeYJZjQCuwXzC733WPeicZvtsiQiljGU2rHMFsUtqgvYImj4dqu5KVyKl8Xrrri6-ffLPuc/s1600/GRID6.png" height="382" width="640" /></a></div>
<br />
Setelah di Input Data nya kemudian tekan Tombol Simpan :<br />
<br />
Kita Cek Tabel nya sudah ter Rekam / tidak Data tersebut :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-fRXOOxlsVxAm840gZDM93udU6lrDphKUhTv1WcU9No8M8rllK4mCawo5BKzYpYmF0__DWpq5Fk4i_uh-nM_X4eC4z3KR1-ouB4xkqyT0IVIptygrwaqsheCnApd3-GdySLuMwvo9t3A/s1600/GRID7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-fRXOOxlsVxAm840gZDM93udU6lrDphKUhTv1WcU9No8M8rllK4mCawo5BKzYpYmF0__DWpq5Fk4i_uh-nM_X4eC4z3KR1-ouB4xkqyT0IVIptygrwaqsheCnApd3-GdySLuMwvo9t3A/s1600/GRID7.png" height="266" width="640" /></a></div>
<br />
Selamat Ber Otak Atik<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-61562546618982573902014-06-30T23:03:00.001-07:002014-07-01T02:10:16.474-07:00VB-2010 - MEMBUAT REPORT VIEWER<div dir="ltr" style="text-align: left;" trbidi="on">
Misal kita mau membuat Program Cetakan dan di tempelkan di Program Induk.<br />
<br />
lihat gambar :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEil3YcffRtvv2bMVHNHj1NXVPVXG7UA1RCyPR7qSOPJyzizFMcJYourUAv6hV1FZcvGTCSyToi6Vc-hoz9IN0rVXGG0mhQqZcL8qMKPA9Rrhw575t2AocJ3C7VnjXcVAerwRnk_vqmpwL4/s1600/sett.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEil3YcffRtvv2bMVHNHj1NXVPVXG7UA1RCyPR7qSOPJyzizFMcJYourUAv6hV1FZcvGTCSyToi6Vc-hoz9IN0rVXGG0mhQqZcL8qMKPA9Rrhw575t2AocJ3C7VnjXcVAerwRnk_vqmpwL4/s1600/sett.png" height="358" width="640" /></a></div>
Beri nama Form3 kemudian menjadi lembar kerja Form3.vb<br />
<br />
cari Toolbox pilih ke Reporting dan clik di Report Viewer<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizcE4abrpGoEDLslgU_7oKWdPBPgrjho5teWqxbq9QPgvn2uHAwXXZzQVu4w0j7kUKNOFW5J_UD4UoksAXAiv6bc9f-VAUso_DGhWg-k2NBLWaBB8gVYObQ_1kZ6-OpGkOA6nGxQdUwRs/s1600/set1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEizcE4abrpGoEDLslgU_7oKWdPBPgrjho5teWqxbq9QPgvn2uHAwXXZzQVu4w0j7kUKNOFW5J_UD4UoksAXAiv6bc9f-VAUso_DGhWg-k2NBLWaBB8gVYObQ_1kZ6-OpGkOA6nGxQdUwRs/s1600/set1.png" height="358" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifUZaCxrGWICP2YlBPb2R4hpQqgopEgUMBsVj7dKVqXC9nsPg3uayV0_cZg52jQGcx4ZC_OzD4l85Tr63C-PujZPS9rcDCqAC_AVzDjy15nuM9e8LTSqY92a6UUoLQfMuNlhzw3g99-tk/s1600/set2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEifUZaCxrGWICP2YlBPb2R4hpQqgopEgUMBsVj7dKVqXC9nsPg3uayV0_cZg52jQGcx4ZC_OzD4l85Tr63C-PujZPS9rcDCqAC_AVzDjy15nuM9e8LTSqY92a6UUoLQfMuNlhzw3g99-tk/s1600/set2.png" height="358" width="640" /></a></div>
<br />
Klik Design a New Report muncul sbb :<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0qLtXet-2xtDYriJLwx33jy2TTBB7ren3a4wr1He_itPuINseBUz1ploGWLgpcLImSHOnFfc59lMFYemWT2uMxCYzdYT-kvIiL9BZAAUre7OgbwQuoL2iwbyNqpLtE2YKeypXeZSOW9Y/s1600/set3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg0qLtXet-2xtDYriJLwx33jy2TTBB7ren3a4wr1He_itPuINseBUz1ploGWLgpcLImSHOnFfc59lMFYemWT2uMxCYzdYT-kvIiL9BZAAUre7OgbwQuoL2iwbyNqpLtE2YKeypXeZSOW9Y/s1600/set3.png" height="358" width="640" /></a></div>
<br />
Klik New<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGayzegypBAn3O1fcO49oTAXjpJ8AygBCga4W5azP1tqaCC6gPtgJ8-0joCSJ6jZgofQiOAkgdJHUnz5gxrBy4GIquV_zMYr-PR4x5EN6y98GsR2NcGZHzmmJcyeZC3pXtAY4TcxR-vcU/s1600/set4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjGayzegypBAn3O1fcO49oTAXjpJ8AygBCga4W5azP1tqaCC6gPtgJ8-0joCSJ6jZgofQiOAkgdJHUnz5gxrBy4GIquV_zMYr-PR4x5EN6y98GsR2NcGZHzmmJcyeZC3pXtAY4TcxR-vcU/s1600/set4.png" height="358" width="640" /></a></div>
Next <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgjMwlqDMdMUynIMzmmaq_E0cPgS41-jM2DePoeKng5bfMwgZIWfbo02SiM1JX1mGUpWpgXujXZEkrdd9zEUu3YOHMi8xW3jqgukYBzZXMosmmmw-O1Hs7-stpYBIES-nVkHZ5YmCJ5Zw4/s1600/set5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgjMwlqDMdMUynIMzmmaq_E0cPgS41-jM2DePoeKng5bfMwgZIWfbo02SiM1JX1mGUpWpgXujXZEkrdd9zEUu3YOHMi8xW3jqgukYBzZXMosmmmw-O1Hs7-stpYBIES-nVkHZ5YmCJ5Zw4/s1600/set5.png" height="358" width="640" /></a></div>
<br />
Next <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiHYyUvqOkRxUUhyphenhyphen5rfYZsiYPiJFWGMedkkPiTXpNWNo9Mel0i7vCdTbqlmnRDmW6KZ6gWWbPFmFeEiVUbUOPamW3xKPUOugKmHq1iYmDMJRN5YCrKDwgL61mWrBFZCQpbCBtwzpBpIVSQ/s1600/set15.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><br /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4S-enoJcXgVNM3fy0quXpfUFUCYJI_kFPRblJl9F458J2axMOCFLW_fP3WMGze0kAhHD32yWjkKAO38J8lRbIJCGYAPEI7ggaVENchgRzjY5nujk3rrJTe08MI2o7n0SB4IgQ_S4SzSc/s1600/set6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg4S-enoJcXgVNM3fy0quXpfUFUCYJI_kFPRblJl9F458J2axMOCFLW_fP3WMGze0kAhHD32yWjkKAO38J8lRbIJCGYAPEI7ggaVENchgRzjY5nujk3rrJTe08MI2o7n0SB4IgQ_S4SzSc/s1600/set6.png" height="358" width="640" /></a></div>
<br />
Pilih MySQL Database :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgu9oj4182kcs67m_5eQi4f-Kt2n7A0IuE4PiETa1MEuLHIXtf2jEHdSmixjVoIErdIa3_ccCXdcDTeEM3-KFt6eQVZMxwGfpIVOYVKbm2aCjaJIdAHxg4f7XepM7Q5C0xL5hWakFGLYQY/s1600/set7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgu9oj4182kcs67m_5eQi4f-Kt2n7A0IuE4PiETa1MEuLHIXtf2jEHdSmixjVoIErdIa3_ccCXdcDTeEM3-KFt6eQVZMxwGfpIVOYVKbm2aCjaJIdAHxg4f7XepM7Q5C0xL5hWakFGLYQY/s1600/set7.png" height="358" width="640" /></a></div>
<br />
Isikan Server name sesuai IP adress Komputer anda contoh ini = 192.168.1.8 ( Lokasi Database MYSQL di Komputer tersebut ) atau Localhost<br />
User name = root dan password bisa kosong atau contoh ini root :<br />
Terus pilih Database name yg anda Gunakan :<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWPu2u0fVyh9Ma2-_NYYVJJyzWMwDhinGAD3AH_151myOxPnfCl45XAEU6VwaOoYgLzuhCQu_MENOi4Sr5Jlr4xalb6LH3KdsT8dsZKXgiMHxdYd1_VZiDyIrU7uz0xt0nIIYyoM7Rjks/s1600/set8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgWPu2u0fVyh9Ma2-_NYYVJJyzWMwDhinGAD3AH_151myOxPnfCl45XAEU6VwaOoYgLzuhCQu_MENOi4Sr5Jlr4xalb6LH3KdsT8dsZKXgiMHxdYd1_VZiDyIrU7uz0xt0nIIYyoM7Rjks/s1600/set8.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1uy0os4UnqgDPeUvyzEgDJWUFIjtt4w4Nz1dMddMzqOS4pHbvk9XNd0xrDDLM1zOjyEdIf54tTM0YVSmttJ17_RpuWClX2717SmLveDPCi2zFEjLwKoe_S9KNLzOohQxku9iKUIMuOiU/s1600/set9.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj1uy0os4UnqgDPeUvyzEgDJWUFIjtt4w4Nz1dMddMzqOS4pHbvk9XNd0xrDDLM1zOjyEdIf54tTM0YVSmttJ17_RpuWClX2717SmLveDPCi2zFEjLwKoe_S9KNLzOohQxku9iKUIMuOiU/s1600/set9.png" height="358" width="640" /></a></div>
<br />
Klik yes dan Next <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMbcbSGomXkkrMVeP527_gW-iwyS4-t5begr-NGnl9CtUmIk8P3rQuTPgAWMJVb6D9IkM5rr7yzhxhK4t-3SuUm0hAjXfRUBH7nAhgOhCZjUK3KXRJwFpm14h3sBn-E65wjXRSz4Sgj7k/s1600/set10.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMbcbSGomXkkrMVeP527_gW-iwyS4-t5begr-NGnl9CtUmIk8P3rQuTPgAWMJVb6D9IkM5rr7yzhxhK4t-3SuUm0hAjXfRUBH7nAhgOhCZjUK3KXRJwFpm14h3sBn-E65wjXRSz4Sgj7k/s1600/set10.png" height="358" width="640" /></a></div>
<br />
Next :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgboR5H5YYhAIeSMMcTaRtzUZ9I4vfOJ1MjY5kLs1NJQ6lrk0eCOq0UEL0igas36Imzqk8yYUnFKo5EQYzyKqHT0LNkMe5AtyFjX5J6sed5AvdpYkvutX3aBDbFGbyAvGvQtYAajAT3zvM/s1600/set11.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgboR5H5YYhAIeSMMcTaRtzUZ9I4vfOJ1MjY5kLs1NJQ6lrk0eCOq0UEL0igas36Imzqk8yYUnFKo5EQYzyKqHT0LNkMe5AtyFjX5J6sed5AvdpYkvutX3aBDbFGbyAvGvQtYAajAT3zvM/s1600/set11.png" height="358" width="640" /></a></div>
<br />
Centang Table :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPqNTwWagvv0PAXozPylt9tiIKeEEPrhRYOvoG7stRHBPL6nvuDtqIsGxxgm7qkOs1oZteFebqctuJlFMHK4S4CxffBHq-wPW8_eoreM4futqDV8c6TvA2xmeupTKhIv3fW-VD5ss6qL0/s1600/set12.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhPqNTwWagvv0PAXozPylt9tiIKeEEPrhRYOvoG7stRHBPL6nvuDtqIsGxxgm7qkOs1oZteFebqctuJlFMHK4S4CxffBHq-wPW8_eoreM4futqDV8c6TvA2xmeupTKhIv3fW-VD5ss6qL0/s1600/set12.png" height="358" width="640" /></a></div>
<br />
Pilih Tabel yg mau anda Cetak :<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinwAvO-vuNbXQM0ndT-ft3L4_cILGfaWT139xdTeQqvPf9Hkj3Us0-3bhYEKEbppHscRzMiodk2y7vOhFe774a9yzt17UPXfwn0W_wq9WZ7AFqGzhGeQbOx39Kb1qBOBG8UDoKquJgnH0/s1600/set13.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEinwAvO-vuNbXQM0ndT-ft3L4_cILGfaWT139xdTeQqvPf9Hkj3Us0-3bhYEKEbppHscRzMiodk2y7vOhFe774a9yzt17UPXfwn0W_wq9WZ7AFqGzhGeQbOx39Kb1qBOBG8UDoKquJgnH0/s1600/set13.png" height="358" width="640" /></a></div>
<br />
Disini dipilih Tabrang :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3kQJ7onlqNnqvcnfcViuLn9Brm8_QXHv0K6pgghdakL4Hy9_GAn4jvH-cqeOwv5UuJmJP8ph3SjoHo6Zuq9WC-6hKQsyGGFWeYVOXgzRkAoYnTeNzmyv36T7WcgrK3XRm3Kkn9CDsqgY/s1600/set14.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh3kQJ7onlqNnqvcnfcViuLn9Brm8_QXHv0K6pgghdakL4Hy9_GAn4jvH-cqeOwv5UuJmJP8ph3SjoHo6Zuq9WC-6hKQsyGGFWeYVOXgzRkAoYnTeNzmyv36T7WcgrK3XRm3Kkn9CDsqgY/s1600/set14.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivHRrZKeFJM7hHTs4FjsOTuYBKq5_xh_m4Fc-OHl1ymGolTewBFEJap-N30Sgn4lZ8mSrQjvjcb2KGWIwjQyNqIpL4jtl6PiuJuXsl_2cCgzWBvzP1to5N2QkM6lSeGBwvSyaFhDzgtD4/s1600/set15.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEivHRrZKeFJM7hHTs4FjsOTuYBKq5_xh_m4Fc-OHl1ymGolTewBFEJap-N30Sgn4lZ8mSrQjvjcb2KGWIwjQyNqIpL4jtl6PiuJuXsl_2cCgzWBvzP1to5N2QkM6lSeGBwvSyaFhDzgtD4/s1600/set15.png" height="358" width="640" /></a></div>
<br />
Tarik / Drag daRi kotak Available Field ke Values ( digeret pakai Mouse ) :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDoLAduUbQ-w0Zj_84_UjwygZBGD2H57lDOPadIsocrsMzGapJAHSChr-H7CLKZ_r6Fue3LUGQQlsS-0xy6VSbfLIp29Spi-tEoUt5guDLGEYXA9OohaxPwsI-LG5V23MAYyuGrfKFL9c/s1600/set16.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjDoLAduUbQ-w0Zj_84_UjwygZBGD2H57lDOPadIsocrsMzGapJAHSChr-H7CLKZ_r6Fue3LUGQQlsS-0xy6VSbfLIp29Spi-tEoUt5guDLGEYXA9OohaxPwsI-LG5V23MAYyuGrfKFL9c/s1600/set16.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfsH2O1VnSWOgVw2BwNTseYVqTbElFWvE9J7jp9YsSe6zzk_6ZGkRyuGNVkVVOYVH2koDdt-zyTN6hD-6DSvuZwR4jFXmdApAc_1mJ81_QsyPS2dGbv7dVKGtyEh8AcdRFlbkMh3UwC3M/s1600/set17.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjfsH2O1VnSWOgVw2BwNTseYVqTbElFWvE9J7jp9YsSe6zzk_6ZGkRyuGNVkVVOYVH2koDdt-zyTN6hD-6DSvuZwR4jFXmdApAc_1mJ81_QsyPS2dGbv7dVKGtyEh8AcdRFlbkMh3UwC3M/s1600/set17.png" height="358" width="640" /></a></div>
<br />
Pilih Jenis Laporan yg anda Pakai :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigsFf75pBa2vtKZURCrOq6ZOKmcVXC0zkUmgNN-1iOtzMPWovJNDYQwwNqPqbBWV3N9dh3kX3vWScTD5FzqrBB0EXHFMu6cpivuduFe-dO2fGysq4WhDzSRMwN8JZ4VZNmh0EBzBxo204/s1600/set18.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEigsFf75pBa2vtKZURCrOq6ZOKmcVXC0zkUmgNN-1iOtzMPWovJNDYQwwNqPqbBWV3N9dh3kX3vWScTD5FzqrBB0EXHFMu6cpivuduFe-dO2fGysq4WhDzSRMwN8JZ4VZNmh0EBzBxo204/s1600/set18.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZnQEDwtAjX69an7LPrvlRdQ0dRMBbc135sBvBBK1R3YOveJ5vhtggSGbykV4ORkSbwAb8lgwN0ZjQIlzAFWeYPEsTANBQSFkNZEPElV3yHV9Ckla-1fC3T1CftC-jHrFUpXdPU5qrGyc/s1600/set19.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZnQEDwtAjX69an7LPrvlRdQ0dRMBbc135sBvBBK1R3YOveJ5vhtggSGbykV4ORkSbwAb8lgwN0ZjQIlzAFWeYPEsTANBQSFkNZEPElV3yHV9Ckla-1fC3T1CftC-jHrFUpXdPU5qrGyc/s1600/set19.png" height="358" width="640" /></a></div>
<br />
Clik Kanan lalu Klik Add Page Header :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbJk0lNI7ucdiLCqt2xjYh8-l4hs0UDMQP1tTlsg3KAertn7fpxpvo5DjNUVLDuW76h8MoQwhZcMqFgM7DSOGU6_I7hnouT-o1d7bveIdZgiDnpzRAGwIBG0sz8qMPELZ1CzsqpRnR7aw/s1600/set20.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhbJk0lNI7ucdiLCqt2xjYh8-l4hs0UDMQP1tTlsg3KAertn7fpxpvo5DjNUVLDuW76h8MoQwhZcMqFgM7DSOGU6_I7hnouT-o1d7bveIdZgiDnpzRAGwIBG0sz8qMPELZ1CzsqpRnR7aw/s1600/set20.png" height="358" width="640" /></a></div>
<br />
Klik Kanan lagi dan klik insert - Image dan cari di komputer anda<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisqsgPjfpzMtSN8sq_9_FBOnaMuPgy6E1humBbTW4zsX6PyCz2pLMct_KL4YTzkt0v3MRD7W0B1DuLVOwy9HfcWuSN8NfWVOF1419e03mEM0nttjpmqStFR6n_4p60y5BEeYMERmd8AUg/s1600/set21.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisqsgPjfpzMtSN8sq_9_FBOnaMuPgy6E1humBbTW4zsX6PyCz2pLMct_KL4YTzkt0v3MRD7W0B1DuLVOwy9HfcWuSN8NfWVOF1419e03mEM0nttjpmqStFR6n_4p60y5BEeYMERmd8AUg/s1600/set21.png" height="358" width="640" /></a></div>
<br />
Klik Import <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0g5oKNfUj5Va6SaQwwN38bNig1CEZWEVQyZRX_jwvYo5pt-kn0_voe9-pJkIKnBBWuFxjvlPj51IH6gIN1bYw4s7NgN0mqDrbu17TC-CZ_XGTc1nm9sq9AoqsxwhbY9YVQ9T30YqfCG8/s1600/set22.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh0g5oKNfUj5Va6SaQwwN38bNig1CEZWEVQyZRX_jwvYo5pt-kn0_voe9-pJkIKnBBWuFxjvlPj51IH6gIN1bYw4s7NgN0mqDrbu17TC-CZ_XGTc1nm9sq9AoqsxwhbY9YVQ9T30YqfCG8/s1600/set22.png" height="358" width="640" /></a></div>
<br />
Pilih Gambar dari Komputer anda :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7-RMjEQOGE_cZhnnOjcQA2oVuDlKfD-G7tTVO-kpki-KIukrSEG6Cy3T7qDCSjxlSiuCKPjj6FM_NXxcLq8_KzMFgolmhZSyXkhfItWzJ-DRZkfxxkL-PZnCP20S17nuLOjX27FWOOag/s1600/set23.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7-RMjEQOGE_cZhnnOjcQA2oVuDlKfD-G7tTVO-kpki-KIukrSEG6Cy3T7qDCSjxlSiuCKPjj6FM_NXxcLq8_KzMFgolmhZSyXkhfItWzJ-DRZkfxxkL-PZnCP20S17nuLOjX27FWOOag/s1600/set23.png" height="358" width="640" /></a></div>
<br />
Sise nya pilih Fit to Size tampilan gambar biar pass<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWpap-pcXUJoM6Qu2iKwuM4athJVhKsmclJzSpe4X4GgsYCurTqjFE9Ld1gVWw6GZm10lO-FKE7Qy2VcdzIFhviYbe9cc_svmFkQyR8Udnao9GricIBG1RA4VDk0uq4le5a51bjqH2dKE/s1600/set24.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWpap-pcXUJoM6Qu2iKwuM4athJVhKsmclJzSpe4X4GgsYCurTqjFE9Ld1gVWw6GZm10lO-FKE7Qy2VcdzIFhviYbe9cc_svmFkQyR8Udnao9GricIBG1RA4VDk0uq4le5a51bjqH2dKE/s1600/set24.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjU1gE36us_BzvN-3Aya30jIY_K0mGrksisjGG5HuClWJIml3c3VMJdMI3xKVx1Ua0O77CVCDm-KI7NFsw8iEFNPhlbXz56qwsdXuBRANotohillW758Uqv5a_6C4BGYdJF4E2GRVG3GOE/s1600/set25.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjU1gE36us_BzvN-3Aya30jIY_K0mGrksisjGG5HuClWJIml3c3VMJdMI3xKVx1Ua0O77CVCDm-KI7NFsw8iEFNPhlbXz56qwsdXuBRANotohillW758Uqv5a_6C4BGYdJF4E2GRVG3GOE/s1600/set25.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeCAWyv_LvOFnxbvFV060CA4bmHgcr3c_CC2H63rtNAS7dvS1HVa-tSDMwmv9aTIvKuw2CagML23VnABfs5VzgC24nRfL60Vf_o7pkM_Ty2pLmKToPfjn8QNShyphenhyphen4z5gtOAT8OIFvMN0-A/s1600/set26.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjeCAWyv_LvOFnxbvFV060CA4bmHgcr3c_CC2H63rtNAS7dvS1HVa-tSDMwmv9aTIvKuw2CagML23VnABfs5VzgC24nRfL60Vf_o7pkM_Ty2pLmKToPfjn8QNShyphenhyphen4z5gtOAT8OIFvMN0-A/s1600/set26.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTUZ1UtgmJmfcZzmw_rRY4kWQiin97YNCrXROubACM18JQhdx2EKOZZEP5UcKfmK6G5k0iNk_lwD0MtAmJbI-wkW8D9o42tKXbfQPjCP2kyw_DRty-wpejxv1h10n3SlLosEUY96RhPE0/s1600/set27.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhTUZ1UtgmJmfcZzmw_rRY4kWQiin97YNCrXROubACM18JQhdx2EKOZZEP5UcKfmK6G5k0iNk_lwD0MtAmJbI-wkW8D9o42tKXbfQPjCP2kyw_DRty-wpejxv1h10n3SlLosEUY96RhPE0/s1600/set27.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDU4NY-x2MSgcVBO-p3RXCUILdq-dvsZ3nHRg-1WAcI8X4ZXrwY1YvDiAtuEQGqO41Pp9gW-s6WsId1Z36Q-5dx2ctK7QCLSxEjh3opPIQgtHnyLZVaI4s8AMPw9rlQnBDfP0z6GUvfTs/s1600/set28.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDU4NY-x2MSgcVBO-p3RXCUILdq-dvsZ3nHRg-1WAcI8X4ZXrwY1YvDiAtuEQGqO41Pp9gW-s6WsId1Z36Q-5dx2ctK7QCLSxEjh3opPIQgtHnyLZVaI4s8AMPw9rlQnBDfP0z6GUvfTs/s1600/set28.png" height="358" width="640" /></a></div>
<br />
di Baris Detail Klik pilih Add Total After<br />
untuk Membuat Total di akhir cetakan kusus Numerik<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgs96Hkiju1BlgGEjhQjU0dNanKQzgL8I2sf1VPDH5AovHh_OgaYi9ZI3IFth-56kxtkJ1Je1iosME8fRzqKDLHVKCqrh1xk_oG_37AidY_wgUPLWvyr31OMcSUXUUTM2p9Cskn4avwYc0/s1600/set29.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgs96Hkiju1BlgGEjhQjU0dNanKQzgL8I2sf1VPDH5AovHh_OgaYi9ZI3IFth-56kxtkJ1Je1iosME8fRzqKDLHVKCqrh1xk_oG_37AidY_wgUPLWvyr31OMcSUXUUTM2p9Cskn4avwYc0/s1600/set29.png" height="358" width="640" /></a></div>
<br />
Tampak di layar Sum<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjb7CtEfK9QBecUyKSzg9khS7ysFcpUHORk3NNGDWoIQ6zpTy4dztmciUsqYNsINvPrWIchH2exTTQ5cGEgSq0UfUJPHMVn2Bz9SDPkGrKRlWf3xzeUYxTirbuZRX4LCITR4oaLAJ89fVA/s1600/set30.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjb7CtEfK9QBecUyKSzg9khS7ysFcpUHORk3NNGDWoIQ6zpTy4dztmciUsqYNsINvPrWIchH2exTTQ5cGEgSq0UfUJPHMVn2Bz9SDPkGrKRlWf3xzeUYxTirbuZRX4LCITR4oaLAJ89fVA/s1600/set30.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQLHOlE7tD5ZhRjRH4vTfngoZw1u8XmSI_vmHcSwe43NJttLrxS8RML3T_YL0JAtsRsBIFrF38jf0PCF7wIsvB2qpASqjiHhbCOPocp77ZV18PmhlRzvyPBDgKkiwvWMpPYgd2qMLs0v0/s1600/set31.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgQLHOlE7tD5ZhRjRH4vTfngoZw1u8XmSI_vmHcSwe43NJttLrxS8RML3T_YL0JAtsRsBIFrF38jf0PCF7wIsvB2qpASqjiHhbCOPocp77ZV18PmhlRzvyPBDgKkiwvWMpPYgd2qMLs0v0/s1600/set31.png" height="358" width="640" /></a></div>
<br />
<br />
Kemudian jalankan :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgg2-pvIdnrRskJg6XbP7edbuuT0W2jWheoIeTlJ_R2I6uT_TbbtuVwr2QIwc_xUZQovQEK5XInAsY2COZrACwApSgzDQV_ZzL6DtZUgdnMfIAXDr5sE3adY_Q2fYMiNq_AHWJvjNIb6rY/s1600/set32.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgg2-pvIdnrRskJg6XbP7edbuuT0W2jWheoIeTlJ_R2I6uT_TbbtuVwr2QIwc_xUZQovQEK5XInAsY2COZrACwApSgzDQV_ZzL6DtZUgdnMfIAXDr5sE3adY_Q2fYMiNq_AHWJvjNIb6rY/s1600/set32.png" height="358" width="640" /></a></div>
<br />
Data dari Tabel Barang tidak Muncul Kenapa ? kita lihat gambar :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZaXumVF_i1WqNNWDB9VPgYY1KhqaUAhhAeLPmI3sd-9tjsWvPu0wYwoAtTjXLzsgcHsFoF8lu1e3UpBPir7yLbRbYmjPnyNpyL-dQUGSgdqXXdFP8o9qbW-0rytaWZ6rJEUCBq8jN_7g/s1600/set33.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZaXumVF_i1WqNNWDB9VPgYY1KhqaUAhhAeLPmI3sd-9tjsWvPu0wYwoAtTjXLzsgcHsFoF8lu1e3UpBPir7yLbRbYmjPnyNpyL-dQUGSgdqXXdFP8o9qbW-0rytaWZ6rJEUCBq8jN_7g/s1600/set33.png" height="358" width="640" /></a></div>
<br />
<br />
Klik pojok kanan atas gbr panah :<br />
Klik Choose Report = Pilih Report Viewer yg baru anda Design seperti pada gambar<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihAin0LZE5PFsNKwVHsfpgfpAafALDUYLFKONxtgA2-plOCHgrecin0UeElbFAl_ur6aV3Z7RcvM5ISOKLoJl1jKO2VjrvYJ9-v-A1n4ZklObjuslZm_D5bUYuPj0Hp334Qeac3NVC1No/s1600/set34.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEihAin0LZE5PFsNKwVHsfpgfpAafALDUYLFKONxtgA2-plOCHgrecin0UeElbFAl_ur6aV3Z7RcvM5ISOKLoJl1jKO2VjrvYJ9-v-A1n4ZklObjuslZm_D5bUYuPj0Hp334Qeac3NVC1No/s1600/set34.png" height="358" width="640" /></a></div>
<br />
Kemudian Save All ( Simpan Perubahan ) lalu Jalankan lagi - Hasilnya :<br />
Data sudah Keluar :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSBeGTZrKlFlM15RHPwFZe2Hia9vkb49C8BGv2vba7707N83JQyV9KS8FNYrKmP9shsFRJ4rRUOIKItbh45pbJJwR2gLyyKzITgo3NRJtb4hfCXO7GtlMxNyisbkDIglU-TS4PNENFdWM/s1600/set35.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSBeGTZrKlFlM15RHPwFZe2Hia9vkb49C8BGv2vba7707N83JQyV9KS8FNYrKmP9shsFRJ4rRUOIKItbh45pbJJwR2gLyyKzITgo3NRJtb4hfCXO7GtlMxNyisbkDIglU-TS4PNENFdWM/s1600/set35.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTyFcUGl_LFx7DFGKHo-zpofkKmSGgL8kES0R3VnB-3AcUCbTsPMMYtkVNAdpMcmgSE8ynQfEdSuftoP5-D7_8jaadxnHVcnbo7HqU3NcsngHnizjD8UJ7q2PlFvcqO4D7JWGv_kxIlvY/s1600/set36.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjTyFcUGl_LFx7DFGKHo-zpofkKmSGgL8kES0R3VnB-3AcUCbTsPMMYtkVNAdpMcmgSE8ynQfEdSuftoP5-D7_8jaadxnHVcnbo7HqU3NcsngHnizjD8UJ7q2PlFvcqO4D7JWGv_kxIlvY/s1600/set36.png" height="358" width="640" /></a></div>
<br />
Perhatikan gambar Print Preview ini bisa di Cetak dalamm 3 Type :<br />
- Exel<br />
- PDF<br />
- Word<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEis9OliAZqUGYsXoNgBEVAaE5z4c7Ev9uemnPzz-C5lYCuIoIzFQla5GbgDreDnxyBcHYTSJLrF0Dfpv7OUCJYpjGQSOQ2Pp21oFQ3dXbRuzlVdtOLvHT9XX0oQbDE0IHCdIzkGjqqgiQg/s1600/set37.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEis9OliAZqUGYsXoNgBEVAaE5z4c7Ev9uemnPzz-C5lYCuIoIzFQla5GbgDreDnxyBcHYTSJLrF0Dfpv7OUCJYpjGQSOQ2Pp21oFQ3dXbRuzlVdtOLvHT9XX0oQbDE0IHCdIzkGjqqgiQg/s1600/set37.png" height="358" width="640" /></a></div>
<br />
<br />
Pilih Cetakan ke Exel dan simpan misal di Document Tesexel.xls dan Hasilnya sbb :<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_4ZMCfku1mx2YQNbp5OhZBEqdwdt1wSB3egf-V5kQuRGjuCftY_SJXFYU5ElM6WK0jA5iFDNoVspe0Q1FRdNMQryJRP8RkguwmD1tTsgGp8Xz65-90K4vlTTuSlWJLg6QKlTRtZlR5uo/s1600/set38.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_4ZMCfku1mx2YQNbp5OhZBEqdwdt1wSB3egf-V5kQuRGjuCftY_SJXFYU5ElM6WK0jA5iFDNoVspe0Q1FRdNMQryJRP8RkguwmD1tTsgGp8Xz65-90K4vlTTuSlWJLg6QKlTRtZlR5uo/s1600/set38.png" height="358" width="640" /></a></div>
<br />
Di Hias dikit :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLDIPVhTpaLq7PBDdIQwDByaChXItcCApekQXYRz99bjmnJmNspye86z5TGwgo0LxWEU-svG7Jt_RRG2R8584rHB5qxbVGFtP9keahrWn3aB3hVpHaJImbUXdmgNYB9A5M9odc8h4dTV4/s1600/GB1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLDIPVhTpaLq7PBDdIQwDByaChXItcCApekQXYRz99bjmnJmNspye86z5TGwgo0LxWEU-svG7Jt_RRG2R8584rHB5qxbVGFtP9keahrWn3aB3hVpHaJImbUXdmgNYB9A5M9odc8h4dTV4/s1600/GB1.png" height="358" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNUBiK-KbAeJxUZrwJWq44nv48_hH7BlT7c2YLRKHKLAMfyEIX0WlfjXZCNDtjLRK6oYVCHjejhFeAaurn3f3m2TzBFRXigpWs4itE9_XHUmfvKvjetC53cu-5iNJpcZ_j2yJiNXWpOJ8/s1600/GB2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgNUBiK-KbAeJxUZrwJWq44nv48_hH7BlT7c2YLRKHKLAMfyEIX0WlfjXZCNDtjLRK6oYVCHjejhFeAaurn3f3m2TzBFRXigpWs4itE9_XHUmfvKvjetC53cu-5iNJpcZ_j2yJiNXWpOJ8/s1600/GB2.png" height="358" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjiF_IqqXO3Fe7zZ1o9gJjTmawoFjGk2g1hFDEZh-fCMoyTELuoYeimCnRwNSF3SC5QtTa-2o-qQSq3agQQ8MWRkaWU-lMQNJeF3euZ1Q1cd3XoIttH50kTUKAo5lan-cZzzhUxfFf37Ek/s1600/GB3.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjiF_IqqXO3Fe7zZ1o9gJjTmawoFjGk2g1hFDEZh-fCMoyTELuoYeimCnRwNSF3SC5QtTa-2o-qQSq3agQQ8MWRkaWU-lMQNJeF3euZ1Q1cd3XoIttH50kTUKAo5lan-cZzzhUxfFf37Ek/s1600/GB3.png" height="358" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLxv5iEQrSmUhxgFsagGCSdh0JugDtB_JezuMzDk2GoP-vgjDi_OcZRMijWosWrJ27lpTC-5R-eASzhTu3RUBol7BNzNPUhhZrX-G5ApBoVA2hOYCBXlzotx_rE2xHl9dmUVmvBA01JyM/s1600/GB4.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLxv5iEQrSmUhxgFsagGCSdh0JugDtB_JezuMzDk2GoP-vgjDi_OcZRMijWosWrJ27lpTC-5R-eASzhTu3RUBol7BNzNPUhhZrX-G5ApBoVA2hOYCBXlzotx_rE2xHl9dmUVmvBA01JyM/s1600/GB4.png" height="358" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlVUjGkowKgwV1rj8rB7pynfSk90f46N3vQ3bt8tCdpvOGnQFe9Ik8F-z64fCX9tNrJMU84D7rf_IGL0CCAMB1YiQ6wSbQ_a76x8sHm9c1zQVGeqH95-VXBO9WNzCjmYoq8GieJFoYvdk/s1600/GB5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlVUjGkowKgwV1rj8rB7pynfSk90f46N3vQ3bt8tCdpvOGnQFe9Ik8F-z64fCX9tNrJMU84D7rf_IGL0CCAMB1YiQ6wSbQ_a76x8sHm9c1zQVGeqH95-VXBO9WNzCjmYoq8GieJFoYvdk/s1600/GB5.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZwOO9e2DRWT7JH6thP2uIBmxDvSrDwlZO__tup03kFce-ydaSwRbYx5h21a5Nj8dQDaiy_qdBV8w3mQelVCNriIOlmJn4a769B-mbpN42miCqJ-1amUb9JnkOmCVG8sFcNA6COgY4Og4/s1600/GB6.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZwOO9e2DRWT7JH6thP2uIBmxDvSrDwlZO__tup03kFce-ydaSwRbYx5h21a5Nj8dQDaiy_qdBV8w3mQelVCNriIOlmJn4a769B-mbpN42miCqJ-1amUb9JnkOmCVG8sFcNA6COgY4Og4/s1600/GB6.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiq_dC_a4t4Y7TysT4xluU6bm7b6O3NytEkfRN3IuZChkfJTjbWAzeHWHTDEzpmj49BSXlnhXXUwclSoMLVUuUWtIN8XeVIahSnsBLZQU4XTGXuilhJVyIUQWfvGjT8K9StBJgTxDpr-uY/s1600/GB7.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiq_dC_a4t4Y7TysT4xluU6bm7b6O3NytEkfRN3IuZChkfJTjbWAzeHWHTDEzpmj49BSXlnhXXUwclSoMLVUuUWtIN8XeVIahSnsBLZQU4XTGXuilhJVyIUQWfvGjT8K9StBJgTxDpr-uY/s1600/GB7.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhShxsYVshPyhM_nXRch-ahfScLCL2VbfbGpgEOOl7enpgXHPWJKikLxVEK3NF7NbuwyanqGgtOk-jEK1LKoCr35Fs2Y6hs9PFCgZebV0vtDL694uZFDAnVxq_UgKvjb9PE5TInwVSSL3c/s1600/GB8.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhShxsYVshPyhM_nXRch-ahfScLCL2VbfbGpgEOOl7enpgXHPWJKikLxVEK3NF7NbuwyanqGgtOk-jEK1LKoCr35Fs2Y6hs9PFCgZebV0vtDL694uZFDAnVxq_UgKvjb9PE5TInwVSSL3c/s1600/GB8.png" height="358" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgP-FS6BNfG-2-xRD9CwX3PeJcenVztZWjvUqQq6pzJrFweCod7i38p3i2JeZFwxY_RSsOiJ6JGkH6d1VOEna0KYcAjmA5965KrTvdyMKDrVQUTJCrI4jhpEzlfeTkl8XQmyQHstwhARUs/s1600/ft1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgP-FS6BNfG-2-xRD9CwX3PeJcenVztZWjvUqQq6pzJrFweCod7i38p3i2JeZFwxY_RSsOiJ6JGkH6d1VOEna0KYcAjmA5965KrTvdyMKDrVQUTJCrI4jhpEzlfeTkl8XQmyQHstwhARUs/s1600/ft1.png" height="358" width="640" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhreLsWI15pzrgckDLyjT3nrIr_wlemeswBIr5NOm0WT05820clKoJY-zg-Xj7QIfemF0w2d4z4P_j_0IHOJWn_vWHO8pRoFMD8PrNDZE1LnkGhcwZ1AiO5x08lznAM8oqacZFzHhobx0U/s1600/ft2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhreLsWI15pzrgckDLyjT3nrIr_wlemeswBIr5NOm0WT05820clKoJY-zg-Xj7QIfemF0w2d4z4P_j_0IHOJWn_vWHO8pRoFMD8PrNDZE1LnkGhcwZ1AiO5x08lznAM8oqacZFzHhobx0U/s1600/ft2.png" height="358" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpTGHkvWQKgmTgxiFArXKxi3eKEP8fPiGT80ym3F0Wmv9WFIeJiCT6mrABHI38ILVVjVDPf5_eznPI-6eiSxDaBckePLCcIWPrABkV-HJNXhVOiAXDz5wTmnm5kLVwdcn2rrrtbwcI91Q/s1600/exell.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjpTGHkvWQKgmTgxiFArXKxi3eKEP8fPiGT80ym3F0Wmv9WFIeJiCT6mrABHI38ILVVjVDPf5_eznPI-6eiSxDaBckePLCcIWPrABkV-HJNXhVOiAXDz5wTmnm5kLVwdcn2rrrtbwcI91Q/s1600/exell.png" height="358" width="640" /></a></div>
<br />
Hasil Export ke EXEL : <br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUD30tFBfT80DqJv8LcZ08dwaO7GxAaqoHowawjU0878sCecDmYz0pIBwHOmzJkfbSTPgdMcbgRbVXrdayHD1bOpouzYsWwF_n71lY1XDU3IdtgNlDy2bhwitW6-8wXCXgFnDxnur-m2o/s1600/pdf.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjUD30tFBfT80DqJv8LcZ08dwaO7GxAaqoHowawjU0878sCecDmYz0pIBwHOmzJkfbSTPgdMcbgRbVXrdayHD1bOpouzYsWwF_n71lY1XDU3IdtgNlDy2bhwitW6-8wXCXgFnDxnur-m2o/s1600/pdf.png" height="358" width="640" /></a></div>
<br />
Hasil PDF :<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpZ8KlQizctcCNk_5PMvyPwr-tSVeCMMoZUF95k87DqQobvS3jnjfDrKbMeSYCyw37n90Rg7qZ0EMCOkf4Ds-p4geovJQK2yfWvQewSa9Jkd-KazdPbs_bflkb1Zv9XhcnpzPSDcH9Bik/s1600/pdf2.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhpZ8KlQizctcCNk_5PMvyPwr-tSVeCMMoZUF95k87DqQobvS3jnjfDrKbMeSYCyw37n90Rg7qZ0EMCOkf4Ds-p4geovJQK2yfWvQewSa9Jkd-KazdPbs_bflkb1Zv9XhcnpzPSDcH9Bik/s1600/pdf2.png" height="358" width="640" /></a></div>
<br />
Hasil bentuk Word :<br />
<br />
<br />
Selamat BrOtak Atik <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-12420909628930631042014-06-30T01:52:00.002-07:002014-06-30T02:36:48.711-07:00CRYSTAL REPORT - MYSQL - VB-2010 - PROCEDURE<div dir="ltr" style="text-align: left;" trbidi="on">
Lanjutan pembuatan Crystal Report di VB2010<br />
<br />
Dalam membuat Program Cetakan di VB-2010 harus di Rancang lebih dahulu<br />
masalah Database - Tabel - Field nya supaya enak waktu pasang di Crstal Report.<br />
<br />
Untuk itu Tabel dikususkan untuk Program Cetakan tersebut<br />
Jadi setiap panggil Cetakan Tabel diKosongi dan di Isi lagi sesuai data yg di harapkan.<br />
<br />
Untuk Hal ini sebaiknya di buat Procedure nya MYSQL<br />
<br />
sebagai contoh :<br />
<br />
CREATE DEFINER=`root`@`%` PROCEDURE `Tes_Kasirz`( in mnoinv char(20))<br />
BEGIN<br />
DECLARE vkuncih char(10);<br />
DECLARE vkunci char(17);<br />
DECLARE vtanggal char(10);<br />
DECLARE vnoinv char(20);<br />
DECLARE vtorder char(4);<br />
DECLARE vcustomercode char(10);<br />
DECLARE vcustomername char(50);<br />
DECLARE valamat char(100);<br />
DECLARE vnoitem INT;<br />
DECLARE vkdrang char(15);<br />
DECLARE vnamrang char(25);<br />
DECLARE vkwarna char(3);<br />
DECLARE vwarna char(25);<br />
DECLARE vjumlah INT;<br />
DECLARE vhsat INT;<br />
DECLARE vstot INT;<br />
DECLARE vpdiskont INT;<br />
DECLARE vdiskont INT;<br />
DECLARE vuang INT;<br />
DECLARE habis BOOLEAN DEFAULT FALSE;<br />
DECLARE kursor CURSOR FOR<br />
Select a.kuncih, a.kunci, a.tanggal, a.torder, a.noinv, a.customercode,b.customername,b.alamat, a.noitem, a.kdrang, a.namrang, a.kwarna, a.warna, a.jumlah, a.hsat, a.stot, a.pdiskont, a.diskont, a.uang from silinek a inner join customer b on a.customercode = b.customercode where a.noinv = mnoinv;<br />
DECLARE CONTINUE HANDLER FOR SQLSTATE '02000'<br />
SET habis = TRUE;<br />
DELETE FROM CETKASIR;<br />
<br />
OPEN kursor;<br />
REPEAT<br />
FETCH kursor INTO vkuncih,vkunci,vtanggal,vtorder,vnoinv,vcustomercode,vcustomername,valamat,vnoitem,vkdrang,vnamrang,vkwarna,vwarna,vjumlah,vhsat,vstot,vpdiskont,vdiskont,vuang;<br />
IF habis = FALSE THEN<br />
INSERT INTO CETKASIR(kuncih,kunci,tanggal,torder,noinv,customercode,customername,alamat ,noitem,kdrang,namrang,kwarna,warna,jumlah,hsat,stot,pdiskont,diskont,uang) <br />
VALUES (vkuncih,vkunci,vtanggal,vtorder,vnoinv,vcustomercode, vcustomername,valamat ,vnoitem,vkdrang,vnamrang,vkwarna,vwarna,vjumlah,vhsat,vstot,vpdiskont,vdiskont,vuang);<br />
END IF;<br />
UNTIL habis END REPEAT;<br />
CLOSE kursor;<br />
<br />
END;<br />
<br />
Draftnya bisa do <a href="http://www.4shared.com/file/wYquFr2oba/Proc_kasir.html">Dwnload di sini </a><br />
<br />
lihat gambar :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiN1GzgoZ7fNdQRCc6IJTh8HBarAReeBXcCDsZ6DgTx6015SxswnTPBrVIDYmGe8GP0D5cSniSQ5VofRnBtTwAh5xTsbiCKQJIBVjTD_MlnBgzAscReJgnsEyRst7c9LfKfUMK8Z96f9H8/s1600/ceta.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiN1GzgoZ7fNdQRCc6IJTh8HBarAReeBXcCDsZ6DgTx6015SxswnTPBrVIDYmGe8GP0D5cSniSQ5VofRnBtTwAh5xTsbiCKQJIBVjTD_MlnBgzAscReJgnsEyRst7c9LfKfUMK8Z96f9H8/s1600/ceta.png" height="356" width="640" /></a></div>
<br />
Lihat di gambar panah atas di Klik 2 kali dan isikan :<br />
<br />
Private Sub cetak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cetak.Click<br />
Try<br />
konek()<br />
Dim cmd As New MySqlCommand("call Tes_Kasirz('SI-C-20130517-0002')", db)<br />
cmd.ExecuteNonQuery()<br />
DisplayData()<br />
Catch ex As Exception<br />
MsgBox(ex.Message)<br />
End Try<br />
Form2.Show()<br />
End Sub<br />
<br />
keterangan :<br />
call Tes_Kasirz('SI-C-20130517-0002') perintah panggil Procedure<br />
Form2.Show() jalankan crystal report yg datanya ( Tabel ) hasil proses Procedure tsb.<br />
db = Dim serv As String = "Server=192.168.1.8;"<br /> Dim dbase As String = "Database=jualan;"<br /> Dim uid As String = "uid=root;"<br /> Dim pwd As String = "pwd=root;"<br /> Dim ConString = serv & dbase & uid & pwd<br /> Public db As New MySqlConnection(ConString)<br /> Public Sub konek()<br /> Try<br /> tutupDB()<br /> db.Open()<br /> MsgBox("Koneksi DataBase berhasil dilakukan")<br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> End Try<br /> End Sub<br />
<br />
Hasilnya :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixAh1QJuaHoRdBc3_xU1w9dNz9Kol-MXcBNCZl8oheRbDZQb6nVmXQZA-0JxIGs54puj0NYBOuPm0jiihfHn0kJaietcWiVdOpIsjhS9338cMUqzxMmbIlx5z_UFTuNIJoPfFXkHes_2E/s1600/cetakan.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEixAh1QJuaHoRdBc3_xU1w9dNz9Kol-MXcBNCZl8oheRbDZQb6nVmXQZA-0JxIGs54puj0NYBOuPm0jiihfHn0kJaietcWiVdOpIsjhS9338cMUqzxMmbIlx5z_UFTuNIJoPfFXkHes_2E/s1600/cetakan.png" height="358" width="640" /></a></div>
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-68456956872648174172013-08-31T20:59:00.001-07:002013-08-31T21:37:57.412-07:00REPORT VIEWER - VB 2010<div dir="ltr" style="text-align: left;" trbidi="on">
Banyak Cara Mencetak di VB 2010
Kali ini Menggunakan <b>REPORT VIEWER</b><br />
1. Buka VB 2010<br />
2. Ctrl-Shief - N (New Project )<br />
3. Click Reporting<br />
<br />
<b><a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmZWQwe8ZFUfFxiVc7w_1aHbZGugI49m1VOWJnR7167UkFwxstnlo9TAQQV6br0LvvzHXwvCloFX2LHz1n1uDHV1ro3CKjvhSv476vtHG8UesNeP-No6Ei5JeiHV0PKjIQORsps2CXyIQ/s1600/RP_VIEWER1.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmZWQwe8ZFUfFxiVc7w_1aHbZGugI49m1VOWJnR7167UkFwxstnlo9TAQQV6br0LvvzHXwvCloFX2LHz1n1uDHV1ro3CKjvhSv476vtHG8UesNeP-No6Ei5JeiHV0PKjIQORsps2CXyIQ/s640/RP_VIEWER1.jpg" width="640" /></a></b>
<br />
.NET FramWork ganti = 3.5<br />
kemudian Clik Report Aplication<br />
lihat bawah Klikk OK<br />
muncul gambar di bawah :<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibDKUFH_QmFySqEFQXY2wgmyvK-1K5tG-eN-m_0VkqUvdve3zBYSFMpDDFKK5fO3qWoYVhWGfaSfMdO87NHcO7RnpqRSMzvMkuWOOgG__yy5F0KsPAbBnOc8vCErs1GgszL443hH0MhUs/s1600/REPO_VIEWER2.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibDKUFH_QmFySqEFQXY2wgmyvK-1K5tG-eN-m_0VkqUvdve3zBYSFMpDDFKK5fO3qWoYVhWGfaSfMdO87NHcO7RnpqRSMzvMkuWOOgG__yy5F0KsPAbBnOc8vCErs1GgszL443hH0MhUs/s640/REPO_VIEWER2.jpg" width="640" /></a>
<br />
Perhatikan Gambar DiAtas<br />
ada 2 Windows :<br />
1. Report Wizard<br />
2. Data Source Configuration Wizard<br />
<br />
No. 2 di Close dulu akan muncul No. 1 seperti gmb dibawah ini<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-aQAx4kbREcO58zl_t_R-M8yjYrvvcyGv7aP6XvN5HPtae3J8NDimLAFeRCvczMmSdbo141SaPZQUUtasDMhFvIKBuYxcGYdlXHF7PqXLg3xwi4Kdu5qfmQgdQNvnHLTiJVdqh1rs7Wg/s1600/REPO_VIEWER3.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-aQAx4kbREcO58zl_t_R-M8yjYrvvcyGv7aP6XvN5HPtae3J8NDimLAFeRCvczMmSdbo141SaPZQUUtasDMhFvIKBuYxcGYdlXHF7PqXLg3xwi4Kdu5qfmQgdQNvnHLTiJVdqh1rs7Wg/s640/REPO_VIEWER3.jpg" width="640" /></a>
<br />
<br />
perhatikan ada :<br />
Name = Datasets<br />
Data Source = NEW<br />
Available Datasets<br />
Fields = Field Name ------- Type<br />
<br />
Pilih dan Click NEW<br />
kembali muncul No. 2 lihat gmb ini :<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZ4EwuwOUVNJT8TZQx-S9_DHGlpSv7tHdoCwmxHgJl17rTdNUOnIbsz5yRV5yAscnGlULfj_oYJA2X9IIuMX7vhbRhzUGImqRgloNDKbeCCSfr68TkrYOKo-e0RNfYLZH-R715qbxUJQ0/s1600/REPO_VIEWER4.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZ4EwuwOUVNJT8TZQx-S9_DHGlpSv7tHdoCwmxHgJl17rTdNUOnIbsz5yRV5yAscnGlULfj_oYJA2X9IIuMX7vhbRhzUGImqRgloNDKbeCCSfr68TkrYOKo-e0RNfYLZH-R715qbxUJQ0/s640/REPO_VIEWER4.jpg" width="640" /></a>
<br />
<br />
Klick NEXT<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJxhLL0nIAxV8AJ4r6iKH_09VeK1xXkFKJsbqskjBWlAILfdhQsbvjiNzBNMnMugyXxakt-iP3vdDhovabigajdyyPqjNBMEuHJ4HDVlSgdPE5gVS-HuyJRCZEAHDqH87RS6erz23eR3E/s1600/REPO_VIEWER5.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJxhLL0nIAxV8AJ4r6iKH_09VeK1xXkFKJsbqskjBWlAILfdhQsbvjiNzBNMnMugyXxakt-iP3vdDhovabigajdyyPqjNBMEuHJ4HDVlSgdPE5gVS-HuyJRCZEAHDqH87RS6erz23eR3E/s640/REPO_VIEWER5.jpg" width="640" /></a>
<br />
Klick NEXT lagi<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmtiEpA3ZUkEhS7VjhIxYuiSeXf2wQMxAMARHYA48W75zPq61bwV4_ABWjtVxeCLzNgvWCM8N51B93EjNRZNbXmY9Y2Ez3_SEej656LzKa5JbHqQJi7fU7JjMRtdNs4-0_N5DhNFPs0NM/s1600/REPO_VIEWER6.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgmtiEpA3ZUkEhS7VjhIxYuiSeXf2wQMxAMARHYA48W75zPq61bwV4_ABWjtVxeCLzNgvWCM8N51B93EjNRZNbXmY9Y2Ez3_SEej656LzKa5JbHqQJi7fU7JjMRtdNs4-0_N5DhNFPs0NM/s640/REPO_VIEWER6.jpg" width="640" /></a>
<br />
<br />
Klick New Connection<br />
muncul seperti gambar di bawah ini :<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNtWQxHklpHwSOXftpSmd33SpcwFAiXi5JfS7B1-L-DGH3kJYcG4HxVbGfeiSLtqlKUnTcI9erAmq27_aHzFc7q2nPS3xr-vWVeisVX67waZa5mnmfNvrZarjU-eOLgdn_6IqGd4sQ79k/s1600/REPO_VIEWER7.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjNtWQxHklpHwSOXftpSmd33SpcwFAiXi5JfS7B1-L-DGH3kJYcG4HxVbGfeiSLtqlKUnTcI9erAmq27_aHzFc7q2nPS3xr-vWVeisVX67waZa5mnmfNvrZarjU-eOLgdn_6IqGd4sQ79k/s640/REPO_VIEWER7.jpg" width="640" /></a>
<br />
Klick Change<br />
Muncul seperti di bawah ini<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKvvFefKHh0Budx7mJhQf49WnnVLTSzxg0VcfQe4G3dCvGASX_XWyPU13x6mi6DwL3mNm-wUI2YAyeICbSREROsfanDtmVSmVVhJj_-YvVi6lmzMEztBdd2t21uQXzxq-VwfRY_YOFDQo/s1600/REPO_VIEWER8.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiKvvFefKHh0Budx7mJhQf49WnnVLTSzxg0VcfQe4G3dCvGASX_XWyPU13x6mi6DwL3mNm-wUI2YAyeICbSREROsfanDtmVSmVVhJj_-YvVi6lmzMEztBdd2t21uQXzxq-VwfRY_YOFDQo/s640/REPO_VIEWER8.jpg" width="640" /></a>
<br />
Click dan Pilih MYSQL DataBase<br />
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMgwoFWoco0rhCyB0sdc83PJf3D7-xKGZoV18XhxYMUkEu_e5JxLPLhvbEDp9WDFbA-5hWCYuaRMXoNgIWtp50ChNS4bSMtCxh1bjJWpJW6RDHHIml3o3BLp75bMAW1CTYloKXOrK0hts/s1600/repo_viewer9.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhMgwoFWoco0rhCyB0sdc83PJf3D7-xKGZoV18XhxYMUkEu_e5JxLPLhvbEDp9WDFbA-5hWCYuaRMXoNgIWtp50ChNS4bSMtCxh1bjJWpJW6RDHHIml3o3BLp75bMAW1CTYloKXOrK0hts/s640/repo_viewer9.jpg" width="640" /></a>
<br />
Server di isi : localhost<br />
User name = root<br />
password =<br />
kemudian Pilih Database yg dipakai<br />
yg contoh ini = "Jualan"<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZaXftY77NIgc3QCKMT0RR4zmJibMtBKP8GqRPpKvA3tv7XauhA1R3tjparXvhd2ca-F2YbIfhTg3KidQrYq6IiThIy0GO_Xlgy9c3DbkYWdxugxNA-u_YnMChvi_RygQkRxHNUX4caQ4/s1600/repo_viewer10.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZaXftY77NIgc3QCKMT0RR4zmJibMtBKP8GqRPpKvA3tv7XauhA1R3tjparXvhd2ca-F2YbIfhTg3KidQrYq6IiThIy0GO_Xlgy9c3DbkYWdxugxNA-u_YnMChvi_RygQkRxHNUX4caQ4/s640/repo_viewer10.jpg" width="640" /></a>
<br />
Click Test Connection<br />
hasilnya = success<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYPo_V8AiOnbGRsH9eyiKo-01cWuAkRgGA6tz9Gchf2RMg6CWbtzFMWzYtgmrT2JB-OM-2bqq073yatCdPysf94Tp1IY8C6y8VSp0mL9Qfkf6Hv304VoJVJt2smkcWtxhlnwbSNgM9ZTk/s1600/repo_viewer11.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYPo_V8AiOnbGRsH9eyiKo-01cWuAkRgGA6tz9Gchf2RMg6CWbtzFMWzYtgmrT2JB-OM-2bqq073yatCdPysf94Tp1IY8C6y8VSp0mL9Qfkf6Hv304VoJVJt2smkcWtxhlnwbSNgM9ZTk/s640/repo_viewer11.jpg" width="640" /></a>
<br />
Klick Next lagi<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYMdOQucF23ujzfNLC1e7KYd1uEWtcX7y2gWth3Qyc3PK2ZaTjzJrk-FxNxbqxAAS5bXmsi-ifTul1rDgn0HaJknZ8nnF-s0R23na1CKNsVg03ThJa4oSaJSKcsxHChV0oaTfZQmyzXBA/s1600/repo_viewer12.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgYMdOQucF23ujzfNLC1e7KYd1uEWtcX7y2gWth3Qyc3PK2ZaTjzJrk-FxNxbqxAAS5bXmsi-ifTul1rDgn0HaJknZ8nnF-s0R23na1CKNsVg03ThJa4oSaJSKcsxHChV0oaTfZQmyzXBA/s640/repo_viewer12.jpg" width="640" /></a>
<br />
Klick Table<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaohaGlm3K3MrnjtEqmaxmMFvum1-95btpLasHR58EVdEFJ0Y_V8PzStFtv_qNCwWq5SJSn_5pxLSqcoWs2-KEc9fv8yMu32L9kDib0qmRWrn_RIEkcDq6eznmow2d9wCZe7tvYHIThF0/s1600/repo_viewer13.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgaohaGlm3K3MrnjtEqmaxmMFvum1-95btpLasHR58EVdEFJ0Y_V8PzStFtv_qNCwWq5SJSn_5pxLSqcoWs2-KEc9fv8yMu32L9kDib0qmRWrn_RIEkcDq6eznmow2d9wCZe7tvYHIThF0/s640/repo_viewer13.jpg" width="640" /></a>
<br />
DiCentang yg mau di Cetak<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhK6c2H-8DD7r0RgqgdliPMbG3RwE-wOvXyra5emdHfiEBU-XuXc9usyZJb6vawRGAwrSP4oa5xv-84ruBlYmkVaxlnueC42JhMfuBJmZqk4V5mUPX5P_jjDeymNAKnvam6F0VUYdjiISY/s1600/repo_viewer14.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhK6c2H-8DD7r0RgqgdliPMbG3RwE-wOvXyra5emdHfiEBU-XuXc9usyZJb6vawRGAwrSP4oa5xv-84ruBlYmkVaxlnueC42JhMfuBJmZqk4V5mUPX5P_jjDeymNAKnvam6F0VUYdjiISY/s640/repo_viewer14.jpg" width="640" /></a>
<br />
Table yg terpilih yg mau di cetak<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTvo8Bo_7hsxPe4JWu9gTi9YKRlvNjaAtPVixnWT206YC1YslUws-39t1HGImiTuVfTOInDegc8pbfMseQHZGzMR_O_ZX_6DhRI4ID4TitW1r1VlaypzGPAqsEPnqRexZJN-ZbFcMRRe8/s1600/repo_viewer15.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTvo8Bo_7hsxPe4JWu9gTi9YKRlvNjaAtPVixnWT206YC1YslUws-39t1HGImiTuVfTOInDegc8pbfMseQHZGzMR_O_ZX_6DhRI4ID4TitW1r1VlaypzGPAqsEPnqRexZJN-ZbFcMRRe8/s640/repo_viewer15.jpg" width="640" /></a>
<br />
Fields nya di pindah ke Value digeret pakai Mouse<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTGBm9xV-0LWcnyXUtI1D45f5AUlb1471hmE0FTFKaoAwrHf_11WGPN7DuUMWaUK1NAx2_fWFwfq4BFh8OkJrN01BVkb9BHnrE3aKFGUtcZ2tsqzanwBOO5QC91kcgyPJg-4LYOhgKWNI/s1600/repo_viewer16.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgTGBm9xV-0LWcnyXUtI1D45f5AUlb1471hmE0FTFKaoAwrHf_11WGPN7DuUMWaUK1NAx2_fWFwfq4BFh8OkJrN01BVkb9BHnrE3aKFGUtcZ2tsqzanwBOO5QC91kcgyPJg-4LYOhgKWNI/s640/repo_viewer16.jpg" width="640" /></a>
<br />
Ini Hasilnya<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEfIlwqKCS-vNtE2zayLCWY3iwRGvTUXqprjTC2VWXch6xNe6mBJz-5AC55He4435Dy3KOXMe3nFA8ajbeDaqqtnQ3gSwIy2HROPfR3BnNYiR2DaShbYyn3o6hD2_dHwlQsoIeBp0ROfE/s1600/repo_viewer17.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhEfIlwqKCS-vNtE2zayLCWY3iwRGvTUXqprjTC2VWXch6xNe6mBJz-5AC55He4435Dy3KOXMe3nFA8ajbeDaqqtnQ3gSwIy2HROPfR3BnNYiR2DaShbYyn3o6hD2_dHwlQsoIeBp0ROfE/s640/repo_viewer17.jpg" width="640" /></a>
<br />
Siap di Printview<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuOyEjOeIJu3kUZIVboQXyGpwSJAo8UfColiZhgf08Fm3SHmsHOeYGY6wb8g-YrJdPaSjFD5ev_IIsm966j0VWm7h4gSbvs8VAETpLVGz1iiE_9XSVB3bZjxEemrxmcy7PHRUWgC8pbQ4/s1600/repo_viewer18.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiuOyEjOeIJu3kUZIVboQXyGpwSJAo8UfColiZhgf08Fm3SHmsHOeYGY6wb8g-YrJdPaSjFD5ev_IIsm966j0VWm7h4gSbvs8VAETpLVGz1iiE_9XSVB3bZjxEemrxmcy7PHRUWgC8pbQ4/s640/repo_viewer18.jpg" width="640" /></a>
<br />
sebelah kiri tinggal pilih itu Format/Model Laporan<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRH1oeL7aaBS-b5-YU4DoHcYCh7IkXknAlS5D3bpKMzR1YzMFhiX9kBzKLnvEgm-A0DbM3ijZfnakhQfYq6pVKp39ZHFFpu1idgs-yVW23NMUl6LpEnwndFIVdhdeRwj2wypdnSq4IjYQ/s1600/repo_viewer19.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRH1oeL7aaBS-b5-YU4DoHcYCh7IkXknAlS5D3bpKMzR1YzMFhiX9kBzKLnvEgm-A0DbM3ijZfnakhQfYq6pVKp39ZHFFpu1idgs-yVW23NMUl6LpEnwndFIVdhdeRwj2wypdnSq4IjYQ/s640/repo_viewer19.jpg" width="640" /></a>
<br />
Jalankan<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwfUXKf0cSdLQs3ESn0xwg8Rmt6vlHCcA1R_IA8UFMo6S2Mx8O9FEkGlzOjofFD9tYLwfQyY2SSU9YZ2hkfTI3pygc5AmUpYRRO05M_Qm33neKo1pHFKBDzTXrNEkarEzAYQV4G2pYnkw/s1600/REPO_VIEWER20.jpg" imageanchor="1"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhwfUXKf0cSdLQs3ESn0xwg8Rmt6vlHCcA1R_IA8UFMo6S2Mx8O9FEkGlzOjofFD9tYLwfQyY2SSU9YZ2hkfTI3pygc5AmUpYRRO05M_Qm33neKo1pHFKBDzTXrNEkarEzAYQV4G2pYnkw/s640/REPO_VIEWER20.jpg" width="640" /></a>
<br />
Ini Hasilnya<br />
<br />
Cara Simpan :
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjdWg048dkAmbSVrn99zz47B-qvKVdUZ2gWiZ1OV7fmviMdHQRFcPEfZrcU3RU51h7KscfymQbsFH-xNWvySrtilUt4o7iwzHPSaGundqgOMrdUkT9_5Tu0JIO8XhmuSkPGfSzQn78_mE/s1600/SAVE_1.jpg" imageanchor="1" ><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhjdWg048dkAmbSVrn99zz47B-qvKVdUZ2gWiZ1OV7fmviMdHQRFcPEfZrcU3RU51h7KscfymQbsFH-xNWvySrtilUt4o7iwzHPSaGundqgOMrdUkT9_5Tu0JIO8XhmuSkPGfSzQn78_mE/s640/SAVE_1.jpg" /></a>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3_8pXBMlpoxQ23c2gUzPaazVsmS5BmtIuJmBaJeRCm8AdA-Z4c8NECKmIPm2TjvDQ9pScZFw-qChGI-REcAqjO-blh58hAvSUriCLz8nQfYrls_xB53iI-eqzDIaNwdC3PUwe5wHXmRU/s1600/SAVE_2.jpg" imageanchor="1" ><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi3_8pXBMlpoxQ23c2gUzPaazVsmS5BmtIuJmBaJeRCm8AdA-Z4c8NECKmIPm2TjvDQ9pScZFw-qChGI-REcAqjO-blh58hAvSUriCLz8nQfYrls_xB53iI-eqzDIaNwdC3PUwe5wHXmRU/s640/SAVE_2.jpg" /></a>
<br />
<br />
Format Tanggal :
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBS6LixOnnaHn_bqyWvGqreHGIH5a-twn7USIXWFqIU8eEF-q27jgsimj47bPTQeTXeLcXtXfAab9NrR9N0gusUQQmlRujavIcqg28xjm61A2A4ZWAXQiOnp8TVZGvru743Ia1lvGWOjI/s1600/VIEW_TGL1.jpg" imageanchor="1" ><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhBS6LixOnnaHn_bqyWvGqreHGIH5a-twn7USIXWFqIU8eEF-q27jgsimj47bPTQeTXeLcXtXfAab9NrR9N0gusUQQmlRujavIcqg28xjm61A2A4ZWAXQiOnp8TVZGvru743Ia1lvGWOjI/s640/VIEW_TGL1.jpg" /></a>
<br />
<br />
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3jtcm9uOH8FGKflwUldOb62hHpN4M4eNfAv1CivrkoerZNS6Utb7Pe6hgr_bW28blF-Bu9RRrZxVZvTm3QH_4CabL0aNN94W-A-h_ZOLl0NutZ2catYxdtD-0AJM8AwHqNGUf7HLaJrA/s1600/VIEW_TGL2.jpg" imageanchor="1" ><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg3jtcm9uOH8FGKflwUldOb62hHpN4M4eNfAv1CivrkoerZNS6Utb7Pe6hgr_bW28blF-Bu9RRrZxVZvTm3QH_4CabL0aNN94W-A-h_ZOLl0NutZ2catYxdtD-0AJM8AwHqNGUf7HLaJrA/s640/VIEW_TGL2.jpg" /></a>
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com1tag:blogger.com,1999:blog-8346623379852294436.post-8821383102986484002013-03-11T02:19:00.000-07:002013-03-11T02:32:50.091-07:00Start Menu Hilang - Desktop Kosong<div dir="ltr" style="text-align: left;" trbidi="on">
<div style="text-align: left;">
<span style="color: #333333; font-size: 14pt;"><b><span style="font-family: Times New Roman,Times,serif;">Problem Start Menu Hilang</span></b></span></div>
<div style="text-align: left;">
<span style="color: #5b5b5b; font-size: 10pt;"><b>Desktop tidak menampilkan apapun - Jalankan System Restore dari keyboard.</b></span></div>
<div style="text-align: left;">
<br /></div>
<br />
<div style="text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">D</span><span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">esktop </span><span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">computer </span><span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">hanya menampilkan layar kosong. Semua <i>icon</i> tidak muncul,</span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">tombol <i>Start Menu</i> lenyap,</span><span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"> dan <i>Taskbar</i> hilang. Hebatnya lagi, <i>klik-kanan</i> </span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">desktop pun <i>tidak berfungsi</i>. </span></div>
<div style="text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Mengapa bisa demikian ? apa penyebabnya ? dan bagaimana solusinya ?</span></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Problem diatas lebih banyak disebabkan oleh <b><span style="color: yellow;"><i>infeksi suatu virus</i></span></b>, </span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">dari beberapa kasus yang saya temui kebanyakan disebabkan oleh</span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"> virus/Trojan yang bernama <i>Virut</i> dengan berbagai <i>variant</i>-nya. </span></div>
<div style="text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Meski demikian, problem ini juga bisa timbul </span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">karena <span style="font-size: large;"><span style="color: #993300;"><i>kerusakan sistem operasi</i></span></span> (Windows) </span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">meski jarang sekali.</span></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Mengatasi
problem ini sebenanrnya tidaklah terlalu sulit. </span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Dengan urutan langkah
yang benar, masalah akan dapat diatasi</span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">dengan cepat dan tidak terlalu
membuat kepala pusing. </span></div>
<div style="text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Dengan <i>System Restore</i>, akan bisa diatasi dengan mudah dan ... aman. </span><br />
<br />
<i><b><span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">Berikut ini yang mesti dilakukan.</span></b></i></div>
<div style="text-align: justify;">
<br /></div>
<div style="text-align: justify;">
<b><span style="font-size: 10pt;">Jalankan System Restore dari keyboard</span></b></div>
<div style="text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">1. Berusaha masuk ke <b>Task Manager</b>, dalam kondisi normal hal ini</span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b> </b><i>gampang</i> dilakukan dengan klik-kanan taskbar, tetapi klik-kanan </span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b> </b>sedang tidak berfungsi. Jadi gunakan keyboard dengan menekan</span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"> <i>bersamaan</i> tiga tombol : <span style="font-size: large;"><span style="color: #993300;"><b>Ctrl</b> + <b>Alt</b> + <b>Del</b></span> </span>,</span><br />
<br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"> muncul jendela <span style="text-decoration: underline;">Windows Task Manager</span> .</span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJqkG5s4zfcHERvgcnLXAbRwF0GEp8rND5Eh3xnULSr3vV6Wvd4c-XFkqJuHhqqgJzCRcNdZOMKLtu8pqCu2YHrJ3056ev2untutVDtcFUm5o-UsHrK00RnqErpbgWC3KB9QTW1MOIvWY/s1600/tas1.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="372" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJqkG5s4zfcHERvgcnLXAbRwF0GEp8rND5Eh3xnULSr3vV6Wvd4c-XFkqJuHhqqgJzCRcNdZOMKLtu8pqCu2YHrJ3056ev2untutVDtcFUm5o-UsHrK00RnqErpbgWC3KB9QTW1MOIvWY/s640/tas1.bmp" width="640" /></a></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">2. Pada tab <b><i>Application</i></b>, klik tombol [ <b>New Task...</b> ]</span> </span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8qSSLhCNXjf3HGqp128JlVOe9iFGaLX4zGOz0pj0C4HNgXhZH8-iClE6lF80lWdVv7YggPq7JBJ_LEuFTtDory0OY8mABi53_XAcgPvv7Eg9c_imwTEakWXjql4Ymfg_1KWSs1f1iMqs/s1600/as2.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="370" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8qSSLhCNXjf3HGqp128JlVOe9iFGaLX4zGOz0pj0C4HNgXhZH8-iClE6lF80lWdVv7YggPq7JBJ_LEuFTtDory0OY8mABi53_XAcgPvv7Eg9c_imwTEakWXjql4Ymfg_1KWSs1f1iMqs/s640/as2.bmp" width="640" /></a></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;">ketik <b><span style="font-size: large;">CMD</span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhO87dkt5bqAWDsjAqD0dB-lBQOIFEGyX5M0gzjnAyHWlH13EKJsDjA7Jp78l7-N7wqTQ45bFhM6pAgDEsZW2UrXh0rqfe6dnJs-_dIIxdDBvU_jhVxNtiqtbVwljF5f-EXsDPOSJn0aMs/s1600/tas3.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="272" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhO87dkt5bqAWDsjAqD0dB-lBQOIFEGyX5M0gzjnAyHWlH13EKJsDjA7Jp78l7-N7wqTQ45bFhM6pAgDEsZW2UrXh0rqfe6dnJs-_dIIxdDBvU_jhVxNtiqtbVwljF5f-EXsDPOSJn0aMs/s640/tas3.bmp" width="640" /></a></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"> kemudian ketik :</span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;">cd\windows\system32\restore lalu</span></b></span><br />
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"> tekan Enter</span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><br /></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;">lihat gambar :</span></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLsB-X2dSKmrql3VCHRquM07eTKQmNYiTi1t45g5Eu6e2l8BLzVb8HWaDSYHJ9nci5winLQuQiKVp87YiU0lk5XlKyy4iiGBktCJHXp3AIkqkFV25oDOj2ehNfZvA6fOVGDGagiG9B-Ms/s1600/tas4.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="272" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLsB-X2dSKmrql3VCHRquM07eTKQmNYiTi1t45g5Eu6e2l8BLzVb8HWaDSYHJ9nci5winLQuQiKVp87YiU0lk5XlKyy4iiGBktCJHXp3AIkqkFV25oDOj2ehNfZvA6fOVGDGagiG9B-Ms/s640/tas4.bmp" width="640" /></a></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">Setelah di Enter cari file : rstrui.exe</span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">dan ketik file itu </span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">lihat gambar :</span></span></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSJkzDk8cM6PGlZWp7e3zZvrziB7h5BoOaiuCBIxjSlp4_EYPVxfr-I6icRlHImHul8ZXoK_24ifpOlbtArmz-9J9ijDCmErxOB_ZXmhIMO83YYQUKXvhKn0zSkZbrVx8a2tNlq8GAncg/s1600/TAS5.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="276" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjSJkzDk8cM6PGlZWp7e3zZvrziB7h5BoOaiuCBIxjSlp4_EYPVxfr-I6icRlHImHul8ZXoK_24ifpOlbtArmz-9J9ijDCmErxOB_ZXmhIMO83YYQUKXvhKn0zSkZbrVx8a2tNlq8GAncg/s640/TAS5.bmp" width="640" /></a></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"> kemudian setelah di enter muncul :</span></span></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqv8uArPDP4xbHzxIWSluYsKVLk5F4q5CykRynxZAj50tPt8D_Kqc7Q7H3b_j-06CWrg0p5pt0ZGMdoRbmFSkZrBemioyNBv5wmASiMw9cYZCjbjPmuSQP5I5oq1iR6mPuG3XtUMaIEI8/s1600/tas6.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="466" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiqv8uArPDP4xbHzxIWSluYsKVLk5F4q5CykRynxZAj50tPt8D_Kqc7Q7H3b_j-06CWrg0p5pt0ZGMdoRbmFSkZrBemioyNBv5wmASiMw9cYZCjbjPmuSQP5I5oq1iR6mPuG3XtUMaIEI8/s640/tas6.bmp" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
</div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;">K<span style="font-size: large;">alau no. 1 di klik muncul :</span></span></b></span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgA5HWnsUepUo1HIaSU1A86l-oHcv6NAEnzpP22Ljv7uaND2kxkGZ-HA4ZAH_NSbNVQgfzjQqDy5J96L5lqnJPAKzdU57-mEu5maAr3p-sGhafXlzmvd54S57Ao3tAdQpMoxHRn8nEoxik/s1600/tas7.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="392" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgA5HWnsUepUo1HIaSU1A86l-oHcv6NAEnzpP22Ljv7uaND2kxkGZ-HA4ZAH_NSbNVQgfzjQqDy5J96L5lqnJPAKzdU57-mEu5maAr3p-sGhafXlzmvd54S57Ao3tAdQpMoxHRn8nEoxik/s640/tas7.bmp" width="640" /></a></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"> selanjutnya pilih :</span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">Restore my computer to an earlier time</span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">kemudian tekan no. 3 yaitu : Next</span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">kemudian muncul :</span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhOluydQmp6sK11qcpeKlls2dKrARjvi4RwT9UHVdvMltBvYjyZy50LkYLW2a0TT_psLvYbgkakoAv8YDEs_YKE5Ol0LbIkwyPaCcIJx2wJ0zDT31n9O4NZadEhrAKKxyHEtA9t1pwmMOU/s1600/tas8.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="460" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhOluydQmp6sK11qcpeKlls2dKrARjvi4RwT9UHVdvMltBvYjyZy50LkYLW2a0TT_psLvYbgkakoAv8YDEs_YKE5Ol0LbIkwyPaCcIJx2wJ0zDT31n9O4NZadEhrAKKxyHEtA9t1pwmMOU/s640/tas8.bmp" width="640" /></a></div>
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">Kita kembali masalah RESTORE</span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;">Restore dilakukan karena s<span style="font-size: large;">ystem computer</span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">sekarang sedang ada masalah .</span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">Restore mengambil kembali system windows</span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">yg belum Rusak pada tgl berapa dan jam berapa.Tentu anda sendiri yg tahu tgl berapa system yg belum rusak .Kalau sudah tahu tgl brp yg blm rusak<span style="font-size: large;"> maka tgl itu di pilih dan di Restore.</span></span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">Setelah itu Next<span style="font-size: large;"> sampai selesai </span></span></span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">Kemudian res<span style="font-size: large;">tart </span> </span> </span></span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">Maka hasilnya akan kembali baik seperti saat tgl itu.</span></span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<br /></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">Selesai</span></span></span></span></b></span></div>
<div style="padding-left: 30px; text-align: justify;">
<span style="font-family: Verdana,Arial,sans-serif; font-size: 10pt;"><b><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"> </span> </span> </span> </span></b></span></div>
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-43133386448148179432013-03-10T23:37:00.001-07:002013-03-10T23:40:40.462-07:00MENGEMBALIKAN SEARCH ENGINE GOOGLE<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-size: x-large;">SEARCH ENGINE GOOGLE</span><br />
<span style="font-size: x-large;"> HILANG DI FIREFOX</span><br />
<br />
<span style="font-size: x-large;"><span style="font-size: small;">Untuk mengembalikan Search Engine <span style="font-size: small;">yg Hilang di Browser FireFox</span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;">Langkah" nya :</span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;">1. Buka FireFox dan ketik di Tab Firefox :</span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"> <b><span style="font-size: large;">about:config </span></b></span></span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgt8m2aGWoIzBXJB2rJpi36pxoD2c8z4wluHAm8yJTO2kP6NZfQna06fm35eoN_S-0sxsexCi0JKl7TtfOctelfyb6gTYktt_Y2wZILzWmD6AcduA7QaIj_7pIujH6rAgrNcEYXhNSVI5M/s1600/search1.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgt8m2aGWoIzBXJB2rJpi36pxoD2c8z4wluHAm8yJTO2kP6NZfQna06fm35eoN_S-0sxsexCi0JKl7TtfOctelfyb6gTYktt_Y2wZILzWmD6AcduA7QaIj_7pIujH6rAgrNcEYXhNSVI5M/s640/search1.bmp" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"> 2. Click tombol I'll be careful , I promise</span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"> akan mu<span style="font-size: large;">ncul seperti pada gambar :</span></span></b></span></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQ_GTfO0gQdoe6BOMYh0wa-KuPno12Sw8Kc9AHriPuVfuzRY9kxBR6LjAHAPwOZ2sMt4r4-qjFCDEeLQUdrzdlQV4BrVEVlB5_YOKa0OJD_8Pb1X-wOi6k8W0oiV6mIbPoI8BE4ejjrDU/s1600/search2.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhQ_GTfO0gQdoe6BOMYh0wa-KuPno12Sw8Kc9AHriPuVfuzRY9kxBR6LjAHAPwOZ2sMt4r4-qjFCDEeLQUdrzdlQV4BrVEVlB5_YOKa0OJD_8Pb1X-wOi6k8W0oiV6mIbPoI8BE4ejjrDU/s640/search2.bmp" width="640" /></a></div>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><span style="font-size: large;"> </span> </span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"> untuk mencari keyword.URL ketik di Search = keyword(1)</span></b></span></span></span><br />
<br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;">Kemudian di Keyword.URL klik kanan pilih dan click </span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;">Modify -->lihat nomor 2 lalu muncul :</span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><br /></span></b></span></span></span>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2X4akZPvUDoUDSTS0NxrJxw5fvF6WH_wLbLFDL7fkmDAjK5jY2Lu3t26BWzISUwgXSSJloqt8Yoh8b5pRflyZ2W7tWAGuISGMiPoXz0C6nBcpyPSsPQsm35QDrZYCELxsd2KdOU427CE/s1600/search3.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="246" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj2X4akZPvUDoUDSTS0NxrJxw5fvF6WH_wLbLFDL7fkmDAjK5jY2Lu3t26BWzISUwgXSSJloqt8Yoh8b5pRflyZ2W7tWAGuISGMiPoXz0C6nBcpyPSsPQsm35QDrZYCELxsd2KdOU427CE/s640/search3.bmp" width="640" /></a></div>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><br /></span></b></span></span></span>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><br /></span></b></span></span></span>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><br /></span></b></span></span></span>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;">lalu ketik seperti dibawah ini :</span></b></span></span></span><br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
<br />
<div class="MsoNormal">
<br /><a href="http://www.blogger.com/blogger.g?blogID=8346623379852294436"><span lang="SV" style="mso-ansi-language: SV;"></span></a>
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]-->
<br />
<div class="MsoNormal">
<a href="http://www.google.com/search?ie"><span lang="SV" style="mso-ansi-language: SV;"><br /></span></a><span lang="SV" style="mso-ansi-language: SV;"></span></div>
<a href="http://www.google.com/search?ie%20=UTF%20-8&oe%20=utf%208q"><span style="font-size: large;">http://www.google.com/search?ie =UTF -8&oe =utf 8q</span></a><br /><br /></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
<a href="http://www.blogger.com/blogger.g?blogID=8346623379852294436"><span lang="SV" style="mso-ansi-language: SV;">lalu Klik OK </span></a></div>
<div class="MsoNormal">
</div>
<br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"> lalu tutup Firefox dan buka kembali </span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;">akan nampak search engine Google di komputer anda</span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><br /></span></b></span></span></span>
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;">Selesai</span></b></span></span></span><br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"><br /></span></b></span></span></span>
<br />
<br />
<span style="font-size: x-large;"><span style="font-size: small;"><span style="font-size: small;"><b><span style="font-size: large;"> </span></b></span></span> </span><br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-89628224416091403722012-11-05T02:11:00.001-08:002013-09-03T21:13:19.727-07:00CRYSTAL REPORTS - MYSQL-ODBC<div dir="ltr" style="text-align: left;" trbidi="on">
<b><span style="font-size: large;">Membuat Cetakan ke Printer yg Sederhana :</span></b><br />
<br />
1. Install <i><b>Connector ODBC 5.11</b></i><br />
2. Database nya <b>XAMPP ( MYSQL )</b><br />
3. Buka <b>VB 2010 Pro</b><br />
<b>4. Sudah Di Install Crystal Reports for VB2010 </b><br />
5. New Project ( <b>Form1</b> )<br />
<br />
Lihat Gambar tapi jng lupa Harus di SAVE ALL dulu
baru .NET FramWork di rubah versi 4<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbDcpx1E5b8SVF_RhJ_R3ouE28TYzI36xZyP1DWYfkjtXTPMl0TFGEYp_O6q5gxE1GJvPclgARzZXdIQSgV4MFc66gQ1QXFOAwQDXtBCubyDSMYR8FCmFQYXa40K8ALjAJKXd_cRHWkrU/s1600/print_a.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="468" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgbDcpx1E5b8SVF_RhJ_R3ouE28TYzI36xZyP1DWYfkjtXTPMl0TFGEYp_O6q5gxE1GJvPclgARzZXdIQSgV4MFc66gQ1QXFOAwQDXtBCubyDSMYR8FCmFQYXa40K8ALjAJKXd_cRHWkrU/s640/print_a.JPG" width="640" /></a></div>
<br />
Kita rubah <b>.NET FrameWork</b> nya , lihat gambar :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFKj_0HNvUW0lu3EhCtMtPBfMsZzNWk6BvieMsusxRjuwPqwrhpusLv9Zm0tmWN177JjLFoaMY7AK1WaGgAFCBUm7u8KaXPpJaSODvDtweHkLDhqL-4lFmR28L-wcTzJtx5UOlBfr-SUA/s1600/printb.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhFKj_0HNvUW0lu3EhCtMtPBfMsZzNWk6BvieMsusxRjuwPqwrhpusLv9Zm0tmWN177JjLFoaMY7AK1WaGgAFCBUm7u8KaXPpJaSODvDtweHkLDhqL-4lFmR28L-wcTzJtx5UOlBfr-SUA/s640/printb.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgP460ybIgGCyLRrnov2pvevmscYxU7AG_JTN82cvPNEMKjeR-vY49hlX2HJHUjEJhisssCuUrFqy7-I-4c4hk4__V6jgNRuGAqE-aVz9xZCmZ-Ronx23kcO5QSVRt-GxCUGtKHth_hZyI/s1600/printc.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="474" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgP460ybIgGCyLRrnov2pvevmscYxU7AG_JTN82cvPNEMKjeR-vY49hlX2HJHUjEJhisssCuUrFqy7-I-4c4hk4__V6jgNRuGAqE-aVz9xZCmZ-Ronx23kcO5QSVRt-GxCUGtKHth_hZyI/s640/printc.JPG" width="640" /></a></div>
<br />
Klik plg bawah itu <b>Advanced Compile Option .</b>.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsgKfRuQtI6V0uy_NBEWp3rF6Q7uIfGFlaPiqFzQ1lmpaaFhXKPJvusrs2JYoFxlxlOuLNPOhBLal-Ujh92bzdQIhOCD36MZW9isLNpBK_pTceM043ZJC-xvrSxjnOFGyqGzgO5HsVToQ/s1600/printd.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="474" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhsgKfRuQtI6V0uy_NBEWp3rF6Q7uIfGFlaPiqFzQ1lmpaaFhXKPJvusrs2JYoFxlxlOuLNPOhBLal-Ujh92bzdQIhOCD36MZW9isLNpBK_pTceM043ZJC-xvrSxjnOFGyqGzgO5HsVToQ/s640/printd.JPG" width="640" /></a></div>
Rubah menjadi<b> .NET Framework 4</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6_PmogpIxhCTYdlOdfZvfefrZBt17MwUPQkmPC1CZdkn2nQk0VsGsYJSdxJMVqTC8DO5TJ9Lons2kgiDf30SLvm-713GErcOFjgBXErz6_U5jQ1087fculOcBUH0gw26drEoSBtyNLIk/s1600/printe.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="470" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg6_PmogpIxhCTYdlOdfZvfefrZBt17MwUPQkmPC1CZdkn2nQk0VsGsYJSdxJMVqTC8DO5TJ9Lons2kgiDf30SLvm-713GErcOFjgBXErz6_U5jQ1087fculOcBUH0gw26drEoSBtyNLIk/s640/printe.JPG" width="640" /></a></div>
<br />
Cari di Tool Box : <b>CrystalReportViewer </b>Clik dan letakkan di <b>Form1</b> tadi<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHZrsdPcoa2gjtlXs1mADL-B_5qWXH8f9CMxNcnYsCP1tf2YnVD8WLiM8-M15hscgQCn3lwlQsjZPQGNVT4mHj-Hz5ffrXIxy-PTyeQZQNNi27XIeKNQKdw6ToVLOY7kXOTl-oQhBM2Bw/s1600/printf.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="462" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjHZrsdPcoa2gjtlXs1mADL-B_5qWXH8f9CMxNcnYsCP1tf2YnVD8WLiM8-M15hscgQCn3lwlQsjZPQGNVT4mHj-Hz5ffrXIxy-PTyeQZQNNi27XIeKNQKdw6ToVLOY7kXOTl-oQhBM2Bw/s640/printf.JPG" width="640" /></a></div>
<br />
Untuk Merubah Ukuran di Klik kiri di Pojok kanan atas akan muncul menu kecil<br />
Pilih yang : <b>Undock in Parent Container</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9IeWD69ySyvawWZVibXNcveo5F38dU8SnhPnZ98PSp90xaHjxd4mHMonASYuPzM281bDtaxFe3C3NyirU78JCu0uPlF9hbDIO1v7sJa3lQ6SyjIVTGdUZYPF9JzikcwQ11tkK4iJVFxk/s1600/printg.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="470" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg9IeWD69ySyvawWZVibXNcveo5F38dU8SnhPnZ98PSp90xaHjxd4mHMonASYuPzM281bDtaxFe3C3NyirU78JCu0uPlF9hbDIO1v7sJa3lQ6SyjIVTGdUZYPF9JzikcwQ11tkK4iJVFxk/s640/printg.JPG" width="640" /></a></div>
Ini Hasilnya bisa di Rubah - rubah ukuran nya<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-zoVzO948PB_48fCblpRnhCRlcIXq_edYrqDyh9975VLvtQjNxznGxBTFcVCI_JPwpX1nwt2QN3s38uRcdt-MkF8MwP5ALh94LreOkdIRORbTFLJicgz3wVqNDj5hZYsJG86bgC3kQJk/s1600/printh.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="382" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi-zoVzO948PB_48fCblpRnhCRlcIXq_edYrqDyh9975VLvtQjNxznGxBTFcVCI_JPwpX1nwt2QN3s38uRcdt-MkF8MwP5ALh94LreOkdIRORbTFLJicgz3wVqNDj5hZYsJG86bgC3kQJk/s640/printh.JPG" width="640" /></a></div>
Terus Klik Pojok kanan atas lagi lalu Pilih <b>Create a New Crystal Report</b><br />
dan beri nama terserah bawaan ( <i><b>CrystalReport1.rpt )</b></i> setelah itu Klik<b> OK</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6codsO-E-1aU-kF_kOfIVgmozVY32MKcV4134Pr4IvkSHF-A6iPH6UofFb_E7a552d3fhC82M-vW9eDwSyXMH7sQxgHz4MPfp-kg8DQ8bP3QQMOy7Tmli6UhYXJVIqMdl2NjcNkZRmVM/s1600/printx.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="606" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi6codsO-E-1aU-kF_kOfIVgmozVY32MKcV4134Pr4IvkSHF-A6iPH6UofFb_E7a552d3fhC82M-vW9eDwSyXMH7sQxgHz4MPfp-kg8DQ8bP3QQMOy7Tmli6UhYXJVIqMdl2NjcNkZRmVM/s640/printx.JPG" width="640" /></a></div>
<br />
Setelah itu Pilih <b>Standard </b>lalu OK <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvJ9dC8drciWaLLKXd1GpY_kOzjuOldjVj5Yrzmn1_jxrIkr62AZDpDBbG6ZDqAOhryh-2OvZemQ762N2v4Y5A7Wua_vVdyz8-ImgBe4kaQ5v7zd2mZdUXIvKpDN8tC07DHqX844JFGfA/s1600/printj.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvJ9dC8drciWaLLKXd1GpY_kOzjuOldjVj5Yrzmn1_jxrIkr62AZDpDBbG6ZDqAOhryh-2OvZemQ762N2v4Y5A7Wua_vVdyz8-ImgBe4kaQ5v7zd2mZdUXIvKpDN8tC07DHqX844JFGfA/s640/printj.JPG" width="640" /></a></div>
Pilih <b>My Connection</b> akan muncul Database MySQL yg ada lewat Connector ODBC<br />
Waktu Buat Koneksi tadi di beri nama <b>KJUAL</b> dengan memilih database<b> Jualan</b><br />
<br />
Kemudian misal pilih tabel Kasir lalu<b> NEXT </b>lalu Finish<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggJJmrKQxu0pcRUMkFWu33ShfqELmEP9Nv0e37gXJDjEPqc4LPr6Gcrk_-7JiNjYOwynK6jSJqv6JoJ4oNh1MXdbWrcl0eBYIKsPuauJoY0vQr68qgRnKD4mFgx-4GtsinEkl9vf-PM34/s1600/printk.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggJJmrKQxu0pcRUMkFWu33ShfqELmEP9Nv0e37gXJDjEPqc4LPr6Gcrk_-7JiNjYOwynK6jSJqv6JoJ4oNh1MXdbWrcl0eBYIKsPuauJoY0vQr68qgRnKD4mFgx-4GtsinEkl9vf-PM34/s640/printk.JPG" width="640" /></a></div>
<br />
Setelah Field - field di Pilih lalu <b>FINISH</b><br />
<br />
Kemudian Form Jalankan ( Start Debug ) atau F5<br />
<br />
maka hasilnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVb2VYkrYF93sXjgoTcimQe44pmatwfS3vKTQU8uM7c0AiEu3h4eKPdsBgmTzLVWDyri2gLUHSh_Iq0U0PVAu5JrTkCnBC8M1I_1w4XuVz5nPd85YRM-kJ3VXXWUVx8ORArtMh_f1_Sls/s1600/print1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVb2VYkrYF93sXjgoTcimQe44pmatwfS3vKTQU8uM7c0AiEu3h4eKPdsBgmTzLVWDyri2gLUHSh_Iq0U0PVAu5JrTkCnBC8M1I_1w4XuVz5nPd85YRM-kJ3VXXWUVx8ORArtMh_f1_Sls/s640/print1.JPG" width="640" /></a></div>
<br />
Mungkin ada pembaca yg bisa membantu dengan cara2 yg banyak<br />
misal menggunakan <b>dataset.xml</b> dll<br />
tapi ini tutorial kusus untuk <b>database MYSQL</b><br />
<span style="font-size: small;"><b>Kami </b></span><b> tunggu<i> artikel anda </i></b>di Email kami<br />
1. Jlwansorisori@yahoo.co.id<br />
2. Jlwansori@gmail.com<br />
<br />
Terimakasih atas bantuan anda<br />
<br />
<br />
<br />
<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com1tag:blogger.com,1999:blog-8346623379852294436.post-66005126447060425242012-10-31T23:20:00.000-07:002012-11-30T22:53:43.082-08:00DOWNLOAD VS2010 PROFESSIONAL VERSI ISO<div dir="ltr" style="text-align: left;" trbidi="on">
<div dir="ltr" style="text-align: left;" trbidi="on">
Kalau anda belum punya saya sarankan Download <a href="http://djiesoft.blogspot.com/2012/06/download-microsoft-visual-studio-2010.html" target="_blank">DiSini</a><br />
Karena VS2010 Professional ini berLicensi atau Berbayar maka oleh Mas Pandji<br />
diharapkan hanya untuk PerBelajaran saja bukan untuk Komercil , tapi<br />
kalau sudah untuk Proyek harap Beli Licensi nya.<br />
Demikian Pesannya<br />
Ini Blog untuk Downloadnya :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZyW2wSiVsOxLFnn8JHYoM29jtiAacPyvtgEDDzMhjVP1A6JJ29FHt4OtQguFx-714Of7qEjvlUPcJdsKwG3XKBqcz3IoRF7nyhF0XaEOZRxVpcCYuIbA8d9DGW2V75GzE2PZuxcLf8jA/s1600/awal.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZyW2wSiVsOxLFnn8JHYoM29jtiAacPyvtgEDDzMhjVP1A6JJ29FHt4OtQguFx-714Of7qEjvlUPcJdsKwG3XKBqcz3IoRF7nyhF0XaEOZRxVpcCYuIbA8d9DGW2V75GzE2PZuxcLf8jA/s640/awal.JPG" width="640" /></a></div>
<br />
<b><i>Download </i>Part 1 sd Part 15</b> setelah kumpulkan di 1 folder lihat gambar :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBTX_Ve5ftXhGHU5a460SajJZRhKtgc_0ah7dcsx_9jNuh-Aq201Zt2Sc9cBfID2_zyJxBkrQPvqB8bzPefOkTnCJwjbQJKKhsb9hBMzj2sLAeezwnBXUSfRkKjhmdfW7CEtg73Z46Xpc/s1600/part1-15_vb2010.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="472" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBTX_Ve5ftXhGHU5a460SajJZRhKtgc_0ah7dcsx_9jNuh-Aq201Zt2Sc9cBfID2_zyJxBkrQPvqB8bzPefOkTnCJwjbQJKKhsb9hBMzj2sLAeezwnBXUSfRkKjhmdfW7CEtg73Z46Xpc/s640/part1-15_vb2010.JPG" width="640" /></a></div>
<br />
JAdikan file 15 (Part 1-15 ) dengan software <b>HJSPLIT</b> , sekarang buka HjSplit nya :<br />
KAlau belum punya Install dan Download <span style="color: yellow;"><a href="http://www.sharebeast.com/pkosuprcvbz9">DiSini<i><b> </b></i></a></span><br />
<span style="color: yellow;"><i><b>Password HJSplit : ozy39141259</b></i></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvAl35Cn0Xe0640Rs7n28BqhU9n3oWLw1misL_b5OAvrLwnt5-cp1ihqr2mMkS0v6txc6lv3mImc8pnyOA3BxpZxSMcfRK3LRuKmQjFy-c7igFrqyuYis7UqR05XzqQZOiOebVBuNyfgQ/s1600/hjsplit.bmp" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="308" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhvAl35Cn0Xe0640Rs7n28BqhU9n3oWLw1misL_b5OAvrLwnt5-cp1ihqr2mMkS0v6txc6lv3mImc8pnyOA3BxpZxSMcfRK3LRuKmQjFy-c7igFrqyuYis7UqR05XzqQZOiOebVBuNyfgQ/s400/hjsplit.bmp" width="400" /> </a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<div class="separator" style="clear: both; text-align: left;">
Klik Join muncul :</div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaiGDrQtuz6mrwKzG0OUVB6Z46EocB8U7y9UQ_wSgAhUNH4o1PC8cerM2bhf4XHH59jao_ZHZ7XlVTw1gLmTNEBRKPVwZGkHts_ZP5K3iZNWf2R1kSWvIvMD1o02oZ3xgkSxeSlweZFpI/s1600/hjsplit2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="452" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhaiGDrQtuz6mrwKzG0OUVB6Z46EocB8U7y9UQ_wSgAhUNH4o1PC8cerM2bhf4XHH59jao_ZHZ7XlVTw1gLmTNEBRKPVwZGkHts_ZP5K3iZNWf2R1kSWvIvMD1o02oZ3xgkSxeSlweZFpI/s640/hjsplit2.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
<br /></div>
Kemudian Klik unknown di ( Input File ) dan cari folder tadi dan cari file yg mau di gabung<br />
Kalau sdh ketemu File nya di Klik ( biasanya no. 1 )<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmiGC2vIbLR4-BI_EM-JqeH6ApYBahyphenhyphenpFvlc3Jnsn2ts9iVBJOxSxgsERX80DMnT3wAJf8uMQC34tT2T2_gmJPpUgyS9tuyS6ZwAfEWzSZEF4w9uPQWljFuNEy0xFL5Nr6Wc9hNrLPX9Y/s1600/hjsplit3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="594" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmiGC2vIbLR4-BI_EM-JqeH6ApYBahyphenhyphenpFvlc3Jnsn2ts9iVBJOxSxgsERX80DMnT3wAJf8uMQC34tT2T2_gmJPpUgyS9tuyS6ZwAfEWzSZEF4w9uPQWljFuNEy0xFL5Nr6Wc9hNrLPX9Y/s640/hjsplit3.JPG" width="640" /></a></div>
Klik <b>Open </b>lalu muncul ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitpIfBEcE332wURiL14M-ctjwzKnPJ0rPs3a_qjFGr9mN1agZTKwnNCUUy_3zuCqjU3LaVmWkeQOzwUpV1g-yZEEX8t9Iq9p9Difqnj-A0J9cH7IxCKqUX2P0bjewfM9arbLarstP4ovc/s1600/hjsplit4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="606" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEitpIfBEcE332wURiL14M-ctjwzKnPJ0rPs3a_qjFGr9mN1agZTKwnNCUUy_3zuCqjU3LaVmWkeQOzwUpV1g-yZEEX8t9Iq9p9Difqnj-A0J9cH7IxCKqUX2P0bjewfM9arbLarstP4ovc/s640/hjsplit4.JPG" width="640" /></a></div>
Kemudian Klik<b> Start </b>dan tunggu sampai Selesai<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjyK3obN6btVUtAO_M20tQerFgREBKW8rwq6urJYaj0trTgGy0AIrsxPq_aURqm0zWrZqePSYakGy6Lg2KFhhz5G0WOQ23AtbMftLZyJRJUClKyRuTO5z9XF-KUQUsaueR3rDhcWGRDy8/s1600/hjsplit5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="566" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjjyK3obN6btVUtAO_M20tQerFgREBKW8rwq6urJYaj0trTgGy0AIrsxPq_aURqm0zWrZqePSYakGy6Lg2KFhhz5G0WOQ23AtbMftLZyJRJUClKyRuTO5z9XF-KUQUsaueR3rDhcWGRDy8/s640/hjsplit5.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggv9zf2Evn0ZyWiMIBKTwJpDZb6RwNOF4QaRD-MU4SCeTk1puGFFjipsrEz0dzozobG5ulh0iJYvVMmo6TF8SXSBzFUoeg5qlrxPptSJ1XtAta6KPdztdE4Iv_X_nmt9OieMTODL1ReLg/s1600/hjsplit6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="566" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEggv9zf2Evn0ZyWiMIBKTwJpDZb6RwNOF4QaRD-MU4SCeTk1puGFFjipsrEz0dzozobG5ulh0iJYvVMmo6TF8SXSBzFUoeg5qlrxPptSJ1XtAta6KPdztdE4Iv_X_nmt9OieMTODL1ReLg/s640/hjsplit6.JPG" width="640" /></a></div>
Kita lihat Hasilnya :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0xhExIGYnMLqS8bx9cko4-CG5Zoed6JGwSJdrYqv_sJwZFV2luY1amTrL46gVPqoQq8GSdzIqrIPQxd5zncgA0uxBOxqkBb_LFnkbbCwBKWeXHRTDL6Dr3THKPoGOPA23A6ikbwMLBBU/s1600/hjsplit7.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="478" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0xhExIGYnMLqS8bx9cko4-CG5Zoed6JGwSJdrYqv_sJwZFV2luY1amTrL46gVPqoQq8GSdzIqrIPQxd5zncgA0uxBOxqkBb_LFnkbbCwBKWeXHRTDL6Dr3THKPoGOPA23A6ikbwMLBBU/s640/hjsplit7.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: left;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmQcxuA9nORWZY-gU8pC1S07c02uubN1mlBZgbizfWqWMTVqJ5WZCH0K43dI6vQoIPucblYu2e6XKCw2k-ENIj381fM9ZerJKDol-pfmqa4WPgmRWZwr5wTsqbQrDf_6HISCP_0IzIXrY/s1600/hjsplit8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="416" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhmQcxuA9nORWZY-gU8pC1S07c02uubN1mlBZgbizfWqWMTVqJ5WZCH0K43dI6vQoIPucblYu2e6XKCw2k-ENIj381fM9ZerJKDol-pfmqa4WPgmRWZwr5wTsqbQrDf_6HISCP_0IzIXrY/s640/hjsplit8.JPG" width="640" /></a></div>
<br />
<span style="color: yellow;">Ini </span> yang di namakan <span style="color: yellow;"><i><b>File Iso atau NRG File.</b></i></span><br />
Untuk Jalankan File Iso atau NRG File ini pakai Software sendiri namanya : <span style="color: yellow;"><b>UltraIso</b></span><br />
<br />
Kalau Belum Punya Install dan Download <span style="color: orange;"><a href="http://www.sharebeast.com/b2krwicjz3al">DiSini </a></span>Setelah UltraIso di download di komputer anda lalu buka lihat gambar :<br />
Klik kanan Start bawah Explore lalu lihat gambar :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-8VDXKcfd-JukjjIcmY-pVruOEIbWRZ8yfQATDZ0Mx9nbsj7Ubm7i4njKyn_03DrOK5KfW3MmmxJqVKMFT5_LX6fQ5vnAj4Iykgkcx4z5lDMy4S1j02PasQMgpVcqL-yWy7_1Vqwm1Vs/s1600/hjsplit9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div>
<div class="separator" style="clear: both; text-align: center;">
<img border="0" height="640" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-8VDXKcfd-JukjjIcmY-pVruOEIbWRZ8yfQATDZ0Mx9nbsj7Ubm7i4njKyn_03DrOK5KfW3MmmxJqVKMFT5_LX6fQ5vnAj4Iykgkcx4z5lDMy4S1j02PasQMgpVcqL-yWy7_1Vqwm1Vs/s640/hjsplit9.JPG" width="572" /></div>
<br />
Setelah mount cari <i><b>NRG File</b></i> yg akan di jalankan<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJ5HPCJdZcxQ_pHtXvMS1UszNi3bSdLX6Rp9UKPA-A5cfgllwKEHN3GPu86G5E6pZQis69SndqCtdPUZT_tAi9YZBAJ7ViB_PHm6P0123HpobY4vLJoakF5BWfw3ItKU9-HrSr0Q8xcEE/s1600/hjsplit10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="484" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiJ5HPCJdZcxQ_pHtXvMS1UszNi3bSdLX6Rp9UKPA-A5cfgllwKEHN3GPu86G5E6pZQis69SndqCtdPUZT_tAi9YZBAJ7ViB_PHm6P0123HpobY4vLJoakF5BWfw3ItKU9-HrSr0Q8xcEE/s640/hjsplit10.JPG" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRFDlvC04dHdkbxtaUO2f0zM0mIlxelixH_BrZWsIGM7qVa3O63TXcgzEh6GWZXBpTwgeFbsZk0fTxv3MQd21wI6yMxxwG9yBFwLTYU6Ckfb33glN7BcVmzP1O7_gw5bFg6Wj8nnN7IHo/s1600/hjsplit11.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRFDlvC04dHdkbxtaUO2f0zM0mIlxelixH_BrZWsIGM7qVa3O63TXcgzEh6GWZXBpTwgeFbsZk0fTxv3MQd21wI6yMxxwG9yBFwLTYU6Ckfb33glN7BcVmzP1O7_gw5bFg6Wj8nnN7IHo/s1600/hjsplit11.JPG" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="622" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiRFDlvC04dHdkbxtaUO2f0zM0mIlxelixH_BrZWsIGM7qVa3O63TXcgzEh6GWZXBpTwgeFbsZk0fTxv3MQd21wI6yMxxwG9yBFwLTYU6Ckfb33glN7BcVmzP1O7_gw5bFg6Wj8nnN7IHo/s640/hjsplit11.JPG" width="640" /></a>
</div>
</div>
<br />
Secara Otomatis <b>File Iso atau NRGFile</b> di jalankan , lihat Hasilnya :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-diZXszBiHZNarkPv_mGXSyFFwzq4yKliOsdJ3iY0jTXhdXwqqJcLcAQf6QvDepW3_sFSKLn1WZPZKW2Guly7kEV8idLhMZaW5xOt0osngK1I64uxeIEwVSmbLkpcSlsggnWPfw2W3Lw/s1600/hjsplit12.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="492" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-diZXszBiHZNarkPv_mGXSyFFwzq4yKliOsdJ3iY0jTXhdXwqqJcLcAQf6QvDepW3_sFSKLn1WZPZKW2Guly7kEV8idLhMZaW5xOt0osngK1I64uxeIEwVSmbLkpcSlsggnWPfw2W3Lw/s640/hjsplit12.JPG" width="640" /></a></div>
Kemudian Klik <b>Install Microsoft Visual Studio 2010</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXX7q_cM1SCmbwWztC2Q693qeuF4ZXmyUBOGWN1nZ2a-RenHap9JsvcHQwtIoHPecUMJ4zHajQgS5P5DzWvcq6OSI7lwGUo245v85gf5-wA_Bbjfp3CuTO3HjUL9EwhrmJTQDS9nYPWI4/s1600/hjsplit13.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="490" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiXX7q_cM1SCmbwWztC2Q693qeuF4ZXmyUBOGWN1nZ2a-RenHap9JsvcHQwtIoHPecUMJ4zHajQgS5P5DzWvcq6OSI7lwGUo245v85gf5-wA_Bbjfp3CuTO3HjUL9EwhrmJTQDS9nYPWI4/s640/hjsplit13.JPG" width="640" /></a></div>
<br />
Klik Tombol Radio (<span style="color: yellow;"> <b>I Have read and accep he license terms</b> </span>)<br />
lalu <b>Next</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7Kx-9qfInWKuUY4GEdbpS7A9Lm3PcW3itEVMgNEgkqKGkXZn1l9dY8kinE5dz3ajIqe0OX4mwy_EIGP6KBqhUfDJpPMJj_qn4AWEwuP2_awR70778T1ZYB8aKEFoyBy8XSkRfqdGTAFI/s1600/hjsplit14.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="482" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi7Kx-9qfInWKuUY4GEdbpS7A9Lm3PcW3itEVMgNEgkqKGkXZn1l9dY8kinE5dz3ajIqe0OX4mwy_EIGP6KBqhUfDJpPMJj_qn4AWEwuP2_awR70778T1ZYB8aKEFoyBy8XSkRfqdGTAFI/s640/hjsplit14.JPG" width="640" /></a></div>
<br />
Biar <i><b>Proses berjalan sampai selesai</b></i><br />
setelah selesai Jalankan <b>Visual Studio 2010 :</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWCd9HJzlFPvxy6VIOX0vATb8fE_YRjDd-Cjycc7KsXnGFrACVZbSC0-qSWrZZkgE_I2xGT2AJjU2Do8Xt4I5_rRtm4-HcT9KpS8hbIOlB2FH_smBbhR6lpULkx6JYncMjfYgy-XcKM34/s1600/hjsplit15.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="514" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiWCd9HJzlFPvxy6VIOX0vATb8fE_YRjDd-Cjycc7KsXnGFrACVZbSC0-qSWrZZkgE_I2xGT2AJjU2Do8Xt4I5_rRtm4-HcT9KpS8hbIOlB2FH_smBbhR6lpULkx6JYncMjfYgy-XcKM34/s640/hjsplit15.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8NFHgL5OpjpSXq47TR3DFFvjfw8OpVdnTmKDbsJkuGJn8MvASRpgik6wb0iOWuqGFPRy9FYKvocQs-RGcyJggBrMUH81dvILAmE0E8H8pbyejJpqe5NP7gpqyQtEbqBv-Hu-2hFWqyN8/s1600/hjsplit16.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="534" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8NFHgL5OpjpSXq47TR3DFFvjfw8OpVdnTmKDbsJkuGJn8MvASRpgik6wb0iOWuqGFPRy9FYKvocQs-RGcyJggBrMUH81dvILAmE0E8H8pbyejJpqe5NP7gpqyQtEbqBv-Hu-2hFWqyN8/s640/hjsplit16.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZWybQ021w9nnvwH23TjBtt9tl1fGNHlXqbA91pj9JqvQpK6J5RxzyUB0Euqk_Us14FlteAwdm3ANlqxe9pb5HRRPt-ceHXFALSNa1iDII7CFXbnnpN9oiUU9ox0VPdRbda_ZUHnrpqyY/s1600/hjplit17.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgZWybQ021w9nnvwH23TjBtt9tl1fGNHlXqbA91pj9JqvQpK6J5RxzyUB0Euqk_Us14FlteAwdm3ANlqxe9pb5HRRPt-ceHXFALSNa1iDII7CFXbnnpN9oiUU9ox0VPdRbda_ZUHnrpqyY/s640/hjplit17.JPG" width="640" /></a></div>
<br />
<b>Selamat Ber Visual Basic Net 2010 Professional ver Iso </b></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-84815692246862285822012-10-18T08:26:00.000-07:002014-07-14T22:43:55.906-07:00MYSQL-DATAGRIDVIEW EXPORT KE EXCEL<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-size: large;">DATAGRIDVIEW DI EXPORT KE EXCEL</span><br />
<br />
<span style="font-size: large;"> Karena kita DataBase nya pakai MY<span style="font-size: large;">SQL</span></span><br />
<span style="font-size: large;"><span style="font-size: large;">Langkahnya :</span></span><br />
<span style="font-size: large;"><span style="font-size: large;">1. Buat Form</span></span><br />
<span style="font-size: large;"><span style="font-size: large;">2. kita ambil dari toolbox yaitu:</span></span><br />
<span style="font-size: large;"><span style="font-size: large;"> - DataGridView - Button</span></span><br />
<span style="font-size: large;"><span style="font-size: large;">3. Add Modul</span></span><br />
<span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">4<span style="font-size: large;">. Add Reference </span></span></span></span><br />
<span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"> - di (Browse) ..Connect ke MYSQL connector NET 6.5.4</span></span></span></span><br />
<span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"> <span style="font-size: large;"><span style="font-size: large;">- di <span style="font-size: large;">( COM ).....</span>Micro<span style="font-size: large;">soft Excel 11.0 </span></span></span></span></span></span></span><br />
<br />
<span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;">Lihat Gambar</span></span></span></span></span></span></span><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiohihV_4bzbD3r5nkqBBrMvG_hN9d1MwWfScO7FzYX4VuvVHlZbrgpumuoBpbdrFtJsZzrlL5rpvMhnGRB6rnmoFTdMtVtpcgfsoG_p24CjpGjwJPzNQtF5ItIpYBiImOEJmBMpIlhnPk/s1600/module.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiohihV_4bzbD3r5nkqBBrMvG_hN9d1MwWfScO7FzYX4VuvVHlZbrgpumuoBpbdrFtJsZzrlL5rpvMhnGRB6rnmoFTdMtVtpcgfsoG_p24CjpGjwJPzNQtF5ItIpYBiImOEJmBMpIlhnPk/s640/module.JPG" height="480" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
</div>
<span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"><span style="font-size: large;"> </span></span></span> </span></span> </span></span><br />
kita beri nama misal : Modulku<br />
ini untuk menulis Perintah tentang Connection antara MYSQL dng VB-2010<br />
<br />
Supaya Connect dng MYSQL lihat gambar :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilYjsAul5hTOcjDa1SJtELhPUfpe-hUDtRLPM4sgZc9cGg1aYUybrROWMUuklPiRJt71ZeODWYUjAF5vyBfyXktbjvCLinuto3ZQmr_K6Z_bZ5Vpm6JOwFmkZn1NyuzpB2EIwGGKyvPis/s1600/conect.JPG" imageanchor="1"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilYjsAul5hTOcjDa1SJtELhPUfpe-hUDtRLPM4sgZc9cGg1aYUybrROWMUuklPiRJt71ZeODWYUjAF5vyBfyXktbjvCLinuto3ZQmr_K6Z_bZ5Vpm6JOwFmkZn1NyuzpB2EIwGGKyvPis/s640/conect.JPG" height="486" width="640" /></a></div>
<span id="goog_560738426"></span><span id="goog_560738427"></span><br />
<span id="goog_560738426">Selanjutnya untuk connection ke EXCEL sama pojok kanan</span><span id="goog_560738427"></span> atas klik kanan Add Reference<br />
lalu COM pilih Microsoft Excel 11.0 Library<br />
<br />
lihat gambar<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiw1LrR0zSlW40Lvw0wq0qVIZKTOxD-wAa03vIEUzxTbi7T7mdA2n-K4Eu9U1d3vFVaRNQS9h7sMKeaO7y1HNdr2SsvPQ_PAs-7cMWaB42oIzNOxFvltRtJpG9NeFtJqsFEENuRllyBKXg/s1600/excel1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiw1LrR0zSlW40Lvw0wq0qVIZKTOxD-wAa03vIEUzxTbi7T7mdA2n-K4Eu9U1d3vFVaRNQS9h7sMKeaO7y1HNdr2SsvPQ_PAs-7cMWaB42oIzNOxFvltRtJpG9NeFtJqsFEENuRllyBKXg/s640/excel1.JPG" height="640" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVbnbcGQUJVDViiZ9k7iYdE-nEKZoMu-X3sDkYRZlat8-Fc80veSWbUiDHN_e623HlvEJv8XhURA21P5kTctVBEJVXgIwPfTngXdCzx0jxIYUIYxTyetvit9gYiEJVZkWjkx6OA-6Xwq8/s1600/excel2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVbnbcGQUJVDViiZ9k7iYdE-nEKZoMu-X3sDkYRZlat8-Fc80veSWbUiDHN_e623HlvEJv8XhURA21P5kTctVBEJVXgIwPfTngXdCzx0jxIYUIYxTyetvit9gYiEJVZkWjkx6OA-6Xwq8/s640/excel2.JPG" height="480" width="640" /></a></div>
<br />
Baru Peng Codingan :<br />
Coding di Modulku :<br />
<br />
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--><br />
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->
<br />
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> MySql.Data.MySqlClient</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> System.Data</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Module</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> <span style="color: #2b91af;">modulku</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span> cmd <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: #2b91af;">MySqlCommand</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span>
dadapter <span style="color: blue;">As</span> <span style="color: blue;">New</span>
<span style="color: #2b91af;">MySqlDataAdapter</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span>
datardr <span style="color: blue;">As</span> <span style="color: #2b91af;">MySqlDataReader</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span>
strSql <span style="color: blue;">As</span> <span style="color: blue;">String</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Dim</span> serv <span style="color: blue;">As</span> <span style="color: blue;">String</span> = <span style="color: #a31515;">"Server=localhost;"</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Dim</span> dbase <span style="color: blue;">As</span> <span style="color: blue;">String</span> = <span style="color: #a31515;">"Database=toko;"</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Dim</span> uid <span style="color: blue;">As</span> <span style="color: blue;">String</span> = <span style="color: #a31515;">"uid=root;"</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Dim</span> pwd <span style="color: blue;">As</span> <span style="color: blue;">String</span> = <span style="color: #a31515;">"pwd=;"</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Dim</span>
ConString = serv & dbase & uid & pwd</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span> db <span style="color: blue;">As</span> <span style="color: blue;">New</span> <span style="color: #2b91af;">MySqlConnection</span>(ConString)</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span> <span style="color: blue;">Sub</span> konek()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Try</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>tutupDB()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>db.Open()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>MsgBox(<span style="color: #a31515;">"Koneksi
DataBase berhasil dilakukan"</span>)</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Catch</span>
ex <span style="color: blue;">As</span> <span style="color: #2b91af;">MySqlException</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>MsgBox(ex.Message)</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>MsgBox(<span style="color: #a31515;">"Koneksi
tidak berhasil dilakukan"</span>)</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Try</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Public</span> <span style="color: blue;">Sub</span> tutupDB()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">If</span>
db.State = <span style="color: #2b91af;">ConnectionState</span>.Open <span style="color: blue;">Then</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>db.Close()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">If</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">End</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> <span style="color: blue;">Module</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal">
<span style="font-size: large;"><span style="font-family: Consolas;"><span style="color: blue;">baru Coding di Form1</span></span></span></div>
<div class="MsoNormal">
<span style="font-size: large;"><span style="font-family: Consolas;"><span style="color: blue;"></span></span></span></div>
<div class="MsoNormal">
<span style="font-size: large;"><span style="font-family: Consolas;"><span style="color: blue;"><br /></span></span></span><!--[if gte mso 9]><xml>
<w:WordDocument>
<w:View>Normal</w:View>
<w:Zoom>0</w:Zoom>
<w:PunctuationKerning/>
<w:ValidateAgainstSchemas/>
<w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid>
<w:IgnoreMixedContent>false</w:IgnoreMixedContent>
<w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText>
<w:Compatibility>
<w:BreakWrappedTables/>
<w:SnapToGridInCell/>
<w:WrapTextWithPunct/>
<w:UseAsianBreakRules/>
<w:DontGrowAutofit/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]--></div>
<br />
<div class="MsoNormal">
<!--[if gte mso 9]><xml>
<w:LatentStyles DefLockedState="false" LatentStyleCount="156">
</w:LatentStyles>
</xml><![endif]--><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0in 5.4pt 0in 5.4pt;
mso-para-margin:0in;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";
mso-ansi-language:#0400;
mso-fareast-language:#0400;
mso-bidi-language:#0400;}
</style>
<![endif]-->
</div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> Microsoft.Office.Interop</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> Excel = Microsoft.Office.Interop.Excel</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: green; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"></span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> MySql.Data.MySqlClient</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> System.Configuration</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Imports</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> System.Runtime.InteropServices</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Public</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> <span style="color: blue;">Class</span> <span style="color: #2b91af;">Form1</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: lime;">Private Sub DisplayData()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><br /></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> <span style="color: yellow;"> </span></span><span style="color: yellow;">Dim
query As String
= "SELECT * FROM CUSTOMER"</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Dim da As New MySqlDataAdapter(query, db)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Dim ds As New DataSet()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>If
da.Fill(ds) Then</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>dgv.DataSource = ds.Tables(0)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>End If</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: lime;">End Sub</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">Private</span> <span style="color: blue;">Sub</span> Button2_Click(<span style="color: blue;">ByVal</span>
sender <span style="color: blue;">As</span> System.<span style="color: #2b91af;">Object</span>,
<span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.<span style="color: #2b91af;">EventArgs</span>) <span style="color: blue;">Handles</span>
Button2.Click</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>konek()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><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.<span style="color: #2b91af;">Object</span>,
<span style="color: blue;">ByVal</span> e <span style="color: blue;">As</span>
System.<span style="color: #2b91af;">EventArgs</span>) <span style="color: blue;">Handles</span>
<span style="color: blue;">MyBase</span>.Load</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>DisplayData()</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: blue;">End</span> <span style="color: blue;">Sub</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="color: lime;">Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> <span style="color: yellow;"> </span></span><span style="color: yellow;">Dim
rowsTotal, colsTotal As Short</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Dim I,
j, iC As Short</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>Dim xlApp As New Excel.Application</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Try</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Dim
excelBook As Excel.Workbook
= xlApp.Workbooks.Add</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Dim
excelWorksheet As Excel.Worksheet = CType(excelBook.Worksheets(1),
Excel.Worksheet)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>xlApp.Visible = True</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>rowsTotal = dgv.RowCount - 1</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>colsTotal = dgv.Columns.Count - 1</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>With
(excelWorksheet)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells.Select()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells.Delete()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>For
iC = 0 To colsTotal</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells(1, iC + 1).Value =
dgv.Columns(iC).HeaderText</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Next</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>For
I = 0 To rowsTotal </span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>For
j = 0 To colsTotal </span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells(I + 2, j +
1).value = dgv.Rows(I).Cells(j).Value</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Next
(j)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Next
(I)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Rows("1:1").Font.FontStyle
= "Bold"</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Rows("1:1").Font.Size
= 10</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells.Columns.AutoFit()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells.Select()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>.Cells.EntireColumn.AutoFit()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span><span style="mso-spacerun: yes;"> </span>.Cells(1, 1).Select()</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>End
With</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Catch
ex As Exception</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>MsgBox("Export
Excel Error " & ex.Message)</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>Finally</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>'RELEASE
ALLOACTED RESOURCES<span style="mso-spacerun: yes;"> </span></span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>xlApp = Nothing</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: yellow;"><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> </span>End Try</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"><span style="mso-spacerun: yes;"> <span style="color: lime;"> </span></span><span style="color: lime;">End Sub</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="color: blue; font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">End</span><span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;"> <span style="color: blue;">Class</span></span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<br /></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Kemudian Save All</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">lalu jalankan dengan Debug atau F5</span></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
<span style="font-family: Consolas; font-size: 9.5pt; mso-bidi-font-family: Consolas;">Hasilnya :</span></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheH-AX7f5Y6k0GNAd44gGJtZhTVzC6fmOTThpZS1FEiFNISxf-UeRgcFedNi3yHhs4uCNnjJE2gBpks7QdlhxR5jzVMO-JQcadPj5Cre0a81nQSSaos4wZsv04dtxgky5zNzHwrao9zUk/s1600/excel3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEheH-AX7f5Y6k0GNAd44gGJtZhTVzC6fmOTThpZS1FEiFNISxf-UeRgcFedNi3yHhs4uCNnjJE2gBpks7QdlhxR5jzVMO-JQcadPj5Cre0a81nQSSaos4wZsv04dtxgky5zNzHwrao9zUk/s640/excel3.JPG" height="480" width="640" /></a></div>
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
</div>
<div class="MsoNormal">
<b>lalu Klik tombol button Export to Excel</b></div>
<div class="MsoNormal">
hasilnya :</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBnVQnhheoosrPWRCcDb-gSf1OBrBErFEhW0Hb5sL7QyqUULQr2y_xD_FLOZC3crCGgsRXyIQLRFZ8W3rmlKxMTA3dQSVmo1LvN1vhNKslU2vERh6L7I3XEI2ZCAzAmE9Z_cUBmsm0Uf8/s1600/excel4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjBnVQnhheoosrPWRCcDb-gSf1OBrBErFEhW0Hb5sL7QyqUULQr2y_xD_FLOZC3crCGgsRXyIQLRFZ8W3rmlKxMTA3dQSVmo1LvN1vhNKslU2vERh6L7I3XEI2ZCAzAmE9Z_cUBmsm0Uf8/s640/excel4.JPG" height="480" width="640" /></a></div>
<div class="MsoNormal">
<br /></div>
<div class="MsoNormal">
moga manfaat</div>
<br />
<br />
<div class="MsoNormal" style="mso-layout-grid-align: none; text-autospace: none;">
</div>
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com5tag:blogger.com,1999:blog-8346623379852294436.post-76821319086473100672012-10-16T17:57:00.001-07:002012-10-16T19:28:20.576-07:00MENU UTAMA DAN LOGIN<div dir="ltr" style="text-align: left;" trbidi="on">
Di <b> MENU UTAMA</b> biasanya ada :<br />
1. admin hak aksesnya sebagai Supervisor<br />
2. user hak aksesnya ada pembatasnya<br />
<br />
<b>Langkah-langkahnya :</b><br />
1. buat tabel login<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPzj-KOOqKT2DvPfDSXregLiTqXyKR-je3zONmAdeFXs8HPUOKF0IiRa8W5S3632DnLSDgGs39cJ3ZIOUSs6KOHiG504mFk5VWsOTmQr8oqt0b6BZpLukkCyyXZ35bVM8-VvXq3kGjhHs/s1600/login2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="408" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgPzj-KOOqKT2DvPfDSXregLiTqXyKR-je3zONmAdeFXs8HPUOKF0IiRa8W5S3632DnLSDgGs39cJ3ZIOUSs6KOHiG504mFk5VWsOTmQr8oqt0b6BZpLukkCyyXZ35bVM8-VvXq3kGjhHs/s640/login2.JPG" width="640" /></a></div>
Kita buat Data Percobaan :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhlRgDeZ-s0G28ZC_qk2fpjeDyVit96QIZvebO0xcgxbuPeYXSJJlHVCtWyD6QOb-fTJZMH7Oh1bDVNueXfBenNM5q3xOP60Yib-5KHk57qkxsz9FIB9Mc0lVZygA3YwRgJFdTOkH6DAHg/s1600/login1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="470" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhlRgDeZ-s0G28ZC_qk2fpjeDyVit96QIZvebO0xcgxbuPeYXSJJlHVCtWyD6QOb-fTJZMH7Oh1bDVNueXfBenNM5q3xOP60Yib-5KHk57qkxsz9FIB9Mc0lVZygA3YwRgJFdTOkH6DAHg/s640/login1.JPG" width="640" /></a></div>
<b>Kita buat Form Login</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-YbVS25sY_JxEXPckurYb6CDBGhW_mlhar_D7Dh94Lh_ZHL79h5trF5-__ggpzrADr6fnf4uXNP1z9H9Zk2SBG1rXFRsJzMjpeNiYLxCoOTza-2VaplfIyc7FqwTaE2FMoAPRXqZqj4w/s1600/login10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><b><img border="0" height="414" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg-YbVS25sY_JxEXPckurYb6CDBGhW_mlhar_D7Dh94Lh_ZHL79h5trF5-__ggpzrADr6fnf4uXNP1z9H9Zk2SBG1rXFRsJzMjpeNiYLxCoOTza-2VaplfIyc7FqwTaE2FMoAPRXqZqj4w/s640/login10.JPG" width="640" /></b></a></div>
<br />
<br />
Beri nama : textbox nya :<b> txtuser, txtpass, cbakses</b><br />
<br />
Karena ini menggunakan DataBase <b>MYSQL</b><br />
Kita buat Modul dan Koneksi ke DataBase MySQL<br />
Syarat : Anda sudah Install<i><b> <span style="color: orange;">Xampp</span> dan <span style="color: lime;">Connection Mysql NET versi 6.5.4</span> dan <span style="color: white;">VB.net(VB-2010)</span></b></i><br />
kita buat Koneksi ke MYSQL biasa pojok kanan atas Klik Kanan > Add Reference sampai<br />
pilih <span style="color: yellow;"><b>Browse</b></span> cari di <span style="color: yellow;"><b>c:\Program files\Mysql\Mysql Connector Net 6.5.4 </b></span><br />
lalu blok semua - OK<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5vAvJYZbNE9dTg3b4gHpVXZ1U5oKmu-7inEHIbRUbJxKUNWP4uRbm9HCiCd4839xZupEFxJIkxP9CtqbmhRGHAOe47Pn2PkCfqXCWjILI2VjteUDi9HProxq1LwICqTxntd5bkvbd8NA/s1600/conect.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="486" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi5vAvJYZbNE9dTg3b4gHpVXZ1U5oKmu-7inEHIbRUbJxKUNWP4uRbm9HCiCd4839xZupEFxJIkxP9CtqbmhRGHAOe47Pn2PkCfqXCWjILI2VjteUDi9HProxq1LwICqTxntd5bkvbd8NA/s640/conect.JPG" width="640" /></a></div>
Kemudian buat Modulnya buat Coding konek nya<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijJmPFaEcNYLhPVC8WIhagBGvqHVFirkUU5W_-mWDmjAWO8z8XW7cByaI1cw2_xdu3jxawX85Z229OZNACyImOuJrndyv6RBrEMxKWu0anlmB1PmQsViUw93moBg_Deu_b9L3UoPSVLRc/s1600/module.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijJmPFaEcNYLhPVC8WIhagBGvqHVFirkUU5W_-mWDmjAWO8z8XW7cByaI1cw2_xdu3jxawX85Z229OZNACyImOuJrndyv6RBrEMxKWu0anlmB1PmQsViUw93moBg_Deu_b9L3UoPSVLRc/s640/module.JPG" width="640" /></a></div>
lalu buat Codingnya<br />
<br />
<span style="color: yellow;">Imports MySql.Data.MySqlClient</span><br />
<span style="color: yellow;">Imports System.Data</span><br />
<span style="color: yellow;">Module modulku</span><br />
<span style="color: yellow;"> Public cmd As New MySqlCommand</span><br />
<span style="color: yellow;"> Public dadapter As New MySqlDataAdapter</span><br />
<span style="color: yellow;"> Public datardr As MySqlDataReader</span><br />
<span style="color: yellow;"> Public strSql As String</span><br />
<span style="color: yellow;"> Dim serv As String = "Server=localhost;"</span><br />
<span style="color: yellow;"> Dim dbase As String = "Database=toko;"</span><br />
<span style="color: yellow;"> Dim uid As String = "uid=root;"</span><br />
<span style="color: yellow;"> Dim pwd As String = "pwd=;"</span><br />
<span style="color: yellow;"> Dim ConString = serv & dbase & uid & pwd</span><br />
<span style="color: yellow;"> Public db As New MySqlConnection(ConString)</span><br />
<span style="color: yellow;"> Public Sub konek()</span><br />
<span style="color: yellow;"> Try</span><br />
<span style="color: yellow;"> tutupDB()</span><br />
<span style="color: yellow;"> db.Open()</span><br />
<span style="color: yellow;"> MsgBox("Koneksi DataBase berhasil dilakukan")</span><br />
<span style="color: yellow;"> Catch ex As MySqlException</span><br />
<span style="color: yellow;"> MsgBox(ex.Message)</span><br />
<span style="color: yellow;"> MsgBox("Koneksi tidak berhasil dilakukan")</span><br />
<span style="color: yellow;"> End Try</span><br />
<span style="color: yellow;"> End Sub</span><br />
<span style="color: yellow;"> Public Sub tutupDB()</span><br />
<span style="color: yellow;"> If db.State = ConnectionState.Open Then</span><br />
<span style="color: yellow;"> db.Close()</span><br />
<span style="color: yellow;"> End If</span><br />
<span style="color: yellow;"> End Sub</span><br />
<span style="color: yellow;"><br /></span>
<span style="color: yellow;">End Module</span><br />
<br />
<br />
<br />
Kemudian buat Form2 sebagai Form Utama ( Menu Utama )<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4mgdAtDYcxwTbLmCUBroyLyCX96M0jebMZDScQjH7v4JhfOEuJ6CmGAf4nCsWLbDQNmuHSUGXboI5S-q-f18DCmbDhL2z4_zzqln-bOQt7C_L3RA00-yELQ7y4MHGCj48_Conop6PzXU/s1600/login11.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="410" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh4mgdAtDYcxwTbLmCUBroyLyCX96M0jebMZDScQjH7v4JhfOEuJ6CmGAf4nCsWLbDQNmuHSUGXboI5S-q-f18DCmbDhL2z4_zzqln-bOQt7C_L3RA00-yELQ7y4MHGCj48_Conop6PzXU/s640/login11.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijgvuUn14qlBPfU58xhVQ4kkv9HFx1v3gfVI2xV6u_b_40lJMNsEgPhy4XGyKFJWgeufRSb82cKfaIWQiHGaleiXcY9Pr8tPt465gXgv7heb2PGEP-tIJjbnSTtmLJHfo9YsRHxGje558/s1600/login12.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="418" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEijgvuUn14qlBPfU58xhVQ4kkv9HFx1v3gfVI2xV6u_b_40lJMNsEgPhy4XGyKFJWgeufRSb82cKfaIWQiHGaleiXcY9Pr8tPt465gXgv7heb2PGEP-tIJjbnSTtmLJHfo9YsRHxGje558/s640/login12.JPG" width="640" /></a></div>
<br />
Kemudian Coding untuk Form1 ( Login )<br />
<br />
<span style="color: lime;"><span style="background-color: black;">Imports MySql.Data.MySqlClient</span></span><br />
<span style="color: lime;"><span style="background-color: black;">Public Class Form1</span></span><br />
<span style="color: yellow;"> Private Sub TampilData()</span><br />
<span style="color: yellow;"> Dim da As New MySqlDataAdapter("select USERNAME,PASSWORD,HAKAKSES from tbl_login", db)</span><br />
<span style="color: yellow;"> 'Dim da As New MySqlDataAdapter("select * from tbl_login", db)</span><br />
<span style="color: yellow;"><br /></span>
<span style="color: yellow;"> Dim dt As New DataTable</span><br />
<span style="color: yellow;"> da.Fill(dt)</span><br />
<span style="color: yellow;"> dgv.DataSource = dt</span><br />
<span style="color: yellow;"> </span><br />
<span style="color: yellow;"><br /></span>
<span style="color: yellow;"> 'Dim query As String = "SELECT * FROM CUSTOMER"</span><br />
<span style="color: yellow;"> ' Dim da As New MySqlDataAdapter(query, db)</span><br />
<span style="color: yellow;"> ' Dim ds As New DataSet()</span><br />
<span style="color: yellow;"><br /></span>
<span style="color: yellow;"> 'If da.Fill(ds) Then</span><br />
<span style="color: yellow;"> 'dgv.DataSource = ds.Tables(0)</span><br />
<span style="color: yellow;"> 'End If</span><br />
<span style="color: yellow;"><br /></span>
<span style="color: yellow;"><br /></span>
<span style="color: yellow;"> End Sub</span><br />
<span style="color: orange;"> Private Sub CekData()</span><br />
<span style="color: orange;"> <span style="color: white;"> konek()</span></span><br />
<span style="color: white;"> Try</span><br />
<span style="color: white;">
strSql = "SELECT * FROM tbl_login where trim(username) ='" &
Trim(txtuser.Text) & "' AND Password='" & Trim(txtpass.Text)
& "'"</span><br />
<span style="color: white;"> cmd.CommandText = strSql</span><br />
<span style="color: white;"> cmd.Connection = db</span><br />
<span style="color: white;"> dadapter.SelectCommand = cmd</span><br />
<span style="color: white;"><br />
datardr = cmd.ExecuteReader</span><br />
<span style="color: white;"> If datardr.HasRows Then</span><br />
<span style="color: white;"> datardr.Read()</span><br />
<span style="color: white;">
' MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Benar",
"Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)</span><br />
<span style="color: white;"> cbakses.Text = datardr("hakakses")</span><br />
<span style="color: white;"><br />
If cbakses.Text = "admin" Then</span><br />
<span style="color: white;"> 'Jika Hak akses adalah admin</span><br />
<span style="color: white;"> Form2.Show() 'Tampilkan Form2</span><br />
<span style="color: white;"> Me.Hide()</span><br />
<span style="color: white;"> Else 'Jika Hak Akses bukan admin (user)</span><br />
<span style="color: white;"> Form2.DataMahasiswaToolStripMenuItem.Enabled = False 'disable submenu data mahasiswa di form 2</span><br />
<span style="color: white;"> Form2.DataDosenToolStripMenuItem.Enabled = False 'disable submenu data dosen di form 2</span><br />
<span style="color: white;"> Form2.Show() 'Tampilkan Form2</span><br />
<span style="color: white;"> Me.Hide()</span><br />
<span style="color: white;"> End If</span><br />
<span style="color: white;"><br /></span>
<span style="color: white;">
Else</span><br />
<span style="color: white;"> 'Munculkan messagebox pesan salah</span><br />
<span style="color: white;">
MessageBox.Show("Kombinasi Username ,Password dan Hak Akses Salah",
"Konfirmasi", MessageBoxButtons.OK, MessageBoxIcon.Error)</span><br />
<span style="color: white;"> txtuser.Focus()</span><br />
<span style="color: white;"> End If</span><br />
<span style="color: white;"><br />
' datardr.Close()</span><br />
<span style="color: white;"> ' cmd.Dispose()</span><br />
<span style="color: white;"> ' db.Close()</span><br />
<span style="color: white;"> Catch ex As Exception</span><br />
<span style="color: white;"><br />
End Try</span><br />
<span style="color: orange;"><br /></span>
<span style="color: orange;"><br /></span>
<span style="color: orange;"> End Sub</span><br />
<br />
<span style="color: yellow;"> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click</span><br />
<span style="color: yellow;"> <span style="color: white;"> konek()</span></span><br />
<span style="color: yellow;"> End Sub</span><br />
<br />
<span style="color: orange;"> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load</span><br />
<span style="color: orange;"> <span style="color: white;">TampilData()</span></span><br />
<span style="color: orange;"> End Sub</span><br />
<br />
<span style="color: yellow;"><span style="background-color: black;"> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click</span></span><br />
<span style="color: yellow;"><span style="background-color: black;"> <span style="color: white;"> <span style="background-color: black;"> CekData()</span></span></span></span><br />
<span style="color: lime;"><span style="background-color: black;"> <span style="color: yellow;"> End Sub</span></span></span><br />
<span style="color: lime;"><span style="background-color: black;">End Class</span></span><br />
<br />
Kemudian Jalankan (Debug)<br />
Kita coba pakai nama abu sebagai user <br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh64pyjuKY5njT2f1ZhYqM3kmgGvPePEI9xxv27kdwgkuH_etBCRVu9y-oDFw1BRnlEnL9I9aWgY7kdOEbBqxtWtijPaEVb96E0ZpSNPc-qEcUzhQ5ghPktpjJE81iLKsWRYcwxdEQ_S5c/s1600/login4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="406" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh64pyjuKY5njT2f1ZhYqM3kmgGvPePEI9xxv27kdwgkuH_etBCRVu9y-oDFw1BRnlEnL9I9aWgY7kdOEbBqxtWtijPaEVb96E0ZpSNPc-qEcUzhQ5ghPktpjJE81iLKsWRYcwxdEQ_S5c/s640/login4.JPG" width="640" /></a></div>
<br />
Lalu klik OK hasilnya<br />
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvuH6q2Qy1YHamYP0QeCSY_S55orPw5Csnyou72sDgl5XaqbrWwLxWznNTnn_fOK3Y4xgihRo8odHTYcOy78p-MVQSQma3wvqVYm2YeXKvw6SppxWSbM483Pehb7EfpLZ8bZisMMYEENI/s1600/login5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="422" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjvuH6q2Qy1YHamYP0QeCSY_S55orPw5Csnyou72sDgl5XaqbrWwLxWznNTnn_fOK3Y4xgihRo8odHTYcOy78p-MVQSQma3wvqVYm2YeXKvw6SppxWSbM483Pehb7EfpLZ8bZisMMYEENI/s640/login5.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCFMMzCyhPbvK4e4PRMCWXwuH609cmWEgAnf5Bp-ac-otbc3G5nupwLIfRms2BoWO_YS59BnOw_4YTDoUjPHkDrg8pxdAM0geW5MZyLWiP22hh1tM1bwFw0tC3KI2mTbU6SMBSj5fPxJM/s1600/login6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="422" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhCFMMzCyhPbvK4e4PRMCWXwuH609cmWEgAnf5Bp-ac-otbc3G5nupwLIfRms2BoWO_YS59BnOw_4YTDoUjPHkDrg8pxdAM0geW5MZyLWiP22hh1tM1bwFw0tC3KI2mTbU6SMBSj5fPxJM/s640/login6.JPG" width="640" /></a></div>
<br />
Kita input dengan admin sebagai admin<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9O75CHMKPiMXPn4t7tImAa9IKSZ4lOYJliycCw7JMcdyGQyHt1Zlz0laRjZ6jLWGIElo_prerxYnpwq66pZJq9ASjzMprNRmmBkVzf3ioiPBhqekzmRG1daaXGT6-Szv1izAweYI9Ayg/s1600/login7.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="410" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi9O75CHMKPiMXPn4t7tImAa9IKSZ4lOYJliycCw7JMcdyGQyHt1Zlz0laRjZ6jLWGIElo_prerxYnpwq66pZJq9ASjzMprNRmmBkVzf3ioiPBhqekzmRG1daaXGT6-Szv1izAweYI9Ayg/s640/login7.JPG" width="640" /></a></div>
Hasilnya :<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSuKxh0iMDoP9xwKWIwScoARvNnRcRB9P-sg_nJP-2sB_vSOy9FdznzMnxC189t6aZD0dmJ1iaYiXfH-uKrPcevYutsTL84CEngfLMULQrJ8PDhLEAg3kewpVIizeMPL5ErRwZDgZzLsk/s1600/login8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="420" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiSuKxh0iMDoP9xwKWIwScoARvNnRcRB9P-sg_nJP-2sB_vSOy9FdznzMnxC189t6aZD0dmJ1iaYiXfH-uKrPcevYutsTL84CEngfLMULQrJ8PDhLEAg3kewpVIizeMPL5ErRwZDgZzLsk/s640/login8.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9R5VYhd1WY7cl0wCa0MIWq1ZFEjdDoztSj6SvUoBeWITnk3sF2rQvuq2G0r6b34H_HAjBBhlFkM6JVl8zjCMtkn2Di8EyPxLIttSOekB6uw0vIg8edbCLRmUF4TCIeF9YRNt1poa2yhs/s1600/login9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="420" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9R5VYhd1WY7cl0wCa0MIWq1ZFEjdDoztSj6SvUoBeWITnk3sF2rQvuq2G0r6b34H_HAjBBhlFkM6JVl8zjCMtkn2Di8EyPxLIttSOekB6uw0vIg8edbCLRmUF4TCIeF9YRNt1poa2yhs/s640/login9.JPG" width="640" /></a></div>
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-85114302771208378662012-10-15T03:12:00.000-07:002012-10-15T03:14:48.731-07:00VALIDASI ANGKA<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGZkkJ2t1fFPR-bT8hC-IkBmA2jsntGU9Zoiq6gLpNT_EK_uraNQ6idtYwFjirPAMKkkAYNua5CXO2xJ8zc5L6UqMgBdnTov2bPkYrVPpsg8A5LOsGGBDB0OTUE02pZbUA7u6VZff8JgI/s1600/VB08.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="530" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiGZkkJ2t1fFPR-bT8hC-IkBmA2jsntGU9Zoiq6gLpNT_EK_uraNQ6idtYwFjirPAMKkkAYNua5CXO2xJ8zc5L6UqMgBdnTov2bPkYrVPpsg8A5LOsGGBDB0OTUE02pZbUA7u6VZff8JgI/s640/VB08.JPG" width="640" /></a></div>
<br />
Kalau kita Perhatikan Format Di Atas ada beberapa Textbox tentang input Data<br />
harus di isi dngan Bilangan Numerik jadi tidak boleh Charakter atau spasi.<br />
<br />
<i><b>Untuk Validasi ini di Textbox tersebut kita buat seperti di bawah ini :</b></i><br />
<br />
Private Sub <b>txtqty_KeyPress</b>(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles <b>txtqty.KeyPress</b><br />
If e.KeyChar = Chr(13) Then HitungDataScreen() : txtpdiskont.Focus()<br />
If <b>Not </b>((<i><b>e.KeyChar >= "0" And e.KeyChar <= "9"</b></i>) Or <b>e.KeyChar = vbBack)</b> Then e.Handled = True<br />
End Sub<br />
<br />
<br />
Textbox di Jumlah Barang aq kasih nama <b>txtqty </b>jadi cara buatnya seperti atas.<br />
Jadi kalau ga di Isi 0 sampai 9 tidak mau.<br />
<br />
Private Sub <b>HitungDataScreen()</b><br /> ' Rumus perhitungan Barang<br /> txtkotor.Text = txtqty.Text * txthsat.Text<br /> txtdiskont.Text = txtpdiskont.Text / 100 * txtkotor.Text<br /> txtsubtotal.Text = txtkotor.Text - txtdiskont.Text<br /> txtidisk.Text = txtpidisk.Text / 100 * txtsubtotal.Text<br /> txtnet.Text = txtsubtotal.Text - txtidisk.Text<br /><br /> End Sub<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-18928366076590982142012-10-14T03:41:00.002-07:002012-10-14T04:06:59.199-07:00PENCARIAN DATA TABEL<div dir="ltr" style="text-align: left;" trbidi="on">
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjz8Cra72UMPD_LrvzP1uOn-k30-b81L0QT_0QQSr8Fd0CqEp4NBWMkljPZVbxGiZO1emTAVeHZ8LRamshM_SlDNd2QjN3q7_oQkjeMmzdTLwDIDgLrtBJZ-VsPou-4hYQSmTJu3rLxYMU/s1600/VB06.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="462" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjz8Cra72UMPD_LrvzP1uOn-k30-b81L0QT_0QQSr8Fd0CqEp4NBWMkljPZVbxGiZO1emTAVeHZ8LRamshM_SlDNd2QjN3q7_oQkjeMmzdTLwDIDgLrtBJZ-VsPou-4hYQSmTJu3rLxYMU/s640/VB06.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<br /></div>
<span style="font-size: large;">CARA MEMBUATNYA :</span><br />
<br />
Setelah <b>Form1</b> kita buat maka untuk membuat <b>Form2</b> Yaitu :<br />
<br />
<b>Klik kanan di Pojok Kanan Atas Klik Add > Windows Form :</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEdBBOCw7KWbErm7gl0AMAF6YfPg1j1iusEQuLIq5-ueglLfKHjf02RE590R2KdHNVcKgj3XRtv4fT0TipkjnhjdpXODN-EGvBWHOCm1gs_eJ2_LvwPcjwfvbEul4SrD3AudCAfqllxyU/s1600/vb04.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="408" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEdBBOCw7KWbErm7gl0AMAF6YfPg1j1iusEQuLIq5-ueglLfKHjf02RE590R2KdHNVcKgj3XRtv4fT0TipkjnhjdpXODN-EGvBWHOCm1gs_eJ2_LvwPcjwfvbEul4SrD3AudCAfqllxyU/s640/vb04.JPG" width="640" /></a></div>
<br />
<b>Kemudian kita atur design nya :</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrBTTQ7fBwVjOib6pieVEc_LwTrRLc0RGYnjA9myfCcGv0z4tZj93liykM-ZI6SRlajwLLAZ_dDmM1FNpSiBeSyd7FKIwFSslCDi1u20sxxSlsdKHz48I6VIkox2gNTwRSTYQdKTtyytU/s1600/vb07.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgrBTTQ7fBwVjOib6pieVEc_LwTrRLc0RGYnjA9myfCcGv0z4tZj93liykM-ZI6SRlajwLLAZ_dDmM1FNpSiBeSyd7FKIwFSslCDi1u20sxxSlsdKHz48I6VIkox2gNTwRSTYQdKTtyytU/s640/vb07.JPG" width="640" /></a></div>
<br />
Karena Tombol Button Pencarian nya ada di Form1 maka cara panggil<br />
<b>Form2 </b>( Tabel Customer ) :<br />
<br />
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> <span style="font-size: large;">form2.Show()</span><br /> End Sub<br />
<br />
Kita beri nama TextBox nya misal<b> txtcarib</b><br />
DataGridViewnya kita beri nama <b>dgvb</b><br />
Ini Coding nya<br />
Imports System.Data<br />
Imports MySql.Data.MySqlClient<br />
Public Class form2<br />
Private Sub TampilDataG()<br />
modul_oc.konek()<br />
<br />
Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer", db)<br />
<br />
Dim dt As New DataTable<br />
da.Fill(dt)<br />
<b>dgvb</b>.DataSource = dt<br />
<br />
End Sub<br />
<br />
Private Sub CekCustb()<br />
txtcarib.Text = Trim(UCase(txtcarib.Text))<br />
modul_oc.konek()<br />
Try<br />
strSql = "SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & <b>txtcarib</b>.Text & "%'"<br />
cmd.CommandText = strSql<br />
cmd.Connection = db<br />
dadapter.SelectCommand = cmd<br />
<br />
datardr = cmd.ExecuteReader<br />
datardr.Read()<br />
If datardr.HasRows Then<br />
' datardr.Read()<br />
'Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & <b>txtcarib.Text</b> & "%'", db)<br />
<br />
Dim query As String = "SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'"<br />
Dim da As New MySqlDataAdapter(query, db)<br />
Dim ds As New DataSet()<br />
<br />
If da.Fill(ds, "ketemu") Then<br />
<b>dgvb</b>.DataSource = ds.Tables("ketemu")<br />
<b>dgvb</b>.ReadOnly = True<br />
End If<br />
<br />
Else<br />
MsgBox("Data Tables Customer Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br />
<br />
<br />
End If<br />
' db.Close()<br />
Catch ex As Exception<br />
<br />
End Try<br />
<br />
End Sub<br />
Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />
TampilDataG()<br />
End Sub<br />
<br />
Private Sub <b>dgvb</b>_CellClick(ByVal sender As Object, _<br />
ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles <b>dgvb</b>.CellClick<br />
With <b>dgvb</b><br />
Form1.txtkdcust.Text = .Item(0, .CurrentRow.Index).Value<br />
Form1.txtnama.Text = .Item(1, .CurrentRow.Index).Value<br />
Form1.txtalamat.Text = .Item(3, .CurrentRow.Index).Value<br />
<br />
End With<br />
End Sub<br />
<br />
' <span style="font-size: large;">Jika Data yg ada di Grid di Klik 2 X maka textbox yang ada di Form1 akan terisi Data yg terpilih</span><br />
<br />
Private Sub <b>dgvb</b>_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles <b>dgvb</b>.DoubleClick<br />
With <b>dgvb</b><br />
<i><b>Form1</b></i><b>.txtkdcust.Text </b>= .Item(0, .CurrentRow.Index).Value<br />
<i><b>Form1.</b></i><b>txtnama.Text </b>= .Item(1, .CurrentRow.Index).Value<br />
<i><b>Form1</b></i><b>.txtalamat.Text </b>= .Item(3, .CurrentRow.Index).Value<br />
Me.Close()<br />
Form1.txtnomor.Focus()<br />
<br />
End With<br />
End Sub<br />
<br />
<br />
<br />
Private Sub TampilKUST()<br />
modul_oc.konek()<br />
Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'", db)<br />
Dim dt As New DataTable<br />
da.Fill(dt)<br />
dgvb.DataSource = dt<br />
dgvb.Refresh()<br />
End Sub<br />
<br />
<b><span style="font-size: large;">' <span style="font-size: small;">Dengan Memilih Pencarian di <span style="font-size: large;">TextChanged </span>maka data yg kita ketik</span></span></b><br />
<b><span style="font-size: large;"><span style="font-size: small;"> langsung cari di Grid</span></span></b><br />
<span style="font-size: small;"><b>' Misal kita ketik <span style="font-size: large;">w</span> maka data yg ada <span style="font-size: large;">w</span> nya akan muncul / di tampilkan semua.</b></span><br />
<br />
Private Sub <b>txtcarib_TextChanged</b>(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcarib.TextChanged<br />
TampilKUST()<br />
End Sub<br />
End Class<br />
<br />
<br />
<br />
<br />
<br />
<br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-48616649125609560582012-10-14T02:48:00.001-07:002012-10-14T03:05:38.579-07:00TRANSAKSI PENJUALAN - OC<div dir="ltr" style="text-align: left;" trbidi="on">
<b><span style="font-size: large;">ORDER CONFIRMATION</span></b><br />
<br />
<span style="font-size: large;"><span style="font-size: small;"><b>S</b>ebelum Transaksi Penjualan biasanya Customer pesan dulu / Order Barang</span></span><br />
<span style="font-size: large;"><span style="font-size: small;">Order Barang kita Input dulu untuk di konfirmasikan benar tidak nya</span></span><br />
<span style="font-size: large;"><span style="font-size: small;">Ini yang disebut Order Confirmation (OC) </span></span><br />
<span style="font-size: large;"><span style="font-size: small;">Setelah di Confirmasikan kebenarnya dan dapat ACC atasannya baru di Posting</span></span><br />
<span style="font-size: large;"><span style="font-size: small;">Hasil Posting sebagai Faktur Penjualan / Invoice .</span></span><br />
<br />
<b><span style="font-size: large;"><span style="font-size: small;">Sekarang kita buat dulu Program Order Confirmasi , ini Outputnya :</span></span></b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4VvO6l9Tagv70YAEt8NckSZDZQTQpRnx1egWSq_GRSyX-5qsRDMP86itJA1p8erQs4vrKSqQ622im8Uo5IGNbmaynv9UHsJMn03Z9yq1nXkS0K8PBEhytc8qnflbj7kkGFuIVWSpsL8Q/s1600/vb01.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="408" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj4VvO6l9Tagv70YAEt8NckSZDZQTQpRnx1egWSq_GRSyX-5qsRDMP86itJA1p8erQs4vrKSqQ622im8Uo5IGNbmaynv9UHsJMn03Z9yq1nXkS0K8PBEhytc8qnflbj7kkGFuIVWSpsL8Q/s640/vb01.JPG" width="640" /></a></div>
<br />
<span style="font-size: large;"><span style="font-size: small;"> Yang perlu kita siapkan , Kebetulan kita menggunakan <b>VB-2010</b> database <b>MYSQL (XAMPP)</b></span></span><br />
<br />
<span style="font-size: large;"><span style="font-size: small;"><b>1. Kita Rancang Formnya </b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>2. Kita buat Modulnya sebagai koneksi VB2010 ke MYSQL</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b> di sebelah kanan atas Klik kanan Klik ADD Module</b></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBcrs-Xalmmop3MAOE4pVY5jIsyX5Mgua2eMfyIa1LqRv4KgC1xYn503xef9sXNDwaTkT3g386VrL0l-14l-4XhWv1FS761ByCaBFb4_1wo_cCWRZr3A2s3tAshcQciSXrlEw0HaftJGI/s1600/module.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiBcrs-Xalmmop3MAOE4pVY5jIsyX5Mgua2eMfyIa1LqRv4KgC1xYn503xef9sXNDwaTkT3g386VrL0l-14l-4XhWv1FS761ByCaBFb4_1wo_cCWRZr3A2s3tAshcQciSXrlEw0HaftJGI/s640/module.JPG" width="640" /></a></div>
<br />
<span style="font-size: large;"><span style="font-size: small;"><b>3. Kita buat koneksinya melalui connection MYSQL versi 6.5.4</b></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9lK4owLexRwSCey-K5eGqwkCe91EvJeOGN6gRUFf8IiS45BXM7HcxZcPAownrgIwXZ-V8YY-sxtlqsztAgyDKOk8rurJfs3mxeGAOMGbA0UoyzBTzUVMnClKamLx55qQfQMK8nn7FWNo/s1600/conect.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="486" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh9lK4owLexRwSCey-K5eGqwkCe91EvJeOGN6gRUFf8IiS45BXM7HcxZcPAownrgIwXZ-V8YY-sxtlqsztAgyDKOk8rurJfs3mxeGAOMGbA0UoyzBTzUVMnClKamLx55qQfQMK8nn7FWNo/s640/conect.JPG" width="640" /></a></div>
<br />
<span style="font-size: large;"><span style="font-size: small;"><b> Di Module kita buat Codingnya :</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b><br />Imports MySql.Data.MySqlClient<br />Imports System.Data<br />Module modul_oc<br /> Public cmd As New MySqlCommand<br /> Public dadapter As New MySqlDataAdapter<br /> Public datardr As MySqlDataReader<br /> Public strSql As String<br /> Dim serv As String = "Server=192.168.1.8;"<br /> Dim dbase As String = "Database=toko;"<br /> Dim uid As String = "uid=root;"<br /> Dim pwd As String = "pwd=root;"<br /> Dim ConString = serv & dbase & uid & pwd<br /> Public db As New MySqlConnection(ConString)<br /> Public Sub konek()<br /> Try<br /> tutupDB()<br /> db.Open()<br /> ' MsgBox("Koneksi DataBase berhasil dilakukan")<br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> End Try<br /> End Sub<br /> Public Sub tutupDB()<br /> If db.State = ConnectionState.Open Then<br /> db.Close()<br /> End If<br /> End Sub<br /><br />End Module</b></span></span><br />
<br />
<span style="font-size: large;"><span style="font-size: small;"><b></b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b></b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b></b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Kita buatkan layar Window tambahan untuk pencarian Tabel Customer :</b></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisg1e9SPMLBykuzme-Ddy30CjnghtsE2W9HdhBOHs9MsRCmT6cCo9WsjkCqpebJdhBGjEvDOWlQciSOITHKvXT6nSa7cKp6gIUSafdmwFWrBPPjtQj2EoGGAbR3pqWWIQ1wRwWooGV1lg/s1600/vb02.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="404" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEisg1e9SPMLBykuzme-Ddy30CjnghtsE2W9HdhBOHs9MsRCmT6cCo9WsjkCqpebJdhBGjEvDOWlQciSOITHKvXT6nSa7cKp6gIUSafdmwFWrBPPjtQj2EoGGAbR3pqWWIQ1wRwWooGV1lg/s640/vb02.JPG" width="640" /></a></div>
<span style="font-size: large;"><span style="font-size: small;"><b><br />Ini Codingnya :</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Imports System.Data<br />Imports MySql.Data.MySqlClient<br />Public Class form2<br /> Private Sub TampilDataG()<br /> modul_oc.konek()<br /><br /> Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer", db)<br /><br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgvb.DataSource = dt<br /> ' Dim da As New MySqlDataAdapter("select TORDER,TGLORDER,CUSTOMERCODE,NOMOR,NAMRANG,POL,KDRANG,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih from sdeler", db)<br /><br /> 'Dim query As String = "SELECT * FROM sdeler"<br /> ' Dim da As New MySqlDataAdapter(query, db)<br /> ' Dim ds As New DataSet()<br /><br /> ' If da.Fill(ds) Then<br /> 'dgv.DataSource = ds.Tables(1)<br /> ' End If<br /><br /><br /> End Sub<br /><br /> Private Sub CekCustb()<br /> txtcarib.Text = Trim(UCase(txtcarib.Text))<br /> modul_oc.konek()<br /> Try<br /> strSql = "SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> datardr.Read()<br /> If datardr.HasRows Then<br /> ' datardr.Read()<br /> 'Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'", db)<br /><br /> Dim query As String = "SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'"<br /> Dim da As New MySqlDataAdapter(query, db)<br /> Dim ds As New DataSet()<br /><br /> If da.Fill(ds, "ketemu") Then<br /> dgvb.DataSource = ds.Tables("ketemu")<br /> dgvb.ReadOnly = True<br /> End If<br /><br /> Else<br /> MsgBox("Data Tables Customer Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /><br /><br /> End If<br /> ' db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br /> Private Sub form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> TampilDataG()<br /> End Sub<br /> Private Sub dgvb_CellClick(ByVal sender As Object, _<br /> ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvb.CellClick<br /> With dgvb<br /> Form1.txtkdcust.Text = .Item(0, .CurrentRow.Index).Value<br /> ' dtpjual.Value = .Item(1, .CurrentRow.Index).Value<br /> Form1.txtnama.Text = .Item(1, .CurrentRow.Index).Value<br /> ' Form1.dtpexpired.Text = .Item(3, .CurrentRow.Index).Value<br /> Form1.txtalamat.Text = .Item(3, .CurrentRow.Index).Value<br /> <br /> ' CekCust()<br /> End With<br /> End Sub<br /> Private Sub dgvb_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvb.DoubleClick<br /> With dgvb<br /> Form1.txtkdcust.Text = .Item(0, .CurrentRow.Index).Value<br /> ' dtpjual.Value = .Item(1, .CurrentRow.Index).Value<br /> Form1.txtnama.Text = .Item(1, .CurrentRow.Index).Value<br /> ' Form1.dtpexpired.Text = .Item(3, .CurrentRow.Index).Value<br /> Form1.txtalamat.Text = .Item(3, .CurrentRow.Index).Value<br /> Me.Close()<br /> Form1.txtnomor.Focus()<br /><br /> End With<br /> End Sub<br /><br /><br /><br /> Private Sub TampilKUST()<br /> modul_oc.konek()<br /> Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'", db)<br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgvb.DataSource = dt<br /> dgvb.Refresh()<br /> End Sub<br /> 'Private Sub txtcarib_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcarib.KeyPress<br /> ' If e.KeyChar = Chr(13) Then<br /> ' TampilKUST()<br /> ' End If<br /> 'End Sub<br /><br /> Private Sub txtcarib_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcarib.TextChanged<br /> TampilKUST()<br /> End Sub<br />End Class</b></span></span><br />
<br />
<span style="font-size: large;"><span style="font-size: small;"><b></b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Kita buatkan Tabel Barang sebagai Window tambahan ;</b></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzgf8MaDIFiZh3AZj7pNo7eyh3k2cJtVvZMzU11XQBKVb7YOpV-oQLf5uvqXGMqwU70SCgDgNbAHLaf4DLK4PRYK7uo9YLCbtWv0kdtIptALWbJ9TIjNeTow3yQvD9saH0NF-uEl9tCAc/s1600/vb03.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="430" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgzgf8MaDIFiZh3AZj7pNo7eyh3k2cJtVvZMzU11XQBKVb7YOpV-oQLf5uvqXGMqwU70SCgDgNbAHLaf4DLK4PRYK7uo9YLCbtWv0kdtIptALWbJ9TIjNeTow3yQvD9saH0NF-uEl9tCAc/s640/vb03.JPG" width="640" /></a></div>
<span style="font-size: large;"><span style="font-size: small;"><b><br />Cara Membuat Windows tambahan </b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Klik kanan di Pojok Kanan atas pilih Add > Windows Form </b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>lalu beri nama sesuka anda :</b></span></span><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjiG67AVvlpDgsCTX_7Bb2OkMgbnwNgnQKOfkFNGK3iROPb7vg5Wg7K3QrOTqxLuNAOFReyUMMD6sBFNZMnxkojT5VIhDL4WVG8NZrZMh0uFE3G7J67bf461J4x-30xPnzn0ZOTlq_UOsA/s1600/vb04.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="408" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjiG67AVvlpDgsCTX_7Bb2OkMgbnwNgnQKOfkFNGK3iROPb7vg5Wg7K3QrOTqxLuNAOFReyUMMD6sBFNZMnxkojT5VIhDL4WVG8NZrZMh0uFE3G7J67bf461J4x-30xPnzn0ZOTlq_UOsA/s640/vb04.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8o-E6ISXt8HDZeEzi9pVZnymxali_JeNPiBm7YcAifcvJkdp0PtkdrQ1w1yh_Em1bA-gkw3KeAmamVtfsqToyXf36i03p476ipmLr3oZwHnv7enuqazJuJ0VnYEjrQKTJmOWtkzC4oqw/s1600/vb05.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg8o-E6ISXt8HDZeEzi9pVZnymxali_JeNPiBm7YcAifcvJkdp0PtkdrQ1w1yh_Em1bA-gkw3KeAmamVtfsqToyXf36i03p476ipmLr3oZwHnv7enuqazJuJ0VnYEjrQKTJmOWtkzC4oqw/s640/vb05.JPG" width="640" /></a></div>
<span style="font-size: large;"><span style="font-size: small;"><b><br />kita buat textbox nya dan DataGridView nya</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>misal textbox nya kita beri Name = txtcaric</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>DataGridView nya kita beri name = dgvc</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b><br /></b></span></span>
<span style="font-size: large;"><span style="font-size: small;"><b>Baru kita buat Kodingnya :</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b><br />Imports System.Data<br />Imports MySql.Data.MySqlClient<br />Public Class lyr_brg<br /> Private Sub TampilDataG()<br /> modul_oc.konek()<br /><br /> Dim da As New MySqlDataAdapter("SELECT kdrang,namrang,jumlah,hsat fROM tabrang", db)<br /><br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgvc.DataSource = dt<br /> dgvc.GridColor = Color.Red<br /> dgvc.CellBorderStyle = DataGridViewCellBorderStyle.None<br /> dgvc.BackgroundColor = Color.LightGray<br /><br /> dgvc.DefaultCellStyle.SelectionBackColor = Color.Red<br /> dgvc.DefaultCellStyle.SelectionForeColor = Color.Yellow<br /><br /> dgvc.DefaultCellStyle.WrapMode = DataGridViewTriState.[True]<br /><br /> dgvc.SelectionMode = DataGridViewSelectionMode.FullRowSelect<br /> dgvc.AllowUserToResizeColumns = False<br /><br /> dgvc.RowsDefaultCellStyle.BackColor = Color.Bisque<br /> dgvc.AlternatingRowsDefaultCellStyle.BackColor = Color.Beige<br /><br /><br /><br /> End Sub<br /><br /> Private Sub CekCustb()<br /> txtcaric.Text = Trim(UCase(txtcaric.Text))<br /> modul_oc.konek()<br /> Try<br /> strSql = "SELECT kdrang,namrang,jumlah,hsat fROM tabrang WHERE namrang like '%" & txtcaric.Text & "%'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> datardr.Read()<br /> If datardr.HasRows Then<br /> ' datardr.Read()<br /> 'Dim da As New MySqlDataAdapter("SELECT customercode,customername,enddate,alamat,telp FROM customer WHERE customername like '%" & txtcarib.Text & "%'", db)<br /><br /> Dim query As String = "SELECT kdrang,namrang,jumlah,hsat fROM tabrang WHERE namrang like '%" & txtcaric.Text & "%'"<br /> Dim da As New MySqlDataAdapter(query, db)<br /> Dim ds As New DataSet()<br /><br /> If da.Fill(ds, "ketemu") Then<br /> dgvc.DataSource = ds.Tables("ketemu")<br /> dgvc.ReadOnly = True<br /> End If<br /><br /> Else<br /> MsgBox("Data Tables Customer Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /><br /><br /> End If<br /> ' db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br /> Private Sub lyr_brg_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> TampilDataG()<br /> End Sub<br /> Private Sub dgvc_CellClick(ByVal sender As Object, _<br /> ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgvc.CellClick<br /> With dgvc<br /> Form1.txtkdrang.Text = .Item(0, .CurrentRow.Index).Value<br /> ' dtpjual.Value = .Item(1, .CurrentRow.Index).Value<br /> Form1.txtnamrang.Text = .Item(1, .CurrentRow.Index).Value<br /> ' Form1.dtpexpired.Text = .Item(3, .CurrentRow.Index).Value<br /> Form1.txthsat.Text = .Item(3, .CurrentRow.Index).Value<br /><br /> ' CekCust()<br /> End With<br /> End Sub<br /> Private Sub dgvc_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles dgvc.DoubleClick<br /> With dgvc<br /> Form1.txtkdrang.Text = .Item(0, .CurrentRow.Index).Value<br /> ' dtpjual.Value = .Item(1, .CurrentRow.Index).Value<br /> Form1.txtnamrang.Text = .Item(1, .CurrentRow.Index).Value<br /> ' Form1.dtpexpired.Text = .Item(3, .CurrentRow.Index).Value<br /> Form1.txthsat.Text = .Item(3, .CurrentRow.Index).Value<br /><br /> Me.Close()<br /> Form1.txtqty.Focus()<br /><br /> End With<br /> End Sub<br /><br /><br /><br /> Private Sub TampilRang()<br /> modul_oc.konek()<br /> Dim da As New MySqlDataAdapter("SELECT kdrang,namrang,jumlah,hsat fROM tabrang WHERE namrang like '%" & txtcaric.Text & "%'", db)<br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgvc.DataSource = dt<br /> dgvc.Refresh()<br /> End Sub<br /> 'Private Sub txtcarib_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcarib.KeyPress<br /> ' If e.KeyChar = Chr(13) Then<br /> ' TampilKUST()<br /> ' End If<br /> 'End Sub<br /><br /> Private Sub txtcaric_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcaric.TextChanged<br /> TampilRang()<br /> End Sub<br />End Class</b></span></span><br />
<br />
<span style="font-size: large;"><b>Cara Membuat No.Faktur Otomatis </b></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Cari dahulu di data Mysql No.Faktur yg Terbesar </b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Ini Contoh Coding :</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b> Private Sub HitungData()<br /> konek()<br /> Try<br /> strSql = "SELECT * from hsdeler where torderb in (select max(torderb) from hsdeler)"<br /> ' Mencari no.Faktur yg terbesar di tabel HSDELER </b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b><br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> datardr.Read()</b></span></span><br />
<i><span style="font-size: large;"><span style="font-size: small;"><b>'Jika belum ada data kita buat : <span style="font-size: large;"><span style="font-size: small;"><b>Format(Now, "yyMMdd") + "0001"</b></span></span></b></span></span></i><br /><span style="font-size: large;"><span style="font-size: small;"><b> If Not datardr.HasRows Then<br /> ' Label21.Text = Format(Now, "yyMMdd") + "0001"<br /> hdata = Format(Now, "yyMMdd") + "0001"<br /> hdata = Trim(hdata)<br /> txtnofaktur.Text = "SO-C-" & Strings.Left(hdata, 6) & " - " & Strings.Right(hdata, 4)<br /> nofak = Val(hdata)<br /> Else<br /> If Microsoft.VisualBasic.Left(datardr.Item("torder"), 6) <> Format(Now, "yyMMdd") Then</b></span></span><br />
<i><span style="font-size: large;"><span style="font-size: small;"><b>' Jika Tgl beda nomor awal lagi, yaitu <span style="font-size: large;"><span style="font-size: small;"><b><span style="font-size: large;"><span style="font-size: small;"><b>Format(Now, "yyMMdd") + "0001"</b></span></span></b></span></span></b></span></span></i><br /><span style="font-size: large;"><span style="font-size: small;"><b> hdata = Format(Now, "yyMMdd") + "0001"<br /> hdata = Trim(hdata)<br /> nofak = Val(hdata)<br /> txtnofaktur.Text = "SO-C-" & Strings.Left(hdata, 6) & " - " & Strings.Right(hdata, 4)<br /> Else</b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b> <i> ' jika tgl sama maka nomor kita Tambah 1</i><br /> nofak = datardr.Item("torderb") + 1<br /> hdata = Trim(Str(nofak))<br /> txtnofaktur.Text = "SO-C-" & Strings.Left(hdata, 6) & " - " & Strings.Right(hdata, 4)<br /> End If<br /> End If<br /> db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /> End Sub<br /><br /><br /><br /><span style="font-size: large;">Dan Untuk Form1 kita buat juga Codingnya : </span></b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b>Imports MySql.Data.MySqlClient<br />Public Class Form1<br /> Public mkunci, jum_record, hdata As String<br /> Public mthauto, nofak, mnom As Integer<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> konek()<br /> End Sub<br /> Private Sub TampilData()<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> ' Dim da As New MySqlDataAdapter("select torder,tglorder,customercode,nomor, from sdeler", db)<br /> Dim da As New MySqlDataAdapter("SELECT torder,tglorder,customercode,noitem,pol,kdrang,namrang,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih FROM sdeler order by torder,noitem", db)<br /><br /> ' Dim da As New MySqlDataAdapter("select TORDER,TGLORDER,CUSTOMERCODE,NOMOR,NAMRANG,POL,KDRANG,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih from sdeler", db)<br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgv.DataSource = dt<br /> ' Dim da As New MySqlDataAdapter("select TORDER,TGLORDER,CUSTOMERCODE,NOMOR,NAMRANG,POL,KDRANG,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih from sdeler", db)<br /><br /> 'Dim query As String = "SELECT * FROM sdeler"<br /> ' Dim da As New MySqlDataAdapter(query, db)<br /> ' Dim ds As New DataSet()<br /><br /> ' If da.Fill(ds) Then<br /> 'dgv.DataSource = ds.Tables(1)<br /> ' End If<br /> db.Close()<br /><br /> End Sub<br /><br /> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> TampilData()<br /> BersihData()<br /> HitungData()<br /> db.Close()<br /> End Sub<br /> Private Sub HitungData()<br /> konek()<br /> Try<br /> strSql = "SELECT * from hsdeler where torderb in (select max(torderb) from hsdeler)"<br /><br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> datardr.Read()<br /> If Not datardr.HasRows Then<br /> ' Label21.Text = Format(Now, "yyMMdd") + "0001"<br /> hdata = Format(Now, "yyMMdd") + "0001"<br /> hdata = Trim(hdata)<br /> txtnofaktur.Text = "SO-C-" & Strings.Left(hdata, 6) & " - " & Strings.Right(hdata, 4)<br /> nofak = Val(hdata)<br /> Else<br /> If Microsoft.VisualBasic.Left(datardr.Item("torder"), 6) <> Format(Now, "yyMMdd") Then<br /> hdata = Format(Now, "yyMMdd") + "0001"<br /> hdata = Trim(hdata)<br /> nofak = Val(hdata)<br /> txtnofaktur.Text = "SO-C-" & Strings.Left(hdata, 6) & " - " & Strings.Right(hdata, 4)<br /> Else<br /> nofak = datardr.Item("torderb") + 1<br /> hdata = Trim(Str(nofak))<br /> txtnofaktur.Text = "SO-C-" & Strings.Left(hdata, 6) & " - " & Strings.Right(hdata, 4)<br /> End If<br /> End If<br /> db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /> End Sub<br /> Private Sub HitungDataScreen()<br /><br /> txtkotor.Text = txtqty.Text * txthsat.Text<br /> txtdiskont.Text = txtpdiskont.Text / 100 * txtkotor.Text<br /> txtsubtotal.Text = txtkotor.Text - txtdiskont.Text<br /> txtidisk.Text = txtpidisk.Text / 100 * txtsubtotal.Text<br /> txtnet.Text = txtsubtotal.Text - txtidisk.Text<br /><br /> End Sub<br /><br /> Private Sub BersihData()<br /> txtkdcust.Text = ""<br /> txtnama.Text = ""<br /> txtalamat.Text = ""<br /> txtnomor.Text = 0<br /> txtnopolibag.Text = 0<br /> txtkdrang.Text = ""<br /> txtnamrang.Text = ""<br /> txttipe.Text = ""<br /> txtqty.Text = 0<br /> txthsat.Text = 0<br /> txtkotor.Text = 0<br /> txtpdiskont.Text = 0<br /> txtdiskont.Text = 0<br /> txtpidisk.Text = 0<br /> txtidisk.Text = 0<br /> txtnet.Text = 0<br /> txtsubtotal.Text = 0<br /><br /> ' dtpjual.Value = Date<br /> ' dtpexpired.Value = ""<br /> End Sub<br /> Private Sub CekCust()<br /><br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /> strSql = "SELECT * FROM customer WHERE customercode ='" & txtkdcust.Text & "'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> If datardr.HasRows Then<br /> datardr.Read()<br /> txtnama.Text = datardr("customername")<br /> txtalamat.Text = datardr("alamat")<br /> dtpexpired.Value = datardr("enddate")<br /><br /> ' cbkelamin.Focus()<br /> MsgBox("Data Table Customer Ditemukan....!", MsgBoxStyle.Exclamation, "Perhatian")<br /><br /> Else<br /> MsgBox("Data Tables Customer Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /> BersihData()<br /><br /> End If<br /> ' db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /><br /><br /> End Sub<br /><br /> Private Sub dtpjual_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles dtpjual.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> txtkdcust.Focus()<br /> End If<br /> End Sub<br /> Private Sub txtkdcust_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtkdcust.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> txtkdcust.Text = UCase(txtkdcust.Text)<br /> ' If txtkdcust.Text = " " Then<br /> ' txtkdcust.Focus()<br /> 'Exit Sub<br /> 'Else<br /> CekCust()<br /> txtnomor.Focus()<br /> ' End If<br /> End If<br /> End Sub<br /> Private Sub txtpdiskont_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpdiskont.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> HitungDataScreen()<br /> txtpidisk.Focus()<br /> End If<br /> End Sub<br /><br /> Private Sub txtqty_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtqty.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> HitungDataScreen()<br /> txtpdiskont.Focus()<br /><br /> End If<br /> End Sub<br /> Private Sub txtpidisk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpidisk.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> HitungDataScreen()<br /> btnsimpan.Focus()<br /><br /> End If<br /> End Sub<br /> Private Sub txtnofaktur_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnofaktur.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> ' txtkdcust.Text = UCase(txtkdcust.Text)<br /> CekHsdeler()<br /> txtkdcust.Focus()<br /> End If<br /> End Sub<br /><br /> Private Sub CekHsdeler()<br /> txtnofaktur.Text = Trim(txtnofaktur.Text)<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /> strSql = "SELECT * FROM Hsdeler WHERE torderoto ='" & txtnofaktur.Text & "'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> If datardr.HasRows Then<br /> datardr.Read()<br /> txtkdcust.Text = datardr("customercode")<br /> CekCust()<br /> 'MsgBox("Data dari Table HSdeler Ditemukan....!", MsgBoxStyle.Exclamation, "Perhatian")<br /> Tampilsdeler()<br /> Else<br /> MsgBox("Data di Table HSdeler Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /> 'BersihData()<br /><br /> End If<br /> ' db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br /> Private Sub Tampilsdeler()<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Dim da As New MySqlDataAdapter("SELECT torderOTO,tglorder,customercode,noitem,pol,kdrang,namrang,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih,kunci FROM sdeler WHERE torderoto ='" & txtnofaktur.Text & "' Order by torder,noitem", db)<br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgv.DataSource = dt<br /> dgv.Refresh()<br /> End Sub<br /> Private Sub Ceksdeler()<br /> txtnofaktur.Text = Trim(txtnofaktur.Text)<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /> ' TextBox2.Text = mkunci<br /> strSql = "SELECT * FROM sdeler WHERE kunci ='" & mkunci & "'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> If datardr.HasRows Then<br /> datardr.Read()<br /> txtkdcust.Text = datardr("customercode")<br /> txtnopolibag.Text = datardr("pol")<br /> txtkdrang.Text = datardr("KDRANG")<br /> txtqty.Text = datardr("jumlah")<br /> txthsat.Text = datardr("hsat")<br /> txtkotor.Text = datardr("stot")<br /> txtpdiskont.Text = datardr("pdiskont")<br /> txtdiskont.Text = datardr("diskont")<br /> txtsubtotal.Text = datardr("uang")<br /> txtpidisk.Text = datardr("inv")<br /> txtidisk.Text = datardr("idisk")<br /> txtnet.Text = datardr("bersih")<br /> Cekbarang()<br /> ' formatangka()<br /> MsgBox("Data dari Table Sdeler Ditemukan....!", MsgBoxStyle.Exclamation, "Perhatian")<br /><br /> Else<br /> MsgBox("Data di Table Sdeler Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /> End If<br /> db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /><br /><br /> End Sub<br /><br /> Private Sub btnbersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbersih.Click<br /> BersihData()<br /> End Sub<br /><br /> Private Sub dgv_CellClick(ByVal sender As Object, _<br /> ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellClick<br /> With dgv<br /> txtnofaktur.Text = .Item(0, .CurrentRow.Index).Value<br /> ' dtpjual.Value = .Item(1, .CurrentRow.Index).Value<br /> txtkdcust.Text = .Item(2, .CurrentRow.Index).Value<br /> txtnomor.Text = .Item(3, .CurrentRow.Index).Value<br /> txtnopolibag.Text = .Item(4, .CurrentRow.Index).Value<br /> txtkdrang.Text = .Item(5, .CurrentRow.Index).Value<br /> txtqty.Text = .Item(7, .CurrentRow.Index).Value<br /> txthsat.Text = .Item(8, .CurrentRow.Index).Value<br /> txtkotor.Text = .Item(9, .CurrentRow.Index).Value<br /> txtpdiskont.Text = .Item(10, .CurrentRow.Index).Value<br /> txtdiskont.Text = .Item(11, .CurrentRow.Index).Value<br /> txtsubtotal.Text = .Item(12, .CurrentRow.Index).Value<br /> txtpidisk.Text = .Item(13, .CurrentRow.Index).Value<br /> txtidisk.Text = .Item(14, .CurrentRow.Index).Value<br /> txtnet.Text = .Item(15, .CurrentRow.Index).Value<br /> 'mkunci = .Item(16, .CurrentRow.Index).Value<br /> mkunci = RTrim(txtnofaktur.Text) & Str(txtnomor.Text)<br /> CekCust()<br /> End With<br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> If txtnofaktur.Text > " " Then<br /> CekHsdeler()<br /> Else<br /> MsgBox("No.Faktur tdk boleh Kosong....!", MsgBoxStyle.Exclamation, "Informasi")<br /> BersihData()<br /> txtnofaktur.Focus()<br /> Exit Sub<br /> End If<br /><br /> End Sub<br /> Private Sub txtkdrang_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtkdrang.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> txtkdrang.Text = UCase(txtkdrang.Text)<br /> Cekbarang()<br /> txtqty.Focus()<br /> End If<br /> End Sub<br /> Private Sub txtnomor_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnomor.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> If txtnomor.Text > 0 Then<br /> mnom = txtnomor.Text<br /> mkunci = RTrim(txtnofaktur.Text) & Str(txtnomor.Text)<br /> Ceksdeler()<br /> txtnopolibag.Focus()<br /> Else<br /> MessageBox.Show("Nomor Urut tidak boleh Kosong")<br /> txtnomor.Focus()<br /> Exit Sub<br /> End If<br /> End If<br /><br /><br /> End Sub<br /> Private Sub txtnopolibag_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnopolibag.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> txtkdrang.Focus()<br /> End If<br /> End Sub<br /><br /> Private Sub Cekbarang()<br /> txtnofaktur.Text = Trim(txtnofaktur.Text)<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /> strSql = "SELECT * FROM tabrang WHERE kdrang ='" & txtkdrang.Text & "'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> If datardr.HasRows Then<br /> datardr.Read()<br /> txtnamrang.Text = datardr("namrang")<br /> txthsat.Text = datardr("hsat")<br /> ' txtqty.Text = datardr("jumlah")<br /> txttipe.Text = datardr("merkb")<br /> MsgBox("Data dari Table tabrang Ditemukan....!", MsgBoxStyle.Exclamation, "Perhatian")<br /> Else<br /> MsgBox("Data di Table tabrang Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /> End If<br /> db.Close()<br /> Catch ex As Exception<br /> End Try<br /> End Sub<br /><br /> Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click<br /> CokHsdeler()<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /> strSql = "SELECT * FROM Sdeler WHERE kunci ='" & mkunci & "'"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> If datardr.HasRows Then<br /> datardr.Read()<br /> ' txtWarna.Text = datardr("Warna")<br /> MsgBox("Data tersebut pernah di Rekam....!", MsgBoxStyle.Exclamation, "Perhatian")<br /> Exit Sub<br /> End If<br /><br /> Catch ex As Exception<br /><br /> End Try<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /><br /> Dim cmd As New MySqlCommand("insert into Sdeler(kunci,torderoto,torder,tglorder,customercode,noitem,pol,kdrang,jumlah,hsat,stot,pdiskont,diskont,uang,inv,idisk,bersih) values('" & mkunci & "','" & txtnofaktur.Text & "','" & hdata & "','" & Format(dtpjual.Value, "yyyy-MM-dd HH:mm:ss") & "','" & txtkdcust.Text & "'," & txtnomor.Text & "," & txtnopolibag.Text & ",'" & txtkdrang.Text & "'," & txtqty.Text & "," & txthsat.Text & "," & txtkotor.Text & "," & txtpdiskont.Text & "," & txtdiskont.Text & "," & txtsubtotal.Text & "," & txtpidisk.Text & "," & txtidisk.Text & "," & txtnet.Text & ")", db)<br /> cmd.ExecuteNonQuery()<br /> Tampilsdeler()<br /> mnom = mnom + 1<br /> txtnomor.Text = mnom<br /> txtnomor.Focus()<br /><br /> Catch ex As Exception<br /> MsgBox(ex.Message)<br /> End Try<br /> End Sub<br /><br /> Private Sub CokHsdeler()<br /> txtnofaktur.Text = Trim(txtnofaktur.Text)<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Try<br /> strSql = "SELECT * FROM Hsdeler WHERE torderoto ='" & txtnofaktur.Text & "'"<br /> 'strSql = "SELECT * FROM Hsdeler WHERE torderb =" & nofak<br /><br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /><br /> datardr = cmd.ExecuteReader<br /> If datardr.HasRows Then<br /> datardr.Read()<br /> txtkdcust.Text = datardr("customercode")<br /> CekCust()<br /> MsgBox("Data dari Table HSdeler Ditemukan....!", MsgBoxStyle.Exclamation, "Perhatian")<br /> Tampilsdeler()<br /> Exit Sub<br /> Else<br /> MsgBox("Data di Table HSdeler Tidak Ditemukan....!", MsgBoxStyle.Exclamation, "Informasi")<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> Dim mnoautob, mfaktur As Integer<br /> mnoautob = 1<br /> mfaktur = Val(hdata)<br /> Dim cmd As New MySqlCommand("insert into HSdeler(torder,torderoto,tglorder,customercode,torderb) values('" & hdata & "','" & txtnofaktur.Text & "','" & Format(dtpjual.Value, "yyyy-MM-dd HH:mm:ss") & "','" & txtkdcust.Text & "', " & mfaktur & ")", db)<br /> cmd.ExecuteNonQuery()<br /> MsgBox("Data di Table HSdeler Berhasil di Rekam....!", MsgBoxStyle.Exclamation, "Informasi")<br /> Exit Sub<br /> End If<br /> ' db.Close()<br /> Catch ex As Exception<br /><br /> End Try<br /><br /><br /> End Sub<br /><br /> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> form2.Show()<br /> End Sub<br /><br /> Private Sub btnbarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnbarang.Click<br /> lyr_brg.Show()<br /> End Sub<br /><br /> Private Sub btnfaktur_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfaktur.Click<br /> lyr_faktur.Show()<br /> End Sub<br />End Class<br /><br /><br /><br /></b></span></span><br />
<span style="font-size: large;"><span style="font-size: small;"><b><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /></b></span></span><br />
<br />
<br />
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com2tag:blogger.com,1999:blog-8346623379852294436.post-6628356774665754022012-10-10T03:46:00.002-07:002012-10-10T03:46:52.817-07:00InnoSetUp File Exe<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-size: large;">Membuat File EXE VB.NEt dengan Ino Setup </span><br />
<br />
Kali ini kita akan membahas tentang bagaimana cara membuat File
exe, atau file setup.exe,<br />
yang kemudian kita bisa menginstalnya
layaknya software-software yang sering kita gunakan.<br />
Okay, langsung saja, sebenernya.. banyak cara bagaimana membuat
file exe,<br />
tapi kali ini saya akan membuat file exe nya dengan
menggunakan ino setup 5.4.3<br />
<br />
Pertama, anda harus mempunyai <b>Ino Setupnya</b> dulu, download saja di <a href="http://www.4shared.com/rar/Yusm_ZND/innoSetup_vb_exe.html">siniGratis. </a><br />
Kemudian <i><b>Instal Ino Setup</b></i> yang anda download dengan klik next next
next saja.<br />
Setelah Ino Setup Kita instal
Dari Start Menu Pilih Ino Setup<br />
<br />
Kemudian Jalankan Inno Setup lalu perhatikan Gambar-gmabar ini :<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilheYifHj0tqJMCezrUShdMYBY4aHwGkatVD3dxwuR2hazMCyitU1mopFzlEIUF0zMsolDSD6myVuR_PsEHvHiD56xel-_x2Kk_WwxDWilJqHNa14n9RN0psN8EjvG3V9DybSl3_QPJHs/s1600/gambar2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEilheYifHj0tqJMCezrUShdMYBY4aHwGkatVD3dxwuR2hazMCyitU1mopFzlEIUF0zMsolDSD6myVuR_PsEHvHiD56xel-_x2Kk_WwxDWilJqHNa14n9RN0psN8EjvG3V9DybSl3_QPJHs/s640/gambar2.JPG" width="640" /></a></div>
Kemudian pilih Create A new Script file the Script Wizard dan Ok.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4HNp5PnsgAo11pPAchi079Umr_VmHN2dO3kwj7fI0CB5jM94uCEbktQa-qGQqsSZCyALiXOWOuVZ2WH23xNmP_xTE_wAbGdLNTl7vAYJEl_6Sg2o4Y30BlNtDzMXvBvoT7l71k7KbRYk/s1600/gambar3JPG.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi4HNp5PnsgAo11pPAchi079Umr_VmHN2dO3kwj7fI0CB5jM94uCEbktQa-qGQqsSZCyALiXOWOuVZ2WH23xNmP_xTE_wAbGdLNTl7vAYJEl_6Sg2o4Y30BlNtDzMXvBvoT7l71k7KbRYk/s640/gambar3JPG.JPG" width="640" /></a></div>
<br />
Clik Next<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTI524BArjxuPjbWzEepiQU5_PzPgRWZvi6qRGzujVNWZMsQYt3pOzUhAbViEPa4peI96AJVZHuwZPZKjMUQGtXhG6yORR7eRAEWbOYmjZVvg_y-EFeBUb6-DAdUwkKSqa8gBgXYouv-8/s1600/gambar4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiTI524BArjxuPjbWzEepiQU5_PzPgRWZvi6qRGzujVNWZMsQYt3pOzUhAbViEPa4peI96AJVZHuwZPZKjMUQGtXhG6yORR7eRAEWbOYmjZVvg_y-EFeBUb6-DAdUwkKSqa8gBgXYouv-8/s640/gambar4.JPG" width="640" /></a></div>
<br />
<br />
Ganti isinya menjadi seperti ini, kemudian <br />
Klik Next<br />
Ket* <br />
<b>Aplication Name</b> : akan menjadi nama program yang and isntal <br />
<br />
nantinya.<br />
<br />
<b>Application Version</b> : akan menjadi versi dari program anda (tapi <br />
<br />
ditempatku, gak pernah ngaruh, yg keluar selau 0.0.0.0)<br />
<br />
<b>Application publisher</b> :(engga usah di isi aja)<br />
<br />
<b>Application website </b>: Masukan Website resmi punya mu, aku pake nama <br />
<br />
blog ku.<br />
<br />
http://jlw-belajar.blogspot.com<br />
<br />
Ganti Isi dari Applicatiin folder name menjadi terserah anda(aku <br />
<br />
ganti sama DaftarMahasiswa )Kemudian Klik Next<br />
<br />
*Aplication Folder Name adalah Nama Folder yang akan muncul di<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqXaU5y3Xtctlpw_eHlfj1FjLsG_2-JQD1X7k21OwkuVqvCTE8vIJZvGx-4rgD1HJEzVpRidKpKcSxXpH4ltvbjGVsQJlURW2XgM31KYPmoA-OnR9o-E71CpGKMoOgmOrqklk2jKGhrEc/s1600/gambar5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjqXaU5y3Xtctlpw_eHlfj1FjLsG_2-JQD1X7k21OwkuVqvCTE8vIJZvGx-4rgD1HJEzVpRidKpKcSxXpH4ltvbjGVsQJlURW2XgM31KYPmoA-OnR9o-E71CpGKMoOgmOrqklk2jKGhrEc/s640/gambar5.JPG" width="640" /></a></div>
<br />
<br />
<br />
Program File, dimana kamu instal Programnya.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlLYYkItPXwkRndMDzQG_88CtCTQxxWV43i1E3t6nAadCKcJOXXDB7XdH3G8ZRhoy1raMTzyZ169AE8-ISvLyPilYrFmXfqtjHYeZf6Ezy7TWBxSxmiDEe6WY-Nj8gL51q4epX-MRAyuc/s1600/gambar6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjlLYYkItPXwkRndMDzQG_88CtCTQxxWV43i1E3t6nAadCKcJOXXDB7XdH3G8ZRhoy1raMTzyZ169AE8-ISvLyPilYrFmXfqtjHYeZf6Ezy7TWBxSxmiDEe6WY-Nj8gL51q4epX-MRAyuc/s640/gambar6.JPG" width="640" /></a></div>
<br />
Nah disinilah anda masukan program yang akan di dibikin <br />
<br />
Executetable.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi31oNAZwbAKsL-uQyj-nP5WyJtvbnGBZxhxWjcXsw6f27FkTOoxVeO2jQbbJcxJbOR7bjdsFl2Osw5waj9RJDUNOT7JNiMD2_wfaN6bQHIJY7iqo_SHB1xIJ3SN4xmqkt1o8soSO22ryQ/s1600/gambar7.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi31oNAZwbAKsL-uQyj-nP5WyJtvbnGBZxhxWjcXsw6f27FkTOoxVeO2jQbbJcxJbOR7bjdsFl2Osw5waj9RJDUNOT7JNiMD2_wfaN6bQHIJY7iqo_SHB1xIJ3SN4xmqkt1o8soSO22ryQ/s640/gambar7.JPG" width="640" /></a></div>
<br />
Klik Browse dan arahkan ke Folder Project VB.Net anda<br />
<br />
terus masuk sampai ke bin, masuk ke bin<br />
dan disitu ada dua folder, debug dan release<br />
Biasanya filenya ada di Release<br />
tapi ditempatku keluarnya di Debug<br />
so tidak masalah<br />
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDQ8Eg2u6QanOL3Faiu9BtT72ALuCdztJjsiUPEylGhKQX1ma6XUaWbkep597Lcf8ivknDg2cER_jCaR_aH_IfP26iZdBwiBJdO-BCb-w8AuHyzeTXfEpGDcAsp2Ebn8tf5d6pypLvuSM/s1600/gambar8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="464" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgDQ8Eg2u6QanOL3Faiu9BtT72ALuCdztJjsiUPEylGhKQX1ma6XUaWbkep597Lcf8ivknDg2cER_jCaR_aH_IfP26iZdBwiBJdO-BCb-w8AuHyzeTXfEpGDcAsp2Ebn8tf5d6pypLvuSM/s640/gambar8.JPG" width="640" /></a></div>
<br />
ambil file.exe nya (punyaku DaftarMahasiswa.EXE)<br />
dan klik open. Kemudian Next<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqKdO-AitMvZrSNhkToocgajHTdj7s1mLKz7gnHigUOU8WPdkGrg3sj5AXszv1ckULnqC9TBODbCr9WBKzVlZYUxnZJ2VSjVChrJvRjA6uNYQzRCoQr9YcZvfcOGwEXCHROSWiaEIyruY/s1600/gambar9.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="462" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqKdO-AitMvZrSNhkToocgajHTdj7s1mLKz7gnHigUOU8WPdkGrg3sj5AXszv1ckULnqC9TBODbCr9WBKzVlZYUxnZJ2VSjVChrJvRjA6uNYQzRCoQr9YcZvfcOGwEXCHROSWiaEIyruY/s640/gambar9.JPG" width="640" /></a></div>
<br />
lalu berikutnya ganti isian Application start menu Folder Name<br />
sesuai keinginanmu(punya ku aku ganti DataMahasiswa)<br />
<br />
*itu akan keluar di start menu anda<br />
<br />
dan beri centang seperti gambar di bawah dan klik next.<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgz82G_Bj42AIkyK_AjpXr5_tsOZzPcNqIPRNvM89M7PYGep-U8-SuuYEQH2N-l2-AROrCf4rzRcpNjTYtUgqUNoJRryYq3Oms7jbYTVKpZuzqLO0yYJMC7Dt-Ft_V45Owcn0McU0PDeUM/s1600/gambar10.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="462" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgz82G_Bj42AIkyK_AjpXr5_tsOZzPcNqIPRNvM89M7PYGep-U8-SuuYEQH2N-l2-AROrCf4rzRcpNjTYtUgqUNoJRryYq3Oms7jbYTVKpZuzqLO0yYJMC7Dt-Ft_V45Owcn0McU0PDeUM/s640/gambar10.JPG" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzPXonxUHjXYrlACrsyP2BjVzffWsLKiDItNnzB2nQwv0qQW4TGxhxwBLrLcNwO7VEaLM2OaCJ-OAhK9XVhOWw5RGRdcAWp0Zp2RjBeY_vkOkX8jLWFIOPqu7RzDb6RGLVbP_4ntept_k/s1600/gambar11.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="462" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhzPXonxUHjXYrlACrsyP2BjVzffWsLKiDItNnzB2nQwv0qQW4TGxhxwBLrLcNwO7VEaLM2OaCJ-OAhK9XVhOWw5RGRdcAWp0Zp2RjBeY_vkOkX8jLWFIOPqu7RzDb6RGLVbP_4ntept_k/s640/gambar11.JPG" width="640" /></a></div>
<br />
lalu biarkan semua kosong dan klik next.<br />
<br />
lalu terserah anda mau select all or english saja, (punyaku cuma <br />
<br />
english saja) klik next lagi.<br />
<br />
<br />
<br />
kemudian browse dimana anda akan meletakan File .exe anda yang <br />
<br />
sudah jadi nanti(punyaku aku taruh di dekstop, make new folder, <br />
<br />
bikin folder master data_mahasiswa)<br />
<br />
ganti Compiler output base file name : terserah anda(Punya ku aku <br />
<br />
ganti MahasiswaSetup<br />
*nanti itu akan menjadi nama file .exe kita/ file setupnya.<br />
<br />
Custum Setup Icon<br />
(itu akan jadi icon file setup yg kita buat(tapi saya sarankan <br />
<br />
untuk dibiarkan kosong saja, cz biasanya malah error))<br />
<br />
setup password kita kosongi juga.<br />
<br />
dan klik next.<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgDGVaoxI8suAy3MM7g2o7ZiqGKVTTMxTWW3LfsTKVxG4j-Ssg6c7O6f1K6-LbTQnioaxcaLfGPRBc1IzuACy0dFUfWOIsutmPf-98vrT0147x1pM5M6ts2_XHOS4lvz2N5KL66KOyikA/s1600/gambar12.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="462" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhgDGVaoxI8suAy3MM7g2o7ZiqGKVTTMxTWW3LfsTKVxG4j-Ssg6c7O6f1K6-LbTQnioaxcaLfGPRBc1IzuACy0dFUfWOIsutmPf-98vrT0147x1pM5M6ts2_XHOS4lvz2N5KL66KOyikA/s640/gambar12.JPG" width="640" /></a></div>
<br />
kemudian next lagi dan finish<br />
kemudian muncul pertanyaan<br />
Would you like to compile the new script now?(apakah anda ingin <br />
<br />
mencompile script yang baru anda buat sekarang? hehe,, mungkin <br />
<br />
begitu artinya)<br />
<br />
jawab aja yes,<br />
<br />
Kemudian ditanya lagi. would u like to save the script before compiling??<br />
(mau disave engga scriptnya?? engga usah aja)<br />
jawab no.<br />
<br />
eng ing eng....<br />
Done. jadi dehh...<br />
buka di mana anda tadi membuat folder keluaranya(kalau punyaku kan <br />
<br />
di dekstop)<br />
<br />
tinggal di instal tuh program.<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDxk7Rtr9y3WodFxGzirRSn4HWtYTb5XomCCBeVsUP7u8XHl7qGelwXbM8FtiMkTekFVMtOFrHiDkmJIfbjOsoUtwxEmh7NJl4yTvx34q9bZl2cjQJQtvXMGjABxFdGA-aWyJ_CcQTNf4/s1600/gambar13.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="392" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDxk7Rtr9y3WodFxGzirRSn4HWtYTb5XomCCBeVsUP7u8XHl7qGelwXbM8FtiMkTekFVMtOFrHiDkmJIfbjOsoUtwxEmh7NJl4yTvx34q9bZl2cjQJQtvXMGjABxFdGA-aWyJ_CcQTNf4/s640/gambar13.JPG" width="640" /></a></div>
<br />
<br />
Selamat BerOtak Atik<br />
<br />
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-29377943660267211052012-10-09T09:26:00.001-07:002013-07-28T02:39:57.192-07:00MEREKAM FOTO KE MYSQL -PAKAI VB 2010<div dir="ltr" style="text-align: left;" trbidi="on">
<span style="font-size: large;">PEREKAM DATA IMAGE/ FOTO KE DALAM MYSQL</span><br />
<span style="font-size: large;"> PAKAI VB 2010 </span><br />
<br />
1. Kita buat dulu Table nya saya pakai <b>XAMPP-MYSQL</b> menggunakan <b>MYSQL-Front </b><br />
2. Kita bikin modulnya setelah buat Form<br />
<br />
3. Kita <b>Connectkan DataBase MYSQL</b> dngan <b>VB 2010</b> dengan menggunakan<br />
<i><b>Connector MYSQL versi NET 6.5.4</b></i><br />
4. Kita siapkan : <b>PictureBox, OpenFileDialog, DataGridView, Button, TextBox</b>.<br />
<br />
<b>Kita buat Codingnya - lalu kita jalankan Selesai</b><br />
<br />
<b>Caranya sama seperti sebelumnya :</b><br />
<b> Lihat Gambar</b><br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiasnkD4vuIOiAMfIUHhciYTEx9DI4_BuLmvSImgpX5Z3hYSdftfhhUFpzJ8nG2QbiNQhUj0lHV7czWwJw_N0wmSq0f9i8-WQ6aXAwjoBYNoA_ThGJMQx6xx85cBnvLx6cRmR-DSVxKASw/s1600/table.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="526" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiasnkD4vuIOiAMfIUHhciYTEx9DI4_BuLmvSImgpX5Z3hYSdftfhhUFpzJ8nG2QbiNQhUj0lHV7czWwJw_N0wmSq0f9i8-WQ6aXAwjoBYNoA_ThGJMQx6xx85cBnvLx6cRmR-DSVxKASw/s640/table.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmfbXdbMuuyNqtO1pmqZaFEwQ-j7SccLGtC5977JYT5lRmfuPzip2ouNUh0SLv5_gZnXYKZyoAdwadDqx0RYKoJrbR6uZM00o8BC67JvLjTQoDd5uIaOFKfcshjxh3S-EmTth_yLOS5co/s1600/module.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjmfbXdbMuuyNqtO1pmqZaFEwQ-j7SccLGtC5977JYT5lRmfuPzip2ouNUh0SLv5_gZnXYKZyoAdwadDqx0RYKoJrbR6uZM00o8BC67JvLjTQoDd5uIaOFKfcshjxh3S-EmTth_yLOS5co/s640/module.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgglux7dv8-GYxXDmjf5oUZHqj1a1UHcutyS2f2Lf6s_SJ7Ks8u1oTov2woB0RuT1CDf1TIW1IOszvFFXE_YvHY1t-8MQHFap5YwOSW4FIsUSw9vZirRTPF89KklGpnCCLaJWW735ENTUY/s1600/conect.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="486" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgglux7dv8-GYxXDmjf5oUZHqj1a1UHcutyS2f2Lf6s_SJ7Ks8u1oTov2woB0RuT1CDf1TIW1IOszvFFXE_YvHY1t-8MQHFap5YwOSW4FIsUSw9vZirRTPF89KklGpnCCLaJWW735ENTUY/s640/conect.JPG" width="640" /></a></div>
<br />
<br />
<b>PERSIAPAN FORM NYA</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjD2t7lUWuqp-UCQELMDjmnbSv-sHoqCwIFud-qR37xVZWxU0lkQD1bbgAmPYj1RO89-znaJC3s37vYI2G9ifQq6r-PEDPAGy8vSpHtrnI7jIujjBkOXXlx9dGszbFF-seWsYiU4BxYj_k/s1600/SIAPAN_FORM.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjD2t7lUWuqp-UCQELMDjmnbSv-sHoqCwIFud-qR37xVZWxU0lkQD1bbgAmPYj1RO89-znaJC3s37vYI2G9ifQq6r-PEDPAGy8vSpHtrnI7jIujjBkOXXlx9dGszbFF-seWsYiU4BxYj_k/s640/SIAPAN_FORM.JPG" width="640" /></a></div>
<br />
<b> BEBERAPA HASIL PERCOBAAN UNTUK DIREKAM DAN DITAMPILKAN</b><br />
<b><br /></b>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEin6KALZdmL07fSt_3Y7A94Bo8sw6viud3TrgWR_Ht60nLs9Oy8l47YKRrz5PiMmReM9e0MMSonaVyqteKoHQDffh0-kwx7RaLdFnQPk7dadNoJ500gvt4UOv7edrI7BZnXx8_zMNZ0Mh8/s1600/SIRAYUNA.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="476" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEin6KALZdmL07fSt_3Y7A94Bo8sw6viud3TrgWR_Ht60nLs9Oy8l47YKRrz5PiMmReM9e0MMSonaVyqteKoHQDffh0-kwx7RaLdFnQPk7dadNoJ500gvt4UOv7edrI7BZnXx8_zMNZ0Mh8/s640/SIRAYUNA.JPG" width="640" /></a></div>
<br />
<br />
<div style="text-align: center;">
<b>WANITA CANTIK MILITER DI SELURUH DUNIA</b></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJVTjoBbhYHliW4Ouk_mPVWGdLnb1WI-23h798PYHdbBmJQLZKtT6RtRl1nV8DF64H9t16zmxjZeZqXV3WrkOmBvv1Bqp_bWhQDESy4nxrQJHknLg0kBZSSIB_McHn-aJWnxkkYelghNk/s1600/MCANTIK1.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="478" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjJVTjoBbhYHliW4Ouk_mPVWGdLnb1WI-23h798PYHdbBmJQLZKtT6RtRl1nV8DF64H9t16zmxjZeZqXV3WrkOmBvv1Bqp_bWhQDESy4nxrQJHknLg0kBZSSIB_McHn-aJWnxkkYelghNk/s640/MCANTIK1.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEooX953yLM60S9r-9UpLSCSNImAWobLM72GkRSlsnFT-Iq57nxCwXGJDRk5u6SS4LEWakt-nVhWTPxVzDAYlU-dA5o7HP8lb3z89kqZr7rU-Iqfz4qlap_LM_nNF_uk-YYJJ2nAyeVps/s1600/MCANTIK2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="474" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjEooX953yLM60S9r-9UpLSCSNImAWobLM72GkRSlsnFT-Iq57nxCwXGJDRk5u6SS4LEWakt-nVhWTPxVzDAYlU-dA5o7HP8lb3z89kqZr7rU-Iqfz4qlap_LM_nNF_uk-YYJJ2nAyeVps/s640/MCANTIK2.JPG" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhOkgoqQljj60YuLfsJJ0i6JwvCcKQyyazIIuS_S75VDSdFT21sMjK9MagJmThr23SJgsIPzLgUEUbcdexl-104dqvtbwdsaLDWO-8jDQngK7DIpo09mMqH14ce-lxC7g6knqSFyEKrz8s/s1600/MCANTIK3.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="478" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhOkgoqQljj60YuLfsJJ0i6JwvCcKQyyazIIuS_S75VDSdFT21sMjK9MagJmThr23SJgsIPzLgUEUbcdexl-104dqvtbwdsaLDWO-8jDQngK7DIpo09mMqH14ce-lxC7g6knqSFyEKrz8s/s640/MCANTIK3.JPG" width="640" /></a></div>
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKpUysUHhWse_euOIKy6J5tld-_s_IWZtWFdqxTtgyDFHF5pJYOtJCUkfjMxZ3zRlygmgWWg95zE0SZT5A5ZJHGe-HLm5XM4g3FQEmALQzAdjj4vlrGyLpq9yJ3d-xS5ezvCpvkNXYq_Y/s1600/MCANTIK4.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="472" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjKpUysUHhWse_euOIKy6J5tld-_s_IWZtWFdqxTtgyDFHF5pJYOtJCUkfjMxZ3zRlygmgWWg95zE0SZT5A5ZJHGe-HLm5XM4g3FQEmALQzAdjj4vlrGyLpq9yJ3d-xS5ezvCpvkNXYq_Y/s640/MCANTIK4.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7MgMqgprNJS3NxR8cYZDdGDcb0QYPe2eXHzrQfz9e_prUjpMCXyDl_ZrJMmat1oJL513Gt1C3GAJ952ajFS4wUDAePXebflpMb4KaISLfesWj1Z8QTNUy_1MvtionFtm64IjYUHCf_6s/s1600/MCANTIK5.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="474" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7MgMqgprNJS3NxR8cYZDdGDcb0QYPe2eXHzrQfz9e_prUjpMCXyDl_ZrJMmat1oJL513Gt1C3GAJ952ajFS4wUDAePXebflpMb4KaISLfesWj1Z8QTNUy_1MvtionFtm64IjYUHCf_6s/s640/MCANTIK5.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZzXke-G2AeEadRtkdYyElD8MaeeQ9nY_R2uvR_Zy-k7M2OINoREuwRAAbbPQBhezF2lEPDlm7zywVrh6LS0bPww2o21sa-kM_0oH5kCatH_RtNgGFsXFuNHehP9Rbv01KoQFA7R9XX9E/s1600/MCANTIK6.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="476" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiZzXke-G2AeEadRtkdYyElD8MaeeQ9nY_R2uvR_Zy-k7M2OINoREuwRAAbbPQBhezF2lEPDlm7zywVrh6LS0bPww2o21sa-kM_0oH5kCatH_RtNgGFsXFuNHehP9Rbv01KoQFA7R9XX9E/s640/MCANTIK6.JPG" width="640" /></a></div>
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIScCT6QSNlONY6BUb58Ag9My8AXrMgEGwUVgPBKzXhYHpjsb2dark-HtITrVcDqmLw9cWaWxbEMEip4jbROxIui4Zc2P06gJNDD78z0pgS-OeuO5XtM8QPuxhxzX5mwhG-ZPIHFL49Xc/s1600/MCANTIK8.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="472" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhIScCT6QSNlONY6BUb58Ag9My8AXrMgEGwUVgPBKzXhYHpjsb2dark-HtITrVcDqmLw9cWaWxbEMEip4jbROxIui4Zc2P06gJNDD78z0pgS-OeuO5XtM8QPuxhxzX5mwhG-ZPIHFL49Xc/s640/MCANTIK8.JPG" width="640" /></a></div>
<br />
<span style="font-size: large;"><b>CODINGNYA DIBAGI 2 YAITU DI MODUL DAN FORM :</b></span><br />
<br />
<div style="text-align: center;">
<span style="font-size: large;"><b>UNTUK MODUL :</b></span></div>
<div style="text-align: center;">
<br /></div>
<b> Imports MySql.Data.MySqlClient<br />Imports System.Data<br />Module MODULFOTO<br /> Public conn As New MySqlConnection<br /> Public DTadapter As New MySqlDataAdapter<br /> Public DTset As DataSet<br /> Public DTrow As DataRow<br /> 'Public CMD As MySqlCommand<br /> Public DTreader As MySqlDataReader<br /> Public DTtable As New DataTable<br /> Public CMDbuild As MySqlCommandBuilder<br /> Public sql As String<br /><br /> Public cmd, cdm As New MySqlCommand<br /> Public dadapter As New MySqlDataAdapter<br /> Public datardr As MySqlDataReader<br /> Public strSql As String<br /> Dim serv As String = "Server=localhost;"<br /> Dim dbase As String = "Database=jualan;"<br /> Dim uid As String = "uid=root;"<br /> Dim pwd As String = "pwd=;"<br /> Dim ConString = serv & dbase & uid & pwd<br /> Public db As New MySqlConnection(ConString)<br /> Public Sub konek()<br /> Try<br /> tutupDB()<br /> db.Open()<br /> MsgBox("Koneksi DataBase berhasil dilakukan")<br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> End Try<br /> End Sub<br /> Public Sub tutupDB()<br /> If db.State = ConnectionState.Open Then<br /> db.Close()<br /> End If<br /> End Sub<br /><br />End Module</b><br />
<b><br /></b>
<b><br /></b>
<b></b><br />
<b></b><br />
<b></b><br />
<b></b><br />
<b></b><br />
<div style="text-align: center;">
<b>UNTUK FORM NYA :</b></div>
<div style="text-align: center;">
<br /></div>
<div style="text-align: left;">
<b> Imports System.IO<br />Imports MySql.Data.MySqlClient<br />Public Class Form1<br /> Private path As String = ""<br /> Private strSql As String = String.Empty<br /> Dim FileName As String<br /><br /> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> konek()<br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Try<br /> With ofdphoto<br /> .Title = "Browse Gambar"<br /> .FileName = "Pilih Gambar"<br /> .Filter = "Type(*.jpg, *.jpeg, *.bmp, *.gif, *.png)|*.jpg; *.jpeg; *.bmp; *gif; *.png"<br /> .ShowDialog()<br /> path = .FileName<br /> txtlokasi.Text = path<br /> picPhoto.Image = Image.FromFile(path)<br /> picPhoto.SizeMode = PictureBoxSizeMode.StretchImage<br /> 'biar tampilan image pas dengan kotak image yang di sediakan<br /> End With<br /> Catch ex As Exception<br /> MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")<br /> End Try<br /><br /> End Sub<br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> sql = "SELECT * from mahasiswa where npm ='" & txtnim.Text.Trim & "'"<br /> DTtable = New DataTable<br /> cdm = New MySqlCommand(sql, db)<br /> DTreader = cdm.ExecuteReader()<br /> If DTreader.HasRows = True Then<br /> DTreader.Read()<br /> MsgBox("Data tersebut pernah di Rekam....!", MsgBoxStyle.Exclamation, "Perhatian")<br /> Exit Sub<br /><br /> End If<br /><br /><br /> ' untuk contoh disini lokasi gambarnya saya hardcode<br /> ' kita bisa kembangkan dengan memanfaatkan komponen OpenFileDialog<br /> konek()<br /> ' Dim FileName As String = "E:\ter\tantri.jpg"<br /> Dim cmd As New MySqlCommand("INSERT INTO mahasiswa (npm, nama, foto) VALUES (@1, @2, @3)", db)<br /> 'strSql = "INSERT INTO mahasiswa (npm, nama, foto) VALUES (@1, @2, @3)" ' ini perintah insert biasa<br /> ' Using cmd As New MySqlClient.MySqlCommand(strSql, db)<br /> With cmd<br /> .Parameters.Clear()<br /> .Parameters.AddWithValue("@1", txtnim.Text.Trim) ' npm<br /> .Parameters.AddWithValue("@2", txtnama.Text.Trim) ' nama<br /> .Parameters.AddWithValue("@3", IO.File.ReadAllBytes(txtlokasi.Text)) ' foto<br /><br /> .ExecuteNonQuery()<br /> End With<br /> ' End Using<br /> TampilData()<br /> MessageBox.Show("Data sudah disimpan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)<br /><br /> End Sub<br /><br /> Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /><br /> Try<br /> strSql = "SELECT foto FROM mahasiswa WHERE npm = @1"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /> ' datar = cmd.ExecuteReader<br /> cmd.Parameters.Clear()<br /> cmd.Parameters.AddWithValue("@1", txtnim.Text) ' npm<br /> datardr = cmd.ExecuteReader<br /><br /> If datardr.HasRows Then<br /> 'datardr.Read()<br /> If datardr.Read() Then<br /> 'txtnim.Text = datardr("npm")<br /> 'txtnama.Text = datardr("nama")<br /> Dim ms As New IO.MemoryStream(CType(datardr.Item("foto"), Byte()))<br /> picPhoto.Image = Image.FromStream(ms) ' tampilkan gambarnya<br /> End If<br /> End If<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br /> Private Sub txtnim_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtnim.KeyPress<br /> If e.KeyChar = Chr(13) Then<br /> tampilkanfoto()<br /><br /> End If<br /> End Sub<br /><br /> Sub tampilkanfoto()<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /> sql = "SELECT * from mahasiswa where npm ='" & txtnim.Text.Trim & "'"<br /> DTtable = New DataTable<br /> cmd = New MySqlCommand(sql, db)<br /> DTreader = cmd.ExecuteReader()<br /> If DTreader.HasRows = True Then<br /> DTreader.Read()<br /> txtnim.Text = DTreader("npm")<br /> txtnama.Text = DTreader("nama")<br /> Dim gambar As New IO.MemoryStream(CType(DTreader.Item("foto"), Byte()))<br /> picPhoto.Image = Image.FromStream(gambar)<br /> DTtable.Clear()<br /> Else<br /> MessageBox.Show("Data yang anda cari tidak dapat kami tampilkan, Masukan NIM Mahasiswa ")<br /> End If<br /> db.Close()<br /><br /> End Sub<br /><br /> Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click<br /> tampilkanfoto()<br /> End Sub<br /> Private Sub dgv_CellClick(ByVal sender As Object, _<br /> ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv.CellClick<br /> With dgv<br /> txtnim.Text = .Item(0, .CurrentRow.Index).Value<br /> tampilkanfoto()<br /> End With<br /> End Sub<br /><br /> Private Sub TampilData()<br /> Dim da As New MySqlDataAdapter("select * from mahasiswa", db)<br /> Dim dt As New DataTable<br /> da.Fill(dt)<br /> dgv.DataSource = dt<br /> dgv.Refresh()<br /> 'Dim query As String = "SELECT * FROM CUSTOMER"<br /> ' Dim da As New MySqlDataAdapter(query, db)<br /> ' Dim ds As New DataSet()<br /><br /> 'If da.Fill(ds) Then<br /> 'dgv.DataSource = ds.Tables(0)<br /> 'End If<br /><br /><br /> End Sub<br /><br /> Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> TampilData()<br /> End Sub<br /><br /> Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click<br /> tampilkanfoto()<br /> End Sub<br /><br /> Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click<br /> konek()<br /> Dim cmdb As New MySqlCommand(("update MAHASISWA set nama='" & txtnama.Text & "' where npm ='" & txtnim.Text.Trim & "'"), db)<br /> cmdb.ExecuteNonQuery()<br /> TampilData()<br /><br /><br /> End Sub<br /><br /> Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click<br /> Try<br /> Dim hapus As Integer<br /> hapus = MsgBox("Anda Yakin Ingin Menghapus Data " & txtnim.Text.Trim & " ini?", MsgBoxStyle.OkCancel, "Info Program")<br /> Select Case hapus<br /> Case vbCancel<br /> Exit Sub<br /> Case vbOK<br /> konek()<br /> Dim cmdb As New MySqlCommand(("Delete from MAHASISWA where npm ='" & txtnim.Text.Trim & "'"), db)<br /> cmdb.ExecuteNonQuery()<br /> TampilData()<br /> MessageBox.Show("Data berhasil di Hapus")<br /> End Select<br /> Catch ex As Exception<br /> MsgBox(ex.Message, MsgBoxStyle.Information, "Pesan Kesalahan")<br /> End Try<br /><br /> End Sub<br />End Class</b></div>
<b><br /><br /><br /><br /><br /></b></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-49980079582635235582012-10-08T23:04:00.002-07:002013-07-28T02:30:38.730-07:00MEREKAM IMAGE KE MYSQL - VB 2010<div dir="ltr" style="text-align: left;" trbidi="on">
PEREKAM DATA IMAGE/ FOTO KE DALAM MYSQL PAKAI VB 2010<br />
<br />
1. Kita buat dulu Table nya
saya pakai XAMPP-MYSQL menggunakan MYSQL-Front<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-zKYpNyvGwVyJxdEsIb2boARGnztCWQzOgcb1ITAjJ3fPE9ixOWheV0NkhgLB27qCf-lq_Ivovsh83duhJljBkGTyZe7adjxuwGoHV9DRaZPa8Jytg58E2htvCk4gIyo-j1-KkldvbS4/s1600/table.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="328" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj-zKYpNyvGwVyJxdEsIb2boARGnztCWQzOgcb1ITAjJ3fPE9ixOWheV0NkhgLB27qCf-lq_Ivovsh83duhJljBkGTyZe7adjxuwGoHV9DRaZPa8Jytg58E2htvCk4gIyo-j1-KkldvbS4/s400/table.JPG" width="400" /></a></div>
2. Kita bikin modulnya setelah buat Form<br />
3. Kita Connectkan DataBase MYSQL dngan VB 2010 dengan
menggunakan<br />
Connector MYSQL versi NET 6.5.4<br />
4. Kita siapkan : PictureBox,DataGridView, OpenFileDialog, Button, TextBox
4.<br />
<br />
Kita buat Codingnya - lalu kita jalankan Selesai<br />
<br />
Lihat Gambar :
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLQN2YvJKRGYBUhcFJL0r6B7Pyp_n17JazVsEimzvGYfrH7Et9ysbwfMIRSJzHXYyHdE8O_EcHqcRWHufzn5PFA0DFi45N_GylXW9oYOtivT4nOJJOsSAvgcD8gyKR_hS35LNYvsiztNE/s1600/module.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhLQN2YvJKRGYBUhcFJL0r6B7Pyp_n17JazVsEimzvGYfrH7Et9ysbwfMIRSJzHXYyHdE8O_EcHqcRWHufzn5PFA0DFi45N_GylXW9oYOtivT4nOJJOsSAvgcD8gyKR_hS35LNYvsiztNE/s640/module.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg97uzpsmupdYlN1g2QbROwfaZGG4XJoLdVLd7P1qKP98MEiGMBRowQQquUfp1vHvTw72so-IQBt_HE7LrWOw-naPHnyoLBn2EOajHfvW1fUVxORuEExwnjk7oO6yQ_QYwwWkBE5E38yLs/s1600/conect.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="486" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg97uzpsmupdYlN1g2QbROwfaZGG4XJoLdVLd7P1qKP98MEiGMBRowQQquUfp1vHvTw72so-IQBt_HE7LrWOw-naPHnyoLBn2EOajHfvW1fUVxORuEExwnjk7oO6yQ_QYwwWkBE5E38yLs/s640/conect.JPG" width="640" /></a></div>
<br />
<b>Persiapan Form </b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7e9rl3n_bSCSN5eTruvZ1PBnaVDMVPTESYxQcZlKoWllp6XWJuLnuvnZBSMBMtlhyQOyFU5OxnCs1hY3rYAMatZ7Bw9dmG-b2OVSpeHBbJ7qLysFgQ2s3fXB9UQw1NlqG_nb-giF9MmU/s1600/SIAPAN.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg7e9rl3n_bSCSN5eTruvZ1PBnaVDMVPTESYxQcZlKoWllp6XWJuLnuvnZBSMBMtlhyQOyFU5OxnCs1hY3rYAMatZ7Bw9dmG-b2OVSpeHBbJ7qLysFgQ2s3fXB9UQw1NlqG_nb-giF9MmU/s640/SIAPAN.JPG" width="640" /></a></div>
<br />
<b>Hasil yg di Rekam di Tabel MYSQL </b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKn_nXejAq9_2MSKVDFqE5hkWf-gYnEUurvjbcnvsF0byIMUrtZMrGNeH7f9ehFzVMHwJ3-3kn4P0yAJD_eGOHg-zb5y3oxFGfZwFUIJ2E0EDwzzSQylM80ja17t4tE-_B_Om-8FuOVKE/s1600/simpan.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="564" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgKn_nXejAq9_2MSKVDFqE5hkWf-gYnEUurvjbcnvsF0byIMUrtZMrGNeH7f9ehFzVMHwJ3-3kn4P0yAJD_eGOHg-zb5y3oxFGfZwFUIJ2E0EDwzzSQylM80ja17t4tE-_B_Om-8FuOVKE/s640/simpan.JPG" width="640" /></a></div>
<br />
<b>Hasil Perekaman Gambar / Foto </b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW7DdNhh2Xt0unrjIRvqeuTYThsTV-xvYaHG0gcjaRUv7sSMUDPyaOuzLmzN4zX7J3atSFNoo4_BRLwNVHa7ojG34XlWR5SU-EnlEpr3k44YLrBx294tiGtK7k2TLaEOjX0Ez99qZ5Wxw/s1600/JEMBER2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="452" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhW7DdNhh2Xt0unrjIRvqeuTYThsTV-xvYaHG0gcjaRUv7sSMUDPyaOuzLmzN4zX7J3atSFNoo4_BRLwNVHa7ojG34XlWR5SU-EnlEpr3k44YLrBx294tiGtK7k2TLaEOjX0Ez99qZ5Wxw/s640/JEMBER2.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJRFUYq_kSafFP5t6mu8wwEkTXjb3bn_0jOJY3SYDttWMe9dhnvY0hXE1Z7y3LsAludxD1mcHLyNGylJYagRC8AOBfPNb4FRHlCYZo6Cxy1ctaALZCsOnIRW1Pt6F9OJo72Y8AW0hYouU/s1600/RUNGKUT2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="450" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgJRFUYq_kSafFP5t6mu8wwEkTXjb3bn_0jOJY3SYDttWMe9dhnvY0hXE1Z7y3LsAludxD1mcHLyNGylJYagRC8AOBfPNb4FRHlCYZo6Cxy1ctaALZCsOnIRW1Pt6F9OJo72Y8AW0hYouU/s640/RUNGKUT2.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-NYetFGt4jxO7hjRHpoxU7TW9Pwd7uo2yoZlAMXFnZYWO3CqOIWO3jyETiLAgFokTMLgaOMfauZVUon2R2ZbQxz7qgMvY8sx_wv_F0BprrsBN8RklmA0GEklX5otGcdSndMsyfjnIUzo/s1600/IWAN.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="448" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEh-NYetFGt4jxO7hjRHpoxU7TW9Pwd7uo2yoZlAMXFnZYWO3CqOIWO3jyETiLAgFokTMLgaOMfauZVUon2R2ZbQxz7qgMvY8sx_wv_F0BprrsBN8RklmA0GEklX5otGcdSndMsyfjnIUzo/s640/IWAN.JPG" width="640" /></a></div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioarBxtOeKp_5RbrTZMZkcjP_uPup3mqEjXxMQd1VLEapmkRdwDEhrv2C-hE6JTJOLrX0hJS-cPHq5DlsKyC4nChhEmeunueiVjvzoQXxtY9dMdYTD7TUZEWMZM3wEsdhwY7Lku4wAMXU/s1600/SLANK.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="452" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEioarBxtOeKp_5RbrTZMZkcjP_uPup3mqEjXxMQd1VLEapmkRdwDEhrv2C-hE6JTJOLrX0hJS-cPHq5DlsKyC4nChhEmeunueiVjvzoQXxtY9dMdYTD7TUZEWMZM3wEsdhwY7Lku4wAMXU/s640/SLANK.JPG" width="640" /></a></div>
<br />
<b>Ini Rincian Codingnya
Untuk yg di Module : </b><br />
<br />
<b><br />Imports MySql.Data.MySqlClient<br />Imports System.Data<br />Module modul_foto<br /> Public cmd As New MySqlCommand<br /> Public dadapter As New MySqlDataAdapter<br /> Public datardr As MySqlDataReader<br /> Public strSql As String<br /> Dim serv As String = "Server=192.168.1.8;"<br /> Dim dbase As String = "Database=jualan;"<br /> Dim uid As String = "uid=root;"<br /> Dim pwd As String = "pwd=root;"<br /> Dim ConString = serv & dbase & uid & pwd<br /> Public db As New MySqlConnection(ConString)<br /> Public Sub konek()<br /> Try<br /> tutupDB()<br /> db.Open()<br /> MsgBox("Koneksi DataBase berhasil dilakukan")<br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> End Try<br /> End Sub<br /> Public Sub tutupDB()<br /> If db.State = ConnectionState.Open Then<br /> db.Close()<br /> End If<br /> End Sub<br /><br />End Module<br /><br /><br /><br />Ini Coding untuk yang di Form1 :</b><br />
<b></b><br />
<b><br />Imports System.IO<br />Imports MySql.Data.MySqlClient<br />Public Class Form1<br /> Private path As String = ""<br /> Private strSql As String = String.Empty<br /> Dim FileName As String<br /><br /> Private Sub coneksi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles coneksi.Click<br /> konek()<br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> Try<br /> With ofdphoto<br /> .Title = "Browse Gambar"<br /> .FileName = "Pilih Gambar"<br /> .Filter = "Type(*.jpg, *.jpeg, *.bmp, *.gif, *.png)|*.jpg; *.jpeg; *.bmp; *gif; *.png"<br /> .ShowDialog()<br /> path = .FileName<br /> txtlokasi.Text = path<br /> picphoto.Image = Image.FromFile(path)<br /> picphoto.SizeMode = PictureBoxSizeMode.StretchImage<br /> 'biar tampilan image pas dengan kotak image yang di sediakan<br /> End With<br /> Catch ex As Exception<br /> MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")<br /> End Try<br /><br /> End Sub<br /><br /><br /> Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click<br /> konek()<br /> ' Dim FileName As String = "E:\ter\tantri.jpg"<br /> Dim cmd As New MySqlCommand("INSERT INTO mahasiswa (npm, nama, foto) VALUES (@1, @2, @3)", db)<br /> 'strSql = "INSERT INTO mahasiswa (npm, nama, foto) VALUES (@1, @2, @3)" ' ini perintah insert biasa<br /> ' Using cmd As New MySqlClient.MySqlCommand(strSql, db)<br /> With cmd<br /> .Parameters.Clear()<br /> .Parameters.AddWithValue("@1", txtnim.Text.Trim) ' npm<br /> .Parameters.AddWithValue("@2", txtnama.Text.Trim) ' nama<br /> .Parameters.AddWithValue("@3", IO.File.ReadAllBytes(txtlokasi.Text)) ' foto<br /><br /> .ExecuteNonQuery()<br /> End With<br /> ' End Using<br /><br /> MessageBox.Show("Data sudah disimpan", "Informasi", MessageBoxButtons.OK, MessageBoxIcon.Information)<br /><br /> End Sub<br /><br /> Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click<br /> Try<br /> tutupDB()<br /> db.Open()<br /><br /> Catch ex As MySqlException<br /> MsgBox(ex.Message)<br /> MsgBox("Koneksi tidak berhasil dilakukan")<br /> Exit Sub<br /> End Try<br /><br /> Try<br /> strSql = "SELECT foto FROM mahasiswa WHERE npm = @1"<br /> cmd.CommandText = strSql<br /> cmd.Connection = db<br /> dadapter.SelectCommand = cmd<br /> ' datar = cmd.ExecuteReader<br /> cmd.Parameters.Clear()<br /> cmd.Parameters.AddWithValue("@1", txtnim.Text) ' npm<br /> datardr = cmd.ExecuteReader<br /><br /> If datardr.HasRows Then<br /> 'datardr.Read()<br /> If datardr.Read() Then<br /> 'txtnim.Text = datardr("npm")<br /> 'txtnama.Text = datardr("nama")<br /> Dim ms As New IO.MemoryStream(CType(datardr.Item("foto"), Byte()))<br /> picphoto.Image = Image.FromStream(ms) ' tampilkan gambarnya<br /> End If<br /> End If<br /> Catch ex As Exception<br /><br /> End Try<br /><br /> End Sub<br />End Class<br /><br /><br /><br /><br /><br /><br /><br /></b><br />
<br /></div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0tag:blogger.com,1999:blog-8346623379852294436.post-52101974447638989152012-10-07T06:44:00.000-07:002012-10-07T06:44:04.749-07:00Print Screen jadi JPG<div dir="ltr" style="text-align: left;" trbidi="on">
<b><span style="font-size: large;">Untuk Merubah : </span></b><br />
<b><span style="font-size: large;">Gambar atau Tulisan di Layar menjadi File JPG</span></b><br />
<br />
<b>Caranya :</b><br />
1. Buka dulu Paint ini ada di Start > AllProgram > Accessories > Paint<br />
2. Lakukan Print Scrn Layar apa yg anda Suka<br />
3. Setelah itu Paste kan di Paint tadi<br />
4. Lalu Edit sesuka hati anda kemudian Save dengan pilih JPG dibagian bawah<br />
<br />
<br />
Lihat Gambar
Hastl setelah <i><b>Print Scrn di paste ke Paint</b></i><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW63xySD1gctuacqPR3BnAobmlSKRXkgwg-ci_8_N20GfwwZbm-EFoxTqAYsYgVpTXhXoUzMv_7tP_gamygweT9BwHVAh_vo5tU2nQzsGtGvZpEtY0-o8e7NnqHVPBvMb9jbNnAB5zoIk/s1600/walkali.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgW63xySD1gctuacqPR3BnAobmlSKRXkgwg-ci_8_N20GfwwZbm-EFoxTqAYsYgVpTXhXoUzMv_7tP_gamygweT9BwHVAh_vo5tU2nQzsGtGvZpEtY0-o8e7NnqHVPBvMb9jbNnAB5zoIk/s640/walkali.JPG" width="640" /></a></div>
<br />
<br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0OUGx0XTtN0zLO4uHdmNm3Zx54h9N9luVapPNmz7QAVzxtpcghHqyX-0OuHHWTy0lyvAn60DB4VO6GBHeb9f5Q5TxmCbDxqSlDEkbQH944OarLJTqgejeQBd6pWScU18g0dIlZwvdjig/s1600/awal.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="480" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi0OUGx0XTtN0zLO4uHdmNm3Zx54h9N9luVapPNmz7QAVzxtpcghHqyX-0OuHHWTy0lyvAn60DB4VO6GBHeb9f5Q5TxmCbDxqSlDEkbQH944OarLJTqgejeQBd6pWScU18g0dIlZwvdjig/s640/awal.JPG" width="640" /></a></div>
<br />
<b>Setelah Di Edit</b><br />
<br />
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7lQO0hMCjX7YJgMDMVBLooyI9DvL3uCrLtc1pbK-1NnI8sDL9IU7DO1RQe5ueofG9yXUdEnP1j1SWHgR41NyrL0a1e3ztfMg2ZBLVJtT3PsW44wspC3-ztJxnslmbcz0By8ylaDQC-7w/s1600/awal2.JPG" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="482" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEj7lQO0hMCjX7YJgMDMVBLooyI9DvL3uCrLtc1pbK-1NnI8sDL9IU7DO1RQe5ueofG9yXUdEnP1j1SWHgR41NyrL0a1e3ztfMg2ZBLVJtT3PsW44wspC3-ztJxnslmbcz0By8ylaDQC-7w/s640/awal2.JPG" width="640" /></a></div>
Hasil yang sudah di simpan / <b>Save </b>, Filenya menjadi<b> JPG</b>
Dan File ini bisa anda Upload di Blog anda
</div>
jlwansorihttp://www.blogger.com/profile/05645505383352000453noreply@blogger.com0