Latihan_25A_46110027

Deskripsi Form Latihan25A

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

Object Label

Terdapat 1 label pada form latihan 25B "Daftar Barang"

Object Button                                                                

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

Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Script Unique

-
Even 

Load

• Langkah-langkah Membuat Form 25A

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

2.  Ketik nama Latihan_25A  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_25A_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 datatable As New DataTable

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

        Dim shoell As New OleDb.OleDbDataAdapter

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

        datatable.Rows.Clear()

        shoell.Fill(datatable)

        shoell.Dispose()

        dgv_46110027.DataSource = datatable

    End Sub

    Private Sub DT_46110027_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dt_46110027.Click

        If Latihan_25B_46110027.Visible = False Then

            Latihan_25B_46110027.Show()

        Else : Latihan_25B_46110027.Activate()

        End If

        Latihan_25B_46110027.tb1_46110027.Text = dgv_46110027.CurrentRow.Cells("kodebarang").Value

        Latihan_25B_46110027.tb2_46110027.Text = dgv_46110027.CurrentRow.Cells("namabarang").Value

        Latihan_25B_46110027.tb3_46110027.Text = dgv_46110027.CurrentRow.Cells("hargajual").Value

        Latihan_25B_46110027.tb4_46110027.Text = dgv_46110027.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110027.rsty(Latihan_25B_46110027.tb1_46110027.Text)

    End Sub

End Class

6.    Klik start debugging

7. Maka akan tampil hasil sbb: