Latihan_40a_36110040

v Tahap Penyelesaian Latihan_40a_36110040

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.       Setelah itu klik kanan nama project, pilih add dan klik “new item”

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_40a_36110040

4.      Buat Form Latihan_40a dibawah ini:

5.       Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_40a_36110040

    'Mendeklarasikan object connection

    Dim Jembatan As New OleDb.OleDbConnection(" Provider = microsoft.ace.oledb.12.0; data source = " & Application.StartupPath & "\DataMajemuk.accdb; jet OLEDB:Database Password=040")

    'Mendeklarasikan datatable

    Dim Table As New DataTable

    Dim Table2 As New DataTable

    'Mendeklarasikan dataset

    Dim Data As New DataSet

    'Mendeklarasikan bindingsource

    Dim Binding As New BindingSource

    Dim Binding2 As New BindingSource

    Public Sub rahmi()

        'Mendeklarasikan adapter

        Dim Angkut As New OleDb.OleDbDataAdapter

        'Perintah membersihkan datatable

        Table2.Rows.Clear()

        'Perintah membersihkan datatable

        Table.Rows.Clear()

        'Proses mengambil data dari table

        Angkut = New OleDb.OleDbDataAdapter("Select * " & _

        "From Mastertransaksi", Jembatan)

        'Perintah mengisi datatable

        Angkut.Fill(Table)

        'Proses mengambil data dari table

        Angkut = New OleDb.OleDbDataAdapter("Select NoTrans, Detailtransaksi.KodeBarang, NamaBarang, Harga, Unit, Unit * Harga As Jumlah " & _

        "From Detailtransaksi Inner Join Barang on Detailtransaksi.Kodebarang = Barang.Kodebarang", Jembatan)

        'Perintah mengisi datatable

        Angkut.Fill(Table2)

        'Perintah menghapus adapter

        Angkut.Dispose()

    End Sub

    Private Sub Latihan40A042_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        rahmi()

        'Perintah menampilkan datatable ke datagridview

        DataGridView1.DataSource = Table

        'Perintah menampilkan datatable ke datagridview

        DataGridView2.DataSource = Table2

        'Perintah menambahkan datatable ke dataset

        Data.Tables.Add(Table)

        Data.Tables.Add(Table2)

        'Perintah pemberian nama pada dataset

        Table.TableName = "Induk"

        Table2.TableName = "Sub"

        'Perintah menambahkan relasi pada data set

        Data.Relations.Add(New DataRelation("Relasi", Data.Tables("Induk").Columns("Notrans"), Data.Tables("Sub").Columns("Notrans")))

        'Perintah menghubungkan dataset dengan bindingsource

        Binding.DataSource = Data

        Binding.DataMember = "Induk"

        Binding2.DataSource = Binding

        Binding2.DataMember = "Relasi"

        'Perintah menampilkan data dari binding source ke datatable

        DataGridView1.DataSource = Binding

        DataGridView2.DataSource = Binding2

    End Sub

    Private Sub Hapus_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus.Click

        'Mendeklarasikan object command

        Dim Ambil As New OleDb.OleDbCommand

        'Perintah menghapus data ke database

        Ambil = New OleDb.OleDbCommand("Delete * From MasterTransaksi Where NoTrans = '" & DataGridView1.CurrentRow.Cells("NoTrans").Value & "'", Jembatan)

        If MsgBox("Apakah Anda Yakin Menghapusnya?", MsgBoxStyle.YesNo) = MsgBoxResult.Yes Then

            'Membuka object connection

            Jembatan.Open()

            'Menjalankan perintah object command

            Ambil.ExecuteNonQuery()

            'Perintah menghapus data ke database

            Ambil = New OleDb.OleDbCommand("Delete * From DetailTransaksi Where NoTrans = '" & DataGridView1.CurrentRow.Cells("NoTrans").Value & "'", Jembatan)

            'Menjalankan perintah object command

            Ambil.ExecuteNonQuery()

            'Menutup object connection

            Jembatan.Close()

            'Menghapus perintah object command

            Ambil.Dispose()

        End If

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        rahmi()

    End Sub

    Private Sub Tambah_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Tambah.Click

        'Proses menampillkan form lain

        If Latihan_40b_36110040.Visible = False Then

            Latihan_40b_36110040.Show()

        Else

            Latihan_40b_36110040.Activate()

            Latihan_40b_36110040.WindowState = FormWindowState.Normal

            Latihan_40b_36110040.Notranslama.Text = "-"

        End If

        'Mengosongkan kembali isi textbox

        Latihan_40b_36110040.Notrans.Text = ""

        Latihan_40b_36110040.Jenis.Text = ""

        Latihan_40b_36110040.Total.Text = ""

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Latihan_40b_36110040.SelectData()

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Latihan_40b_36110040.Hitung()

    End Sub

    Private Sub Edit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Edit.Click

        'Proses menampillkan form lain

        If Latihan_40b_36110040.Visible = False Then

            Latihan_40b_36110040.Show()

        Else

            Latihan_40b_36110040.Activate()

            Latihan_40b_36110040.WindowState = FormWindowState.Normal

        End If

        'Perintah menampilkan data yang ada di datagridview ke textbox

        Latihan_40b_36110040.Notrans.Text = DataGridView1.CurrentRow.Cells("NoTrans").Value

        Latihan_40b_36110040.Notranslama.Text = DataGridView1.CurrentRow.Cells("NoTrans").Value

        Latihan_40b_36110040.Jenis.Text = DataGridView1.CurrentRow.Cells("JenisTransaksi").Value

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Latihan_40b_36110040.SelectData()

        'Proses penggunaan prosedur tanpa parameter yang berlingkup public

        Latihan_40b_36110040.Hitung()

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 8.      Selesai