Latihan 24A_36001155

PROSEDUR LATIHAN 24A:

Ø  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_24A_36001155

    Dim Masnur 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_24A_36001155_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim truckMasnur As New OleDb.OleDbDataAdapter

        truckMasnur = New OleDb.OleDbDataAdapter("Select * from BARANG", Masnur)

        tabelMasnur.Clear()

        truckMasnur.Fill(tabelMasnur)

        truckMasnur.Dispose()

        Masnur3_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_24B_36001155.Visible = False Then

            Latihan_24B_36001155.Show()

        Else

            Latihan_24B_36001155.Activate()

        End If

        Latihan_24B_36001155.Show()

        Latihan_24B_36001155.KB_36001155.Text = Masnur3_36001155.CurrentRow.Cells("KODEBARANG").Value

        Latihan_24B_36001155.NB_36001155.Text = Masnur3_36001155.CurrentRow.Cells("NAMABARANG").Value

        Latihan_24B_36001155.HJ_36001155.Text = Masnur3_36001155.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_24B_36001155.JB_36001155.Text = Masnur3_36001155.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_24B_36001155.Mas()

    End Sub

End Class