LATIHAN040A_46109017

Public Class LATIHAN040A_46109017
Dim ayu As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=putri")
Dim wandika As New DataTable
Dim wandika1 As New DataTable
Dim dset As New DataSet
Dim MMM1 As New BindingSource
Dim MMM2 As New BindingSource
Public Sub ayuaa()

wandika1.Rows.Clear()
wandika.Rows.Clear()

Dim B1 As New OleDb.OleDbDataAdapter
B1 = New OleDb.OleDbDataAdapter("Select * From MASTERTRANSAKSI", ayu)
B1.Fill(wandika)

B1 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG", ayu)
B1.Fill(wandika1)

B1.Dispose()
End Sub

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


dset.Tables.Add(wandika)
dset.Tables.Add(wandika1)


wandika.TableName = "T01"
wandika1.TableName = "T02"


dset.Relations.Add(New DataRelation("X", dset.Tables("T01").Columns("NOTRANS"), dset.Tables("T02").Columns("NOTRANS")))


MMM1.DataSource = dset
MMM1.DataMember = "T01"
MMM2.DataSource = MMM1
MMM2.DataMember = "X"


DG1_46109017.DataSource = MMM1
DG2_46109017.DataSource = MMM2

End Sub

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

LATIHAN040B_46109017.StatusStrip1.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.NT_46109017.Text = DG1_46109017.CurrentRow.Cells("NOTRANS").Value
LATIHAN040B_46109017.JT_46109017.Text = DG1_46109017.CurrentRow.Cells("JENISTRANSAKSI").Value

LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()
End Sub

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

LATIHAN040B_46109017.StatusStrip1.Text = "-"
LATIHAN040B_46109017.NT_46109017.Text = ""
LATIHAN040B_46109017.JT_46109017.Text = ""

LATIHAN040B_46109017.MANIS()
LATIHAN040B_46109017.TOTALJUMLAH()

End Sub

Private Sub HAPUS_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46109017.Click
Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()

T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS='" & DG1_46109017.CurrentRow.Cells("NOTRANS").Value & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()

T.Dispose()

ayuaa()
End Sub
End Class