Latihan_34B_46110024

DESKRIPSI FORM LATIHAN 34B

Form Latihan  ini Terdapat empat object yaitu label, datagridview, dan button

Object Label

Dalam form latihan ini terdapat sebuah object label yang bertuliskan Daftar Barang

Object Data Gridview

Terdapat  satu object datagridview. Datagridview digunakan untuk menampilkan data yang ingin ditampilkan.

Object  Button

Dalam form ini terdapat tiga object button yang bertuliskan Hapus untuk menghapus data pada data gridview, Tambah dan Edit  yang digunakan untuk menampilkan form latihan 34C

Script  Unique

Tidak ada script unik pada form ini

Even

Load

Buttonclick

Langkah- Langkah Membuat Form Latihan  34B

1.Buka File Microsoft Visual Studio Anda  lalu pilih project--> Add windows form 

 

2. Ganti nama sesuai dengan nama latihan 34B

3. Lalu pilih object yang ada di latihan 34B

4. Buat form sampai menghasilkan form seperti di bawah ini

5. Pilih Menu view klik code

6. Masukkan Script sebagai berikut

Public Class Latihan_34B_46110024

    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()

        Dim data As New OleDb.OleDbDataAdapter

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

        ambil.Rows.Clear()

        data.Fill(ambil)

        data.Dispose()

    End Sub

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

        ambildata()

        dgv_46110024.DataSource = ambil

    End Sub

  

   

    Private Sub hapus_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_46110024.Click

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

            Exit Sub

        End If

        Dim Cm As New OleDb.OleDbCommand

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

        Jalan.Open()

        Cm.ExecuteNonQuery()

        Jalan.Close()

        Cm.Dispose()

        '        ambildata()

    End Sub

    Private Sub tambah_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110024.Click

        If Latihan_34C_46110024.Visible = False Then

            Latihan_34C_46110024.MdiParent = Me.MdiParent

            Latihan_34C_46110024.Show()

        Else

            Latihan_34C_46110024.Activate()

        End If

       

        Latihan_34C_46110024.ganti_46110024.Text = "-"

        Latihan_34C_46110024.kb_45110024.Text = " "

        Latihan_34C_46110024.nb_46110024.Text = " "

        Latihan_34C_46110024.hj_46110024.Text = " "

        Latihan_34C_46110024.jb_46110024.Text = " "

    End Sub

    Private Sub Button1Aedit_46110024_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1Aedit_46110024.Click

        Latihan_34C_46110024.Show()

        Latihan_34C_46110024.ganti_46110024.Text = dgv_46110024.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110024.kb_45110024.Text = dgv_46110024.CurrentRow.Cells("kodebarang").Value

        Latihan_34C_46110024.nb_46110024.Text = dgv_46110024.CurrentRow.Cells("namabarang").Value

        Latihan_34C_46110024.hj_46110024.Text = dgv_46110024.CurrentRow.Cells("hargajual").Value

        Latihan_34C_46110024.jb_46110024.Text = dgv_46110024.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

Langkah-Langkah Menjalankan Form Latihan  34B

1. Form  ini akan jalan jika anda memilih pada menustrip atau pun toolstrip yang bertuliskan daftar barang 
2. Klik hapus untuk menghapus data yang ada, atau tambah  atau edit untuk menampilkan form latihan  34C