Latihan_40a_46110001

Latihan_40a_46110001

A.  Object-object dalam Latihan_40a_46110001

Deskripsi Form Latihan_40A_46110001

Form Latihan_40A_46110001 terdapat Tiga object yaitu Label, Button, dan Data Grid View.

Object Label
Terdapat Sembilan object label yang bertuliskan “Data Transaksi".

Object Button

Terdapat Tiga object button yaitu Button "Delete" yang digunakan untuk menghapus data yang ada pada data grid view. Button "Add" digunakan untuk menambah data ke database, sedangkan button "Edit" digunakan untuk mengedit detail pada database.

Object DataGridView

Terdapat sebuah object data grid view yang berguna untuk menampilkan detail data yang telah diinput

B.  Even

click

load

C. Prosedur Penyelesaian

          Langkah pertama dalam membuat form/ latihan 40a ialah, pada desktop anda, pilih    microsoft visual studio 2008.seperti pada langkah dibawah ini

 

·         Setelah itu pilih file kemudian New setelah itu pilih project, maka akan muncul tampilan   seperti   dibawah ini

·         Setelah langkah ke dua selesai maka langkah selanjutnya adalah, pada tampilan project tersebut silahkan anda mengganti nama form sesuai dengan yang anda inginkan

 

·         atau jika anda pernah membuat form sebelumnya, maka langkah selanjutnya  yang perlu anda lakukan adalah hanya dengan membuat buat form baru dengan memilih project kemudian pilih add  windows form, seperti pada gambar dibawah ini. 

 

·         Buatlah form seperti gambar dibawah ini,

 

·         Berikut ini adalah rumus untuk menjalankan form di atas

Public Class Latihan_40A_46110001

    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()
        'proses pengosongan dan pengisian data tabel
        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 Latihan40a_083_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        grabdata()
        'memasukkan datatabel ke dalam dataset
        dtmaster.TableName = "idung"
        dtdetail.TableName = "kake"

        Look1.DataSource = bsmaster
        Look2.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")))

        'menampilkan datatabel ke dGV dg menggunakan binding
        bsmaster.DataSource = atur2
        bsmaster.DataMember = "idung"
        bsdetail.DataSource = bsmaster
        bsdetail.DataMember = "relasi"
    End Sub

    Private Sub Ganti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Ganti_46110001.Click
        Latihan_40B_46110001.Show()
        Latihan_40B_46110001.replace.Text = Look1.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110001.NT_46110001.Text = Look1.CurrentRow.Cells("notrans").Value
        Latihan_40B_46110001.DTP_46110001.Text = Look1.CurrentRow.Cells("tanggaltransaksi").Value
        Latihan_40B_46110001.JT_46110001.Text = Look1.CurrentRow.Cells("jenistransaksi").Value
        Latihan_40B_46110001.makecolumn()
        Latihan_40B_46110001.botto()
    End Sub

    Private Sub Tambah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tambah_46110001.Click
        Latihan_40B_46110001.Show()
        Latihan_40B_46110001.NT_46110001.Text = ""
        Latihan_40B_46110001.JT_46110001.Text = ""
        Latihan_40B_46110001.replace.Text = "-"
        Latihan_40B_46110001.makecolumn()
    End Sub

    Private Sub Hapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapus_46110001.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='" & Look1.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        bojel.ExecuteNonQuery()
        go.Close()

        bojel = New OleDb.OleDbCommand("delete* from detailtransaksi where notrans='" & Look1.CurrentRow.Cells("notrans").Value & "'", go)
        go.Open()
        bojel.ExecuteNonQuery()
        go.Close()

        grabdata()

    End Sub

End Class

·         langkah selanjutnya Jalankan program dengan cara klik kanan pada project, lalu pilih Kumpulan_Latihan 46110001 properties, kemudian akan muncul tampilan seperti gambar dibawah ini:

·         Setelah mengatur startup form/ jika anda memiliki form navigator maka langkah yang perlu anda lakukan adalah ganti nama startup dengan nama navigator yang telah anda buat  setelah itu, klik start debug untuk menjalankan form latihan 40 a seperti dibawah ini :

·         Setelah menekan tombol debug maka tampilan latihan 40a sebagai berikut :

jika menginginkan tampilan gambar lebih besar.. klik 2 kali pada gambar

·         Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya dengan menampilkan jumlah error atau tampilan peringatan.