Latihan_33A_46110009

 Latihan_33A_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 33A

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

ü  Object Label

Pada form ini label yang digunakan ada 1 (daftar barang).

ü  Object Button                                               

Terdapat 3 object button (edit, tambah dan hapus). Tombol edit dan tambah digunakan untuk menampilkan form “Latihan_33B_46110009”. Tombol hapus digunakan untuk menghapus data tabel.

ü  Object DataGridView

Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

3.  Rumus

Public Class Latihan_33A_46110009

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Dim ambil As New DataTable

    Public Sub ambildata()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        'bersihkan data dulu sebelum isi data lain

        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(ambil)

        data.Dispose()

    End Sub

    Private Sub Latihan_33A_46110009_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ambildata()

        DGV_46110009.DataSource = ambil

    End Sub

    Private Sub SAVE_46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SAVE_46110009.Click

        'Menampilkan form 33b

        If Latihan_33B_46110009.Visible = False Then

            Latihan_33B_46110009.Show()

        Else

            Latihan_33B_46110009.Activate()

        End If

        'mengosongkan textbox 33b

        Latihan_33B_46110009.ganti.Text = "-"

        Latihan_33B_46110009.KB_46110009.Text = " "

        Latihan_33B_46110009.NB_46110009.Text = " "

        Latihan_33B_46110009.HJ_46110009.Text = " "

        Latihan_33B_46110009.JB_46110009.Text = " "

    End Sub

    Private Sub EDit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110009.Click

        'Menampilkan form 33b

        If Latihan_33B_46110009.Visible = False Then

            Latihan_33B_46110009.Show()

        Else

            Latihan_33B_46110009.Activate()

        End If

        'mengisi textbox yang ada pada 32c

        Latihan_33B_46110009.ganti.Text = DGV_46110009.CurrentRow.Cells("kodebarang").Value

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

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

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

        Latihan_33B_46110009.JB_46110009.Text = DGV_46110009.CurrentRow.Cells("JumlahBarang").Value

    End Sub

    Private Sub DELETE_46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DELETE_46110009.Click

        If MsgBox("Seriously you want to delete the data???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then

            Exit Sub

        End If

        'deklarasi object command

        Dim Cm As New OleDb.OleDbCommand

        Cm = New OleDb.OleDbCommand(" delete * from barang where kodebarang ='" & DGV_46110009.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'Mengambil data kembali

        ambildata()

    End Sub

    Private Sub EDIT_46110009_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110009.Click

    End Sub

    Private Sub DGV_46110009_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_46110009.CellContentClick

    End Sub

End Class