Latihan_30a_46110001

A.    Object-object dalam Latihan_30a_46110001

1.       Object data gridview

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

2.      Object button

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

B.     Script Unique

      Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya

C.     Even

Load

Button Click

D.    Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 29 ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah ini

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

 

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

·         Buatlah form seperti gambar dibawah ini,

 

·         Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_30a_46110001

    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")

    Dim ambil 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", Jalan)

        'bersihkan data dulu sebelum isi data lain

        ambil.Rows.Clear()

        'untuk memasukkan data yg telah di angkut ke dalam datatable

        data.Fill(ambil)

        data.Dispose()

    End Sub

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

        ambildata()

        DGV_46110001.DataSource = ambil

    End Sub

    Private Sub EDit_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110001.Click

        'Menampilkan form 30b

        If Latihan_30b_46110001.Visible = False Then

            Latihan_30b_46110001.Show()

        Else

            Latihan_30b_46110001.Activate()

        End If

        'mengisi textbox yang ada pada 25b

        Latihan_30b_46110001.KB_46110001.Text = DGV_46110001.CurrentRow.Cells("KodeBarang").Value

        Latihan_30b_46110001.TB1_46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value

        Latihan_30b_46110001.TB2_46110001.Text = DGV_46110001.CurrentRow.Cells("namabarang").Value

        Latihan_30b_46110001.TB3_46110001.Text = DGV_46110001.CurrentRow.Cells("hargajual").Value

        Latihan_30b_46110001.TB4_46110001.Text = DGV_46110001.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

·         langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini