latihan_13_36110040

Deskripsi  Form Latihan_13_36110040

Terdapat satu object yaitu:

Object DataGridView
Terdapat tiga objek datagridview yang digunakan untuk menampilkan tabel yang telah dibuat dalam script.


     Script Unique
Membuat DataTable
Dim DTRI As New DataTable

Membuat DataSet baru
Dim rahmi As New DataSet

Membuat Binding Source
Dim rahmi1 As New BindingSource

Menambahkan kolom pada DataTable
rahmi1.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

Menambah relationship dalam DataSet
rahmi.Relations.Add(New DataRelation("RHEP1", rahmi.Tables("RP1").Columns("Kode Rekening Induk"), rahmi.Tables("RP2").Columns("Kode Rekening Induk")))
       
Membuat binding datasource (mengatur datasource dan data membernya)
rahmi1.DataSource = rahmi
       rahmi1.DataMember = "RP1"

     Even
Latihan_13_36110040_Load

Latihan_13_36110040

Prosedur Penyelesaian Latihan_13_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_12 dan add.

4.   Buat Form Latihan_13 dibawah ini:

5. Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_13_36110040

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim ZAHRAH As New DataSet

    Dim herawati As New BindingSource

    Dim LUKMAN As New BindingSource

    Dim AKBAR As New BindingSource

    Private Sub Latihan_13_36110040_load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        DTRI.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String))) 'untuk teks==>+ field baru

        DTRI.Columns.Add(New DataColumn("Nama Rekening Induk", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Kode Rekening Sub", GetType(String)))

        DTRS.Columns.Add(New DataColumn("Nama Rekening Sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening Induk", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Kode Rekening Sub-sub", GetType(String)))

        DTRSS.Columns.Add(New DataColumn("Nama Rekening Sub-sub", GetType(String)))

        Dim Acak As New Random

        For RI As Integer = 1 To Acak.Next(1, 5)

            DTRI.Rows.Add(RI, "Nama Rekening " & RI)

            For RS As Integer = 1 To Acak.Next(1, 5)

                DTRS.Rows.Add(RI, RI & RS, "Nama Sub Rekening " & RI & RS)

                For RSS As Integer = 1 To Acak.Next(1, 5)

                    DTRSS.Rows.Add(RI, RI & RS, RI & RS & RSS, "Nama Sub Sub Rekening " & RI & RS & RSS)

                Next

            Next

        Next

        ZAHRAH.Tables.Add(DTRI)

        ZAHRAH.Tables.Add(DTRS)

        ZAHRAH.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"

        DTRS.TableName = "DIS"

        DTRSS.TableName = "OCA"

        ZAHRAH.Relations.Add(New DataRelation("TA", ZAHRAH.Tables("ICA").Columns("kode rekening induk"), ZAHRAH.Tables("dis").Columns("kode rekening induk")))

        ZAHRAH.Relations.Add(New DataRelation("HI", ZAHRAH.Tables("DIS").Columns("kode rekening sub"), ZAHRAH.Tables("oca").Columns("kode rekening sub")))

        herawati.DataSource = ZAHRAH

        herawati.DataMember = "ica"

        LUKMAN.DataSource = herawati

        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN

        AKBAR.DataMember = "HI"

        dgv1_36110040.DataSource = herawati

        dgv2_36110040.DataSource = LUKMAN

        dgv3_36110040.DataSource = AKBAR

    End Sub

End Class

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

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

8.   Selesai

latihan_12_36110040

Latihan_12_36110040

Prosedur Penyelesaian Latihan_12_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_12 dan add.

4.   Buat Form Latihan_12 dibawah ini:

5. Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_12_36110040

    Dim tabel As New DataTable

    Private Sub Latihan_12_36110040_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String)))

        tabel.Columns.Add(New DataColumn("nama barang", GetType(String)))

        tabel.Columns.Add(New DataColumn("harga per unit", GetType(Double)))

        tabel.Columns.Add(New DataColumn("tanggal pembelian", GetType(Date)))

        tabel.Columns.Add(New DataColumn("unit", GetType(Integer)))

        tabel.Columns.Add(New DataColumn("jumlah", GetType(Double)))

        DGV36110040.DataSource = tabel

        Dim kolom(1) As DataColumn

        kolom(0) = tabel.Columns("no. pembelian")

        tabel.PrimaryKey = kolom

    End Sub

   

    Private Sub hpu36110040_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hpu36110040.TextChanged, unit36110040.TextChanged

        j36110040.Text = Val(hpu36110040.Text) * Val(unit36110040.Text)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(no_36110040.Text)

        If baris Is Nothing Then

            baris = tabel.NewRow

            baris("no. pembelian") = no_36110040.Text

            baris("nama barang") = nama36110040.Text

            baris("harga per unit") = Val(hpu36110040.Text)

            baris("tanggal pembelian") = tanggal36110040.Value.Date

            baris("unit") = Val(unit36110040.Text)

            baris("jumlah") = Val(j36110040.Text)

            tabel.Rows.Add(baris)

            no_36110040.Text = ""

            nama36110040.Text = ""

            hpu36110040.Text = ""

            unit36110040.Text = ""

            j36110040.Text = ""

        Else : MsgBox("baris sudah ada")

            j36110040.Text = ""

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim baris As DataRow

        If Val(NOB_36110040.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(NOB_36110040.Text) - 1)

            no_36110040.Text = baris("no. pembelian")

            nama36110040.Text = baris("nama barang")

            hpu36110040.Text = baris("harga per unit")

            tanggal36110040.Value = baris("tanggal pembelian")

            unit36110040.Text = baris("unit")

            j36110040.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        NOB_36110040.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Dim baris As DataRow

        If Val(NOB_36110040.Text) <= tabel.Rows.Count Then

            baris = tabel.Rows(Val(NOB_36110040.Text) - 1)

            baris.Delete()

        Else

            MsgBox("no. baris yang dimasukkan tidak ada")

        End If

        NOB_36110040.Text = ""

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(NOP_36110040.Text)

        If Not baris Is Nothing Then

            no_36110040.Text = baris("no. pembelian")

            nama36110040.Text = baris("nama barang")

            hpu36110040.Text = baris("harga per unit")

            tanggal36110040.Value = baris("tanggal pembelian")

            unit36110040.Text = baris("unit")

            j36110040.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        NOP_36110040.Text = ""

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Dim baris As DataRow

        baris = tabel.Rows.Find(NOP_36110040.Text)

        If Not baris Is Nothing Then

            baris.Delete()

            NOP_36110040.Text = ""

        Else

            MsgBox("no. pembelian yang dimasukkan tidak ada")

            NOP_36110040.Text = ""

        End If

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Dim baris As DataRow

        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        no_36110040.Text = baris("no. pembelian")

        nama36110040.Text = baris("nama barang")

        hpu36110040.Text = baris("harga per unit")

        tanggal36110040.Value = baris("tanggal pembelian")

        unit36110040.Text = baris("unit")

        j36110040.Text = baris("jumlah")

    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Dim baris As DataRow

        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        baris.Delete()

    End Sub

    Private Sub dgv36110040_DataBindingComplete(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewBindingCompleteEventArgs) Handles DGV36110040.DataBindingComplete

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        totalunit36110040.Text = tu

        total36110040.Text = total

    End Sub

End Class

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

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

8.   Selesai

Deskripsi Latihan_12_36110040

-    Object Label

Terdapat sebelas label (yang bertuliskan no pembelian, nama barang, harga perunit, unit, tanggal, jumlah, total unit, total, no baris, no pembelian, baris sekarang)

-    Object TextBox

Terdapat sembilan textbox (enam status input; tiga status read only). Status input digunakan untuk memasukkan no pembelian, nama barang, harga perunit, no baris. Status Read Only digunakan untuk menampilkan hasil dari perkalian harga perunit dan unit, dan total unit serta jumlah dari data yang dimasukkan dalam datagridview.

-    Object Button

Terdapat Tujuh object Button (Simpan, Tampilkan baris, Hapus baris, Tampilkan no.pembelian, Hapus no.pembelian, Tampilkan berd.baris sekarang dan Hapus berd.baris skrg). Button simpan digunakan memasukkan data dalam datagridview ke dalam textbox tempat menginput data. Sedangkan button hapus digunkan untuk menghapus data yang ada di dalam datagridview.

-    Object DataGrid View

Terdapat satu object datagridview digunakan untuk menampilkan data yang telah diinput dalam no.pembelian, harga perunit, nama barang, jumlah

-    Object DateTimePiker

Terdapat satu object Datetimepiker yang dimana digunakan untuk menampilkan tanggal, bulan, dan tahun pembelian.

Script Unique

Mengatur Primarykey data tabel

Dim kolom(1) As DataColumn

        kolom(0) = tabel.Columns("no pembelian")

        tabel.PrimaryKey = kolom

Menempatkan tabel pada dunia maya

Dim tabel As New DataTable

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

jumlah_36110040.Text = Val(Perunit_36110040.Text) * Val(unit_36110040.Text)

Membuat call prosedur

Private Sub rahmi()

Dim tu, total As Integer

For Each x As DataRow In tabel.Rows

tu = tu + x("unit")

total = total + x("jumlah")

Next

Totalunit_36110040.Text = tu

Total_36110040.Text = total

End Sub

Saat membuat kolom pada datatabel

tabel.Columns.Add(New DataColumn("no pembelian", GetType(String)))

saat membuat data source

DGV_36110040.DataSource = tabel

Saat menyimpan data (baris baru) pada data table
 Dim baris As DataRow

baris = tabel.Rows.Find(nope_36110040.Text)

If baris Is Nothing Then

  baris = tabel.NewRow

Even

TextChanged

Buttonclick