Latihan_34B_46110007

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

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

·  Buat form seperti berikut 
 

·         Setelah itu beri teks pada label dan button.


·         Kemudian beri nama pada semua objek, kecuali label


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

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

    Private Sub EDIT_46110007_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles EDIT_46110007.Click
        Latihan_34C_46110007.Show()

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

·  Untuk menjalankan form tekan F5 
 


B. Deskripsi Form Latihan 34B
Pada form latihan 34B 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_34C_46110007”. Tombol hapus digunakan untuk menghapus data tabel.

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

Even
ButtonClick
Load

Langkah-Langkah Menjalankan Form Latihan 34B
  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)