APKOM4 FORM 26-30

FORM 26-A

PublicClass Form26_A

Dim dt AsNew DataTable

Dim conect AsNew OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source ="& Application.StartupPath &"\DataTransaksiJualBeli.accdb")

PrivateSub Form26_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Dim adapter AsNew OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from barang", conect)

        dt.Rows.Clear()

        adapter.Fill(dt)

        adapter.Dispose()

        dgv_36109016.DataSource = dt

EndSub

PrivateSub btn_36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_36109016.Click

If Form26_B.Visible = FalseThen

            Form26_B.Show()

Else

            Form26_B.Activate()

EndIf

        Form26_B.A_36109016.Text = dgv_36109016.CurrentRow.Cells("kodebarang").Value

        Form26_B.B_36109016.Text = dgv_36109016.CurrentRow.Cells("namabarang").Value

        Form26_B.C_36109016.Text = dgv_36109016.CurrentRow.Cells("hargajual").Value

        Form26_B.D_36109016.Text = dgv_36109016.CurrentRow.Cells("persediaanawal").Value

        Form26_B.poltek(Form26_B.A_36109016.Text)

EndSub

EndClass

FORM 26-B

PublicClass Form26_B

Dim dt AsNew DataTable

Dim conect AsNew OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source ="& Application.StartupPath &"\DataTransaksiJualBeli.accdb")

PublicSub poltek(ByVal ak AsString)

Dim adapter AsNew OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS=MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG='"& ak &"'", conect)

        dt.Rows.Clear()

        adapter.Fill(dt)

        adapter.Dispose()

        dgv_36109016.DataSource = dt

Dim poltek AsInteger

Dim uthi AsInteger

ForEach baris As DataRow In dt.Rows

            poltek = poltek + baris("UNIT")

            uthi = uthi + baris("JUMLAH")

Next

        totunit_36109016.Text = poltek

        jumlah_36109016.Text = uthi

EndSub

EndClass

FORM27

Public Class Form27

    Dim uthi As New ByIskandar.CariKeDataBaseByIskandar

    Dim ak As New OleDb.OleDbCommand

    Dim poltek As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click

        If kode36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If nama36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(harga36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(jumlah36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, poltek)

        If uthi.JumlanBaris > 0 Then

            MsgBox("Adami kode barang seperti itu")

            Exit Sub

        End If

        ak = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")", poltek)

        poltek.Open()

        ak.ExecuteNonQuery()

        poltek.Close()

        ak.Dispose()

        kode36109016.Text = ""

        nama36109016.Text = ""

        harga36109016.Text = ""

        jumlah36109016.Text = ""

    End Sub

End Class

FORM28-A

Public Class Form28_A

    Dim poltek As New DataTable

    Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub uthi()

        Dim fm As New OleDb.OleDbDataAdapter

        fm = New OleDb.OleDbDataAdapter("select * from barang", ak)

        poltek.Rows.Clear()

        fm.Fill(poltek)

        fm.Dispose()

    End Sub

    Private Sub Form28_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        uthi()

        dgv36109016.DataSource = poltek

    End Sub

    Private Sub input36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles input36109016.Click

        If Form28_B.Visible = False Then

            Form28_B.Show()

        Else

            Form28_B.Activate()

        End If

    End Sub

    Private Sub tutup36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tutup36109016.Click

        Close()

    End Sub

End Class

FORM28-B

Public Class Form28_B

    Dim uthi As New ByIskandar.CariKeDataBaseByIskandar

    Dim poltek As New OleDb.OleDbCommand

    Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click

        If kode36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If nama36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(harga36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(jumlah36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        uthi.AturPencarianDataBase("Barang", "KodeBarang", kode36109016.Text, 1, ak)

        If uthi.JumlanBaris > 0 Then

            MsgBox("Adami kode barang seperti itu")

            Exit Sub

        End If

        poltek = New OleDb.OleDbCommand("insert into barang (kodebarang, namabarang, hargajual, jumlahbarang) values ('" & kode36109016.Text & "','" & nama36109016.Text & "'," & Val(harga36109016.Text) & "," & Val(jumlah36109016.Text) & ")", ak)

        ak.Open()

        poltek.ExecuteNonQuery()

        ak.Close()

        poltek.Dispose()

        kode36109016.Text = ""

        nama36109016.Text = ""

        harga36109016.Text = ""

        jumlah36109016.Text = ""

        Form28_A.uthi()

    End Sub

End Class

FORM29

Public Class Form29

    Dim poltek As New OleDb.OleDbCommand

    Dim uthi As New ByIskandar.CariKeDataBaseByIskandar

    Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click

        If kode2_36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If nama36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(harga36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(jumlah36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If kode1_36109016.Text <> kode2_36109016.Text Then

            uthi.AturPencarianDataBase("Barang", "KodeBarang", kode2_36109016.Text, 1, ak)

            If uthi.JumlanBaris > 0 Then

                MsgBox("Adami kode barang seperti itu")

                Exit Sub

            End If

        End If

        poltek = New OleDb.OleDbCommand("update barang set kodebarang = '" & kode2_36109016.Text & "', namabarang = '" & nama36109016.Text & "', hargajual = " & Val(harga36109016.Text) & ", jumlahbarang = " & Val(jumlah36109016.Text) & " where kodebarang = '" & kode1_36109016.Text & "'", ak)

        ak.Open()

        poltek.ExecuteNonQuery()

        ak.Close()

        poltek.Dispose()

        kode1_36109016.Text = ""

        kode2_36109016.Text = ""

        nama36109016.Text = ""

        harga36109016.Text = ""

        jumlah36109016.Text = ""

    End Sub

End Class

FORM30-A

Public Class Form30_A

    Dim poltek As New DataTable

    Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Public Sub uthi()

        Dim has As New OleDb.OleDbDataAdapter

        has = New OleDb.OleDbDataAdapter("select * from barang", ak)

        poltek.Rows.Clear()

        has.Fill(poltek)

        has.Dispose()

    End Sub

    Private Sub Form30_A_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        uthi()

        dgv36109016.DataSource = poltek

    End Sub

    Private Sub edit36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit36109016.Click

        If Form30_B.Visible = False Then

            Form30_B.Show()

        Else

            Form30_B.Activate()

        End If

        Form30_B.kode1_36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value

        Form30_B.kode2_36109016.Text = dgv36109016.CurrentRow.Cells("kodebarang").Value

        Form30_B.nama36109016.Text = dgv36109016.CurrentRow.Cells("namabarang").Value

        Form30_B.harga36109016.Text = dgv36109016.CurrentRow.Cells("hargajual").Value

        Form30_B.jumlah36109016.Text = dgv36109016.CurrentRow.Cells("jumlahbarang").Value

        Form30_B.Show()

    End Sub

End Class

FORM30-B

Public Class Form30_B

    Dim uthi As New ByIskandar.CariKeDataBaseByIskandar

    Dim poltek As New OleDb.OleDbCommand

    Dim ak As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Databarang.ACCDB")

    Private Sub simpan36109016_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan36109016.Click

        If kode2_36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If nama36109016.Text.Length = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(harga36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If Val(jumlah36109016.Text) = 0 Then

            MsgBox("Isi rong itu yang kosong")

            Exit Sub

        End If

        If kode1_36109016.Text <> kode2_36109016.Text Then

            uthi.AturPencarianDataBase("Barang", "KodeBarang", kode2_36109016.Text, 1, ak)

            If uthi.JumlanBaris > 0 Then

                MsgBox("Adami kode barang seperti itu")

                Exit Sub

            End If

        End If

        poltek = New OleDb.OleDbCommand("update barang set kodebarang = '" & kode2_36109016.Text & "', namabarang = '" & nama36109016.Text & "', hargajual = " & Val(harga36109016.Text) & ", jumlahbarang = " & Val(jumlah36109016.Text) & " where kodebarang = '" & kode1_36109016.Text & "'", ak)

        ak.Open()

        poltek.ExecuteNonQuery()

        ak.Close()

        poltek.Dispose()

        kode1_36109016.Text = ""

        kode2_36109016.Text = ""

        nama36109016.Text = ""

        harga36109016.Text = ""

        jumlah36109016.Text = ""

        Form30_A.uthi()

    End Sub

End Class