Latihan_26A_36110033

A.   Object-object dalam Latihan_26A_36110033:

1.    Object Label  

Terdapat satu label yang bertuliskan daftar barang.

2.    Object DataGridView

Terdapat satu objeck datagridview yang digunakan untuk menampilkan daftar barang.

3.    Object Button

Terdapat satu object button yang nama textnya bertuliskan Detail Transaksi. Button detail transaksi digunakan untuk menampilkan detail dari daftar barang yang ada di datagridview pada form Latihan_26B_36110033.

        

B.  Script Unique:

Latihan_26A_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_26A_36110033.

C.     Even:

Latihan_26A_36110033_Load

DETAIL_36110033_Click

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 label, Datagridview dan kolom button  masing-masing sebanyak 1 kolom. Kemudian beri nama daftar barang pada label, detail transaksi pada button dan apa saja yang anda inginkan pada Datagridview selanjutnya diikuti dengan stambuk. Adapun posisi label, Datagridview dan button sesuai dengan design pada latihan 26A berikut:

 

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

Public Class Latihan_26A_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

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

        Dim TRUCKILHA As New OleDb.OleDbDataAdapter

TRUCKILHA = New OleDb.OleDbDataAdapter("select*from barang", BRIDGEILHA)

        TABELILHA.Rows.Clear()

        TRUCKILHA.Fill(TABELILHA)

        TRUCKILHA.Dispose()

        DGV_36110033.DataSource = TABELILHA

    End Sub

    Private Sub DETAIL_36110033_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles DETAIL_36110033.Click

        If Latihan_26B_36110033.Visible = False Then

            Latihan_26B_36110033.Show()

        Else

            Latihan_26B_36110033.Activate()

        End If

        Latihan_26B_36110033.Show()

Latihan_26B_36110033.KODE_36110033.Text = DGV_36110033.CurrentRow.Cells("KODEBARANG").Value

Latihan_26B_36110033.NAMA_36110033.Text = DGV_36110033.CurrentRow.Cells("NAMABARANG").Value

Latihan_26B_36110033.HJUAL_36110033.Text = DGV_36110033.CurrentRow.Cells("HARGAJUAL").Value

Latihan_26B_36110033.JML_36110033.Text = DGV_36110033.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_26B_36110033.ZAHRA()

        Latihan_26B_36110033.PerhitunganZAHRA()

    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 26A selesai.