tag:blogger.com,1999:blog-5101583409018752071.post1697098065631837402..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 31 Apkom 4 D4 ALibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger39125tag:blogger.com,1999:blog-5101583409018752071.post-3364488778471208802012-10-14T17:40:36.360-07:002012-10-14T17:40:36.360-07:00http://masdarwati.blogspot.com/2012/10/latihan31a4...http://masdarwati.blogspot.com/2012/10/latihan31a46110024.html<br />http://masdarwati.blogspot.com/2012/10/latihan31b46110024.htmlAnonymoushttps://www.blogger.com/profile/13169106051094781872noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-9180355111760346742012-10-14T11:25:47.124-07:002012-10-14T11:25:47.124-07:00http://yuliaasrida427.blogspot.com/2012/10/latihan...http://yuliaasrida427.blogspot.com/2012/10/latihan31a46110009.html<br /><br />http://yuliaasrida427.blogspot.com/2012/10/latihan31b46110009.htmlAnonymoushttps://www.blogger.com/profile/03242966403433176866noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-8258995799040091332012-10-14T10:46:17.996-07:002012-10-14T10:46:17.996-07:00http://deodns.blogspot.com/2012/10/latihan31a46110...http://deodns.blogspot.com/2012/10/latihan31a46110040.html<br /><br />http://deodns.blogspot.com/2012/10/latihan31b46110040.htmlAnonymoushttps://www.blogger.com/profile/01401294292601104307noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-16270884058631613182012-10-14T08:57:35.158-07:002012-10-14T08:57:35.158-07:00
http://cacalisa.blogspot.com/2012/10/latihan3... <br />http://cacalisa.blogspot.com/2012/10/latihan31a46110038.html<br />http://cacalisa.blogspot.com/2012/10/latihan31b46110038_5318.html<br />Anonymoushttps://www.blogger.com/profile/14057638266713195280noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-84347468414555304842012-10-14T08:36:10.272-07:002012-10-14T08:36:10.272-07:00http://rafidashaleh.blogspot.com/2012/10/latihan31...http://rafidashaleh.blogspot.com/2012/10/latihan31a46110041_1139.html<br />http://rafidashaleh.blogspot.com/2012/10/latihan31b46110041.html<br />Anonymoushttps://www.blogger.com/profile/08332251803411100570noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-574009902634973462012-10-14T08:14:00.542-07:002012-10-14T08:14:00.542-07:00http://aardianzah2.blogspot.com/2012/10/latihan-31...http://aardianzah2.blogspot.com/2012/10/latihan-31a.html<br />http://aardianzah2.blogspot.com/2012/10/latihan-31b.htmlAnonymoushttps://www.blogger.com/profile/09306577003240520363noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-69628515192020782362012-10-14T06:52:55.433-07:002012-10-14T06:52:55.433-07:00http://bahrizj.blogspot.com/2012/10/latihan31a4611...http://bahrizj.blogspot.com/2012/10/latihan31a46110001.html<br />http://bahrizj.blogspot.com/2012/10/latihan31b46110001.htmlAnonymoushttps://www.blogger.com/profile/09750601104356715042noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-68885612127856314102012-10-14T06:44:50.238-07:002012-10-14T06:44:50.238-07:00http://bothbon.blogspot.com/2012/10/latihan31a4611...http://bothbon.blogspot.com/2012/10/latihan31a46110043.html<br />http://bothbon.blogspot.com/2012/10/latihan31b46110043.htmlAnonymoushttps://www.blogger.com/profile/15798730023977438665noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-39370734903633406042012-10-14T06:22:35.567-07:002012-10-14T06:22:35.567-07:00http://muthmil8.blogspot.com/2012/10/latihan31adan...http://muthmil8.blogspot.com/2012/10/latihan31adan31b46110037.htmlAnonymoushttps://www.blogger.com/profile/03871065727125228441noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24611577057186237522012-10-14T05:27:17.885-07:002012-10-14T05:27:17.885-07:00http://fitrianihamka.blogspot.com/2012/10/latihan3...http://fitrianihamka.blogspot.com/2012/10/latihan31a46110006.html<br />http://fitrianihamka.blogspot.com/2012/10/latihan31b46110006.htmlAnonymoushttps://www.blogger.com/profile/03380462792832512144noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-50160450319248435072012-10-14T04:37:07.226-07:002012-10-14T04:37:07.226-07:00http://feibyfrycilia.blogspot.com/2012/10/latihan3...http://feibyfrycilia.blogspot.com/2012/10/latihan31a46110055.html<br />http://feibyfrycilia.blogspot.com/2012/10/latihan31b46110055.htmlFeiby Fryciliahttps://www.blogger.com/profile/03460027769707026117noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-56337034152305534432012-10-14T00:52:14.026-07:002012-10-14T00:52:14.026-07:00http://dianmegariski.blogspot.com/2012/10/latihan3...http://dianmegariski.blogspot.com/2012/10/latihan31a46110023_13.html<br /><br />http://dianmegariski.blogspot.com/2012/10/latihan31b46110023_13.htmlAnonymoushttps://www.blogger.com/profile/17454771179032969739noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-70669091222577640172012-10-13T22:57:58.214-07:002012-10-13T22:57:58.214-07:00http://mulyawarman039.blogspot.com/2012/10/latihan...http://mulyawarman039.blogspot.com/2012/10/latihan31a46110039.html<br />http://mulyawarman039.blogspot.com/2012/10/latihan31b46110039.htmlDunia Ilmuhttps://www.blogger.com/profile/14635936855144899876noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-59150748481494684212012-10-13T22:14:48.861-07:002012-10-13T22:14:48.861-07:00http://amalmaulana92.blogspot.com/2012/10/latihan3...http://amalmaulana92.blogspot.com/2012/10/latihan31a46110003.html<br /><br />http://amalmaulana92.blogspot.com/2012/10/latihan31b46110003.htmlAnonymoushttps://www.blogger.com/profile/10760449769494684727noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-74014656381826984942012-10-13T20:39:36.887-07:002012-10-13T20:39:36.887-07:00http://restyaccounting.blogspot.com/2012/10/latiha...http://restyaccounting.blogspot.com/2012/10/latihan31a46110027.html<br />http://restyaccounting.blogspot.com/2012/10/latihan31b46110027.htmlAnonymoushttps://www.blogger.com/profile/17450313429115390826noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-68913425351738220132012-10-13T19:48:29.660-07:002012-10-13T19:48:29.660-07:00http://sulhihusni.blogspot.com/2012/10/latihan31a4...http://sulhihusni.blogspot.com/2012/10/latihan31a46110004.html<br />http://sulhihusni.blogspot.com/2012/10/latihan31b46110004.htmlAnonymoushttps://www.blogger.com/profile/12004823514871491961noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-52344897075214972622012-10-13T17:20:57.422-07:002012-10-13T17:20:57.422-07:00http://idhamsyaam.blogspot.com/2012/10/latihan3146...http://idhamsyaam.blogspot.com/2012/10/latihan3146110021.htmlAnonymoushttps://www.blogger.com/profile/06418343465087062898noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-24454455934548713322012-10-13T10:51:02.909-07:002012-10-13T10:51:02.909-07:00http://hanihasan07.blogspot.com/2012/10/latihan31a...http://hanihasan07.blogspot.com/2012/10/latihan31a46110044.html<br />http://hanihasan07.blogspot.com/2012/10/latihan31b46110044.htmlAnonymoushttps://www.blogger.com/profile/14732440864830202412noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-38074377617527332562012-10-13T07:55:56.912-07:002012-10-13T07:55:56.912-07:00http://alfaega.blogspot.com/2012/10/latihan30b4611...http://alfaega.blogspot.com/2012/10/latihan30b46110022.html<br /><br />http://alfaega.blogspot.com/2012/10/latihan31b46110022.htmlAnonymoushttps://www.blogger.com/profile/01803667575589481239noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-68574952291893523472012-10-13T06:28:53.680-07:002012-10-13T06:28:53.680-07:00http://srikartikafanty.blogspot.com/2012/10/latiha...http://srikartikafanty.blogspot.com/2012/10/latihan31a46110007_11.html<br /><br />http://srikartikafanty.blogspot.com/2012/10/latihan31b46110007.htmlAnonymoushttps://www.blogger.com/profile/05401404481719404336noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-17471324035566216902012-10-13T06:19:17.576-07:002012-10-13T06:19:17.576-07:00http://diyanahdina.blogspot.com/2012/10/latihan31a...http://diyanahdina.blogspot.com/2012/10/latihan31a46110045.html<br /><br />http://diyanahdina.blogspot.com/2012/10/latihan31b46110045.htmlAnonymoushttps://www.blogger.com/profile/07106493145242308593noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-91827796653981879272012-10-12T21:45:43.556-07:002012-10-12T21:45:43.556-07:00http://ildayani.blogspot.com/2012/10/latihan31a461...http://ildayani.blogspot.com/2012/10/latihan31a46110002.html<br /><br />http://ildayani.blogspot.com/2012/10/latihan31b46110002.htmlildayanihttps://www.blogger.com/profile/15575500455404161907noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-91328920531579860652012-10-12T19:22:13.124-07:002012-10-12T19:22:13.124-07:00http://wahyunirachman.blogspot.com/2012/10/latihan...http://wahyunirachman.blogspot.com/2012/10/latihan31a46110020.html<br /><br />http://wahyunirachman.blogspot.com/2012/10/latihan31b46110020.htmlAnonymoushttps://www.blogger.com/profile/10076815054461435453noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-34413263543282617992011-11-20T16:32:42.104-08:002011-11-20T16:32:42.104-08:00tugasku 27-34
http://arularva.blogspot.com/2011/...tugasku 27-34<br /><br /><br />http://arularva.blogspot.com/2011/11/tugas-27-34-muh-fahrul-46109005_20.htmlARUL BLOGhttps://www.blogger.com/profile/08740170435356137942noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-64239774822813289452011-11-20T06:33:14.549-08:002011-11-20T06:33:14.549-08:00WAHDANIAH
46109051
LATIHAN31A_46109051
Public Cla...WAHDANIAH<br />46109051<br /><br />LATIHAN31A_46109051<br />Public Class LATIHAN31A_46109051<br /> Dim nia As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=WAHDANIAH")<br /> Dim GO As New DataTable<br /> Public Sub ambildata()<br /> Dim data As New OleDb.OleDbDataAdapter<br /> data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", nia)<br /> GO.Rows.Clear()<br /> data.Fill(GO)<br /> data.Dispose()<br /> End Sub<br /><br /> Private Sub LATIHAN31A_46109051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> ambildata()<br /> dg46109051.DataSource = GO<br /> End Sub<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If LATIHAN31B_46109051.Visible = False Then<br /> LATIHAN31B_46109051.Show()<br /> Else<br /> LATIHAN31B_46109051.Activate()<br /> End If<br /> LATIHAN31B_46109051.KB.Text = dg46109051.CurrentRow.Cells("KODEBARANG").Value<br /> LATIHAN31B_46109051.TB146109051.Text = dg46109051.CurrentRow.Cells("KODEBARANG").Value<br /> LATIHAN31B_46109051.TB246109051.Text = dg46109051.CurrentRow.Cells("NAMABARANG").Value<br /> LATIHAN31B_46109051.TB346109051.Text = dg46109051.CurrentRow.Cells("HARGAJUAL").Value<br /> LATIHAN31B_46109051.TB446109051.Text = dg46109051.CurrentRow.Cells("JUMLAHBARANG").Value<br /> End Sub<br />End Class<br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br /><br />LATIHAN31B_46109051<br />Public Class LATIHAN31B_46109051<br /> Dim nia As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=WAHDANIAH")<br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If TB146109051.Text.Length = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If TB246109051.Text.Length = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(TB346109051.Text) = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(TB446109051.Text) = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If KB.Text <> TB146109051.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG","KODEBARANG", TB146109051.Text, 1, nia)<br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("the data has been exist please insert new data")<br /> TB146109051.Text = ""<br /> TB246109051.Text = ""<br /> TB346109051.Text = ""<br /> TB446109051.Text = ""<br /> Exit Sub<br /> End If<br /> End If<br />Dim Cm As New OleDb.OleDbCommand<br /> Cm = New OleDb.OleDbCommand("update BARANG set KODEBARANG ='" & TB146109051.Text & "', NAMABARANG = '" & TB246109051.Text & "', HARGAJUAL=" & Val(TB346109051.Text) & ", JUMLAHBARANG=" & Val(TB446109051.Text) & " where KODEBARANG='" & KB.Text & "'", nia)<br /> nia.Open()<br /> Cm.ExecuteNonQuery()<br /> nia.Close()<br /> Cm.Dispose()<br /><br /> KB.Text = ""<br /> TB146109051.Text = ""<br /> TB246109051.Text = ""<br /> TB346109051.Text = ""<br /> TB446109051.Text = ""<br /> LATIHAN31A_46109051.ambildata()<br /> Me.Close()<br /> End Sub<br />End ClassWAHDANIAHhttps://www.blogger.com/profile/03801924145540464950noreply@blogger.com