LATIHAN040B_46109017

Public Class LATIHAN040B_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 DATA As New DataTable

Public Sub MANIS()
Dim X As New OleDb.OleDbDataAdapter
X = New OleDb.OleDbDataAdapter("Select BARANG.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT*DETAILTRANSAKSI.HARGA AS JUMLAH from DETAILTRANSAKSI INNER JOIN BARANG ON DETAILTRANSAKSI.KODEBARANG=BARANG.KODEBARANG WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
DATA.Rows.Clear()
X.Fill(DATA)
End Sub

Private Sub Latihan040B_46109017_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim dataPrimary(1) As DataColumn
dataPrimary(0) = DATA.Columns("NOTRANS")
DATA.PrimaryKey = dataPrimary

DG_46109017.DataSource = DATA

TOTALJUMLAH()
End Sub
Public Sub TOTALJUMLAH()
Dim TOT As Double = 0
For Each x As DataRow In DATA.Rows
TOT = TOT + x("JUMLAH")
Next
TOT_46109017.Text = TOT
End Sub
Private Sub dg_46109017_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DG_46109017.CellContentClick
If DG_46109017.Columns(e.ColumnIndex).Name = "KODEBARANG" Then

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

Dim Pencari As New ByIskandar.CariKeDataBaseByIskandar
Pencari.AturPencarianDataBase("BARANG", "KODEBARANG", DG_46109017.CurrentRow.Cells("KODEBARANG").Value, 1, ayu)

If Pencari.JumlanBaris > 0 Then
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = Pencari.DataTablenya.Rows(0).Item("NAMABARANG")
Else
DG_46109017.CurrentRow.Cells("KODEBARANG").Value = ""
If Latihan383940_46109017.ShowDialog = Windows.Forms.DialogResult.OK Then
DG_46109017.CurrentRow.Cells("KODEBARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("KODEBARANG").Value
DG_46109017.CurrentRow.Cells("NAMABARANG").Value = Latihan383940_46109017.DATA46109017.CurrentRow.Cells("NAMABARANG").Value
End If
End If

ElseIf DG_46109017.Columns(e.ColumnIndex).Name = "UNIT" Or DG_46109017.Columns(e.ColumnIndex).Name = "HARGA" Then

DG_46109017.CurrentRow.Cells("JUMLAH").Value = DG_46109017.CurrentRow.Cells("UNIT").Value * DG_46109017.CurrentRow.Cells("HARGA").Value
End If

TOTALJUMLAH()
End Sub

Private Sub Button1_Button2()
If NT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu")
Exit Sub
End If

If JT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Jenis transaksi harus diisi dulu")
Exit Sub
End If

If DATA.Rows.Count() = 0 Then
MsgBox("Maaf, Proses tidak dapat dilanjutkan")
Exit Sub
End If

If StatusStrip1.Text <> NT_46109017.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109017.Text, 1, ayu)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If

Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI(NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109017.Text & "', #" & DT_46109017.Value.Month & "/" & DT_46109017.Value.Day & "/" & DT_46109017.Value.Year & "#, '" & JT_46109017.Text & "')", ayu)

ayu.Open()

T.ExecuteNonQuery()

ayu.Close()


For Each X As DataRow In DATA.Rows

T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109017.Text & "', '" & X("KODEBARANG") & "'," & X("UNIT") & ", " & X("HARGA") & ")", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
Next

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

DATA.Rows.Clear()

TOTALJUMLAH()

LATIHAN040A_46109017.ayuaa()

End Sub

Private Sub edit_46109017()
If NT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Nomor transaksi harus diisi dulu nah !!!")
Exit Sub
End If

If JT_46109017.Text.Length = 0 Then
MsgBox("Maaf, Jenis transaksi harus diisi dulu nah !!!")
Exit Sub
End If

If DATA.Rows.Count() = 0 Then
MsgBox("Maaf, Proses tidak dapat dilanjutkan gang....")
Exit Sub
End If

If StatusStrip1.Text <> NT_46109017.Text Then
Dim pencari As New ByIskandar.CariKeDataBaseByIskandar
pencari.AturPencarianDataBase("MASTERTRANSAKSI", "NOTRANS", NT_46109017.Text, 1, ayu)
If pencari.JumlanBaris > 0 Then
MsgBox("Nomor transaksi sudah ada")
Exit Sub
End If
End If

Dim T As New OleDb.OleDbCommand
T = New OleDb.OleDbCommand("DELETE * FROM MASTERTRANSAKSI WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()

T = New OleDb.OleDbCommand("INSERT INTO MASTERTRANSAKSI (NOTRANS, TANGGALTRANSAKSI, JENISTRANSAKSI) VALUES ('" & NT_46109017.Text & "', #" & DT_46109017.Value.Month & "/" & DT_46109017.Value.Day & "/" & DT_46109017.Value.Year & "#, '" & JT_46109017.Text & "')", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()

T = New OleDb.OleDbCommand("DELETE * FROM DETAILTRANSAKSI WHERE NOTRANS= '" & NT_46109017.Text & "'", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()


For Each XX As DataRow In DATA.Rows

T = New OleDb.OleDbCommand("INSERT INTO DETAILTRANSAKSI (NOTRANS, KODEBARANG, UNIT, HARGA) VALUES ('" & NT_46109017.Text & "', '" & XX("KODEBARANG") & "', " & XX("UNIT") & ", " & XX("HARGA") & ")", ayu)
ayu.Open()
T.ExecuteNonQuery()
ayu.Close()
T.Dispose()
Next

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

DATA.Rows.Clear()

TOTALJUMLAH()
LATIHAN040A_46109017.ayuaa()
End Sub

Private Sub save_46109017_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46109017.Click
If StatusStrip1.Text = "-" Then
Button1_Button2()
Else
edit_46109017()
End If
End Sub


End Class