Latihan_25B_36110056

Deskripsi Latihan 25B:

Form Latihan 25B terdapat tiga object yaitu Data Grid View, Label, dan TextBox

Object  Data Grid View

Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli

 Object  Label

Tedapat lima object label yang di beri nama Detail Transaksi, kode barang, nama barang, harga barang, dan jumlah barang

Object  TextBox

Terdapat empat textbox status input digunakan untuk memasukkan nilai

Atau text Nomor dan Jenis.
 

Script Unique

 Dapat dilihat pada langkah -langkah penyelesaian latihan 25B

Even

FromLoad

Property

Default


                                  Form Latihan 25B

Langkah-langkah penyelesaian latihan 25B :

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View,Label, dan Textbox  yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView dan TextBox yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

 Public Class latihan25B_36110056

    Dim iyas As New DataTable
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Public Sub dut(ByVal A As String)
        Dim lov As New OleDb.OleDbDataAdapter
        lov = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, mastertransaksi.keterangan, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans= detailtransaksi.notrans where KODEBARANG = '" & A & "' ", jembatan)
        iyas.Rows.Clear()
        lov.Fill(iyas)
        lov.Dispose()
        dgvb_36110056.DataSource = iyas
    End Sub
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging