Deskripsi dan Prosedur Latihan_22_36110039

   Deskripsi Form Latihan_22_36110039

Terdapat satu object yaitu :

Object DataGridView

Terdapat dua objeck datagridview.

   Script Unique

Scriptnya ada pada Prosedur Latihan_22_36110039 dibawah ini.

   Even

Latihan_22_36110039_Load

Prosedur menjalankan Latihan_22_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 DataGridView dan buat sebanyak dua. Isi properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.

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

 

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

Dim bridgehilda 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

    Dim tabelhld2 As New DataTable

    Dim sethld As New DataSet

    Dim hld1 As New BindingSource

    Dim hld2 As New BindingSource

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

        Dim truck1 As New OleDb.OleDbDataAdapter

        Dim truct2 As New OleDb.OleDbDataAdapter

        truck1 = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", bridgehilda)

  truck1.Fill(tabelhld)

        truck1.Dispose()

        truct2 = New OleDb.OleDbDataAdapter("Select DETAILTRANSAKSI.NOTRANS, DETAILTRANSAKSI.HARGA, DETAILTRANSAKSI.UNIT, DETAILTRANSAKSI.KODEBARANG, BARANG.NAMABARANG, DETAILTRANSAKSI.UNIT * BARANG.HARGAJUAL AS JUMLAHSTANDAR, DETAILTRANSAKSI.UNIT * DETAILTRANSAKSI.HARGA AS JUMLAHREALISASI FROM BARANG INNER JOIN DETAILTRANSAKSI ON BARANG.KODEBARANG=DETAILTRANSAKSI.KODEBARANG", bridgehilda)

        truct2.Fill(tabelhld2)

        truct2.Dispose()

        sethld.Tables.Add(tabelhld)

        sethld.Tables.Add(tabelhld2)

        tabelhld.TableName = "h1"

        tabelhld2.TableName = "h2"

        sethld.Relations.Add(New DataRelation("h3", sethld.Tables("h1").Columns("NOTRANS"), sethld.Tables("h2").Columns("NOTRANS")))

        hld1.DataSource = sethld

        hld1.DataMember = "h1"

        hld2.DataSource = hld1

        hld2.DataMember = "h3"

        dgv1_36110039.DataSource = hld1

        dgv2_36110039.DataSource = hld2

    End Sub

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