LATIHAN039_46109017

Public Class LATIHAN039_46109017

Dim ayu As New DataTable
Dim wandika As New OleDb.OleDbCommand
Dim utami As New ByIskandar.CariKeDataBaseByIskandar
Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\datamajemuk.accdb;Jet OLEDB:Database Password=putri")

Private Sub Latihan_039_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim idung As New OleDb.OleDbDataAdapter
idung = 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 = '" & NT46109017.Text & "'", conect)
idung.Fill(ayu)
idung.Dispose()

Dim dpc(1) As DataColumn
dpc(0) = ayu.Columns("kodebarang")
ayu.PrimaryKey = dpc

DATA46109017.DataSource = ayu
End Sub

Private Sub DATA46109017_CellEndEdit(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DATA46109017.CellEndEdit
If DATA46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
DATA46109017.CurrentRow.Cells("UNIT").Value = 0
DATA46109017.CurrentRow.Cells("HARGA").Value = 0
DATA46109017.CurrentRow.Cells("JUMLAH").Value = 0

utami.AturPencarianDataBase("barang", "kodebarang", DATA46109017.CurrentRow.Cells("KODEBARANG").Value, 1, conect)
If utami.JumlanBaris > 0 Then
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = utami.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DATA46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DATA46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If

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

Private Sub mama()
Dim mama1 As Integer = 0
For Each mama2 As DataRow In ayu.Rows
mama1 += mama2("JUMLAH")
Next
TOT46109017.Text = mama1
End Sub

Private Sub S46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles S46109017.Click
If NT46109017.Text.Length = 0 Then
MsgBox("Isi No Transaksinya")
Exit Sub
End If

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

If ayu.Rows.Count = 0 Then
MsgBox("Isi datatable")
Exit Sub
End If

utami.AturPencarianDataBase("mastertransaksi", "notrans", NT46109017.Text, 1, conect)
If utami.JumlanBaris > 0 Then
MsgBox("notrans sudah ada")
Exit Sub
End If

wandika = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & NT46109017.Text & "',#" & T46109017.Value.Month & "/" & T46109017.Value.Day & "/" & T46109017.Value.Year & "#,'" & JT46109017.Text & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()

For Each x As DataRow In ayu.Rows
wandika = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & NT46109017.Text & "', '" & x("kodebarang") & "', '" & x("unit") & "', '" & x("harga") & "')", conect)
conect.Open()
wandika.ExecuteNonQuery()
conect.Close()
Next

wandika.Dispose()

NT46109017.Text = ""
JT46109017.Text = ""
TOT46109017.Text = ""

ayu.Rows.Clear()
mama()
End Sub
End Class