Latihan_34b_36110040

v Tahap Penyelesaian Latihan_34B_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_34B_36110040

4.      Buat Form Latihan_34B dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_34b_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_34b_36110040_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Isi()

        'Perintah menampilkan datatable ke datagridview

        dgv36110040.DataSource = Table

    End Sub

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

        'Proses menampillkan form lain

        If Latihan_34c_36110040.Visible = False Then

            Latihan_34c_36110040.MdiParent = Me.MdiParent

            Latihan_34c_36110040.Show()

        Else

            Latihan_34c_36110040.Activate()

            Latihan_34c_36110040.WindowState = FormWindowState.Normal

            Latihan_34c_36110040.ToolStripStatusLabel2.Text = "-"

        End If

        'Mengosongkan kembali isi textbox

        Latihan_34c_36110040.Kode36110040.Text = ""

        Latihan_34c_36110040.Nama36110040.Text = ""

        Latihan_34c_36110040.Harga36110040.Text = ""

        Latihan_34c_36110040.Jumlah36110040.Text = ""

        Latihan_34c_36110040.ToolStripStatusLabel2.Text = "-"

    End Sub

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

        'Proses menampillkan form lain

        If Latihan_34c_36110040.Visible = False Then

            Latihan_34c_36110040.MdiParent = Me.MdiParent

            Latihan_34c_36110040.Show()

        Else

            Latihan_34c_36110040.Activate()

            Latihan_34c_36110040.WindowState = FormWindowState.Normal

        End If

        'Perintah menampilkan data yang ada di datagridview ke textbox

        Latihan_34c_36110040.Kode36110040.Text = dgv36110040.CurrentRow.Cells("Kodebarang").Value

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

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

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

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

    End Sub

    Private Sub Hapus36110040_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus36110040.Click

        'Mendeklarasikan object command

        Dim Ambil As New OleDb.OleDbCommand

        'Perintah menghapus data ke database

        Ambil = New OleDb.OleDbCommand("Delete * From Barang Where KodeBarang = '" & dgv36110040.CurrentRow.Cells("Kodebarang").Value & "'", Jembatan)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            'Membuka object connection

            Jembatan.Open()

            'Menjalankan perintah object command

            Ambil.ExecuteNonQuery()

            'Menutup object connection

            Jembatan.Close()

            'Menghapus perintah object command

            Ambil.Dispose()

            'Proses penggunaan prosedur tanpa parameter yang berlingkup public

            Isi()

        End If

    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_34B_36110040

Object lebel

Terdapat satu objek lebel yang bertuliskan DAFTAR BARANG sebagai judul pada form latihan ini.

Object DataGreatview

Terdapat satu object datagreatview yang akan menampilkan data pada kolom barang , yaitu kode barang , nama barang, harga jual dan jumlah barang yang datanya berasal dari tabel barang yang sebulumnya hanya dapat dilihat dengan menggunakan MS. Access.

Object Button

Terdapat tiga objek button yang bertuliskan TAMBAH,EDIT, dan HAPUS. tombol tambah  jika di klik akan menampilkan form latihan_34C_36110040 yang berisi penambahan data barang berupa( kode barang, nama barang, harga jual , dan jumlah barang), serta toolstriplebel yang bertuliskan kode barang lama, akan akan tetapi objek ini tidak akan terisi jika perintah pada form latihan ini hanya menambah daftar barang pada tabel. Sedangkan tombol edit jika diklik akan menampilkan form yang sama, akan tetapi perbedaannya hanya terletak pada objek toolstriplebel yang terisi dengan kode barang yang akan diedit datanya. Dan tombol hapus akan menghapus data barang sesuai dengan posisi kursor pada form latihan 34B.

Script Unique 

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

Property

Property Datagreatview => name => ok