Latihan_24A_36110034

Deskripsi penyelesaian

Form Latihan_24A_36110034  terdapat tiga object yaitu DataGreatView, label, dan button

Object Label

Terdapat satu objek lebel yang bertuliskan DAFTRA BARANG yang berfungsi sebagai judul form latihan ini.

Object DataGreatview

Terdapat satu object datagreatview. Pada datagreatview yang pertama akan menampilkan table yang berasal dari data acces, yang dimana akan muncul semua kolom pada table yang berjudul barang. 

Object Button

Terdapat satu objek button yang bertuliskan Detail transaksi yang berfungsi untuk menampilkan form latihan_24B_36110034 yang akan menampilkan kode barang, nama barang, harga jual dan jumlah barang yang datanya berasal dari tabel barang.

Script Unique 

Buttom "Detail Transaksi”

. If latihan_24B_36110034.Visible = False Then

            latihan_24B_36110034.Show()

        Else

            latihan_24B_36110034.Activate()

        End If

        latihan_24B_36110034.KOD_36110034.Text = DGV2_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_24B_36110034.NM_36110034.Text = DGV2_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_24B_36110034.HJ_36110034.Text = DGV2_36110034.CurrentRow.Cells("HARGAJUAL").Value

        latihan_24B_36110034.JUM_36110034.Text = DGV2_36110034.CurrentRow.Cells("PERSEDIAANAWAL").Value

        latihan_24B_36110034.KUSUMA(latihan_24B_36110034.KOD_36110034.Text)

    End Sub

End Class

Property

Property Datagreatview => name => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label dan Textbox yang ada dalam "Toolbox”.

 

3.   ganti nama textbox dan button menggunakan "Properties Window".

 

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_24A_36110034

Public Class latihan_24A_36110034

    Dim DINI As New DataTable

    Dim DIAN As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\SEMESTER 5\APKOM 4\kumpulan_latihan_36110034\DataTransaksiJualBeli.accdb")

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

        Dim AWZ As New OleDb.OleDbDataAdapter

        AWZ = New OleDb.OleDbDataAdapter("select * from BARANG", DIAN)

        AWZ.Fill(DINI)

        DGV2_36110034.DataSource = DINI

    End Sub

    Private Sub DT_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DT_36110034.Click

        If latihan_24B_36110034.Visible = False Then

            latihan_24B_36110034.Show()

        Else

            latihan_24B_36110034.Activate()

        End If

        latihan_24B_36110034.KOD_36110034.Text = DGV2_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_24B_36110034.NM_36110034.Text = DGV2_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_24B_36110034.HJ_36110034.Text = DGV2_36110034.CurrentRow.Cells("HARGAJUAL").Value

        latihan_24B_36110034.JUM_36110034.Text = DGV2_36110034.CurrentRow.Cells("PERSEDIAANAWAL").Value

        latihan_24B_36110034.KUSUMA(latihan_24B_36110034.KOD_36110034.Text)

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.