Latihan_33A_46110007

A. Langkah-Langkah Penyelesaian Form Latihan_33A
·  Buka project yang telah dibuat sebelumnya.
·  Click project kemudian pilih add windows form, seperti pada gambar dibawah ini

·  Ketik nama form "Latihan_33A_46110007" pada name kemudian click add

·  Buat form seperti berikut 
 

·         Setelah itu beri teks pada button dan label.


·         Kemudian beri nama pada semua objek kecuali label.


·  Setelah form selesai masukkan rumus seperti dibawah ini 
Public Class Latihan_33A_46110007
    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 Latihan_33A_46110007_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        ISI_46110007.DataSource = ambil
    End Sub

    Private Sub TAMBAH_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TAMBAH_46110007.Click
        If Latihan_33B_46110007.Visible = False Then
            Latihan_33B_46110007.Show()
        Else
            Latihan_33B_46110007.Activate()
        End If
        Latihan_33B_46110007.GANTI_46110007.Text = "-"
        Latihan_33B_46110007.T1_46110007.Text = " "
        Latihan_33B_46110007.T2_46110007.Text = " "
        Latihan_33B_46110007.T3_46110007.Text = " "
        Latihan_33B_46110007.T4_46110007.Text = " "
    End Sub

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

        Latihan_33B_46110007.GANTI_46110007.Text = ISI_46110007.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110007.T1_46110007.Text = ISI_46110007.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110007.T2_46110007.Text = ISI_46110007.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110007.T3_46110007.Text = ISI_46110007.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110007.T4_46110007.Text = ISI_46110007.CurrentRow.Cells("JumlahBarang").Value
    End Sub


    Private Sub HAPUS_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles HAPUS_46110007.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 ='" & ISI_46110007.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        ambildata()
    End Sub
End Class

·  Untuk menjalankan form tekan F5 
 


B. 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_46110007”. Tombol hapus digunakan untuk menghapus data tabel.

Object DataGridView
Terdapat 1 object datagridview yang berfungsi untuk menampilkan data tabel.

Even
Load
ButtonClick

Script Unique
Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Menjalankan Form Latihan 33A
  1. Pilih dan klik salah satu tombol yang ada sesuai dengan kebutuhan.
  2. Jika ingin menghapus data tabel klik tombol “Hapus”
  3. Jika ingin menambah data tabel klik tombol “Tambah”
  4. Jika ingin mengedit data tabel klik tombol “Edit”
  5. Selamat mencoba (:
Label: edit post
0 Responses

Posting Komentar

Langganan: Posting Komentar (Atom)