APKOM4 FORM 15-20

FORM 15

PublicClass Form15

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

Dim DT AsNew DataTable

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

Dim uthi AsNew OleDb.OleDbDataAdapter

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

        DT.Rows.Clear()

        uthi.Fill(DT)

        DGV_36109016.DataSource = DT

        uthi.Dispose()

EndSub

EndClass

FORM 16

PublicClass Form16

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

Dim DT AsNew DataTable

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

Dim uthi AsNew OleDb.OleDbDataAdapter

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

        DT.Rows.Clear()

        uthi.Fill(DT)

        dgv_36109016.DataSource = DT

        uthi.Dispose()

EndSub

EndClass

FORM 17

PublicClass Form17

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

Dim DT AsNew DataTable

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

Dim uthi AsNew OleDb.OleDbDataAdapter

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

        DT.Rows.Clear()

        uthi.Fill(DT)

        dgv_36109016.DataSource = DT

        uthi.Dispose()

EndSub

EndClass

FORM 18

PublicClass Form18

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

Dim DT AsNew DataTable

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

Dim uthi AsNew OleDb.OleDbDataAdapter

        uthi = New OleDb.OleDbDataAdapter("select * from QUERY1", CONECT)

        DT.Rows.Clear()

        uthi.Fill(DT)

        dgv_36109016.DataSource = DT

        uthi.Dispose()

EndSub

EndClass

FORM 19

PublicClass Form19

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

Dim DT AsNew DataTable

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

Dim uthi AsNew OleDb.OleDbDataAdapter

        uthi = New OleDb.OleDbDataAdapter("select * from QUERY2", CONECT)

        DT.Rows.Clear()

        uthi.Fill(DT)

        dgv_36109016.DataSource = DT

        uthi.Dispose()

EndSub

EndClass

FORM 20

PublicClass Form20

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

Dim DT AsNew DataTable

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

Dim uthi AsNew OleDb.OleDbDataAdapter

        uthi = New OleDb.OleDbDataAdapter("select * from QUERY3", CONECT)

        DT.Rows.Clear()

        uthi.Fill(DT)

        dgv_36109016.DataSource = DT

        uthi.Dispose()

EndSub

EndClass