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