Deskripsi dan Prosedur Latihan_26B_36110039

   Deskripsi Form Latihan_26B_36110039

Terdapat tiga object yaitu :

1.      Object Label

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

2.      Object TextBox

Terdapat enam object textbox (empat status input, dan dua status readonly).

3.      Object DataGridView

Terdapat satu objeck datagridview yang digunakan untuk menampilkan detail transaksi dari form Latihan_26A_36110048 yang berupa notrans, tanggal transaksi, jenis transaksi, keterangan, unit, harga, dan jumlah.

   Script Unique

Scriptnya ada pada Prosedur Latihan_26B_36110039 dibawah ini.

   Even

hilda()

Perhitungan()

  Latihan_26B_36110039_Load

Prosedur menjalankan Latihan_26B_36110039:

1.       Klik Start dan pilih Microsoft Visual Studio 2008.

 

2.       Klik menu file dan pilih New Project.

 

3.       Ketik nama dan pilih lokasi yang diinginkan pada masing-masing tempat yang tersedia, klik Ok.

 

4.       Klik menu view dan pilih toolbox.

 

5.      Kemudian pilih object Label dan buat sebanyak tujuh.

                                                                                                                            

6.      Kemudian pilih object DataGridView dan buat sebanyak satu. Isi properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

7.      Kemudian pilih object textbox dan buat sebanyak enam (empat status input, dan dua status readonly). Isi properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

8.      Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:

 

9.      Berikut ini adalah rumus untuk menjalankan form di atas:

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

    Dim tabelhld As New DataTable

    Public Sub hilda()

        Dim truckhld As New OleDb.OleDbDataAdapter

        truckhld = 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_36110039.Text & "'", bridgehld)

        tabelhld.Rows.Clear()

        truckhld.Fill(tabelhld)

        truckhld.Dispose()

    End Sub

    Public Sub Perhitungan()

        Dim TU As Integer

        Dim TOTAL As Integer

        For Each x As DataRow In tabelhld.Rows

            TU = TU + x("UNIT")

            TOTAL = TOTAL + x("JUMLAH")

        Next

        tu_36110039.Text = TU

        tj_36110039.Text = TOTAL

    End Sub

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

        dgv_36110039.DataSource = tabelhld

   End Sub

10.   Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging atau tekan F5.