latihan_24A_46110023

Deskripsi Form Latihan 24A

Dalam form Latihan 24A  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_24B_46110023.

Langkah-langkah membuat dan menjalankan form latihan 24A

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

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

      Dim tabel As New DataTable

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

      Dim mobil As New OleDb.OleDbDataAdapter

mobil = New OleDb.OleDbDataAdapter("select*from barang inner join detailtransaksi on barang.kodebarang = detailtransaksi.kodebarang", jembatan)

        tabel.Rows.Clear()

        mobil.Fill(tabel)

        mobil.Dispose()

        DGV_46110023.DataSource = tabel

      End Sub

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

        If LATIHAN_24B_46110023.Visible = False Then

            LATIHAN_24B_46110023.Show()

        Else : LATIHAN_24B_46110023.Activate()

        End If

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

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

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

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

        LATIHAN_24B_46110023.dian(LATIHAN_24B_46110023.KOBA_46110023.Text)

       End Sub

Private Sub dgv_46110023_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_46110023.CellContentClick

    End Sub

End Class

Kemudian selesaikan latihan 24B

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

Even
Load