tag:blogger.com,1999:blog-5101583409018752071.post353940352568674076..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 32 Apkom 4 D3 ALibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger20125tag:blogger.com,1999:blog-5101583409018752071.post-1786194167157687772012-01-06T02:25:37.288-08:002012-01-06T02:25:37.288-08:00Komentar ini telah dihapus oleh pengarang.Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-37545086278060678182012-01-06T02:16:37.560-08:002012-01-06T02:16:37.560-08:00iwan
361 09 026
3a-d3
http://iwandinejad.blogspo...iwan<br />361 09 026<br />3a-d3<br /><br /><br />http://iwandinejad.blogspot.com/#!/2012/01/latihan-32a32b32c.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-29065086354486092782011-12-14T22:06:41.727-08:002011-12-14T22:06:41.727-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-60525773155499805682011-12-14T20:12:51.621-08:002011-12-14T20:12:51.621-08:00Public Class Form32C_36109001
Dim apreal As Ne...Public Class Form32C_36109001<br /> Dim apreal As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim rr As New OleDb.OleDbCommand<br /> Dim imps As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.AHJ_36109001DB")<br /><br /> Private Sub btn_36109001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109001.Click<br /> If kb_36109001.Text.Length = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If nb_36109001.Text.Length = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(hj_36109001.Text) = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(jb_36109001.Text) = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If kb_36109001.Text <> ee.Text Then<br /> apreal.AturPencarianDataBase("Barang", "KodeBarang", kb_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 /> rr = New OleDb.OleDbCommand("update barang set kodebarang = '" & kb_36109001.Text & "', namabarang = '" & nb_36109001.Text & "', hargajual = " & Val(hj_36109001.Text) & ", jumlahbarang = " & Val(jb_36109001.Text) & " where kodebarang = '" & ee.Text & "'", imps)<br /><br /> imps.Open()<br /> rr.ExecuteNonQuery()<br /> imps.Close()<br /> rr.Dispose()<br /><br /> kb_36109001.Text = ""<br /> nb_36109001.Text = ""<br /> hj_36109001.Text = ""<br /> jb_36109001.Text = ""<br /> ee.Text = ""<br /><br /> Form32A_36109001.apreal()<br /> End Sub<br /><br /> Private Sub Latihan_32C_022_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-33285783462739815912011-12-14T20:11:06.494-08:002011-12-14T20:11:06.494-08:00Public Class Form32B_36109001
Dim apreal As Ne...Public Class Form32B_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 ee_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109001.Click<br /> If txt1_36109001.Text.Length = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If txt2_36109001.Text.Length = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(txt_36109001.Text) = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(txt4_36109001.Text) = 0 Then<br /> MsgBox("Silahkan isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> apreal.AturPencarianDataBase("Barang", "KodeBarang", txt1_36109001.Text, 1, imps)<br /> If apreal.JumlanBaris > 0 Then<br /> MsgBox("Adami kode barang seperti itu")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txt1_36109001.Text & "','" & txt2_36109001.Text & "'," & Val(txt_36109001.Text) & "," & Val(txt4_36109001.Text) & ")", imps)<br /> imps.Open()<br /> cm.ExecuteNonQuery()<br /> imps.Close()<br /> cm.Dispose()<br /><br /> txt1_36109001.Text = ""<br /> txt2_36109001.Text = ""<br /> txt_36109001.Text = ""<br /> txt4_36109001.Text = ""<br /><br /> Form32A_36109001.apreal()<br /> End Sub<br /><br /> Private Sub Form32B_36109001_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-55412661583839479852011-12-14T18:35:42.835-08:002011-12-14T18:35:42.835-08:00Public Class Form32C_36109006
Dim harun As New...Public Class Form32C_36109006<br /> Dim harun As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim rr As New OleDb.OleDbCommand<br /> Dim mhh As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.AHJ_36109006DB")<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 <> ee_36109006.Text Then<br /> harun.AturPencarianDataBase("Barang", "KodeBarang", kb_36109006.Text, 1, mhh)<br /> If harun.JumlanBaris > 0 Then<br /> MsgBox("Adami kode barang seperti itu")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> rr = 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 = '" & ee_36109006.Text & "'", mhh)<br /><br /> mhh.Open()<br /> rr.ExecuteNonQuery()<br /> mhh.Close()<br /> rr.Dispose()<br /><br /> kb_36109006.Text = ""<br /> nb_36109006.Text = ""<br /> hj_36109006.Text = ""<br /> jb_36109006.Text = ""<br /> ee_36109006.Text = ""<br /><br /> Form32A_36109006.harun()<br /> End Sub<br /><br /><br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-64205576825359339692011-12-14T18:33:14.068-08:002011-12-14T18:33:14.068-08:00Public Class Form32B_36109006
Dim harun As New...Public Class Form32B_36109006<br /> Dim harun As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim cm As New OleDb.OleDbCommand<br /> Dim mhh 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 txt1_36109006.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If txt2_36109006.Text.Length = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(txt_36109006.Text) = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(txt4_36109006.Text) = 0 Then<br /> MsgBox("Isi yang kosong")<br /> Exit Sub<br /> End If<br /><br /> harun.AturPencarianDataBase("Barang", "KodeBarang", txt1_36109006.Text, 1, mhh)<br /> If harun.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> cm = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txt1_36109006.Text & "','" & txt2_36109006.Text & "'," & Val(txt_36109006.Text) & "," & Val(txt4_36109006.Text) & ")", mhh)<br /> mhh.Open()<br /> cm.ExecuteNonQuery()<br /> mhh.Close()<br /> cm.Dispose()<br /><br /> txt1_36109006.Text = ""<br /> txt2_36109006.Text = ""<br /> txt_36109006.Text = ""<br /> txt4_36109006.Text = ""<br /><br /><br /> End Sub<br /><br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-20638650571062886762011-12-14T18:30:20.464-08:002011-12-14T18:30:20.464-08:00Public Class Form32A_36109006
Dim rr As New Da...Public Class Form32A_36109006<br /> Dim rr As New DataTable<br /> Dim harun As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Public Sub muhharun()<br /> Dim mhh As New OleDb.OleDbDataAdapter<br /> mhh = New OleDb.OleDbDataAdapter("select * from barang", harun)<br /> rr.Rows.Clear()<br /> mhh.Fill(rr)<br /> mhh.Dispose()<br /> End Sub<br /><br /> Private Sub Form32A_36109006_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 tambah_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109006.Click<br /> If Form32B_36109006.Visible = False Then<br /> Form32B_36109006.Show()<br /> Else<br /> Form32B_36109006.Activate()<br /> End If<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 Form32C_36109006.Visible = False Then<br /> Form32C_36109006.Show()<br /> Else<br /> Form32C_36109006.Activate()<br /> End If<br /><br /> Form32C_36109006.kb_36109006.Text = dgv_36109006.CurrentRow.Cells("kodebarang").Value<br /> Form32C_36109006.nb_36109006.Text = dgv_36109006.CurrentRow.Cells("namabarang").Value<br /> Form32C_36109006.hj_36109006.Text = dgv_36109006.CurrentRow.Cells("hargajual").Value<br /> Form32C_36109006.jb_36109006.Text = dgv_36109006.CurrentRow.Cells("jumlahbarang").Value<br /> Form32C_36109006.ee_36109006.Text = dgv_36109006.CurrentRow.Cells("kodebarang").Value<br /><br /> Form32C_36109006.Show()<br /> End Sub<br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-39003202353509980892011-12-13T19:28:02.978-08:002011-12-13T19:28:02.978-08:00HASTUTI
36109016
FORM32-C
Public Class Form32_C
...HASTUTI<br />36109016<br /><br /><br />FORM32-C<br />Public Class Form32_C<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 /> 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 /> If kode36109016.Text <> KB36109016.Text Then<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 /> End If<br /><br /> poltek = New OleDb.OleDbCommand("update barang set kodebarang = '" & kode36109016.Text & "', namabarang = '" & nama36109016.Text & "', hargajual = " & Val(harga36109016.Text) & ", jumlahbarang = " & Val(jumlah36109016.Text) & " where kodebarang = '" & KB36109016.Text & "'", ak)<br /><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 /> KB36109016.Text = ""<br /><br /> Form32_A.uthi()<br /> End Sub<br />End ClassHastutihttps://www.blogger.com/profile/06488585550413313798noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-36399980632063481712011-12-09T16:50:47.492-08:002011-12-09T16:50:47.492-08:00Public Class Form32A_36109001
Dim rr As New Da...Public Class Form32A_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 Form32A_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> apreal()<br /> dgv.DataSource = rr<br /> End Sub<br /><br /> Private Sub aa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn1_36109001.Click<br /> If Form32B_36109001.Visible = False Then<br /> Form32B_36109001.Show()<br /> Else<br /> Form32B_36109001.Activate()<br /> End If<br /> End Sub<br /><br /> Private Sub bb_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn2_36109001.Click<br /> If Form32C_36109001.Visible = False Then<br /> Form32C_36109001.Show()<br /> Else<br /> Form32C_36109001.Activate()<br /> End If<br /><br /> Form32C_36109001.kb_36109001.Text = dgv.CurrentRow.Cells("kodebarang").Value<br /> Form32C_36109001.nb_36109001.Text = dgv.CurrentRow.Cells("namabarang").Value<br /> Form32C_36109001.hj_36109001.Text = dgv.CurrentRow.Cells("hargajual").Value<br /> Form32C_36109001.jb_36109001.Text = dgv.CurrentRow.Cells("jumlahbarang").Value<br /> Form32C_36109001.ee.Text = dgv.CurrentRow.Cells("kodebarang").Value<br /><br /> Form32C_36109001.Show()<br /> End Sub<br />End ClassApReaL_ApRiLiohttps://www.blogger.com/profile/03695109294864634358noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-46868564352830141482011-12-01T18:27:28.287-08:002011-12-01T18:27:28.287-08:00http://aminurul.blogspot.com/2011/11/form-32a-34c....http://aminurul.blogspot.com/2011/11/form-32a-34c.htmlami nurulhttps://www.blogger.com/profile/17069021508608264891noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-47337964356928344242011-11-30T16:26:36.586-08:002011-11-30T16:26:36.586-08:00Public Class Form32B
Dim DIEGO As New OleDb.Ol...Public Class Form32B<br /> Dim DIEGO As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.ACCDB")<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("INSERT INTO BARANG(KODEBARANG,NAMABARANG,HARGAJUAL,JUMLAHBARANG) VALUES('" & KB014.Text & "','" & NB014.Text & "'," & Val(HJ014) & "," & Val(JB014.Text) & ")", DIEGO)<br /><br /> DIEGO.Open()<br /> ABC.ExecuteNonQuery()<br /> DIEGO.Close()<br /><br /> KB014.Text = ""<br /> NB014.Text = ""<br /> HJ014.Text = ""<br /> JB014.Text = ""<br /><br /> Form32A.XXX()<br /> End Sub<br />End Class<br />Public Class Form32C<br /> Dim DIEGO As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.ACCDB")<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 /> If KBL014.Text <> KB014.Text Then<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 /> 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 /> ABC.Dispose()<br /><br /> KBL014.Text = "-"<br /> KB014.Text = ""<br /> NB014.Text = ""<br /> HJ014.Text = ""<br /> JB014.Text = ""<br /><br /> Form32A.XXX()<br /> End Sub<br />End Classnonnteenhttps://www.blogger.com/profile/09163981695648438329noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-30573347864402654072011-11-30T16:26:00.730-08:002011-11-30T16:26:00.730-08:00Public Class Form32A
Dim DIEGO As New OleDb.Ol...Public Class Form32A<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 Form32A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> XXX()<br /> DGV014.DataSource = SHARAPOVA<br /><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 /> Private Sub TAMBAH014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH014.Click<br /> If Form32B.Visible = False Then<br /> Form32B.Show()<br /> Else<br /> Form32B.Activate()<br /> End If<br /> End Sub<br /><br /> Private Sub EDIT014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT014.Click<br /> If Form32C.Visible = False Then<br /> Form32C.Show()<br /> Else<br /> Form32C.Activate()<br /> End If<br /><br /> Form32C.KBL014.Text = DGV014.CurrentRow.Cells("KODEBARANG").Value<br /> Form32C.KB014.Text = DGV014.CurrentRow.Cells("KODEBARANG").Value<br /> Form32C.NB014.Text = DGV014.CurrentRow.Cells("NAMABARANG").Value<br /> Form32C.HJ014.Text = DGV014.CurrentRow.Cells("HARGAJUAL").Value<br /> Form32C.JB014.Text = DGV014.CurrentRow.Cells("JUMLAHBARANG").Value<br /> <br /> End Sub<br />End Classnonnteenhttps://www.blogger.com/profile/09163981695648438329noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-50824750964666431742011-11-23T04:13:54.444-08:002011-11-23T04:13:54.444-08:00Ismi Febriani Ayikin
361 09 005
3a D3
Latihan 32C...Ismi Febriani Ayikin<br />361 09 005<br />3a D3<br /><br />Latihan 32C<br />Public Class Latihan32C_36109005<br /> Dim IM As New OleDb.OleDbCommand<br /> Dim ISMI As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim MI 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 kb_36109005.Text <> t1_36109005.Text Then<br /><br /> ISMI.AturPencarianDataBase("Barang", "KodeBarang", t1_36109005.Text, 1, MI)<br /> If ISMI.JumlanBaris > 0 Then<br /> MsgBox("Kode Barang Sudah Ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> IM = 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 & "'", MI)<br /> MI.Open()<br /> IM.ExecuteNonQuery()<br /> MI.Close()<br /> IM.Dispose()<br /><br /> KB_36109005.Text = ""<br /> t1_36109005.Text = ""<br /> t2_36109005.Text = ""<br /> t3_36109005.Text = ""<br /> t4_36109005.Text = ""<br /><br /> Latihan32A_36109005.ISMI()<br /> End Sub<br />End Class_IsMy_https://www.blogger.com/profile/09770443917490819523noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-33097861877229310922011-11-23T04:11:05.876-08:002011-11-23T04:11:05.876-08:00Ismi Febriani Ayikin
361 09 005
3a D3
Latihan 32A...Ismi Febriani Ayikin<br />361 09 005<br />3a D3<br /><br />Latihan 32A<br />Public Class Latihan32A_36109005<br /> Dim DT As New DataTable<br /> Dim SS 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", SS)<br /> DT.Rows.Clear()<br /> AD.Fill(DT)<br /> AD.Dispose()<br /> End Sub<br /> Private Sub Latihan32A_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 T_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T_36109005.Click<br /> If Latihan32B_36109005.Visible = False Then<br /> Latihan32B_36109005.Show()<br /> Else<br /> Latihan32B_36109005.Activate()<br /> End If<br /><br /> End Sub<br /> Private Sub E_36109005_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles E_36109005.Click<br /> If Latihan32C_36109005.Visible = False Then<br /> Latihan32C_36109005.Show()<br /> Else<br /> Latihan32C_36109005.Activate()<br /> End If<br /><br /> Latihan32C_36109005.KB_36109005.Text = DGV_36109005.CurrentRow.Cells("kodebarang").Value<br /> Latihan32C_36109005.t1_36109005.Text = DGV_36109005.CurrentRow.Cells("kodebarang").Value<br /> Latihan32C_36109005.t2_36109005.Text = DGV_36109005.CurrentRow.Cells("namabarang").Value<br /> Latihan32C_36109005.t3_36109005.Text = DGV_36109005.CurrentRow.Cells("hargajual").Value<br /> Latihan32C_36109005.t4_36109005.Text = DGV_36109005.CurrentRow.Cells("jumlahbarang").Value<br /><br /> Latihan32C_36109005.Show()<br /> End Sub<br />End Class<br />Latihan 32B<br />Public Class Latihan32B_36109005<br /> Dim IMMY As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim KALI As New OleDb.OleDbCommand<br /> Dim BAGI 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 /> Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar<br /> PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", t1_36109005.Text, 1, BAGI)<br /><br /> If PENCARI.JumlanBaris > 0 Then<br /> MsgBox("Kode Barang Sudah Ada")<br /><br /> t1_36109005.Text = " "<br /> t2_36109005.Text = " "<br /> t3_36109005.Text = " "<br /> t4_36109005.Text = " "<br /> Exit Sub<br /> End If<br /><br /><br /> Dim MI As New OleDb.OleDbCommand<br /> MI = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & t1_36109005.Text & "','" & t2_36109005.Text & "', " & Val(t3_36109005.Text) & "," & Val(t4_36109005.Text) & ")", BAGI)<br /> BAGI.Open()<br /> MI.ExecuteNonQuery()<br /> BAGI.Close()<br /> MI.Dispose()<br /><br /><br /> t1_36109005.Text = " "<br /> t2_36109005.Text = " "<br /> t3_36109005.Text = " "<br /> t4_36109005.Text = " "<br /> End Sub<br />End Class_IsMy_https://www.blogger.com/profile/09770443917490819523noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-8650543413720008972011-11-21T22:34:24.003-08:002011-11-21T22:34:24.003-08:00iftah urfiana
361 09 017
http://uphy-iftah.blogsp...iftah urfiana<br />361 09 017<br /><br />http://uphy-iftah.blogspot.com/search/label/apkom4uphy urfianahttps://www.blogger.com/profile/12718202664351888667noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-78069329487091982962011-11-19T19:16:35.971-08:002011-11-19T19:16:35.971-08:00amelia indahsari
361 09 023
http://heiamee.blogsp...amelia indahsari<br />361 09 023<br /><br />http://heiamee.blogspot.com/2011/11/form-32.htmlKim Hyo Byunghttps://www.blogger.com/profile/05101877770296065884noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-58708027783466053202011-11-17T17:28:31.064-08:002011-11-17T17:28:31.064-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-61806992136501393252011-11-14T18:01:06.080-08:002011-11-14T18:01:06.080-08:00Public NotInheritable Class form32c_36109003
D...Public NotInheritable Class form32c_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 Sub<br />End Classsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-90109544594879448112011-11-14T17:59:39.608-08:002011-11-14T17:59:39.608-08:00Public NotInheritable Class form32a_36109003
D...Public NotInheritable Class form32a_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 tambah_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109003.Click<br /> If form32b_36109003.Visible = False Then<br /> form32b_36109003.Show()<br /> Else<br /> form32b_36109003.Activate()<br /> End If<br /> End Sub<br /><br /> Private Sub form32a_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 /><br /> Private Sub edit_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36109003.Click<br /> If form32c_36109003.Visible = False Then<br /> form32c_36109003.Show()<br /> Else<br /> form32c_36109003.Activate()<br /> End If<br /> form32c_36109003.kbl_36109003.Text = dgv_36109003.CurrentRow.Cells("kodebarang").Value<br /> form32c_36109003.kb_36109003.Text = dgv_36109003.CurrentRow.Cells("kodebarang").Value<br /> form32c_36109003.nb_36109003.Text = dgv_36109003.CurrentRow.Cells("namabarang").Value<br /> form32c_36109003.jb_36109003.Text = dgv_36109003.CurrentRow.Cells("jumlahbarang").Value<br /> form32c_36109003.hj_36109003.Text = dgv_36109003.CurrentRow.Cells("hargajual").Value<br /> End Sub<br />End Class<br /><br /><br />Public NotInheritable Class form32b_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 simpan_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_36109003.Click<br /> arman.AturPencarianDataBase("Barang", "KodeBarang", kb_36109003.Text, 1, ndut)<br /> If arman.JumlanBaris > 0 Then<br /> MsgBox("kode barang telah ada")<br /> kb_36109003.Text = ""<br /> Exit Sub<br /> ElseIf 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 = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb_36109003.Text & "','" & nb_36109003.Text & "'," & Val(hj_36109003.Text) & "," & Val(jb_36109003.Text) & ")"<br /> anto = New OleDb.OleDbCommand(soe, ndut)<br /> ndut.Open()<br /> anto.ExecuteNonQuery()<br /> ndut.Close()<br /> anto.Dispose()<br /> kb_36109003.Text = ""<br /> nb_36109003.Text = ""<br /> hj_36109003.Text = ""<br /> jb_36109003.Text = ""<br /> End Sub<br />End Classsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.com