tag:blogger.com,1999:blog-5101583409018752071.post6867022455315003083..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 31 Apkom 4 D4 BLibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger18125tag:blogger.com,1999:blog-5101583409018752071.post-43081021757861871052012-02-06T04:36:31.605-08:002012-02-06T04:36:31.605-08:00Public Class Latihan_31B_46109044
Dim syahril ...Public Class Latihan_31B_46109044<br /> Dim syahril As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /> Dim connect As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Private Sub ff_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109044.Click<br /> If KB46109044.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If NB46109044.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(HJ46109044.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(JB46109044.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If KB46109044.Text <> ee.Text Then<br /> syahril.AturPencarianDataBase("Barang", "KodeBarang", KB46109044.Text, 1, connect)<br /> If syahril.JumlanBaris > 0 Then<br /> MsgBox("Adami kode barang seperti itu")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("update barang set kodebarang = '" & KB46109044.Text & "', namabarang = '" & NB46109044.Text & "', hargajual = " & Val(HJ46109044.Text) & ", jumlahbarang = " & Val(JB46109044.Text) & " where kodebarang = '" & ee.Text & "'", connect)<br /><br /> connect.Open()<br /> cm.ExecuteNonQuery()<br /> connect.Close()<br /> cm.Dispose()<br /><br /> KB46109044.Text = ""<br /> NB46109044.Text = ""<br /> HJ46109044.Text = ""<br /> JB46109044.Text = ""<br /> ee.Text = "-"<br /><br /> Latihan_31A_46109044.syahril()<br /> End Sub<br /><br /> Private Sub Latihan_31B_46109044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /> End Sub<br />End ClassMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-35018450571002052392011-11-20T06:30:31.205-08:002011-11-20T06:30:31.205-08:00http://irvanbravely.blogspot.com/2011/11/latihan-3...http://irvanbravely.blogspot.com/2011/11/latihan-31-apkom.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-30841778111863297742011-11-19T17:46:14.736-08:002011-11-19T17:46:14.736-08:00http://taufiqgooners.blogspot.com/2011/11/latihan-...http://taufiqgooners.blogspot.com/2011/11/latihan-31-apkom.htmlTaufiq Goonershttps://www.blogger.com/profile/13923624470604599688noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-66136146312642396832011-11-18T20:48:06.549-08:002011-11-18T20:48:06.549-08:00http://kumpulanlatihan46109060.blogspot.com/2011/1...http://kumpulanlatihan46109060.blogspot.com/2011/11/latihan-31.htmlZulfadlihttps://www.blogger.com/profile/09728376487010325617noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-70975208979486357612011-11-18T06:14:28.188-08:002011-11-18T06:14:28.188-08:00Public Class Form31B
Dim conect As New OleDb.O...Public Class Form31B<br /> Dim conect 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 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 /> If KB.Text <> vd1_052.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", vd1_052.Text, 1, conect)<br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("the data has been exist please insert new data")<br /> vd1_052.Text = ""<br /> vd2_052.Text = ""<br /> vd3_052.Text = ""<br /> vd4_052.Text = ""<br /> Exit Sub<br /> End If<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 & "'", conect)<br /> conect.Open()<br /> Cm.ExecuteNonQuery()<br /> conect.Close()<br /> Cm.Dispose()<br /><br /> KB.Text = ""<br /> vd1_052.Text = ""<br /> vd2_052.Text = ""<br /> vd3_052.Text = ""<br /> vd4_052.Text = ""<br /><br /> Form31A.ambildata()<br /> Me.Close()<br /> End Sub<br />End Classvesadekahttps://www.blogger.com/profile/08263992576077034177noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-1329714639768682272011-11-18T05:21:24.653-08:002011-11-18T05:21:24.653-08:00Public Class Latihan31B46109026
Dim tinggal As...Public Class Latihan31B46109026<br /> Dim tinggal As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=26")<br /><br /> Private Sub Latihan31B46109026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If kb46109026.Text.Length = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If nb46109026.Text.Length = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(hj46109026.Text) = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(jb46109026.Text) = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /><br /> If KB.Text <> kb46109026.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kb46109026.Text, 1, tinggal)<br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("the data has been exist please insert new data")<br /> kb46109026.Text = ""<br /> nb46109026.Text = ""<br /> hj46109026.Text = ""<br /> jb46109026.Text = ""<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim Cm As New OleDb.OleDbCommand<br /> Cm = New OleDb.OleDbCommand("update BARANG set KODEBARANG ='" & kb46109026.Text & "', NAMABARANG = '" & nb46109026.Text & "', HARGAJUAL=" & Val(hj46109026.Text) & ", JUMLAHBARANG=" & Val(jb46109026.Text) & " where KODEBARANG='" & KB.Text & "'", tinggal)<br /> tinggal.Open()<br /> Cm.ExecuteNonQuery()<br /> tinggal.Close()<br /> Cm.Dispose()<br /><br /> KB.Text = ""<br /> kb46109026.Text = ""<br /> nb46109026.Text = ""<br /> hj46109026.Text = ""<br /> jb46109026.Text = ""<br /><br /> Latihan31A46109026.ambildata()<br /> Me.Close()<br /> End Sub<br />End ClassIbnu Hajar Hhttps://www.blogger.com/profile/15557045085503515674noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-5553348039291957672011-11-18T05:20:15.765-08:002011-11-18T05:20:15.765-08:00Public Class Latihan31A46109026
Dim tinggal As...Public Class Latihan31A46109026<br /> Dim tinggal As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=26")<br /> Dim pergi As New DataTable<br /> Public Sub ambildata()<br /> Dim data As New OleDb.OleDbDataAdapter<br /> data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", tinggal)<br /> pergi.Rows.Clear()<br /> data.Fill(pergi)<br /> data.Dispose()<br /> End Sub<br /><br /> Private Sub Latihan31A46109026_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> ambildata()<br /> dtg46109026.DataSource = pergi<br /> End Sub<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If Latihan31B46109026.Visible = False Then<br /> Latihan31B46109026.Show()<br /> Else<br /> Latihan31B46109026.Activate()<br /> End If<br /> Latihan31B46109026.KB.Text = dtg46109026.CurrentRow.Cells("KODEBARANG").Value<br /> Latihan31B46109026.kb46109026.Text = dtg46109026.CurrentRow.Cells("KODEBARANG").Value<br /> Latihan31B46109026.nb46109026.Text = dtg46109026.CurrentRow.Cells("NAMABARANG").Value<br /> Latihan31B46109026.hj46109026.Text = dtg46109026.CurrentRow.Cells("HARGAJUAL").Value<br /> Latihan31B46109026.jb46109026.Text = dtg46109026.CurrentRow.Cells("JUMLAHBARANG").Value<br /> End Sub<br />End ClassIbnu Hajar Hhttps://www.blogger.com/profile/15557045085503515674noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-4215485098251158042011-11-18T04:35:49.985-08:002011-11-18T04:35:49.985-08:00Public Class Latihan31_B_46109044
Dim jalan As...Public Class Latihan31_B_46109044<br /> Dim jalan As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet OLEDB:database password=46109044")<br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If tb146109044.Text.Length = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If tb246109044.Text.Length = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(tb346109044.Text) = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /> If Val(tb446109044.Text) = 0 Then<br /> MsgBox("Please insert your text")<br /> Exit Sub<br /> End If<br /><br /> If KB.Text <> tb146109044.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", tb146109044.Text, 1, jalan)<br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("the data has been exist please insert new data")<br /> tb146109044.Text = ""<br /> tb246109044.Text = ""<br /> tb346109044.Text = ""<br /> tb446109044.Text = ""<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim Cm As New OleDb.OleDbCommand<br /> Cm = New OleDb.OleDbCommand("update BARANG set KODEBARANG ='" & tb146109044.Text & "', NAMABARANG = '" & tb246109044.Text & "', HARGAJUAL=" & Val(tb346109044.Text) & ", JUMLAHBARANG=" & Val(tb446109044.Text) & " where KODEBARANG='" & KB.Text & "'", jalan)<br /> jalan.Open()<br /> Cm.ExecuteNonQuery()<br /> jalan.Close()<br /> Cm.Dispose()<br /><br /> KB.Text = ""<br /> tb146109044.Text = ""<br /> tb246109044.Text = ""<br /> tb346109044.Text = ""<br /> tb446109044.Text = ""<br /><br /> Latihan31_A_46109044.ambildata()<br /> Me.Close()<br /> End Sub<br />End ClassMuhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-54948958457759265432011-11-18T04:32:06.506-08:002011-11-18T04:32:06.506-08:00Komentar ini telah dihapus oleh pengarang.Muhammad Syahrilhttps://www.blogger.com/profile/11170049195428692341noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-80710463511053582662011-11-18T00:02:37.546-08:002011-11-18T00:02:37.546-08:00Public Class Latihan31B46109047
Dim Way As New...Public Class Latihan31B46109047<br /> Dim Way 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 t146109047.Text.Length = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If t246109047.Text.Length = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(t346109047.Text) = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(t446109047.Text) = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /><br /> If KB46109047.Text <> t146109047.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t146109047.Text, 1, Way)<br /><br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("The data has been exist please insert new data")<br /><br /><br /> t146109047.Text = " "<br /> t246109047.Text = " "<br /> t346109047.Text = " "<br /> t446109047.Text = " "<br /> Exit Sub<br /> End If<br /> End If<br /><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 & "'", Way)<br /> Way.Open()<br /> Cm.ExecuteNonQuery()<br /> Way.Close()<br /> Cm.Dispose()<br /><br /><br /> KB46109047.Text = "-"<br /> t146109047.Text = " "<br /> t246109047.Text = " "<br /> t346109047.Text = " "<br /> t446109047.Text = " "<br /><br /><br /> Latihan31A46109047.ambildata()<br /><br /><br /> Me.Close()<br /> End Sub<br />End ClassDunia Koesong Satoehttps://www.blogger.com/profile/03634313871294669860noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-19295431338468671142011-11-17T23:59:57.612-08:002011-11-17T23:59:57.612-08:00Public Class Latihan31A46109047
Dim Way As N...Public Class Latihan31A46109047<br /><br /><br /> Dim Way As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:database password=979264")<br /> Dim ambil As New DataTable<br /> Public Sub ambildata()<br /><br /> Dim data As New OleDb.OleDbDataAdapter<br /><br /> data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Way)<br /><br /> ambil.Rows.Clear()<br /><br /> data.Fill(ambil)<br /> data.Dispose()<br /><br /> End Sub<br /><br /><br /> Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br /> If Latihan31B46109047.Visible = False Then<br /> Latihan31B46109047.Show()<br /> Else<br /> Latihan31B46109047.Activate()<br /> End If<br /><br /> Latihan31B46109047.KB46109047.Text = DGV46109047.CurrentRow.Cells("KODEBARANG").Value<br /> Latihan31B46109047.t146109047.Text = DGV46109047.CurrentRow.Cells("KODEBARANG").Value<br /> Latihan31B46109047.t246109047.Text = DGV46109047.CurrentRow.Cells("NAMABARANG").Value<br /> Latihan31B46109047.t346109047.Text = DGV46109047.CurrentRow.Cells("HARGAJUAL").Value<br /> Latihan31B46109047.t446109047.Text = DGV46109047.CurrentRow.Cells("JUMLAHBARANG").Value<br /> End Sub<br /><br /> Private Sub Latihan31A46109047_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> ambildata()<br /> DGV46109047.DataSource = ambil<br /> End Sub<br />End ClassDunia Koesong Satoehttps://www.blogger.com/profile/03634313871294669860noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-87597141099089079432011-11-17T23:09:48.519-08:002011-11-17T23:09:48.519-08:00Public Class Latihan031B_46109015
Dim saya As New ...Public Class Latihan031B_46109015<br />Dim saya As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;Jet OLEDB:database password=015")<br /><br />Private Sub Button1035_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_46109015.Click<br />'perintah periksa data<br />If t1_46109015.Text.Length = 0 Then<br />MsgBox("Plase Insert Your Text")<br />Exit Sub<br />End If<br /><br />If t2_46109015.Text.Length = 0 Then<br />MsgBox("Plase Insert Your Text")<br />Exit Sub<br />End If<br /><br />If Val(t3_46109015.Text) = 0 Then<br />MsgBox("Plase Insert Your Text")<br />Exit Sub<br />End If<br /><br />If Val(t4_46109015.Text) = 0 Then<br />MsgBox("Plase Insert Your Text")<br />Exit Sub<br />End If<br />'perintah ambil data<br /><br />If KB46109015.Text <> t1_46109015.Text Then<br />Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br />PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t1_46109015.Text, 1, saya)<br /><br />If PENCARI.JumlanBaris > 0 Then<br />MsgBox("The data has been exist please insert new data")<br /><br />t1_46109015.Text = " "<br />t2_46109015.Text = " "<br />t3_46109015.Text = " "<br />t4_46109015.Text = " "<br />Exit Sub<br />End If<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 & "'", saya)<br />saya.Open()<br />Cm.ExecuteNonQuery()<br />saya.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 /><br />Latihan031A_46109015.ambildata()<br />Me.Close()<br />End Sub<br />End ClassQayyimah Nashriyah Yhttps://www.blogger.com/profile/18187663748370329061noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-73697654867440388912011-11-17T22:52:57.456-08:002011-11-17T22:52:57.456-08:00Komentar ini telah dihapus oleh pengarang.Anonymoushttps://www.blogger.com/profile/01181150179746208526noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-52076693580830120472011-11-17T21:18:57.499-08:002011-11-17T21:18:57.499-08:00Public Class Latihan031B_46109006
Dim SRY As N...Public Class Latihan031B_46109006<br /> Dim SRY As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\databarang.accdb;jet oledb:database password=10")<br /> Private Sub SIMPAN46109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46109006.Click<br /><br /> If KB.Text.Length = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If NB.Text.Length = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(HJ.Text) = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /> If Val(JB.Text) = 0 Then<br /> MsgBox("Plase Insert Your Text")<br /> Exit Sub<br /> End If<br /><br /><br /> If KB006.Text <> KB.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB.Text, 1, SRY)<br /><br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("data telah ada, silahkan masukkan data baru")<br /><br /><br /> KB.Text = " "<br /> NB.Text = " "<br /> HJ.Text = " "<br /> JB.Text = " "<br /> Exit Sub<br /> End If<br /> End If<br /><br /><br /> Dim KI2 As New OleDb.OleDbCommand<br /> KI2 = New OleDb.OleDbCommand("Update BARANG set KODEBARANG ='" & KB.Text & "', NAMABARANG = '" & NB.Text & "', HARGAJUAL=" & Val(HJ.Text) & ", JUMLAHBARANG=" & Val(JB.Text) & " where KODEBARANG='" & KB.Text & "'", SRY)<br /><br /> SRY.Open()<br /> KI2.ExecuteNonQuery()<br /> SRY.Close()<br /> KI2.Dispose()<br /><br /><br /> KB.Text = "-"<br /> KB.Text = " "<br /> NB.Text = " "<br /> HJ.Text = " "<br /> JB.Text = " "<br /><br /> Latihan031A_46109006.ambildata()<br /><br /> Me.Close()<br /> End Sub<br />End ClassSRY REJEKI_09_PNUPhttps://www.blogger.com/profile/07931206352564162016noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-45982902032733393152011-11-17T21:16:47.134-08:002011-11-17T21:16:47.134-08:00Komentar ini telah dihapus oleh pengarang.SRY REJEKI_09_PNUPhttps://www.blogger.com/profile/07931206352564162016noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-50554481869315881772011-11-17T20:12:41.771-08:002011-11-17T20:12:41.771-08:00Komentar ini telah dihapus oleh pengarang.SRY REJEKI_09_PNUPhttps://www.blogger.com/profile/07931206352564162016noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-32985406845196868602011-11-17T19:06:57.354-08:002011-11-17T19:06:57.354-08:00Andi Muh. Yusri
46109038
Public Class Latihan31B_...Andi Muh. Yusri<br />46109038<br /><br />Public Class Latihan31B_46109038<br /><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 Latihan30B_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 /><br /> If Val(Kobar_46109038.Text) = 0 Then<br /> MsgBox("jumlah barang belum diisi")<br /> Exit Sub<br /> End If<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 /><br /> If KodeLama_46109038.Text <> Kobar_46109038.Text Then<br /> Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar<br /> Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", Kobar_46109038.Text, 1, yusri)<br /><br /> If Pencari.JumlanBaris > 0 Then<br /> MsgBox("kode sudah ada")<br /> Kobar_46109038.Text = ""<br /> KodeLama_46109038.Text = ""<br /> NamBar_46109038.Text = ""<br /> JumBar_46109038.Text = ""<br /> HarJu_46109038.Text = ""<br /> Exit Sub<br /> End If<br /> End If<br /><br /> Dim com As New OleDb.OleDbCommand<br /> com = New OleDb.OleDbCommand("update Barang set KODEBARANG='" & Kobar_46109038.Text & "',NAMABARANG='" & NamBar_46109038.Text & "',hargajual=" & Val(HarJu_46109038.Text) & ", JUMLAHBARANG=" & Val(JumBar_46109038.Text) & " where KODEBARANG='" & KodeLama_46109038.Text & "'", yusri)<br /> yusri.Open()<br /> com.ExecuteNonQuery()<br /> yusri.Close()<br /> com.Dispose()<br /><br /> KoBar_46109038.Text = ""<br /> KodeLama_46109038.Text = ""<br /> NamBar_46109038.Text = ""<br /> JumBar_46109038.Text = ""<br /> HarJu_46109038.Text = ""<br /><br /> Latihan30A_46109038.ambildata()<br /> Me.Close()<br /> End Sub<br />End ClassUchy Bloghttps://www.blogger.com/profile/18429202553081624437noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-85966140278838046122011-11-17T17:44:21.600-08:002011-11-17T17:44:21.600-08:00Public Class Latihan31B_46109050
Dim risky As...Public Class Latihan31B_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 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 /> If KB_46109050.Text <> QQ1_46109050.Text Then<br /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", QQ1_46109050.Text, 1, risky)<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 /> End If<br /><br /> Dim mahira As New OleDb.OleDbCommand<br /> mahira = 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 /> mahira.ExecuteNonQuery()<br /> risky.Close()<br /> mahira.Dispose()<br /><br /> KB_46109050.Text = ""<br /> QQ1_46109050.Text = ""<br /> QQ2_46109050.Text = ""<br /> QQ3_46109050.Text = ""<br /> QQ4_46109050.Text = ""<br /><br /> Latihan30A_46109050.ambildata()<br /> Me.Close()<br /> End Sub<br />End ClassAnonymoushttps://www.blogger.com/profile/06541325384628688641noreply@blogger.com