Latihan_32a_36110040

v Tahap Penyelesaian Latihan_32a_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_32a_36110040

4.      Buat Form Latihan_32a dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_32a_36110040

    'Mendeklarasikan object connection

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = D:\rahmi punya\semester 5\aplikasi komputer 4\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\DataBarang.accdb")

    'Mendeklarasikan datatable

    Dim Table As New DataTable

    Public Sub Isi()

        'Mendeklarasikan prosedur tanpa parameter yang berlingkup public

        Dim Angkut As New OleDb.OleDbDataAdapter

        Angkut = New OleDb.OleDbDataAdapter("Select * From Barang", Jembatan)

        Table.Rows.Clear()

        Angkut.Fill(Table)

        Angkut.Dispose()

    End Sub

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

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Isi()

        'Perintah menampilkan datatable ke datagridview

        dgv36110040.DataSource = Table

    End Sub

    Private Sub Tambah36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah36110040.Click

        'Proses menampillkan form lain

        If Latihan_32b_36110040.Visible = False Then

            Latihan_32b_36110040.Show()

        Else

            Latihan_32b_36110040.Activate()

            Latihan_32b_36110040.WindowState = FormWindowState.Normal

        End If

    End Sub

    Private Sub Edit36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Edit36110040.Click

        'Proses menampillkan form lain

        If Latihan_32c_36110040.Visible = False Then

            Latihan_32c_36110040.Show()

        Else

            Latihan_32c_36110040.Activate()

            Latihan_32c_36110040.WindowState = FormWindowState.Normal

        End If

        'Perintah menampilkan data yang ada di datagridview ke textbox

        Latihan_32c_36110040.ToolStripStatusLabel2.Text = dgv36110040.CurrentRow.Cells("Kodebarang").Value

        Latihan_32c_36110040.Kode361110040.Text = dgv36110040.CurrentRow.Cells("Kodebarang").Value

        Latihan_32c_36110040.Nama36110040.Text = dgv36110040.CurrentRow.Cells("Namabarang").Value

        Latihan_32c_36110040.Harga36110040.Text = dgv36110040.CurrentRow.Cells("Hargajual").Value

        Latihan_32c_36110040.Jumlah36110040.Text = dgv36110040.CurrentRow.Cells("Jumlahbarang").Value

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 8.      Selesai

v Deskripsi Latihan_32a_36110040

Object Label

Terdapat satu label (yang bertuliskan daftar barang).

            Object datagridview

Terdapat satu object datagridview yang digunakan untuk menampilkan daftar barang.

Object Button

Terdapat dua object button (Edit dan Tambah). Button edit digunakan untuk mengedit daftar barang pada form BARANG di Ms Access yang muncul pada datagridview. Jika button edit diklik, maka akan muncul form Latihan_32B_36110048. Pada form inilah data barang yang telah dipilih pada datagridview akan diedit.

Button tambah digunakan untuk menambah daftar barang baru ke dalam form BARANG di Ms Access. Jika button tambah diklik, maka akan muncul form Latihan_32C_36110048. Pada form inilah data barang baru diinput dan kemudian disimpan.

Script Unique

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

Even

isi()

Latihan_32A_36110040_Load

EDIT36110040_Click

TAMBAH_36110040_Click