form 40B

Public Class Latihan_40B_084
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/dataMajemuk.accdb")
Dim dt As New DataTable
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim cm As New OleDb.OleDbCommand

Public Sub Deriel2()
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 = '" & notrans_084.Text & "'", dfa)
dt.Rows.Clear()
a.Fill(dt)
End Sub

Public Sub Deriel3()
Dim total As Integer = 0
For Each x As DataRow In dt.Rows
total += x("Jumlah")
Next
tot_084.Text = total
End Sub

Private Sub Deriel4()
If notrans_084.Text.Length = 0 Then
MsgBox("Isi rong itu Notransnya..")
Exit Sub
End If

If jetrans_084.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()
Deriel4()
Deriel.AturPencarianDataBase("mastertransaksi", "notrans", notrans_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu..")
Exit Sub
End If

cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#, '" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

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

notrans_084.Text = ""
jetrans_084.Text = ""
tot_084.Text = ""
not_084.Text = "-"

dt.Rows.Clear()
Latihan_40A_084.Deriel1()
End Sub

Public Sub edit()
Deriel4()
If notrans_084.Text <> not_084.Text Then
Deriel.AturPencarianDataBase("mastertransaksi", "notrans", notrans_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami Notrans seperti itu,,mohon ganti..")
Exit Sub
End If
End If

cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & not_084.Text & "'", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#, '" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & not_084.Text & "'", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

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

notrans_084.Text = ""
jetrans_084.Text = ""
tot_084.Text = ""
not_084.Text = "-"

dt.Rows.Clear()
Latihan_40A_084.Deriel1()
End Sub

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

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

dgv_084.DataSource = dt
End Sub

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

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

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

ElseIf dgv_084.Columns(e.ColumnIndex).Name = "UNIT" Or dgv_084.Columns(e.ColumnIndex).Name = "HARGA" Then
dgv_084.CurrentRow.Cells("JUMLAH").Value = dgv_084.CurrentRow.Cells("UNIT").Value * dgv_084.CurrentRow.Cells("HARGA").Value
Deriel3()
End If
End Sub

Private Sub smp_084_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smp_084.Click
If not_084.Text = "-" Then
tambah()
Else
edit()
End If
End Sub

Private Sub dgv_084_DataError(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles dgv_084.DataError
MsgBox("Terjadi sedikit kesalahan...")
End Sub
End Class

form 40A

Public Class Latihan_40A_084
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/DataMajemuk.accdb")
Dim dt1 As New DataTable
Dim dt2 As New DataTable
Dim ds As New DataSet
Dim bs1 As New BindingSource
Dim bs2 As New BindingSource

Public Sub Deriel1()
Dim a As New OleDb.OleDbDataAdapter
dt2.Rows.Clear()
dt1.Rows.Clear()
a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", dfa)
a.Fill(dt1)
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", dfa)
a.Fill(dt2)
End Sub

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

ds.Tables.Add(dt1)
ds.Tables.Add(dt2)

dt1.TableName = "fitrah"
dt2.TableName = "fitrah2"

ds.Relations.Add(New DataRelation("a", ds.Tables("fitrah").Columns("notrans"), ds.Tables("fitrah2").Columns("notrans")))

bs1.DataSource = ds
bs1.DataMember = "fitrah"

bs2.DataSource = bs1
bs2.DataMember = "a"

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

dgv1_084.DataSource = bs1
dgv2_084.DataSource = bs2
End Sub

Private Sub _Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hps_084.Click
Dim cm As New OleDb.OleDbCommand
cm = New OleDb.OleDbCommand("delete * from mastertransaksi where notrans = '" & dgv1_084.CurrentRow.Cells("notrans").Value & "'", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

cm = New OleDb.OleDbCommand("delete * from detailtransaksi where notrans = '" & dgv1_084.CurrentRow.Cells("notrans").Value & "'", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()
cm.Dispose()
Deriel1()
End Sub

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

Latihan_40B_084.notrans_084.Text = ""
Latihan_40B_084.jetrans_084.Text = ""
Latihan_40B_084.not_084.Text = "-"

Latihan_40B_084.faisal2()
Latihan_40B_084.faisal3()
End Sub

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

Latihan_40B_084.notrans_084.Text = dgv1_084.CurrentRow.Cells("notrans").Value
Latihan_40B_084.dtp_084.Value = dgv1_084.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_40B_084.jetrans_084.Text = dgv1_084.CurrentRow.Cells("jenistransaksi").Value
Latihan_40B_084.not_084.Text = dgv1_084.CurrentRow.Cells("notrans").Value

Latihan_40B_084.faisal2()
Latihan_40B_084.faisal3()
End Sub
End Class

form 39

Public Class Latihan_39_084
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub Latihan_39_084_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 = '" & notrans_084.Text & "'", dfa)
a.Fill(dt)
a.Dispose()

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

dgv_084.DataSource = dt
End Sub

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

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

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

ElseIf dgv_084.Columns(e.ColumnIndex).Name = "UNIT" Or dgv_084.Columns(e.ColumnIndex).Name = "HARGA" Then
dgv_084.CurrentRow.Cells("JUMLAH").Value = dgv_084.CurrentRow.Cells("UNIT").Value * dgv_084.CurrentRow.Cells("HARGA").Value
fitrah()
End If
End Sub

Private Sub fitrah()
Dim fitrah1 As Integer = 0
For Each fitrah2 As DataRow In dt.Rows
fitrah1 += fitrah2("JUMLAH")
Next
tot_084.Text = fitrah1
End Sub

Private Sub d_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smp_084.Click
If notrans_084.Text.Length = 0 Then
MsgBox("Isi rong itu No Transaksinya")
Exit Sub
End If

If jetrans_084.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

Deriel.AturPencarianDataBase("mastertransaksi", "notrans", notrans_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If

cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#,'" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

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

cm.Dispose()

notrans_084.Text = ""
jetrans_084.Text = ""
tot_084.Text = ""

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

form 38

Public Class Latihan_38_084
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub Latihan_38_084_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 = '" & notrans_084.Text & "'", dfa)
a.Fill(dt)
a.Dispose()

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

dgv_084.DataSource = dt
End Sub

Private Sub fitrah()
Dim fitrah1 As Integer = 0
For Each fitrah2 As DataRow In dt.Rows
fitrah1 += fitrah2("JUMLAH")
Next
tot_084.Text = fitrah1
End Sub

Private Sub un_084_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_084.TextChanged, hrg_084.TextChanged
jml_084.Text = Val(un_084.Text) * Val(hrg_084.Text)
End Sub

Private Sub kb_084_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles kb_084.Leave
If kb_084.Text.Length = 0 Then
Exit Sub
End If
Deriel.AturPencarianDataBase("barang", "kodebarang", kb_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
kb_084.Text = Deriel.DataTablenya.Rows(0).Item("KODEBARANG")
nb_084.Text = Deriel.DataTablenya.Rows(0).Item("NAMABARANG")
Else
MsgBox("Kode barang seperti itu tidak ada..")
If Latihan_38_39_40_084.ShowDialog = Windows.Forms.DialogResult.OK Then
kb_084.Text = Latihan_38_39_40_084.dgv_084.CurrentRow.Cells("kodebarang").Value
nb_084.Text = Latihan_38_39_40_084.dgv_084.CurrentRow.Cells("namabarang").Value
Else
kb_084.Text = ""
End If
End If
End Sub

Private Sub kb_084_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_084.TextChanged
nb_084.Text = ""
un_084.Text = ""
hrg_084.Text = ""
End Sub

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

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

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

Dim dr As DataRow
dr = dt.Rows.Find(kb_084.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb_084.Text
dr("NAMABARANG") = nb_084.Text
dr("UNIT") = un_084.Text
dr("HARGA") = hrg_084.Text
dr("JUMLAH") = jml_084.Text

dt.Rows.Add(dr)

kb_084.Text = ""
un_084.Text = ""
hrg_084.Text = ""

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

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

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

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

Deriel.AturPencarianDataBase("mastertransaksi", "notrans", notrans_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami No Transaksi seperti itu..")
Exit Sub
End If

cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#,'" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

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

notrans_084.Text = ""
jetrans_084.Text = ""

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


FORM 38,39,40

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

Private Sub Latihan_38_39_40_084_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", dfa)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()

dgv_084.DataSource = dt
End Sub
End Class

form 37

Public Class Latihan_37_084
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub Latihan_37_084_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 ='" & notrans_084.Text & "'", dfa)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()

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

dgv_084.DataSource = dt
End Sub

Private Sub fitrah()
Dim fitrah1 As Integer = 0
For Each fitrah2 As DataRow In dt.Rows
fitrah1 += fitrah2("JUMLAH")
Next
tot_084.Text = fitrah1
End Sub

Private Sub ff_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_084.TextChanged, hrg_084.TextChanged
jml_084.Text = Val(un_084.Text) * Val(hrg_084.Text)
End Sub

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

Private Sub kb_084_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_084.TextChanged
nb_084.Text = ""
un_084.Text = ""
hrg_084.Text = ""
End Sub

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

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

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

Dim dr As DataRow
dr = dt.Rows.Find(kb_084.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb_084.Text
dr("NAMABARANG") = nb_084.Text
dr("UNIT") = Val(un_084.Text)
dr("HARGA") = Val(hrg_084.Text)
dr("JUMLAH") = Val(jml_084.Text)

dt.Rows.Add(dr)

kb_084.Text = ""
un_084.Text = ""
hrg_084.Text = ""

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

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

If jetrans_084.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

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

cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#,'" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

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

notrans_084.Text = ""
jetrans_084.Text = ""

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

form 36

Public Class Latihan_36_084
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

Private Sub Latihan_36_084_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 = '" & notrans_084.Text & "'", dfa)
a.Fill(dt)
a.Dispose()

dgv_084.DataSource = dt

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

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

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

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

Dim dr As DataRow
dr = dt.Rows.Find(kb_084.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb_084.Text
dr("UNIT") = un_084.Text
dr("HARGA") = hg_084.Text

dt.Rows.Add(dr)

kb_084.Text = ""
un_084.Text = ""
hg_084.Text = ""

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

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

If jetrans_084.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

Deriel.AturPencarianDataBase("mastertransaksi", "notrans", notrans_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If

cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#,'" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

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

notrans_084.Text = ""
jetrans_084.Text = ""

dt.Rows.Clear()
End Sub
End Class

form 35

Public Class Latihan_35_084
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim hma As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/datamajemuk.ACCDB")

Private Sub Latihan_35_084_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 = '" & notra_084.Text & "'", hma)
a.Fill(dt)
a.Dispose()

dgv_084.DataSource = dt
End Sub

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

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

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

Dim dr As DataRow
dr = dt.NewRow
dr("KODEBARANG") = kb_084.Text
dr("UNIT") = un_084.Text
dr("HARGA") = hg_084.Text

dt.Rows.Add(dr)

kb_084.Text = ""
un_084.Text = ""
hg_084.Text = ""
End Sub

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

If jetra_084.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

Deriel.AturPencarianDataBase("mastertransaksi", "notrans", notra_084.Text, 1, hma)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami notrans seperti itu")
Exit Sub
End If

cm = New OleDb.OleDbCommand("insert into mastertransaksi(notrans, tanggaltransaksi, jenistransaksi) values ('" & notra_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#,'" & jetra_084.Text & "')", hma)
hma.Open()
cm.ExecuteNonQuery()
hma.Close()

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

notra_084.Text = ""
jetra_084.Text = ""

dt.Rows.Clear()
End Sub
End Class