Latihan_22_36110033

A.    Object dalam Latihan_22_36110033 :

Hanya ada satu object dalam Latihan_22_36110033, yaitu object DataGridView sebanyak dua kolom.

B.     Script Unique:

Latihan_22_36110033_Load

Lengkapnya dapat dilihat pada prosedur Latihan_22_36110033.

C.    Even:

Latihan_22_36110033_Load

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 Datagridview sebanyak 2 kolom, kemudian  beri nama apa saja yang anda inginkan kemudian ikuti dengan stambuk. Adapun posisi Datagridview sesuai dengan design pada latihan 22 berikut:

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

  Public Class Latihan_22_36110033

    Dim BIGDERILHA 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 TABELILHA1 As New DataTable

    Dim TABELILHA2 As New DataTable

    Dim setILHA As New DataSet

    Dim ILHA1 As New BindingSource

    Dim ILHA2 As New BindingSource

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

        Dim truckILHA1 As New OleDb.OleDbDataAdapter

        Dim truckILHA2 As New OleDb.OleDbDataAdapter

truckILHA1 = New OleDb.OleDbDataAdapter("Select * from MASTERTRANSAKSI", BIGDERILHA)

        truckILHA1.Fill(TABELILHA1)

        truckILHA1.Dispose()

truckILHA2 = 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", BIGDERILHA)

        truckILHA2.Fill(TABELILHA2)

        truckILHA2.Dispose()

        setILHA.Tables.Add(TABELILHA1)

        setILHA.Tables.Add(TABELILHA2)

        TABELILHA1.TableName = "A1"

        TABELILHA2.TableName = "A2"

setILHA.Relations.Add(New DataRelation("A3", setILHA.Tables("A1").Columns("NOTRANS"), setILHA.Tables("A2").Columns("NOTRANS")))

        ILHA1.DataSource = setILHA

        ILHA1.DataMember = "A1"

        ILHA2.DataSource = ILHA1

        ILHA2.DataMember = "A3"

        DataGridView1_36110033.DataSource = ILHA1

        DataGridView2_36110033.DataSource = ILHA2

        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 22 selesai.