Latihan_33A_36110031

Tahap Penyelesaian Latihan_33A_36110031

1.         Buka Project yang telah dibuat, lalu buka solution Explorer

2.          Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.         Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_33A  dan add. seperti pada gambar dibawah:

 

4.         Buat Form Latihan_33A dibawah ini:

 

5.          Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_33A_36110031

    Dim Audry As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATABARANG.accdb;Jet OLEDB:Database Password=3711")

    Dim AA As New DataTable

    Public Sub Ias()

        Dim Data As New OleDb.OleDbDataAdapter

        Data = New OleDb.OleDbDataAdapter("SELECT* FROM BARANG", Audry)

        AA.Rows.Clear()

        Data.Fill(AA)

        Data.Dispose()

    End Sub

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

        Ias()

        DGV_36110031.DataSource = AA

    End Sub

    Private Sub Tambah_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_36110031.Click

        If Latihan_33B_36110031.Visible = False Then

            Latihan_33B_36110031.Show()

        Else

            Latihan_33B_36110031.Activate()

            Latihan_33B_36110031.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub Edit_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit_36110031.Click

        If Latihan_33B_36110031.Visible = False Then

            Latihan_33B_36110031.Show()

        Else

            Latihan_33B_36110031.Activate()

            Latihan_33B_36110031.WindowState = FormWindowState.Normal

        End If

        Latihan_33B_36110031.KB_36110031.Text = DGV_36110031.CurrentRow.Cells("Kodebarang").Value

        Latihan_33B_36110031.Kodebarang_36110031.Text = DGV_36110031.CurrentRow.Cells("Kodebarang").Value

        Latihan_33B_36110031.Namabarang_36110031.Text = DGV_36110031.CurrentRow.Cells("Namabarang").Value

        Latihan_33B_36110031.Hargajual_36110031.Text = DGV_36110031.CurrentRow.Cells("Hargajual").Value

        Latihan_33B_36110031.Jumlahbarang_36110031.Text = DGV_36110031.CurrentRow.Cells("Jumlahbarang").Value

    End Sub

    Private Sub Hapus_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_36110031.Click

        Dim command As New OleDb.OleDbCommand

        command = New OleDb.OleDbCommand("delete * from BARANG where KODEBARANG ='" & DGV_36110031.CurrentRow.Cells("KODEBARANG").Value & "'", Audry)

        Audry.Open()

        command.ExecuteNonQuery()

        Audry.Close()

        command.Dispose()

        Ias()

    End Sub

End Class

6.         Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.         Kemudian simpan file tersebut dengan menekan icon “save”

 

8.         Selesai

Deskripsi Latihan_33A_36110031

-    Object Label

Terdapat satu label yang bertuliskan Daftar Barang

-    Object DataGridView

Terdapat satu object datagridview digunakan untuk menampilkan daftar barang .

-    Object Button

Terdapat tiga object Button yaitu hapus, simpan, dan edit. Button edit digunakan untuk mengedit daftar barang pada form BARANG di Ms Access yang muncul pada datagridview. Jika button edit diklik, maka akan muncul form Latihan_33B_36110031. Pada form inilah data barang yang telah dipilih pada datagridview akan diedit. Button tambah digunakan untuk menambah data barang baru ke dalam form BARANG di Ms Access. Jika button tambah diklik, maka akan muncul form Latihan_33A_36110031. Pada form inilah data barang baru diinput dan kemudian disimpan. Button hapus digunakan untuk menghapus data barang pada form BARANG

Script Unique

Script dapat dilihat secara menyeluruh pada tahap penyelesaian latihan_33A_36110031

Even

Latihan_33A_36110031_Load

Tambah_36110031_Click

Edit_36110031_Click

Hapus_36110031_Click

Ias()