Latihan 34B 36110051 APKOM 4 Akuntansi PNUP

A.    Object-object dalam Latihan_34B_36110051 :

            1.      Object Label

Terdapat satu object label (yang bertuliskan daftar barang).

            2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang dari form BARANG di Ms Access.

            3.      Object Button

Terdapat tiga object button (Hapus, Tambah, dan Edit). Button Hapus digunakan untuk menghapus data barang yang ada pada object datagridview. Button Tambah digunakan untuk menambah data barang baru ke dalam datagridview. Button Edit digunakan untuk mengedit daftar barang yang ada pada datagridview.

B.     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada PROSEDUR dibawah ini.

C.     Even

Latihan_34B_36110051_Load

TAMBAH_36110051_Click

EDIT_36110051_Click

HAPUS_36110051_Click
 

PROSEDUR :

1.       Klik Start dan pilih Microsoft Visual Studio 2008.

 

2.       Klik menu file dan pilih New Project.

 

3.       Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

 

 

4.       Klik menu view dan pilih toolbox dan buatlah desain kolom seperti kolom dibawah ini:

 

5.      Berikut ini adalah rumus untuk menjalankan form di atas:

 

Public Class Latihan_34b_36110051

    Dim aci As New DataTable

    Dim isha As New OleDb.OleDbCommand

    Dim isa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Private Sub tambah_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_36110051.Click

        If Latihan_34c_36110051.Visible = False Then

            Latihan_34c_36110051.Show()

        Else

            Latihan_34c_36110051.Activate()

        End If

    End Sub

    Private Sub hapus_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_36110051.Click

        Dim icha As String = "delete * from barang where kodebarang = '" & dgv_36110051.CurrentRow.Cells("kodebarang").Value & "'"

        isha = New OleDb.OleDbCommand(icha, isa)

        isa.Open()

        isha.ExecuteNonQuery()

        isa.Close()

        isha.Dispose()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", isa)

        aci.Rows.Clear()

        adapter.Fill(aci)

        adapter.Dispose()

        dgv_36110051.DataSource = aci

    End Sub

    Private Sub edit_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_36110051.Click

        If Latihan_34c_36110051.Visible = False Then

            Latihan_34c_36110051.Show()

        Else

            Latihan_34c_36110051.Activate()

        End If

        Latihan_34c_36110051.kbl_36110051.Text = dgv_36110051.CurrentRow.Cells("kodebarang").Value

        Latihan_34c_36110051.kb_36110051.Text = dgv_36110051.CurrentRow.Cells("kodebarang").Value

        Latihan_34c_36110051.nb_36110051.Text = dgv_36110051.CurrentRow.Cells("namabarang").Value

        Latihan_34c_36110051.jb_36110051.Text = dgv_36110051.CurrentRow.Cells("jumlahbarang").Value

        Latihan_34c_36110051.hj_36110051.Text = dgv_36110051.CurrentRow.Cells("hargajual").Value

    End Sub

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

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select * from barang", isa)

        aci.Rows.Clear()

        adapter.Fill(aci)

        adapter.Dispose()

        dgv_36110051.DataSource = aci

    End Sub

End Class

6.       Uji program dengan mengklik icon Start Debugging.