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