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