tag:blogger.com,1999:blog-5101583409018752071.post6464577640036466899..comments2023-10-30T02:50:29.438-07:00Comments on Library Accounting Department: Latihan 33 Apkom 4 D3 ALibrary Accounting Departmenthttp://www.blogger.com/profile/16809122000099124737noreply@blogger.comBlogger16125tag:blogger.com,1999:blog-5101583409018752071.post-18697835063526949322012-01-06T02:30:51.691-08:002012-01-06T02:30:51.691-08:00iwan
361 09 026
3a-d3
http://iwandinejad.blogsp...iwan <br />361 09 026<br />3a-d3<br /><br /><br />http://iwandinejad.blogspot.com/#!/2012/01/latihan-33a33b.htmlAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-37519684911559202642011-12-28T16:50:45.216-08:002011-12-28T16:50:45.216-08:00http://febriantysuryaningtyas.blogspot.com/2011/12...http://febriantysuryaningtyas.blogspot.com/2011/12/latihan-33.htmlFebrianty Surya Ningtyashttps://www.blogger.com/profile/16060612925512652779noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-22021247414291785812011-12-14T22:16:26.732-08:002011-12-14T22:16:26.732-08:00ANDI WAHYUNI
361 09 019
http://wahyunistrongggg.bl...ANDI WAHYUNI<br />361 09 019<br />http://wahyunistrongggg.blogspot.com/2011/11/latihan-33-34.htmlWahyuniStronggghttps://www.blogger.com/profile/16272977834951678598noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-29175275007446660452011-12-14T20:05:17.447-08:002011-12-14T20:05:17.447-08:00Public Class Form33B_36109001
Dim apreal As Ne...Public Class Form33B_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.ACCDB")<br /><br /> Private Sub indonesia()<br /> If kb1_36109001.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If nb_36109001.Text.Length = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(hj_36109001.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /><br /> If Val(jb_36109001.Text) = 0 Then<br /> MsgBox("Isi rong itu yang kosong")<br /> Exit Sub<br /> End If<br /> End Sub<br /><br /> Private Sub tambah()<br /> indonesia()<br /> apreal.AturPencarianDataBase("Barang", "KodeBarang", kb1_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 /> rr = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb1_36109001.Text & "','" & nb_36109001.Text & "'," & Val(hj_36109001.Text) & "," & Val(jb_36109001.Text) & ")", imps)<br /> imps.Open()<br /> rr.ExecuteNonQuery()<br /> imps.Close()<br /> rr.Dispose()<br /><br /> kb1_36109001.Text = ""<br /> nb_36109001.Text = ""<br /> hj_36109001.Text = ""<br /> jb_36109001.Text = ""<br /><br /> Form33A_36109001.apreal()<br /> End Sub<br /><br /> Private Sub edit()<br /> indonesia()<br /> If kb1_36109001.Text <> ee.Text Then<br /> apreal.AturPencarianDataBase("Barang", "KodeBarang", kb1_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 = '" & kb1_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 /> kb1_36109001.Text = ""<br /> nb_36109001.Text = ""<br /> hj_36109001.Text = ""<br /> jb_36109001.Text = ""<br /> ee.Text = "-"<br /><br /> Form33A_36109001.apreal()<br /> End Sub<br /><br /> Private Sub ff_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bnt_36109001.Click<br /> If ee.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br />End ClassApReaL_ApRiLiohttps://www.blogger.com/profile/03695109294864634358noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-51331846402536120932011-12-14T20:04:24.745-08:002011-12-14T20:04:24.745-08:00Public Class Form33A_36109001
Dim dt As New Da...Public Class Form33A_36109001<br /> Dim dt As New DataTable<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.ACCDB")<br /><br /> Public Sub apreal()<br /> Dim apr As New OleDb.OleDbDataAdapter<br /> apr = New OleDb.OleDbDataAdapter("select * from barang", imps)<br /> dt.Rows.Clear()<br /> apr.Fill(dt)<br /> apr.Dispose()<br /> End Sub<br /><br /> Private Sub Form33A_36109001_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> apreal()<br /> dgv_36109001.DataSource = dt<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 Form33B_36109001.Visible = False Then<br /> Form33B_36109001.Show()<br /> Else<br /> Form33B_36109001.Activate()<br /> End If<br /><br /> Form33B_36109001.kb1_36109001.text = ""<br /> Form33B_36109001.nb_36109001.text = ""<br /> Form33B_36109001.hj_36109001.text = ""<br /> Form33B_36109001.jb_36109001.text = ""<br /> Form33B_36109001.ee.Text = "-"<br /> End Sub<br /><br /> Private Sub cc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn3_36109001.Click<br /> If Form33B_36109001.Visible = False Then<br /> Form33B_36109001.Show()<br /> Else<br /> Form33B_36109001.Activate()<br /> End If<br /><br /> Form33B_36109001.kb1_36109001.text = dgv_36109001.CurrentRow.Cells("kodebarang").Value<br /> Form33B_36109001.nb_36109001.text = dgv_36109001.CurrentRow.Cells("namabarang").Value<br /> Form33B_36109001.hj_36109001.text = dgv_36109001.CurrentRow.Cells("hargajual").Value<br /> Form33B_36109001.jb_36109001.text = dgv_36109001.CurrentRow.Cells("jumlahbarang").Value<br /> Form33B_36109001.ee.text = dgv_36109001.CurrentRow.Cells("kodebarang").Value<br /><br /> Form33B_36109001.Show()<br /> End Sub<br /><br /> Private Sub aa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109001.Click<br /> rr = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109001.CurrentRow.Cells("kodebarang").Value & "'", imps)<br /> imps.Open()<br /> rr.ExecuteNonQuery()<br /> imps.Close()<br /> rr.Dispose()<br /><br /> apreal()<br /> End Sub<br /><br /> Private Sub dgv_36109001_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv_36109001.CellContentClick<br /><br /> End Sub<br />End ClassApReaL_ApRiLiohttps://www.blogger.com/profile/03695109294864634358noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-14412098312645391042011-12-14T19:46:55.858-08:002011-12-14T19:46:55.858-08:00Public Class Form33B_36109006
Dim harun As New...Public Class Form33B_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.ACCDB")<br /><br /> Private Sub indonesia()<br /> If kb1_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 /> End Sub<br /><br /> Private Sub tambah()<br /> indonesia()<br /> harun.AturPencarianDataBase("Barang", "KodeBarang", kb1_36109006.Text, 1, mhh)<br /> If harun.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /><br /> rr = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb1_36109006.Text & "','" & nb_36109006.Text & "'," & Val(hj_36109006.Text) & "," & Val(jb_36109006.Text) & ")", mhh)<br /> mhh.Open()<br /> rr.ExecuteNonQuery()<br /> mhh.Close()<br /> rr.Dispose()<br /><br /> kb1_36109006.Text = ""<br /> nb_36109006.Text = ""<br /> hj_36109006.Text = ""<br /> jb_36109006.Text = ""<br /><br /> Form33A_36109006.harun()<br /> End Sub<br /><br /> Private Sub edit()<br /> indonesia()<br /> If kb1_36109006.Text <> ee_36109006.Text Then<br /> harun.AturPencarianDataBase("Barang", "KodeBarang", kb1_36109006.Text, 1, mhh)<br /> If harun.JumlanBaris > 0 Then<br /> MsgBox("Kode barang sudah ada")<br /> Exit Sub<br /> End If<br /> End If<br /><br /> rr = New OleDb.OleDbCommand("update barang set kodebarang = '" & kb1_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 /> kb1_36109006.Text = ""<br /> nb_36109006.Text = ""<br /> hj_36109006.Text = ""<br /> jb_36109006.Text = ""<br /> ee_36109006.Text = "-"<br /><br /> Form33A_36109006.harun()<br /> End Sub<br /><br /> Private Sub save_36109006_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles save_36109006.Click<br /> If ee_36109006.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br /><br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-877469466270077382011-12-14T19:46:10.318-08:002011-12-14T19:46:10.318-08:00Public Class Form33A_36109006
Dim dt As New Da...Public Class Form33A_36109006<br /> Dim dt As New DataTable<br /> Dim rr As New OleDb.OleDbCommand<br /> Dim mhh006 As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")<br /><br /> Public Sub harun()<br /> Dim muhharun As New OleDb.OleDbDataAdapter<br /> muhharun = New OleDb.OleDbDataAdapter("select * from barang", mhh006)<br /> dt.Rows.Clear()<br /> muhharun.Fill(dt)<br /> muhharun.Dispose()<br /> End Sub<br /><br /> Private Sub Latihan_33A_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<br /> harun()<br /> dgv_36109006.DataSource = dt<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 Form33B_36109006.Visible = False Then<br /> Form33B_36109006.Show()<br /> Else<br /> Form33B_36109006.Activate()<br /> End If<br /><br /> Form33B_36109006.kb1_36109006.Text = ""<br /> Form33B_36109006.nb_36109006.Text = ""<br /> Form33B_36109006.hj_36109006.Text = ""<br /> Form33B_36109006.jb_36109006.Text = ""<br /> Form33B_36109006.ee_36109006.Text = "-"<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 Form33B_36109006.Visible = False Then<br /> Form33B_36109006.Show()<br /> Else<br /> Form33B_36109006.Activate()<br /> End If<br /><br /> Form33B_36109006.kb1_36109006.Text = dgv_36109006.CurrentRow.Cells("kodebarang").Value<br /> Form33B_36109006.nb_36109006.Text = dgv_36109006.CurrentRow.Cells("namabarang").Value<br /> Form33B_36109006.hj_36109006.Text = dgv_36109006.CurrentRow.Cells("hargajual").Value<br /> Form33B_36109006.jb_36109006.Text = dgv_36109006.CurrentRow.Cells("jumlahbarang").Value<br /> Form33B_36109006.ee_36109006.Text = dgv_36109006.CurrentRow.Cells("kodebarang").Value<br /><br /> Form33B_36109006.Show()<br /> End Sub<br /> Private Sub hapus_36109006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36109006.Click<br /> rr = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv_36109006.CurrentRow.Cells("kodebarang").Value & "'", mhh006)<br /> mhh006.Open()<br /> rr.ExecuteNonQuery()<br /> mhh006.Close()<br /> rr.Dispose()<br /><br /> harun()<br /><br /> End Sub<br /><br /><br />End ClassHarunhttps://www.blogger.com/profile/08757115517028555986noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-55276033111525988142011-12-13T19:32:26.356-08:002011-12-13T19:32:26.356-08:00HASTUTI
36109016
FORM33-B
Public Class Form33_B
...HASTUTI<br />36109016<br /><br /><br />FORM33-B<br />Public Class Form33_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 indonesia()<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 /> End Sub<br /><br /> Private Sub tambah()<br /> indonesia()<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 /> Form33_A.uthi()<br /> End Sub<br /><br /> Private Sub edit()<br /> indonesia()<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 /> Form33_A.uthi()<br /> End Sub<br /> Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click<br /> If KB36109016.Text = "-" Then<br /> tambah()<br /> Else<br /> edit()<br /> End If<br /> End Sub<br />End ClassHastutihttps://www.blogger.com/profile/06488585550413313798noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-30227241344856601252011-12-02T07:28:48.576-08:002011-12-02T07:28:48.576-08:00Ismi Febriani Asyikin
3a D3
361 09 005
http://ism...Ismi Febriani Asyikin<br />3a D3<br />361 09 005<br /><br />http://ismifebriani.blogspot.com/2011/12/apkom-4-latihan-33.html_IsMy_https://www.blogger.com/profile/09770443917490819523noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-18459700996610495202011-11-30T16:35:43.756-08:002011-11-30T16:35:43.756-08:00Public Class Latihan33B_014
Dim DIEGO As New O...Public Class Latihan33B_014<br /> Dim DIEGO As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.ACCDB")<br /> Private Sub TBH()<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.Text) & "," & Val(JB014.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 /> Form33A.XXX()<br /> End Sub<br /> Private Sub EDIT()<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 /> Form33A.XXX()<br /> If Form33A.Visible = False Then<br /> Form33A.Show()<br /> Else<br /> Form33A.Activate()<br /> End If<br /><br /> KBL014.Text = "-"<br /> KB014.Text = ""<br /> NB014.Text = ""<br /> HJ014.Text = ""<br /> JB014.Text = ""<br /><br /> End Sub<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 /> If KBL014.Text = "-" Then<br /> TBH()<br /> Else<br /> EDIT()<br /> End If<br /> End Sub<br />End Classnonnteenhttps://www.blogger.com/profile/09163981695648438329noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-72290508554901653732011-11-30T16:33:41.663-08:002011-11-30T16:33:41.663-08:00Public Class Form33A
Dim DIEGO As New OleDb.Ol...Public Class Form33A<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 Form33A_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 /><br /> Private Sub TAMBAH014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH014.Click<br /> If Latihan33B_014.Visible = False Then<br /> Latihan33B_014.Show()<br /> Else<br /> Latihan33B_014.Activate()<br /> End If<br /> End Sub<br /><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 /><br /> Private Sub EDIT014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT014.Click<br /> If Latihan33B_014.Visible = False Then<br /> Latihan33B_014.Show()<br /> Else<br /> Latihan33B_014.Activate()<br /> End If<br /><br /> Latihan33B_014.KBL014.Text = DGV014.CurrentRow.Cells("KODEBARANG").Value()<br /> Latihan33B_014.KB014.Text = DGV014.CurrentRow.Cells("KODEBARANG").Value<br /> Latihan33B_014.NB014.Text = DGV014.CurrentRow.Cells("NAMABARANG").Value<br /> Latihan33B_014.HJ014.Text = DGV014.CurrentRow.Cells("HARGAJUAL").Value<br /> Latihan33B_014.JB014.Text = DGV014.CurrentRow.Cells("JUMLAHBARANG").Value<br /> End Sub<br /><br /> Private Sub HAPUS014_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS014.Click<br /> Dim AAA As New OleDb.OleDbCommand<br /> AAA = New OleDb.OleDbCommand("DELETE* FROM BARANG WHERE KODEBARANG = '" & DGV014.CurrentRow.Cells("KODEBARANG").Value & "'", DIEGO)<br /> DIEGO.Open()<br /> AAA.ExecuteNonQuery()<br /> DIEGO.Close()<br /> AAA.Dispose()<br /><br /> XXX()<br /><br /> End Sub<br />End Classnonnteenhttps://www.blogger.com/profile/09163981695648438329noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-16446621281425482112011-11-28T06:40:45.318-08:002011-11-28T06:40:45.318-08:00Amelia Indahsari
361 09 023
http://heiamee.blogsp...Amelia Indahsari<br />361 09 023<br /><br />http://heiamee.blogspot.com/search/label/campusKim Hyo Byunghttps://www.blogger.com/profile/05101877770296065884noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-65013937794599110572011-11-24T16:25:22.000-08:002011-11-24T16:25:22.000-08:00Ismi Febriani Asyikin
3a D3
361 09 005
Public Cl...Ismi Febriani Asyikin<br />3a D3<br />361 09 005<br /><br /><br />Public Class Latihan33B_36109005<br /> Dim ISMI As New ByIskandar.CariKeDataBaseByIskandar<br /> Dim OD As New OleDb.OleDbCommand<br /> Dim DB 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 KB_36109005.Text = "" Then<br /> ISMI.AturPencarianDataBase("Barang", "KodeBarang", t1_36109005.Text, 1, DB)<br /> If ISMI.JumlanBaris > 0 Then<br /> MsgBox("Masukkan teks")<br /> t1_36109005.Text = ""<br /> Exit Sub<br /> ElseIf t1_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> ElseIf t2_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> ElseIf t3_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> ElseIf t4_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /><br /> Dim ICHMI As String = "insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & t1_36109005.Text & "','" & t2_36109005.Text & "'," & Val(t3_36109005.Text) & "," & Val(t4_36109005.Text) & ")"<br /> OD = New OleDb.OleDbCommand(ICHMI, DB)<br /> DB.Open()<br /> OD.ExecuteNonQuery()<br /> DB.Close()<br /> OD.Dispose()<br /> t1_36109005.Text = ""<br /> t2_36109005.Text = ""<br /> t3_36109005.Text = ""<br /> t4_36109005.Text = ""<br /> Else<br /> If KB_36109005.Text <> t1_36109005.Text Then<br /> ISMI.AturPencarianDataBase("Barang", "KodeBarang", t1_36109005.Text, 1, DB)<br /> If ISMI.JumlanBaris > 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /> End If<br /> If t1_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> ElseIf t2_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> ElseIf t3_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> ElseIf t4_36109005.Text.Length = 0 Then<br /> MsgBox("Masukkan teks")<br /> Exit Sub<br /> End If<br /><br /> Dim ICHMI As String = "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 & "'"<br /> OD = New OleDb.OleDbCommand(ICHMI, DB)<br /> DB.Open()<br /> OD.ExecuteNonQuery()<br /> DB.Close()<br /> OD.Dispose()<br /> KB_36109005.Text = "-"<br /> t1_36109005.Text = ""<br /> t2_36109005.Text = ""<br /> t3_36109005.Text = ""<br /> t4_36109005.Text = ""<br /> End If<br /> End Sub<br />End Class_IsMy_https://www.blogger.com/profile/09770443917490819523noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-41641131894129754072011-11-17T17:28:49.349-08:002011-11-17T17:28:49.349-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-58175523335610490702011-11-14T18:03:32.357-08:002011-11-14T18:03:32.357-08:00Public NotInheritable Class form33b_36109003
D...Public NotInheritable Class form33b_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 = "" Then<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 /> Else<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 If<br /> End Sub<br />End Classsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.comtag:blogger.com,1999:blog-5101583409018752071.post-84762170826854369002011-11-14T18:02:34.715-08:002011-11-14T18:02:34.715-08:00Public NotInheritable Class form33a_36109003
D...Public NotInheritable Class form33a_36109003<br /> Dim anto As New DataTable<br /> Dim antho 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 tambah_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36109003.Click<br /> If form33b_36109003.Visible = False Then<br /> form33b_36109003.Show()<br /> Else<br /> form33b_36109003.Activate()<br /> End If<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 form33b_36109003.Visible = False Then<br /> form33b_36109003.Show()<br /> Else<br /> form33b_36109003.Activate()<br /> End If<br /> form33b_36109003.kbl_36109003.Text = dgv_36109003.CurrentRow.Cells("kodebarang").Value<br /> form33b_36109003.kb_36109003.Text = dgv_36109003.CurrentRow.Cells("kodebarang").Value<br /> form33b_36109003.nb_36109003.Text = dgv_36109003.CurrentRow.Cells("namabarang").Value<br /> form33b_36109003.jb_36109003.Text = dgv_36109003.CurrentRow.Cells("jumlahbarang").Value<br /> form33b_36109003.hj_36109003.Text = dgv_36109003.CurrentRow.Cells("hargajual").Value<br /> End Sub<br /><br /> Private Sub form33a_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 hapus_36109003_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36109003.Click<br /> Dim soe As String = "delete * from barang where kodebarang = '" & dgv_36109003.CurrentRow.Cells("kodebarang").Value & "'"<br /> antho = New OleDb.OleDbCommand(soe, ndut)<br /> ndut.Open()<br /> antho.ExecuteNonQuery()<br /> ndut.Close()<br /> antho.Dispose()<br /><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 Classsoedarmantohttps://www.blogger.com/profile/16308620408334852915noreply@blogger.com