Latihan_26b_46110001

A.   Object-object dalam Latihan_26A_46110001 :

    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_46110001 yang berupa notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

    3.      Object Button

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

B.    Script Unique

Untuk script, dapat dilihat secara menyeluruh pada Prosedur Penyelesaian Latihan_26b_46110001.

C.     Even

latihan_26b_008_Load

D.   Cara penyelesaian

Langkah pertama dalam membuat form/ latihan 26b ialah, pada desktop anda, pilih  microsoft visual studio 2008.seperti pada langkah dibawah i

• 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_26b_46110001
    Dim koneksi As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= " & Application.StartupPath & "\datatransaksijualbeli.accdb")
    Dim meong As New DataTable

    Public Sub bahe(ByVal A As String)
        Dim adapter As New OleDb.OleDbDataAdapter
        Dim bahri As String
        bahri = "SELECT MASTERTRANSAKSI.NOTRANS, MASTERTRANSAKSI.TANGGALTRANSAKSI, MASTERTRANSAKSI.JENISTRANSAKSI, MASTERTRANSAKSI.KETERANGAN, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.HARGA, [DETAILTRANSAKSI]![UNIT]*[DETAILTRANSAKSI]![HARGA] AS JUMLAH FROM DETAILTRANSAKSI INNER JOIN MASTERTRANSAKSI ON DETAILTRANSAKSI.NOTRANS = MASTERTRANSAKSI.NOTRANS WHERE KODEBARANG = '" & A & "'"
        adapter = New OleDb.OleDbDataAdapter(bahri, koneksi)
        adapter.Fill(meong)

        Dim izhar As Integer = 0
        Dim sul As Integer = 0
        For Each row As DataRow In meong.Rows
            izhar += row("Unit")
            sul += row("Jumlah")
        Next
        TU_46110001.Text = izhar
        TJ_46110001.Text = sul

    End Sub

    Private Sub latihan_26b_008_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        dgf26b_46110001.DataSource = meong
    End Sub
End Class

• langkah selanjutnya adalah jalankan program dengan Mengklik start debugging seperti pada gambar dibawah ini