LATIHAN_28A_36110043

Deskripsi Latihan Latihan_28A_36110043

Object dalam Latihan_28A_36110043:

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_36110043, yang kemudian digunakan untuk menginput data barang ke dalam form BARANG di Ms Access yang juga dapat di lihat pada object datagridview di Latihan ini. Button tutup digunakan untuk menutup form ini.

Script Unique

Menampilkan latihan 28B

Private Sub IN_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IN_36110043.Click

        If LATIHAN_28B_36110043.Visible = False Then

            LATIHAN_28B_36110043.Show()

        Else

            LATIHAN_28B_36110043.Activate()

        End If

Even

LATIHAN_28A_36110043_Load

OUT_36110043_Click

IN_36110043_Click

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

3.       pilih Windows Form, lalu isi Name dengan Nama Latihan._15_36110043 dan click add

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.       Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.       Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

7.      Masukkkan Scrip di bawah ini.

Public Class LATIHAN_28A_36110043

    Dim CONECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=E:\Apkom4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;jet oledb:database password=43")

    Dim ADY As New DataTable

  

    Public Sub ambildata()

        Dim data As New OleDb.OleDbDataAdapter

        data = New OleDb.OleDbDataAdapter("SELECT* from BARANG", CONECT)

        ADY.Rows.Clear()

        data.Fill(ADY)

        data.Dispose()

    End Sub

    Private Sub IN_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IN_36110043.Click

        If LATIHAN_28B_36110043.Visible = False Then

            LATIHAN_28B_36110043.Show()

        Else

            LATIHAN_28B_36110043.Activate()

        End If

    End Sub

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

        DGV_36110043.DataSource = ADY

    End Sub

    Private Sub OUT_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OUT_36110043.Click

        Me.Close()

    End Sub

End Class