Latihan_13_46110038

Deskripsi Form Latihan_13_46110038:

Form Latihan_13_46110038 hanya terdapat 1 object yaitu Datagridview.

Object Datagridview

Di Latihan_13_46110038 ada 3 Datagridview. Digunakan untuk menampilkan tabel yang telah dibuat dalam script.

Script Unique

Membuat DataTable

Dim DTRI As New DataTable

Membuat DataSet baru

Dim erma As New DataSet

Membuat Binding Source

Dim herawati As New BindingSource

Menambahkan kolom pada DataTable

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

Menambah relationship dalam DataSet

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

Membuat binding datasource (mengatur datasource dan data membernya)

        herawati.DataSource = erma

        herawati.DataMember = "ica"

Even

Load

Property

Default

Cara Membuat Form Latihan_13_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_13_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_13_46110038

    Dim DTRI As New DataTable

    Dim DTRS As New DataTable

    Dim DTRSS As New DataTable

    Dim erma As New DataSet

    Dim herawati As New BindingSource

    Dim LUKMAN As New BindingSource

    Dim AKBAR As New BindingSource

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

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

        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

        erma.Tables.Add(DTRI)

        erma.Tables.Add(DTRS)

        erma.Tables.Add(DTRSS)

        DTRI.TableName = "ICA"

        DTRS.TableName = "DIS"

        DTRSS.TableName = "OCA"

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

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

        herawati.DataSource = erma

        herawati.DataMember = "ica"

        LUKMAN.DataSource = herawati

        LUKMAN.DataMember = "TA"

        AKBAR.DataSource = LUKMAN

        AKBAR.DataMember = "HI"

        view146110038.DataSource = herawati

        View246110038.DataSource = LUKMAN

        View346110038.DataSource = AKBAR

    End Sub

End Class

Langkah untuk menjalankan Latihan_13_46110038:

1.    Klik start debugging.

2. Tabel yang telah dibuat dalam script akan muncul secara otomatis.

Latihan_12_46110038

Deskripsi Form Latihan_12_46110038:

Form Latihan_12_46110038 terdapat 6 object yaitu Label, Textbox, Button,  Datetimepicker, Groupbox, dan Datagridview:

Object Label

Di Latihan_12_46110038 ada 11 label yang berisi teks No. Pembelian, Nama Barang, Harga Perunit, Unit, Tanggal, Jumlah, Total Unit, Total, No. Baris, No. Pembelian, dan Baris Sekarang.

Object Text Box

Di Latihan_12_46110038 ada 9 textbox, 6 status input, 3 berstatus read only. Texbox yang berstatus input digunakan untuk memasukkan No. Pembelian, Nama barang, Harga Perunit, No. Baris. Sedangkan yang berstatus 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

Di Latihan_12_46110038 ada 7 object button yang berisi teks Simpan, Tampilkan dan Hapus masing-masing ada 3. Button Simpan digunakan untuk memasukkan data yang telah diinput ke dalam Datagridview. Button Tampilkan digunakan untuk menampilkan data dalam Datagridview ke dalam textbox tempat menginput data, sedangkan button Hapus digunkan untuk menghapus data yang ada di dalam Datagridview.

Object Datagridview

Di Latihan_12_46110038 ada 1 objek datagridview yang digunakan untuk menampilkan data yang telah diinput dalam No. Pembelian, Nama Barang, Harga Perunit, Unit, Jumlah, dan Tanggal pembelian.

Object Datatimepicker

Di Latihan_12_46110038 ada 1 object datetimepicker yang digunakan untuk menentukan tanggal pembelian

Object Groupbox

Di Latihan_12_46110038 ada 5 groupbox yang berisi teks Formulir1, Data, Berdasarkan No Baris, Berdasarkan No Pembelian, dan Berdasarkan Baris Sekarang.

Script Unique

Untuk button Simpan, Tampilkan, dan Hapus:

Dim baris As DataRow

Even

TextChanged

ButtonClick

Property

Property TextBox =>ReadOnly=True

Cara Membuat Form Latihan_12_46110038:

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_12_46110038  sudah dibuat maka selanjutnya membuat listing program pada jendela code:

Public Class Latihan_12_46110038

    Dim tabel As New DataTable

    Private Sub latihan_12_46110038_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)))

        Data46110038.DataSource = tabel

        Dim kolom(1) As DataColumn

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

        tabel.PrimaryKey = kolom

    End Sub

    Private Sub c46110038_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c46110038.TextChanged, e46110038.TextChanged

        f46110038.Text = Val(c46110038.Text) * Val(e46110038.Text)

    End Sub

    Private Sub simpan46110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan46110038.Click

        Dim baris As DataRow

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

        If baris Is Nothing Then

            baris = tabel.NewRow

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

            baris("nama barang") = b46110038.Text

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

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

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

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

            tabel.Rows.Add(baris)

            a46110038.Text = ""

            b46110038.Text = ""

            c46110038.Text = ""

            e46110038.Text = ""

            f46110038.Text = ""

        Else : MsgBox("baris sudah ada")

            f46110038.Text = ""

        End If

        aku()

    End Sub

    Private Sub t146110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t146110038.Click

        Dim baris As DataRow

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

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

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

            b46110038.Text = baris("nama barang")

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

            d46110038.Value = baris("tanggal pembelian")

            e46110038.Text = baris("unit")

            f46110038.Text = baris("jumlah")

        Else

            MsgBox("baris terlalu besar")

        End If

        i46110038.Text = ""

    End Sub

    Private Sub h146110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h146110038.Click

        Dim baris As DataRow

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

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

            baris.Delete()

        Else

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

        End If

        i46110038.Text = ""

    End Sub

    Private Sub t246110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t246110038.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

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

            b46110038.Text = baris("nama barang")

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

            d46110038.Value = baris("tanggal pembelian")

            e46110038.Text = baris("unit")

            f46110038.Text = baris("jumlah")

        Else

            MsgBox("no. pembelian tidak ada")

        End If

        j46110038.Text = ""

    End Sub

    Private Sub h246110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h246110038.Click

        Dim baris As DataRow

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

        If Not baris Is Nothing Then

            baris.Delete()

            j46110038.Text = ""

        Else

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

            j46110038.Text = ""

        End If

    End Sub

    Private Sub t346110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles t346110038.Click

        Dim baris As DataRow

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

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

        b46110038.Text = baris("nama barang")

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

        d46110038.Value = baris("tanggal pembelian")

        e46110038.Text = baris("unit")

        f46110038.Text = baris("jumlah")

    End Sub

    Private Sub h346110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles h346110038.Click

        Dim baris As DataRow

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

        baris.Delete()

    End Sub

    Private Sub aku()

        Dim tu, total As Integer

        For Each x As DataRow In tabel.Rows

            tu = tu + x("unit")

            total = total + x("jumlah")

        Next

        g46110038.Text = tu

        h46110038.Text = total

    End Sub

End Class

Langkah untuk menjalankan Latihan_12_46110038:

1.    Klik start debugging.

2.    Isi text box yang berstatus input.

3. Hasil akan muncul secara otomatis pada total textbox readonly dan datagridview setelah menginput.