Latihan 28A 36110051 APKOM 4 Akuntansi PNUP

A.    Object-object dalam Latihan_28A_36110051 :

            1.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

2.      Object Button

Terdapat dua object button (Input dan Tutup). Button input digunakan untuk menampilkan form Latihan_28B_36110051, yang kemudian digunakan untuk menginput data barang ke dalam form BARANG di Ms Access yang juga dapat di lihat pada object datagridview di Latihan_28A_36110051. Button tutup digunakan untuk menutup form Latihan_28A_36110051.

 

B.     Script Unique
Button1_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110051.Click
        If Latihan_28b_36110051.Visible = False Then
            Latihan_28b_36110051.Show()
        Else
            Latihan_28b_36110051.Activate()
        End If
    End Sub

C.  Even
 Latihan_28a_36110051_Load
 Button1_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 NotInheritable Class Latihan_28a_36110051
    Dim aci As New DataTable
    Dim melissa As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DATABARANG.accdb'")

    Public Sub isa()
        Dim adapter As New OleDb.OleDbDataAdapter
        adapter = New OleDb.OleDbDataAdapter("select * from barang", melissa)
        aci.Rows.Clear()
        adapter.Fill(aci)
        adapter.Dispose()
        DGV_36110051.DataSource = aci
    End Sub
    Private Sub Latihan_28a_36110051_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        isa()
        DGV_36110051.DataSource = aci
    End Sub
    Private Sub Button1_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110051.Click
        If Latihan_28b_36110051.Visible = False Then
            Latihan_28b_36110051.Show()
        Else
            Latihan_28b_36110051.Activate()
        End If
    End Sub
    Private Sub Button2_36110051_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_36110051.Click
        Close()
    End Sub

    Private Sub DGV_36110051_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DGV_36110051.CellContentClick

    End Sub
End Class

6.       Uji program dengan mengklik icon Start Debugging.