Latihan_26B_36110056

Deskripsi Latihan 26B:

Form Latihan 26B terdapat tiga object yaitu Data Grid View, Label, dan TextBox

Object  Data Grid View

Terdapat satu object DataGridView digunakan untuk menampilkan semua field atau kolom yang terdapat dalam data D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli

 Object  Label

Tedapat tujuh object label yang di beri nama Detail Transaksi, kode barang, nama barang, harga barang, jumlah barang, total unit, total jumlah

Object  TextBox

Terdapat enam textbox status input yaitu Detail Transaksi, kode barang, nama barang, harga barang digunakan untuk memasukkan nilai Atau text Nomor dan Jenis. Dua status Readonly yaitu Total Unit dan Total Jumlah digunakan untuk menampilkan hasil pejumlahan.

 

Script Unique

 Dapat dilihat pada langkah -langkah penyelesaian latihan 26B

Even

FromLoad

Ilyas() 

perhitungan()

Property

Textbox Readonly = True


                                 Form Latihan 26B

Langkah-langkah penyelesaian latihan 26B :

• Buka project yang dibuat sebelumnya
• Pilih Add new item

• Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

• Buat form sesuai soal di atas dengan menggunakan Data Grid View, label, textbox yang terdapat dalam toolsbox

• Setelah form selesai, ubah nama DataGridView dan TextBox yang terdapat dalam properties window  

• Selanjutnya masukkan formula atau rumus untuk menjalan form  :

 Public Class latihan26B_36110056
    Dim iyas As New DataTable
    Dim jembatan As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source= D:\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Public Sub dut(ByVal A As String)
        Dim hup As New OleDb.OleDbDataAdapter
        hup = New OleDb.OleDbDataAdapter("select mastertransaksi.notrans, mastertransaksi.tanggaltransaksi, mastertransaksi.jenistransaksi, mastertransaksi.keterangan, detailtransaksi.unit, detailtransaksi.harga, detailtransaksi.unit * detailtransaksi.harga as jumlah from mastertransaksi inner join detailtransaksi on mastertransaksi.notrans= detailtransaksi.notrans where KODEBARANG ='" & A & "'", jembatan)
        iyas.Rows.Clear()
        hup.Fill(iyas)
        hup.Dispose()
        dgvb_36110056.DataSource = iyas
        ilyas()

    End Sub

    Private Sub ilyas()
        Dim tu, total As Integer
        For Each x As DataRow In iyas.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        Totu_36110056.Text = tu
        Totjum_36110056.Text = total
    End Sub
End Class

• Selanjutnya jika ingin menjalankannya pilih Start de bungging 

•  Setelah itu anda dapat menyimpannya dengan cara Ctrl S atau memilih menu seperti di bawah ini