Latihan37_46109017

Public Class Latihan37_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_37_017_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)
ayu.Rows.Clear()
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 ardin()
Dim ardin1 As Integer = 0
For Each ardin2 As DataRow In ayu.Rows
ardin1 += ardin2("JUMLAH")
Next
TOT46109017.Text = ardin1
End Sub

Private Sub UN46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UN46109017.TextChanged, HR46109017.TextChanged
JM46109017.Text = Val(UN46109017.Text) * Val(HR46109017.Text)
End Sub

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

Private Sub KB46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KB46109017.TextChanged
NB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""
End Sub

Private Sub TM46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TM46109017.Click
If KB46109017.Text.Length = 0 Then
MsgBox("Isi Kode Barang")
Exit Sub
End If

If Val(UN46109017.Text) = 0 Then
MsgBox("Isi Unit Barang")
Exit Sub
End If

If Val(HR46109017.Text) = 0 Then
MsgBox("Isi Harga Barang")
Exit Sub
End If

Dim mama As DataRow
mama = ayu.Rows.Find(KB46109017.Text)
If mama Is Nothing Then
mama = ayu.NewRow
mama("KODEBARANG") = KB46109017.Text
mama("NAMABARANG") = NB46109017.Text
mama("UNIT") = Val(UN46109017.Text)
mama("HARGA") = Val(HR46109017.Text)
mama("JUMLAH") = Val(JM46109017.Text)

ayu.Rows.Add(mama)

KB46109017.Text = ""
UN46109017.Text = ""
HR46109017.Text = ""

Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
ardin()
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 Transaksi")
Exit Sub
End If

If JT46109017.Text.Length = 0 Then
MsgBox("isi Jenis Transaksi")
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("No Trans 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 = ""

ayu.Rows.Clear()
ardin()
End Sub

Private Sub NT46109017_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NT46109017.TextChanged

End Sub
End Class