form 37

Public Class Latihan_37_084
Dim dt As New DataTable
Dim cm As New OleDb.OleDbCommand
Dim Deriel As New ByIskandar.CariKeDataBaseByIskandar
Dim dfa As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

Private Sub Latihan_37_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 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 ='" & notrans_084.Text & "'", dfa)
dt.Rows.Clear()
a.Fill(dt)
a.Dispose()

Dim dc(1) As DataColumn
dc(0) = dt.Columns("kodebarang")
dt.PrimaryKey = dc

dgv_084.DataSource = dt
End Sub

Private Sub fitrah()
Dim fitrah1 As Integer = 0
For Each fitrah2 As DataRow In dt.Rows
fitrah1 += fitrah2("JUMLAH")
Next
tot_084.Text = fitrah1
End Sub

Private Sub ff_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles un_084.TextChanged, hrg_084.TextChanged
jml_084.Text = Val(un_084.Text) * Val(hrg_084.Text)
End Sub

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

Private Sub kb_084_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles kb_084.TextChanged
nb_084.Text = ""
un_084.Text = ""
hrg_084.Text = ""
End Sub

Private Sub plus_084_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles plus_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(hrg_084.Text) = 0 Then
MsgBox("Isi rong itu Harga na..")
Exit Sub
End If

Dim dr As DataRow
dr = dt.Rows.Find(kb_084.Text)
If dr Is Nothing Then
dr = dt.NewRow
dr("KODEBARANG") = kb_084.Text
dr("NAMABARANG") = nb_084.Text
dr("UNIT") = Val(un_084.Text)
dr("HARGA") = Val(hrg_084.Text)
dr("JUMLAH") = Val(jml_084.Text)

dt.Rows.Add(dr)

kb_084.Text = ""
un_084.Text = ""
hrg_084.Text = ""

Else
MsgBox("Kode barang itu sudah ada, mohon ganti dengan kode barang yang lain...")
End If
fitrah()
End Sub

Private Sub smp_084_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles smp_084.Click
If notrans_084.Text.Length = 0 Then
MsgBox("Isi rong No Transaksi na..")
Exit Sub
End If

If jetrans_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", notrans_084.Text, 1, dfa)
If Deriel.JumlanBaris > 0 Then
MsgBox("Adami no trans seperti itu...")
Exit Sub
End If

cm = New OleDb.OleDbCommand("insert into mastertransaksi (notrans, tanggaltransaksi, jenistransaksi) values ('" & notrans_084.Text & "',#" & dtp_084.Value.Month & "/" & dtp_084.Value.Day & "/" & dtp_084.Value.Year & "#,'" & jetrans_084.Text & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()

For Each x As DataRow In dt.Rows
cm = New OleDb.OleDbCommand("insert into detailtransaksi (notrans, kodebarang, unit, harga) values ('" & notrans_084.Text & "','" & x("kodebarang") & "','" & x("unit") & "','" & x("harga") & "')", dfa)
dfa.Open()
cm.ExecuteNonQuery()
dfa.Close()
Next
cm.Dispose()

notrans_084.Text = ""
jetrans_084.Text = ""

dt.Rows.Clear()
fitrah()
End Sub
End Class