Latihan_12_46110022

04.50 by Unknown

Deskripsi Form Latihan 12
     Pada form ini terdapat enam object yaitu label, textbox, button, groupbox, datetimepicker dan DataGriedView.

Object Label :
     Dalam form latihan ini terdapat 10 buah label. Label-label tersebut bertuliskan no.pembelian(ada 2), nama barang, harga perunit, tanggal, unit, jumlah, total, total unit, no. baris, baris sekarang.

Object Textbox:
     Dalam form ini terdapat 9 buah textbox (6 status input dan 3 status Read Only), dimana status input digunakan untuk memasukkan data, sedangkan status Read Only digunakan untuk menampilkan hasil pada dari fungsi yang telah di kerjakan

Object Button :
     Dalam form ini terdapat 7 buah object (Simpan, Tampilkan(ada 3) dan Hapus(ada 3). Tombol “Simpan” digunakan untuk menyimpan hasil penginputan data. Tombol “Tampilkan” digunakan untuk menampilkan data yang diinginkan. Tombol “Hapus” digunakan untuk menghapus data yang diinginkan.

Object Datetimepiacker :
     Dalam form ini terdapat 1 buah object datetimepicker. Object ini digunakan untuk menginput tanggal.

Object Groupbox :
     Dalam form ini terdapat 5 buah object groupbox. Group box berfungsi untuk mengelompokkan kontrol-kontrol pada form menjadi satu bagian.

Object Datagridview :
     Dalam form ini terdapat  sebuah object datagridview. Datagridview digunakan untuk menampilkan data ke dalam bentuk tabel yang terdiri dari baris dan kolom.

Scipt Unique
  • Untuk mendeklarasikan tabel sebagai tabel baru ==> Dim tabel As New DataTable
  •  Untuk menambah kolom baru ==> tabel.Columns.Add(New DataColumn("no. pembelian", GetType(String))
  • Untuk membuat datasource ==> DGV146110022.DataSource = tabel
  • Untuk mengatur primary key ==> tabel.PrimaryKey = kolom
  • Untuk mengisi kolom pertama ==> kolom(0) = tabel.Columns("no. pembelian")

Even :
TextChanged
Button click

Properti :
Property TextBox ==> ReadOnly=True


Langkah-Langkah Untuk Membuat Latihan 12

 a. Buat form seperti gambar berikut :


b. Masukkan nama form latihan 12 kemudian klik "add"
 

c. Buatlah form seperti berikut ini :
 




d. Ganti properti==> read only=true pada textbox jumlah,no.baris,dan no.pembelian








e. Masukkan rumus seperti berikut :

Public Class Latihan_12_46110022
    Dim tabel As New DataTable

    Private Sub Latihan_12_46110022_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.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)))

        DGV46110022.DataSource = tabel

        Dim kolom(1) As DataColumn
        kolom(0) = tabel.Columns("no. pembelian")
        tabel.PrimaryKey = kolom
    End Sub

    Private Sub haper46110022_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles haper46110022.TextChanged, unit46110022.TextChanged
        jumlah46110022.Text = Val(haper46110022.Text) * Val(unit46110022.Text)

    End Sub
    Private Sub Button146110022_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button146110022.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(Nopem46110022.Text)

        If baris Is Nothing Then
            baris = tabel.NewRow

            baris("no. pembelian") = Nopem46110022.Text
            baris("nama barang") = nabar46110022.Text
            baris("harga per unit") = Val(haper46110022.Text)
            baris("tanggal pembelian") = tanggal46110022.Value.Date
            baris("unit") = Val(unit46110022.Text)
            baris("jumlah") = Val(jumlah46110022.Text)

            tabel.Rows.Add(baris)
            Nopem46110022.Text = ""
            haper46110022.Text = ""
            nabar46110022.Text = ""
            haper46110022.Text = ""
            unit46110022.Text = ""
            jumlah46110022.Text = ""

        Else : MsgBox("baris sudah ada")
            jumlah46110022.Text = ""
        End If
        ega()
    End Sub
    Private Sub Button246110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button246110022.Click
        Dim baris As DataRow

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

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

            Nopem46110022.Text = baris("no. pembelian")
            nabar46110022.Text = baris("nama barang")
            haper46110022.Text = baris("harga per unit")
            tanggal46110022.Value = baris("tanggal pembelian")
            unit46110022.Text = baris("unit")
            jumlah46110022.Text = baris("jumlah")

        Else
            MsgBox("baris terlalu besar")

        End If
        nomor146110022.Text = ""
    End Sub

    Private Sub Button346110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button346110022.Click
        Dim baris As DataRow


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

            baris = tabel.Rows(Val(nomor146110022.Text) - 1)
            baris.Delete()

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

        End If
        nomor146110022.Text = ""

    End Sub
    Private Sub Button446110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button446110022.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nomor246110022.Text)

        If Not baris Is Nothing Then
            Nopem46110022.Text = baris("no. pembelian")
            nabar46110022.Text = baris("nama barang")
            haper46110022.Text = baris("harga per unit")
            tanggal46110022.Value = baris("tanggal pembelian")
            unit46110022.Text = baris("unit")
            jumlah46110022.Text = baris("jumlah")

        Else
            MsgBox("no. pembelian tidak ada")

        End If
        nomor246110022.Text = ""
    End Sub
   
    Private Sub Button546110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button546110022.Click
        Dim baris As DataRow
        baris = tabel.Rows.Find(nomor246110022.Text)

        If Not baris Is Nothing Then
            baris.Delete()
            nomor246110022.Text = ""
        Else
            MsgBox("no. pembelian yang dimasukkan tidak ada")
            nomor246110022.Text = ""
        End If
    End Sub

    Private Sub Button646110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button646110022.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row

        Nopem46110022.Text = baris("no. pembelian")
        nabar46110022.Text = baris("nama barang")
        haper46110022.Text = baris("harga per unit")
        tanggal46110022.Value = baris("tanggal pembelian")
        unit46110022.Text = baris("unit")
        jumlah46110022.Text = baris("jumlah")

    End Sub

    Private Sub Button746110022_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button746110022.Click
        Dim baris As DataRow
        baris = tabel.DefaultView(BindingContext(tabel).Position).Row
        baris.Delete()
    End Sub
 

    Private Sub ega()
        Dim tu, total As Integer
        For Each x As DataRow In tabel.Rows
            tu = tu + x("unit")
            total = total + x("jumlah")
        Next
        totunit46110022.Text = tu
        total46110022.Text = total
    End Sub
End Class


f. Untuk menjalankan form ini, klik star debugging seperti berikut ini :
 
 


Langkah-Langkah Untuk Menjalankan Latihan 12
     1.   Pertama, klik start debugging.
2.   Isi Data yang ada pada Formulir 1 lalu simpan
3.   Maka Dalam Data akan menampilkan apa yang anda massukkan pada formulir 1
4.   Apabila anda ingiin menampilkan atau menghapus data yang ada pada Data maka anda menggunkan Berdasarkan dengan No. Baris, Berdasarkan No. peembelian, ataukan Berdasarkan No.Sekarang (sesuai dengan yang anda inginkan.)
5.   Good luck...




0 komentar
0 Responses

Langganan: Posting Komentar (Atom)