Latihan 28A_36110055

PROSEDUR LATIHAN 28A:

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat satu object datagridview yang digunakan untuk menampilkan detail transaksi.

Ø  Buat 2 tombol dengan menggunakan button (namanya “Input” dan “Tutup”)

Ø  Untuk lebih jelasnya perhatikan gambar di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_28A_36001155

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source =D:\MATA KULIAH\SEMESTER 5\Apkom 4\Apkom\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

    Dim Table As New DataTable

    Public Sub Masnur()

        Dim Selayar As New OleDb.OleDbDataAdapter

        Selayar = New OleDb.OleDbDataAdapter("select * from barang", Jembatan)

        Table.Rows.Clear()

        Selayar.Fill(Table)

        Selayar.Dispose()

        Phangarhu_36001155.DataSource = Table

    End Sub

    Private Sub Input_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Input_36001155.Click

        If Latihan_28B_36001155.Visible = False Then

            Latihan_28B_36001155.Show()

        Else

            Latihan_28B_36001155.Activate()

        End If

    End Sub

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

        Masnur()

        Phangarhu_36001155.DataSource = Table

    End Sub

    Private Sub Tutup_36001155_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tutup_36001155.Click

        Close()

    End Sub

End Class