latihan_26A_46110023

 

Deskripsi Form Latihan 26A

Dalam form Latihan 26A hanya terdapat Object Label, Object DataGridView, dan Object Button.

Object Label
Terdapat 1 objek label yaitu "Daftar Barang"

Object DataGridView
Terdapat 1 object datagridview yang digunakan untuk menampilkan daftar barang.

Object Button
Terdapat 1 object button yaitu "detail transaksi". Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview. Detail dari daftar barang itu akan muncul pada form Latihan_26B_46110023.

Langkah-langkah membuat dan menjalankan form latihan 26A

 Langkah-langkah atau cara membuat form pada latihan 26A ini sama saja dengan langkah-langkah membuat  form pada latihan-latihan sebelumnya,. Yang membedakan hanyalah desaign formnya dan scriptnya. Pada form ini bentuk formnya seperti berikut:

Setelah desaignnya jadi, klik kanan pada desaidn kemudian pilih view code maka akan muncul halaman baru lalu masukkan script seperti dibawah ini:

Public Class LATIHAN_26A_46110023

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

    Dim data As New DataTable

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from barang", conect)

        data.Rows.Clear()

        adapter.Fill(data)

        adapter.Dispose()

        DGV_46110023.DataSource = data

    End Sub

    Private Sub DETAIL_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DETAIL_46110023.Click

        If LATIHAN_26B_46110023.Visible = False Then

            LATIHAN_26B_46110023.Show()

        Else : LATIHAN_26B_46110023.Activate()

        End If

        LATIHAN_26B_46110023.KOBA_46110023.Text = DGV_46110023.CurrentRow.Cells("kodebarang").Value

        LATIHAN_26B_46110023.NAMA_46110023.Text = DGV_46110023.CurrentRow.Cells("namabarang").Value

        LATIHAN_26B_46110023.HARJU_46110023.Text = DGV_46110023.CurrentRow.Cells("hargajual").Value

        LATIHAN_26B_46110023.JUBA_46110023.Text = DGV_46110023.CurrentRow.Cells("persediaanawal").Value

        LATIHAN_26B_46110023.uly(LATIHAN_26B_46110023.KOBA_46110023.Text)

    End Sub

End Class

Setelah script ini selesai, lanjutkan dengan membuat form ltihan 26B

Script Unique
Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya. 

Even
Load