tag:blogger.com,1999:blog-5101583409018752071.post6127627027646310450..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 29 Apkom 4 D4 BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger10125tag:blogger.com,1999:blog-5101583409018752071.post-55469304282733879722011-11-20T06:24:43.390-08:002011-11-20T06:24:43.390-08:00http://irvanbravely.blogspot.com/2011/11/latihan-2...http://irvanbravely.blogspot.com/2011/11/latihan-29-apkom.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-16497478775305631802011-11-19T17:43:34.914-08:002011-11-19T17:43:34.914-08:00http://taufiqgooners.blogspot.com/2011/11/latihan-...http://taufiqgooners.blogspot.com/2011/11/latihan-29-apkom.htmlTaufiq Goonershttps://www.blogger.com/profile/13923624470604599688noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-38018895235281695042011-11-18T20:44:52.818-08:002011-11-18T20:44:52.818-08:00http://kumpulanlatihan46109060.blogspot.com/2011/1...http://kumpulanlatihan46109060.blogspot.com/2011/11/latihan-29.htmlZulfadlihttps://www.blogger.com/profile/09728376487010325617noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-34525692407434645742011-11-18T06:03:36.428-08:002011-11-18T06:03:36.428-08:00Public Class Form29
Dim go As New OleDb.OleDbC...Public Class Form29<br /> Dim go As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=allah swt")<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If kb.Text.Length = 0 Then<br /> MsgBox("please insert your text")<br /> Exit Sub<br /> End If<br /> If vd1_052.Text.Length = 0 Then<br /> MsgBox("please insert your text")<br /> Exit Sub<br /> End If<br /> If vd2_052.Text.Length = 0 Then<br /> MsgBox("please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(vd3_052.Text) = 0 Then<br /> MsgBox("please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(vd4_052.Text) = 0 Then<br /> MsgBox("please insert your text")<br /> Exit Sub<br /> End If<br /><br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", vd1_052.Text, 1, go)<br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("the data has been exist please insert new data")<br /> kb.Text = ""<br /> vd2_052.Text = ""<br /> vd3_052.Text = ""<br /> vd4_052.Text = ""<br /> Exit Sub<br /> End If<br /><br /> Dim Cm As New OleDb.OleDbCommand<br /> Cm = New OleDb.OleDbCommand("update BARANG set KODEBARANG ='" & vd1_052.Text & "' , NAMABARANG = '" & vd2_052.Text & "' , HARGAJUAL=" & Val(vd3_052.Text) & ", JUMLAHBARANG =" & Val(vd4_052.Text) & " where KODEBARANG ='" & kb.Text & "'", go)<br /> go.Open()<br /> Cm.ExecuteNonQuery()<br /> go.Close()<br /> Cm.Dispose()<br /> kb.Text = ""<br /> vd1_052.Text = ""<br /> vd2_052.Text = ""<br /> vd3_052.Text = ""<br /> vd4_052.Text = ""<br /> End Sub<br />End Classvesadekahttps://www.blogger.com/profile/08263992576077034177noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-62826208249759349452011-11-18T04:42:54.208-08:002011-11-18T04:42:54.208-08:00Komentar ini telah dihapus oleh pengarang.vesadekahttps://www.blogger.com/profile/08263992576077034177noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-84367615915799421732011-11-17T23:48:18.241-08:002011-11-17T23:48:18.241-08:00Public Class Latihan2946109047
Dim go As New ...Public Class Latihan2946109047<br /><br /> Dim go As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:database password=979264")<br /> <br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If kb46109047.Text.Length = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If t146109047.Text.Length = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If t246109047.Text.Length = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109047.Text) = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109047.Text) = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t146109047.Text, 1, go)<br /><br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("The data has been exist please insert new data")<br /><br /> kb46109047.Text = ""<br /> t146109047.Text = ""<br /> t246109047.Text = ""<br /> t346109047.Text = ""<br /> t446109047.Text = ""<br /> Exit Sub<br /> End If<br /><br /> Dim Cm As New OleDb.OleDbCommand<br /> Cm = New OleDb.OleDbCommand("Update BARANG set KODEBARANG ='" & t146109047.Text & "', NAMABARANG = '" & t246109047.Text & "', HARGAJUAL=" & Val(t346109047.Text) & ", JUMLAHBARANG=" & Val(t446109047.Text) & " where KODEBARANG='" & kb46109047.Text & "'", go)<br /> go.Open()<br /> Cm.ExecuteNonQuery()<br /> go.Close()<br /> Cm.Dispose()<br /><br /> kb46109047.Text = ""<br /> t146109047.Text = ""<br /> t246109047.Text = ""<br /> t346109047.Text = ""<br /> t446109047.Text = ""<br /> End Sub<br /><br /> Private Sub Latihan2946109047_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /> End Sub<br />End ClassDunia Koesong Satoehttps://www.blogger.com/profile/03634313871294669860noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-18520220002708843492011-11-17T23:03:55.191-08:002011-11-17T23:03:55.191-08:00Public Class Latihan029_46109015
Dim go As New Ole...Public Class Latihan029_46109015<br />Dim go As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:database password=015")<br />Private Sub Button1035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_46109015.Click<br />If kb46109015.Text.Length = 0 Then<br />MsgBox("Please Insert Your Text")<br />Exit Sub<br />End If<br /><br />If t1_46109015.Text.Length = 0 Then<br />MsgBox("Please Insert Your Text")<br />Exit Sub<br />End If<br /><br />If t2_46109015.Text.Length = 0 Then<br />MsgBox("Please Insert Your Text")<br />Exit Sub<br />End If<br /><br />If Val(t3_46109015.Text) = 0 Then<br />MsgBox("Please Insert Your Text")<br />Exit Sub<br />End If<br /><br />If Val(t4_46109015.Text) = 0 Then<br />MsgBox("Please Insert Your Text")<br />Exit Sub<br />End If<br /><br />Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br />PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t1_46109015.Text, 1, go)<br /><br />If PENCARI.JumlanBaris > 0 Then<br />MsgBox("The data has been exist please insert new data")<br /><br />kb46109015.Text = ""<br />t1_46109015.Text = ""<br />t2_46109015.Text = ""<br />t3_46109015.Text = ""<br />t4_46109015.Text = ""<br />Exit Sub<br />End If<br /><br />Dim Cm As New OleDb.OleDbCommand<br />Cm = New OleDb.OleDbCommand("Update BARANG set KODEBARANG ='" & t1_46109015.Text & "', NAMABARANG = '" & t2_46109015.Text & "', HARGAJUAL=" & Val(t3_46109015.Text) & ", JUMLAHBARANG=" & Val(t4_46109015.Text) & " where KODEBARANG='" & kb46109015.Text & "'", go)<br />go.Open()<br />Cm.ExecuteNonQuery()<br />go.Close()<br />Cm.Dispose()<br /><br />kb46109015.Text = ""<br />t1_46109015.Text = ""<br />t2_46109015.Text = ""<br />t3_46109015.Text = ""<br />t4_46109015.Text = ""<br />End Sub<br />End ClassQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-44968588104828683822011-11-17T18:53:55.715-08:002011-11-17T18:53:55.715-08:00Andi Muh. Yusri
46109038
Public Class Latihan29_4...Andi Muh. Yusri<br />46109038<br /><br />Public Class Latihan29_46109038<br /> Dim yusri As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb;jet OleDb:database password=300591")<br /><br /> Private Sub Latihan29_46109038_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /> End Sub<br /><br /> Private Sub Simpan_46109038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_46109038.Click<br /> If Val(KoBar_46109038.Text) = 0 Then<br /> MsgBox("kode barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(KobarBaru_46109038.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If NamBar_46109038.Text.Length = 0 Then<br /> MsgBox("nama barang belum terisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(HarJu_46109038.Text) = 0 Then<br /> MsgBox("harga jual belum diisi")<br /> Exit Sub<br /> End If<br /><br /> If Val(JumBar_46109038.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<br /> Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", KobarBaru_46109038.Text, 1, yusri)<br /><br /> If Pencari.JumlanBaris > 0 Then<br /> MsgBox("kode sudah ada")<br /> KoBar_46109038.Text = ""<br /> KobarBaru_46109038.Text = ""<br /> NamBar_46109038.Text = ""<br /> JumBar_46109038.Text = ""<br /> HarJu_46109038.Text = ""<br /> Exit Sub<br /> End If<br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("update Barang set KODEBARANG='" & KobarBaru_46109038.Text & "',NAMABARANG='" & NamBar_46109038.Text & "',hargajual=" & Val(HarJu_46109038.Text) & ", JUMLAHBARANG=" & Val(JumBar_46109038.Text) & " where KODEBARANG='" & KoBar_46109038.Text & "'", yusri)<br /> yusri.Open()<br /> com.ExecuteNonQuery()<br /> yusri.Close()<br /> com.Dispose()<br /><br /> KoBar_46109038.Text = ""<br /> KobarBaru_46109038.Text = ""<br /> NamBar_46109038.Text = ""<br /> JumBar_46109038.Text = ""<br /> HarJu_46109038.Text = ""<br /><br /> End Sub<br />End ClassUchy Bloghttps://www.blogger.com/profile/18429202553081624437noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-1080020217823145242011-11-17T17:38:54.367-08:002011-11-17T17:38:54.367-08:00Public Class Latihan29_46109050
Dim risky As ...Public Class Latihan29_46109050<br /><br /> Dim risky As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; Data Source=" & Application.StartupPath & "\DATABARANG.accdb;jet oledb:database password=kiki")<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If KB_46109050.Text.Length = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If QQ1_46109050.Text.Length = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If QQ2_46109050.Text.Length = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(QQ3_46109050.Text) = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(QQ4_46109050.Text) = 0 Then<br /> MsgBox("Please Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", QQ1_46109050.Text, 1, risky)<br /><br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("The data has been exist please insert new data")<br /> QQ1_46109050.Text = ""<br /> QQ2_46109050.Text = ""<br /> QQ3_46109050.Text = ""<br /> QQ4_46109050.Text = ""<br /> Exit Sub<br /> End If<br /> Dim cm As New OleDb.OleDbCommand<br /> cm = New OleDb.OleDbCommand("Update BARANG set KODEBARANG ='" & QQ1_46109050.Text & "', NAMABARANG = '" & QQ2_46109050.Text & "', HARGAJUAL =" & Val(QQ3_46109050.Text) & ", JUMLAHBARANG = " & Val(QQ4_46109050.Text) & " where KODEBARANG = '" & KB_46109050.Text & "'", risky)<br /> risky.Open()<br /> cm.ExecuteNonQuery()<br /> risky.Close()<br /> cm.Dispose()<br /><br /> QQ1_46109050.Text = ""<br /> QQ2_46109050.Text = ""<br /> QQ3_46109050.Text = ""<br /> QQ4_46109050.Text = ""<br /> End Sub<br />End ClassAnonymoushttps://www.blogger.com/profile/06541325384628688641noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-23116225915054429372011-11-17T04:32:42.842-08:002011-11-17T04:32:42.842-08:00FARADILLAH AMALIA RIVAI
LATIHAN 29
Public Class ...FARADILLAH AMALIA RIVAI<br /><br />LATIHAN 29<br /><br />Public Class LATIHAN029_46109010<br /><br /><br /> Dim vr As New OleDb.OleDbCommand<br /> Dim farah As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim rossi As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=46")<br /><br /><br /><br /> Private Sub s46109010Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles s46109010.Click<br /> If kb46109010.Text.Length = 0 Then<br /> MsgBox("isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If t146109010.Text.Length = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If t246109010.Text.Length = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109010.Text) = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109010.Text) = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> Dim pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> pencari.AturPencarianDataBase("Barang", "KodeBarang", t146109010.Text, 1, rossi)<br /> If pencari.JumlanBaris > 0 Then<br /> MsgBox("data yang anda masukkan telah ada")<br /> Exit Sub<br /> End If<br /><br /><br /> vr = New OleDb.OleDbCommand("update barang set kodebarang = '" & t146109010.Text & "', namabarang = '" & t246109010.Text & "', hargajual = " & Val(t346109010.Text) & ", jumlahbarang = " & Val(t446109010.Text) & " where kodebarang = '" & kb46109010.Text & "'", rossi)<br /> rossi.Open()<br /> vr.ExecuteNonQuery()<br /> rossi.Close()<br /> vr.Dispose()<br /><br /> kb46109010.Text = ""<br /> t146109010.Text = ""<br /> t246109010.Text = ""<br /> t346109010.Text = ""<br /> t446109010.Text = ""<br /> End Sub<br />End ClassAnonymoushttps://www.blogger.com/profile/04241112887409566889noreply@blogger.com