Latihan_383940_36110044 Aplikasi Komputer 4

Form 383940 terdapat dua object yaitu Button dan DataGridView

Object Button

Terdapat dua object button (Pilih dan Batal). Tombol digunakan untuk memilih kode barang yang akan diinput ke dalam textbox kode barang yang ada pada form Latihan_38_36110044. Tombol batal digunakan untuk menutup form Latihan_383940_36110044. 

 Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan kode barang dan nama barang yang akan dipilih untuk dimasukkan pada form Latihan_38_36110044.

 

Script Unique

Untuk script, silahkan lihat selengkapnya pada Prosedur Penyelesaian Latihan_383940_36110044

  Even

Latihan_383940_36110044_Load

PROSEDUR PENYELESAIAN:

1.      Klik star lalu pilih Microsoft Visual Studio 2008

2.      Pilih icon Add New Item

3.      Ubah nama pada lembar “Add New Item” kemudian add

4.      Buat design form dengan menggunakan Button dan DataGridView yang ada dalam "Toolbox”

5.      Ganti nama DataGridView dan Button menggunakan "Properties Window"

6.      Klik kanan pada kotak design kemudian pilih View Code untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_383940

            Public Class Latihan_383940_36110044

    Dim tiya As New DataTable

    Dim conect As New OleDb.OleDbConnection("provider = microsoft.ace.oledb.12.0;data source=" & Application.StartupPath & "\DATAMAJEMUK.accdb;Jet OLEDB:Database Password=22")

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

        Dim wahyuni As New OleDb.OleDbDataAdapter

        wahyuni = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", conect)

        tiya.Rows.Clear()

        wahyuni.Fill(tiya)

        wahyuni.Dispose()

        DGV_36110044.DataSource = tiya

    End Sub

End Class

7.      Jalankan program dengan menggunakan  “start debugging”