LATIHAN_24B_36110052

Latihan_24B_36110052

A.   Object-object dalam Latihan_24B_36110048 :

            

1.      Object Label

Terdapat lima label (yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, dan jumlah barang).

            

2.      Object DataGridView

Terdapat satu object datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_24A_36110052 yang berupa nama barang, persediaan awal, dan harga jual.

3.      Object TextBox

Terdapat empat obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, dan jumlah barang dari daftar barang yang dipilih pada form Latihan_24A_36110052.

 

              

B.        .     Script Unique

Untuk script, dapat dilihat secara menyeluruh pada langkah-langkah kerja Latihan_24B_36110052.

C.             Even

Latihan_24B_36110052_Load

Langkah-langkah kerja  latihan_24b_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_24b_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 NotInheritable Class LATIHAN_24B_36110052

    Dim VIA As New DataTable

    Dim VEE As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & Application.StartupPath & "\DataTransaksiJualBeli.accdb'")

    Public Sub VEVE(ByVal A As String)

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("select id, notrans, unit, harga from DETAILTRANSAKSI where KODEBARANG ='" & A & "'", VEE)

        VIA.Rows.Clear()

        adapter.Fill(VIA)

        dgv2_36110052.DataSource = VIA

    End Sub

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

    End Sub

End Class

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

7.      SELESAI