Latihan_34C_46110002

Deskripsi Form Latihan 34C

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

Object Label

Terdapat 4 label pada form latihan 34C (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 diinput.

Object StatusStrip

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

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_34_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_34C_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_34C_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_34B_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_34B_46110002.ambildata()
    End Sub
    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
        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 34

·         Klik star debugging, trus klik latihan 34

·          Maka akan muncul hasil seperti ini

·         Lalu click “input barang” maka akan muncul latihan 34C

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

Latihan_34B_46110002

Deskripsi Form Latihan 34B

Pada form latihan 34B 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. Tombol edit digunakan untuk mengedit data. Tombol hapus untuk menghapus data yang dipilih.

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_34B_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_34B_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_34B_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_34B_46110002_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ambildata()
        DGV_46110002.DataSource = ambil
    End Sub
    Private Sub HAPUS_46110002_Click(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

    Private Sub TAMBAH_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TAMBAH_46110002.Click
        If Latihan_34C_46110002.Visible = False Then
            Latihan_34C_46110002.MdiParent = Me.MdiParent
            Latihan_34C_46110002.Show()
        Else
            Latihan_34C_46110002.Activate()
        End If
        Latihan_34C_46110002.GANTI_46110002.Text = "-"
        Latihan_34C_46110002.KB_46110002.Text = " "
        Latihan_34C_46110002.NB_46110002.Text = " "
        Latihan_34C_46110002.HJ_46110002.Text = " "
        Latihan_34C_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
        Latihan_34C_46110002.Show()
        Latihan_34C_46110002.GANTI_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110002.KB_46110002.Text = DGV_46110002.CurrentRow.Cells("kodebarang").Value
        Latihan_34C_46110002.NB_46110002.Text = DGV_46110002.CurrentRow.Cells("namabarang").Value
        Latihan_34C_46110002.HJ_46110002.Text = DGV_46110002.CurrentRow.Cells("hargajual").Value
        Latihan_34C_46110002.JB_46110002.Text = DGV_46110002.CurrentRow.Cells("JumlahBarang").Value
    End Sub
End Class

Langkah-Langkah Menjalankan Form Latihan 34B

·         Klik star debugging, trus klik latihan 34

·          Maka akan muncul hasil seperti ini

·         Lalu click “daftar barang" maka akan muncul latihan 34B

 

Latihan_34A_46110002

Deskripsi Form Latihan 34A

Pada form latihan 34A ada 3 object yang digunakan yaitu MenuStrip, DataGriedView,  dan ToolStrip.

Object MenuStrip

Terdapat 1 object MenuStrip pada form latihan 34A  (Barang).

Object DataGriedView

Terdapat 1 Object datagridview yang berfungsi untuk menampilkan data tabel.

Object ToolStrip

Ada 2 ToolStrip (data barang dan input barang)

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_34A_46110002

·         Buka folder project yang telah dibuat.

·         Click project kemudian pilih add windows form

·         Buat form "Latihan_34A_46110002" pada name kemudian click add 

·         Buat form seperti berikut

·         Setelah itu beri nama pada properties

·         Lalu masukkan text pada properties object MenuStrip,  dan ToolStrip.

·         Klik kanan, view kode lalu  masukkan rumus

Public Class Latihan_34A_46110002
    Private Sub TSL1_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL1_46110002.Click
        Latihan_34B_46110002.Show()
    End Sub

    Private Sub TSL2_46110002_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TSL2_46110002.Click
        If Latihan_34C_46110002.Visible = False Then
            Latihan_34C_46110002.MdiParent = Me.MdiParent
            Latihan_34C_46110002.Show()
        Else
            Latihan_34C_46110002.Activate()
        End If
    End Sub
    Private Sub DaftarBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DaftarBarang.Click
        Latihan_34B_46110002.Show()
    End Sub

    Private Sub InputBarang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputBarang.Click
        If Latihan_34C_46110002.Visible = False Then
            Latihan_34C_46110002.MdiParent = Me
            Latihan_34C_46110002.Show()
        Else
            Latihan_34C_46110002.Activate()
        End If
    End Sub
End Class
 

Langkah-Langkah Menjalankan Form Latihan 34

·         Klik star debugging, trus klik latihan 34

·          Maka akan muncul hasil seperti ini

·         Lalu click “daftar barang” maka akan muncul latihan 34B