Latihan_33A_46110022

18.27 by Unknown
Deskripsi Form Latihan_33A_46110022
Dalam form ini terdapat 3 buah object yaitu label, DataGriedView dan button.

ObjectLabel
Terdapat satu buah object label yaitu daftar barang.

Object DataGriedView
Terdapat 1 buah object DataGriedView yang berfungsi untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Object Button
Terdapat 3 buah objek button (hapus, tambah dan edit) yang berfungsi untuk menjalankan atau menampilkan rumus yang telah dibuat, dalam hal ini untuk menghapus, mengedit atau mengubah dan menambah data yang telah ada di database yang bersangkutan.

Script Unique

1  __

Even
Click
Load

Langkah-Langkah Membuat Form Latihan 33A_46110022

1. Buat form baru seperti langkah berikut :

2. Input nama form pada kolom yang tersedia, lalu klik "add" seperti berikut :

3. Buat desain form seperti gambar berikut :



4. Input script di bawah ini :

Public Class Latihan_33A_46110022
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim take As New DataTable
    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter

        data = New OleDb.OleDbDataAdapter("SELECT* from barang", go)

        take.Rows.Clear()

        data.Fill(take)
        data.Dispose()
    End Sub

    Private Sub Latihan_33A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ambildata()
        dgv46110022.DataSource = take
    End Sub
    Private Sub hapus46110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus46110022.Click
        If MsgBox("are you serious??? do you want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim cm As New OleDb.OleDbCommand
        cm = New OleDb.OleDbCommand("delete * from barang where kodebarang ='" & dgv46110022.CurrentRow.Cells("kodebarang").Value & "'", go)
        go.Open()
        cm.ExecuteNonQuery()
        go.Close()
        cm.Dispose()

        ambildata()

    End Sub

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


        Latihan_33B_46110022.kbl46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110022.jml46110022.Text = dgv46110022.CurrentRow.Cells("jumlahbarang").Value
    End Sub

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

        Latihan_33B_46110022.kbl46110022.Text = "-"
        Latihan_33B_46110022.kode46110022.Text = ""
        Latihan_33B_46110022.nama46110022.Text = ""
        Latihan_33B_46110022.harga46110022.Text = ""
        Latihan_33B_46110022.jml46110022.Text = ""

    End Sub
End Class

    5.   Jalankan program dengan cara mengklik start debugging seperti berikut :

    6.  Setelah menekan start debug, maka akan tampil hasil dari latihan 33A seperti berikut :




    7.  Hapus atau tambah atau ganti data dengan data yang diinginkan, kemudian klik tombol "hapus" atau "tambah" atau "edit" maka data yang ada pada database akan terganti.

    8. Selamat mencoba, semoga berhasil :)






0 komentar
0 Responses

Langganan: Posting Komentar (Atom)