Latihan_40A_46110022
Deskripsi Form Latihan_40A 46110022
Dalam
form ini terdapat 3 buah object yaitu object label, button dan DataGriedView.
Object
Label
Terdapat
1 buah object label yaitu detail transaksi.
Object DataGriedView
Terdapat
sebuah objek DataGriedView yang berfungsi untuk menampilkan data ke dalam
bentuk tabel yang terdiri dari baris dan kolom.
Object Button
Terdapat
sebuah object button yaitu “simpan” yang berfungsi untuk
menyimpan data yang telah diinput di latihan ini ke dalam database.
Script Unique
Tidak
terdapat script unique pada form latihan ini.
Even
Click
Load
Langkah-Langkah Membuat Form Latihan 40A_46110022
1. Buat form baru
seperti langkah berikut :
2. Input nama form
pada kolom yang tersedia, lalu klik "add" seperti berikut :
3. Buat desain form
seperti gambar berikut :
4. Input script di
bawah ini :
Public Class Latihan_40A_46110022
Dim go As New
OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data
Source =" & Application.StartupPath & "\Datamajemuk.ACCDB")
Dim
dtdetail As New
DataTable
Dim
dtmaster As New
DataTable
Dim atur2 As New DataSet
Dim
bsdetail As New
BindingSource
Dim
bsmaster As New
BindingSource
Public Sub grabdata()
dtdetail.Rows.Clear()
dtmaster.Rows.Clear()
Dim
master As New
OleDb.OleDbDataAdapter
master = New
OleDb.OleDbDataAdapter("select* from
mastertransaksi", go)
master.Fill(dtmaster)
master.Dispose()
Dim
detail As New
OleDb.OleDbDataAdapter
detail = New
OleDb.OleDbDataAdapter("select* from
detailtransaksi", go)
detail.Fill(dtdetail)
detail.Dispose()
End Sub
Private Sub Latihan_40A_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles
Me.Load
grabdata()
dtmaster.TableName = "idung"
dtdetail.TableName = "kake"
dgv146110022.DataSource = bsmaster
dgv246110022.DataSource = bsdetail
atur2.Tables.Add(dtmaster)
atur2.Tables.Add(dtdetail)
atur2.Relations.Add(New DataRelation("relasi",
atur2.Tables("idung").Columns("notrans"), atur2.Tables("kake").Columns("notrans")))
bsmaster.DataSource = atur2
bsmaster.DataMember = "idung"
bsdetail.DataSource = bsmaster
bsdetail.DataMember = "relasi"
End Sub
Private Sub edit46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles edit46110022.Click
Latihan_40B_46110022.Show()
Latihan_40B_46110022.replace46110022.Text =
dgv146110022.CurrentRow.Cells("notrans").Value
Latihan_40B_46110022.no46110022.Text =
dgv146110022.CurrentRow.Cells("notrans").Value
Latihan_40B_46110022.tgl46110022.Text =
dgv146110022.CurrentRow.Cells("tanggaltransaksi").Value
Latihan_40B_46110022.jenis46110022.Text
= dgv146110022.CurrentRow.Cells("jenistransaksi").Value
Latihan_40B_46110022.makecolumn()
Latihan_40B_46110022.noldi()
End Sub
Private Sub tambah46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles tambah46110022.Click
Latihan_40B_46110022.Show()
Latihan_40B_46110022.no46110022.Text = ""
Latihan_40B_46110022.jenis46110022.Text
= ""
Latihan_40B_46110022.replace46110022.Text = "-"
Latihan_40B_46110022.makecolumn()
End Sub
Private Sub hapus46110022_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles hapus46110022.Click
If
MsgBox("seriously want to delete the
record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit Sub
End If
Dim
bojel As New
OleDb.OleDbCommand
bojel = New
OleDb.OleDbCommand("delete* from
mastertransaksi where notrans='" &
dgv146110022.CurrentRow.Cells("notrans").Value
& "'", go)
go.Open()
bojel.ExecuteNonQuery()
go.Close()
bojel = New
OleDb.OleDbCommand("delete* from
detailtransaksi where notrans='" &
dgv146110022.CurrentRow.Cells("notrans").Value
& "'", go)
go.Open()
bojel.ExecuteNonQuery()
go.Close()
grabdata()
End Sub
End Class
5. Jalankan program dengan cara mengklik start debugging seperti berikut
:
6. Setelah menekan start debug, maka akan tampil hasil dari latihan 40A seperti
berikut :
7.
Selamat mencoba, semoga berhasil :)
Postingan
