tag:blogger.com,1999:blog-5101583409018752071.post93307564958636804..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 31 Apkom 4 D3 ALibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger13125tag:blogger.com,1999:blog-5101583409018752071.post-1187577231029596092012-01-05T02:32:50.686-08:002012-01-05T02:32:50.686-08:00iwan
361 09 026
3a-d3
http://iwandinejad.blogspot...iwan<br />361 09 026<br />3a-d3<br /><br />http://iwandinejad.blogspot.com/#!/2012/01/latihan-31a-dan-31b-apkom4.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-12725551567893250452011-12-14T22:05:52.384-08:002011-12-14T22:05:52.384-08:00ANDI WAHYUNI
361 09 019
http://wahyunistrongggg.bl...ANDI WAHYUNI<br />361 09 019<br />http://wahyunistrongggg.blogspot.com/2011/11/latihan-27-32.htmlWahyuniStronggghttps://www.blogger.com/profile/16272977834951678598noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-68605047920522196492011-12-14T18:17:53.933-08:002011-12-14T18:17:53.933-08:00Public Class Form31B_36109006
Dim muhharun3610...Public Class Form31B_36109006<br /> Dim muhharun36109006 As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /> Dim hrun36109006 As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Private Sub simpan_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109006.Click<br /> If kb_36109006.Text.Length = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If nb_36109006.Text.Length = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(hj_36109006.Text) = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(jb_36109006.Text) = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If kb_36109006.Text <> kbl_36109006.Text Then<br /> muhharun36109006.AturPencarianDataBase("Barang", "KodeBarang", kb_36109006.Text, 1, hrun36109006)<br /> If muhharun36109006.JumlanBaris > 0 Then<br /> MsgBox("kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("update barang set kodebarang = '" & kb_36109006.Text & "', namabarang = '" & nb_36109006.Text & "', hargajual = " & Val(hj_36109006.Text) & ", jumlahbarang = " & Val(jb_36109006.Text) & " where kodebarang = '" & kbl_36109006.Text & "'", hrun36109006)<br /><br /> hrun36109006.Open()<br /> cm.ExecuteNonQuery()<br /> hrun36109006.Close()<br /> cm.Dispose()<br /><br /> kb_36109006.Text = ""<br /> nb_36109006.Text = ""<br /> hj_36109006.Text = ""<br /> jb_36109006.Text = ""<br /> kbl_36109006.Text = "-"<br /><br /> Form31A_36109006.muhharun()<br /> End Sub<br /><br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-59008747118202668082011-12-14T18:16:08.775-08:002011-12-14T18:16:08.775-08:00Public Class Form31A_36109006
Dim rr As New Da...Public Class Form31A_36109006<br /> Dim rr As New DataTable<br /> Dim harun36109006 As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Public Sub muhharun()<br /> Dim hrun As New OleDb.OleDbDataAdapter<br /> hrun = New OleDb.OleDbDataAdapter("select * from barang", harun36109006)<br /> rr.Rows.Clear()<br /> hrun.Fill(rr)<br /> hrun.Dispose()<br /> End Sub<br /><br /> Private Sub Form_31A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> muhharun()<br /> dgv_36109006.DataSource = rr<br /> End Sub<br /><br /> Private Sub edit_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109006.Click<br /> If Form31B_36109006.Visible = False Then<br /> Form31B_36109006.Show()<br /> Else<br /> Form31B_36109006.Activate()<br /> End If<br /><br /> Form31B_36109006.kb_36109006.Text = dgv_36109006.CurrentRow.Cells("kodebarang").Value<br /> Form31B_36109006.nb_36109006.Text = dgv_36109006.CurrentRow.Cells("namabarang").Value<br /> Form31B_36109006.hj_36109006.Text = dgv_36109006.CurrentRow.Cells("hargajual").Value<br /> Form31B_36109006.jb_36109006.Text = dgv_36109006.CurrentRow.Cells("jumlahbarang").Value<br /> Form31B_36109006.kbl_36109006.Text = dgv_36109006.CurrentRow.Cells("kodebarang").Value<br /><br /> Form31B_36109006.Show()<br /> End Sub<br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-14973790754968144922011-12-09T16:46:48.470-08:002011-12-09T16:46:48.470-08:00Public Class Form31A_36109001
Dim rr As New Da...Public Class Form31A_36109001<br /> Dim rr As New DataTable<br /> Dim imps As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Public Sub apreal()<br /> Dim apr As New OleDb.OleDbDataAdapter<br /> apr = New OleDb.OleDbDataAdapter("select * from barang", imps)<br /> rr.Rows.Clear()<br /> apr.Fill(rr)<br /> apr.Dispose()<br /> End Sub<br /><br /> Private Sub Form_31A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> apreal()<br /> dgv_36109001.DataSource = rr<br /> End Sub<br /><br /> Private Sub aa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aa_36109001.Click<br /> If Form31B_36109001.Visible = False Then<br /> Form31B_36109001.Show()<br /> Else<br /> Form31B_36109001.Activate()<br /> End If<br /><br /> Form31B_36109001.aa_36109001.Text = dgv_36109001.CurrentRow.Cells("kodebarang").Value<br /> Form31B_36109001.bb_36109001.Text = dgv_36109001.CurrentRow.Cells("namabarang").Value<br /> Form31B_36109001.cc_36109001.Text = dgv_36109001.CurrentRow.Cells("hargajual").Value<br /> Form31B_36109001.dd_36109001.Text = dgv_36109001.CurrentRow.Cells("jumlahbarang").Value<br /> Form31B_36109001.ee.Text = dgv_36109001.CurrentRow.Cells("kodebarang").Value<br /><br /> Form31B_36109001.Show()<br /> End Sub<br />End Class<br /><br />Public Class Form31B_36109001<br /> Dim apreal As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /> Dim imps 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 ff_36109001.Click<br /> If aa_36109001.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If bb_36109001.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(cc_36109001.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(dd_36109001.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If aa_36109001.Text <> ee.Text Then<br /> apreal.AturPencarianDataBase("Barang", "KodeBarang", aa_36109001.Text, 1, imps)<br /> If apreal.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 = '" & aa_36109001.Text & "', namabarang = '" & bb_36109001.Text & "', hargajual = " & Val(cc_36109001.Text) & ", jumlahbarang = " & Val(dd_36109001.Text) & " where kodebarang = '" & ee.Text & "'", imps)<br /><br /> imps.Open()<br /> cm.ExecuteNonQuery()<br /> imps.Close()<br /> cm.Dispose()<br /><br /> aa_36109001.Text = ""<br /> bb_36109001.Text = ""<br /> cc_36109001.Text = ""<br /> dd_36109001.Text = ""<br /> ee.Text = "-"<br /><br /> Form31A_36109001.apreal()<br /> End Sub<br /><br /> Private Sub Form31B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /><br /> End Sub<br />End ClassApReaL_ApRiLiohttps://www.blogger.com/profile/03695109294864634358noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-22859176446858824532011-12-09T16:32:34.000-08:002011-12-09T16:32:34.000-08:00HASTUTI
36109016
FORM31-A
Public Class Form31_A
...HASTUTI<br />36109016<br /><br /><br />FORM31-A<br />Public Class Form31_A<br /> Dim poltek As New DataTable<br /> Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Public Sub faisal()<br /> Dim a As New OleDb.OleDbDataAdapter<br /> a = New OleDb.OleDbDataAdapter("select * from barang", ak)<br /> poltek.Rows.Clear()<br /> a.Fill(poltek)<br /> a.Dispose()<br /> End Sub<br /> Private Sub Form31_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> faisal()<br /> dgv36109016.DataSource = poltek<br /> End Sub<br /><br /> Private Sub edit36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109016.Click<br /> If Form31_B.Visible = False Then<br /> Form31_B.Show()<br /> Else<br /> Form31_B.Activate()<br /> End If<br /><br /> Form31_B.kode36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value<br /> Form31_B.nama36109016.Text = dgv36109016.CurrentRow.Cells("namabarang").Value<br /> Form31_B.harga36109016.Text = dgv36109016.CurrentRow.Cells("hargajual").Value<br /> Form31_B.jumlah36109016.Text = dgv36109016.CurrentRow.Cells("jumlahbarang").Value<br /> Form31_B.KB36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value<br /><br /> Form31_B.Show()<br /> End Sub<br />End Class<br /><br /><br /><br /><br /><br />FORM31-B<br />Public Class Form31_B<br /> Dim uthi As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim poltek As New OleDb.OleDbCommand<br /> Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click<br /> If kode36109016.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If nama36109016.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(harga36109016.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(jumlah36109016.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)<br /> If uthi.JumlanBaris > 0 Then<br /> MsgBox("Adami kode barang seperti itu")<br /> Exit Sub<br /> End If<br /><br /> poltek = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")", ak)<br /> ak.Open()<br /> poltek.ExecuteNonQuery()<br /> ak.Close()<br /> poltek.Dispose()<br /><br /> kode36109016.Text = ""<br /> nama36109016.Text = ""<br /> harga36109016.Text = ""<br /> jumlah36109016.Text = ""<br /><br /><br /> End Sub<br />End ClassHastutihttps://www.blogger.com/profile/06488585550413313798noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-2880911877682277272011-11-30T18:41:26.879-08:002011-11-30T18:41:26.879-08:00http://uphy-iftah.blogspot.com/search/label/apkom4...http://uphy-iftah.blogspot.com/search/label/apkom4uphy urfianahttps://www.blogger.com/profile/12718202664351888667noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-90950793220954552462011-11-30T16:29:04.816-08:002011-11-30T16:29:04.816-08:00Public Class Form31B
Dim DIEGO As New OleDb.Ol...Public Class Form31B<br /> Dim DIEGO As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.ACCDB")<br /><br /> <br /> Private Sub SIMPAN014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN014.Click<br /> If KB014.Text.Length = 0 Then<br /> MsgBox("MASUKKAN KODE BARANG")<br /> Exit Sub<br /> End If<br /><br /> If NB014.Text.Length = 0 Then<br /> MsgBox("MASUKKAN NAMA BARANG")<br /> Exit Sub<br /> End If<br /><br /> If Val(HJ014.Text) = 0 Then<br /> MsgBox("MASUKKAN HARGA JUAL")<br /> Exit Sub<br /> End If<br /><br /> If Val(JB014.Text) = 0 Then<br /> MsgBox("MASUKKAN JUMLAH BARANG")<br /> Exit Sub<br /> End If<br /><br /> Dim XXX As New ByIskandar.CariKeDataBaseByIskandar<br /> XXX.AturPencarianDataBase("BARANG", "KODEBARANG", KB014.Text, 1, DIEGO)<br /> If XXX.JumlanBaris > 0 Then<br /> MsgBox(" KODE BARANG SUDAH ADA")<br /> Exit Sub<br /> End If<br /><br /> Dim ABC As New OleDb.OleDbCommand<br /> ABC = New OleDb.OleDbCommand("UPDATE BARANG SET KODEBARANG = '" & KB014.Text & "', NAMABARANG = '" & NB014.Text & "', HARGAJUAL = " & Val(HJ014.Text) & ", JUMLAHBARANG = " & Val(JB014.Text) & " WHERE KODEBARANG = '" & KBL014.Text & "'", DIEGO)<br /><br /> DIEGO.Open()<br /> ABC.ExecuteNonQuery()<br /> DIEGO.Close()<br /><br /> KBL014.Text = "-"<br /> KB014.Text = ""<br /> NB014.Text = ""<br /> HJ014.Text = ""<br /> JB014.Text = ""<br /><br /> Form31A.XXX()<br /> End Sub<br />End Classnonnteenhttps://www.blogger.com/profile/09163981695648438329noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-10700645149473809552011-11-30T16:28:13.936-08:002011-11-30T16:28:13.936-08:00Public Class Form31A
Dim DIEGO As New OleDb.Ol...Public Class Form31A<br /> Dim DIEGO As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.ACCDB")<br /> Dim SHARAPOVA As New DataTable<br /><br /> Private Sub EDIT014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT014.Click<br /> If Form31B.Visible = False Then<br /> Form31B.Show()<br /> Else<br /> Form31B.Activate()<br /> End If<br /><br /> Form31B.KBL014.Text = DGV014.CurrentRow.Cells("KODEBARANG").Value<br /> Form31B.KB014.Text = DGV014.CurrentRow.Cells("KODEBARANG").Value<br /> Form31B.NB014.Text = DGV014.CurrentRow.Cells("NAMABARANG").Value<br /> Form31B.HJ014.Text = DGV014.CurrentRow.Cells("HARGAJUAL").Value<br /> Form31B.JB014.Text = DGV014.CurrentRow.Cells("JUMLAHBARANG").Value<br /><br /> End Sub<br /><br /> Private Sub Form31A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> XXX()<br /> DGV014.DataSource = SHARAPOVA<br /> End Sub<br /> Public Sub XXX()<br /> Dim ADAPTER As New OleDb.OleDbDataAdapter<br /> ADAPTER = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", DIEGO)<br /> SHARAPOVA.Rows.Clear()<br /><br /> ADAPTER.Fill(SHARAPOVA)<br /> ADAPTER.Dispose()<br /> End Sub<br />End Classnonnteenhttps://www.blogger.com/profile/09163981695648438329noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-37185207188643460602011-11-23T04:07:08.071-08:002011-11-23T04:07:08.071-08:00Ismi Febriani Ayikin
361 09 005
3a D3
Latihan 31A...Ismi Febriani Ayikin<br />361 09 005<br />3a D3<br /><br />Latihan 31A<br /><br />Public Class Latihan31A_36109005<br /> Dim DT As New DataTable<br /> Dim HP As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /> Public Sub ISMI()<br /> Dim AD As New OleDb.OleDbDataAdapter<br /> AD = New OleDb.OleDbDataAdapter("select * from barang", HP)<br /> DT.Rows.Clear()<br /> AD.Fill(DT)<br /> AD.Dispose()<br /> End Sub<br /> Private Sub Latihan31A_36109005_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> ISMI()<br /> DGV_36109005.DataSource = DT<br /> End Sub<br /> Private Sub EDIT_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_36109005.Click<br /> If Latihan31B_36109005.Visible = False Then<br /> Latihan31B_36109005.Show()<br /> Else<br /> Latihan31B_36109005.Activate()<br /> End If<br /><br /> Latihan31B_36109005.KB_36109005.Text = DGV_36109005.CurrentRow.Cells("kodebarang").Value<br /> Latihan31B_36109005.t1_36109005.Text = DGV_36109005.CurrentRow.Cells("kodebarang").Value<br /> Latihan31B_36109005.t2_36109005.Text = DGV_36109005.CurrentRow.Cells("namabarang").Value<br /> Latihan31B_36109005.t3_36109005.Text = DGV_36109005.CurrentRow.Cells("hargajual").Value<br /> Latihan31B_36109005.t4_36109005.Text = DGV_36109005.CurrentRow.Cells("jumlahbarang").Value<br /><br /> Latihan31B_36109005.Show()<br /> End Sub<br />End Class<br />Latihan 31B<br />Public Class Latihan31B_36109005<br /> Dim ISMI As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim CM As New OleDb.OleDbCommand<br /> Dim MISCOL As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /> Private Sub Simpan_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan_36109005.Click<br /> If t1_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /><br /> If t2_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /><br /> If Val(t3_36109005.Text) = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /><br /> If Val(t4_36109005.Text) = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /><br /> If t1_36109005.Text <> KB_36109005.Text Then<br /> ISMI.AturPencarianDataBase("Barang", "KodeBarang", t1_36109005.Text, 1, MISCOL)<br /> If ISMI.JumlanBaris > 0 Then<br /> MsgBox("Kode Barang Sudah Ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> CM = New OleDb.OleDbCommand("update barang set kodebarang = '" & t1_36109005.Text & "', namabarang = '" & t2_36109005.Text & "', hargajual = " & Val(t3_36109005.Text) & ", jumlahbarang = " & Val(t4_36109005.Text) & " where kodebarang = '" & KB_36109005.Text & "'", MISCOL)<br /><br /> MISCOL.Open()<br /> CM.ExecuteNonQuery()<br /> MISCOL.Close()<br /> CM.Dispose()<br /><br /> t1_36109005.Text = ""<br /> t2_36109005.Text = ""<br /> t3_36109005.Text = ""<br /> t4_36109005.Text = ""<br /> KB_36109005.Text = "-"<br /><br /> Latihan31A_36109005.ISMI()<br /> End Sub<br />End Class_IsMy_https://www.blogger.com/profile/09770443917490819523noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-47031122211423651522011-11-18T17:54:27.870-08:002011-11-18T17:54:27.870-08:00amelia indahsari
361 09 023
http://heiamee.blogsp...amelia indahsari<br />361 09 023<br /><br />http://heiamee.blogspot.com/2011/11/form-31.htmlKim Hyo Byunghttps://www.blogger.com/profile/05101877770296065884noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-47391685423024599692011-11-17T17:24:46.337-08:002011-11-17T17:24:46.337-08:00RUSNANINGSI R
36109010
http://rusnaningsi.blogspo...RUSNANINGSI R<br />36109010<br /><br />http://rusnaningsi.blogspot.com/2011/11/latihan-31-33-apkom-4.htmlRusnaningsi Ruslanhttps://www.blogger.com/profile/06212223193729582060noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-61234984977489307062011-11-14T17:29:35.334-08:002011-11-14T17:29:35.334-08:00Public NotInheritable Class form31a_36109003
Dim a...Public NotInheritable Class form31a_36109003<br />Dim anto As New DataTable<br />Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")<br /><br />Private Sub edit_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109003.Click<br />If form31b_36109003.Visible = False Then<br />form31b_36109003.Show()<br />Else<br />form31b_36109003.Activate()<br />End If<br />form31b_36109003.kbl_36109003.Text = dgv_36109003.CurrentRow.Cells("kodebarang").Value<br />form31b_36109003.kb_36109003.Text = dgv_36109003.CurrentRow.Cells("kodebarang").Value<br />form31b_36109003.nb_36109003.Text = dgv_36109003.CurrentRow.Cells("namabarang").Value<br />form31b_36109003.jb_36109003.Text = dgv_36109003.CurrentRow.Cells("jumlahbarang").Value<br />form31b_36109003.hj_36109003.Text = dgv_36109003.CurrentRow.Cells("hargajual").Value<br />End Sub<br /><br />Private Sub form31a_36109003_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br />Dim adapter As New OleDb.OleDbDataAdapter<br />adapter = New OleDb.OleDbDataAdapter("select * from barang", ndut)<br />anto.Rows.Clear()<br />adapter.Fill(anto)<br />adapter.Dispose()<br />dgv_36109003.DataSource = anto<br />End Sub<br />End Class<br /><br /><br />Public NotInheritable Class form31b_36109003<br />Dim arman As New ByIskandar.CariKeDataBaseByIskandar<br />Dim anto As New OleDb.OleDbCommand<br />Dim ndut As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")<br /><br />Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click<br />If kbl_36109003.Text <> kb_36109003.Text Then<br />arman.AturPencarianDataBase("Barang", "KodeBarang", kb_36109003.Text, 1, ndut)<br />If arman.JumlanBaris > 0 Then<br />MsgBox("kode barang tidak dapat diupdate")<br />Exit Sub<br />End If<br />End If<br />If kb_36109003.Text.Length = 0 Then<br />MsgBox("kode barang harus tercantum")<br />Exit Sub<br />ElseIf nb_36109003.Text.Length = 0 Then<br />MsgBox("nama barang harus tercantum")<br />Exit Sub<br />ElseIf hj_36109003.Text.Length = 0 Then<br />MsgBox("harga jual harus tercantum")<br />Exit Sub<br />ElseIf jb_36109003.Text.Length = 0 Then<br />MsgBox("jumlah barang harus tercantum")<br />Exit Sub<br />End If<br />Dim soe As String = "update barang set kodebarang = '" & kb_36109003.Text & "', namabarang = '" & nb_36109003.Text & "', hargajual = " & Val(hj_36109003.Text) & ", jumlahbarang = " & Val(jb_36109003.Text) & " where kodebarang = '" & kbl_36109003.Text & "'"<br />anto = New OleDb.OleDbCommand(soe, ndut)<br />ndut.Open()<br />anto.ExecuteNonQuery()<br />ndut.Close()<br />anto.Dispose()<br />kbl_36109003.Text = "-"<br />kb_36109003.Text = ""<br />nb_36109003.Text = ""<br />hj_36109003.Text = ""<br />jb_36109003.Text = ""<br />End Subsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.com