apkom 4 form 15-26

NURFAHNY

361 09 013

3A-D3

Public Class Form15_36109013

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim DT As New DataTable

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

        Dim fany As New OleDb.OleDbDataAdapter

        fany = New OleDb.OleDbDataAdapter("select * from barang", CONECT)

        DT.Rows.Clear()

        fany.Fill(DT)

        dgv36109013.DataSource = DT

        fany.Dispose()

    End Sub

End Class

Public Class Form16_36109013

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim DT As New DataTable

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

        Dim fany As New OleDb.OleDbDataAdapter

        fany = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", CONECT)

        DT.Rows.Clear()

        fany.Fill(DT)

        dgv36109013.DataSource = DT

        fany.Dispose()

    End Sub

End Class

Public Class Form17_36109013

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim DT As New DataTable

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

        Dim fany As New OleDb.OleDbDataAdapter

        fany = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", CONECT)

        DT.Rows.Clear()

        fany.Fill(DT)

        DGV36109013.DataSource = DT

        fany.Dispose()

    End Sub

End Class

Public Class Form18_36109013

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim DT As New DataTable

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

        Dim fany As New OleDb.OleDbDataAdapter

        fany = New OleDb.OleDbDataAdapter("select * from Query4", CONECT)

        DT.Rows.Clear()

        fany.Fill(DT)

        DGV36109013.DataSource = DT

        fany.Dispose()

    End Sub

End Class

Public Class Form19_36109013

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim DT As New DataTable

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

        Dim fany As New OleDb.OleDbDataAdapter

        fany = New OleDb.OleDbDataAdapter("select * from Query5", CONECT)

        DT.Rows.Clear()

        fany.Fill(DT)

        DGV36109013.DataSource = DT

        fany.Dispose()

    End Sub

End Class

Public Class Form20_36109013

    Dim CONECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= '" & Application.StartupPath & "\datatransaksijualbeli.accdb'")

    Dim DT As New DataTable

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

        Dim fany As New OleDb.OleDbDataAdapter

        fany = New OleDb.OleDbDataAdapter("select * from Query6", CONECT)

        DT.Rows.Clear()

        fany.Fill(DT)

        DGV36109013.DataSource = DT

        fany.Dispose()

    End Sub

End Class

Public Class Form21_36109013

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

    Dim dt1 As New DataTable

    Dim dt2 As New DataTable

    Dim ds As New DataSet

    Dim bs1 As New BindingSource

    Dim bs2 As New BindingSource

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

        Dim fany1 As New OleDb.OleDbDataAdapter

        fany1 = New OleDb.OleDbDataAdapter("select * from MASTERTRANSAKSI", CONECT)

        fany1.Fill(dt1)

        fany1.Dispose()

        DGV1_36109013.DataSource = dt1

        Dim fany2 As New OleDb.OleDbDataAdapter

        fany2 = New OleDb.OleDbDataAdapter("select * from DETAILTRANSAKSI", CONECT)

        fany2.Fill(dt2)

        fany2.Dispose()

        DGV2_36109013.DataSource = dt2

        ds.Tables.Add(dt1)

        ds.Tables.Add(dt2)

        dt1.TableName = "ames"

        dt2.TableName = "wawa"

        ds.Relations.Add(New DataRelation("denny", ds.Tables("ames").Columns("NOTRANS"), ds.Tables("wawa").Columns("NOTRANS")))

        bs1.DataSource = ds

        bs1.DataMember = "ames"

        bs2.DataSource = bs1

        bs2.DataMember = "denny"

        DGV1_36109013.DataSource = bs1

        DGV2_36109013.DataSource = bs2

    End Sub

End Class

Public Class Form22_36109013

    Dim NURFAHNY As New DataSet

    Dim FANY1 As New DataTable

    Dim FANY2 As New DataTable

    Dim ROS1 As New BindingSource

    Dim ROS2 As New BindingSource

    Dim CONECT As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

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

        Dim FA1 As New OleDb.OleDbDataAdapter

        FA1 = New OleDb.OleDbDataAdapter("select  * from MASTERTRANSAKSI", CONECT)

        FA1.Fill(FANY1)

        FA1.Dispose()

        DGV1_36109013.DataSource = FANY1

        Dim FA2 As New OleDb.OleDbDataAdapter

        FA2 = New OleDb.OleDbDataAdapter("select  * from Query7", CONECT)

        FA2.Fill(FANY2)

        FA2.Dispose()

        DGV2_36109013.DataSource = FANY2

        NURFAHNY.Tables.Add(FANY1)

        NURFAHNY.Tables.Add(FANY2)

        FANY1.TableName = "AMES"

        FANY2.TableName = "WAWA"

        NURFAHNY.Relations.Add(New DataRelation("DENNY", NURFAHNY.Tables("AMES").Columns("NOTRANS"), NURFAHNY.Tables("WAWA").Columns("NOTRANS")))

        ROS1.DataSource = NURFAHNY

        ROS1.DataMember = "AMES"

        ROS2.DataSource = ROS1

        ROS2.DataMember = "DENNY"

        DGV1_36109013.DataSource = ROS1

        DGV2_36109013.DataSource = ROS2

    End Sub

