Latihan_33A_36110056

Deskripsi Latihan 33A:

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

Object  Data Grid View

Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG

Object  Button

Terdapat tiga object button yaitu edit, tambah, dan hapus. 

  

Object  Label

Terdapat sebuah object label  yang diberi nama Daftar Barang

Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Langkah-Langkah Penyelesaian Latihan 33A.

Even

FromLoad

ButtonClick

Property

Default

                                               Form Latihan 33A 

Langkah-langkah penyelesaian latihan 33A :

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

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

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

 Public Class Latihan33A_36110056
    Dim iyas As New DataTable
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb;Jet OLEDB:Database Password=43")
    Private Sub tambah_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110056.Click
        If Latihan33B_36110056.Visible = False Then
            Latihan33B_36110056.Show()
        Else
            Latihan33B_36110056.Activate()
        End If
    End Sub
    Private Sub Latihan33A_36110056_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim bis As New OleDb.OleDbDataAdapter
        bis = New OleDb.OleDbDataAdapter("select * from barang", jembatan)
        iyas.Rows.Clear()
        bis.Fill(iyas)
        bis.Dispose()
        Dgv_36110056.DataSource = iyas
    End Sub

    Private Sub Edit_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36110056.Click
        If Latihan33B_36110056.Visible = False Then
            Latihan33B_36110056.Show()
        Else
            Latihan33B_36110056.Activate()
        End If
        Latihan33B_36110056.kbrl_36110056.Text = Dgv_36110056.CurrentRow.Cells("kodebarang").Value
        Latihan33B_36110056.kb_36110056.Text = Dgv_36110056.CurrentRow.Cells("kodebarang").Value
        Latihan33B_36110056.nb_36110056.Text = Dgv_36110056.CurrentRow.Cells("namabarang").Value
        Latihan33B_36110056.hj_36110056.Text = Dgv_36110056.CurrentRow.Cells("hargajual").Value
        Latihan33B_36110056.jb_36110056.Text = Dgv_36110056.CurrentRow.Cells("jumlahbarang").Value


    End Sub

    Private Sub Hapus_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_36110056.Click
        Dim bos As New OleDb.OleDbCommand
        bos = New OleDb.OleDbCommand("delete * from barang where kodebarang = '" & Dgv_36110056.CurrentRow.Cells("kodebarang").Value & "'", jembatan)
        jembatan.Open()
        bos.ExecuteNonQuery()
        jembatan.Close()
        bos.Dispose()

        Dim bek As New OleDb.OleDbDataAdapter
        bek = New OleDb.OleDbDataAdapter("select * from barang ", jembatan)
        iyas.Rows.Clear()
        bek.Fill(iyas)
        bek.Dispose()

        Dgv_36110056.DataSource = iyas

    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