1.
Klik Start lalu pilih Microsoft
Visual Studio 2008
2.
Lalu akan muncul jendela awal
Microsoft Visual Studio seperti di bawah ini.
3.
Lalu pilih New Project dan beri nama
serta pilih tempat folder untuk menyimpannya.
4.
Kemudian
buat form sesuai dengan form di bawah ini.
5.
Berikut
ini adalah rumus untuk menjalankan form di atas.
Public Class
Latihan_40A_36110048
Dim bridgeRio As New OleDb.OleDbConnection("
Provider = microsoft.ace.oledb.12.0; data source = " &
Application.StartupPath & "\DataMajemuk.accdb")
Dim tabelRio1 As New DataTable
Dim tabelRio2 As New DataTable
Dim setRio As New DataSet
Dim Binding As New BindingSource
Dim Binding2 As New BindingSource
Public Sub Isi()
Dim truckRio As New OleDb.OleDbDataAdapter
tabelRio2.Rows.Clear()
tabelRio1.Rows.Clear()
truckRio = New OleDb.OleDbDataAdapter("Select
* " & _
"From MASTERTRANSAKSI", bridgeRio)
truckRio.Fill(tabelRio1)
truckRio = New OleDb.OleDbDataAdapter("Select
NOTRANS, DETAILTRANSAKSI.KODEBARANG, NAMABARANG, HARGA, UNIT, UNIT * HARGA As
JUMLAH " & _
"From DETAILTRANSAKSI Inner Join BARANG on
DETAILTRANSAKSI.KODEBARANG = BARANG.KODEBARANG", bridgeRio)
truckRio.Fill(tabelRio2)
truckRio.Dispose()
End Sub
Private Sub
Latihan_40A_36110048_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Load
Isi()
DGV1_36110048.DataSource = tabelRio1
DGV2_36110048.DataSource = tabelRio2
setRio.Tables.Add(tabelRio1)
setRio.Tables.Add(tabelRio2)
tabelRio1.TableName = "Induk"
tabelRio2.TableName = "Sub"
setRio.Relations.Add(New DataRelation("Relasi", setRio.Tables("Induk").Columns("NOTRANS"), setRio.Tables("Sub").Columns("NOTRANS")))
Binding.DataSource = setRio
Binding.DataMember = "Induk"
Binding2.DataSource = Binding
Binding2.DataMember = "Relasi"
DGV1_36110048.DataSource
= Binding
DGV2_36110048.DataSource = Binding2
End Sub
Private Sub
HAPUS_36110048_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles HAPUS_36110048.Click
Dim truckRio As New OleDb.OleDbCommand
truckRio = New OleDb.OleDbCommand("Delete
* From MASTERTRANSAKSI Where NOTRANS = '" &
DGV1_36110048.CurrentRow.Cells("NOTRANS").Value
& "'", bridgeRio)
If MsgBox("Apakah
Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then
bridgeRio.Open()
truckRio.ExecuteNonQuery()
truckRio = New OleDb.OleDbCommand("Delete
* From DETAILTRANSAKSI Where NOTRANS = '" &
DGV1_36110048.CurrentRow.Cells("NOTRANS").Value
& "'", bridgeRio)
truckRio.ExecuteNonQuery()
bridgeRio.Close()
truckRio.Dispose()
End If
Isi()
End Sub
Private Sub
TAMBAH_36110048_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles TAMBAH_36110048.Click
If Latihan_40B_36110048.Visible = False Then
Latihan_40B_36110048.Show()
Else
Latihan_40B_36110048.Activate()
Latihan_40B_36110048.WindowState = FormWindowState.Normal
Latihan_40B_36110048.NOLAMA_36110048.Text
= "-"
End If
Latihan_40B_36110048.NO_36110048.Text = ""
Latihan_40B_36110048.JENIS_36110048.Text = ""
Latihan_40B_36110048.TOTAL_36110048.Text = ""
Latihan_40B_36110048.SelectData()
Latihan_40B_36110048.Hitung()
End Sub
Private Sub
EDIT_36110048_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles EDIT_36110048.Click
If Latihan_40B_36110048.Visible = False Then
Latihan_40B_36110048.Show()
Else
Latihan_40B_36110048.Activate()
Latihan_40B_36110048.WindowState = FormWindowState.Normal
End If
Latihan_40B_36110048.NO_36110048.Text = DGV1_36110048.CurrentRow.Cells("NOTRANS").Value
Latihan_40B_36110048.NOLAMA_36110048.Text =
DGV1_36110048.CurrentRow.Cells("NOTRANS").Value
Latihan_40B_36110048.JENIS_36110048.Text = DGV1_36110048.CurrentRow.Cells("JENISTRANSAKSI").Value
Latihan_40B_36110048.SelectData()
Latihan_40B_36110048.Hitung()
End Sub
End Class
6.
Setelah itu, jalankan programnya.
0 komentar:
Posting Komentar