Latihan_34B_46110022

16.59 by Unknown
Deskripsi Form Latihan_34B_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 34B_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_34B_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_34B_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_34C_46110022.Visible = False Then
            Latihan_34C_46110022.MdiParent = Me.MdiParent
            Latihan_34C_46110022.Show()
        Else
            Latihan_34C_46110022.Activate()
        End If

        Latihan_34C_46110022.ega46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110022.kode46110022.Text = dgv46110022.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110022.nama46110022.Text = dgv46110022.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110022.harga46110022.Text = dgv46110022.CurrentRow.Cells("hargajual").Value
        Latihan_34C_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_34C_46110022.Visible = False Then
            Latihan_34C_46110022.MdiParent = Me.MdiParent
            Latihan_34C_46110022.Show()
        Else
            Latihan_34C_46110022.Activate()
        End If

        Latihan_34C_46110022.ega46110022.Text = "-"
        Latihan_34C_46110022.kode46110022.Text = ""
        Latihan_34C_46110022.nama46110022.Text = ""
        Latihan_34C_46110022.harga46110022.Text = ""
        Latihan_34C_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)