tag:blogger.com,1999:blog-5101583409018752071.post3853145729134224186..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 30 Apkom 4 D3 BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger40125tag:blogger.com,1999:blog-5101583409018752071.post-68789909750561718842012-10-27T18:38:34.769-07:002012-10-27T18:38:34.769-07:00http://ruslancullank1.blogspot.com/2012/10/deskrip...http://ruslancullank1.blogspot.com/2012/10/deskripsilatihan30a36110054.html<br />http://ruslancullank1.blogspot.com/2012/10/deskripsilatihan30b36110054.htmlAnonymoushttps://www.blogger.com/profile/07785976701250519050noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-82833242016131983172012-10-14T15:22:15.162-07:002012-10-14T15:22:15.162-07:00http://sukadriady.blogspot.com/2012/10/latihan30a3...http://sukadriady.blogspot.com/2012/10/latihan30a36110043.html<br />http://sukadriady.blogspot.com/2012/10/latihan30b36110043.htmlAnonymoushttps://www.blogger.com/profile/14172649290428990971noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-27545666177170436012012-10-14T11:03:32.493-07:002012-10-14T11:03:32.493-07:00http://zulkiflitryputra.blogspot.com/2012/10/latih...http://zulkiflitryputra.blogspot.com/2012/10/latihan30a36110046.html<br /><br />http://zulkiflitryputra.blogspot.com/2012/10/latihan30b36110046.htmlAnonymoushttps://www.blogger.com/profile/06374059421156758949noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-31109827125243584072012-10-14T07:09:28.187-07:002012-10-14T07:09:28.187-07:00http://hasfiahzain.blogspot.com/2012/10/latihan30a...http://hasfiahzain.blogspot.com/2012/10/latihan30a36110052.html<br /><br />http://hasfiahzain.blogspot.com/2012/10/latihan30b36110052.htmlAnonymoushttps://www.blogger.com/profile/05718352479143249482noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-40894818447102282742012-10-14T02:55:10.434-07:002012-10-14T02:55:10.434-07:00http://burhankhang58.blogspot.com/2012/10/latihan3...http://burhankhang58.blogspot.com/2012/10/latihan30a36110047.html<br /><br />http://burhankhang58.blogspot.com/2012/10/latihan30b36110047.htmlAnonymoushttps://www.blogger.com/profile/01905684051425482431noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-59586498980719928632012-10-14T02:19:49.685-07:002012-10-14T02:19:49.685-07:00http://03melisa.blogspot.com/2012/10/latihan-30a-3...http://03melisa.blogspot.com/2012/10/latihan-30a-36110051-apkom-4-d3b.html<br /><br />http://03melisa.blogspot.com/2012/10/latihan-30b-36110051-apkom-4-d3b.htmlMelissa Rantehttps://www.blogger.com/profile/00594944263660776652noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-63541591784173794692012-10-13T20:00:53.326-07:002012-10-13T20:00:53.326-07:00http://reskypurwono.blogspot.com/2012/10/prosedur-...http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan30a36110037.html<br /><br />http://reskypurwono.blogspot.com/2012/10/prosedur-penyelesaian-latihan30b36110037.htmlAnonymoushttps://www.blogger.com/profile/07193168636379013803noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-48823631982354317022012-10-13T17:52:14.137-07:002012-10-13T17:52:14.137-07:00http://dewiwahyuni91.blogspot.com/2012/10/latihan3...http://dewiwahyuni91.blogspot.com/2012/10/latihan30a36110038.html<br /><br />http://dewiwahyuni91.blogspot.com/2012/10/latihan30b36110038_11.htmlAnonymoushttps://www.blogger.com/profile/17648175423239262214noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-18410763944410685322012-10-13T09:35:32.802-07:002012-10-13T09:35:32.802-07:00http://tiya-sri.blogspot.com/2012/10/latihan30a361...http://tiya-sri.blogspot.com/2012/10/latihan30a36110044-aplikasi-komputer-4.html<br /><br />http://tiya-sri.blogspot.com/2012/10/latihan30b36110044-aplikasi-komputer-4.htmlAnonymoushttps://www.blogger.com/profile/10665191968886515587noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-47657121218887951562012-10-13T04:35:05.339-07:002012-10-13T04:35:05.339-07:00http://sriayu-36110030.blogspot.com/2012/10/diskri...http://sriayu-36110030.blogspot.com/2012/10/diskripsi-prosedur-latihan-30-a.html<br /><br />http://sriayu-36110030.blogspot.com/2012/10/diskripsi-prosedur-latihan-30-b.htmlAnonymoushttps://www.blogger.com/profile/01548502167024728719noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-44687017552442325112012-10-13T02:54:44.205-07:002012-10-13T02:54:44.205-07:00http://rainaagrippinaa.blogspot.com/2012/10/latiha...http://rainaagrippinaa.blogspot.com/2012/10/latihan30a36110032.html<br />http://rainaagrippinaa.blogspot.com/2012/10/latihan30b36110032.htmlAnonymoushttps://www.blogger.com/profile/13354635438685899026noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-13752953097853262362012-10-13T02:09:47.776-07:002012-10-13T02:09:47.776-07:00http://rosyanausman.blogspot.com/2012/10/latihan30...http://rosyanausman.blogspot.com/2012/10/latihan30a36110036.html<br />http://rosyanausman.blogspot.com/2012/10/latihan30b36110036.htmlAnonymoushttps://www.blogger.com/profile/06478938190956913306noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-19435446944420410422012-10-13T01:49:40.976-07:002012-10-13T01:49:40.976-07:00http://benhilll.blogspot.com/2012/10/deskripsi-dan...http://benhilll.blogspot.com/2012/10/deskripsi-dan-prosedur_5426.html<br />http://benhilll.blogspot.com/2012/10/deskripsi-dan-prosedur_388.htmlAnonymoushttps://www.blogger.com/profile/02962008162345843047noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-21107062669397174372012-10-13T01:25:30.061-07:002012-10-13T01:25:30.061-07:00http://audryasharii.blogspot.com/2012/10/latihan30...http://audryasharii.blogspot.com/2012/10/latihan30a36110031.html<br /><br />http://audryasharii.blogspot.com/2012/10/latihan30b36110031.htmlAnonymoushttps://www.blogger.com/profile/04022967926017941155noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-7455671333328958832012-10-13T00:40:48.924-07:002012-10-13T00:40:48.924-07:00http://rahmisuryatama05.blogspot.com/2012/10/latih...http://rahmisuryatama05.blogspot.com/2012/10/latihan30a36110040.html<br /><br />http://rahmisuryatama05.blogspot.com/2012/10/latihan30b36110040.htmlAnonymoushttps://www.blogger.com/profile/11787086800668587183noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24512374731328734362012-10-12T23:07:42.472-07:002012-10-12T23:07:42.472-07:00http://andiniwarakusuma.blogspot.com/2012/10/latih...http://andiniwarakusuma.blogspot.com/2012/10/latihan30a36110034.html<br />http://andiniwarakusuma.blogspot.com/2012/10/latihan30b36110034.html<br />Anonymoushttps://www.blogger.com/profile/01609965217765355028noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-53768272266872908392012-10-12T22:51:06.773-07:002012-10-12T22:51:06.773-07:00http://rizka-azisah.blogspot.com/2012/10/deskripsi...http://rizka-azisah.blogspot.com/2012/10/deskripsi-penyelesaian_4501.html<br />http://rizka-azisah.blogspot.com/2012/10/deskripsi-penyelesaian_6538.htmlAnonymoushttps://www.blogger.com/profile/00149478446271147366noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-90264017278445448512012-10-12T22:17:44.876-07:002012-10-12T22:17:44.876-07:00http://ilhaazzahra.blogspot.com/2012/10/latihan30a...http://ilhaazzahra.blogspot.com/2012/10/latihan30a36110033.html<br />http://ilhaazzahra.blogspot.com/2012/10/latihan30b36110033.htmlIlaH Az Zahrahttps://www.blogger.com/profile/03759381654696028640noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-62876587685059131082012-10-12T06:46:05.362-07:002012-10-12T06:46:05.362-07:00http://ias-anakbola.blogspot.com/2012/10/latihan30...http://ias-anakbola.blogspot.com/2012/10/latihan30a36110056.html<br />http://ias-anakbola.blogspot.com/2012/10/latihan30b36110056.htmlAnonymoushttps://www.blogger.com/profile/13576830636941977980noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-28948348329135239442012-10-10T21:08:34.590-07:002012-10-10T21:08:34.590-07:00http://nurhanalott.blogspot.com/2012/10/latihan30a...http://nurhanalott.blogspot.com/2012/10/latihan30a36110029.html<br />http://nurhanalott.blogspot.com/2012/10/latihan30b36110029.htmlAnonymoushttps://www.blogger.com/profile/04493824380783573535noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-77212082754145735482012-10-10T19:45:56.919-07:002012-10-10T19:45:56.919-07:00http://nurrahmahrasyid2.blogspot.com/2012/10/latih...http://nurrahmahrasyid2.blogspot.com/2012/10/latihan30a36110042.html<br /><br />http://nurrahmahrasyid2.blogspot.com/2012/10/latihan30b36110042.htmlAnonymoushttps://www.blogger.com/profile/07172802010313420663noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24052162208068643722012-10-09T23:46:43.728-07:002012-10-09T23:46:43.728-07:00http://www.masnurselayar.blogspot.com/2012/10/lati...http://www.masnurselayar.blogspot.com/2012/10/latihan-30a36110055.html<br /><br />http://www.masnurselayar.blogspot.com/2012/10/latihan-30b36110055.htmlMasnur Orzhelhttps://www.blogger.com/profile/17305068911940211945noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-61086435554022313752012-10-09T18:25:35.257-07:002012-10-09T18:25:35.257-07:00http://hilariusmariotonapa.blogspot.com/2012/10/pr...http://hilariusmariotonapa.blogspot.com/2012/10/prosedur-penyelesaian.html<br /><br />http://hilariusmariotonapa.blogspot.com/2012/10/deskripsi-latihan30a36110048.html<br /><br /><br />http://hilariusmariotonapa.blogspot.com/2012/10/prosedur-penyelesaian-latihan30b36110048.html<br /><br />http://hilariusmariotonapa.blogspot.com/2012/10/deskripsi-latihan30b36110048.htmlAnonymoushttps://www.blogger.com/profile/01490345972859816412noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-89974397509783889142011-11-17T22:04:30.074-08:002011-11-17T22:04:30.074-08:00Public Class LATIHAN030B36109030
Dim conect A...Public Class LATIHAN030B36109030<br /><br /> Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=sanie")<br /> Dim cari As New ByIskandar.CariKeDataBaseByIskandar<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /><br /> If Val(t1.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If t2.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t3.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(t4.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /><br /> cari.AturPencarianDataBase("BARANG", "KODEBARANG", kb.Text, 1, conect)<br /><br /> If cari.JumlanBaris = False Then<br /> MsgBox("kode tidak ada")<br /> Exit Sub<br /> End If<br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("UPDATE BARANG SET kodebarang = '" & t1.Text & "', namabarang = '" & t2.Text & "', hargajual = " & Val(t3.Text) & ", jumlahbarang = " & Val(t4.Text) & " where kodebarang ='" & kb.Text & "'", conect)<br /><br /> conect.Open()<br /> com.ExecuteNonQuery()<br /> conect.Close()<br /> com.Dispose()<br /><br /> kb.Text = ""<br /> t1.Text = ""<br /> t2.Text = ""<br /> t3.Text = ""<br /> t4.Text = ""<br /><br /> End Sub<br />End ClassAsrul Saniehttps://www.blogger.com/profile/14340074265214629058noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-44642735994740914152011-11-17T22:02:37.870-08:002011-11-17T22:02:37.870-08:00Dim CONECT As New OleDb.OleDbConnection("prov...Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=sanie")<br />Dim sanie As New DataTable<br />Private Sub latihan153619030_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> Dim mencoba As New OleDb.OleDbDataAdapter<br /> mencoba = New OleDb.OleDbDataAdapter("select * from barang", conect)<br /> mencoba.Fill(sanie)<br /> DataGridView1.DataSource = sanie<br />End Sub<br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If LATIHAN030B36109030.Visible = False Then<br /> LATIHAN030B36109030.Show()<br /> Else<br /> LATIHAN030B36109030.Activate()<br /> End If<br />End Sub<br /><br />End ClassAsrul Saniehttps://www.blogger.com/profile/14340074265214629058noreply@blogger.com