Latihan_25A_36110034

Deskripsi penyelesaian

Form Latihan_25A_36110034  terdapat satu object yaitu DataGreatView

Object Label

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

Object DataGreatview

Terdapat satu object datagreatview yang akan menampilkan data pada kolom barang , yaitu kode barang , nama barang, harga jual dan jumlah atau persediaan awal

Object Button

Terdapat satu objek button yang bertuliskan Detail transaksi yang berfungsi untuk menampilkan form latihan_25B_36110034 yang akan menampilkan notrans, tanggal transaksi, jenis transaksi, keterangan yang berasal dari tabel master transaksi dan unit, harga, jumlah yang berasal dari detail transaksi.

Script Unique 

Buttom "Detail Transaksi”

. If latihan_25B_36110034.Visible = False Then

            latihan_25B_36110034.Show()

        Else

            latihan_25B_36110034.Activate()

        End If

        latihan_25B_36110034.KD_36110034.Text = DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_25B_36110034.NB_36110034.Text = DGV1_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_25B_36110034.HJ_36110034.Text = DGV1_36110034.CurrentRow.Cells("HARGAJUAL").Value

        latihan_25B_36110034.JUM_36110034.Text = DGV1_36110034.CurrentRow.Cells("PERSEDIAANAWAL").Value

        latihan_25B_36110034.KUSUMA()

    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_25A_36110034

Public Class latihan_25A_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_25A_36110034_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", DIAN)

        ADAPTER.Fill(DINI)

        ADAPTER.Dispose()

        DGV1_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_25B_36110034.Visible = False Then

            latihan_25B_36110034.Show()

        Else

            latihan_25B_36110034.Activate()

        End If

        latihan_25B_36110034.KD_36110034.Text = DGV1_36110034.CurrentRow.Cells("KODEBARANG").Value

        latihan_25B_36110034.NB_36110034.Text = DGV1_36110034.CurrentRow.Cells("NAMABARANG").Value

        latihan_25B_36110034.HJ_36110034.Text = DGV1_36110034.CurrentRow.Cells("HARGAJUAL").Value

        latihan_25B_36110034.JUM_36110034.Text = DGV1_36110034.CurrentRow.Cells("PERSEDIAANAWAL").Value

        latihan_25B_36110034.KUSUMA()

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.