Latihan_26A_46110027

Deskripsi Form Latihan26A

  Pada form latihan 26A ada 3 object yang digunakan yaitu Label, Button dan Data Grid View.

Object Label

Terdapat 1 label pada form latihan 26A "Daftar Barang".

Object Button                                                                

Terdapat 1 object button (Klik). Tombol klik digunakan untuk menampilkan detail dari master transaksi yang ada pada form “Latihan_26B_46110027”.

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

-
Even 

Load

• Langkah-langkah Membuat Form 26A

1. Buka Project yang telah dibuat sebelumnya , Pilih menu Project lalu klik add windows form

2.  Ketik nama Latihan_26A  yang akan dibuat pada kotak “NAME” lalu pilih “add”

 3. Buatlah desain seperti berikut menggunakan toolbox

                                    
         Klik kanan, pilih "properties" dan Beri nama pada objek di kolom "Name"

4. Pilih menu “view” klik  “code”

5. Masukkan rumus berikut: 

Public Class Latihan_26A_46110027
    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")
    Dim data As New DataTable

    Private Sub Latihan_26A_46110020_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select*from barang", conect)
        data.Rows.Clear()
        adapter.Fill(data)
        adapter.Dispose()

        dgv_46110027.DataSource = data

    End Sub

    Private Sub DT_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt_46110027.Click
        If Latihan_26B_46110027.Visible = False Then
            Latihan_26B_46110027.Show()
        Else : Latihan_26B_46110027.Activate()
        End If

        Latihan_26B_46110027.tb1_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value
        Latihan_26B_46110027.tb2_46110027.Text = dgv_46110027.CurrentRow.Cells("namabarang").Value
        Latihan_26B_46110027.tb3_46110027.Text = dgv_46110027.CurrentRow.Cells("hargajual").Value
        Latihan_26B_46110027.tb4_46110027.Text = dgv_46110027.CurrentRow.Cells("persediaanawal").Value

        Latihan_26B_46110027.SAYANG(Latihan_26B_46110027.tb1_46110027.Text)
    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub
End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: