Latihan_25A_46110009

 Latihan_25A_46110009

1.      Langkah-langkah Untuk Membuat Form Baru

ü Buka project yang telah ada

ü Pilih/klik PROJECT pada menu bar

ü Setelah itu pilih Add Windows Form

ü Setelah dipilih maka akan muncul permintaan pengisian nama Form seperti gambar di bawah:

ü Buat dasign Form seperti gambar di bawah dengan menggunkan Toolbox:

ü Setelah form selesai masukkan rumus seperti dibawah ini 

2.      Deskripsi Form Latihan 25A

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

ü  Object Label

Terdapat 1 label pada form latihan 25A (Daftar Barang).

ü  Object Button                                                 

Terdapat 1 object button (Detail Transaksi). Tombol ini digunakan untuk menampilkan detail dari transaksi, yang ada pada form “Latihan_24B_46110009”.

ü  Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

3.  Rumus

Public Class Latihan_25A_46110009

    Dim conect As New OleDb.OleDbConnection("provider=microsoft.ACE.oledb.12.0;data source=D:\ULHY\SEMESTER V\APKOM 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim datatable As New DataTable

    Private Sub latihan_25a_008_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_46110009.DataSource = datatable

    End Sub

    Private Sub B_46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B_46110009.Click

        If Latihan_25B_46110009.Visible = False Then

            Latihan_25B_46110009.Show()

        Else : Latihan_25B_46110009.Activate()

        End If

        Latihan_25B_46110009.KB_46110009.Text = DGV_46110009.CurrentRow.Cells("kodebarang").Value

        Latihan_25B_46110009.NB_46110009.Text = DGV_46110009.CurrentRow.Cells("namabarang").Value

        Latihan_25B_46110009.HJ_46110009.Text = DGV_46110009.CurrentRow.Cells("hargajual").Value

        Latihan_25B_46110009.JB_46110009.Text = DGV_46110009.CurrentRow.Cells("persediaanawal").Value

        Latihan_25B_46110009.ULHY(Latihan_25B_46110009.KB_46110009.Text)

    End Sub

End Class