samudera hikmah

Sabtu, 31 Desember 2011

jawaban form 35 sampe form 40B

FORM 35
Public Class Form35
Dim dt As New DataTable
Dim oc As New OleDb.OleDbCommand
Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

Private Sub Form35_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & txta002.Text & "'", kammi)
a.Fill(dt)
a.Dispose()

dgv36109002.DataSource = dt
End Sub

Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
If txtd002.Text.Length = 0 Then
MsgBox("Isi rong itu Kode Barang na..")
Exit Sub
End If

If Val(txte002.Text) = 0 Then
MsgBox("Isi rong itu Unit na..")
Exit Sub
End If

If Val(txtf002.Text) = 0 Then
MsgBox("Isi rong itu Harga na..")
Exit Sub
End If

Dim dr As DataRow
dr = dt.NewRow
dr("KODEBARANG") = txtd002.Text
dr("UNIT") = txte002.Text
dr("HARGA") = txtf002.Text

dt.Rows.Add(dr)

txtd002.Text = ""
txte002.Text = ""
txtf002.Text = ""
End Sub

Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txta002.Text.Length = 0 Then
MsgBox("isi rong No Transaksi na..")
Exit Sub
End If

If txtc002.Text.Length = 0 Then
MsgBox("Isi rong Jenis Transaksi na..")
Exit Sub
End If

If dt.Rows.Count = 0 Then
MsgBox("Maaf...Isi rong itu datatable na..")
Exit Sub
End If

