LATIHAN_26B_36110052

Latihan_26B _36110052

A.    Object-object dalam Latihan_26B_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_26A_36110052 yang berupa notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

3.      Object TextBox

Terdapat enam obejct textbox yang digunakan untuk menampilkan kode barang, nama barang, harga jual, jumlah, total unit, dan total jumlah dari daftar barang yang dipilih pada form Latihan_26A_36110052.

 

  

B.     Script Unique

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

C.     Even

Latihan_26B_36110052_Load

VEVE(ByVal A As String)

dgv2_36109003_CellContentClick

Langkah-langkah kerja  latihan_26b_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_26b_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_26B_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 notrans, tanggaltransaksi, jenistransaksi, keterangan, unit, harga, jumlah from Query5 where KODEBARANG ='" & A & "'", VEE)

        VIA.Rows.Clear()

        adapter.Fill(VIA)

        dgv2_36110052.DataSource = VIA

    End Sub

    Private Sub dgv2_36109003_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles dgv2_36110052.CellContentClick

        Dim tu, total As Integer

        For Each x As DataRow In VIA.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        totunit_36110052.Text = tu

        totjum_36110052.Text = total

    End Sub

End Class

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

7.      SELESAI