LATIHAN_38_39_40

Latihan_38_39_40_36110052

A.   Object-object dalam Latihan_38_39_40_36110052 :

           

1.      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_36110052. Tombol batal digunakan untuk menutup form Latihan_38_39_40_36110052. 

2.      Object DataGridView

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

B.     Script Unique

Untuk script, silahkan lihat selengkapnya pada Langkah-langkah kerja  latihan_38_39_40_36110052

C.     Even

Latihan_38_39_40_36110052_Load

Langkah-langkah kerja  latihan_38_39_40_36110052

1.      Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_38_39_40_36110052

2.      Design form dengan menggunakan tools pada toolbox

3.      Setiap tools yang diambil pada textbox dapat diubah propertiesnya seperti nama dan teksnya dengan cara klik kanan-properties

4.      Buat form dengan bentuk seperti ini:

5.      Setelah selesai form, masuk ke lembar Vb dan masukkan script

Public Class LATIHAN_38_39_40_36110052

    Dim tabel As New DataTable

    Dim vee As New OleDb.OleDbConnection("PROVIDER = MICROSOFT.ACE.OLEDB.12.0; DATA SOURCE =" & Application.StartupPath & "/Datamajemuk.ACCDB")

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

        Dim soe As New OleDb.OleDbDataAdapter

        soe = New OleDb.OleDbDataAdapter("SELECT * FROM BARANG", vee)

        tabel.Rows.Clear()

        soe.Fill(tabel)

        soe.Dispose()

        dgv_36110052.DataSource = tabel

    End Sub

End Class

6.      Uji  program dengan mengklik “Start  Debbuging” dan save program dengan mengklik “Save”.

7.      SELESAI