Latihan_34B_46110006

Deskripsi Form Latihan_34B_46110006

Pada form latihan 34B ada 2 object yang digunakan yaitu DataGridView dan Button.

Object DataGridView

Object DataGridView berfungsi untuk menampilkan data tabel.

Objec Button

Terdapat 3 object Button yaitu HAPUS, TAMBAH, EDIT dimana tombol HAPUS berfungsi untuk menghapus data yang telah ada pada data barang. Tombol TAMBAH berfungsi untuk menambah data baru pada data barang. EDIT berfungsi untuk mengedit data yang telah diinput atau yang telah tersimpan pada data barang untuk mengganti data baru.

Script Unique

Tidak ada Script unique pada latihan ini karena perintah scriptny sudah ada pada latihan sebelumnya.

Even

Load

Button Click

Cara Membuat From Latihan 34B :

1.   Pilih item Toolbar “Project” kemudian pilih “Add Windows From”

2.      Setelah mengKlik “Add Windows From”, akan muncul tabel dibawah ini. Lalu rename pada Name menjadi nama form anda misalnya “ Latihan_34B_46110006”

3.      Buatlah desain seperti berikut :

       

4.        Klik kanan lalu pilih “View Code” setelah itu ketik rumus untuk menjalankan from diatas.

Public Class Latihan_34B_46110006

    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_34B_46110006_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        DGV_46110006.DataSource = ambil

    End Sub

    Private Sub HAPUS_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_46110006.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_46110006.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        'Mengambil data kembali

        ambildata()

    End Sub

    Private Sub TAMBAH_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_46110006.Click

        'Menampilkan form 33b

        If Latihan_34C_46110006.Visible = False Then

            Latihan_34C_46110006.MdiParent = Me.MdiParent

            Latihan_34C_46110006.Show()

        Else

            Latihan_33B_46110006.Activate()

        End If

        'mengosongkan textbox 33b

        Latihan_34C_46110006.ganti_46110006.Text = "-"

        Latihan_34C_46110006.KB_46110006.Text = " "

        Latihan_34C_46110006.NB_46110006.Text = " "

        Latihan_34C_46110006.HJ_46110006.Text = " "

        Latihan_34C_46110006.JB_46110006.Text = " "

    End Sub

    Private Sub EDIT_46110006_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110006.Click

        Latihan_34C_46110006.Show()

        'Mengisi Text Box

        Latihan_34C_46110006.ganti_46110006.Text = DGV_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110006.KB_46110006.Text = DGV_46110006.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110006.NB_46110006.Text = DGV_46110006.CurrentRow.Cells("namabarang").Value

        Latihan_34C_46110006.HJ_46110006.Text = DGV_46110006.CurrentRow.Cells("hargajual").Value

        Latihan_34C_46110006.JB_46110006.Text = DGV_46110006.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

Langkah-langkah menjalankan :

1.  Klik STAR DEBUGING. pilih tombol HAPUS untuk menghapus data barang, TAMBAH untuk menambah data barang, EDIT untuk mengedit data barang.

2.      Selamat Mencoba.