Deskripsi_Latihan_26A_36110054

Cara Membuat Progam/Apliaksi Latihan 26A

Dengan Software Microsoft Visual Basic 2008

Form Latihan 26A terdapat tiga object yaitu Data Grid View, Label, Button

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

Terdapat satu object label yang di beri nama Daftar Barang

Object  Button

Terdapat satu object button (Detail Transaksi). Button Detail Transaksi digunakan untuk menampilkan detail dari detailtransaksi  yang ada di datagridview.klik dari daftar barang itu akan muncul pada form Latihan_26B_36110054

Script Unique

Untuk FromLoad =

  Private Sub latihan_26A_36110054_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim iruslanAs New OleDb.OleDbDataAdapter. . . .

Untuk button Detail  Transaksi=

 Private Sub Detail_36110054_Click

 If latihan_26B_36110054.Visible = False Then

            Latihan_26B_36110054.Show()....

Even

FromLoad

ButtonClick

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_26A_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

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

        Dim iruslan As New OleDb.OleDbDataAdapter

        iruslan = New OleDb.OleDbDataAdapter("select*from barang", ruslan)

        tabelRuslan.Rows.Clear()

        iruslan.Fill(tabelRuslan)

        iruslan.Dispose()

        DataGridView1_36110054.DataSource = tabelRuslan

    End Sub

    Private Sub DETAIL_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Detail_36110054.Click

        If Latihan_26B_36110054.Visible = False Then

            Latihan_26B_36110054.Show()

        Else

            Latihan_26B_36110054.Activate()

        End If

        Latihan_26B_36110054.Show()

        Latihan_26B_36110054.Kodebrg_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("KODEBARANG").Value

        Latihan_26B_36110054.Namabrg_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("NAMABARANG").Value

        Latihan_26B_36110054.hrgjual_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("HARGAJUAL").Value

        Latihan_26B_36110054.jmlhbrg_36110054.Text = DataGridView1_36110054.CurrentRow.Cells("PERSEDIAANAWAL").Value

        Latihan_26B_36110054.cullank()

        Latihan_26B_36110054.Perhitungan()

    End Sub

End Class