Deskripsi & Prosedur Form Latihan_21_36110046
Deskripsi Form Latihan_21_36110046
Pada Form Latihan 21 hanya terdapat 1 object, yaitu datagridview.
Object
Pada Form
Object DataGridView
Terdapat 2 objek datagridview (seperti
terlihat gambar di atas)
Script Unique
Menambahkan Relation dua tabel
DS.Relations.Add(New DataRelation("03",
DS.Tables("01").Columns("notrans"),
DS.Tables("02").Columns("notrans")))
Event
Form Load
Property
-
Prosedur Form Latihan_21_36110046
Langkah-langkah mengerjakan Latihan 21, sbb:
1.
Buka Ms. Visual Studio
2.
Klik Create Project
3.
Ketik nama file yang ingin disimpan
4.
Akan terbuka jendela pekerjaan Ms.
Visual Studio
5.
Design form dengan menggunakan tools
pada toolbox
6.
Buat text pada form dengan menggunakan label,
seperti pada gambar
7.
Buat objek semua objek sesuai dengan design pada
latihan 21 dengan toolbox, ikuti gambar dibawah ini:
8.
Setelah design sudah bagus, saatnya
untuk membuat script
9.
Buat script prosedur sendiri seperti
dibawah ini:
Public Class Latihan_21_36110046
Dim CONNECT
As New
OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data
source=d:\SEMESTER 5\aplikasi komputer 4\Rhepoet keren\LATIHAN 15-26 MENGAKSES DATA\DataTransaksiJualBeli.accdb")
Dim DT1 As New DataTable
Dim DT2 As New DataTable
Dim DS As New DataSet
Dim BS1 As New BindingSource
Dim BS2 As New BindingSource
Private Sub Latihan_21_36110046_Load(ByVal
sender As Object,
ByVal e As
System.EventArgs) Handles Me.Load
Dim
QIPE1 As New
OleDb.OleDbDataAdapter
Dim
QIPE2 As New
OleDb.OleDbDataAdapter
QIPE1 = New
OleDb.OleDbDataAdapter("select * from
mastertransaksi", CONNECT)
QIPE1.Fill(DT1)
QIPE1.Dispose()
QIPE2 = New
OleDb.OleDbDataAdapter("select * from
detailtransaksi", CONNECT)
QIPE2.Fill(DT2)
QIPE2.Dispose()
DS.Tables.Add(DT1)
DS.Tables.Add(DT2)
DT1.TableName = "01"
DT2.TableName = "02"
DS.Relations.Add(New DataRelation("03",
DS.Tables("01").Columns("notrans"), DS.Tables("02").Columns("notrans")))
BS1.DataSource = DS
BS1.DataMember = "01"
BS2.DataSource = BS1
BS2.DataMember = "03"
DGV1_36110046.DataSource = BS1
DGV2_36110046.DataSource = BS2
End Sub
End Class
10. Silahkan
jalankan program anda. Wassalam.
Tidak ada komentar:
Posting Komentar