Latihan_25B_46110009

Latihan_25B_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 25B

Pada form latihan 25B ada 3 object yang digunakan yaitu Label, Text Box dan Data Grid View.

ü  Object Label

Terdapat 4 label pada form latihan 24B (Kode barang,nama barang,persediaan awal,harga jual)

ü  Object TextBox  

Terdapat 4 object textbox yang nantinya akan menampilkan detail data yang telah dipilih pada Latihan_25A_46110009.

ü Object DataGridView

Terdapat 1 object datagridview berfungsi untuk menampilkan data tabel yang diinginkan (sesuai dengan detail pada text box).

    3.  Rumus

Public Class Latihan_25B_46110009

    Dim koneksi 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 tabel As New DataTable

    Public Sub ULHY(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select*from detailtransaksi where kodebarang='" & A & "'", koneksi)

        tabel.Rows.Clear()

        adapter.Fill(tabel)

        DGV_1_46110009.DataSource = tabel

    End Sub

End Class    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