Latihan_28a_36110029

v Deskripsi Latihan_28a_36110029

Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

Object Button

Terdapat dua object button (Input dan Tutup). Button input digunakan untuk menampilkan form Latihan_28b_36110029, 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_36110029. Button tutup digunakan untuk menutup form Latihan_28a_36110029.

 

  Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur  Latihan_28a_36110029

Even

Latihan_28a_36110029_Load

cucu()

Input_36110029_Click

Tutup_36110029_Click

v   Prosedur  Latihan_28a_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_28a_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_28a_36110029
    Dim A As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=E:\DOKUMEN\SEMESTER 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DATABARANG.accdb")
    Dim cari As New ByIskandar.CariKeDataBaseByIskandar
    Dim HANA As New DataTable

    Public Sub cucu()
        Dim B As New OleDb.OleDbDataAdapter
        B = New OleDb.OleDbDataAdapter("Select * From Barang", A)
        HANA.Rows.Clear()
        B.Fill(HANA)
        B.Dispose()
    End Sub

    Private Sub Latihan_28a_36110029_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        cucu()

        data_36110029.DataSource = HANA

    End Sub

    Private Sub Input_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input_36110029.Click
        If Latihan_28b_36110029.Visible = False Then
            Latihan_28b_36110029.Show()
        Else
            Latihan_28b_36110029.Activate()
            Latihan_28b_36110029.WindowState = FormWindowState.Normal
        End If
    End Sub


    Private Sub Tutup_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36110029.Click
        Me.Close()
    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.