wiwi.AturPencarianDataBase("mastertransaksi", "notrans", txta002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If

oc = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & txta002.Text & "',#" & txtb002.Value.Month & "/" & txtb002.Value.Day & "/" & txtb002.Value.Year & "#,'" & txtc002.Text & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

For Each x As DataRow In dt.Rows
oc = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & txta002.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
Next
oc.Dispose()

txta002.Text = ""
txtc002.Text = ""

dt.Rows.Clear()

End Sub
End Class

================================================================

FORM 36
Public Class Form36

Dim dt As New DataTable
Dim oc As New OleDb.OleDbCommand
Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

Private Sub Form36_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select KODEBARANG, UNIT, HARGA from detailtransaksi where notrans = '" & txta002.Text & "'", kammi)
a.Fill(dt)
a.Dispose()

dgv36109002.DataSource = dt

Dim col(1) As DataColumn
col(0) = dt.Columns("kodebarang")
dt.PrimaryKey = col

End Sub

Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
If txtd002.Text.Length = 0 Then
MsgBox("Isi rong itu Kode Barang na..")
Exit Sub
End If

If Val(txte002.Text) = 0 Then
MsgBox("Isi rong itu Unit na..")
Exit Sub
End If

If Val(txtf002.Text) = 0 Then
MsgBox("Isi rong itu Harga na..")
Exit Sub
End If

Dim row As DataRow
row = dt.Rows.Find(txtd002.Text)
If row Is Nothing Then
row = dt.NewRow
row("KODEBARANG") = txtd002.Text
row("UNIT") = txte002.Text
row("HARGA") = txtf002.Text

dt.Rows.Add(row)

txtd002.Text = ""
txte002.Text = ""
txtf002.Text = ""

Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain")
End If

End Sub

Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
If txta002.Text.Length = 0 Then
MsgBox("Isi rong No Transaksi na..")
Exit Sub
End If

If txtc002.Text.Length = 0 Then
MsgBox("Isi rong Jenis Transaksi na..")
Exit Sub
End If

If dt.Rows.Count = 0 Then
MsgBox("Maaf...Isi rong itu datatable na..")
Exit Sub
End If

wiwi.AturPencarianDataBase("mastertransaksi", "notrans", txta002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If

oc = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & txta002.Text & "',#" & txtb002.Value.Month & "/" & txtb002.Value.Day & "/" & txtb002.Value.Year & "#,'" & txtc002.Text & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

For Each x As DataRow In dt.Rows
oc = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & txta002.Text & "', '" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
Next
oc.Dispose()

txta002.Text = ""
txtc002.Text = ""

dt.Rows.Clear()

End Sub
End Class
=====================================================================

FORM 37
Public Class form37

Dim dt As New DataTable
Dim oc As New OleDb.OleDbCommand
Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub form37_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit*harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans ='" & txta002.Text & "'", kammi)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()

Dim col(1) As DataColumn
col(0) = dt.Columns("kodebarang")
dt.PrimaryKey = col

dgv36109002.DataSource = dt

End Sub

Private Sub akun()
Dim akun1 As Integer = 0
For Each akun2 As DataRow In dt.Rows
akun1 += akun2("JUMLAH")
Next
total002.Text = akun1

End Sub

Private Sub txtf002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtf002.TextChanged, txtg002.TextChanged
txth002.Text = Val(txtf002.Text) * Val(txtg002.Text)
End Sub

Private Sub txtd002_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtd002.TextChanged
txte002.Text = ""
txtf002.Text = ""
txtg002.Text = ""

End Sub
Private Sub txtd002_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtd002.Leave
If txtd002.Text.Length = 0 Then
Exit Sub
End If
wiwi.AturPencarianDataBase("barang", "kodebarang", txtd002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
txtd002.Text = wiwi.DataTablenya.Rows(0).Item("KODEBARANG")
txte002.Text = wiwi.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang itu tidak ada..")
Exit Sub
End If

End Sub

Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click

If txtd002.Text.Length = 0 Then
MsgBox("Isi rong itu Kode Barang na..")
Exit Sub
End If

If Val(txtf002.Text) = 0 Then
MsgBox("Isi rong itu Unit na..")
Exit Sub
End If

If Val(txtg002.Text) = 0 Then
MsgBox("Isi rong itu Harga na..")
Exit Sub
End If

Dim row As DataRow
row = dt.Rows.Find(txtd002.Text)
If row Is Nothing Then
row = dt.NewRow
row("KODEBARANG") = txtd002.Text
row("NAMABARANG") = txte002.Text
row("UNIT") = Val(txtf002.Text)
row("HARGA") = Val(txtg002.Text)
row("JUMLAH") = Val(txth002.Text)

dt.Rows.Add(row)

txtd002.Text = ""
txtf002.Text = ""
txtg002.Text = ""

Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
akun()

End Sub

Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click

If txta002.Text.Length = 0 Then
MsgBox("Isi rong No Transaksi na..")
Exit Sub
End If

If txtc002.Text.Length = 0 Then
MsgBox("isi rong Jenis Transaksi na..")
Exit Sub
End If

If dt.Rows.Count = 0 Then
MsgBox("Maaf..Isi rong itu datatable na..")
Exit Sub
End If

wiwi.AturPencarianDataBase("mastertransaksi", "notrans", txta002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami no trans seperti itu...")
Exit Sub
End If

oc = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & txta002.Text & "',#" & txtb002.Value.Month & "/" & txtb002.Value.Day & "/" & txtb002.Value.Year & "#,'" & txtc002.Text & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

For Each x As DataRow In dt.Rows
oc = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & txta002.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
Next
oc.Dispose()

txta002.Text = ""
txtc002.Text = ""

dt.Rows.Clear()
akun()
End Sub

End Class
=====================================================================

FORM 39
Public Class Form39
Dim dt As New DataTable
Dim oc As New OleDb.OleDbCommand
Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub Form39_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("SELECT BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*HARGA AS JUMLAH FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG = DETAILTRANSAKSI.KODEBARANG WHERE NOTRANS = '" & txta002.Text & "'", kammi)
a.Fill(dt)
a.Dispose()

Dim dc(1) As DataColumn
dc(0) = dt.Columns("kodebarang")
dt.PrimaryKey = dc

dgv36109002.DataSource = dt

End Sub

Private Sub dgv36109002_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv36109002.CellEndEdit
If dgv36109002.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
'If dgv.CurrentRow.Cells(0) = "KODEBARANG" Then (rumus lain)

'untuk mencari nama barang
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = ""
dgv36109002.CurrentRow.Cells("UNIT").Value = 0
dgv36109002.CurrentRow.Cells("HARGA").Value = 0
dgv36109002.CurrentRow.Cells("JUMLAH").Value = 0

wiwi.AturPencarianDataBase("barang", "kodebarang", dgv36109002.CurrentRow.Cells("KODEBARANG").Value, 1, kammi)
If wiwi.JumlanBaris > 0 Then '(menampilkan nama barang jika kolom kode barang ditemukan oleh proses di atas
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = wiwi.DataTablenya.Rows(0).Item("NAMABARANG")
Else
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = ""
If Form383940.ShowDialog = Windows.Forms.DialogResult.OK Then
dgv36109002.CurrentRow.Cells("KODEBARANG").Value = Form383940.dgv36109002.CurrentRow.Cells("KODEBARANG").Value
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = Form383940.dgv36109002.CurrentRow.Cells("NAMABARANG").Value
End If
End If

ElseIf dgv36109002.Columns(e.ColumnIndex).Name = "UNIT" Or dgv36109002.Columns(e.ColumnIndex).Name = "HARGA" Then
dgv36109002.CurrentRow.Cells("JUMLAH").Value = dgv36109002.CurrentRow.Cells("UNIT").Value * dgv36109002.CurrentRow.Cells("HARGA").Value
rahma()
End If
End Sub
Private Sub rahma()
Dim rahma1 As Integer = 0
For Each rahma2 As DataRow In dt.Rows
rahma1 += rahma2("JUMLAH")
Next
Tot.Text = rahma1
End Sub
Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu No Transaksinya")
Exit Sub
End If

If txtc002.Text.Length = 0 Then
MsgBox("Isi rong itu Jenis Transaksinya")
Exit Sub
End If

If dt.Rows.Count = 0 Then
MsgBox("Isi rong itu datatable k")
Exit Sub
End If

wiwi.AturPencarianDataBase("mastertransaksi", "notrans", txta002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If

oc = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & txta002.Text & "',#" & txtb002.Value.Month & "/" & txtb002.Value.Day & "/" & txtb002.Value.Year & "#,'" & txtc002.Text & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

For Each x As DataRow In dt.Rows
oc = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & txta002.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
Next

oc.Dispose()

txta002.Text = ""
txtc002.Text = ""
Tot.Text = ""

dt.Rows.Clear()
rahma()
End Sub
End Class

================================================================

FORM 383940
Public Class Form383940
Dim dt As New DataTable
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub Form383940_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", kammi)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()

dgv36109002.DataSource = dt

End Sub
End Class
===============================================================

FORM 40A
Public Class Form40A
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.accdb")
Dim dtb1 As New DataTable
Dim dtb2 As New DataTable
Dim ds As New DataSet
Dim bsc1 As New BindingSource
Dim bsc2 As New BindingSource

Public Sub wiwi1()
Dim a As New OleDb.OleDbDataAdapter
dtb2.Rows.Clear()
dtb1.Rows.Clear()
a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", kammi)
a.Fill(dtb1)
a = New OleDb.OleDbDataAdapter("select detailtransaksi.notrans, barang.kodebarang, barang.namabarang, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit*harga as jumlah from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", kammi)
a.Fill(dtb2)
End Sub

Private Sub Form40A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wiwi1()

ds.Tables.Add(dtb1)
ds.Tables.Add(dtb2)

dtb1.TableName = "rahma1"
dtb2.TableName = "rahma2"

ds.Relations.Add(New DataRelation("a", ds.Tables("rahma").Columns("notrans"), ds.Tables("rahma2").Columns("notrans")))

bsc1.DataSource = ds
bsc1.DataMember = "rahma"

bsc2.DataSource = bsc1
bsc2.DataMember = "a"

Dim dc(1) As DataColumn
dc(0) = dtb1.Columns("notrans")
dtb1.PrimaryKey = dc

dgva002.DataSource = bsc1
dgvb002.DataSource = bsc2
End Sub
Private Sub txta002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txta002.Click
Dim oc As New OleDb.OleDbCommand
oc = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgva002.CurrentRow.Cells("notrans").Value & "'", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

oc = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgva002.CurrentRow.Cells("notrans").Value & "'", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
oc.Dispose()
wiwi1()
End Sub
Private Sub txtb002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtb002.Click
If Form40B.Visible = False Then
Form40B.Show()
Else
Form40B.Activate()
End If

Form40B.txta002.Text = ""
Form40B.txtc002.Text = ""
Form40B.txtf002.Text = "-"

Form40B.wiwi2()
Form40B.wiwi3()
End Sub
Private Sub txtc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtc002.Click
If Form40B.Visible = False Then
Form40B.Show()
Else
Form40B.Activate()
End If

Form40B.txta002.Text = dgva002.CurrentRow.Cells("notrans").Value
Form40B.txtb002.Value = dgva002.CurrentRow.Cells("tanggaltransaksi").Value
Form40B.txtc002.Text = dgva002.CurrentRow.Cells("jenistransaksi").Value
Form40B.txtf002.Text = dgva002.CurrentRow.Cells("notrans").Value

Form40B.wiwi2()
Form40B.wiwi3()
End Sub
End Class
=====================================================================

FORM 40B
Public Class Form40B
Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/dataMajemuk.accdb")
Dim dt As New DataTable
Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
Dim oc As New OleDb.OleDbCommand
Public Sub wiwi2()
Dim a As New OleDb.OleDbDataAdapter
a = New OleDb.OleDbDataAdapter("select barang.KODEBARANG, barang.NAMABARANG, detailtransaksi.UNIT, detailtransaksi.HARGA, detailtransaksi.unit * detailtransaksi.harga as JUMLAH from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang where notrans = '" & txta002.Text & "'", kammi)
dt.Rows.Clear()
a.Fill(dt)
End Sub
Public Sub wiwi3()
Dim total As Integer = 0
For Each x As DataRow In dt.Rows
total += x("Jumlah")
Next
txtd002.Text = total
End Sub
Private Sub wiwi4()
If txta002.Text.Length = 0 Then
MsgBox("Isi rong itu Notransnya..")
Exit Sub
End If

If txtc002.Text.Length = 0 Then
MsgBox("Isi rong itu Jenis Transaksinya..")
Exit Sub
End If

If dt.Rows.Count = 0 Then
MsgBox("Isi rong itu datatable k..")
Exit Sub
End If
End Sub
Private Sub tambah()
wiwi4()
wiwi.AturPencarianDataBase("mastertransaksi", "notrans", txta002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu..")
Exit Sub
End If

oc = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & txta002.Text & "',#" & txtb002.Value.Month & "/" & txtb002.Value.Day & "/" & txtb002.Value.Year & "#, '" & txtc002.Text & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

For Each x As DataRow In dt.Rows
oc = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & txta002.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "') ", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
Next
oc.Dispose()

txta002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txtf002.Text = "-"

dt.Rows.Clear()
Form40A.wiwi1()
End Sub
Public Sub edit()
wiwi4()
If txta002.Text <> txtf002.Text Then
wiwi.AturPencarianDataBase("mastertransaksi", "notrans", txta002.Text, 1, kammi)
If wiwi.JumlanBaris > 0 Then
MsgBox("Adami Notrans seperti itu,,mohon ganti..")
Exit Sub
End If
End If

oc = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & txtf002.Text & "'", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

oc = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & txta002.Text & "',#" & txtb002.Value.Month & "/" & txtb002.Value.Day & "/" & txtb002.Value.Year & "#, '" & txtc002.Text & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

oc = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & txtf002.Text & "'", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()

For Each x As DataRow In dt.Rows
oc = New OleDb.OleDbCommand("insert into detailtransaksi(notrans, kodebarang, unit, harga) values ('" & txta002.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", kammi)
kammi.Open()
oc.ExecuteNonQuery()
kammi.Close()
Next
oc.Dispose()

txta002.Text = ""
txtc002.Text = ""
txtd002.Text = ""
txtf002.Text = "-"

dt.Rows.Clear()
Form40A.wiwi1()
End Sub
Private Sub form40B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
wiwi2()

Dim dc(1) As DataColumn
dc(0) = dt.Columns("kodebarang")
dt.PrimaryKey = dc

dt.Columns("unit").DefaultValue = 0
dt.Columns("harga").DefaultValue = 0
dt.Columns("jumlah").DefaultValue = 0

dgv36109002.DataSource = dt
End Sub
Private Sub dgv36109002_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv36109002.CellEndEdit
If dgv36109002.Columns(e.ColumnIndex).Name = "KODEBARANG" Then
'If dgv.CurrentRow.Cells(0) = "KODEBARANG" Then (rumus lain)

'untuk mencari nama barang
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = ""
dgv36109002.CurrentRow.Cells("UNIT").Value = 0
dgv36109002.CurrentRow.Cells("HARGA").Value = 0
dgv36109002.CurrentRow.Cells("JUMLAH").Value = 0

wiwi.AturPencarianDataBase("barang", "kodebarang", dgv36109002.CurrentRow.Cells("KODEBARANG").Value, 1, kammi)
If wiwi.JumlanBaris > 0 Then '(menampilkan nama barang jika kolom kode barang ditemukan oleh proses di atas
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = wiwi.DataTablenya.Rows(0).Item("NAMABARANG")
Else
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = ""
If Form383940.ShowDialog = Windows.Forms.DialogResult.OK Then
dgv36109002.CurrentRow.Cells("KODEBARANG").Value = Form383940.dgv36109002.CurrentRow.Cells("KODEBARANG").Value
dgv36109002.CurrentRow.Cells("NAMABARANG").Value = Form383940.dgv36109002.CurrentRow.Cells("NAMABARANG").Value
End If
End If

ElseIf dgv36109002.Columns(e.ColumnIndex).Name = "UNIT" Or dgv36109002.Columns(e.ColumnIndex).Name = "HARGA" Then
dgv36109002.CurrentRow.Cells("JUMLAH").Value = dgv36109002.CurrentRow.Cells("UNIT").Value * dgv36109002.CurrentRow.Cells("HARGA").Value
wiwi3()
End If
End Sub
Private Sub txte002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txte002.Click
If txtf002.Text = "-" Then
tambah()
Else
edit()
End If
End Sub
Private Sub dgv36109002_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv36109002.DataError
MsgBox("Terjadi sedikit kesalahan...")
End Sub
End Class

Kamis, 01 Desember 2011

KATA-KATA KEREN DI NARUTO ^^

=========================================================================
1. “Kalau mau saling mengerti, lakukan saja setelah membuat lawan mengalami hal yang sama ” (Yahiko, chapter 372)
2. “Aku hanya ingin melindungi mereka, walau harus menjalani penderitaan seperti apapun ” (Nagato, chapter 373)
3. “Penderitaan membuatku semakin kuat dan berkembang” (Pain, chapter 474)
4. “Shinobi yang melanggar aturan memang disebut sampah, tetapi shinobi yang meninggalkan sahabatnya lebih rendah dari sampah ” (Uchiha Obito)
5. “Aku tak akan menarik kembali kata-kataku, karena itulah jalan ninjaku” (Uzumaki Naruto)
6. “Selemah apapun musuhku, aku tidak akan meremehkan mereka” (Aburame Shino)
7. “Kau lemah, kenapa kau lemah??? Soalnya kurang sesuatu, yaitu kebencian” (Uchiha Itachi)
8. “Seni itu adalah sesuatu yang rapuh, yang menghilang dalam sekejap” (Deidara)
9. “Aku tersesat di jalan yang bernama kehidupan” (Hatake Kakashi)
10. “Sepertinya aku harus meninggalkan Konoha demi menyelamatkan Konoha ” (Jiraiya)

11. “Manusia tak kan pernah bisa menang dari rasa kesepian” (Gaara)
12. “Yang diperlukan oleh Shinobi bukan jumlah jutsu yang dapat dikuasainya, tetapi yang diperlukan Shinobi adalah tekad pantang menyerah ” (Jiraiya)
13. “A loser is a loser” (Neji Hyuuga)
14. “Kemampuan individu seorang ninja memang penting, tetapi yang lebih penting lagi adalah kerjasama tim ” (Hatake Kakashi)
15. “Kalau tanganku patah, akan ku tendang dengan kakiku ini. Kalau kakiku patah, akan ku gigit dengan gigiku ini. Kalau gigiku dihancurkan juga, akan ku lihat dengan dengan tatapan penuh kebencian. Dan kalau mataku dihancurkan juga, akan ku gunakan kutukan untuk melawannya, aku pasti akan mengembalikan Sasuke” (Uzumaki Naruto)
16. “Shinobi bukan dilihat dari cara hidupnya, tetapi bagaimana ia mati” & “Kehidupan Shinobi dinilai bukan dari bagaimana menjalaninya, tetapi dari apa yang sudah dilakukannya ” (Jiraiya)
17. “Semua orang hidup terikat dan bergantung pada pengetahuan atau persepsinya sendiri, itu disebut kenyataan. Tetapi pengetahuan atau persepsi itu sesuatu yang samar. Bisa saja kenyataan itu hanya ilusi, semua orang hidup dalam asumsi ” (Uchiha Itachi)
18. “Masa depanmu adalah kematian” (Hatake Kakashi)
19. “Kau gagal tetapi masih bisa mampu bangkit kembali, karena itu menurutku arti dari kuat yang sebenarnya ” (Hinata Hyuuga)
20. “Aku akan menolongnya meski harus mengorbankan nyawa karena dia adalah temanku ” (Shikamaru Naara)

21."Ninja Yang Paling Buruk adalah Ninja Pengkhianat Desa... Ninja Yang Lebih Buruk Dari Ninja Pengkhianat Desa Adalah Ninja Yang Membiarkan Temannya Dalam Bahaya....!!!" (Kakashi Hatake)
22.".. seperti apapun juga.. aku akan terus melangkah dan melangkah untuk menolong sasuke, walau harus mempertaruhkan nyawa seperti apapun.."( Naruto Uzumaki)
23."jangan tarik kata katamu..sekalipun itu akan membawamu kepada kehancuran..karena kau laki laki,,dan itu adalah jalan ninjamu..(uzumaki naruto)
24."Kau adalah anaku, dan dengan kekuatan Kyuubi kau akan membangun kembali Konoha!" ( Minato Namikaze)
25."aku ini tidak punya orang tua, aku selalu mrasa sendiri sluruh orang didesaku memandangku dengan tatapan kebencian, mereka menganggapku monster, sampai-sampai keberadaanku pun tidak mereka hargai, tetapi ada satu orang yang mengakui keberadaanku, ia adalah orang yang pertama kali mengakui kalau aku ini ada, dan selamanya takkan ku biarkan ia pergi, ia adalah sasuke , sasuke adalah teman terbaikku" (Uzumaki Naruto)
26. "aku lebih menyayangi sasuke sebagai temannya, melebihi kau yang saudaranya sendiri" (Uzumaki Naruto)
27. "Tanpa arah dan tujuan, tidak ada gunanya seorang ninja hidup di dunia ini" (Guy Maito)
28. "kalau rasa keadilanmu menurun berarti kau melemah, dibawah rasa keadilan tidak ada kelemahan apapun!" (Kakashi Hatake)
29. "Kegagalan juga menyenangkan, hidup dengan kepercayaan bahwa cobaan itu berguna untuk menempa diri sendiri" (Jiraiya)
30. "I used to cry and give up,, I nearly went to the wrong way but you.. you always show me the right way. I always chasing you... wanting to overtake you.. I just wanna talk with you.. (Hinata Hyuuga)

31. "Seseorang akan menjadi kuat apabila melindungi seseorang yang dicintainya" (Haku)
32."Aku hanya ingin hidup seperti awan. Bebas, dan tenang. Ketika aku tua nanti, aku mempunyai seorang istri dan mempunyai 2 anak, satu laki-laki dan satu perempuan, lalu aku meninggal duluan, dan begitulah kehidupanku berlangsung. Sayangnya semua tidak semudah itu, merepotkan sekali!" (Shikamaru Nara)
33. "Aku sekarang bisa melihat segala sesuatu yang tidak bisa kulihat sewaktu aku masih menjadi manusia" (Pain)
34. "Jalan hidup seorang murid adalah warisan dan estimasi dari sang guru" (jiraiya)
35. "Saat kau mengenal kasih sayang , kau juga menanggung resiko kebencian" (Itachi Uchiha)
36. "Keberuntungan juga merupakan kekuatanmu" (Guy Maito)
37. "Sudah kubilang, aku ya aku, kamu ya kamu, soal siapa yang lebih hebat itu cerita yang membosankan" (Shikamaru Nara)
38. "Kau adalah jenius dalam kerja keras (Guy Maito to Rock Lee)
39. "Someone who don't know pain will not know how true peace is like" (Pain)
40. "Memanjakan dan mengasihani itu berbeda" (Yamato)

41. "Jutsu is not the only weapon, I tell you that!" (Shikamaru Nara)
42. "When people get hurt, they learn to hate" (Jiraiya)
43. "Daripada suapan terakhir makanan selezat apapun atau diejek gendut, aku lebih tidak bisa memaafkanmu kalau kau menghina sahabatku !!!!!" (Chouji Akimichi)
44. "Seni itu abadi dan akan selalu dikenang" (Sasori)
45. "Aku tidak suka dengan orang yang membohongi dirinya sendiri ditengah turunnya salju" (Uzumaki Naruto)
46. "Tidak Semua Mimpi dan harapan akan terwujud sesuai dengan keinginan kita" (Orochimaru)
47. "Untuk mencapai tujuan akhirmu, kamu harus bersabar" (Tobi)
48. "Ular yang melata di tanah bermimpi terbang di angkasa itu hal yang mustahil. Kau yang ingin melakukan sesuatu dan mengincar anak ayam di sarang, malah berbalik diincar oleh mata rajawali yang terbang tinggi di langit" (Sasuke Uchiha to Orochimaru)
49. "Keadilanmu adalah membunuhku dan akatsuki, keadilanku adalah balas dendam terhadap konoha, semua ada latar belakang yang benar, lalu apakah kau dapat menjawab apa itu keadilan?" (Pain to Naruto)
50. "Renge (teratai) konoha bersemi dua kali, saat kita bertemu lagi nanti aku berjanji akan menjadi orang yg lebih kuat" (Rock Lee to Sakura)
51. "Kalau kau yakin dengan takdirmu, maka sejak awal seharusnya kau tidak mengikuti pertarungan ini!!!" (Naruto to Neji)
52. "Seseorang yang gagal menolong temannya tidak pantas menjadi hokage.." (Uzumaki Naruto)
53. "I never go back on my own words" (Uzumaki Naruto)
54. "Anak-anak yang mulai sekarang akan mengemban Konoha, itulah raja Konoha" (Shikamaru Nara & Asuma Sarutobi)
55. "Jika kamu percaya dengan impianmu aku akan membuktikan padamu bahwa kamu bisa meraih impianmu hanya dengan bekerja keras" (Rock Lee)
56. "Kalau itu artinya cerdas... bodoh selamanya pun aku tak keberatan" (Uzumaki Naruto)
57."Untuk mendapatkan sesuatu, kau harus rela mengorbankan sesuatu yg lain (Tayuya)
58. "If there's such a thing as peace,i will find it. I won't give up! (Nagato)
59. "Aku harus percaya pada diriku sendiri, percaya bahwa aku adalah orang yang mereka percaya" (Uzumaki Naruto, chapter 495)
60. "ART IS A BLAST !!!" (Deidara)

61. "Berbeda denganmu, jabatan hokage pasti akan kudapatkan, karena menjadi hokage adalah cita-citaku" (Uzumaki Naruto)
62. Zabuza: "Tidak ada orang yang mampu mengalahkanku" Naruto: "Catat aku sebagai orang pertama yang melakukannya"
63. "Menunggu dan membuat orang lain menunggu adalah hal yg kubenci" (Sasori)
64. "Lelaki manjadi semakin kuat saat ditolak.." (Jiraiya)
65. "There is a time when a guy must take a difficult decision" (Uchiha Itachi)
66. "Jika kau menungguku untuk menyerah, kau akan menungguku selamanya" (Naruto Uzumaki)
67. "Takdir setiap manusia memang telah ditentukan sejak mereka lahir, tetapi dengan kerja keras kita dapat mengalahkan takdir" (Naruto Uzumaki)
68. "Kau adalah daun yang bermandikan sinar matahari, aku adalah akar yang tumbuh dan membusuk di kegelapan" (Danzo)
69. "Faith is better than any plan" (Nagato To Jiraiya)
70. "Sampai matipun aku akan mengejar cita- citaku" (Naruto Uzumaki)
71. "Parents do believe in their children (Minato to Naruto inside Naruto)
72. "It's ok, after all, I'm the fourth son (Naruto to Minato inside Naruto)
73. Kushina : "What is the product of Konoha Yellow Flash and Red Habanero?"
Naruto : "Konoha Orange Hokage"
74. "If you want to kill me, curse me, hate me, live your ugly life, run and run, cling to your life" (Uchiha Itachi)
75."Semua yang memiliki bentuk, suatu saat akan membusuk" (Orochimaru)
76. "Suatu saat nanti kita juga harus menjadi orang yang dipercayakan, bukan lagi orang yang mempercayakan, kalau mau jadi shinobi keren seperti Guru Asuma atau Guru Kakashi" (Shikamaru Nara)
77. "Dia memang jelmaan rubah ekor sembilan,tapi kau harus ingat..dia berbeda dengan muridku yg lain,dia adalah murid kesayanganku" (Iruka Umino to Mizuki)
78. "If you're shinobi, then fight with knowledge of your surroundings" ( Shikamaru Nara)
79. "An expert with stone, can beat a novice with a shuriken (Sasuke Uchiha)
80. "Aku akan melepaskan kutukan itu, kalau memang ada kedamaian, aku akan menemukannya, aku tak akan menyerah" (Naruto Uzumaki)

81. "Ninja itu harus mampu melihat yang terdalam dari yang terdalam" (Kakashi Hatake)
82. "Now there's something I understand a little better. Hate, sadness, even joy. to be able to share it with another person...Naruto Uzumaki from fighting him i learned that. he knew pain like i did and then he taught me that you can change your path. I wish that one day i can be needed by someone. Not as a frightening weapon...But as the sand's Kazekage...(Gaara)
83. "Kalian hanya hidup sekali. Jalani kehidupan dan matilah dengan jalan kehidupan yang kalian inginkan.Tapi apapun jalan yg kalian pilih, jangan lupa untuk melindungi orang yg berharga dalam hidup kalian" (Minato Namikaze)
84. "The power to believe in yourself... That becomes the power that changes destiny" (Genma Shiranui)
85. "When captured birds grow wiser, they try to open the cage with their beaks. They don't give up, because they want to fly again" (Genma Shiranui/wasit Naruto-Neji)
86. "There is no point in training hard if you do not believe in yourself" (Gai Maito)
87. "You only live once! You need not choose an impossible path. You may live as you like, die as you like... Just... no matter what path you choose... never forget to protect those who are precious to you!" (Sarutobi Hiruzen/ Sandaime)
88. "Protect whatever is important to you with these two arms, no matter how tough or sad it is, even if it costs you your life" (Kaiza-Fisherman at Land of Waves)
89. "Love breeds hatred" (Madara Uchiha)
90. "Ada satu hal yang pasti dan telah dibuktikan oleh sejarah.... bahwa manusia adalah makhluk yang sampai kapanpun tidak akan bisa saling memahami..." (Pain)
91.“jika kau benar- benar mau melindungi temanmu kau harus lebih kuat dan tak melarikan diri,itu baru namanya persahabatan” (shikaku nara)
92.“tentang raja aku akan memberitahumu suatu saat, dia akan lahir dan menjadi raja, dia akan menjaga dan melindungi konoha, salah satunya ada di rahim kurenai, tolong jaga dan rawat rajaku” (kata asuma ingatan shikamaru)
93.“Yang di kanan adalah lambang klan akhimichi, kau lihat yang di tengah adalah klan nara , dan yang di kiri adalah yamanaka,kita masing masing telah menguasai jurus yang langka di setiap klan,kita punya hubungan sepesial dan anggota klan kita telah bekerjasama sejak lama,sebagai tradisi klan sarutobi akan menghadiahi kita anting,yang di berikan ke anggota klan yang mengucap sumpahnya” (chouza akimichi)
94.“kau sudah dewasa sekarang , suatu saat kau akan melindungi anakmu dan akan meminjamkan anting anting itu untuk mewariskan sumpahmu” (chouza)
95.“aku bersumpah sungguh- sungguh sebagai pewaris generasi ke 16 klan akhimichi aku akan menjaga sumpah generasi ke 15 dan meneruskannya ke generasi 17 untuk menjaganya dan terbang jauh”pikir chouji “aku harus berubah dengan usahaku sendiri”kata chouji mengeluarkan chakra yang besar dan bersayap kupu-kupu” (chouji akimichi)
96.“berhenti mengingkari keyakinanmu, itu bisa merusak dirimu ,kau sudah mengotori pedangmu dengan darah , ketajaman tak abadi seperti manusia dan pedang” (tadao mifune)
97.“memang Emas dan Perak lebih bersinar dari tembaga, dan juga lebih berharga, tapi kalo banyaknya tembaga yg terkumpul, maka harganya bisa melebihi dari satu koin emas, memang kau bertindak laksana pancaran kemilau emas , tapi kurasa itu hanya luarnya saja, karena itu lah kami bisa menang, maaf kami telah melucuti jubah emasnya ” kata Darui (naruto chapt 529)
98.“saat pengendali kugutsu dapat di kendalikan itulah akhir hidupnya aku sangat bersemanga t untuk mengalahka nmu tak peduli bagaimanap un kau ,dengan mengendali kan boneka sasori yang kau ciptakan aku juga telah mengendali kan jiwamu jurus ini adalah ciptaanmu dan akan abadi dengan sifat jurus yang kau tanamkan dan jiwamu ”(kata kankurou)
99.“aku mau kau juga memiliki boneka ayah dan boneka ibu ku dan jika kau sudah tiada pastikan kau mewarisiny a”kata sasori dengan roh yang perlahan hilang “ya aku mengerti”k ata kankurou “(master sasor)i!!!” teriak deidara
100.“aku kuat bukan karena aku ini jinchuurik i, kekuatan sebenarnya ada di dalam raga ini! Kakak kau pernah mengatakan sesuatu yang berharga untukku! Selama aku memahami perkataanm u dalam perang ini, aku tidak akan gagal!” (killer bee)
101.“jika mereka membunuh temanmu itu hanya akan membuat kebencianm u bertambah, apa kau berniat membunuh musuh sebelum mereka membunuh temanmu? Dan jika kau melakukann ya kau yang akan menanggung kebencian, kau tak mungkin memikul ini sendirian, cepat atau lambat kebencian akan menghantui mu seperti yang di lakukan nagato,per ang ini hanya akan membuatmu mendekatin ya” (kata kyuubi)
102.“kau sudah ingat kan? Apa yang bisa kau perbuat padanya waktu itu? Apa kau bisa menghapus kebenciany a? Tidak dia terus tumbuh di hantui kebencian sampai sekarang dengan kata lain kau tak sanggup melakukann ya” (kata kyuubi)
103.“kau yang tak mengerti !”kata naruto menjepit kepala kyuubi “apa yang membuatmu sangat percaya diri? Padahal kau tak bisa menolong sasuke?” kata kyuubi
“aku akan berakhir jika ragu akan keputusank u, akan kulakukan sesuatu untuk sasuke dan perang bodoh ini” (naruto uzumaki)
104."Heh sepertinya kau sudah tumbuh dewasa dan berpendiri an kuat" (kata kyuubi)
"kau tahu kyuubi? suatu saat ada yang ingin aku lakukan untuk kebencian yang ada pada dirimu, kau memang pernah menjerumus kanku tapi aku tak akan mau terus terperangk ap dengan kebencian" (kata naruto)
105.“kekalahan bukan lahpilihan tapi kau harus terus mencobanya” (madara uchiha)
106.“meskipun langit dan bumi bertukar jantan tetaplah jantan” (kata naruto

Kamis, 24 November 2011

JAWABAN FORM 27-34C

FORM 27

Public Class Form27

    Dim wiwi As New ByIskandar.CariKeDataBaseByIskandar
    Dim rahma As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If kb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If nb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(hj002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(jb002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        wiwi.AturPencarianDataBase("Barang", "KodeBarang", kb002.Text, 1, kammi)
        If wiwi.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        rahma = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb002.Text & "','" & nb002.Text & "'," & Val(hj002.Text) & "," & Val(jb002.Text) & ")", kammi)
        kammi.Open()
        rahma.ExecuteNonQuery()
        kammi.Close()
        rahma.Dispose()

        kb002.Text = ""
        nb002.Text = ""
        hj002.Text = ""
        jb002.Text = ""

    End Sub
End Class
--------------------
FORM 28A

Public Class Form28A

    Dim wiwi As New DataTable
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub rahma()
        Dim vb As New OleDb.OleDbDataAdapter
        vb = New OleDb.OleDbDataAdapter("select * from barang", kammi)
        wiwi.Rows.Clear()
        vb.Fill(wiwi)
        vb.Dispose()
    End Sub
    Private Sub form28A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rahma()
        dgv36109002.DataSource = wiwi
    End Sub

    Private Sub btninput002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btninput002.Click
        If Form28B.Visible = False Then
            Form28B.Show()
        Else
            Form28B.Activate()
        End If
    End Sub

    Private Sub btntutup002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntutup002.Click
        Close()
    End Sub
End Class
----------------------------------

FORM 28B
Public Class Form28B

    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If kb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If nb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(hj002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(jb002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        rahma.AturPencarianDataBase("Barang", "KodeBarang", kb002.Text, 1, kammi)
        If rahma.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        wiwi = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kb002.Text & "','" & nb002.Text & "'," & Val(hj002.Text) & "," & Val(jb002.Text) & ")", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        kb002.Text = ""
        nb002.Text = ""
        hj002.Text = ""
        jb002.Text = ""

        Form28A.rahma()

    End Sub

End Class

---------------------------------------------

FORM 29

Public Class Form29
    Dim wiwi As New OleDb.OleDbCommand
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtc002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txte002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txta002.Text <> txtb002.Text Then

            rahma.AturPencarianDataBase("Barang", "KodeBarang", txtb002.Text, 1, kammi)
            If rahma.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txtb002.Text & "', namabarang = '" & txtc002.Text & "', hargajual = " & Val(txtd002.Text) & ", jumlahbarang = " & Val(txte002.Text) & " where kodebarang = '" & txta002.Text & "'", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""
        txte002.Text = ""

    End Sub
End Class

--------------------------------

FORM 30A

Public Class Form30A
    Dim mus As New DataTable
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub wiwi()
        Dim vb As New OleDb.OleDbDataAdapter
        vb = New OleDb.OleDbDataAdapter("select * from barang", kammi)
        mus.Rows.Clear()
        vb.Fill(mus)
        vb.Dispose()
    End Sub
    Private Sub form30A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wiwi()
        dgv36109002.DataSource = mus
    End Sub

    Private Sub btnexit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnexit002.Click
        If Form30B.Visible = False Then
            Form30B.Show()
        Else
            Form30B.Activate()
        End If

        Form30B.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form30B.txtb002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form30B.txtc002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
        Form30B.txtd002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
        Form30B.txte002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value

        Form30B.Show()
    End Sub
End Class
-----------------------------

FORM 30B

Public Class Form30B
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtc002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txte002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txta002.Text <> txtb002.Text Then
            rahma.AturPencarianDataBase("Barang", "KodeBarang", txtb002.Text, 1, kammi)
            If rahma.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txtb002.Text & "', namabarang = '" & txtc002.Text & "', hargajual = " & Val(txtd002.Text) & ", jumlahbarang = " & Val(txte002.Text) & " where kodebarang = '" & txta002.Text & "'", kammi)

        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""
        txte002.Text = ""

        Form30A.wiwi()
    End Sub

End Class
----------------------------------

FORM 31A
Public Class Form31A
    Dim mus As New DataTable
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub wiwi()
        Dim vb As New OleDb.OleDbDataAdapter
        vb = New OleDb.OleDbDataAdapter("select * from barang", kammi)
        mus.Rows.Clear()
        vb.Fill(mus)
        vb.Dispose()
    End Sub

    Private Sub form31A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wiwi()
        dgv36109002.DataSource = mus
    End Sub

    Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
        If Form31B.Visible = False Then
            Form31B.Show()
        Else
            Form31B.Activate()
        End If

        Form31B.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form31B.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
        Form31B.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
        Form31B.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
        Form31B.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form31B.Show()
    End Sub
End Class
----------------------------

FORM 31B

Public Class Form31B
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click

        If txta002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtc002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txta002.Text <> txte002.Text Then
            rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
            If rahma.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)

        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""
        txte002.Text = "-"

        Form31A.wiwi()
    End Sub

End Class
------------------------------------

FORM32A
Public Class Form32A
    Dim mus As New DataTable
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub rahma()
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select * from barang", kammi)
        mus.Rows.Clear()
        a.Fill(mus)
        a.Dispose()
    End Sub

    Private Sub form32A2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rahma()
        dgv36109002.DataSource = mus
    End Sub

    Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
        If Form32B.Visible = False Then
            Form32B.Show()
        Else
            Form32B.Activate()
        End If
    End Sub

    Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
        If Form32C.Visible = False Then
            Form32C.Show()
        Else
            Form32C.Activate()
        End If

        Form32C.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form32C.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
        Form32C.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
        Form32C.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
        Form32C.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value

        Form32C.Show()
    End Sub

End Class
--------------------------------

FORM 32B

Public Class Form32B
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If txta002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtc002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
        If rahma.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        wiwi = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txta002.Text & "','" & txtb002.Text & "'," & Val(txtc002.Text) & "," & Val(txtd002.Text) & ")", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""

        Form32A.rahma()
    End Sub
End Class
---------------------------------------

FORM 32C

Public Class Form32C
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If txta002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtc002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txta002.Text <> txte002.Text Then
            rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
            If rahma.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)

        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""
        txte002.Text = ""

        Form32A.rahma()
    End Sub

End Class
-------------------------------------------------

FORM 33A

Public Class Form33A
    Dim mus As New DataTable
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub rahma()
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select * from barang", kammi)
        mus.Rows.Clear()
        a.Fill(mus)
        a.Dispose()
    End Sub
    Private Sub form33A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rahma()
        dgv36109002.DataSource = mus
    End Sub

    Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
        If Form33B.Visible = False Then
            Form33B.Show()
        Else
            Form33B.Activate()
        End If

        Form33B.txta002.Text = ""
        Form33B.txtb002.Text = ""
        Form33B.txtc002.Text = ""
        Form33B.txtd002.Text = ""
        Form33B.txte002.Text = "-"
    End Sub

    Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
        If Form33B.Visible = False Then
            Form33B.Show()
        Else
            Form33B.Activate()
        End If

        Form33B.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form33B.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
        Form33B.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
        Form33B.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
        Form33B.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value

        Form33B.Show()
    End Sub

    Private Sub btnhapus002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus002.Click
        wiwi = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & dgv36109002.CurrentRow.Cells("kodebarang").Value & "'", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        rahma()
    End Sub
End Class
-----------------------------------

FORM 33B

Public Class Form33B
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub latihan()
        If txta002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtc002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If
    End Sub

    Private Sub add()
        latihan()
        rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
        If rahma.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        wiwi = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txta002.Text & "','" & txtb002.Text & "'," & Val(txtc002.Text) & "," & Val(txtd002.Text) & ")", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""

        Form33A.rahma()
    End Sub

    Private Sub ubah()
        latihan()
        If txta002.Text <> txtb002.Text Then
            rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
            If rahma.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)

        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""
        txte002.Text = "-"

        Form33A.rahma()
    End Sub

    Private Sub btnsimpan_click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        If txte002.Text = "-" Then
            add()
        Else
            ubah()
        End If

    End Sub
End Class
--------------------------------

FORM 34A

Public Class Form34A
    Private Sub DaftarBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarangToolStripMenuItem.Click
        If Form34B.Visible = False Then
            Form34B.MdiParent = Me
            Form34B.Show()
        Else
            Form34B.Activate()
        End If
    End Sub

    Private Sub KodeBarangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarangToolStripMenuItem.Click
        If Form34C.Visible = False Then
            Form34C.MdiParent = Me
            Form34C.Show()
        Else
            Form34C.Activate()
        End If
    End Sub

    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        If Form34B.Visible = False Then
            Form34B.MdiParent = Me
            Form34B.Show()
        Else
            Form34B.Activate()
        End If
    End Sub

    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        If Form34C.Visible = False Then
            Form34C.MdiParent = Me
            Form34C.Show()
        Else
            Form34C.Activate()
        End If
    End Sub

End Class
----------------------------------------------

FORM 34B
Public Class Form34B

    Dim mus As New DataTable
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub rahma()
        Dim a As New OleDb.OleDbDataAdapter
        a = New OleDb.OleDbDataAdapter("select * from barang", kammi)
        mus.Rows.Clear()
        a.Fill(mus)
        a.Dispose()
    End Sub

    Private Sub Form34B_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        rahma()
        dgv36109002.DataSource = mus
    End Sub

    Private Sub btntambah002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntambah002.Click
        If Form34C.Visible = False Then
            Form34C.MdiParent = Me.MdiParent
            Form34C.Show()
        Else
            Form34C.Activate()
        End If

        Form34C.txta002.Text = ""
        Form34C.txtb002.Text = ""
        Form34C.txtc002.Text = ""
        Form34C.txtd002.Text = ""
        Form34C.txte002.Text = "-"
    End Sub

    Private Sub btnedit002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnedit002.Click
        If Form34C.Visible = False Then
            Form34C.MdiParent = Me.MdiParent
            Form34C.Show()
        Else
            Form34C.Activate()
        End If

        Form34C.txta002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value
        Form34C.txtb002.Text = dgv36109002.CurrentRow.Cells("namabarang").Value
        Form34C.txtc002.Text = dgv36109002.CurrentRow.Cells("hargajual").Value
        Form34C.txtd002.Text = dgv36109002.CurrentRow.Cells("jumlahbarang").Value
        Form34C.txte002.Text = dgv36109002.CurrentRow.Cells("kodebarang").Value

        Form34C.Show()
    End Sub

    Private Sub btnhapus002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus002.Click
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        rahma()
    End Sub
End Class
--------------------------------------------

FORM34C

Public Class Form34C
    Dim rahma As New ByIskandar.CariKeDataBaseByIskandar
    Dim wiwi As New OleDb.OleDbCommand
    Dim kammi As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")
    Private Sub latihan()
        If txta002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If txtb002.Text.Length = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtc002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If

        If Val(txtd002.Text) = 0 Then
            MsgBox("Isi rong itu yang kosong")
            Exit Sub
        End If
    End Sub

    Private Sub add()
        latihan()
        rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
        If rahma.JumlanBaris > 0 Then
            MsgBox("Adami kode barang seperti itu")
            Exit Sub
        End If

        wiwi = New OleDb.OleDbCommand("insert into barang(kodebarang, namabarang, hargajual, jumlahbarang) values ('" & txta002.Text & "','" & txtb002.Text & "'," & Val(txtc002.Text) & "," & Val(txtd002.Text) & ")", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""

        Form34B.rahma()
    End Sub

    Private Sub ubah()
        latihan()
        If txta002.Text <> txtb002.Text Then
            rahma.AturPencarianDataBase("Barang", "KodeBarang", txta002.Text, 1, kammi)
            If rahma.JumlanBaris > 0 Then
                MsgBox("Adami kode barang seperti itu")
                Exit Sub
            End If
        End If

        wiwi = New OleDb.OleDbCommand("update barang set kodebarang = '" & txta002.Text & "', namabarang = '" & txtb002.Text & "', hargajual = " & Val(txtc002.Text) & ", jumlahbarang = " & Val(txtd002.Text) & " where kodebarang = '" & txte002.Text & "'", kammi)
        kammi.Open()
        wiwi.ExecuteNonQuery()
        kammi.Close()
        wiwi.Dispose()

        txta002.Text = ""
        txtb002.Text = ""
        txtc002.Text = ""
        txtd002.Text = ""
        txte002.Text = "-"

        Form34B.rahma()
    End Sub
    Private Sub btnsimpan002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan002.Click
        If txte002.Text = "-" Then
            add()
        Else
            ubah()
        End If
    End Sub

End Class