APKOM4 FORM 21-25

FORM 21

PublicClass Form21

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

Dim uthi1 AsNew DataTable

Dim uthi2 AsNew DataTable

Dim ds AsNew DataSet

Dim bs1 AsNew BindingSource

Dim bs2 AsNew BindingSource

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

Dim a AsNew OleDb.OleDbDataAdapter

Dim b AsNew OleDb.OleDbDataAdapter

        a = New OleDb.OleDbDataAdapter("select * from mastertransaksi", CONECT)

        a.Fill(uthi1)

        a.Dispose()

        b = New OleDb.OleDbDataAdapter("select * from detailtransaksi", CONECT)

        b.Fill(uthi2)

        b.Dispose()

        ds.Tables.Add(uthi1)

        ds.Tables.Add(uthi2)

        uthi1.TableName = "poltek1"

        uthi2.TableName = "poltek2"

        ds.Relations.Add(New DataRelation("poltek", ds.Tables("poltek1").Columns("NOTRANS"), ds.Tables("poltek2").Columns("NOTRANS")))

        bs1.DataSource = ds

        bs1.DataMember = "poltek1"

        bs2.DataSource = bs1

        bs2.DataMember = "poltek"

        dgv1_36109016.DataSource = bs1

        dgv2_36109016.DataSource = bs2

EndSub

EndClass

FORM 22

PublicClass Form22

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

Dim poltek1 AsNew DataTable

Dim poltek2 AsNew DataTable

Dim ds AsNew DataSet

Dim bs1 AsNew BindingSource

Dim bs2 AsNew BindingSource

PrivateSub Form22_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)

        uthi.Fill(poltek1)

        dgv1_36109016.DataSource = poltek2

        uthi.Dispose()

Dim poltek AsNew OleDb.OleDbDataAdapter

        poltek = New OleDb.OleDbDataAdapter("select * from QUERY4", CONECT)

        poltek.Fill(poltek2)

        dgv2_36109016.DataSource = poltek2

        poltek.Dispose()

        ds.Tables.Add(poltek1)

        ds.Tables.Add(poltek2)

        poltek1.TableName = "uthi1"

        poltek2.TableName = "uthi2"

        ds.Relations.Add(New DataRelation("uthi", ds.Tables("uthi1").Columns("NOTRANS"), ds.Tables("uthi2").Columns("NOTRANS")))

        bs1.DataSource = ds

        bs1.DataMember = "uthi1"

        bs2.DataSource = bs1

        bs2.DataMember = "uthi"

        dgv1_36109016.DataSource = bs1

        dgv2_36109016.DataSource = bs2

EndSub

EndClass

FORM 23-A

PublicClass Form23_A

Dim dt AsNew DataTable

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

PrivateSub Form23_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 mastertransaksi", 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 Form23_b.Visible = FalseThen

            Form23_b.Show()

Else : Form23_b.Activate()

EndIf

        Form23_b.A_36109016.Text = dgv_36109016.CurrentRow.Cells("notrans").Value

        Form23_b.B_36109016.Text = dgv_36109016.CurrentRow.Cells("tanggaltransaksi").Value

        Form23_b.C_36109016.Text = dgv_36109016.CurrentRow.Cells("jenistransaksi").Value

        Form23_b.poltek(Form23_b.A_36109016.Text)

EndSub

EndClass

FORM 23-B

PublicClass Form23_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 uthi AsString)

Dim adapter AsNew OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where notrans='"& uthi &"'", conect)

        dt.Rows.Clear()

        adapter.Fill(dt)

        dgv_36109016.DataSource = dt

EndSub

EndSub

EndClass

FORM 24-A

PublicClass Form24_A

Dim dt AsNew DataTable

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

PrivateSub Form24_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 Form24_B.Visible = FalseThen

            Form24_B.Show()

Else : Form24_B.Activate()

EndIf

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

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

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

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

        Form24_B.poltek(Form24_B.A_36109016.Text)

EndSub

EndClass

FORM 24-B

 PublicClass Form24_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 uthi AsString)

Dim adapter AsNew OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from detailtransaksi where kodebarang='"& uthi &"'", conect)

        dt.Rows.Clear()

        adapter.Fill(dt)

        dgv_36109016.DataSource = dt

EndSub

EndClass

FORM 25-A

PublicClass Form25_A

Dim dt AsNew DataTable

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

PrivateSub Form25_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 Form25_B.Visible = FalseThen

            Form25_B.Show()

Else

            Form25_B.Activate()

EndIf

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

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

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

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

        Form25_B.poktek(Form25_B.A_36109016.Text)

EndSub

EndClass

FORM 25-B

PublicClass Form25_B

Dim dt AsNew DataTable

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

PublicSub poktek(ByVal uthi 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='"& uthi &"'", conect)

        dt.Rows.Clear()

        adapter.Fill(dt)

        adapter.Dispose()

        dgv_36109016.DataSource = dt

EndSub

EndClass