diskripsi & prosedur latihan 28 A

16.46 |

DISKRIPSI LATIHAN 28 A

Latihan_28A_36110030

A. Object-object dalam Latihan_28A_36110030 :

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_36110030, 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_36110030. Button tutup digunakan untuk menutup form Latihan_28A_36110030.

B. Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_28A_36110030.

C. Even

Latihan_28A_36110030_Load

isiyhuya()

INPUT_36110030_Click

TUTUP_36110030_Click

PROSEDUR PENYELESAIAN LATIHAN 28 A

1.KLIK STAR KEMUDIAN PILIH MICROSOFT VISUAL STUDIA 2008

2.KEMUDIAN KLIK NEW PROJECT PADA FILE

3.KEMUDIAN KLIK ADD UNTUK MENAMBAHKAN PROJECT

4. KEMUDIAN BUATLAH FORM SEPERTI DIBAWAH INI :

5.KEMUDIAN MASUKAN RUMUS :

Public Class Latihan_28A_36110030
    Dim go As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source = E:\semester 5\Apkom 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;jet oledb:database password=hma")
    Dim take As New DataTable
    Public Sub ambildata()
        'mendeklarasikan adapter
        Dim data As New OleDb.OleDbDataAdapter

        'mengatur data yang akan diangkut
        data = New OleDb.OleDbDataAdapter("SELECT* from BARANG", go)

        'bersihkan data sebelum mengisi data lain
        take.Rows.Clear()

        'memasukkan data yg telah diambil ke dalam data grid view
        data.Fill(take)
        data.Dispose()
    End Sub

    Private Sub Latihan28a_030_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        isi_36110030.DataSource = take
    End Sub

    Private Sub INPUT_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input_36110030.Click
        'menampilkan form latihan28b
        If Latihan_28b_36110030.Visible = False Then
            Latihan_28b_36110030.Show()
        Else
            Latihan_28b_36110030.Activate()
        End If
    End Sub

    Private Sub tutup_36110030_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36110030.Click
        Me.Close()
    End Sub
End Class

6. KEMUDIAN UJI PROGRAM

7. JIKA SUDAH BERHASIL Save program anda

8. SELESAI