Latihan_26B_36110033

A.    Object-object dalam Latihan_26B_36110033:

1.       Object Label

Terdapat lima label, yang nama textnya 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_36110033 yang isinya berupa data notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

3.        Object TextBox

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

 

B.     Script Unique:

      Latihan_26B_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_26B_36110033.

C.    Even:

Latihan_26B_36110033_Load

ZAHRA()

PerhitunganZAHRA()

Prosedur

1.    Klik Start lalu pilih Microsoft Visual Studio 2008

2.    Buka Ms. Visual Studio.

3.    Lalu akan muncul jendela awal Microsoft Visual Studio.

4.    Klik Add New Item dan akan muncul jendela add new item seperti berikut:

 Setelah muncul pilih windos from, kemudian ganti nama sesuai dengan nama yang diinginkan dan selanjutnya klik tombol add. Langkah ini dilakukan karena kita sudah pernah membuat project sebelumnya. Akan muncul from untuk digunakan membuat project.

5.    Buat kolom sesuai dengan design pada latihan 26B dengan mengguanakan lebel sebanyak 7 kolom,  textbox sebanyak 6 kolom dan Datagridview satu kolom . Nama lebel, textbox dan Datagridview diberi identitas apa saja yang kemudian diikuti nomor stambuk. Sedangkan nama textnya diisi sesuai dengan design latihan 26B berikut:

 

6.      Untuk menuliskan rumus pada latihan 26B, anda dapat menuliskan rumus seperti dibawah ini:

Public Class Latihan_26B_36110033

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

    Dim TABELILHA As New DataTable

    Public Sub ZAHRA()

        Dim TRUCKILHA As New OleDb.OleDbDataAdapter

TRUCKILHA = 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 = '" & KODE_36110033.Text & "'", BRIDGEILHA)

        TABELILHA.Rows.Clear()

        TRUCKILHA.Fill(TABELILHA)

        TRUCKILHA.Dispose()

    End Sub

Public Sub PerhitunganZAHRA()

        Dim TUNIT As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In TABELILHA.Rows

            TUNIT = TUNIT + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        TUNIT_36110033.Text = TUNIT

        TJUMLAH_36110033.Text = TOTAL

    End Sub

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

        DGV_36110033.DataSource = TABELILHA

    End Sub

End Class

7.      Kemudian di Start Debbuging, maka kita akan tahu, betul atau tidaknya rumus yang kita gunakan serta coba jalankan perintah yang ingin kita ketahui dari latihan tersebut untuk mengetahui hasilnya yang lebih jelas lagi.

8.      Jika program berjalan simpan dengan menekan tombol ctrl+s  untuk menyimpan data dan prosedur latihan 26B selesai.