Latihan_31a_46110001

A.    Object-object dalam Latihan_31a_46110001

A.     Object datagridview

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

B.      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 ..

.

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

ButtonClicK

D.    Cara Penyelesaian

·         Langkah pertama dalam membuat form/ latihan 31A 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_31a_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 Latihan31a_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 31b

        If Latihan_31b_46110001.Visible = False Then

            Latihan_31b_46110001.Show()

        Else

            Latihan_31b_46110001.Activate()

        End If

        'mengisi textbox yang ada pada 25b

        Latihan_31b_46110001.KB_46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value

        Latihan_31b_46110001.tb1_46110001.Text = DGV_46110001.CurrentRow.Cells("kodebarang").Value

        Latihan_31b_46110001.tb2_46110001.Text = DGV_46110001.CurrentRow.Cells("namabarang").Value

        Latihan_31b_46110001.tb3_46110001.Text = DGV_46110001.CurrentRow.Cells("hargajual").Value

        Latihan_31b_46110001.STRIP_46110001.Text = DGV_46110001.CurrentRow.Cells("JumlahBarang").Value

    End Sub

End Class

·         langkah selanjutnya Jalankan program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

·         Setelah mengatur startup form/ jika anda memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah anda buat  setelah itu, klik start debug untuk menjalankan form latihan 31 A seperti dibawah ini :

·         Setelah menekan tombol debug maka tampilan latihan 31A sebagai berikut :

·         Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.