Script Visual Basic Aplikasi Komputer 4, Semester 5 (latihan 23a-26b)

Public Class Latihan23A_36109006
    Dim HARUN36109006 As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRN36109006 As New DataTable
    Private Sub Latihan23A_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select* from mastertransaksi", HARUN36109006)
        HRN36109006.Rows.Clear()
        adapter.Fill(HRN36109006)
        adapter.Dispose()

        DGV_36109006.DataSource = HRN36109006


    End Sub
    Private Sub Klik006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Klik006.Click
        If Latihan23B_36109006.Visible = False Then
            Latihan23B_36109006.Show()
        Else : Latihan23B_36109006.Activate()
        End If

        Latihan23B_36109006.N_36109006.Text = DGV_36109006.CurrentRow.Cells("NoTrans").Value
        Latihan23B_36109006.DT_36109006.Value = DGV_36109006.CurrentRow.Cells("TanggalTransaksi").Value
        Latihan23B_36109006.J_36109006.Text = DGV_36109006.CurrentRow.Cells("JenisTransaksi").Value

        Latihan23B_36109006.muhammadharun(Latihan23B_36109006.N_36109006.Text)

    End Sub
End Class


Public Class Latihan23B_36109006
    Dim HARUN36109006 As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRN36109006 As New DataTable
    Public Sub muhammadharun(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", HARUN36109006)
        HRN36109006.Rows.Clear()
        adapter.Fill(HRN36109006)

        DGV1_36109006.DataSource = HRN36109006


    End Sub
End Class


Public Class Form24A_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRN As New DataTable
    Private Sub Form24A_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from Barang", HARUN)
        HRN.Rows.Clear()
        adapter.Fill(HRN)
        adapter.Dispose()

        DGVA_36109006.DataSource = HRN

    End Sub
    Private Sub Klik006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Klik006.Click
        If Form24B_36109006.Visible = False Then
            Form24B_36109006.Show()
        Else : Form24B_36109006.Activate()
        End If

        Form24B_36109006.KODEBARANG006.Text = DGVA_36109006.CurrentRow.Cells("KodeBarang").Value
        Form24B_36109006.NAMABARANG006.Text = DGVA_36109006.CurrentRow.Cells("NamaBarang").Value
        Form24B_36109006.HARGAJUAL006.Text = DGVA_36109006.CurrentRow.Cells("PersediaanAwal").Value
        Form24B_36109006.JUMLAHBARANG006.Text = DGVA_36109006.CurrentRow.Cells("HargaJual").Value

        Form24B_36109006.uly(Form24B_36109006.KODEBARANG006.Text)


    End Sub
End Class




Public Class Form24B_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRN As New DataTable
    Public Sub uly(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where KodeBarang='" & A & "'", HARUN)
        HRN.Rows.Clear()
        adapter.Fill(HRN)

        DGVB_36109006.DataSource = HRN

    End Sub
End Class

Public Class Form25A_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRN As New DataTable
    Private Sub Form25A_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from Barang", HARUN)
        HRN.Rows.Clear()
        adapter.Fill(HRN)
        adapter.Dispose()

        DGVA_36109006.DataSource = HRN

    End Sub
    Private Sub Klik006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Klik006.Click
        If Form25B_36109006.Visible = False Then
            Form25B_36109006.Show()
        Else : Form25B_36109006.Activate()
        End If

        Form25B_36109006.KODEBARANG1_36109006.Text = DGVA_36109006.CurrentRow.Cells("KodeBarang").Value
        Form25B_36109006.NAMABARANG1_36109006.Text = DGVA_36109006.CurrentRow.Cells("NamaBarang").Value
        Form25B_36109006.HARGAJUAL1_36109006.Text = DGVA_36109006.CurrentRow.Cells("PersediaanAwal").Value
        Form25B_36109006.JUMLAHBARANG1_36109006.Text = DGVA_36109006.CurrentRow.Cells("HargaJual").Value


        Form25B_36109006.HRUN(Form25B_36109006.KODEBARANG1_36109006.Text)


    End Sub
End Class

Public Class Form25B_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRN As New DataTable
    Public Sub HRUN(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UHRN, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UHRN]*[DETAILTRANSAKSI]![HARGA] AS Jumlah FROM MASTERTRANSAKSI INNER JOIN DETAILTRANSAKSI ON MASTERTRANSAKSI.NOTRANS = DETAILTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'", HARUN)
        HRN.Rows.Clear()
        adapter.Fill(HRN)
        adapter.Dispose()

        DGVB_36109006.DataSource = HRN

    End Sub

  
End Class


Public Class Form26A_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRUN As New DataTable
    Private Sub Form26A_36109006_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from Barang", HARUN)
        HRUN.Rows.Clear()
        adapter.Fill(HRUN)
        adapter.Dispose()

        DGVA_36109006.DataSource = HRUN

    End Sub

    Private Sub Klik006_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Klik006.Click
        If Form26B_36109006.Visible = False Then
            Form26B_36109006.Show()
        Else : Form26B_36109006.Activate()
        End If

        Form26B_36109006.KODEBARANG1_36109006.Text = DGVA_36109006.CurrentRow.Cells("KodeBarang").Value
        Form26B_36109006.NAMABARANG1_36109006.Text = DGVA_36109006.CurrentRow.Cells("NamaBarang").Value
        Form26B_36109006.HARGAJUAL1_36109006.Text = DGVA_36109006.CurrentRow.Cells("PersediaanAwal").Value
        Form26B_36109006.JUMLAHBARANG1_36109006.Text = DGVA_36109006.CurrentRow.Cells("HargaJual").Value


        Form26B_36109006.HRN(Form26B_36109006.KODEBARANG1_36109006.Text)


    End Sub

End Class


Public Class Form26B_36109006
    Dim HARUN As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim HRUN As New DataTable
    Public Sub HRN(ByVal A As String)
        Dim adapter As New 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 MASTERTRANSAKSI INNER JOIN DETAILTRANSAKSI ON MASTERTRANSAKSI.NOTRANS = DETAILTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'", HARUN)
        HRUN.Rows.Clear()
        adapter.Fill(HRUN)
        adapter.Dispose()

        DGVB_36109006.DataSource = HRUN

        Dim tu As Integer
        Dim total As Integer
        For Each baris As DataRow In HRUN.Rows
            tu = tu + baris("UNIT")
            total = total + baris("JUMLAH")
        Next
        TOTALUNIT_36109006.Text = tu
        TOTALJUMLAH_36109006.Text = total

    End Sub

 
End Class