latihan_26B_36110036

Deskripsi latihan_26B_36110036

A.           Object Label

Terdapat tujuh label yang bertuliskan detail transaksi, kode barang, nama barang, harga jual, jumlah barang, total unit, total jumlah.

B.            Object Data gridview

    Terdapat satu object data gridview yang digunakan untuk menampilkan data table yang telah dibuat.

C.           Object textbox

    Terdapat enam textbox yang digunakan untuk memasukkan kode barang, nama barang, harga jual, jumlah barang, total unit, total jumlah yang berasal dari latihan_26A_36110036.

D.           Script Unique

    Untuk script unique dapat dilihat pada Langkah-langkah mengerjakan    latihan_26B_36110036.

E.        Even

Latihan_26B_36110036_Load

ros() 

  

Langkah-langkah mengerjakan latihan_26B_36110036

            1.          Buka project yang telah dibuat, dan buka solution explorer

            2.          Klik  kanan nama project ==> add ==> new item

       

                 3.          Klik New Item, setelah terbuka  pilih windows form dan ketik nama form  lalu klik Add 

          

4.      Kemudian klik file tersebut,  maka akan terbuka jendela pekerjaan dari Ms. Visual Studio.

5.     Kemudian buat form seperti dibawah ini: 

                  

 6.     Setelah design form selesai  dibuatlah rumusnya, Berikut adalah rumus untuk     menjalankan  latihan_26B_36110036

Public Class latihan_26B_36110036

    Dim rosyana As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\apkom 4\LATIHAN 15-26 MENGAKSES DATA\datatransaksijualbeli.accdb")

    Dim anna As New DataTable

    Public Sub Ros()

        Dim rima As New OleDb.OleDbDataAdapter

        rima = 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_36110036.Text & "'", rosyana)

        anna.Rows.Clear()

        rima.Fill(anna)

        rima.Dispose()

    End Sub

    Public Sub Perhitungan()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In anna.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        unit_36110036.Text = TU

        Jumlah_36110036.Text = TOTAL

    End Sub

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

        data_36110036.DataSource = anna

    End Sub

End Class

7.       Setelah rumus selesai, program dijalankan dengan menggunakan start debugging

8.     Setelah program jalan maka file disave.