Latihan_33B_46110002

Deskripsi Form Latihan 33B

Pada form latihan 33B ada 4 object yang digunakan yaitu Label, Text Box, Button dan Status strip.

Object Label

Terdapat 5 label pada form latihan 33B (penginputan barang, kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button                                                      

Terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diedit.

Object StatusStrip

Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“akan menampilkan  kode barang yang akan diubah.

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even

Click

Langkah-Langkah Penyelesaian Form Latihan_33B_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_33B_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

·         Lalu masukkan text pada properties untuk object button dan label

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_33B_46110002
    Dim Jalan 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 ('" & KB_46110002.Text & "','" & NB_46110002.Text & "', " & Val(HJ_46110002.Text) & "," & Val(JB_46110002.Text) & ")", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()

        Latihan_33A_46110002.ambildata()
    End Sub
    Private Sub replace()
        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110002.Text & "', namabarang = '" & NB_46110002.Text & "', hargajual=" & Val(HJ_46110002.Text) & ", jumlahbarang=" & Val(JB_46110002.Text) & " where kodebarang='" & GANTI_46110002.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()
        Latihan_33A_46110002.ambildata()
    End Sub

    Private Sub SIMPAN_46110002_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click
        If KB_46110002.Text.Length = 0 Then
            MsgBox("Plase Insert Your Text")
            Exit Sub
        End If

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

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

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

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

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

            KB_46110002.Text = " "
            NB_46110002.Text = " "
            HJ_46110002.Text = " "
            JB_46110002.Text = " "
            Exit Sub
        End If

        If GANTI_46110002.Text = "-" Then
            tambah()
        Else
            replace()
        End If

        KB_46110002.Text = " "
        NB_46110002.Text = " "
        HJ_46110002.Text = " "
        JB_46110002.Text = " "

        Me.Close()
    End Sub
End Class
 

Langkah-Langkah Menjalankan Form Latihan 33

·         Klik star debugging, trus klik latihan 33

·          Maka akan muncul hasil seperti ini

·         Lalu click “TAMBAH ATAU EDIT” maka akan muncul latihan 33B

·         Click “simpan” untuk menyimpan data yang telah ditambah atau diedit.

Latihan_33A_46110002

Deskripsi Form Latihan 33A

Pada form latihan 33A ada 3 object yang digunakan yaitu Label, Data Grid View dan Button.

Object Label

object label yang digunakan ada 1 (daftar barang).

Object DataGridView

Object datagridview yang berfungsi untuk menampilkan data tabel.

Object Button

Terdapat 3 object button (hapus, edit dan tambah). Tombol tambah berfungsi untuk menambah data dengan menampilkan form “Latihan_33B_46110002. Tombol edit digunakan untuk mengedit data dimana perintahnya terdapat pada form “Latihan_33B_46110002”. Tombol hapus untuk menghapus.

Even

Load

Click

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Langkah-Langkah Penyelesaian Form Latihan_33A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_33A_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

·         Lalu masukkan text pada properties untuk object button

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_33A_46110002
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Dim ambil As New DataTable
    Public Sub ambildata()
        Dim data As New OleDb.OleDbDataAdapter

        data = New OleDb.OleDbDataAdapter("SELECT* FROM barang", Jalan)

        ambil.Rows.Clear()

        data.Fill(ambil)
        data.Dispose()

    End Sub
    Private Sub Latihan_33A_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DGV_46110002.DataSource = ambil
    End Sub
    Private Sub TAMBAH_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110002.Click
        If Latihan_33B_46110002.Visible = False Then
            Latihan_33B_46110002.Show()
        Else
            Latihan_33B_46110002.Activate()
        End If

        Latihan_33B_46110002.GANTI_46110002.Text = "-"
        Latihan_33B_46110002.KB_46110002.Text = " "
        Latihan_33B_46110002.NB_46110002.Text = " "
        Latihan_33B_46110002.HJ_46110002.Text = " "
        Latihan_33B_46110002.JB_46110002.Text = " "
    End Sub
    Private Sub EDIT_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EDIT_46110002.Click
        If Latihan_33B_46110002.Visible = False Then
            Latihan_33B_46110002.Show()
        Else
            Latihan_33B_46110002.Activate()
        End If

        Latihan_33B_46110002.GANTI_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110002.KB_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_33B_46110002.NB_46110002.Text = DGV_46110002.CurrentRow.Cells("namabarang").Value
        Latihan_33B_46110002.HJ_46110002.Text = DGV_46110002.CurrentRow.Cells("hargajual").Value
        Latihan_33B_46110002.JB_46110002.Text = DGV_46110002.CurrentRow.Cells("JumlahBarang").Value
    End Sub

    Private Sub HAPUS_46110002_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HAPUS_46110002.Click
        If MsgBox("Seriously you want to delete the data???", 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_46110002.CurrentRow.Cells("Kodebarang").Value & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()
        ambildata()
    End Sub
End Class
 

Langkah-Langkah Menjalankan Form Latihan 33

·         Klik star debugging, trus klik latihan 33

·          Maka akan muncul hasil seperti ini

·         Lalu click “TAMBAH ATAU EDIT” maka akan muncul latihan 33B

·         Click “simpan” untuk menyimpan data yang telah ditambah atau diedit.

Latihan_32C_46110002

Deskripsi Form Latihan 32C

Pada form latihan 32C ada 4 object yang digunakan yaitu Label, Text Box, Button dan Status strip.

Object Label

Terdapat 5 label pada form latihan 32C (edit data, kode barang, nama barang, harga jual, dan  jumlah barang).

Object TextBox

Terdapat 4 object textbox (status input) yang digunakan dalam menginput data.

Object Button                                                      

Terdapat 1 object button (simpan). Tombol simpan digunakan untuk menyimpan data yang telah diedit.

Object StatusStrip

Ada 2 statusstrip yang digunakan (kode barang lama dan -). “-“akan menampilkan  kode barang yang akan diubah.

Script Unique

Pada Latihan ini tidak ada script yang baru, secara keseluruhan script telah ada pada latihan-latihan sebelumnya.

Even

Click

Langkah-Langkah Penyelesaian Form Latihan_32C_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_32C_46110002" pada name kemudian click add 

·         Buat form seperti berikut dengan menggunakan object Label, Text Box, Button dan Status strip.

·         Setelah itu beri nama object Text Box, Button dan Status strip pada properties

·         Lalu masukkan text pada properties  untuk object Label, Button dan Status strip.

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_32C_46110002
    Dim Jalan As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source =" & Application.StartupPath & "\DataBarang.ACCDB")
    Private Sub SIMPAN_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SIMPAN_46110002.Click

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

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

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

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

        If GANTI_46110002.Text <> KB_46110002.Text Then
            Dim PENCARI As New ByIskandar.CariKeDataBaseByIskandar
            PENCARI.AturPencarianDataBase("BARANG", "KODEBARANG", KB_46110002.Text, 1, Jalan)

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

                KB_46110002.Text = " "
                NB_46110002.Text = " "
                HJ_46110002.Text = " "
                JB_46110002.Text = " "
                Exit Sub
            End If
        End If

        Dim Cm As New OleDb.OleDbCommand
        Cm = New OleDb.OleDbCommand("Update BARANG set kodebarang ='" & KB_46110002.Text & "', namabarang = '" & NB_46110002.Text & "', hargajual=" & Val(HJ_46110002.Text) & ", jumlahbarang=" & Val(JB_46110002.Text) & " where kodebarang='" & GANTI_46110002.Text & "'", Jalan)
        Jalan.Open()
        Cm.ExecuteNonQuery()
        Jalan.Close()
        Cm.Dispose()


        GANTI_46110002.Text = "-"
        KB_46110002.Text = " "
        NB_46110002.Text = " "
        HJ_46110002.Text = " "
        JB_46110002.Text = " "

        Latihan_32A_46110002.ambildata()
        Me.Close()
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 32

·         Klik star debugging, trus klik latihan 32

·          Maka akan muncul hasil seperti ini

·         Lalu click “EDIT” maka akan muncul latihan 31C

·         Click “simpan” untuk menyimpan data yang telah diedit.