Latihan_26B_36110046

Deskripsi & Prosedur Form Latihan_26B_36110046

Deskripsi Form Latihan_26B_36110046

Pada Form Latihan 26B terdapat 3 object, yaitu datagridview, label, dan textbox.

Object Pada Form

Object DataGridView

Terdapat 1 objek datagridview (seperti terlihat gambar di atas)

Object Label

Terdapat 7 objek label (seperti terlihat gambar di atas)

Object Textbox

Terdapat 6 objek textbox (seperti terlihat gambar di atas)

Script Unique

-

Event

FormLoad (dengan perintah program lain)

Property

-

Prosedur Form Latihan_26B_36110046

Langkah-langkah mengerjakan Latihan 26B, sbb:

1.        Buka Ms. Visual Studio

2.        Klik Create Project

3.        Ketik nama file yang ingin disimpan

4.        Akan terbuka jendela pekerjaan Ms. Visual Studio

5.        Design form dengan menggunakan tools pada toolbox

6.        Buat text pada form dengan menggunakan label, seperti pada gambar

7.        Buat  objek semua objek sesuai dengan design pada latihan 26B dengan toolbox, ikuti gambar dibawah ini:

8.        Setelah design sudah bagus, saatnya untuk membuat script

9.        Buat script prosedur sendiri seperti dibawah ini:

Public Class Latihan_26B_36110046

    Dim CONNECT As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=d:\SEMESTER 5\aplikasi komputer 4\Rhepoet keren\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim DT As New DataTable

    Public Sub QP()

        Dim adapter As New OleDb.OleDbDataAdapter

        adapter = New OleDb.OleDbDataAdapter("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 ='" & KB_36110046.Text & "'", CONNECT)

        DT.Rows.Clear()

        adapter.Fill(DT)

        adapter.Dispose()

        Perhitungan()

    End Sub

    Public Sub Perhitungan()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In DT.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        TU_36110046.Text = TU

        TJ_36110046.Text = TOTAL

    End Sub

    Private Sub Latihan_26B_36110046_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        DGV_36110046.DataSource = DT

    End Sub

End Class

10.    Silahkan jalankan program anda. Wassalam.