End Class

Public Class Form23a_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

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

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from mastertransaksi", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        uppa.Dispose()

        DGVa36109013.DataSource = dt

    End Sub

    Private Sub KLIK36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK36109013.Click

        If Form23b_36109013.Visible = False Then

            Form23b_36109013.Show()

        Else

            Form23b_36109013.Activate()

        End If

        Form23b_36109013.no36109013.Text = DGVa36109013.CurrentRow.Cells("notrans").Value

        Form23b_36109013.TGL36109013.Value = DGVa36109013.CurrentRow.Cells("tanggaltransaksi").Value

        Form23b_36109013.jenis36109013.Text = DGVa36109013.CurrentRow.Cells("jenistransaksi").Value

        Form23b_36109013.fany(Form23b_36109013.no36109013.Text)

    End Sub

End Class

Public Class Form23b_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

    Public Sub fany(ByVal A As String)

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='" & A & "'", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        DGVb36109013.DataSource = dt

    End Sub   

End Class

Public Class Form24a_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

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

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from barang", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        uppa.Dispose()

        DGVa36109013.DataSource = dt

    End Sub

    Private Sub detail36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail36109013.Click

        If Form24b_36109013.Visible = False Then

            Form24b_36109013.Show()

        Else

            Form24b_36109013.Activate()

        End If

        Form24b_36109013.KD36109013.Text = DGVa36109013.CurrentRow.Cells("kodebarang").Value

        Form24b_36109013.NM36109013.Text = DGVa36109013.CurrentRow.Cells("namabarang").Value

        Form24b_36109013.HRG36109013.Text = DGVa36109013.CurrentRow.Cells("hargajual").Value

        Form24b_36109013.JUM36109013.Text = DGVa36109013.CurrentRow.Cells("persediaanawal").Value

        Form24b_36109013.fany(Form24b_36109013.KD36109013.Text)

    End Sub

End Class

Public Class Form24b_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

    Public Sub fany(ByVal A As String)

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from detailtransaksi where kodebarang='" & A & "'", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        DGVb36109013.DataSource = dt

    End Sub

End Class

Public Class Form25a_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

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

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from barang", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        uppa.Dispose()

        DGVa36109013.DataSource = dt

    End Sub

    Private Sub detail36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail36109013.Click

        If Form25b_36109013.Visible = False Then

            Form25b_36109013.Show()

        Else

            Form25b_36109013.Activate()

        End If

        Form25b_36109013.KD36109013.Text = DGVa36109013.CurrentRow.Cells("kodebarang").Value

        Form25b_36109013.NM36109013.Text = DGVa36109013.CurrentRow.Cells("namabarang").Value

        Form25b_36109013.HRG36109013.Text = DGVa36109013.CurrentRow.Cells("hargajual").Value

        Form25b_36109013.JUM36109013.Text = DGVa36109013.CurrentRow.Cells("persediaanawal").Value

        Form25b_36109013.fany(Form25b_36109013.KD36109013.Text)

    End Sub

End Class

Public Class Form25b_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

    Public Sub fany(ByVal A As String)

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from Query5", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        DGVb36109013.DataSource = dt

    End Sub

End Class

Public Class Form26a_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

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

        Dim uppa As New OleDb.OleDbDataAdapter

        uppa = New OleDb.OleDbDataAdapter("select*from barang", koneksi)

        dt.Rows.Clear()

        uppa.Fill(dt)

        uppa.Dispose()

        DGVa36109013.DataSource = dt

    End Sub

    Private Sub detail36109013_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles detail36109013.Click

        If Form26b_36109013.Visible = False Then

            Form26b_36109013.Show()

        Else

            Form26b_36109013.Activate()

        End If

        Form26b_36109013.KD36109013.Text = DGVa36109013.CurrentRow.Cells("kodebarang").Value

        Form26b_36109013.NM36109013.Text = DGVa36109013.CurrentRow.Cells("namabarang").Value

        Form26b_36109013.HRG36109013.Text = DGVa36109013.CurrentRow.Cells("hargajual").Value

        Form26b_36109013.JUM36109013.Text = DGVa36109013.CurrentRow.Cells("persediaanawal").Value

        Form26b_36109013.fany(Form26b_36109013.KD36109013.Text)

    End Sub

End Class

Public Class Form26b_36109013

    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\datatransaksijualbeli.accdb")

    Dim dt As New DataTable

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

        DGVb36109013.DataSource = dt

    End Sub

    Public Sub fany(ByVal A As String)

        Dim uppa As New OleDb.OleDbDataAdapter

        Dim fah As String

        fah = "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 = '" & A & "'"

        uppa = New OleDb.OleDbDataAdapter(fah, koneksi)

        uppa.Fill(dt)

        Dim ros1 As Integer = 0

        Dim ros2 As Integer = 0

        For Each ros3 As DataRow In dt.Rows

            ros1 += ros3("Unit")

            ros2 += ros3("Jumlah")

        Next

        totun36109013.Text = ros1

        totjum36109013.Text = ros2

    End Sub

End Class