Deskripsi_Latihan_26B_36110054

Cara Membuat Progam/Apliaksi Latihan 26B

Dengan Software Microsoft Visual Basic 2008

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:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb

 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

erdapat 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

Latihan_26B_36110054_Load

Langkah 1 :

Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2 :

 Buat Project Baru dengan Cara,

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

Langkah 3 :

   Rancanglah From Seperti Gambar Berikut Berikut :

    Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public Class Latihan_26B_36110054

    Dim ruslan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Ruslan\Materi Kuliah\Apkom 4\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")

    Dim tabelRuslan As New DataTable

    Public Sub cullank()

        Dim iruslan As New OleDb.OleDbDataAdapter

        iruslan = 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 = '" & Kodebrg_36110054.Text & "'", ruslan)

        tabelRuslan.Rows.Clear()

        iruslan.Fill(tabelRuslan)

        iruslan.Dispose()

    End Sub

    Public Sub Perhitungan()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In tabelRuslan.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        ttlunit_36110054.Text = TU

        ttljumlah_36110054.Text = TOTAL

    End Sub

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

        DataGridView1_36110054.DataSource = tabelRuslan

    End Sub

End Class