Latihan_26A_36110056

Deskripsi Latihan 26A:

Form Latihan 26A terdapat tiga object yaitu Data Grid View, Label, Button

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 satu object label yang di beri nama Daftar Barang

Object  Button

Terdapat satu object button (Klik). Button Klik digunakan untuk menampilkan detail dari detailtransaksi  yang ada di datagridview.klik dari daftar barang itu akan muncul pada form Latihan_26B_36110056

 

Script Unique

Untuk FromLoad =

  Private Sub latihan26A_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bis As New OleDb.OleDbDataAdapter. . . .

Untuk button click =

 Private Sub klik_36110056_Click

 If latihan26B_36110056.Visible = False Then
            latihan26B_36110056.Show()....

Even

FromLoad

ButtonClick

Property

Default



                                        From Latihan 26A

Langkah-langkah penyelesaian latihan 26A :

• 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 dan Button yang terdapat dalam toolsbox

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

Public Class latihan26A_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")
  
    Private Sub latihan26A_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim hap As New OleDb.OleDbDataAdapter
        hap = New OleDb.OleDbDataAdapter("select * from BARANG ", jembatan)
        iyas.Rows.Clear()
        hap.Fill(iyas)
        hap.Dispose()
        DGVA_36110056.DataSource = iyas
    End Sub

    Private Sub KLIK_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLIK_36110056.Click
        If latihan26B_36110056.Visible = False Then
            latihan26B_36110056.Show()
        Else
            latihan26B_36110056.Activate()
        End If

        latihan26B_36110056.kb_36110056.Text = DGVA_36110056.CurrentRow.Cells("kodebarang").Value
        latihan26B_36110056.nb_36110056.Text = DGVA_36110056.CurrentRow.Cells("namabarang").Value
        latihan26B_36110056.hj_36110056.Text = DGVA_36110056.CurrentRow.Cells("hargajual").Value
        latihan26B_36110056.jb_36110056.Text = DGVA_36110056.CurrentRow.Cells("persediaanawal").Value

        latihan26B_36110056.dut(latihan24b_36110056.kb_36110056.Text)

    End Sub
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini