latihan_34C_46110023

Deskripsi form latihan 34C
Dalam form Latihan 34c hanya terdapat empat object yaitu Label, Textbox, Button dan Toolstrip.

Object Label :
Dalam form ini terdapat empat  buah object label yang bertuliskan “kode barang”,, “nama barang”, “harga jual”, dan  “jumlah barang” .

Object Textbox :
Dalam form ini terdapat empat buah object textbox yang semuanya berstatus input.

Object Button :
Dalam form ini terdapat sebuah object button yang bertuliskan “simpan”. Button ini berfungsi untuk menyimpan data yang telah di input di latihan ini ke dalam database.

Object Toolstrip :
Toolstrip lebih berfungsi sebagai shortcut. dan bisa saja tidak semua yang ada dalam menu utama ditampilkan pada toolstrip. Hanya yang paling sering digunakan yang ditampilkan pada toolstrip, sehingga memudahkan user untuk menjalankan form tanpa harus membuka menu terlebih dahulu.

Script Unique :
Dalam form ini tidak terdapat script unique karena script yang digunakan sama dengan script yang digunakan pada latihan sebelumnya.

Even :
Button click

Langkah-langkah penyelesaian form latihan 34C

1.Buat form baru seperti gambar dibawah ini,

2. Ketikkan nama form latihan_34C_xxxxx, lalu klik add

3. Buat form seperti gambar di bawah ini:

4. Setelah itu input script berikut ini :


Public Class LATIHAN_34C_46110023
    Dim dian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub tambah()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("INSERT INTO BARANG (KODEBARANG, NAMABARANG, HARGAJUAL, JUMLAHBARANG) VALUES ('" & kode_46110023.Text & "','" & nama_46110023.Text & "', " & Val(harga_46110023.Text) & "," & Val(jumlah_46110023.Text) & ")", dian)
        dian.Open()
        dian.Close()
        Cm.Dispose()

        LATIHAN_34B_46110023.ambildata()
    End Sub
    Private Sub ganti()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode_46110023.Text & "', namabarang = '" & nama_46110023.Text & "', hargajual=" & Val(harga_46110023.Text) & ", jumlahbarang=" & Val(jumlah_46110023.Text) & " where kodebarang='" & ganti_46110023.Text & "'", dian)
        dian.Open()
        Cm.ExecuteNonQuery()
        dian.Close()
        Cm.Dispose()

        LATIHAN_34B_46110023.ambildata()
    End Sub

    Private Sub simpan_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles simpan_46110023.Click
        If kode_46110023.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

        If nama_46110023.Text.Length = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

        If Val(harga_46110023.Text) = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

        If Val(jumlah_46110023.Text) = 0 Then
            MsgBox("Please Insert Your Text")
            Exit Sub
        End If

        Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
        PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", kode_46110023 .Text, 1, dian)

        If PENCARI.JumlanBaris > 0 Then
            MsgBox("The data has been exist please insert new data")

            kode_46110023.Text = " "
            nama_46110023.Text = " "
            harga_46110023.Text = " "
            jumlah_46110023.Text = " "
            Exit Sub
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & kode_46110023.Text & "', namabarang = '" & nama_46110023.Text & "', hargajual=" & Val(harga_46110023.Text) & ", jumlahbarang=" & Val(jumlah_46110023.Text) & " where kodebarang='" & ganti_46110023.Text & "'", dian)
        dian.Open()
        Cm.ExecuteNonQuery()
        dian.Close()
        Cm.Dispose()

        kode_46110023.Text = " "
        nama_46110023.Text = " "
        harga_46110023.Text = " "
        jumlah_46110023.Text = " "

        LATIHAN_34B_46110023.ambildata()

        Me.Close()
    End Sub
End Class

5. Untuk menjalankan latihan ini maka terlebih dahulu jalankan latihan 34a lalu klik tombol "input barang" yang ada di latihan 34a seperti gambar di bawah ini:

6. Setelah menekan tombol tersebut maka tampilannya sebagai berikut :

7. Jika terdapat kesalahan, maka program akan menunjukkan letak kesalahannya.

latihan_34B_46110023

Deskripsi Form Latihan 34B

Dalam form latihan 34B terdapat 3 object yaitu object label, datagridview, dan button 

 

Object label

terdapat 1 object label yang bertuliskan “daftar barang”.

 

Object datagridview

hanya 1 object datagridview yang nantinya akan menampilkan daa berupa tabel.

 

Oject button

Ada 3 object button yang bertuliskan ‘tambah”, "hapus", “edit”

Langkah- langkah membuat form latihan 34B

1.    Buka file folder project VB yang sudah ada.

2.    Buat form baru dengan cara klik project pada menu bar dan pilih add new windows :

3.    Setelah itu ganti nama form lalu pilih add:

 

4.    Kemudian buat desaign seperti gambar berikut dengan memasukkan object –object yang telah disebutkan diatas:

 

5.    Pilih solution explorer dan  beri nama setiap object, kecuali object label:

 

6.    Setelah formnya jadi, klik kanan pada desaign dalan pilih view code:

 

Setelah muncul halaman baru, masukkan script seperti dibawah ini:

Public Class LATIHAN_34B_46110023
    Dim dian As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim tabel As New DataTable
    Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter
        data = New OleDb.OleDbDataAdapter("SELECT* from barang", dian)
        tabel.Rows.Clear()

        data.Fill(tabel)
        data.Dispose()
    End Sub

    Private Sub Latihan_34B_46110023_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        dgv_46110023.DataSource = tabel
    End Sub

    Private Sub hapus_4611023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hapus_46110023.Click
        If MsgBox("are you serious??? do you want to delete the record???", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
            Exit Sub
        End If

        Dim cm As New OleDb.OleDbCommand
        cm = New OleDb.OleDbCommand("delete * from barang where kodebarang ='" & dgv_46110023.CurrentRow.Cells("kodebarang").Value & "'", dian)
        dian.Open()
        cm.ExecuteNonQuery()
        dian.Close()
        cm.Dispose()

        ambildata()
    End Sub

    Private Sub edit_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles edit_46110023.Click
        If LATIHAN_34C_46110023.Visible = False Then
            LATIHAN_34C_46110023.MdiParent = Me.MdiParent
            LATIHAN_34C_46110023.Show()
        Else
            LATIHAN_34C_46110023.Activate()
        End If
        LATIHAN_34C_46110023.ganti_46110023.Text = dgv_46110023.CurrentRow.Cells("kodebarang").Value
        LATIHAN_34C_46110023.kode_46110023.Text = dgv_46110023.CurrentRow.Cells("kodebarang").Value
        LATIHAN_34C_46110023.nama_46110023.Text = dgv_46110023.CurrentRow.Cells("namabarang").Value
        LATIHAN_34C_46110023.harga_46110023.Text = dgv_46110023.CurrentRow.Cells("hargajual").Value
        LATIHAN_34C_46110023.jumlah_46110023.Text = dgv_46110023.CurrentRow.Cells("jumlahbarang").Value

    End Sub

    Private Sub tambah_46110023_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tambah_46110023.Click
        If LATIHAN_34C_46110023.Visible = False Then
            LATIHAN_34C_46110023.MdiParent = Me.MdiParent
            LATIHAN_34C_46110023.Show()
        Else
            LATIHAN_34C_46110023.Activate()
        End If

        LATIHAN_34C_46110023.ganti_46110023.Text = "-"
        LATIHAN_34C_46110023.kode_46110023.Text = ""
        LATIHAN_34C_46110023.nama_46110023.Text = ""
        LATIHAN_34C_46110023.harga_46110023.Text = ""
        LATIHAN_34C_46110023.jumlah_46110023.Text = ""

    End Sub
End Class

 

 Langkah –Langkah Menjalankan Latihan 34B

1. Klik star debugging, maka latihan 34b akan muncul

Script unique

Tidak ada script unik pada latihan ini, karena scriptnya sama dengan laihan-latihan sebelumnya.

 

even

click

load