latihan_25A_46110023

Deskripsi Form Latihan 25A

Dalam form Latihan 25A  terdapat 3 object yaitu 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 berupa tabel.

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_25B_46110023

Langkah-langkah membuat dan menjalankan form latihan 25A

 Langkah-langkah atau cara membuat form pada latihan 25A 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_25A_46110023

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

      Dim datatable As New DataTable

private Sub latihan_25A_46110023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim shoell As New OleDb.OleDbDataAdapter

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

        datatable.Rows.Clear()

        shoell.Fill(datatable)

        shoell.Dispose()

        DGV_46110023.DataSource = datatable

    End Sub

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

        If LATIHAN_25B_46110023.Visible = False Then

            LATIHAN_25B_46110023.Show()

        Else : LATIHAN_25B_46110023.Activate()

        End If

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

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

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

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

        LATIHAN_25B_46110023.uly(LATIHAN_25B_46110023.KOBA_46110023.Text)

      End Sub

End Class

setelah selesai membuat script, selesaikan terlebih dahulu form latihan 25B, lalu jalankan program.

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

Even
Load