latihan_31A_46110004

Deskripsi form latihan 31A
Dalam form Latihan 31a hanya terdapat dua object yaitu DataGriedView dan Button

Object datagridview :
Dalam form ini terdapat  1 buah object datagridview. Datagridview digunakan untuk menampilkan data kedalam bentuk table yang terdiri dari baris dan kolom.

Object Button :
Dalam form ini terdapat se buah object button yang bertuliskan “edit”. Button  “edit”  ini digunakan untuk menampilkan form latihan 31b  dan  mengedit/mengganti kode barang yang diinginkan .

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Load

Button Click

 Langkah-langkah penyelesaian form latihan 31A

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_27_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :

Public Class latihan_31A_46110004

    Dim CONNECT As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=D:\Dokumen Koe\SEMESTER 5\APKOM 4\Visual Basic\LATIHAN 27-34 SIMPAN EDIT DELETE DATA\databarang.accdb;Jet OLEDB:Database Password=046")

    Dim DT As New DataTable

    Public Sub ambildata()

        'mendeklarasikan adapter

        Dim data As New OleDb.OleDbDataAdapter

        'Mengatur data yang akan di angkut

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", CONNECT)

        'bersihkan data dulu sebelum isi data lain

        DT.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(DT)

        data.Dispose()

    End Sub

    Private Sub latihan_31A_46110004_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        ambildata()

        dg_46110004.DataSource = DT

    End Sub

    Private Sub edit_46110004_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110004.Click

        'Menampilkan form 31b

        If latihan_31B_46110004.Visible = False Then

            latihan_31B_46110004.Show()

        Else

            latihan_31B_46110004.Activate()

        End If

        'mengisi textbox yang ada

        latihan_31B_46110004.ganti_46110004.Text = dg_46110004.CurrentRow.Cells("KODEBARANG").Value

        latihan_31B_46110004.kb_46110004.Text = dg_46110004.CurrentRow.Cells("KODEBARANG").Value

        latihan_31B_46110004.nb_46110004.Text = dg_46110004.CurrentRow.Cells("NAMABARANG").Value

        latihan_31B_46110004.hj_46110004.Text = dg_46110004.CurrentRow.Cells("HARGAJUAL").Value

        latihan_31B_46110004.jb_46110004.Text = dg_46110004.CurrentRow.Cells("JUMLAHBARANG").Value

    End Sub

End Class

5. Jalankan program dengan cara klik kanan pada project, lalu pilih properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

6. Setelah mengatur startup fom maka, klik start debug untuk menjalankan form latihan 31a seperti dibawah ini :

7. Setelah menekan tombol debug maka tampilan latihan 31a sebagai berikut :

8. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.