Latihan 25A_36110055

PROSEDUR LATIHAN 25A:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat satu label (yang bertuliskan Daftar Barang).

Ø  Buat satu object datagridview yang digunakan untuk menampilkan master transaksi.

Ø  Setelah itu buat satu object button (Detail Transaksi). Button Klik digunakan untuk menampilkan detail dari master transaksi yang ada di datagridview.

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_25A_36001155

    Dim bridgeMasnur As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim tabelMasnur As New DataTable

    Private Sub Latihan_25A_36001155_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim truckMas As New OleDb.OleDbDataAdapter

        truckMas = New OleDb.OleDbDataAdapter("Select * from BARANG", bridgeMasnur)

        tabelMasnur.Rows.Clear()

        truckMas.Fill(tabelMasnur)

        truckMas.Dispose()

        Manarai_36001155.DataSource = tabelMasnur

    End Sub

    Private Sub klik_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles klik_36001155.Click

        If Latihan_25B_36001155.Visible = False Then

            Latihan_25B_36001155.Show()

        Else

            Latihan_25B_36001155.Activate()

        End If

        Latihan_25B_36001155.Show()

        Latihan_25B_36001155.KB_36001155.Text = Manarai_36001155.CurrentRow.Cells("KODEBARANG").Value

        Latihan_25B_36001155.NB_36001155.Text = Manarai_36001155.CurrentRow.Cells("NAMABARANG").Value

        Latihan_25B_36001155.HJ_36001155.Text = Manarai_36001155.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_25B_36001155.JB_36001155.Text = Manarai_36001155.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_25B_36001155.Mas()

    End Sub

End Class